PSOTPCUL ;BIR/RTR-Utility Routine for TBP Project ;08/09/03
Source file <PSOTPCUL.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Package | Total | Caller Graph |
|---|---|---|
| Outpatient Pharmacy | 4 | PSO160P1 PSO160P2 PSOTPINA PSOTPRP1 |
| Order Entry Results Reporting | 1 | ORPRPM |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(PSOTRXN) | ;CPRS call to determine if an RX is a TPB Rx
|
|
| ACTRX(DFN,TPB) | ; Checks if Patient has at least one Active Rx on File
; Input: DFN: Patient IEN (#2) ; TPB: 0 - Looks for active VA prescriptions only (Default) ; 1 - Looks for active TPB prescriptions only ; 2 - Looks for active VA or TPB prescriptions |
|
| ACTIVE(RX) | ; Checks if Rx is Active or not
|
|
| TPBSC(LOC) | ; Checks if Location Stop Code is from TPB Clinic
|
|
| SXMY(GRP) | ; Set XMY array with users from Mail Group GRP
|
| FileNo | Call Tags |
|---|---|
| ^XMB(3.8 - [#3.8] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(40.7 - [#40.7] | TPBSC+5, TPBSC+6 |
| ^PS(55 - [#55] | ACTRX+10, ACTRX+11 |
| ^PSRX - [#52] | EN+4, ACTRX+11, ACTIVE+2, ACTIVE+3 |
| ^SC - [#44] | TPBSC+4 |
| ^XMB(3.8 - [#3.8] | SXMY+4, SXMY+7 |
| Name | Line Occurrences |
|---|---|
| $$ACTIVE | ACTRX+12 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACTRX | ACTRX+7~, ACTRX+9*, ACTRX+10, ACTRX+13*, ACTRX+14*, ACTRX+15*, ACTRX+17 |
| C1 | TPBSC+2~, TPBSC+5*, TPBSC+7*, TPBSC+8 |
| C2 | TPBSC+2~, TPBSC+6*, TPBSC+7*, TPBSC+8 |
| CDRIEN | SXMY+1~, SXMY+5*, SXMY+6 |
| CODE | TPBSC+2~ |
| CODE( | TPBSC+3*, TPBSC+8 |
| DFN | ACTRX~, ACTRX+8, ACTRX+10, ACTRX+11 |
| DT | ACTIVE+3 |
| EXPDT | ACTRX+7~, ACTIVE+1~, ACTIVE+3* |
| GRP | SXMY~, SXMY+3, SXMY+4 |
| GRPIEN | SXMY+1~, SXMY+4*, SXMY+5, SXMY+7 |
| I | TPBSC+2~, TPBSC+3* |
| J | TPBSC+2~, TPBSC+3* |
| LOC | TPBSC~, TPBSC+4 |
| MBRIEN | SXMY+1~, SXMY+6*, SXMY+7*, SXMY+8 |
| PSOTRXN | EN~, EN+3, EN+4 |
| RX | ACTRX+11*, ACTRX+12, ACTIVE~, ACTIVE+2, ACTIVE+3 |
| RXSTS | ACTIVE+1~, ACTIVE+2* |
| SEQ | ACTRX+7~, ACTRX+9*, ACTRX+10*, ACTRX+11 |
| TPB | ACTRX~, ACTRX+9*, ACTRX+13, ACTRX+14, ACTRX+15 |
| TPBRX | ACTRX+11*, ACTRX+14, ACTRX+15, ACTIVE+1~ |
| U | TPBSC+5, TPBSC+6 |
| XMY | SXMY+6! |
| XMY( | SXMY+6*, SXMY+8* |
| Z0 | TPBSC+2~, TPBSC+4*, TPBSC+5, TPBSC+6 |
