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: QAOSPWT0

Package: Occurrence Screen

Routine: QAOSPWT0


Information

QAOSPWT0 ;HISC/DAD-PATIENTS AWAITING CLINICAL REVIEW ;4/30/93 09:41

Source Information

Source file <QAOSPWT0.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Quality Assurance Integration 2 EN6^QAQAUTL  (,K)^QAQDATE  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Occurrence Screen 1 QAOS RPT AWAITING CLIN REV  

Entry Points

Name Comments DBIA/ICR reference
EXIT ;
HEAD ;
PAUSE ;
ENTSK ;
DEV ;

External References

Name Field # of Occurrence
^%ZIS DEV+1
^%ZISC EXIT+1
^%ZTLOAD DEV+4
^DIR QAOSPWT0+5, PAUSE+1
EN6^QAQAUTL HEAD+4
^QAQDATE QAOSPWT0+6
K^QAQDATE EXIT+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: QAOSPWT0+5
Function Call: WRITE
  • Prompt: !!,"NO PATIENTS FOUND AWAITING CLINICAL REVIEW"
  • Line Location: ENTSK+20
Function Call: WRITE
  • Prompt: !!,NAME,?33,SSN,?45,Y,?59,$S(WARD["~":$P(WARD,"~",2),1:WARD)
  • Line Location: ENTSK+27
Function Call: WRITE
  • Prompt: !?1,SCRN,?8,$E(SCRNTXT,1,50),?59,WARD(0)
  • Line Location: ENTSK+28
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+1
Function Call: WRITE
  • Prompt: !!?23,"PATIENTS AWAITING CLINICAL REVIEW",?68,TODAY
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !?QAQTART,QAQ2HED,?68,"PAGE: ",PAGE
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !,"PATIENT / SCREEN",?33,"SSN",?45,"DATE"
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: ?59,$S(QAOSSORT="C":"CURR/OCCUR",1:"OCCUR/CURR")," WARD/CLIN"
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: !,UNDL
  • Line Location: HEAD+7
Routine Call
  • DIR
  • Line Location:
    • QAOSPWT0+5
    • PAUSE+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" ENTSK+17, ENTSK+25
^DPT - [#2] ENTSK+5, ENTSK+7
^QA(741 - [#741] ENTSK+2, ENTSK+3
^QA(741.1 - [#741.1] ENTSK+12
^QA(741.2 - [#741.2] ENTSK+1
^SC - [#44] ENTSK+8
^TMP($J DEV+1!, ENTSK+15*, ENTSK+20, ENTSK+21, ENTSK+23, ENTSK+24, EXIT+3!

Label References

Name Line Occurrences
EXIT QAOSPWT0+5, QAOSPWT0+6, DEV+1, DEV+2, ENTSK+20
HEAD ENTSK+19, ENTSK+29
PAUSE ENTSK+29

Naked Globals

Name Field # of Occurrence
^( ENTSK+7
^("SCRN" ENTSK+3
^(0 ENTSK+5, ENTSK+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEV+1!*, EXIT+1!
CURWARD ENTSK+7*, ENTSK+13, ENTSK+14, EXIT+3!
D EXIT+3!
DATE ENTSK+6*, ENTSK+11, ENTSK+15, ENTSK+21*, ENTSK+23, ENTSK+24, ENTSK+25, EXIT+1!
DIR QAOSPWT0+2!, EXIT+3!, PAUSE+1!
DIR("?" QAOSPWT0+4*
DIR("A" QAOSPWT0+3*
DIR("B" QAOSPWT0+3*
DIR(0 QAOSPWT0+2*, PAUSE+1*
DIRUT QAOSPWT0+5, EXIT+3!
DT ENTSK+17
DTOUT EXIT+3!
DUOUT EXIT+3!
I EXIT+3!
IO ENTSK+19
IO("Q" DEV+2
IOF HEAD+1
IOP DEV+1!
IOSL ENTSK+29
IOST ENTSK+29, HEAD+1
LOC ENTSK+3*, ENTSK+4, ENTSK+6, ENTSK+7, ENTSK+8, ENTSK+24*, ENTSK+25, ENTSK+26, EXIT+1!
NAM ENTSK+23*, EXIT+1!
NAME ENTSK+4*, ENTSK+5*, ENTSK+15, ENTSK+22*, ENTSK+23*, ENTSK+24, ENTSK+27, EXIT+1!
OCCWARD ENTSK+8*, ENTSK+9*, ENTSK+13, ENTSK+14, EXIT+3!
PAGE ENTSK+17*, EXIT+1!, HEAD+1, HEAD+3*
POP DEV+1, EXIT+1!
QAOSCLIN ENTSK+1*, ENTSK+2, EXIT+1!
QAOSD0 ENTSK+2*, ENTSK+3, EXIT+1!
QAOSQUIT ENTSK+17*, ENTSK+21, ENTSK+23, ENTSK+29, EXIT+1!, PAUSE+1*
QAOSSORT QAOSPWT0+5*, ENTSK+13, EXIT+2!, HEAD+6
>> QAQ2HED HEAD+3
>> QAQNBEG ENTSK+11
>> QAQNEND ENTSK+11
>> QAQQUIT QAOSPWT0+6
>> QAQTART HEAD+3
SCRN ENTSK+3*, ENTSK+12*, ENTSK+15, ENTSK+21*, ENTSK+23, ENTSK+24, ENTSK+28, EXIT+2!
SCRNTXT ENTSK+10*, ENTSK+12*, ENTSK+13, ENTSK+14, ENTSK+25*, ENTSK+28, EXIT+2!
SSN ENTSK+4*, ENTSK+5*, ENTSK+13, ENTSK+14, ENTSK+25*, ENTSK+27, EXIT+2!
TODAY ENTSK+17*, EXIT+2!, HEAD+2
UNDL ENTSK+18!*, EXIT+2!, HEAD+7
WARD ENTSK+21*, ENTSK+23, ENTSK+24, ENTSK+27, EXIT+2!
WARD(0 ENTSK+26*, ENTSK+28
WRD ENTSK+13*, ENTSK+14*, ENTSK+15, EXIT+2!
X ENTSK+13*, ENTSK+14*, ENTSK+15, ENTSK+26*, EXIT+2!
Y QAOSPWT0+5, ENTSK+17*, ENTSK+25*, ENTSK+27, EXIT+2!, EXIT+3!, PAUSE+1
Z EXIT+3!
ZTDESC DEV+3*, EXIT+2!
>> ZTQUEUED EXIT+4
>> ZTREQ EXIT+4*
ZTRTN DEV+3*, EXIT+2!
ZTSAVE EXIT+2!
ZTSAVE("QAOSSORT" DEV+4*
ZTSAVE("QAQ*" DEV+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All