PSOERPT2 ;BIRM/MFR - eRx Patient Medication Profile - Cont'd ; 12/10/22 9:50am
Source file <PSOERPT2.m>
| Package | Total | Call Graph |
|---|---|---|
| Outpatient Pharmacy | 2 | $$PRESOLV^PSOERXA1 $$PROXYDUZ^PSOERXUT |
| Kernel | 1 | $$FMADD^XLFDT |
| VA FileMan | 1 | $$GET1^DIQ |
| 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 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| HOLDELIG(ERXLST) | ; Given a list of eRx IENs (array passed in by Reference) it checks if they can all be put on HOLD
|
|
| UNHDELIG(ERXLST) | ; Given a list of eRx IENs (array passed in by Reference) it checks if they can all be put on HOLD
|
|
| UNHDSTAT(ERXIEN) | ; Returns the Status the eRx should be set to after being Un-Held
|
|
| MATCH(TYPE,ERXIEN) | ; Returns the eRx Match for Patient/Provider/Drug
; Input: TYPE - Type of Match (PAM:Patient Match|PRM:Provider Match|DRM:Drug Match) ; ERXIEN - eRx IEN (Pointer to #52.49) |
|
| MATCHSRT(PAT,PRO,DRU) | ; Returns the Matching Score for Sorting purpose
|
|
| HASACTRX(EPATIEN) | ; Checks whether the eRx Patient has any Actionable prescription (other than on Hold)
; Input: EPATIEN - Pointer to ERX PATIENT file (#52.46) |
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DIQ | HOLDELIG+4, HOLDELIG+6, HOLDELIG+7, HOLDELIG+8, UNHDELIG+4, UNHDELIG+6, UNHDELIG+7, UNHDSTAT+2, UNHDSTAT+3, UNHDSTAT+4 , UNHDSTAT+5, UNHDSTAT+6, UNHDSTAT+7, UNHDSTAT+8, UNHDSTAT+9, UNHDSTAT+10, MATCH+7, MATCH+8, MATCH+9, MATCH+10 , HASACTRX+4, HASACTRX+8, HASACTRX+10 |
| $$PRESOLV^PSOERXA1 | UNHDSTAT+5, UNHDSTAT+6, UNHDSTAT+7, UNHDSTAT+8, UNHDSTAT+9, UNHDSTAT+10 |
| $$PROXYDUZ^PSOERXUT | MATCH+10 |
| $$FMADD^XLFDT | HASACTRX+5 |
| FileNo | Call Tags |
|---|---|
| ^PS(52.45 - [#52.45] | GET1^DIQ |
| ^PS(52.49 - [#52.49] | GET1^DIQ |
| ^PS(59 - [#59] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PS(52.49 - [#52.49] | HASACTRX+6, HASACTRX+7, HASACTRX+9 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AVAL | MATCH+6~, MATCH+10*, MATCH+11 |
| DRU | MATCHSRT~, MATCHSRT+1, MATCHSRT+3, MATCHSRT+4, MATCHSRT+5, MATCHSRT+6, MATCHSRT+8, MATCHSRT+9, MATCHSRT+10, MATCHSRT+12 , MATCHSRT+13 |
| DT | HASACTRX+5 |
| EPATIEN | HASACTRX~, HASACTRX+6, HASACTRX+7 |
| ERXIEN | HOLDELIG+1~, HOLDELIG+3*, HOLDELIG+4, HOLDELIG+6, HOLDELIG+7, HOLDELIG+8, UNHDELIG+1~, UNHDELIG+3*, UNHDELIG+4, UNHDELIG+6 , UNHDELIG+7, UNHDSTAT~, UNHDSTAT+2, UNHDSTAT+3, UNHDSTAT+4, MATCH~, MATCH+7, MATCH+8, MATCH+9, MATCH+10 , HASACTRX+3~, HASACTRX+5*, HASACTRX+7*, HASACTRX+8, HASACTRX+9 |
| ERXLST | HOLDELIG~, UNHDELIG~ |
| ERXLST( | HOLDELIG+2, HOLDELIG+3, HOLDELIG+5*, HOLDELIG+9*, HOLDELIG+11*, HOLDELIG+13*, HOLDELIG+15*, HOLDELIG+17*, UNHDELIG+2, UNHDELIG+3 , UNHDELIG+5*, UNHDELIG+9* |
| ERXSTAT | HOLDELIG+6*, HOLDELIG+10, HOLDELIG+12, HOLDELIG+14, HOLDELIG+16, UNHDELIG+6*, UNHDELIG+8, UNHDSTAT+1~, UNHDSTAT+3*, UNHDSTAT+4 , UNHDSTAT+5*, UNHDSTAT+6*, UNHDSTAT+7*, UNHDSTAT+8*, UNHDSTAT+9*, UNHDSTAT+10*, UNHDSTAT+11 |
| ERXSTATI | UNHDSTAT+1~, UNHDSTAT+5*, UNHDSTAT+6*, UNHDSTAT+7*, UNHDSTAT+8*, UNHDSTAT+9*, UNHDSTAT+10* |
| HASACTRX | HASACTRX+3~, HASACTRX+5*, HASACTRX+7, HASACTRX+8*, HASACTRX+9, HASACTRX+10*, HASACTRX+11 |
| HOLDELIG | HOLDELIG+1~, HOLDELIG+2*, HOLDELIG+4*, HOLDELIG+8*, HOLDELIG+10*, HOLDELIG+12*, HOLDELIG+14*, HOLDELIG+16*, HOLDELIG+18 |
| LBDAYS | HASACTRX+3~, HASACTRX+4*, HASACTRX+5 |
| MAT | MATCH+6~, MATCH+7*, MATCH+11 |
| MORA | MATCH+6~, MATCH+8*, MATCH+11 |
| MSGTYPE | HOLDELIG+7*, UNHDELIG+7*, UNHDSTAT+1~, UNHDSTAT+2*, UNHDSTAT+5, UNHDSTAT+6, UNHDSTAT+7, UNHDSTAT+8, UNHDSTAT+9, UNHDSTAT+10 |
| PAT | MATCHSRT~, MATCHSRT+1, MATCHSRT+2, MATCHSRT+3, MATCHSRT+5, MATCHSRT+6, MATCHSRT+7, MATCHSRT+8, MATCHSRT+10, MATCHSRT+11 , MATCHSRT+12 |
| PRO | MATCHSRT~, MATCHSRT+1, MATCHSRT+2, MATCHSRT+4, MATCHSRT+5, MATCHSRT+6, MATCHSRT+7, MATCHSRT+9, MATCHSRT+10, MATCHSRT+11 , MATCHSRT+13 |
| >> PSOSITE | HASACTRX+4 |
| RECDAT | HASACTRX+3~, HASACTRX+5*, HASACTRX+6*, HASACTRX+7 |
| RELMSGID | HASACTRX+3~, HASACTRX+5*, HASACTRX+9*, HASACTRX+10 |
| SEQ | HOLDELIG+1~, HOLDELIG+2*, HOLDELIG+3, HOLDELIG+5, HOLDELIG+9, HOLDELIG+11, HOLDELIG+13, HOLDELIG+15, HOLDELIG+17, UNHDELIG+1~ , UNHDELIG+2*, UNHDELIG+3, UNHDELIG+5, UNHDELIG+9 |
| TYPE | MATCH~, MATCH+7, MATCH+8, MATCH+9, MATCH+10 |
| UNHDELIG | UNHDELIG+1~, UNHDELIG+2*, UNHDELIG+4*, UNHDELIG+8*, UNHDELIG+10 |
| VAL | MATCH+6~, MATCH+9*, MATCH+11 |