©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
AQAOPR71 ; IHS/ORDC/LJF - CALCULATE REVIEWED OCC RPRT ;
Source file <AQAOPR71.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TMP | ; >>> loop thru ^TMP to find indicators
|
|
| STATUS() | ;EXTR VAR to check case status against user's choice
|
|
| USERTEAM() | ;EXTR VAR to check selected user/teams against occ review
|
|
| OK() | ;EXTR VAR to test entry against selection arrays
|
|
| NEXT | ; >>> go to print rtn
|
| Name | Field # of Occurrence |
|---|---|
| ^AQAOPR72 | NEXT+1 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AQAO(2 - [#9002168.2] | TMP+17 |
| ^AQAOC - [#9002167] | STATUS+1, USERTEAM+2, USERTEAM+5, USERTEAM+7, USERTEAM+8, USERTEAM+11, USERTEAM+12, USERTEAM+14, USERTEAM+15 |
| ^AQAOC("AA" | TMP+9, TMP+11, TMP+13 |
| ^TMP("AQAOPR7" | TMP+3, TMP+5 |
| ^TMP("AQAOPR7A" | AQAOPR71+6!, TMP+18* |
| Name | Line Occurrences |
|---|---|
| $$OK | USERTEAM+4, USERTEAM+6, USERTEAM+9, USERTEAM+13, USERTEAM+16 |
| $$STATUS | TMP+14 |
| $$USERTEAM | TMP+15 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | TMP+17 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> AQAOBD | TMP+8 |
| >> AQAOCNT | AQAOPR71+7*, TMP+16* |
| >> AQAODT | TMP+8*, TMP+9*, TMP+11, TMP+13, TMP+18 |
| >> AQAOED | TMP+8 |
| >> AQAOEDT | TMP+8*, TMP+9 |
| >> AQAOF | TMP+2*, TMP+3*, TMP+5 |
| >> AQAOI | TMP+1*, TMP+2, TMP+3 |
| >> AQAOIFN | TMP+12*, TMP+13*, TMP+18, STATUS+1, USERTEAM+2, USERTEAM+5, USERTEAM+7, USERTEAM+8, USERTEAM+11, USERTEAM+12 , USERTEAM+14, USERTEAM+15 |
| >> AQAOIND | TMP+4*, TMP+5*, TMP+9, TMP+11, TMP+13, TMP+17 |
| >> AQAOO("TEAM" | USERTEAM+3, OK+1 |
| >> AQAOO("USR" | USERTEAM+3, OK+1 |
| >> AQAOSTAT | STATUS+2, STATUS+3, STATUS+4 |
| >> DFN | TMP+10*, TMP+11*, TMP+13 |
| U | TMP+17, STATUS+1, USERTEAM+2, USERTEAM+5, USERTEAM+8, USERTEAM+12, USERTEAM+15 |
| W | USERTEAM+1~, USERTEAM+14*, USERTEAM+15 |
| X | TMP+17*, TMP+18, STATUS+1~*, STATUS+2*, STATUS+3*, STATUS+4*, STATUS+5, USERTEAM+1~, USERTEAM+7*, USERTEAM+8 , USERTEAM+11*, USERTEAM+12, USERTEAM+14, USERTEAM+15 |
| Y | STATUS+1~*, STATUS+2, STATUS+3, STATUS+4, USERTEAM+1~, USERTEAM+7*, USERTEAM+9*, USERTEAM+10, USERTEAM+11*, USERTEAM+13* , USERTEAM+14, USERTEAM+16*, USERTEAM+17 |
| Z | USERTEAM+1~, USERTEAM+2*, USERTEAM+5*, USERTEAM+8*, USERTEAM+12*, USERTEAM+15*, OK+1 |