Routine: ADGCEN0

Information

ADGCEN0 ; IHS/ADC/PDW/ENM - CENSUS AID-LIST BY WARD ; [ 03/25/1999 11:48 AM ]

Package	Total	Caller Graph
IHS Changes To ADT	1	ADGCEN

Name	Comments	DBIA/ICR reference
END1
NEWPG	;***> subrtn for end of page control
DT1
END
HEAD	;***> subrtn to print heading

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$E(DGDT,4,5)_"/"_$E(DGDT,6,7)_"/"_$E(DGDT,2,3) Line Location: DT1+7
Function Call: WRITE	Prompt: ?17,$P(DGSTR,U,3)+$P(DGSTR,U,13),?27,$P(DGSTR,U,5)+$P(DGSTR,U,15) Line Location: DT1+11
Function Call: WRITE	Prompt: ?37,$P(DGSTR,U,6)+$P(DGSTR,U,16),?48,$P(DGSTR,U,4)+$P(DGSTR,U,14) Line Location: DT1+12
Function Call: WRITE	Prompt: ?58,$P(DGSTR,U,7)+$P(DGSTR,U,17),?69,$P(DGSTR,U,2)+$P(DGSTR,U,12) Line Location: DT1+13
Function Call: WRITE	Prompt: @IOF Line Location: END1+0
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+1
Function Call: WRITE	Prompt: !,DGDUZ,?80-$L(DGSITE)/2,DGSITE Line Location: HEAD+2
Function Call: WRITE	Prompt: ! Line Location: HEAD+3
Function Call: WRITE	Prompt: ?28,"ADT WARD CENSUS DATA FOR" Line Location: HEAD+3
Function Call: WRITE	Prompt: !,Y Line Location: HEAD+4
Function Call: WRITE	Prompt: ?80-$L(DGTL)/2,DGTL,?70,"Page: ",DGPAGE Line Location: HEAD+5
Function Call: WRITE	Prompt: !,DGLIN Line Location: HEAD+6
Function Call: WRITE	Prompt: !,"Date",?15,"Admits",?25,"Trans In",?35,"Trans Out" Line Location: HEAD+7
Function Call: WRITE	Prompt: ?46,"Disch",?55,"Deaths",?65,"Remaining" Line Location: HEAD+8
Function Call: WRITE	Prompt: !,DGLIN,! Line Location: HEAD+9
Routine Call	DIR Line Location: END NEWPG+2

Name	Line Occurrences (* Changed, ! Killed)
^ADGWD - [#9009011]	DT1, DT1+2, DT1+6
^DD("DD"	HEAD+4
^DIC(4 - [#4]	ADGCEN0+4
^DIC(42 - [#42]	ADGCEN0+5
^VA(200 - [#200]	ADGCEN0+4

Name	Field # of Occurrence
DGBDT	ADGCEN0+9, END1!
DGDT	ADGCEN0+9, DT1, DT1+2, DT1+4, DT1+6, DT1+7, END1!
DGDUZ	ADGCEN0+4*, END1+1!, HEAD+2
DGEDT	DT1, END1!
DGLIN	END1!, HEAD+6, HEAD+9
DGPAGE	ADGCEN0+4, END1!, HEAD+1, HEAD+2, HEAD+5
DGSITE	ADGCEN0+4*, END1!, HEAD+2
DGSTOP	DT1+14, END1+1!, NEWPG+1, NEWPG+2, NEWPG+3
DGSTR	DT1+6*, DT1+11, DT1+12, DT1+13, END1+1!
DGTL	ADGCEN0+5*, END1+1!, HEAD+5
DGTYP	END1+1!
DGWD	ADGCEN0+5, DT1, DT1+2, DT1+6, END1!
DGX	END1!
DIR	END!, END1+1!, NEWPG+2!
DIR(0	END, NEWPG+2
DT	HEAD+4
DUZ	ADGCEN0+4
DUZ(2	ADGCEN0+4
IOF	END1, HEAD+1
IOSL	DT1+14
IOST	END, NEWPG+1, HEAD+1
U	ADGCEN0+4, ADGCEN0+5, DT1+11, DT1+12, DT1+13, DT1+14, NEWPG+3
X	END1+1!, NEWPG+2
Y	END1+1!, HEAD+4*