©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
AQAOPC21 ; IHS/ORDC/LJF - CALCULATE OCC BY ICD CODES ;
Source file <AQAOPC21.m>
| Package | Total | Call Graph |
|---|---|---|
| Quality Assurance | 3 | $$EXCEP^AQAOLKP ^AQAOPC22 $$CHK^AQAOPCX |
| 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 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| 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* |