Routine: ADGCEN1

Information

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

Source file <ADGCEN1.m>

Package	Total	Caller Graph
Registration	1	DG IHS CEN LIST WARD/SERVICE

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: ADGCEN1+6
Function Call: WRITE	Prompt: !!?20,"LIST CENSUS DATA BY WARD AND SERVICE",!! Line Location: ADGCEN1+6
Routine Call	%ZIS Line Location: END
Routine Call	DIR Line Location: WARD SRV AGE+3
Routine Call	%ZIS Line Location: EDATE+3

Name	Field # of Occurrence
>> %DT	BDATE, EDATE
>> %DT("A"	BDATE, EDATE
>> %ZIS	EDATE+3*
DGAGE	AGE+4*, END!
DGBDT	BDATE+1*, END!
DGEDT	EDATE+1*, END!
DGI	QUE+1*, END!
DGSRV	SRV+1*, END!
DGWD	WARD+1*, END!
DIR	WARD!, SRV!, AGE!, END!
DIR("?"	AGE+1, AGE+2
DIR("A"	AGE*
DIR(0	WARD, SRV, AGE+3*
>> DIRUT	WARD+1, SRV+1, AGE+3
IO	EDATE+3
IO("Q"	EDATE+3, QUE!
IOF	ADGCEN1+6
>> POP	EDATE+3
>> X	BDATE, EDATE
Y	WARD+1, SRV+1, AGE+3, AGE+4, BDATE+1, EDATE+1, END!
>> ZTDESC	QUE*
>> ZTRTN	QUE*
>> ZTSAVE(	QUE+1*
ZTSK	QUE+2!