Routine: ADGDSQA

Package	Total	Caller Graph
Registration	1	DG IHS DS PROVIDER QA REPORT

Name	Comments	DBIA/ICR reference
BDATE
END
PROV	;***> select one or all providers
NEXT
ONE
QUE
C3
C2
C1
CALC	;***> Set up sorted utility file for date range
EDATE
C4

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!!?28,"DAY SURGERY PROVIDER QA REPORT",!! Line Location: ADGDSQA+6
Function Call: WRITE	Prompt: !!,*7,"Report requires wide printer or condensed print.",! Line Location: ONE+4
Routine Call	%ZIS Line Location: END
Routine Call	DIR Line Location: PROV+3 ONE
Routine Call	%ZIS Line Location: ONE+5

Name	Line Occurrences (* Changed, ! Killed)
^ADGDS - [#9009012]	C3+1, C3+6
^ADGDS("AA"	C1, C2, C3
^AUPNPAT - [#9000001]	C4+3
^DG(43 - [#43]	ADGDSQA+4
^DGPM("ATID1"	C3+16
^DIC(45.7 - [#45.7]	C4+5
^DPT - [#2]	C4+6
^TMP($J	CALC+1!, C4+8*

Name	Field # of Occurrence
^(0	C3+1, C4+3

Name	Field # of Occurrence
>> %DT	BDATE, EDATE
>> %DT("A"	BDATE, EDATE
>> %ZIS	ONE+5*
>> DFN	C1, C2, C3, C3+1, C3+6, C3+16, C4+3, C4+6, C4+8
>> DGADM	C3+2, C3+6, C3+7, C4, C4+8
>> DGADWK	C3+2, C3+17, C4, C4+8
DGBDT	BDATE+1*, END!, CALC+1
>> DGCHT	C4+3*, C4+8
>> DGCMT	C3+2, C4+6, C4+8
>> DGDFN1	C2, C3, C3+1, C3+6
>> DGDT	CALC+1, C1, C2, C3, C3+14, C4+8
DGEDT	EDATE+1, END!, CALC+1, C1
>> DGI	QUE+2*
>> DGNM	C3+2, C4+6, C4+8
>> DGOBS	C3+2, C3+7, C4, C4+8
>> DGOPT("QA1"	ADGDSQA+4, C3+14
>> DGPRC	C3+2, C4+4, C4+8
>> DGPRV	C3+2, C3+3, C4+8
>> DGPV	PROV+3, ONE+1, C3+3
>> DGSRV	C3+2, C4+4, C4+5*, C4+8
>> DGSTR	C3+1*, C3+3, C3+7, C4+4
>> DGSTR2	C3+6*, C4+6
>> DGX	C3+15, C3+16, C3+17
DIR	PROV+1!, ONE!
DIR("?"	PROV+2*
DIR("A"	PROV+1*
DIR("B"	PROV+2*
DIR(0	PROV+1, ONE
>> DIROUT	PROV+3
>> DIRUT	ONE+1
>> DTOUT	PROV+3
>> DUOUT	PROV+3
DUZ(2	C4+3
IO	ONE+5
IO("Q"	ONE+5, QUE!
IOF	ADGDSQA+6
>> POP	ONE+5
U	C3+3, C3+6, C3+7, C3+14, C4+3, C4+4, C4+5, C4+6, C4+8
>> X	BDATE, EDATE, C3+15
>> X1	C3+14*
>> X2	C3+14*
Y	BDATE+1, EDATE+1, PROV+3, ONE, ONE+1, END!, C3+14*, C3+17
>> ZTDESC	QUE*
>> ZTRTN	QUE*
>> ZTSAVE(	QUE+2*
ZTSK	QUE+3!

Information