©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
AQAOCHK0 ; IHS/ORDC/LJF - CHECK OCC NEEDNG REVIEW SUBRTNS ;
Source file <AQAOCHK0.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SETREFRL(X,Y) | ;EP; -- SUBRTN to set referred to;PATCH 4
|
|
| OVERDUE() | ;ENTRY POINT for EXTRN VAR
|
|
| SET | ;ENTRY POINT >> SUBRTN to set array variables
|
|
| SRV() | ;EXTRN VAR to see if service screen is needed
|
|
| QIREF | ;EP; >> SUBRTN to set all referrals in user is qi staff;PATCH 4
|
|
| DATESTMP() | ||
| SET1 | ||
| REFSET1 | ;ENTRY POINT >> SUBRTN REFSET but X already set
|
|
| REFSET | ;ENTRY POINT >> set referral data
|
| Name | Field # of Occurrence |
|---|---|
| ^%DTC | OVERDUE+4 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AQAGP - [#9002166.4] | OVERDUE+5 |
| ^AQAGU - [#9002166.3] | DATESTMP+4, DATESTMP+5, DATESTMP+6, DATESTMP+7, DATESTMP+8 |
| ^AQAGU("AC" | DATESTMP+3 |
| ^AQAO(2 - [#9002168.2] | SRV+3 |
| ^AQAO1(1 - [#9002169.1] | SRV+3 |
| ^AQAOC - [#9002167] | SET1+3, SET1+4, QIREF+10, SETREFRL+2, SETREFRL+3, SETREFRL+4, SETREFRL+5, SRV+2, SRV+3 |
| ^TMP("AQAOCHK" | SET1+5*, QIREF+12* |
| Name | Line Occurrences |
|---|---|
| $$DATESTMP | SET1+2, SET1+3, QIREF+11 |
| $$SETREFRL | QIREF+6 |
| $$SRV | SET1 |
| QIREF | REFSET1+1 |
| SET1 | REFSET1+4 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | SET1+4, SRV+2 |
| ^(1 | SET1+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AQAODT | SET1+5, QIREF+12, DATESTMP+2~, DATESTMP+3, DATESTMP+8*, DATESTMP+9 |
| >> AQAODUZ | REFSET1+2 |
| >> AQAOIFN | SET1+3, SET1+4, SET1+5, QIREF+10, QIREF+12, SETREFRL+2, SETREFRL+3, SETREFRL+4, SETREFRL+5, DATESTMP+3 , SRV+2, SRV+3 |
| >> AQAOIND | SET+1, SET1+2, SET1+3, SET1+4, SET1+5, QIREF+10, QIREF+12 |
| >> AQAOLST | SET1+3, SET1+4, QIREF+5*, QIREF+10, QIREF+12, DATESTMP+6, DATESTMP+7 |
| AQAOP | OVERDUE+3~, OVERDUE+5*, OVERDUE+6 |
| >> AQAOR1( | QIREF+3, QIREF+4, QIREF+5 |
| >> AQAOR2( | QIREF+4 |
| >> AQAOREF | REFSET+1, REFSET1+2, REFSET1+3, SET1+3, QIREF+6*, QIREF+7, QIREF+9, QIREF+11 |
| >> AQAOSTR | SET1+2*, SET1+3*, SET1+4*, SET1+5, QIREF+10*, QIREF+11*, QIREF+12, OVERDUE+4 |
| AQAOU | DATESTMP+2~*, DATESTMP+3*, DATESTMP+4, DATESTMP+5, DATESTMP+6, DATESTMP+7, DATESTMP+8 |
| AQAOX | QIREF+1~, QIREF+2*, QIREF+3*, QIREF+4, QIREF+5 |
| >> AQAOXYZ | REFSET1+1, SET+1, SRV+2 |
| >> AQAOXYZ(1 | REFSET1+3, QIREF+9, SRV+3 |
| >> AQAOXYZ(2 | SET+1 |
| >> AQAOXYZ(3 | SET1+1*, QIREF+8*, QIREF+9* |
| DT | OVERDUE+4 |
| DUZ(2 | OVERDUE+5 |
| U | SET1+2, SET1+3, SET1+4, QIREF+4, QIREF+5, QIREF+10, QIREF+11, SETREFRL+2, SETREFRL+3, SETREFRL+4 , SETREFRL+5, DATESTMP+4, DATESTMP+5, DATESTMP+6, DATESTMP+7, DATESTMP+8, OVERDUE+4, OVERDUE+5, SRV+2, SRV+3 |
| X | REFSET+1*, REFSET1+2, REFSET1+3, SET1, SET1+1, SET1+2, SET1+3, SET1+4, SET1+5, QIREF+5* , QIREF+6, QIREF+7*, QIREF+8, QIREF+9, QIREF+12, SETREFRL~, SETREFRL+2, SETREFRL+3, SETREFRL+4, SETREFRL+5 , DATESTMP+2, DATESTMP+4, DATESTMP+5, DATESTMP+6, DATESTMP+7, OVERDUE+3~, OVERDUE+5, SRV+1~*, SRV+3*, SRV+4 |
| >> X1 | OVERDUE+4* |
| >> X2 | OVERDUE+4* |
| Y | QIREF+5*, QIREF+6, QIREF+12, SETREFRL~, SETREFRL+2, SETREFRL+3, SETREFRL+4, SETREFRL+5, SRV+1~*, SRV+4* , SRV+5 |
| Z | SETREFRL+1~*, SETREFRL+2*, SETREFRL+3*, SETREFRL+4*, SETREFRL+5*, SETREFRL+6 |