Routine: ADGSTAT

Information

ADGSTAT ; IHS/ADC/PDW/ENM - INPATIENT STATISTICS BY SERVICE ; [ 03/25/1999 11:48 AM ]

Source file <ADGSTAT.m>

Package	Total	Caller Graph
Registration	1	DG IHS CEN STATS BY SPECIALTY

Name	Comments	DBIA/ICR reference
BDATE
END
NEXT
QUE
C2
C1
CALC	;***> Beginning of calculate of ADPL & inpatient data
EDATE

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!!?18,"INPATIENT STATISTICS BY SERVICE",!! Line Location: ADGSTAT+3
Function Call: WRITE	Prompt: !!,*7,"Ending date cannot be earlier than beginning date!" Line Location: EDATE+3
Function Call: WRITE	Prompt: !,"Let's start over . . ",! Line Location: EDATE+4
Routine Call	%ZIS Line Location: END
Routine Call	%ZIS Line Location: EDATE+8

Name	Line Occurrences (* Changed, ! Killed)
^ADGTX - [#9009011.5]	CALC+1, C1, C2, C2+1

Name	Field # of Occurrence
>> %DT	BDATE, EDATE
>> %DT("A"	BDATE, EDATE
>> %ZIS	EDATE+8*
>> DGA(	CALC+1, C2+2, C2+3, C2+4, C2+5, C2+6, C2+7, C2+8
DGBDT	BDATE+1*, EDATE+2, END!, C1
>> DGD	C1, C2, C2+1
DGEDT	EDATE+5*, END!, C2
>> DGP(	CALC+1, C2+9, C2+10, C2+11, C2+12, C2+13, C2+14, C2+15
>> DGSTR	C2+1*, C2+2, C2+3, C2+4, C2+5, C2+6, C2+7, C2+8
>> DGSTR1	C2+1*, C2+9, C2+10, C2+11, C2+12, C2+13, C2+14, C2+15
>> DGZ	CALC+1, CALC+2, C1*, C2, C2+1, C2+2, C2+3, C2+4, C2+5, C2+6 , C2+7, C2+8, C2+9, C2+10, C2+11, C2+12, C2+13, C2+14, C2+15
IO	EDATE+8
IO("Q"	EDATE+8, QUE!
IOF	ADGSTAT+3
>> POP	EDATE+8
U	C2+2, C2+3, C2+4, C2+5, C2+6, C2+7, C2+8, C2+9, C2+10, C2+11 , C2+12, C2+13, C2+14, C2+15
>> X	BDATE, EDATE
Y	BDATE+1, EDATE+1, EDATE+2, EDATE+5, END!
>> ZTDESC	QUE*
>> ZTRTN	QUE*
>> ZTSAVE("DGBDT"	QUE+1*
>> ZTSAVE("DGEDT"	QUE+1*
ZTSK	QUE+2!