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

Package: IHS Changes To ADT

Routine: ADGDSST


Information

ADGDSST ; IHS/ADC/PDW/ENM - DAY SURGERY STATISTICS BY SERVICE ; [ 12/16/2003 3:14 PM ]

Source Information

Source file <ADGDSST.m>

Call Graph

Call Graph Total: 7

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DG IHS DS SPECIALTY STATS  

Entry Points

Name Comments DBIA/ICR reference
END1 ;***> eoj
HEAD ;***> subrtn to print heading
BDATE
END
EXIT
PRINT ;***> print
P1
QUE
C3
C2
C1
CALC ;***> sort by surgery date and find service and age
EDATE

External References

Name Field # of Occurrence
^%DT BDATE, EDATE
^%ZIS EDATE+4
HOME^%ZIS END
^%ZISC QUE+4, END1+2
^%ZTLOAD QUE+4
KILL^ADGUTIL END1+2
TIME^ADGUTIL HEAD+3
PRTOPT^ADGVAR END1+1
VAR^ADGVAR ADGDSST+3
$$VAL^XBDIQ1 C3+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!!?18,"DAY SURGERY STATISTICS BY SERVICE",!!
  • Line Location: ADGDSST+8
Function Call: WRITE
  • Prompt: !?3,DGSRV
  • Line Location: P1+1
Function Call: WRITE
  • Prompt: ?29,$J(DGA(DGSRV,"A"),3),?41,$J(DGA(DGSRV,"P"),3)
  • Line Location: P1+1
Function Call: WRITE
  • Prompt: ?63,$J(DGA(DGSRV,"A")+DGA(DGSRV,"P"),4)
  • Line Location: P1+2
Function Call: WRITE
  • Prompt: !,DGLIN,!!!?3,"TOTALS:"
  • Line Location: EXIT+0
Function Call: WRITE
  • Prompt: ?28,$J(DGY,4),?40,$J(DGY1,4),?63,$J((DGY+DGY1),4)
  • Line Location: EXIT+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END1+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,DGDUZ,?82-$L(DGFAC)\2,DGFAC
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: ?23,"DAY SURGERY STATISTICS BY SERVICE"
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !,$E(DT,4,5)_"/"_$E(DT,6,7)_"/"_$E(DT,2,3),?24,"from ",DGX," to ",DGY
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: !!?5,"SERVICE",?29,"ADULT",?41,"PEDS",?57,"TOTAL FOR SERVICE"
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: !,DGLIN1,!
  • Line Location: HEAD+8
Routine Call
  • %ZIS
  • Line Location:
    • END
Routine Call
  • %ZIS
  • Line Location:
    • EDATE+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ADGDS - [#9009012] C3+1, C3+2
^ADGDS("AA" C1, C2, C3
^BDGPAR(1 ADGDSST+5
^DG(43 - [#43] ADGDSST+3
^DIC(4 - [#4] PRINT+1
^DIC(45.7 - [#45.7] C3+3
^TMP($J C3+5*
^VA(200 - [#200] PRINT+1

Label References

Name Line Occurrences
C1 C2
C2 C3
C3 C3+1, C3+2, C3+5, C3+11
CALC EDATE+4
END BDATE+1, EDATE+1, EDATE+4
EXIT P1
HEAD PRINT+4
P1 P1+2
PRINT C1
QUE EDATE+4

Naked Globals

Name Field # of Occurrence
^(0 C3+1, C3+3
^(2 C3+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT BDATE*, EDATE*
>> %DT("A" BDATE*, EDATE*
>> %ZIS EDATE+4*
>> AGE C3+4*, C3+5, C3+9
>> DFN C1*, C2*, C3, C3+1, C3+2, C3+4, C3+5
>> DGA( C3+9*, C3+10*, P1, P1+1, P1+2, EXIT+1, EXIT+3
DGBDT BDATE+1*, END!, CALC+1, HEAD+4
>> DGDT CALC+1*, C1*, C2, C3
>> DGDUZ PRINT+1*, HEAD+2
DGEDT EDATE+1*, END!, C1, HEAD+5
>> DGFAC PRINT+1*, HEAD+2
>> DGI QUE+3*
>> DGLIN PRINT+2*, EXIT
>> DGLIN1 PRINT+2*, HEAD+8
>> DGN C2*, C3*, C3+1, C3+2
>> DGOPT("GEN" ADGDSST+3, ADGDSST+4, ADGDSST+5*, C3+9
>> DGPAGE PRINT+4*, HEAD+1, HEAD+2*
>> DGSRV C3+1*, C3+3*, C3+9, C3+10, PRINT+4*, P1*, P1+1, P1+2
>> DGX EXIT+1*, HEAD+4*, HEAD+6
>> DGX1 EXIT+2*, EXIT+3*
>> DGY EXIT+1*, EXIT+4, HEAD+5*, HEAD+6
>> DGY1 EXIT+2*, EXIT+3*, EXIT+4
DT HEAD+6
DUZ PRINT+1
DUZ(2 PRINT+1
IO EDATE+4
IO("Q" EDATE+4, QUE!
IOF ADGDSST+8, END1+2, HEAD+1
IOST END1+1, HEAD+1
>> POP EDATE+4
U ADGDSST+5, C3+1, C3+2, C3+3, C3+9, PRINT+1
>> X BDATE*, EDATE*
Y BDATE+1, EDATE+1, END!
>> ZTDESC QUE*
>> ZTRTN QUE*
>> ZTSAVE( QUE+3*
ZTSK QUE+4!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All