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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: QAOSWRK0

Package: Occurrence Screen

Routine: QAOSWRK0


Information

QAOSWRK0 ;HISC/DAD-WORKSHEET DRIVER ROUTINE ;6/15/93 10:18

Source Information

Source file <QAOSWRK0.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Occurrence Screen 5 ^QAOSPCL0  ^QAOSPCL1  ^QAOSPCM0  ^QAOSPMG0  ^QAOSPPR0  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 2 ^DIC  ^DIR  
Quality Assurance Integration 1 (,K)^QAQDATE  
Registration 1 KVAR^VADPT  

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 WORKSHEETS  

Entry Points

Name Comments DBIA/ICR reference
PATDISP ;
ENTSK ;
ASKDATA ;
BLNKLOOP ;
DEV ;
ASKCOPY ;
CALLROU ;
EXIT ;
PATLOOP ;
DATELOOP ;
PATLIST ;
ASKTYPE ;
ASKHOW ;
ASKPAT ;

External References

Name Field # of Occurrence
^%ZIS DEV+1
HOME^%ZIS QAOSWRK0+2
^%ZISC EXIT+1
^%ZTLOAD DEV+5
^DIC ASKPAT+7
^DIR ASKTYPE+6, ASKHOW+6, ASKDATA+4, ASKCOPY+5, PATDISP+6
^QAOSPCL0 CALLROU+1
^QAOSPCL1 CALLROU+1
^QAOSPCM0 CALLROU+1
^QAOSPMG0 CALLROU+1
^QAOSPPR0 CALLROU+1
^QAQDATE ASKHOW+9
K^QAQDATE EXIT+8
KVAR^VADPT EXIT+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKTYPE+6
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKHOW+6
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKDATA+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKCOPY+5
Function Call: WRITE
  • Prompt: !,$S(QAOSREC:"Another one: ",1:"Select PATIENT: ")
  • Line Location: ASKPAT+1
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: ASKPAT+2
Function Call: WRITE
  • Prompt: @IOF,!!?3,"Select a patient by name or SSN. To deselect a patient type a minus (-)",!?3,"sign and the patient name or SSN, e.g. -DOE,JOHN"
  • Line Location: ASKPAT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PATLIST+3
Function Call: WRITE
  • Prompt: !?5,PATNAM,?30,OCCDATE,?50,SCRN
  • Line Location: PATDISP+5
Routine Call
  • %ZIS
  • Line Location:
    • QAOSWRK0+2
Routine Call
  • DIC
  • Line Location:
    • ASKPAT+7
Routine Call
  • DIR
  • Line Location:
    • ASKTYPE+6
    • ASKHOW+6
    • ASKDATA+4
    • ASKCOPY+5
    • PATDISP+6
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^QA(741 - [#741] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PATDISP+3
^DPT - [#2] PATDISP+2
^QA(741 - [#741] DATELOOP+1, PATDISP+1
^QA(741.1 - [#741.1] PATDISP+4
^TMP($J ASKHOW+7!, EXIT+1!, ASKPAT+8!, ASKPAT+9*, PATLIST+2, PATDISP+6, PATLOOP+1

Label References

Name Line Occurrences
ASKCOPY ASKHOW+8
ASKPAT ASKHOW+9, ASKPAT+7, ASKPAT+10
BLNKLOOP ENTSK+1
CALLROU BLNKLOOP+1, DATELOOP+1, PATLOOP+1
DATELOOP ENTSK+1
DEV ASKHOW+8
EXIT ASKTYPE+6, ASKHOW+6, ASKHOW+8, ASKHOW+9, ASKDATA+4, DEV+1, DEV+2
PATDISP PATLIST+2
PATLIST ASKPAT+4
PATLOOP ENTSK+1

Naked Globals

Name Field # of Occurrence
^("SCRN" PATDISP+1
^(0 PATDISP+2, PATDISP+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEV+1!*, EXIT+2!
DIC EXIT+2!, ASKPAT+5*
DIC("S" ASKPAT+5*, ASKPAT+7!
DIC(0 ASKPAT+5*
DIR ASKTYPE+1!, ASKTYPE+6!, ASKHOW+1!, ASKHOW+6!, ASKDATA+1!, ASKDATA+4!, EXIT+2!, ASKCOPY+1!, PATDISP+6!
DIR("?" ASKTYPE+2*, ASKTYPE+3*, ASKTYPE+4*, ASKTYPE+5*, ASKCOPY+3*, ASKCOPY+4*
DIR("A" ASKTYPE+1*, ASKHOW+2*, ASKHOW+3*, ASKHOW+4*, ASKHOW+5*, ASKDATA+2*, ASKDATA+3*, ASKCOPY+2*
DIR("B" ASKDATA+3*, ASKCOPY+2*
DIR(0 ASKTYPE+1*, ASKHOW+1*, ASKDATA+1*, ASKCOPY+1*, PATDISP+6*
DIRUT ASKTYPE+6!, ASKHOW+6!, ASKDATA+4!, EXIT+2!, ASKCOPY+5
DIW EXIT+4!
DIWI EXIT+4!
DIWT EXIT+4!
DIWTC EXIT+4!
DIWX EXIT+4!
DN EXIT+4!
DTIME ASKPAT+2
HEADER EXIT+5!
I EXIT+4!
IEN405 EXIT+5!
IO ENTSK+1
IO("Q" DEV+2
IOF ASKPAT+4, PATDISP+6
IONOFF EXIT+1*, EXIT+2!
IOP DEV+1!
IOSL PATDISP+6
LEN EXIT+4!
LOC EXIT+2!, PATDISP+1*, PATDISP+2, PATDISP+3
LOC405 EXIT+5!
LOCDPT EXIT+4!
LOCQA EXIT+4!
NAME EXIT+5!
OCCDATE EXIT+2!, PATDISP+3*, PATDISP+5
PATNAM EXIT+2!, PATDISP+2*, PATDISP+5
POP DEV+1, EXIT+2!
QA EXIT+2!
QAOCOPYS EXIT+6!, ASKCOPY+5*, BLNKLOOP+1
QAODC EXIT+5!
QAODFN EXIT+5!
QAODT EXIT+5!
QAOSCOPY EXIT+6!, BLNKLOOP+1*
QAOSD EXIT+2!, DATELOOP+1*
QAOSD0 EXIT+3!, BLNKLOOP+1*, DATELOOP+1*, PATLIST+2*, PATDISP+1, PATDISP+6, PATLOOP+1*
QAOSDATA ASKDATA+4*, EXIT+2!, BLNKLOOP+1*
QAOSDFN EXIT+5!
QAOSDSEL EXIT+3!, ASKPAT+6*, ASKPAT+8
QAOSHOW ASKHOW+6*, ASKHOW+7, ASKHOW+8, ASKHOW+9, ENTSK+1, EXIT+3!
QAOSI EXIT+6!
QAOSMDAY EXIT+5!
QAOSMDUE EXIT+5!
QAOSONE EXIT+7!
QAOSPDAY EXIT+7!
QAOSPDUE EXIT+7!
QAOSQUIT ASKHOW+6*, ASKHOW+7*, ASKHOW+8, ASKHOW+9, EXIT+3!, ASKCOPY+5*, BLNKLOOP+1*, DATELOOP+1*, ASKPAT+2*, ASKPAT+3*
, PATLIST+1*, PATLIST+2, PATDISP+6*, PATLOOP+1*, CALLROU+1
QAOSREC ASKHOW+7*, EXIT+3!, ASKPAT+1, ASKPAT+3, ASKPAT+8*, ASKPAT+9*, PATLIST+1
QAOSS0 EXIT+7!
QAOSTYPE ASKTYPE+6*, EXIT+3!, CALLROU+1
QAOSWHEN EXIT+6!
QAOTS EXIT+6!
>> QAQNBEG DATELOOP+1
>> QAQNEND DATELOOP+1
>> QAQQUIT ASKHOW+7*, ASKHOW+9
REVR EXIT+4!
SCREEN EXIT+6!
SCRN EXIT+3!, PATDISP+1*, PATDISP+4*, PATDISP+5
SRV EXIT+6!
SSN EXIT+6!
UNDL EXIT+6!
UNSC EXIT+6!
WARD EXIT+6!
X EXIT+3!, ASKPAT+2*, ASKPAT+3, ASKPAT+4, ASKPAT+6*
Y ASKTYPE+6, ASKHOW+6, ASKDATA+4, EXIT+3!, EXIT+4!, ASKCOPY+5, ASKPAT+7, ASKPAT+8, ASKPAT+9, PATDISP+3*
, PATDISP+6
Z EXIT+4!
ZTDESC DEV+3*, EXIT+3!
>> ZTQUEUED EXIT+8
>> ZTREQ EXIT+8*
ZTRTN DEV+3*, EXIT+4!
ZTSAVE EXIT+4!
ZTSAVE("QAO*" DEV+4*
ZTSAVE("QAQ*" DEV+4*
ZTSAVE("^TMP($J," DEV+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All