Routine: DGPTDD

Package	Total	Call Graph
VA Fileman	1	^DIR

Package

Total

Call Graph

^DIR

Package	Total	Caller Graph
Registration	1	DGPTX1

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
ACTLST(DGADM)	; List of active suffixes
NEXTSCR	;
NEXTSCRQ	;
ACTIVE(X,Y,DGADM)	; Suffix active during patient's admission date?

Name	Field # of Occurrence
^DIR	NEXTSCR+2

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,"Choose From:",! Line Location: ACTLST+19
Function Call: WRITE	Prompt: ! Line Location: NEXTSCR+1
Function Call: WRITE	Prompt: @IOF,"Choose From:",! Line Location: NEXTSCR+3
Routine Call	DIR Line Location: NEXTSCR+2

Name	Line Occurrences (* Changed, ! Killed)
^DGPT - [#45]	ACTIVE+16, ACTLST+11
^DIC(45.68 - [#45.68]	ACTIVE+15, ACTIVE+18, ACTIVE+19, ACTIVE+20, ACTIVE+21, ACTLST+15, ACTLST+16, ACTLST+17, ACTLST+18
^DIC(45.81 - [#45.81]	ACTIVE+14, ACTLST+13, ACTLST+14, ACTLST+18
^TMP("ACTSUFF"	ACTLST+18*, ACTLST+20, ACTLST+22, ACTLST+23!

Name	Line Occurrences
NEXTSCR	ACTLST+21
NEXTSCRQ	NEXTSCR+2

Name	Field # of Occurrence
^(0	ACTIVE+16, ACTLST+11

Name	Field # of Occurrence
DGACT	ACTIVE+12~, ACTIVE+13, ACTIVE+21, ACTIVE+22
DGADM	ACTIVE~, ACTIVE+16, ACTIVE+17, ACTIVE+18, ACTLST~, ACTLST+11, ACTLST+12, ACTLST+15
DGCTR	ACTLST+9~, ACTLST+10, ACTLST+18
DGEFDT	ACTIVE+12~, ACTIVE+13, ACTIVE+18, ACTIVE+19*, ACTIVE+20
DGEFFDT	ACTLST+9~, ACTLST+10, ACTLST+15, ACTLST+16*, ACTLST+17
DGEFFIEN	ACTLST+9~, ACTLST+17*, ACTLST+18
DGEFIEN	ACTIVE+12~, ACTIVE+13, ACTIVE+20, ACTIVE+21
DGFL	ACTIVE+12~, ACTIVE+13, ACTIVE+14, ACTIVE+15
DGI	ACTIVE+12~, ACTIVE+14, ACTIVE+15, ACTLST+9~, ACTLST+14, ACTLST+15, ACTLST+16, ACTLST+17, ACTLST+18
DGOUT	ACTLST+9~, ACTLST+10, ACTLST+20, ACTLST+22, NEXTSCR+2
DGST	ACTLST+9~, ACTLST+13*, ACTLST+14, ACTLST+18
DGSUFPTR	ACTIVE+12~, ACTIVE+13, ACTIVE+15, ACTIVE+18, ACTIVE+19, ACTIVE+20, ACTIVE+21
DGX	ACTLST+9~, ACTLST+20*, ACTLST+22
DGY	ACTLST+9~, NEXTSCR+1*
DIR	NEXTSCR+2!
DIR(0	NEXTSCR+2*
DIRUT	NEXTSCR+2!
DT	ACTIVE+17, ACTLST+12
DTOUT	NEXTSCR+2!
DUOUT	NEXTSCR+2!
IOF	ACTLST+19, NEXTSCR+3
IOSL	ACTLST+21, NEXTSCR+1
U	ACTIVE+15, ACTIVE+16, ACTIVE+21, ACTLST+11, ACTLST+18, ACTLST+22
X	ACTIVE~, ACTIVE+15
Y	ACTIVE~, ACTIVE+14

Information