PSOERCR0 ;BHAM/MR - eRx Change Request Functionality ; 11 Jul 2025 7:14 PM
Source file <PSOERCR0.m>
| Package | Total | Call Graph |
|---|---|---|
| Outpatient Pharmacy | 18 | (EN,LISTMEDS,SUMMARY)^PSOERCR1 $$CHKDIVRSN^PSOERPC3 REF^PSOERSE1 (DSPERX,WRAP)^PSOERUT ($$CHECKREC,ASKCONT,BUILDSUM,CREATEPN)^PSOERX1H INCERX^PSOERXI1 $$RESTPOST^PSOERXO1 ($$HEADER,BHF,BL,MSG,RTYPE)^PSOERXOA (OALLERGY,OBENEFIT,OFAC,OOBSERVE)^PSOERXOB PATIENT^PSOERXOC OPHARM^PSOERXOD PERSON^PSOERXOE MEDS^PSOERXOG MEDREQ^PSOERXON UPDSTAT^PSOERXU1 DIRE^PSOERXX1 ^PSOLSET PAUSE^PSOSPMU1 |
| VA FileMan | 4 | $$FIND1^DIC $$GET1^DIQ ^DIR EN^DIWE |
| Kernel | 3 | $$TRIM^XLFSTR ($$NAME,$$WHAT)^XUAF4 $$NPI^XUSNPI |
| List Manager | 1 | FULL^VALM1 |
| 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 | 3 | PSO ERX CHANGE REQUEST PSO ERX RESEND CHANGE REQUEST PSOERBT1 |
| Kernel | 1 | ^ORD(101 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; Action Entry Point
|
|
| EN1 | ; Loop Entry Point
|
|
| NOTES | ; NOTE TO PROVIDER Prompt (Max 260 characters)
|
|
| PNCOMM | ; Patient Progress Note Comments
|
|
| RESENDEC | ;Allows a user to resend an eRx Change request in the Inbound eRx application
|
|
| SENDCHRQ(ERXIEN,CRMEDS,ERXBTCHFLG) | ;Batch eRx Change Request entry point, called from PSO ERX BATCH CHANGE REQUEST SUBMISSION protocol
; Input: ERXIEN - eRx for the Change Request (Pointer to to #52.49) ; CRMEDS - Array containg Suggested Med(s) ; ERXBTCHFLG - 1: Indicates a Batch CH REQ Submission |
|
| EXIT | ; Exit the action
|
| Name | Field # of Occurrence |
|---|---|
| $$FIND1^DIC | SENDCHRQ+69 |
| $$GET1^DIQ | EN+13, EN+15, EN+26, EN+32, EN+38, EN1+3, EN1+4, EN1+5, EN1+6, EN1+10 , EN1+12, EN1+15, EN1+18, EN1+28, EN1+29, EN1+30, EN1+31, EN1+32, EN1+33, EN1+34 , EN1+36, EN1+40, EN1+43, RESENDEC+3, RESENDEC+7, SENDCHRQ+42, SENDCHRQ+54, SENDCHRQ+63 |
| ^DIR | EN1+11, EN1+37, NOTES+33, NOTES+40, NOTES+45, NOTES+49, NOTES+57, PNCOMM+3, RESENDEC+13, RESENDEC+27 , SENDCHRQ+45, SENDCHRQ+46, SENDCHRQ+47, SENDCHRQ+62, EXIT+5 |
| EN^DIWE | NOTES+8 |
| EN^PSOERCR1 | NOTES+37, NOTES+41 |
| LISTMEDS^PSOERCR1 | NOTES+22 |
| SUMMARY^PSOERCR1 | RESENDEC+9 |
| $$CHKDIVRSN^PSOERPC3 | EN1+17, EN1+42 |
| REF^PSOERSE1 | RESENDEC+38 |
| DSPERX^PSOERUT | EN+35 |
| WRAP^PSOERUT | EN1+8 |
| $$CHECKREC^PSOERX1H | EN+43 |
| ASKCONT^PSOERX1H | RESENDEC+8 |
| BUILDSUM^PSOERX1H | RESENDEC+6 |
| CREATEPN^PSOERX1H | SENDCHRQ+71 |
| INCERX^PSOERXI1 | SENDCHRQ+57 |
| $$RESTPOST^PSOERXO1 | SENDCHRQ+43 |
| $$HEADER^PSOERXOA | SENDCHRQ+9 |
| BHF^PSOERXOA | SENDCHRQ+11, SENDCHRQ+37 |
| BL^PSOERXOA | SENDCHRQ+15, SENDCHRQ+16, SENDCHRQ+19 |
| MSG^PSOERXOA | SENDCHRQ+7, SENDCHRQ+38 |
| RTYPE^PSOERXOA | SENDCHRQ+13, SENDCHRQ+36 |
| OALLERGY^PSOERXOB | SENDCHRQ+23 |
| OBENEFIT^PSOERXOB | SENDCHRQ+24 |
| OFAC^PSOERXOB | SENDCHRQ+25 |
| OOBSERVE^PSOERXOB | SENDCHRQ+29 |
| PATIENT^PSOERXOC | SENDCHRQ+26 |
| OPHARM^PSOERXOD | SENDCHRQ+27 |
| PERSON^PSOERXOE | SENDCHRQ+28, SENDCHRQ+35 |
| MEDS^PSOERXOG | SENDCHRQ+32 |
| MEDREQ^PSOERXON | SENDCHRQ+34 |
| UPDSTAT^PSOERXU1 | SENDCHRQ+64 |
| DIRE^PSOERXX1 | EN+18, EN+21, EN+28, EN+30, EN+33, RESENDEC+37 |
| ^PSOLSET | EN+12 |
| PAUSE^PSOSPMU1 | NOTES+11, NOTES+13, PNCOMM+8 |
| FULL^VALM1 | EN+9 |
| $$TRIM^XLFSTR | NOTES+10, SENDCHRQ+17 |
| $$NAME^XUAF4 | EN+15 |
| $$WHAT^XUAF4 | EN+15, EN+17 |
| $$NPI^XUSNPI | EN+16 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^PS(52.45 - [#52.45] | GET1^DIQ |
| ^PS(52.49 - [#52.49] | GET1^DIQ |
| ^PS(59 - [#59] | GET1^DIQ |
| ^TIU(8925.1 - [#8925.1] | FIND1^DIC |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PS(52.45 - [#52.45] | EN1+2, EN1+27 |
| ^PS(52.49 - [#52.49] | EN+37, RESENDEC+4, SENDCHRQ+31, SENDCHRQ+70 |
| ^TMP("PSOERCR0" | SENDCHRQ+6 |
| ^TMP("PSOERN2P" | NOTES+1!, NOTES+2*, NOTES+9, NOTES+10, NOTES+11, NOTES+15 |
| ^XUSEC("PSDRPH" | EN+20 |
| ^XUSEC("PSO ERX ADV TECH" | EN+20 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> CHRQTYPE | NOTES+18, NOTES+53, RESENDEC+22, RESENDEC+23 |
| >> CNT | RESENDEC+31*, SENDCHRQ+15, SENDCHRQ+16, SENDCHRQ+19, SENDCHRQ+23, SENDCHRQ+24, SENDCHRQ+25, SENDCHRQ+26, SENDCHRQ+27, SENDCHRQ+28 , SENDCHRQ+29, SENDCHRQ+32, SENDCHRQ+34, SENDCHRQ+35 |
| CODE | EN+1~, EN1+1*, EN1+2*, EN1+3, EN1+4, EN1+5, EN1+6, EN1+27*, EN1+28, EN1+29 , EN1+30, EN1+31, EN1+32, EN1+33, EN1+34 |
| CODETYPE | EN+4~, EN1+26*, EN1+27 |
| CRERXIEN | EN+4~, SENDCHRQ+70*, SENDCHRQ+71 |
| CRFOUND | EN+4~, EN+37*, EN+38*, EN+39, EN+40 |
| CRMED | EN+1~, NOTES+36*, NOTES+41* |
| CRMEDS | EN+1~, NOTES+51!, RESENDEC+22, RESENDEC+35, SENDCHRQ~, SENDCHRQ+34, SENDCHRQ+71 |
| CRMEDS( | NOTES+21, NOTES+50!, NOTES+51* |
| CRMEDS(0 | PNCOMM+6, SENDCHRQ+34, EXIT+2 |
| CRMEDS(99 | NOTES+36 |
| DDWFLAGS | EN+4~ |
| DELMED | EN+2~, NOTES+46*, NOTES+50 |
| DESC | EN+1~, EN+3~, EN1+6! |
| DESC( | EN1+7 |
| DESC(1 | EN1+7 |
| DIC | EN+2~, NOTES+5* |
| DIR | EN+1~, EN1+1!, EN1+23!, NOTES+23!, NOTES+39!, NOTES+44!, NOTES+47!, NOTES+54!, PNCOMM+1!, RESENDEC+11! , RESENDEC+25!, SENDCHRQ+45!, SENDCHRQ+46!, SENDCHRQ+47!, SENDCHRQ+62!, EXIT+3! |
| DIR("?" | EN1+1*, EN1+5*, EN1+9*, EN1+25*, EN1+32*, NOTES+26*, NOTES+27*, NOTES+29*, NOTES+30*, NOTES+31* , NOTES+32*, NOTES+56*, PNCOMM+2* |
| DIR("A" | EN1+10*, EN1+36*, NOTES+24*, NOTES+39*, NOTES+44*, NOTES+48*, NOTES+54*, PNCOMM+1*, RESENDEC+12*, RESENDEC+26* , EXIT+4* |
| DIR("B" | EN1+10*, EN1+36*, NOTES+47*, NOTES+55*, PNCOMM+1*, RESENDEC+11*, RESENDEC+25*, EXIT+3* |
| DIR("L" | EN1+23*, EN1+24*, EN1+31*, EN1+34*, EN1+35* |
| DIR(0 | EN1+1*, EN1+4*, EN1+23*, EN1+29*, NOTES+23*, NOTES+39*, NOTES+44*, NOTES+47*, NOTES+54*, PNCOMM+1* , RESENDEC+11*, RESENDEC+25*, SENDCHRQ+45*, SENDCHRQ+46*, SENDCHRQ+47*, SENDCHRQ+62*, EXIT+3* |
| DIROUT | EN+2~, EN1+11, EN1+37, NOTES+34, NOTES+40, NOTES+45, NOTES+49, NOTES+53, NOTES+57, RESENDEC+13 , RESENDEC+27 |
| DIRUT | EN+2~, EN1+11, EN1+37, NOTES+34, NOTES+40, NOTES+45, NOTES+49, NOTES+53, NOTES+54!, NOTES+57 , PNCOMM+1!, RESENDEC+13, RESENDEC+27 |
| DIV | EN+3~, SENDCHRQ+41*, SENDCHRQ+57 |
| DIWESUB | EN+2~, NOTES+7* |
| DUOUT | EN+2~, NOTES+8 |
| DUZ | EN+20, SENDCHRQ+53 |
| DWLW | EN+2~, NOTES+6* |
| DWPK | EN+2~, NOTES+6* |
| ERROR | EN+3~, NOTES+19*, NOTES+22*, NOTES+36* |
| ERXBTCHFLG | EN+7, EN1+12, NOTES+18, NOTES+53, RESENDEC+1, RESENDEC+16, SENDCHRQ~, SENDCHRQ+64, SENDCHRQ+71 |
| ERXIEN | EN+8, EN+26, EN+32, EN+35, EN+37, EN+46*, EN1+12, RESENDEC+3, RESENDEC+4, RESENDEC+6 , RESENDEC+7, RESENDEC+33*, RESENDEC+35, SENDCHRQ~, SENDCHRQ+9, SENDCHRQ+23, SENDCHRQ+24, SENDCHRQ+25, SENDCHRQ+26, SENDCHRQ+27 , SENDCHRQ+28, SENDCHRQ+29, SENDCHRQ+31, SENDCHRQ+32, SENDCHRQ+35, SENDCHRQ+42, SENDCHRQ+54, SENDCHRQ+63, SENDCHRQ+64, SENDCHRQ+71 , SENDCHRQ+72*, EXIT+1* |
| ERXSTS | EN+1~, EN+26*, EN+27, EN+29, SENDCHRQ+5~, SENDCHRQ+63*, SENDCHRQ+64 |
| EXTRCODE | EN+1~, EN1+15*, EN1+21, EN1+24, EN1+26, EN1+30, EN1+31, EN1+32, EN1+33, EN1+34 , EN1+35, EN1+40, NOTES+17, PNCOMM+6, RESENDEC+18, SENDCHRQ+15 |
| EXTSCODE | EN+1~, EN1+14*, EN1+22, EN1+40*, RESENDEC+19, SENDCHRQ+16 |
| FDAPNCOM | EN+2~ |
| FINISH | EN+3~, NOTES+4*, NOTES+9, NOTES+11*, NOTES+13*, NOTES+19*, NOTES+20, NOTES+34*, NOTES+42* |
| GBL | EN+3~, SENDCHRQ+5~, SENDCHRQ+6*, SENDCHRQ+7, SENDCHRQ+9, SENDCHRQ+11, SENDCHRQ+13, SENDCHRQ+15, SENDCHRQ+16, SENDCHRQ+19 , SENDCHRQ+23, SENDCHRQ+24, SENDCHRQ+25, SENDCHRQ+26, SENDCHRQ+27, SENDCHRQ+28, SENDCHRQ+29, SENDCHRQ+32, SENDCHRQ+34, SENDCHRQ+35 , SENDCHRQ+36, SENDCHRQ+37, SENDCHRQ+38, SENDCHRQ+43, SENDCHRQ+51, SENDCHRQ+52, SENDCHRQ+58, SENDCHRQ+73 |
| HELP | EN+2~, EN1+7*, EN1+8 |
| HLP | EN+1~, EN1+1*, EN1+5*, EN1+9*, EN1+24*, EN1+32* |
| HUBID | EN+3~, SENDCHRQ+47*, SENDCHRQ+49*, SENDCHRQ+55*, SENDCHRQ+57, SENDCHRQ+67, SENDCHRQ+70 |
| I | EN+1~, EN1+7*, EN1+9*, NOTES+2*, NOTES+4*, NOTES+9*, NOTES+10, NOTES+15*, NOTES+20*, NOTES+51* , SENDCHRQ+17*, SENDCHRQ+50~, SENDCHRQ+51*, SENDCHRQ+52 |
| >> II | NOTES+25*, NOTES+26*, NOTES+27*, NOTES+29*, NOTES+30*, NOTES+31* |
| INDEX | EN+1~, EN1+1!, EN1+23! |
| INDEX( | EN1+3*, EN1+14, EN1+15, EN1+28*, EN1+38, EN1+39 |
| INSTNAME | EN+3~, EN+15*, SENDCHRQ+41 |
| INSTNPI | EN+3~, EN+16*, EN+17*, EN+18, SENDCHRQ+41 |
| >> IOINHI | EN+21, EN+28, EN+30, EN+33, EN+40, EN1+13, NOTES+11, NOTES+13, PNCOMM+7, PNCOMM+8 , RESENDEC+8 |
| >> IOINORM | EN+21, EN+28, EN+30, EN+33, EN+40, EN1+13, NOTES+11, NOTES+13, PNCOMM+7, PNCOMM+8 , RESENDEC+8 |
| LINE | EN+1~, EN+3~, EN1+24*, EN1+31*, EN1+34*, EN1+35*, NOTES+19* |
| MED | EN+1~, NOTES+21*, NOTES+51* |
| MEDCNT | EN+1~, NOTES+21*, NOTES+23, NOTES+24, NOTES+28, NOTES+39, NOTES+44 |
| MEDTYPE | EN+5~, SENDCHRQ+31*, SENDCHRQ+32 |
| MESSID | EN+4~, SENDCHRQ+9* |
| MSGTYPE | EN+1~, EN+26*, EN+27, EN+29 |
| NOTE2PRV | EN+5~, NOTES+55, NOTES+58*, RESENDEC+23 |
| NPIINST | EN+3~, EN+15*, EN+16, EN+17 |
| NPLEN | EN+4~, NOTES+5*, NOTES+11* |
| ORGRXIEN | EN+4~, EN+24*, EN+46*, RESENDEC+4*, RESENDEC+33 |
| PNCOMM | EN+4~, PNCOMM+1, PNCOMM+4*, RESENDEC+5*, RESENDEC+7!*, RESENDEC+20, SENDCHRQ+71 |
| >> PSNPINST | EN+13* |
| PSOBTDAT | RESENDEC+17! |
| PSOBTDAT("CRMEDS" | RESENDEC+22* |
| PSOBTDAT("EXTRCODE" | RESENDEC+18* |
| PSOBTDAT("EXTSCODE" | RESENDEC+19* |
| PSOBTDAT("NOTE2PRV" | RESENDEC+23* |
| PSOBTDAT("PNCOMM" | RESENDEC+20* |
| PSOBTDAT("REATXT" | RESENDEC+21* |
| >> PSOIEN | RESENDEC+4 |
| >> PSOPAR | EN+12 |
| PSOQUIT | EN+3~, EN1+20*, EN1+21, EN1+37*, NOTES+3*, NOTES+4, NOTES+8*, NOTES+14, NOTES+17, NOTES+19* , NOTES+20, NOTES+33* |
| >> PSOSITE | EN+12, EN+13, EN+15, SENDCHRQ+26, SENDCHRQ+27, SENDCHRQ+28, SENDCHRQ+35 |
| PSSRET | EN+3~, SENDCHRQ+43* |
| PSSRET("errorMessage" | SENDCHRQ+46 |
| PSSRET("outboundMsgId" | SENDCHRQ+47 |
| PSSRET(0 | SENDCHRQ+45 |
| REACODCH | EN+4~, EN1+1!, EN1+14*, EN1+22 |
| REACODE | EN+1~, EN1+10, EN1+14, EN1+15*, EN1+17, EN1+18 |
| REASCODE | EN+1~, EN1+14*, EN1+36, EN1+38, EN1+39*, EN1+40, EN1+42, EN1+43 |
| REASONTXT | EN+4~, SENDCHRQ+17*, SENDCHRQ+18*, SENDCHRQ+19 |
| REATXT | EN+2~, EN1+14!, EN1+16, EN1+17, EN1+38!, EN1+41, EN1+42, NOTES+15!, PNCOMM+6, RESENDEC+21 |
| REATXT( | NOTES+2, NOTES+15*, SENDCHRQ+17 |
| RECARY | EN+3~, EN+43 |
| RECARY( | EN+38*, EN+46 |
| RECENTRY | EN+2~, EN+44*, EN+45, EN+46 |
| RECFOUND | EN+4~, EN+24*!, EN+45, EN+46*, EN1+22, RESENDEC+1, RESENDEC+2, RESENDEC+5* |
| RELERX | EN+4~, EN+37*, EN+38 |
| RES | SENDCHRQ+50~, SENDCHRQ+57, SENDCHRQ+58, SENDCHRQ+61 |
| >> RESEND | EN+24, RESENDEC+1, RESENDEC+33, SENDCHRQ+64, SENDCHRQ+72, EXIT+1 |
| RTHID | EN+3~, SENDCHRQ+54*, SENDCHRQ+55 |
| >> RXIEN | SENDCHRQ+42* |
| SELCTREC | EN+2~, EN+23*, EN+39, EN+43*, EN+44*, EN+45, RESENDEC+1, RESENDEC+33, SENDCHRQ+64, SENDCHRQ+72 , EXIT+1 |
| STATION | EN+3~, EN+15*, SENDCHRQ+57 |
| TIUTITLE | SENDCHRQ+68~*, SENDCHRQ+69*, SENDCHRQ+71 |
| TMPARR | EN+2~, NOTES+51!* |
| TMPARR( | NOTES+51 |
| TMPIEN | EN+4~, RESENDEC+4*, SENDCHRQ+72, EXIT+1 |
| U | EN+16, SENDCHRQ+45, SENDCHRQ+55, SENDCHRQ+58, SENDCHRQ+61 |
| VADAT | EN+3~, SENDCHRQ+53*, SENDCHRQ+57 |
| >> VALMBCK | EN+9* |
| WRPHELP | EN+2~, EN1+8! |
| WRPHELP( | EN1+9 |
| X | EN+1~, EN+2~, EN1+6*, EN1+18*, EN1+43*, NOTES+10*, NOTES+11, NOTES+12, NOTES+13, NOTES+33 |
| XXL1 | SENDCHRQ+50~, SENDCHRQ+52*, SENDCHRQ+57 |
| Y | EN+1~, EN1+12, EN1+14, EN1+15, EN1+38, EN1+39, NOTES+35, NOTES+38, NOTES+41, NOTES+42 , NOTES+43, NOTES+46, NOTES+49, NOTES+58, PNCOMM+3, PNCOMM+4, RESENDEC+14, RESENDEC+27, EXIT+5 |