Routine: AQAQPR31

Package	Total	Call Graph
Quality Assurance	1	^AQAQPR32

Package	Total	Caller Graph
Quality Assurance	1	AQAQPR3

Entry Points

Name	Comments	DBIA/ICR reference
FINDDX	;***> SUBRTN to get diagnoses for visits that passed screens
FINDPROV	;***> SUBRTN to find primary provider for ambulatory visits
LOOP
NEXT	;>>> go to print rtn <<<

Name	Field # of Occurrence
^AQAQPR32	NEXT+1

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("BRK"	AQAQPR31+4
^%ZOSF("TRAP"	AQAQPR31+4
^AQAQC - [#9002165]	LOOP+15
^AUPNVINP - [#9000010.02]	LOOP+3
^AUPNVINP("B"	LOOP, LOOP+2
^AUPNVPOV - [#9000010.07]	FINDDX+3
^AUPNVPOV("AD"	FINDDX+2
^AUPNVPRV - [#9000010.06]	FINDPROV+3
^AUPNVPRV("AD"	FINDPROV+2
^AUPNVSIT - [#9000010]	LOOP+5
^DIC(16 - [#16]	LOOP+18
^DIC(6 - [#6]	LOOP+13
^DIC(7 - [#7]	LOOP+17
^ICD9 - [#80]	FINDDX+5
^UTILITY("AQAQPR3"	AQAQPR31+5!, FINDDX+9*

Name	Line Occurrences
FINDDX	LOOP+19
FINDPROV	LOOP+10

Name	Field # of Occurrence
^(0	LOOP+3, FINDDX+3, FINDPROV+3

Name	Field # of Occurrence
>> AQAQBDT	AQAQPR31+6
>> AQAQCAT	LOOP+15*, LOOP+16
>> AQAQCDX	FINDDX+4
>> AQAQCLS	LOOP+13, LOOP+14, LOOP+17, LOOP+18
>> AQAQDT	AQAQPR31+6, LOOP, LOOP+2, FINDDX+9
>> AQAQEDT	AQAQPR31+6
>> AQAQEND	AQAQPR31+6*, LOOP
>> AQAQH	LOOP+3*, LOOP+4
>> AQAQHDFN	LOOP+1, LOOP+2, LOOP+3, FINDDX+7
>> AQAQICD	FINDDX+5, FINDDX+8, FINDDX+9
>> AQAQP	FINDDX+3*, FINDDX+4, FINDDX+5
>> AQAQPDFN	FINDDX+1, FINDDX+2, FINDDX+3, FINDDX+7
>> AQAQPRV	LOOP+11, LOOP+12, LOOP+13, LOOP+15, LOOP+18, FINDDX+9, FINDPROV+5
>> AQAQR	FINDPROV+3*, FINDPROV+4, FINDPROV+5
>> AQAQRDFN	FINDPROV+1, FINDPROV+2, FINDPROV+3
>> AQAQSRT	LOOP+12, LOOP+14, LOOP+16
>> AQAQSTR	FINDDX+7*, FINDDX+9
>> AQAQTYP	LOOP+12, LOOP+14, LOOP+16
>> AQAQV	LOOP+5*, LOOP+6, LOOP+7, LOOP+8, LOOP+9
>> AQAQVDFN	LOOP+4*, LOOP+5, FINDDX+2, FINDDX+9, FINDPROV+2
DUZ(2	LOOP+9
U	LOOP+4, LOOP+6, LOOP+7, LOOP+8, LOOP+9, LOOP+13, LOOP+15, LOOP+17, LOOP+18, FINDDX+4 , FINDDX+5, FINDDX+7, FINDPROV+4, FINDPROV+5
>> X	AQAQPR31+4*