PSOERUT7 ;ALB/MFR - eRx Drug Validation (VD) Utilities; 06/25/2023 5:14pm
Source file <PSOERUT7.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 | 2 | PSOERUT PSOERUT2 |
Name | Comments | DBIA/ICR reference |
---|---|---|
DOSEDUE(MODE,NPSPC,ERXIEN,SDERXFLG) | ; Sets Dosage & DUE Information
; Input: MODE - Display Mode: "RS": Roll & Scroll | "LM": ListMan ; NMSPC - ListMan Temp Global Namespace (e.g., "PSOERXP1") ; ERXIEN - Pointer to ERX HOLDING QUEUE file (#52.49) ; (o)SDERXFLG - Single eRx View/Display Flag - 1: Single eRx View/Display side-by-side | 0: Existing Functionality |
|
SAMEDOSE(ERX,RX) | ; Returns if the eRx Dosage and VistA Rx Dosage are the same
; Input: ERX - Pointer to ERX HOLDING QUEUE file (#52.49) ; RX - Pointer to PRESCRIPTION file (#52) |
Name | Field # of Occurrence |
---|---|
$$GET1^DIQ | DOSEDUE+19, DOSEDUE+24, DOSEDUE+45, DOSEDUE+69 |
WRAP^PSOERUT | DOSEDUE+46, DOSEDUE+74 |
$$COMPARE^PSOERUT0 | DOSEDUE+15, DOSEDUE+18, DOSEDUE+20, DOSEDUE+23, DOSEDUE+25, DOSEDUE+28, DOSEDUE+30, DOSEDUE+33, DOSEDUE+43, DOSEDUE+48 , DOSEDUE+51, DOSEDUE+53, DOSEDUE+55, DOSEDUE+57, DOSEDUE+59, DOSEDUE+60, DOSEDUE+61, DOSEDUE+64, DOSEDUE+66, DOSEDUE+76 |
ADDLINE^PSOERUT0 | DOSEDUE+83 |
$$FREQ^PSOERUT4 | DOSEDUE+64 |
ERXDOSE^PSOERUT4 | DOSEDUE+36, SAMEDOSE+5 |
VARXDOSE^PSOERUT4 | SAMEDOSE+6 |
$$PRESOLV^PSOERXA1 | DOSEDUE+19, DOSEDUE+24 |
PDUEDATA^PSOERXU9 | DOSEDUE+7 |
FileNo | Call Tags |
---|---|
^PS(50.607 - [#50.607] | GET1^DIQ |
^PS(52.45 - [#52.45] | GET1^DIQ |
^PS(52.49 - [#52.49] | GET1^DIQ |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ACK | DOSEDUE+5~, DOSEDUE+29*, DOSEDUE+30, DOSEDUE+31, DOSEDUE+32*, DOSEDUE+33 |
ALLLN | DOSEDUE+5~, DOSEDUE+79*, DOSEDUE+80, DOSEDUE+81, DOSEDUE+82 |
COAGENT | DOSEDUE+5~, DOSEDUE+14*, DOSEDUE+15, DOSEDUE+16, DOSEDUE+17*, DOSEDUE+18 |
DISPUNTS | DOSEDUE+5~, DOSEDUE+54*, DOSEDUE+55, DOSEDUE+56, DOSEDUE+57 |
DOSE | DOSEDUE+5~, DOSEDUE+41*, DOSEDUE+42, DOSEDUE+43, DOSEDUE+44, DOSEDUE+45, DOSEDUE+48, DOSEDUE+49, DOSEDUE+52, DOSEDUE+53 , DOSEDUE+54, DOSEDUE+58, DOSEDUE+59, DOSEDUE+60, DOSEDUE+61, DOSEDUE+62, DOSEDUE+63, DOSEDUE+65, DOSEDUE+66 |
DOSEX | DOSEDUE+5~, DOSEDUE+44*, DOSEDUE+45*, DOSEDUE+46 |
DUESEQ | DOSEDUE+5~, DOSEDUE+13*, DOSEDUE+14, DOSEDUE+19, DOSEDUE+24, DOSEDUE+29, DOSEDUE+34 |
DUR | DOSEDUE+63~*, DOSEDUE+64 |
EDOSE | SAMEDOSE+4~, SAMEDOSE+5 |
ERX | SAMEDOSE~, SAMEDOSE+5 |
ERXALLS | DOSEDUE+5~, DOSEDUE+80* |
ERXDOSE | DOSEDUE+5~, DOSEDUE+36, DOSEDUE+38 |
ERXDOSE("CONJUNCTION" | DOSEDUE+65, DOSEDUE+66 |
ERXDOSE("DOSE | ORDERED" , DOSEDUE+42, DOSEDUE+44, DOSEDUE+52, DOSEDUE+54 |
ERXDOSE("DOSE" | DOSEDUE+41, DOSEDUE+44 |
ERXDOSE("DURATION" | DOSEDUE+62, DOSEDUE+63 |
ERXDOSE("NOUN" | DOSEDUE+58, DOSEDUE+59 |
ERXDOSE("ROUTE" | DOSEDUE+60 |
ERXDOSE("SCHEDULE" | DOSEDUE+61 |
ERXDOSE("UNITS" | DOSEDUE+45 |
ERXDOSE("VERB" | DOSEDUE+43, DOSEDUE+53 |
ERXIEN | DOSEDUE~, DOSEDUE+7, DOSEDUE+36, DOSEDUE+69 |
ERXLINES | DOSEDUE+5~ |
ERXLINES( | DOSEDUE+9*, DOSEDUE+11*, DOSEDUE+15*, DOSEDUE+18*, DOSEDUE+20*, DOSEDUE+23*, DOSEDUE+25*, DOSEDUE+28*, DOSEDUE+30*, DOSEDUE+33* , DOSEDUE+34*, DOSEDUE+79, DOSEDUE+80, DOSEDUE+81 |
>> HIGHLN( | DOSEDUE+11* |
I | DOSEDUE+5~, DOSEDUE+17*, DOSEDUE+22*, DOSEDUE+27*, DOSEDUE+32*, DOSEDUE+50*, DOSEDUE+51, DOSEDUE+75*, DOSEDUE+76 |
>> LINE | DOSEDUE+8, DOSEDUE+37 |
>> LMLINE | DOSEDUE+8*, DOSEDUE+9*, DOSEDUE+11*, DOSEDUE+15*, DOSEDUE+18*, DOSEDUE+20*, DOSEDUE+23*, DOSEDUE+25*, DOSEDUE+28*, DOSEDUE+30* , DOSEDUE+33*, DOSEDUE+34*, DOSEDUE+37*, DOSEDUE+39*, DOSEDUE+40, DOSEDUE+43*, DOSEDUE+47*, DOSEDUE+48, DOSEDUE+49, DOSEDUE+51* , DOSEDUE+53*, DOSEDUE+55*, DOSEDUE+57*, DOSEDUE+59*, DOSEDUE+60*, DOSEDUE+61*, DOSEDUE+64*, DOSEDUE+66*, DOSEDUE+71*, DOSEDUE+72* , DOSEDUE+73, DOSEDUE+76* |
MODE | DOSEDUE~, DOSEDUE+15, DOSEDUE+18, DOSEDUE+20, DOSEDUE+23, DOSEDUE+25, DOSEDUE+28, DOSEDUE+30, DOSEDUE+33, DOSEDUE+39 , DOSEDUE+40, DOSEDUE+43, DOSEDUE+48, DOSEDUE+49, DOSEDUE+53, DOSEDUE+55, DOSEDUE+57, DOSEDUE+59, DOSEDUE+60, DOSEDUE+61 , DOSEDUE+64, DOSEDUE+66, DOSEDUE+70, DOSEDUE+71, DOSEDUE+72, DOSEDUE+73, DOSEDUE+76, DOSEDUE+83 |
NEXTE | SAMEDOSE+4~, SAMEDOSE+8*, SAMEDOSE+9, SAMEDOSE+10 |
NEXTV | SAMEDOSE+4~, SAMEDOSE+9*, SAMEDOSE+10 |
>> NMSPC | DOSEDUE+83 |
NPSPC | DOSEDUE~ |
PDUE | DOSEDUE+5~, DOSEDUE+7, DOSEDUE+10, DOSEDUE+38 |
PDUE( | DOSEDUE+13, DOSEDUE+14, DOSEDUE+19, DOSEDUE+24, DOSEDUE+29, DOSEDUE+34 |
REASON | DOSEDUE+5~, DOSEDUE+19*, DOSEDUE+20, DOSEDUE+21, DOSEDUE+22*, DOSEDUE+23 |
RESULT | DOSEDUE+5~, DOSEDUE+24*, DOSEDUE+25, DOSEDUE+26, DOSEDUE+27*, DOSEDUE+28 |
RX | SAMEDOSE~, SAMEDOSE+6 |
SAMEDOSE | SAMEDOSE+4~, SAMEDOSE+7*, SAMEDOSE+8, SAMEDOSE+10*, SAMEDOSE+11 |
SDERXFLG | DOSEDUE~, DOSEDUE+39, DOSEDUE+40, DOSEDUE+48, DOSEDUE+49, DOSEDUE+71, DOSEDUE+72, DOSEDUE+73 |
>> UNDERLN( | DOSEDUE+40*, DOSEDUE+49*, DOSEDUE+73* |
>> VAALLS | DOSEDUE+80* |
VALINES | DOSEDUE+5~ |
VALINES( | DOSEDUE+39*, DOSEDUE+43*, DOSEDUE+48*, DOSEDUE+51*, DOSEDUE+53*, DOSEDUE+55*, DOSEDUE+57*, DOSEDUE+59*, DOSEDUE+60*, DOSEDUE+61* , DOSEDUE+64*, DOSEDUE+66*, DOSEDUE+71*, DOSEDUE+72*, DOSEDUE+76*, DOSEDUE+79, DOSEDUE+80, DOSEDUE+82 |
VAPATINS | DOSEDUE+5~, DOSEDUE+69*, DOSEDUE+70, DOSEDUE+74 |
VARR | DOSEDUE+74! |
VARR( | DOSEDUE+75, DOSEDUE+76 |
VDOSE | SAMEDOSE+4~, SAMEDOSE+6 |
WRPDOSE | DOSEDUE+5~, DOSEDUE+46 |
WRPDOSE( | DOSEDUE+50, DOSEDUE+51 |
WRPDOSE(1 | DOSEDUE+48 |
XE | DOSEDUE+5~, DOSEDUE+81*, DOSEDUE+83 |
XEI | DOSEDUE+5~, DOSEDUE+8*, DOSEDUE+9*, DOSEDUE+11*, DOSEDUE+15*, DOSEDUE+18*, DOSEDUE+20*, DOSEDUE+23*, DOSEDUE+25*, DOSEDUE+28* , DOSEDUE+30*, DOSEDUE+33*, DOSEDUE+34* |
XV | DOSEDUE+5~, DOSEDUE+82*, DOSEDUE+83 |
XVI | DOSEDUE+5~, DOSEDUE+37*, DOSEDUE+39*, DOSEDUE+43*, DOSEDUE+47*, DOSEDUE+48, DOSEDUE+51*, DOSEDUE+53*, DOSEDUE+55*, DOSEDUE+57* , DOSEDUE+59*, DOSEDUE+60*, DOSEDUE+61*, DOSEDUE+64*, DOSEDUE+66*, DOSEDUE+71*, DOSEDUE+72*, DOSEDUE+76* |