Routine: ADGDODP

Package	Total	Caller Graph
IHS Changes To ADT	1	ADGDODC

Entry Points

Name	Comments	DBIA/ICR reference
SERV	;***> discharge service order
END1
HEAD	;***> subrtn to print heading
SV4
NM2
NAME	;***> alpha order by patient name
NEWPG	;***> subrtn for end of page control
NM1
LIN	;***> subrtn to print patient data
DT3
END	;***> eoj
NM3
DATE	;***> discharge date order
DT2
DT1
SV2
SV3
SV1

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: END1+0
Function Call: WRITE	Prompt: !,$E(DGNM,1,20) Line Location: LIN+1
Function Call: WRITE	Prompt: ?23,$J(DGX,6),?33,$E(DGSV,1,3) Line Location: LIN+2
Function Call: WRITE	Prompt: ?40,$E(DGDT,4,5)_"/"_$E(DGDT,6,7)_"/"_$E(DGDT,2,3) Line Location: LIN+3
Function Call: WRITE	Prompt: ?52,$E($P(^DIC(42.2,DGT,0),U),1,25) Line Location: LIN+4
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+1
Function Call: WRITE	Prompt: !,DGLIN Line Location: HEAD+2
Function Call: WRITE	Prompt: !?11,"***Confidential Patient Data Covered by Privacy Act***" Line Location: HEAD+3
Function Call: WRITE	Prompt: !,DGDUZ,?80-$L(DGSITE)/2,DGSITE Line Location: HEAD+4
Function Call: WRITE	Prompt: ! Line Location: HEAD+5
Function Call: WRITE	Prompt: ?80-$L(DGTY)/2,DGTY,?70,"Page: ",DGPAGE Line Location: HEAD+5
Function Call: WRITE	Prompt: !,Y Line Location: HEAD+6
Function Call: WRITE	Prompt: ?80-$L(DGX)/2,DGX Line Location: HEAD+7
Function Call: WRITE	Prompt: !,DGLIN,!,"Patient Name",?24,"Chart #",?33,"SRV" Line Location: HEAD+8
Function Call: WRITE	Prompt: ?38,"Date of Death",?55,"Discharge Type" Line Location: HEAD+9
Function Call: WRITE	Prompt: !,DGLIN2,! Line Location: HEAD+10
Routine Call	DIR Line Location: END+1 NEWPG+2

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	LIN+1
^DD("DD"	HEAD+6
^DIC(4 - [#4]	ADGDODP+5
^DIC(42.2 - [#42.2]	LIN+4
^TMP("DGZDOD"	DT1, DT2, DT3, DT3+1, SV1, SV2, SV3, SV4, SV4+3, NM1 , NM2, NM3, NM3+1, END1+1!
^VA(200 - [#200]	ADGDODP+4

Name	Field # of Occurrence
>> DFN	DT2, DT3, DT3+1, SV3, SV4, SV4+3, NM1, NM2, NM3, NM3+1 , LIN+1
>> DGDT	DATE+1, DT1, DT2, DT3, DT3+1, SV1, SV2, SV3, SV4, SV4+3 , NM2, NM3, NM3+1, LIN+3
>> DGDUZ	ADGDODP+4*, HEAD+4
>> DGLIN	ADGDODP+6*, HEAD+2, HEAD+8
>> DGLIN2	ADGDODP+7*, HEAD+10
>> DGNM	DT1, DT2, DT3, DT3+1, SV2, SV3, SV4, SV4+3, NAME+1, NM1 , NM2, NM3, NM3+1, LIN+1
>> DGPAGE	ADGDODP+4, HEAD+1, HEAD+2, HEAD+5
>> DGS	DT3+1, NM3+1
>> DGSITE	ADGDODP+5*, HEAD+4
>> DGSTOP	ADGDODP+4, DT3+2, SV4+3, NM3+2, NEWPG+1, NEWPG+2*, NEWPG+3
>> DGSV	DT3+1, SERV+1, SV1, SV2, SV3, SV4, SV4+3, NM3+1, LIN+2
>> DGT	DT3+1, SV4+3, NM3+1*, LIN+4
>> DGTY	HEAD+4*, HEAD+5
>> DGTYP	ADGDODP+9, HEAD+7
>> DGX	LIN+1, LIN+2, HEAD+7
DIR	END+1!, NEWPG+2!
DIR(0	END+1, NEWPG+2
DT	HEAD+6
DUZ	ADGDODP+4
DUZ(2	ADGDODP+5, LIN+1
IOF	END1, HEAD+1
IOSL	LIN+5
IOST	END+1, NEWPG+1, HEAD+1
U	ADGDODP+4, ADGDODP+5, DT3+1, DT3+2, SV4+3, NM3+1, NM3+2, LIN+1, LIN+4, NEWPG+3
>> X	NEWPG+2
>> Y	HEAD+6*