Routine: BDGILD63

Entry Points

Name	Comments	DBIA/ICR reference
DSCH3
DSCH2
DSCH1
END	;EP; ***> eoj
DSCH4
HEAD	;***> subrtn to print heading
NEWPG	;***> subrtn for end of page code
END1	;EP;
DSCH	;***> print discharges by date, service, then facility
ADM4
LINE	;***> subrtn to print line
ADM1
ADM2
ADM3

Name	Line Occurrences
Function Call: WRITE	Prompt: !?30,"ADMISSIONS",! Line Location: BDGILD63+5
Function Call: WRITE	Prompt: !!?30,"DISCHARGES",! Line Location: DSCH+1
Function Call: WRITE	Prompt: @IOF Line Location: END1+1
Function Call: WRITE	Prompt: !,$E(DGDT,4,5)_"/"_$E(DGDT,6,7)_"/"_$E(DGDT,2,3)_"@"_DGTM Line Location: LINE+2
Function Call: WRITE	Prompt: ?17,$E($P(^DPT(DFN,0),U),1,20) Line Location: LINE+3
Function Call: WRITE	Prompt: ?40,$J(DGHR,6) Line Location: LINE+4
Function Call: WRITE	Prompt: ?52,$E(DGSV,1,3),?60,$E(DGF,1,18) Line Location: LINE+5
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+1
Function Call: WRITE	Prompt: !,DGLINE 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(DGFAC)/2,DGFAC 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: !,DGLINE,!,"Date/Time",?17,"Patient Name",?40,"Chart #" Line Location: HEAD+8
Function Call: WRITE	Prompt: ?50,"Service",?60,"Facility",!,DGLINE2,! Line Location: HEAD+9
Routine Call	DIR Line Location: END+1 NEWPG+2

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	LINE+4
^DD("DD"	HEAD+6
^DPT - [#2]	LINE+3
^TMP("BDGILD61A"	ADM1, ADM2, ADM3, ADM4, END1+2!
^TMP("BDGILD61D"	DSCH1, DSCH2, DSCH3, DSCH4, END1+2!

Name	Field # of Occurrence
>> BDGTYP	BDGILD63+5
>> DFN	ADM3, ADM4, DSCH3, DSCH4, LINE+3, LINE+4
>> DGDT	BDGILD63+5, ADM1, ADM2, ADM3, ADM4, DSCH+1, DSCH1, DSCH2, DSCH3, DSCH4 , LINE+1, LINE+2
>> DGDUZ	HEAD+4
>> DGF	ADM2, ADM3, ADM4, DSCH2, DSCH3, DSCH4, LINE+5
>> DGFAC	HEAD+4
>> DGHR	LINE+4*
>> DGLINE	HEAD+2, HEAD+8
>> DGLINE2	HEAD+9
>> DGPAGE	HEAD+1, HEAD+2*, HEAD+5
>> DGSTOP	BDGILD63+3, ADM4+1, DSCH4+1, NEWPG+1, NEWPG+2*, NEWPG+3
>> DGSV	ADM1, ADM2, ADM3, ADM4, DSCH1, DSCH2, DSCH3, DSCH4, LINE+5
>> DGTM	LINE+1*, LINE+2
>> DGTY	HEAD+4*, HEAD+5
>> DGX	HEAD+7*
DIR	END+1!, NEWPG+2!
DIR(0	END+1, NEWPG+2
DT	HEAD+6
DUZ(2	LINE+4
IOF	END1+1, HEAD+1
IOSL	DSCH+1, LINE+6
IOST	END+1, NEWPG+1, HEAD+1
U	ADM4+1, DSCH4+1, LINE+3, LINE+4, NEWPG+3
>> X	NEWPG+2
>> Y	HEAD+6*