Routine: AQAQPR41

Package	Total	Call Graph
Quality Assurance	1	^AQAQPR42

Package	Total	Caller Graph
Quality Assurance	1	AQAQPR4

Entry Points

Name	Comments	DBIA/ICR reference
GETGRP	;***> SUBRTN to get diagnostic category
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
^AQAQPR42	NEXT+1

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("BRK"	AQAQPR41+4
^%ZOSF("TRAP"	AQAQPR41+4
^AQACCAT - [#9002160.2]	GETGRP+3
^AQACGM - [#9002160.3]	GETGRP+2
^AQACGM("B"	GETGRP+1
^AQAQC - [#9002165]	LOOP+13
^AUPNVPOV - [#9000010.07]	FINDDX+3
^AUPNVPOV("AD"	FINDDX+2
^AUPNVPRV - [#9000010.06]	FINDPROV+3
^AUPNVPRV("AD"	FINDPROV+2
^AUPNVSIT - [#9000010]	LOOP+3
^AUPNVSIT("B"	LOOP, LOOP+2
^DIC(16 - [#16]	LOOP+16
^DIC(6 - [#6]	LOOP+11
^DIC(7 - [#7]	LOOP+15
^ICD9 - [#80]	FINDDX+4
^UTILITY("AQAQPR4"	AQAQPR41+5!, FINDDX+8*

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

Name	Field # of Occurrence
>> AQAQBDT	AQAQPR41+6
>> AQAQCAT	LOOP+13*, LOOP+14
>> AQAQCLS	LOOP+11, LOOP+12, LOOP+15, LOOP+16
>> AQAQDT	AQAQPR41+6, LOOP, LOOP+2
>> AQAQEDT	AQAQPR41+6
>> AQAQEND	AQAQPR41+6*, LOOP
>> AQAQG	GETGRP+1*, GETGRP+2
>> AQAQGN	GETGRP+3*, GETGRP+4
>> AQAQGRP	FINDDX+8, GETGRP+2, GETGRP+3, GETGRP+4
>> AQAQICD	FINDDX+4*, GETGRP+1
>> AQAQP	FINDDX+3*, FINDDX+4
>> AQAQPDFN	FINDDX+1, FINDDX+2, FINDDX+3
>> AQAQPRV	LOOP+9, LOOP+10, LOOP+11, LOOP+13, LOOP+16, FINDDX+8, FINDPROV+1, FINDPROV+5*
>> AQAQR	FINDPROV+3*, FINDPROV+4, FINDPROV+5
>> AQAQRDFN	FINDPROV+1, FINDPROV+2, FINDPROV+3
>> AQAQRNG	GETGRP+3*, GETGRP+4
>> AQAQSRT	LOOP+10, LOOP+12, LOOP+14
>> AQAQTYP	LOOP+10, LOOP+12, LOOP+14
>> AQAQV	LOOP+3*, LOOP+4, LOOP+5, LOOP+6, LOOP+7
>> AQAQVDFN	LOOP+1, LOOP+2, LOOP+3, FINDDX+2, FINDPROV+2
DUZ(2	LOOP+7
U	LOOP+4, LOOP+5, LOOP+6, LOOP+7, LOOP+11, LOOP+13, LOOP+15, LOOP+16, FINDDX+4, FINDPROV+4 , FINDPROV+5, GETGRP+2, GETGRP+3, GETGRP+4
>> X	AQAQPR41+4*