Routine: DGDIST

Package	Total	Call Graph
Registration	4	^DGDIST1 DIV^DGUTL (CLOSE,ZIS)^DGUTQ PID^VADPT6
VA Fileman	4	^%DT (C,H)^%DTC YN^DICN DT^DICRW
Kernel	1	^%ZIS

Package

Total

Call Graph

^DGDIST1 DIV^DGUTL (CLOSE,ZIS)^DGUTQ PID^VADPT6

^%DT (C,H)^%DTC YN^DICN DT^DICRW

^%ZIS

Package	Total	Caller Graph
Registration	2	DG DISPOSITION TIME STATS DGDIST1

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,*7 Line Location: DGDIST+2
Function Call: WRITE	Prompt: "EARLIEST REGISTRATION ON FILE IS '",Y,"'." Line Location: DGDIST+2
Function Call: WRITE	Prompt: "NO REGISTRATIONS ON FILE TO START WITH!!" Line Location: DGDIST+3
Function Call: WRITE	Prompt: !?4,"Can't be before earliest registration Date.",*7 Line Location: 1+0
Function Call: WRITE	Prompt: !?4,"Can't be before the Start Date.",*7 Line Location: 2+0
Function Call: WRITE	Prompt: !!,"WANT A LISTING OF UNDISPOSITIONED REGISTRATIONS DURING THIS TIMEFRAME" Line Location: 3+0
Function Call: WRITE	Prompt: !!?4,"As I'm gathering data for this report I may run across some registrations",!?4,"in the timeframe selected which have not yet been dispositioned which I do" Line Location: 3+1
Function Call: WRITE	Prompt: !?4,"not include in the statistics. If you want a listing of those patients for",!?4,"whom a disposition date/time has not been entered answer YES otherwise",!?4,"answer NO to this prompt." Line Location: 3+2
Function Call: WRITE	Prompt: !!,*7,"Note: This report requires a column width of 132." Line Location: 4+0
Function Call: WRITE	Prompt: ! Line Location: Q+0
Routine Call	%ZIS Line Location: S

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	DGDIST+2, 2, S, S+1, SET+4
^DG(40.8 - [#40.8]	SET+1
^DIC(37 - [#37]	SET+1
^DPT - [#2]	S+3, SET+2
^DPT("ADIS"	DGDIST+2, S+3
^UTILITY($J	S!, S+4, SET+3, SET+4*, N, Q!

Name	Line Occurrences
1	DGDIST+2, 1
2	2
3	3+2
4	3
N	SET+7, SET+8, SET+9, SET+10, SET+11, SET+12, SET+13, SET+14, SET+15
Q	DGDIST+3, 1, 2, 3, 4, S+4
SET	S+3

Name	Field # of Occurrence
%	3*, Q!
%DT	1*, 4!, Q!
%DT("A"	1, 2
%DT("B"	2*
%DT(0	1*
%H	SET+5, SET+6, Q!
%Y	Q!
D	Q!
DFN	S+3*, SET+2, Q!
DGA	Q!
DGC	S, SET+4, Q!
DGD	S+3*, SET, SET+1, SET+4, SET+5, Q!
DGDIV	SET+1, Q!
DGEAR	DGDIST+2*, 1, Q!
DGF	SET+1*, SET+3, SET+4, N, Q!
DGFR	1, 2, S+1, S+2, S+3*, Q!
DGH	SET+1*, SET+3, N, Q!
DGHD	S+1*, Q!
DGL	Q!
DGL1	Q!
DGM	SET+7*, SET+8, SET+9, SET+10, SET+11, SET+12, SET+13, SET+14, SET+15, Q!
DGN	S+3*, Q!
DGP	SET+7, SET+8, SET+9, SET+10, SET+11, SET+12, SET+13, SET+14, SET+15, SET+16 , N, Q!
DGPG	Q!
DGPGM	4*, Q!
DGPR	S*, Q!
DGS	SET+2*, SET+4, Q!
DGTO	2, S+1, S+2, S+3, Q!
DGU	3*, SET+4, Q!
DGU1	Q!
DGVAR	4*, Q!
DGW	SET+2*, SET+4, Q!
DGX	SET+5*, SET+7, Q!
DGX1	SET+5, SET+6, Q!
DGY	SET+7, SET+8, N, Q!
DT	DGDIST+2, 1, 2, S
I	S+3*, Q!
I1	Q!
IO	4
IOF	S
IOP	S*!
POP	4, Q!
U	DGDIST+2, S
VA	Q!
VA("PID"	SET+2
VAERR	Q!
X	S+2, SET+5, SET+6, SET+7*, Q!
X1	S+2, SET+7, Q!
X2	S+2, SET+7, Q!
X3	SET+7*, Q!
Y	DGDIST+2, 1, 2, S, S+1, SET+4, SET+7, Q!
Z	Q!

Information