PSOERUT6 ;ALB/MFR - eRx & Pending Order Side-by-Side LM Display - Cont'd; 06/25/2023 5:14pm
Source file <PSOERUT6.m>
| Package | Total | Call Graph |
|---|---|---|
| Outpatient Pharmacy | 12 | $$LSTRFL^PSOBPSU1 ($$RXFLDT,$$RXRLDT)^PSOBPSUT MATCHSUG^PSOERPT1 MATCHSUG^PSOERPV1 ($$CMOPSTS,$$DRUGHASH,WRAP)^PSOERUT ($$COMPARE,ADDLINE,BLANKLN)^PSOERUT0 SETDIAGS^PSOERUT3 ($$ACCDTBY,CSPRV,MATCHSUG)^PSOERUT4 $$CS^PSOERXA0 $$RESOLV^PSOERXU2 $$ERXIEN^PSOERXUT $$DEAD^PSONVARP |
| Kernel | 1 | ($$FMADD,$$FMTE)^XLFDT |
| List Manager | 1 | FULL^VALM1 |
| 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 |
| Package | Total | Caller Graph |
|---|---|---|
| Outpatient Pharmacy | 7 | PSO ERX VIEW DRUG SUGGESTIONS PSO ERX VIEW PATIENT SUGGESTIONS PSO ERX VIEW PROVIDER SUGGESTIONS PSOERALL PSOERUT5 PSOOREDT PSOORNEW |
| Kernel | 1 | ^ORD(101 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; Continuation of PSOERUT5 due to routine size limit
|
|
| VISTAPAT(ERXIEN) | ; Returns the VistA Patient For Responses that pass through the eRx Holding Queue w/out matching/validation
; Input: ERXIEN - Pointer to the ERX HOLDING QUEUE (#52.49) |
|
| CSERX(ORD) | ; Check whether a Pending Order is for a CS eRx
; Input: ORD - Pointer to OUTPATIENT PENDING ORDER file (#52.41) |
|
| CSDRG(DRGIEN) | ; Controlled Substance drug?
; Input: DRGIEN - Pointer to DRUG file (#50) |
|
| VS(ERXIEN,TYPE) | ; View Suggestion(s)
|
|
| LASTRXST(RXIEN) | ; Returns the Rx Last Fill status (For Future Fill Suggestion only)
; Input: RXIEN - pointer to PRESCRIPTION file (#52) |
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DIQ | EN+7, EN+9, EN+10, EN+11, EN+16, EN+24, EN+37, EN+49, VISTAPAT+4, VISTAPAT+5 , VISTAPAT+8, VISTAPAT+11, VISTAPAT+13, CSERX+2, CSDRG+5, VS+6, VS+14, LASTRXST+6, LASTRXST+9 |
| $$LSTRFL^PSOBPSU1 | LASTRXST+4 |
| $$RXFLDT^PSOBPSUT | LASTRXST+7 |
| $$RXRLDT^PSOBPSUT | LASTRXST+5 |
| MATCHSUG^PSOERPT1 | VS+28 |
| MATCHSUG^PSOERPV1 | VS+29 |
| $$CMOPSTS^PSOERUT | LASTRXST+13 |
| $$DRUGHASH^PSOERUT | VS+22 |
| WRAP^PSOERUT | EN+28 |
| $$COMPARE^PSOERUT0 | EN+3, EN+4, EN+11, EN+18, EN+31, EN+40, EN+42, EN+44, EN+52 |
| ADDLINE^PSOERUT0 | EN+6, EN+12, EN+20, EN+27, EN+31, EN+40, EN+42, EN+44, EN+52 |
| BLANKLN^PSOERUT0 | EN+13, EN+21, EN+32, EN+38, EN+45 |
| SETDIAGS^PSOERUT3 | EN+34 |
| $$ACCDTBY^PSOERUT4 | EN+48 |
| CSPRV^PSOERUT4 | EN+9 |
| MATCHSUG^PSOERUT4 | VS+30 |
| $$CS^PSOERXA0 | EN+37 |
| $$RESOLV^PSOERXU2 | VISTAPAT+7, VISTAPAT+10, VISTAPAT+12 |
| $$ERXIEN^PSOERXUT | CSERX+2 |
| $$DEAD^PSONVARP | VS+16 |
| FULL^VALM1 | VS+27 |
| $$FMADD^XLFDT | LASTRXST+9 |
| $$FMTE^XLFDT | EN+49 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| ^PSDRUG - [#50] | GET1^DIQ |
| ^PSRX - [#52] | GET1^DIQ |
| ^PS(52.41 - [#52.41] | GET1^DIQ |
| ^PS(52.49 - [#52.49] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PS(52.49 - [#52.49] | VS+7, VS+8, VS+9, VS+15, VS+17, VS+18, VS+25 |
| Name | Line Occurrences |
|---|---|
| $$CSDRG | CSERX+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> ACCDTBY | EN+48*, EN+50 |
| >> COPIES | EN+17*, EN+18 |
| DEA | CSDRG+3~, CSDRG+5*, CSDRG+6 |
| DRGIEN | CSDRG~, CSDRG+4, CSDRG+5 |
| >> DRUGDATA("DEA" | EN+8 |
| DRUGHASH | VS+3~, VS+22*, VS+23, VS+25 |
| DT | LASTRXST+9, LASTRXST+11 |
| ERX | VS+3~, VS+9*, VS+10, VS+18*, VS+19 |
| ERXIEN | EN+34, EN+37, EN+48, EN+49, VISTAPAT~, VISTAPAT+4, VISTAPAT+5, VISTAPAT+7, VISTAPAT+10, VS~ , VS+6, VS+10, VS+14, VS+19, VS+22, VS+28, VS+29, VS+30 |
| ERXPAT | VS+3~, VS+14*, VS+15, VS+17, VS+18 |
| ERXPRV | VS+3~, VS+6*, VS+7, VS+8, VS+9 |
| >> ERXPRVNM | EN+3, EN+4 |
| FILLDATE | LASTRXST+3~, LASTRXST+7*, LASTRXST+11 |
| >> I | EN+29*, EN+30, EN+31 |
| LASTFILL | LASTRXST+3~, LASTRXST+4*, LASTRXST+5, LASTRXST+7, LASTRXST+13 |
| >> LINE | EN+5, EN+19, EN+26 |
| MTYPE | VISTAPAT+3~, VISTAPAT+5*, VISTAPAT+6, VISTAPAT+9 |
| NEWRXIEN | VISTAPAT+3~, VISTAPAT+7*, VISTAPAT+8, VISTAPAT+12*, VISTAPAT+13 |
| >> NMSPC | EN+6, EN+12, EN+20, EN+27, EN+31, EN+34, EN+40, EN+42, EN+44, EN+52 |
| ORD | CSERX~, CSERX+2 |
| >> ORDIEN | EN+7, EN+9, EN+16, EN+24 |
| >> PENDATA("COPIES" | EN+17 |
| >> PENDATA("PROV | IDER NAME" , EN+3, EN+4 |
| >> PENDATA("PROVIDER" | EN+7 |
| >> PKI | EN+8 |
| >> PRVIEN | EN+7*, EN+9, EN+10, EN+11 |
| >> PSONEW("REMARKS" | EN+28 |
| RDAT | VS+3~, VS+8*, VS+9, VS+17*, VS+18 |
| RELDATE | LASTRXST+3~, LASTRXST+5*, LASTRXST+9, LASTRXST+11, LASTRXST+13 |
| >> RENEWORD | EN+4, EN+5, EN+18, EN+19, EN+25, EN+26 |
| REQIEN | VISTAPAT+3~, VISTAPAT+10*, VISTAPAT+11, VISTAPAT+12 |
| RXIEN | LASTRXST~, LASTRXST+4, LASTRXST+5, LASTRXST+6, LASTRXST+7, LASTRXST+9, LASTRXST+13 |
| RXSTS | LASTRXST+3~, LASTRXST+6*, LASTRXST+11 |
| TYPE | VS~, VS+5, VS+11, VS+13, VS+20, VS+22, VS+23, VS+25, VS+28, VS+29 , VS+30 |
| >> UNDERLN( | EN+5*, EN+19*, EN+26* |
| >> VACLINIC | EN+16*, EN+24* |
| >> VADRGIEN | EN+9, EN+37 |
| >> VALMBCK | CSERX+3*, VS+4* |
| >> VALMSG | CSERX+3*, VS+12*, VS+21*, VS+24*, VS+26* |
| VARR | EN+28! |
| VARR( | EN+29, EN+30, EN+31 |
| VISTAPAT | VISTAPAT+3~, VISTAPAT+4*, VISTAPAT+6, VISTAPAT+8*, VISTAPAT+9, VISTAPAT+11*, VISTAPAT+13*, VISTAPAT+14 |
| VPAT | VS+3~, VS+15*, VS+16, VS+17, VS+18 |
| >> VPATOK | VS+4*, VS+15, VS+17, VS+18, VS+19*, VS+20 |
| VPRV | VS+3~, VS+7*, VS+8, VS+9 |
| >> VPRVOK | VS+4*, VS+7, VS+8, VS+9, VS+10*, VS+11 |
| >> XE | EN+3*, EN+6, EN+39*, EN+40, EN+41*, EN+42, EN+43*, EN+44, EN+51*, EN+52 |
| >> XV | EN+4*, EN+6, EN+11*, EN+12, EN+18*, EN+20, EN+25*, EN+27 |
| >> XX | EN+49*, EN+50*, EN+51* |
