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

Package: Occurrence Screen

Routine: QAOSPSY0


Information

QAOSPSY0 ;HISC/DAD-SYSTEM / EQUIPMENT PROBLEMS ;6/11/93 15:59

Source Information

Source file <QAOSPSY0.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

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 QAOS RPT SYS/MGMT/EQUIP PROB  

Entry Points

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

External References

Name Field # of Occurrence
^%ZIS QAOSPSY0+3
^%ZISC EXIT+1
^%ZTLOAD QAOSPSY0+3
^DIR PAUSE+1
EN6^QAQAUTL HEAD+2
^QAQDATE QAOSPSY0+2
K^QAQDATE EXIT+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"NO DATA FOUND FOR THIS REPORT"
  • Line Location: ENTSK+3
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+1
Function Call: WRITE
  • Prompt: !!,PAT,?32,SSN,?43,Y,?56,STATUS,?64,CONFIRM,!?1,SCRN,?8,$E(SCREEN,1,72)
  • Line Location: PRT2+2
Function Call: WRITE
  • Prompt: !!?26,"SYSTEM / EQUIPMENT PROBLEMS",?68,TODAY,!?QAQTART,QAQ2HED,?68,"PAGE: ",PAGE
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !,"PATIENT / SCREEN",?32,"SSN",?43,"DATE",?56,"STATUS",?64,"CONFIRMED ISSUE",!,UNDL
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !!?3,"SERVICE: ",$S(SERV["~":$P(SERV,"~",2),1:SERV)
  • Line Location: SUBHEAD+1
Routine Call
  • %ZIS
  • Line Location:
    • QAOSPSY0+3
Routine Call
  • DIR
  • Line Location:
    • PAUSE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" ENTSK+1, PRT2+1
^DIC(49 - [#49] LOOP1+9
^DPT - [#2] LOOP1+10
^QA(741 - [#741] ENTSK+2, LOOP1+1, LOOP1+3, LOOP1+4
^QA(741.1 - [#741.1] LOOP1+8
^TMP($J ENTSK+1!, ENTSK+3, ENTSK+4, EXIT+2!, LOOP1+11*, PRT1+1, PRT2+1, PRT2+3

Label References

Name Line Occurrences
EXIT QAOSPSY0+2, QAOSPSY0+3, ENTSK+3
HEAD ENTSK+3, PRT2+3
LOOP1 ENTSK+2
PAUSE PRT2+3
PRT1 ENTSK+4
PRT2 PRT1+1
SUBHEAD ENTSK+4, PRT2+3

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT EXIT+2!
%ZIS QAOSPSY0+3!*, EXIT+2!
CONFIRM EXIT+2!, LOOP1+2!, LOOP1+4*, LOOP1+5, LOOP1+7*, LOOP1+11, PRT2+1*, PRT2+2
CONFIRM( LOOP1+2*, LOOP1+5*
CONFIRM(1 LOOP1+7
CONFIRM(2 LOOP1+7
CONFIRM(3 LOOP1+7
D EXIT+2!
DIR PAUSE+1!
DIR(0 PAUSE+1*
DT ENTSK+1
I EXIT+2!
IO ENTSK+3
IO("Q" QAOSPSY0+3
IOF HEAD+1
IOSL PRT2+3
IOST PRT2+3, HEAD+1
LOC EXIT+2!, LOOP1+8*, LOOP1+10*, PRT2+1*
PAGE ENTSK+1*, EXIT+2!, HEAD+1, HEAD+2*
PAT ENTSK+4*, EXIT+2!, PRT1+1, PRT2+1, PRT2+2, PRT2+3
PATIENT EXIT+2!, LOOP1+10*, LOOP1+11
POP QAOSPSY0+3, EXIT+2!
PT ENTSK+4*, EXIT+2!
QA EXIT+2!, LOOP1+2*
QAOSD0 ENTSK+2*, EXIT+2!, LOOP1+1, LOOP1+3, LOOP1+4
QAOSD1 EXIT+2!, LOOP1+3*, LOOP1+4
QAOSDT ENTSK+2*, EXIT+2!, LOOP1+11, PRT1+1*, PRT2+1, PRT2+3
QAOSQUIT ENTSK+1*, ENTSK+4, EXIT+2!, PRT1+1, PRT2+3, PAUSE+1*
QAOSZERO EXIT+2!, LOOP1+1*, LOOP1+9, LOOP1+10
>> QAQ2HED HEAD+2
>> QAQNBEG ENTSK+2
>> QAQNEND ENTSK+2
>> QAQQUIT QAOSPSY0+2
>> QAQTART HEAD+2
SCREEN EXIT+2!, LOOP1+8*, LOOP1+11, PRT2+1*, PRT2+2
SCRN ENTSK+4*, EXIT+2!, LOOP1+1*, LOOP1+8*, LOOP1+11, PRT1+1, PRT2+1, PRT2+2, PRT2+3
SERV ENTSK+4*, EXIT+2!, PRT1+1, PRT2+1, PRT2+3, SUBHEAD+1
SERVICE EXIT+2!, LOOP1+9*, LOOP1+11
SRV ENTSK+4*, EXIT+2!
SSN EXIT+2!, LOOP1+10*, LOOP1+11, PRT2+1*, PRT2+2
STATUS EXIT+2!, LOOP1+1*, LOOP1+11, PRT2+1*, PRT2+2
TODAY ENTSK+1*, EXIT+2!, HEAD+2
UNDL ENTSK+1!*, EXIT+2!, HEAD+3
X EXIT+2!
Y ENTSK+1*, EXIT+2!, PRT2+1*, PRT2+2, PAUSE+1
Z EXIT+2!
ZTDESC QAOSPSY0+3*, EXIT+2!
>> ZTQUEUED EXIT+3
>> ZTREQ EXIT+3*
ZTRTN QAOSPSY0+3*, EXIT+2!
ZTSAVE EXIT+2!
ZTSAVE("QAOS*" QAOSPSY0+3*
ZTSAVE("QAQ*" QAOSPSY0+3*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All