Routine: AQAOPC21

Package	Total	Call Graph
Quality Assurance	3	$$EXCEP^AQAOLKP ^AQAOPC22 $$CHK^AQAOPCX

Package

Total

Call Graph

$$EXCEP^AQAOLKP ^AQAOPC22 $$CHK^AQAOPCX

Package	Total	Caller Graph
Quality Assurance	1	AQAOPC2

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
ICDCHK	; >> SUBRTN to check occ for icd codes in range
DTLOOP	; >>> loop thru occ file by date for indicator
RANGE	; >> SUBRTN to check occ code against range selected
NEXT	; >>> go to print rtn

Name	Line Occurrences (* Changed, ! Killed)
^AQAOC - [#9002167]	DTLOOP+7, DTLOOP+8
^AQAOC("AA"	DTLOOP+2, DTLOOP+4, DTLOOP+6
^AQAOCC(	ICDCHK+6, ICDCHK+7
^ICD0 - [#80.1]	ICDCHK+8
^ICD9 - [#80]	ICDCHK+8
^TMP("AQAOPC2"	AQAOPC21+7!, DTLOOP+17, DTLOOP+19

Name	Line Occurrences
ICDCHK	DTLOOP+12
RANGE	ICDCHK+9

Name	Field # of Occurrence
^(0	DTLOOP+7, ICDCHK+7
^(1	DTLOOP+7

Name	Field # of Occurrence
>> AQAOARR("ALL"	ICDCHK+1, ICDCHK+3
>> AQAOARR1("ALL"	ICDCHK+1, ICDCHK+4
>> AQAOARS(	DTLOOP+18
>> AQAOBD	DTLOOP+1
>> AQAOCNT	AQAOPC21+8, DTLOOP+14
>> AQAODT	DTLOOP+1, DTLOOP+2, DTLOOP+4, DTLOOP+6, DTLOOP+17, DTLOOP+19
>> AQAOED	DTLOOP+1
>> AQAOEDT	DTLOOP+1*, DTLOOP+2
>> AQAOFLG	DTLOOP+12, DTLOOP+13, ICDCHK+1, ICDCHK+10, ICDCHK+11, RANGE+1, RANGE+3, RANGE+5
>> AQAOFLG(	ICDCHK+3, ICDCHK+4, ICDCHK+5, ICDCHK+6, ICDCHK+10
>> AQAOFLG(8	ICDCHK+11
>> AQAOFLG(9	ICDCHK+11
>> AQAOIFN	DTLOOP+5, DTLOOP+6, DTLOOP+7, DTLOOP+8, DTLOOP+9, DTLOOP+17, DTLOOP+19, ICDCHK+6
>> AQAOIND	DTLOOP+2, DTLOOP+4, DTLOOP+6
>> AQAOSTR	DTLOOP+7*
>> AQAOSUB	DTLOOP+16, DTLOOP+17, DTLOOP+18, DTLOOP+19
>> AQAOX	ICDCHK+9*, RANGE+3, RANGE+4
>> AQAOXSN	DTLOOP+10, DTLOOP+17
>> AQAOY	ICDCHK+8*, RANGE+1, RANGE+3, RANGE+4
>> DFN	DTLOOP+3, DTLOOP+4, DTLOOP+6
DUZ(2	DTLOOP+8
>> I	ICDCHK+2*, ICDCHK+3, ICDCHK+4, ICDCHK+5, ICDCHK+6, ICDCHK+7, ICDCHK+8, ICDCHK+9, ICDCHK+10
U	DTLOOP+7, DTLOOP+8, ICDCHK+8
>> X	ICDCHK+6*, ICDCHK+7
>> Y	ICDCHK+7, ICDCHK+8, RANGE+1, RANGE+3*, RANGE+4
>> Z	RANGE+4*

Information