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 |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ADGDODQ

Package: IHS Changes To ADT

Routine: ADGDODQ


Information

ADGDODQ ; IHS/ADC/PDW/ENM - QUEUE LIST OF INPATIENT DEATHS ; [ 03/25/1999 11:48 AM ]

Source Information

Source file <ADGDODQ.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 3 ^%DT  C^%DTC  ^DIR  
IHS Changes To ADT 1 ^ADGDODC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DG IHS QA DECEASED LIST  

Entry Points

Name Comments DBIA/ICR reference
DATE
QUE
DATE2
TYPE
END

External References

Name Field # of Occurrence
^%DT DATE, DATE2
C^%DTC DATE2+2
^%ZIS TYPE+5
HOME^%ZIS END
^%ZISC QUE+2
^%ZTLOAD QUE+2
^ADGDODC TYPE+5
^DIR TYPE+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ADGDODQ+3
Function Call: WRITE
  • Prompt: !!!?20,"PRINT LIST OF INPATIENT DEATHS",!!
  • Line Location: ADGDODQ+3
Function Call: WRITE
  • Prompt: *7,!!?5,"Ending date MUST NOT be before beginning date",!
  • Line Location: DATE2+1
Routine Call
  • %ZIS
  • Line Location:
    • END
Routine Call
  • DIR
  • Line Location:
    • TYPE+2
Routine Call
  • %ZIS
  • Line Location:
    • TYPE+5

Label References

Name Line Occurrences
DATE DATE2
DATE2 DATE2+1
END DATE+1, TYPE+2, TYPE+5
QUE TYPE+5
TYPE TYPE+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT DATE*
>> %DT("A" DATE*, DATE2*
>> %ZIS TYPE+5*
DGBDT DATE+1*, DATE2+1, END!
DGEDT DATE2*, DATE2+1, DATE2+2*, END!
>> DGI QUE+1*
DGTYP TYPE+2*, END!
DIR TYPE!
DIR("A" TYPE*
DIR(0 TYPE+1*
>> DIRUT TYPE+2
DT DATE2+2
IO TYPE+5
IO("Q" TYPE+5, QUE!
IOF ADGDODQ+3
>> POP TYPE+5
>> X DATE*, DATE2*, DATE2+2
>> X1 DATE2+2*
>> X2 DATE2+2*
Y DATE+1, DATE2, TYPE+2, END!
>> ZTDESC QUE*
>> ZTRTN QUE*
>> ZTSAVE( QUE+1*
ZTSK QUE+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All