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

Package: Occurrence Screen

Routine: QAOSPSR0


Information

QAOSPSR0 ;HISC/DAD-OCCURRENCE SCREENS BY SERVICE ;2/12/93 15:26

Source Information

Source file <QAOSPSR0.m>

Call Graph

Call Graph

Call Graph Total: 7

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

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

Package Total Caller Graph
Event Capture 1 ECTQ RPT BY SERVICE  
Interim Management Support 1 ECTQ RPT BY SERVICE  
Occurrence Screen 1 QAOS RPT BY SERVICE  

Entry Points

Name Comments DBIA/ICR reference
DEV ;
ENTSK ;
PRINT ;
EXIT ;
PRT1 ;
PRT2 ;
LOOP1 ;
HEAD ;
SUBHEAD ;
PAUSE ;

External References

Name Field # of Occurrence
^%ZIS DEV+1
^%ZISC EXIT+1
^%ZTLOAD DEV+2
^DIR PAUSE+1
EN6^QAQAUTL HEAD+3
^QAQDATE QAOSPSR0+2
K^QAQDATE EXIT+3
^QAQSELCT QAOSPSR0+5, QAOSPSR0+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !!,"*** NO OCCURRENCES FOUND IN THE SELECTED DATE RANGE ***"
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+1
Function Call: WRITE
  • Prompt: !!,NAME,?32,SSN,?43,Y,?56,STAT,?65,$E(TXSP,1,15),!?1,SCRN,?8,$E(SCRNTXT,1,72)
  • Line Location: PRT2+2
Function Call: WRITE
  • Prompt: !!?29,"OCCURRENCES BY SERVICE",?68,TODAY,!?QAQTART,QAQ2HED,?68,"PAGE: ",PAGE
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !,"PATIENT / SCREEN",?32,"SSN",?43,"DATE",?56,"STATUS",?65,"TREATING SPEC.",!,UNDL
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: !!," SERVICE: ",SERV
  • Line Location: SUBHEAD+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1
Routine Call
  • DIR
  • Line Location:
    • PAUSE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PRINT+1, PRT2+1
^DIC(45.7 - [#45.7] LOOP1+7
^DIC(49 - [#49] LOOP1+5
^DPT - [#2] LOOP1+4
^QA(741 - [#741] ENTSK+1, LOOP1+1
^QA(741.1 - [#741.1] LOOP1+1
^UTILITY($J QAOSPSR0+3!, PRINT+1, PRINT+2, EXIT+2!, PRT1+1, PRT2+1, PRT2+3, LOOP1+2, LOOP1+6, LOOP1+8*

Label References

Name Line Occurrences
EXIT QAOSPSR0+2, QAOSPSR0+5, QAOSPSR0+7, DEV+1, DEV+2, PRINT+1
HEAD PRINT+1, PRINT+2, PRT2+4
LOOP1 ENTSK+1
PAUSE PRINT+2, PRT2+4
PRT1 PRINT+2
PRT2 PRT1+1
SUBHEAD PRINT+2, PRT2+4

Naked Globals

Name Field # of Occurrence
^("SCRN" LOOP1+1
^(0 LOOP1+1, LOOP1+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT EXIT+2!
%ZIS QAOSPSR0+2!, DEV+1!*, EXIT+2!
D EXIT+2!
DATE EXIT+2!, PRT1+1*, PRT2+1, PRT2+3
DIR PAUSE+1!
DIR(0 PAUSE+1*
DT PRINT+1
I EXIT+2!
IO PRINT+1
>> IO("Q" DEV+2
IOF HEAD+1
IOP QAOSPSR0+2!
IOSL PRT2+4
IOST PRINT+2, PRT2+4, HEAD+1
LOC EXIT+2!, PRT2+1*, LOOP1+1*, LOOP1+3, LOOP1+4*
NAM EXIT+2!, PRT1+1*
NAME EXIT+2!, PRT1+1*, PRT2+1, PRT2+2, PRT2+3, LOOP1+4*, LOOP1+8
PAGE PRINT+1*, EXIT+2!, HEAD+1, HEAD+2*
POP DEV+1, EXIT+2!
QAOSD0 ENTSK+1*, EXIT+2!, LOOP1+1
QAOSDATE ENTSK+1*, EXIT+2!, LOOP1+8
QAOSQUIT ENTSK+1*, PRINT+1*, PRINT+2, EXIT+2!, PRT1+1, PRT2+4, PAUSE+1*
>> QAQ2HED HEAD+2
QAQDIC QAOSPSR0+4!*, QAOSPSR0+6!*, EXIT+2!
QAQDIC("A" QAOSPSR0+4*, QAOSPSR0+6*
QAQDIC("B" QAOSPSR0+7*
QAQDIC(0 QAOSPSR0+4*, QAOSPSR0+6*
>> QAQNBEG ENTSK+1
>> QAQNEND ENTSK+1
>> QAQQUIT QAOSPSR0+2, QAOSPSR0+5, QAOSPSR0+7
>> QAQTART HEAD+2
QAQUTIL QAOSPSR0+5*, QAOSPSR0+7*, EXIT+2!
SCRN EXIT+2!, PRT1+1*, PRT2+1, PRT2+2, PRT2+3, LOOP1+1*, LOOP1+2, LOOP1+8
SCRNTXT EXIT+2!, PRT2+1*, PRT2+2, LOOP1+1*, LOOP1+8
SER PRINT+2*, EXIT+2!
SERV PRINT+1*, PRINT+2*, EXIT+2!, PRT1+1, PRT2+1, PRT2+3, LOOP1+3*, LOOP1+5, LOOP1+6, SUBHEAD+1
SERV(0 LOOP1+5*, LOOP1+6, LOOP1+8
SSN EXIT+2!, PRT2+1*, PRT2+2, LOOP1+4*, LOOP1+8
STAT EXIT+2!, PRT2+1*, PRT2+2, LOOP1+3*, LOOP1+8
TODAY PRINT+1*, EXIT+2!, HEAD+2
TXSP EXIT+2!, PRT2+1*, PRT2+2, LOOP1+3*, LOOP1+7*, LOOP1+8
UNDL PRINT+1!*, EXIT+2!, HEAD+4
X EXIT+2!
Y PRINT+1*, EXIT+2!, PRT2+1*, PRT2+2, PAUSE+1
Z EXIT+2!, PRT2+3*, PRT2+4
ZTDESC DEV+2*, EXIT+2!
>> ZTQUEUED EXIT+3
>> ZTREQ EXIT+3*
ZTRTN DEV+2*, EXIT+2!
ZTSAVE EXIT+2!
ZTSAVE("QAO*" DEV+2*
ZTSAVE("QAQ*" DEV+2*
ZTSAVE("^UTILITY($J," DEV+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All