PSOERUT4 ;ALB/MFR - eRx Drug Suggestion Utilities; 06/25/2023 5:14pm
Source file <PSOERUT4.m>
| Package | Total | Call Graph |
|---|---|---|
| Outpatient Pharmacy | 7 | WRAP^PSOERUT ($$COMPARE,ADDLINE,BLANKLN)^PSOERUT0 $$PRESOLV^PSOERXA1 PDUEDATA^PSOERXU9 SIG^PSOHELP PRVAD^PSOPKIV2 ($$RXDEA,$$RXDETOX)^PSOUTIL |
| Kernel | 3 | $$FMTE^XLFDT $$UP^XLFSTR ($$DEA,$$DETOX)^XUSER |
| Pharmacy Data Management | 1 | $$DETOX^PSSOPKI |
| VA FileMan | 1 | ($$GET1,GETS)^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 |
|---|---|---|
| CSPRV(PROV,DRG,ORN) | ; Sets CS Information (DEA#, Detox #, Site Address,...)
|
|
| VASIG(ORD) | ; Returns The Pending Order SIG
; Input: ORD - Pointer to the PENDING ORDER file (#52.41) |
|
| ERXDOSE(ERXIEN,DOSEARR,INTVAL) | ; Retrieves the Dosage for an eRx and loads an Array
; Input: ERXIEN - Pointer to the ERX HOLDING QUEUE file (#52.49) ; (o)INTVAL - 1: Use Internal Value Flag | 0/null: External Value |
|
| VARXDOSE(RXIEN,DOSEARR) | ; Retrieves the Dosage for a PRESCRIPTION and loads an Array
; Input: RXIEN - Pointer to the PRESCRIPTION file (#52) |
|
| PODOSAGE(NMSPC,ORDIEN,PENDATA,RENEWORD) | ; Set ListMan Side-By-Side Section for VistA Pending Order Dosage
|
|
| PENFLAG(NMSPC,ORD) | ; Backdoor ListManager Display of Flag/Unflag Information
|
|
| ACCDTBY(ERXIEN) | ; Returns the eRx latest Accepted Date/Time
; Input: ERXIEN - Pointer to ERX HOLDING QUEUE file (#52.49) |
|
| PROVCOMM(COMM) | ; Expand Provider Comments
; Input: Provider Comments |
|
| FREQ(DUR) | ; Returns the Duration Frequency word (WEEKS, DAYS, etc..)
; Input: DUR - Schedule Duration (e.g., "4D", "3W", "6H", etc...) |
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DIQ | PODOSAGE+7, PODOSAGE+21, PODOSAGE+26, PODOSAGE+45, PODOSAGE+63, PODOSAGE+92, ACCDTBY+7, ACCDTBY+8, ACCDTBY+9, ACCDTBY+10 |
| GETS^DIQ | ERXDOSE+6, VARXDOSE+7, PENFLAG+3 |
| WRAP^PSOERUT | PODOSAGE+46, PODOSAGE+54, PODOSAGE+80, PODOSAGE+87 |
| $$COMPARE^PSOERUT0 | CSPRV+13, CSPRV+14, CSPRV+17, CSPRV+19, CSPRV+21, PODOSAGE+17, PODOSAGE+20, PODOSAGE+22, PODOSAGE+25, PODOSAGE+27 , PODOSAGE+30, PODOSAGE+32, PODOSAGE+35, PODOSAGE+43, PODOSAGE+47, PODOSAGE+50, PODOSAGE+52, PODOSAGE+55, PODOSAGE+57, PODOSAGE+60 , PODOSAGE+62, PODOSAGE+64, PODOSAGE+65, PODOSAGE+68, PODOSAGE+71, PODOSAGE+82, PODOSAGE+89, PODOSAGE+94, PODOSAGE+96, PODOSAGE+99 , PODOSAGE+101, PENFLAG+10, PENFLAG+20 |
| ADDLINE^PSOERUT0 | CSPRV+15, CSPRV+18, CSPRV+20, CSPRV+22, PODOSAGE+108, PENFLAG+7, PENFLAG+11, PENFLAG+16, PENFLAG+21 |
| BLANKLN^PSOERUT0 | PENFLAG+22 |
| $$PRESOLV^PSOERXA1 | PODOSAGE+21, PODOSAGE+26 |
| PDUEDATA^PSOERXU9 | PODOSAGE+9 |
| SIG^PSOHELP | PROVCOMM+6 |
| PRVAD^PSOPKIV2 | CSPRV+16 |
| $$RXDEA^PSOUTIL | CSPRV+5 |
| $$RXDETOX^PSOUTIL | CSPRV+10 |
| $$DETOX^PSSOPKI | CSPRV+9 |
| $$FMTE^XLFDT | ACCDTBY+10 |
| $$UP^XLFSTR | PODOSAGE+77, PODOSAGE+85, PROVCOMM+5 |
| $$DEA^XUSER | CSPRV+5 |
| $$DETOX^XUSER | CSPRV+10 |
| FileNo | Call Tags |
|---|---|
| ^PS(50.607 - [#50.607] | GET1^DIQ |
| ^PS(51.2 - [#51.2] | GET1^DIQ |
| ^PSRX - [#52] | GETS^DIQ |
| ^PS(52.41 - [#52.41] | GET1^DIQ, GETS^DIQ |
| ^PS(52.45 - [#52.45] | GET1^DIQ |
| ^PS(52.49 - [#52.49] | GET1^DIQ, GETS^DIQ |
| 52.4919 | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PS(52.41 - [#52.41] | VASIG+5, VASIG+7 |
| ^PS(52.49 - [#52.49] | ACCDTBY+6 |
| ^PS(55 - [#55] | PODOSAGE+53, PODOSAGE+97 |
| ^PSRX - [#52] | VARXDOSE+6 |
| Name | Line Occurrences |
|---|---|
| $$FREQ | PODOSAGE+68 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACBY | ACCDTBY+4~ |
| ACCDTBY | ACCDTBY+4~, ACCDTBY+5*, ACCDTBY+10*, ACCDTBY+12 |
| ACDTTM | ACCDTBY+4~ |
| ACK | PODOSAGE+5~, PODOSAGE+31*, PODOSAGE+32, PODOSAGE+33, PODOSAGE+34*, PODOSAGE+35 |
| ALLLN | PODOSAGE+6~, PODOSAGE+104*, PODOSAGE+105, PODOSAGE+106, PODOSAGE+107 |
| COAGENT | PODOSAGE+5~, PODOSAGE+16*, PODOSAGE+17, PODOSAGE+18, PODOSAGE+19*, PODOSAGE+20 |
| COMM | PROVCOMM~, PROVCOMM+4, PROVCOMM+5*, PROVCOMM+6 |
| CONJUNCT | PODOSAGE+5~, PODOSAGE+70*, PODOSAGE+71 |
| DEA | CSPRV+1~, CSPRV+3*, CSPRV+4, CSPRV+5*, CSPRV+6, CSPRV+11, CSPRV+12, CSPRV+13 |
| DETN | CSPRV+1~, CSPRV+7*, CSPRV+9, CSPRV+10*, CSPRV+12, CSPRV+14 |
| DFN | PODOSAGE+5~, PODOSAGE+7*, PODOSAGE+53, PODOSAGE+97 |
| DISPUNTS | PODOSAGE+5~, PODOSAGE+59*, PODOSAGE+60 |
| DOSE | ERXDOSE+5~, ERXDOSE+7*, ERXDOSE+8, ERXDOSE+9, ERXDOSE+10, ERXDOSE+11, ERXDOSE+12, ERXDOSE+13, ERXDOSE+14, ERXDOSE+15 , ERXDOSE+16, ERXDOSE+17, VARXDOSE+5~, VARXDOSE+8*, VARXDOSE+9, VARXDOSE+10, VARXDOSE+11, VARXDOSE+12, VARXDOSE+13, VARXDOSE+14 , VARXDOSE+15, VARXDOSE+16, VARXDOSE+17, VARXDOSE+18, PODOSAGE+5~, PODOSAGE+41*, PODOSAGE+42, PODOSAGE+43, PODOSAGE+44, PODOSAGE+45 , PODOSAGE+47, PODOSAGE+48, PODOSAGE+51, PODOSAGE+52, PODOSAGE+53, PODOSAGE+54, PODOSAGE+58, PODOSAGE+59, PODOSAGE+61, PODOSAGE+62 , PODOSAGE+63, PODOSAGE+65, PODOSAGE+66, PODOSAGE+67, PODOSAGE+69, PODOSAGE+70 |
| DOSEARR | ERXDOSE~, ERXDOSE+6!, VARXDOSE~, VARXDOSE+7! |
| DOSEARR("CONJUNCTION" | ERXDOSE+14*, VARXDOSE+15* |
| DOSEARR("DOSE | ORDERED" , ERXDOSE+8*, VARXDOSE+9* |
| DOSEARR("DOSE" | ERXDOSE+9*, VARXDOSE+10* |
| DOSEARR("DURATION" | ERXDOSE+12*, VARXDOSE+13* |
| DOSEARR("NOUN" | ERXDOSE+11*, VARXDOSE+12* |
| DOSEARR("ROUTE" | ERXDOSE+15*, VARXDOSE+16* |
| DOSEARR("SCHEDULE" | ERXDOSE+16*, VARXDOSE+17* |
| DOSEARR("UNITS" | ERXDOSE+10*, VARXDOSE+11* |
| DOSEARR("VERB" | ERXDOSE+17*, VARXDOSE+18* |
| DOSEX | PODOSAGE+6~, PODOSAGE+44*, PODOSAGE+45*, PODOSAGE+46 |
| DRG | CSPRV~, CSPRV+9 |
| DUESEQ | PODOSAGE+5~, PODOSAGE+15*, PODOSAGE+16, PODOSAGE+21, PODOSAGE+26, PODOSAGE+31, PODOSAGE+36 |
| DUR | PODOSAGE+67~*, PODOSAGE+68, FREQ~, FREQ+3*, FREQ+4, FREQ+5, FREQ+6, FREQ+7 |
| ERXALLS | PODOSAGE+6~, PODOSAGE+105* |
| ERXDOSE | ERXDOSE+5~ |
| ERXDOSE( | ERXDOSE+7, ERXDOSE+8, ERXDOSE+9, ERXDOSE+10, ERXDOSE+11, ERXDOSE+12, ERXDOSE+13, ERXDOSE+14, ERXDOSE+15, ERXDOSE+16 , ERXDOSE+17 |
| ERXIEN | ERXDOSE~, ERXDOSE+6, PODOSAGE+9, PODOSAGE+92, ACCDTBY~, ACCDTBY+6, ACCDTBY+7, ACCDTBY+8, ACCDTBY+10 |
| ERXLINES | PODOSAGE+6~ |
| ERXLINES( | PODOSAGE+11*, PODOSAGE+13*, PODOSAGE+17*, PODOSAGE+20*, PODOSAGE+22*, PODOSAGE+25*, PODOSAGE+27*, PODOSAGE+30*, PODOSAGE+32*, PODOSAGE+35* , PODOSAGE+36*, PODOSAGE+104, PODOSAGE+105, PODOSAGE+106 |
| FLAG | PENFLAG+1~ |
| FLAG( | PENFLAG+3, PENFLAG+4, PENFLAG+8, PENFLAG+12, PENFLAG+13, PENFLAG+17 |
| FLAGCOMM | PENFLAG+1~, PENFLAG+10*, PENFLAG+11, PENFLAG+19*, PENFLAG+20*, PENFLAG+21 |
| FLAGHDR | PENFLAG+1~, PENFLAG+5*, PENFLAG+7, PENFLAG+14*, PENFLAG+16 |
| FOUND | ACCDTBY+4~, ACCDTBY+5*, ACCDTBY+6, ACCDTBY+7*, ACCDTBY+11* |
| >> HIGHLN( | PODOSAGE+13* |
| I | CSPRV+1~, PODOSAGE+5~, PODOSAGE+19*, PODOSAGE+24*, PODOSAGE+29*, PODOSAGE+34*, PODOSAGE+49*, PODOSAGE+50, PODOSAGE+56*, PODOSAGE+57 , PODOSAGE+77*, PODOSAGE+81*, PODOSAGE+82, PODOSAGE+85*, PODOSAGE+88*, PODOSAGE+89 |
| INS1 | PROVCOMM+3~, PROVCOMM+6* |
| INTVAL | ERXDOSE~, ERXDOSE+13, ERXDOSE+14, ERXDOSE+15 |
| LBL | CSPRV+1~, CSPRV+8*, CSPRV+13 |
| >> LINE | PODOSAGE+10, PODOSAGE+38, PENFLAG+6, PENFLAG+15 |
| LMLINE | PODOSAGE+5~, PODOSAGE+10*, PODOSAGE+11*, PODOSAGE+13*, PODOSAGE+17*, PODOSAGE+20*, PODOSAGE+22*, PODOSAGE+25*, PODOSAGE+27*, PODOSAGE+30* , PODOSAGE+32*, PODOSAGE+35*, PODOSAGE+36*, PODOSAGE+38*, PODOSAGE+40*, PODOSAGE+43*, PODOSAGE+47*, PODOSAGE+48, PODOSAGE+50*, PODOSAGE+52* , PODOSAGE+55*, PODOSAGE+57*, PODOSAGE+60*, PODOSAGE+62*, PODOSAGE+64*, PODOSAGE+65*, PODOSAGE+68*, PODOSAGE+71*, PODOSAGE+74*, PODOSAGE+75* , PODOSAGE+76, PODOSAGE+82*, PODOSAGE+84*, PODOSAGE+89*, PODOSAGE+93*, PODOSAGE+94*, PODOSAGE+96*, PODOSAGE+98*, PODOSAGE+99*, PODOSAGE+101* |
| NMSPC | CSPRV+15, CSPRV+18, CSPRV+20, CSPRV+22, PODOSAGE~, PODOSAGE+108, PENFLAG~, PENFLAG+7, PENFLAG+11, PENFLAG+16 , PENFLAG+21 |
| ORD | VASIG~, VASIG+4*, VASIG+5, VASIG+7, PENFLAG~, PENFLAG+3, PENFLAG+4, PENFLAG+8, PENFLAG+12, PENFLAG+13 , PENFLAG+17 |
| ORDIEN | PODOSAGE~, PODOSAGE+7 |
| ORN | CSPRV~, CSPRV+5, CSPRV+10, CSPRV+16 |
| PDUE | PODOSAGE+5~, PODOSAGE+9, PODOSAGE+12 |
| PDUE( | PODOSAGE+15, PODOSAGE+16, PODOSAGE+21, PODOSAGE+26, PODOSAGE+31, PODOSAGE+36 |
| PENDATA | PODOSAGE~, PODOSAGE+39 |
| PENDATA("CONJUNCTION" | PODOSAGE+69, PODOSAGE+70 |
| PENDATA("DOSE | ORDERED" , PODOSAGE+42, PODOSAGE+44, PODOSAGE+51, PODOSAGE+53, PODOSAGE+58, PODOSAGE+59 |
| PENDATA("DOSE" | PODOSAGE+41, PODOSAGE+44 |
| PENDATA("DURATION" | PODOSAGE+66, PODOSAGE+67 |
| PENDATA("IND" | PODOSAGE+91, PODOSAGE+94, PODOSAGE+95, PODOSAGE+96 |
| PENDATA("INDF" | PODOSAGE+92* |
| PENDATA("INDO" | PODOSAGE+97, PODOSAGE+99, PODOSAGE+100, PODOSAGE+101 |
| PENDATA("NOUN" | PODOSAGE+61, PODOSAGE+62 |
| PENDATA("ODOSE" | PODOSAGE+54 |
| PENDATA("OIRXN" | CSPRV+5 |
| PENDATA("ROUTE" | PODOSAGE+63 |
| PENDATA("SCHEDULE" | PODOSAGE+65 |
| PENDATA("SIG" | PODOSAGE+77 |
| PENDATA("SINS" | PODOSAGE+83, PODOSAGE+85 |
| PENDATA("UNITS" | PODOSAGE+45 |
| PENDATA("VERB" | PODOSAGE+42, PODOSAGE+43, PODOSAGE+51, PODOSAGE+52 |
| PROV | CSPRV~, CSPRV+2, CSPRV+5, CSPRV+10 |
| PROVCOMM | PROVCOMM+3~, PROVCOMM+6*, PROVCOMM+7 |
| PSODIR | PROVCOMM+3~ |
| PSODIR("INS" | PROVCOMM+6* |
| >> PSORX("DETX" | CSPRV+7 |
| >> PSORX("RXDEA" | CSPRV+3, CSPRV+6* |
| REASON | PODOSAGE+5~, PODOSAGE+21*, PODOSAGE+22, PODOSAGE+23, PODOSAGE+24*, PODOSAGE+25 |
| RENEWORD | PODOSAGE~, PODOSAGE+40, PODOSAGE+47, PODOSAGE+48, PODOSAGE+75, PODOSAGE+76 |
| RESULT | PODOSAGE+5~, PODOSAGE+26*, PODOSAGE+27, PODOSAGE+28, PODOSAGE+29*, PODOSAGE+30 |
| ROUTE | PODOSAGE+5~, PODOSAGE+63*, PODOSAGE+64 |
| RXIEN | VARXDOSE~, VARXDOSE+6, VARXDOSE+7 |
| SIG | VASIG+3~, VASIG+5*, VASIG+7 |
| SPC | CSPRV+1~, CSPRV+11*, CSPRV+14 |
| STAT | ACCDTBY+4~, ACCDTBY+8*, ACCDTBY+9 |
| STHIS | ACCDTBY+4~, ACCDTBY+5*, ACCDTBY+6*, ACCDTBY+7, ACCDTBY+8, ACCDTBY+10 |
| >> UNDERLN( | PODOSAGE+48*, PODOSAGE+76*, PENFLAG+6*, PENFLAG+15* |
| VAALLS | PODOSAGE+6~, PODOSAGE+105* |
| VADD | CSPRV+1~ |
| VADD(1 | CSPRV+16, CSPRV+17 |
| VADD(2 | CSPRV+19 |
| VADD(3 | CSPRV+21 |
| VADOSE | VARXDOSE+5~ |
| VADOSE( | VARXDOSE+8, VARXDOSE+9, VARXDOSE+10, VARXDOSE+11, VARXDOSE+12, VARXDOSE+13, VARXDOSE+14, VARXDOSE+15, VARXDOSE+16, VARXDOSE+17 , VARXDOSE+18 |
| VALINES | PODOSAGE+6~ |
| VALINES( | PODOSAGE+40*, PODOSAGE+43*, PODOSAGE+47*, PODOSAGE+50*, PODOSAGE+52*, PODOSAGE+55*, PODOSAGE+57*, PODOSAGE+60*, PODOSAGE+62*, PODOSAGE+64* , PODOSAGE+65*, PODOSAGE+68*, PODOSAGE+71*, PODOSAGE+74*, PODOSAGE+75*, PODOSAGE+82*, PODOSAGE+84*, PODOSAGE+89*, PODOSAGE+93*, PODOSAGE+94* , PODOSAGE+96*, PODOSAGE+98*, PODOSAGE+99*, PODOSAGE+101*, PODOSAGE+104, PODOSAGE+105, PODOSAGE+107 |
| VAOTHINS | PODOSAGE+6~, PODOSAGE+85*, PODOSAGE+86*, PODOSAGE+87 |
| >> VAPATINS | PODOSAGE+77*, PODOSAGE+78*, PODOSAGE+79, PODOSAGE+80 |
| VARR | PODOSAGE+80!, PODOSAGE+87! |
| VARR( | PODOSAGE+81, PODOSAGE+82, PODOSAGE+88, PODOSAGE+89 |
| VASIG | VASIG+3~, VASIG+4*, VASIG+6*, VASIG+7*, VASIG+8 |
| WRPDOSE | PODOSAGE+5~, PODOSAGE+46, PODOSAGE+54 |
| WRPDOSE( | PODOSAGE+49, PODOSAGE+50, PODOSAGE+56, PODOSAGE+57 |
| WRPDOSE(1 | PODOSAGE+47, PODOSAGE+55 |
| X | PROVCOMM+3~, PROVCOMM+6* |
| XE | PODOSAGE+5~, PODOSAGE+106*, PODOSAGE+108 |
| XEI | PODOSAGE+5~, PODOSAGE+10*, PODOSAGE+11*, PODOSAGE+13*, PODOSAGE+17*, PODOSAGE+20*, PODOSAGE+22*, PODOSAGE+25*, PODOSAGE+27*, PODOSAGE+30* , PODOSAGE+32*, PODOSAGE+35*, PODOSAGE+36* |
| XV | CSPRV+13*, CSPRV+14*, CSPRV+15, CSPRV+17*, CSPRV+18, CSPRV+19*, CSPRV+20, CSPRV+21*, CSPRV+22, PODOSAGE+5~ , PODOSAGE+107*, PODOSAGE+108 |
| XVI | PODOSAGE+5~, PODOSAGE+38*, PODOSAGE+40*, PODOSAGE+43*, PODOSAGE+47*, PODOSAGE+50*, PODOSAGE+52*, PODOSAGE+55*, PODOSAGE+57*, PODOSAGE+60* , PODOSAGE+62*, PODOSAGE+64*, PODOSAGE+65*, PODOSAGE+68*, PODOSAGE+71*, PODOSAGE+74*, PODOSAGE+75*, PODOSAGE+82*, PODOSAGE+84*, PODOSAGE+89* , PODOSAGE+93*, PODOSAGE+94*, PODOSAGE+96*, PODOSAGE+98*, PODOSAGE+99*, PODOSAGE+101* |
| XX | PENFLAG+1~, PENFLAG+4*, PENFLAG+5, PENFLAG+8*, PENFLAG+9, PENFLAG+10*, PENFLAG+13*, PENFLAG+14, PENFLAG+17*, PENFLAG+18 , PENFLAG+19, PENFLAG+20* |
