Routine: DGDISS

Package	Total	Call Graph
VA Fileman	3	^%DT C^%DTC YN^DICN
Registration	2	LO^DGUTL (CLOSE,ZIS)^DGUTQ

Package

Total

Call Graph

VA Fileman

^%DT C^%DTC YN^DICN

Registration

LO^DGUTL (CLOSE,ZIS)^DGUTQ

Package	Total	Caller Graph
Registration	1	DG DISPOSITION SUMMARY

Package

Total

Caller Graph

Registration

DG DISPOSITION SUMMARY

Name	Field # of Occurrence
^%DT	SD, ED, HD+1
C^%DTC	MON
LO^DGUTL	DGDISS+3
CLOSE^DGUTQ	Q
ZIS^DGUTQ	OU
YN^DICN	AN

Interaction Calls

Name	Line Occurrences
Function Call: READ	Prompt: "START DATE: " Formatting: ! Timeout: DTIME Variable: X Line Location: SD+0
Function Call: WRITE	Prompt: !!,"Run statistics for the whole month" Line Location: AN+0
Function Call: WRITE	Prompt: !?4,"YES - To generate a log for this entire month",!?4,"NO - To select an end date to which to generate log." Line Location: AN+1
Function Call: READ	Prompt: "END DATE: " Formatting: ! Timeout: DTIME Variable: X Line Location: ED+0
Function Call: WRITE	Prompt: !?4,*7,"Can't preceed start date." Line Location: ED+0
Function Call: WRITE	Prompt: ! Line Location: OU+0
Function Call: WRITE	Prompt: !,$S($D(^DIC(37,S,0)):$E($P(^(0),"^",1),1,30),S=0:"NOT DISPOSITIONED YET",1:"UNDEFINED DISPOSITION "_S),?30 Line Location: P1+0
Function Call: WRITE	Prompt: ?(S1*13+30),$J(T(S1),6) Line Location: P1+2
Function Call: WRITE	Prompt: $J(T,13) Line Location: P1+3
Function Call: WRITE	Prompt: ! Line Location: TOT+0
Function Call: WRITE	Prompt: "=" Line Location: TOT+0
Function Call: WRITE	Prompt: !!,"TOTAL" Line Location: TOT+1
Function Call: WRITE	Prompt: ?(S1*13+30),$J(TOT(S1),6) Line Location: TOT+1
Function Call: WRITE	Prompt: $J(TOT,13),! Line Location: TOT+2
Function Call: WRITE	Prompt: Y," to " Line Location: HD+0
Function Call: WRITE	Prompt: Y Line Location: HD+0
Function Call: WRITE	Prompt: !,?25," run " Line Location: HD+1
Function Call: WRITE	Prompt: Y,?70,"PAGE: ",PG+1 Line Location: HD+1
Function Call: WRITE	Prompt: !!?31,"10-10",?38,"UNSCHEDULED",?52,"APPLICATIONS",!,"DISPOSITION",?30,"VISITS",?43,"VISITS",?54,"W/O EXAM",?70,"TOTAL",! Line Location: HD+2
Function Call: WRITE	Prompt: "=" Line Location: HD+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: CRCHK+0

Name	Line Occurrences (* Changed, ! Killed)
^DD("SITE"	S2+1, HD
^DG(40.8 - [#40.8]	HD
^DIC(37 - [#37]	P1
^DPT - [#2]	S2
^DPT("ADIS"	S, S1, S2

Name	Line Occurrences
AN	AN+1
CRCHK	HD
D	HD, HD+1
DON	S
ED	AN, ED
HD	PRINT+1, P1
MON	AN
OU	MON
P1	P1+3
PRINT	DON
Q	SD, AN, ED, OU
S	S1
S1	S2
S2	S2, S2+1
SD	SD
TOT	P1

Name	Field # of Occurrence
^(	S2
^(0	S2, P1
^(1	S2+1

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	AN, D
%DT	SD, ED, Q!, HD+1!*
%DT(0	SD*
D	Q!
>> DGPGM	OU*
>> DGVAR	OU*
>> DGX	DON, PRINT+1, P1, HD, CRCHK
DIS	START!, Q!
DIS(	S2+1*, DON, P1+1
DIST	S2+1*, Q!
DT	SD
DTD	Q!, HD+1*
DTIME	SD, ED, CRCHK
ED	ED, START, S, Q!, MON*, HD
I	Q!, TOT, HD+2
I1	Q!
>> II	DON*
IO	START
IOF	HD
IOSL	P1
IOST	CRCHK
L	S2*, S2+1, Q!
L1	S2*, Q!
L2	Q!
L3	Q!
PG	DON, Q!, HD+1, CRCHK
POP	OU, Q!
S	START, S, S1, S2, Q!, PRINT+1, P1, P1+1
S1	S, S1, S2, Q!, PRINT+1, P1+2, TOT+1*
S2	S1, S2, Q!
S3	S2*, Q!
SD	SD*, AN, ED, START, Q!, MON, HD
SITE	S2+1, DON, Q!, P1+1, HD
ST	S2+1*, Q!
STAT	Q!
T	Q!, P1+1, P1+2, P1+3
T(	PRINT+1, P1+1, P1+2*
T1	Q!, P1+1*
TOT	Q!, TOT+1*, TOT+2
TOT(	PRINT+1, P1+1, TOT+1
U	S2+1
X	SD, ED, Q!, MON, HD+1, CRCHK
>> X1	MON*
>> X2	MON*
Y	SD, ED, Q!, D, HD, HD+1*
Z	Q!

Customize PDF page

Package: Registration

Routine: DGDISS

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: