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

Package: IHS Changes To ADT

Routine: ADGDSAU


Information

ADGDSAU ; IHS/ADC/PDW/ENM - DAY SURGERY AUDIT REPORT ; [ 06/19/2000 10:43 AM ]

Source Information

Source file <ADGDSAU.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
IHS Changes To ADT 2 ^ADGDSAU1  VAR^ADGVAR  
VA Fileman 2 ^%DT  C^%DTC  
IHS VA Utilities 1 $$VAL^XBDIQ1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DG IHS DS AUDIT REPORT  

Entry Points

Name Comments DBIA/ICR reference
BDATE
END
NEXT
QUE
C3
C2
C1
CALC ;***> set up sorted Utility file for date range
EDATE
C5
C4

External References

Name Field # of Occurrence
^%DT BDATE, EDATE
C^%DTC C4
^%ZIS EDATE+3
HOME^%ZIS END
^%ZISC QUE+2
^%ZTLOAD QUE+2
^ADGDSAU1 NEXT
VAR^ADGVAR ADGDSAU+3
$$VAL^XBDIQ1 C3+6, C3+8, C3+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!!?28,"DAY SURGERY AUDIT REPORT",!!
  • Line Location: ADGDSAU+4
Function Call: WRITE
  • Prompt: !!,"Report uses 132 columns; use wide printer or condensed print!"
  • Line Location: EDATE+2
Routine Call
  • %ZIS
  • Line Location:
    • END
Routine Call
  • %ZIS
  • Line Location:
    • EDATE+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ADGDS - [#9009012] C3+2, C3+11
^ADGDS("AA" C1, C2, C3
^AUPNPAT - [#9000001] C3+5
^DGPM - [#405] C3+19
^DGPM("AMV1" C3+19
^DGPM("ATID1" C4+1
^DIC(45.7 - [#45.7] C3+10
^DPT - [#2] C3+4
^TMP("DGDSAU" CALC+2!, C5*

Label References

Name Line Occurrences
C1 C2
C2 C3
C3 C3+2, C5
C4 C3+14
C5 C3+20
CALC EDATE+3
END BDATE+1, EDATE+1, EDATE+3
NEXT C1
QUE EDATE+3

Naked Globals

Name Field # of Occurrence
^(0 C3+2, C3+5, C3+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT BDATE*, EDATE*
>> %DT("A" BDATE*, EDATE*
>> %ZIS EDATE+3*
>> AGE C3+3*, C3+6*, C5
>> DFN C1*, C2*, C3, C3+2, C3+4, C3+5, C3+6, C3+11, C3+19, C5
>> DGADM C3+3*, C3+11*, C3+14*, C3+19*, C5
>> DGADWK C3+3*, C4+2*, C5
DGBDT BDATE+1*, END!, CALC+2
>> DGCAN C3+3*, C3+12*, C5
>> DGCHT C3+5*, C5
>> DGCMT C3+3*, C3+13*, C5
>> DGDFN1 C2*, C3*, C3+2, C3+11, C5
>> DGDT CALC+2*, CALC+3, C1*, C2, C3, C3+14, C3+18, C4, C5
DGEDT EDATE+1*, END!, CALC+2*, C1
>> DGLOS C3+8*, C5
>> DGNM C3+3*, C3+4*, C5
>> DGNS C3+3*, C3+12*, C5
>> DGOBS C3+3*, C3+9*, C5
>> DGOPT ADGDSAU+3
>> DGOPT("QA1" C4
>> DGPRC C3+3*, C3+7*, C5
>> DGREL C3+17*, C3+18
>> DGSRV C3+3*, C3+7*, C3+10*, C5
>> DGSTR C3+2*, C3+7
>> DGSTR2 C3+11*, C3+12, C3+13, C3+17
>> DGUNES C3+3*, C3+13*, C5
>> DGX CALC+3*, C3+19*, C4+1*, C4+2
>> DGX1 C3+18*, C3+19
>> DGY C3+19*
DUZ(2 C3+5
IO EDATE+3
IO("Q" EDATE+3, QUE!
IOF ADGDSAU+4
>> POP EDATE+3
U C3+4, C3+5, C3+7, C3+10, C3+11, C3+12, C3+13, C3+17, C3+19, C4
, C5
>> X BDATE*, EDATE*, C3+14*, C4+1
>> X1 C4*
>> X2 C4*
Y BDATE+1, EDATE+1, END!, C4*, C4+2
>> ZTDESC QUE*
>> ZTRTN QUE*
>> ZTSAVE("DGBDT" QUE+1*
>> ZTSAVE("DGEDT" QUE+1*
>> ZTSAVE("DGOPT(" QUE+1*
ZTSK QUE+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All