Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: QAOSSFR1

Package: Occurrence Screen

Routine: QAOSSFR1


Information

QAOSSFR1 ;HISC/DAD-OCCURRENCE SCREEN / MONITORING SYSTEM AUTO ENROLL SPECIAL FUNCTIONS ROUTINE ;11/8/93 09:54

Source Information

Source file <QAOSSFR1.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 2 ^%ZISC  ^%ZTLOAD  
Occurrence Screen 2 ^QAOSPCL0  ^QAOSPCL1  
Quality Assurance Integration 1 EN6^QAQAUTL  
VA FileMan 1 ^%DT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Occurrence Screen 1 QAOSSFR0  

Entry Points

Name Comments DBIA/ICR reference
PRINT ; QUEUE PRINTING OF REPORTS
QPRINT(ZTIO,DIVISION) ; OUTPUT DEVICE , DIVISION (* = ALL)
ENTSK ; TASKED ENTRY POINT FOR PRINT
DONE ;
HEAD ;

External References

Name Field # of Occurrence
^%DT ENTSK+3
^%ZISC DONE+11
^%ZTLOAD QPRINT+12
^QAOSPCL0 DONE+7
^QAOSPCL1 DONE+7
EN6^QAQAUTL HEAD+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No patients found meeting this screen."
  • Line Location: ENTSK+8
Function Call: WRITE
  • Prompt: !!,QAOSPAT,?34,$P(X,"^")
  • Line Location: ENTSK+17
Function Call: WRITE
  • Prompt: ?49,$S($D(^SC(+$P(X,"^",2),0))#2:$P(^(0),"^"),1:$P(X,"^",2))
  • Line Location: ENTSK+18
Function Call: WRITE
  • Prompt: !?3,$P(X,"^",3)
  • Line Location: ENTSK+19
Function Call: WRITE
  • Prompt: ?37,Y
  • Line Location: ENTSK+19
Function Call: WRITE
  • Prompt: !!,"Number of occurrences: ",QAOCOUNT,!,@IOF
  • Line Location: DONE+1
Function Call: WRITE
  • Prompt: !!?20,"AUTO ENROLLED OCCURRENCE SCREEN PATIENTS",?65,QAOTODAY,!?26,"OCCURRENCE DATE: ",QAOSOCDT,?65,"PAGE: ",QAOSPAGE
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !?80-$L(X)/2,X
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: !," (* Denotes that this occurrence has already been entered into the system)"
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: !!,"Patient Name",?34,"SSN",?49,"Ward/Clinic",!?3,"Admitting Diagnosis",?37,"Previous Movement",!,QAOSUNDL
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: !!?5,"Screen: ",QAOSSCRN," ",QAOSSCRN(0),!
  • Line Location: HEAD+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" ENTSK+3, ENTSK+5, ENTSK+19
^DG(40.8 - [#40.8] ENTSK+12, HEAD+3
^QA(740 - [#740] PRINT+3, PRINT+4, DONE+2
^QA(741.1 - [#741.1] ENTSK+4
^SC - [#44] ENTSK+18
^TMP("QAO" PRINT+7!, PRINT+8!, PRINT+10, ENTSK+6, ENTSK+11, ENTSK+14, ENTSK+15, ENTSK+16, DONE+2, DONE+4
, DONE+6, DONE+7, DONE+14!

Label References

Name Line Occurrences
DONE ENTSK+6
HEAD ENTSK+7, ENTSK+13, ENTSK+16
QPRINT PRINT+6, PRINT+11, PRINT+14

Naked Globals

Name Field # of Occurrence
^(0 ENTSK+18

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT ENTSK+3*, DONE+12!
DIVISION QPRINT~, QPRINT+2, QPRINT+3, QPRINT+8, QPRINT+9
IO ENTSK+1
IOF DONE+1, HEAD+1
IONOFF DONE+11*, DONE+12!
IOSL ENTSK+16
IOST HEAD+1
QAMTODAY ENTSK+5, DONE+12!
QAOCOUNT ENTSK+2*, ENTSK+20*, DONE+1, DONE+12!
>> QAOS740 PRINT+1, PRINT+2
QAOSD0 ENTSK+15*, ENTSK+16, DONE+7*, DONE+12!
QAOSDATA DONE+3*, DONE+12!
>> QAOSDFLT PRINT+1*, PRINT+5, PRINT+11, PRINT+14
>> QAOSDIVN PRINT+3*, PRINT+4, PRINT+6, PRINT+7, PRINT+8, HEAD+3
>> QAOSDVN ENTSK+10*, ENTSK+11*, ENTSK+12, ENTSK+14, ENTSK+15, ENTSK+16, DONE+3*, DONE+4*, DONE+6, DONE+7
>> QAOSDVN(0 ENTSK+12*, HEAD+3
>> QAOSHOW DONE+3*
QAOSOCDT ENTSK+5*, DONE+12!, HEAD+2
QAOSPAGE ENTSK+2*, DONE+12!, HEAD+1, HEAD+2, HEAD+5*
QAOSPAT ENTSK+13*, ENTSK+14*, ENTSK+15, ENTSK+16, ENTSK+17, DONE+5*, DONE+6*, DONE+7, DONE+12!
QAOSQUIT DONE+3*, DONE+13!
QAOSSCRN ENTSK+4, DONE+13!, HEAD+8
QAOSSCRN(0 ENTSK+4*, HEAD+8
QAOSUNDL ENTSK+2!*, DONE+13!, HEAD+7
QAOTODAY ENTSK+3*, DONE+13!, HEAD+2
X ENTSK+3*, ENTSK+16*, ENTSK+17, ENTSK+18, ENTSK+19, DONE+13!, HEAD+3*, HEAD+4*
Y ENTSK+3, ENTSK+5*, ENTSK+19*, DONE+13!
>> ZTDESC QPRINT+11*
ZTDTH QPRINT+1*, DONE+13!
ZTIO PRINT+4*, PRINT+5*, PRINT+6, QPRINT~, QPRINT+1, DONE+13!
>> ZTQUEUED DONE+15
>> ZTREQ DONE+15*
ZTRTN QPRINT+1*, DONE+13!
ZTSAVE DONE+13!
ZTSAVE("QAMTODAY" QPRINT+2*
ZTSAVE("QAOSDIVN" QPRINT+2*
ZTSAVE("QAOSSCRN" QPRINT+2*
ZTSAVE("^TMP(""QAO"",$J,""RPT""," QPRINT+4*, QPRINT+8*
ZTSAVE("^TMP(""QAO"",$J,""WKS""," QPRINT+5*, QPRINT+9*
ZTSK DONE+13!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All