PSOPRVW1 ;BIR/BI,MHA-enter/edit/view provider ; 11/9/2018
Source file <PSOPRVW1.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 | PSOPRVW PSOPRVW1 |
Name | Comments | DBIA/ICR reference |
---|---|---|
WS(X,PSOIENS,PSOWSDWN) | ||
INS(X) | ||
NULL(X,DIIENS) | ||
DEAEDT(NPIEN) | ||
DEAEDT1(NPIEN) | ; Select one DEA number and edit it
|
|
DEAEDTST(X,NPDEALST,NPIEN,PSOWSDWN) | ||
DEAEDTSX | ; Subroutine Exit Tag
|
|
INPUSE(NPIEN) | ||
IPSLOOP | ; Loop to prevent the user from existing without selecting a DEA number for inpatient usage.
; Set up the user interface prompt to select the "ONE" DEA NUMBER to be used for inpatient orders. ; If there are more than one DEA NUMBER currently and none selected, make it a required response. ; If there are more than one DEA NUMBER currently selected, make it a required response. ; If there is only one DEA NUMBER, make it a required response, and default to 1. |
|
DELDEA(NPDEALST,NPIEN) | ; -- Code used to add/edit/delete the VA Number
|
|
DELDEAQ | ||
NPDEACNT(NPIEN) | ; -- Function used to count the number of DEA numbers for a provider.
|
|
DEAHELP | ; DEA prompt help text for ^DIR(0)
|
|
REDISP | ; Redisplay DEA numbers
|
Name | Field # of Occurrence |
---|---|
EN^DDIOL | DEAEDTST+6, DEAEDTST+11, DEAEDTST+12, DEAEDTST+15, DEAEDTST+16, DEAEDTST+17, DEAEDTST+18 |
$$FIND1^DIC | DEAEDT1+16, DEAEDT1+47, REDISP+8 |
^DIE | NULL+7, DEAEDT1+61, DEAEDT1+79, DELDEA+34, DELDEA+38 |
UPDATE^DIE | WS+6, DEAEDT1+81, INPUSE+29, IPSLOOP+32, IPSLOOP+33 |
$$GET1^DIQ | INS+4, DEAEDT1+13, DEAEDT1+14, DEAEDT1+15, DEAEDT1+17, DEAEDT1+19, DEAEDT1+20, DEAEDT1+74, DEAEDTST+9, DEAEDTST+28 , INPUSE+9, INPUSE+12, INPUSE+19, INPUSE+21, IPSLOOP+38, IPSLOOP+39, IPSLOOP+40, IPSLOOP+41, DELDEA+15, DELDEA+16 , DELDEA+17, DELDEA+18, DELDEA+19, DELDEA+35, REDISP+4, REDISP+5, REDISP+6, REDISP+7, REDISP+10, REDISP+11 |
^DIR | DEAEDT1+46, DEAEDT1+54, DEAEDTST+20, DEAEDTST+35, IPSLOOP+10, IPSLOOP+31, DELDEA+10, DELDEA+33 |
$$EN^PSODEAME | WS+3 |
$$DEANUM^PSODEAUT | DEAEDTST+5 |
$$DEANUMFL^PSODEAUT | DEAEDTST+8 |
$$WSGET^PSODEAUT | DEAEDTST+21 |
$$EDITCHK^PSOPRVW | DEAEDT1+9 |
$$INS^PSOPRVW1 | DEAEDT1+77 |
$$NULL^PSOPRVW1 | DEAEDT1+76 |
WS^PSOPRVW1 | DEAEDT1+75 |
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 |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | Classic Fileman Calls, GET1^DIQ |
200.5321 | GET1^DIQ |
^XTV(8991.9 - [#8991.9] | FIND1^DIC, GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^VA(200 - [#200] | DEAEDT1+12, DEAEDT1+40, DEAEDT1+41, DEAEDT1+57*, DEAEDT1+58, DEAEDT1+80, DEAEDTST+10, DEAEDTST+13, INPUSE+3, INPUSE+6 , IPSLOOP+37, NPDEACNT+2, DEAHELP+3, DEAHELP+4, REDISP+3 |
^XTV(8991.9 - [#8991.9] | INS+3, NULL+3, DEAEDTST+9 |
Name | Field # of Occurrence |
---|---|
^( | DEAEDTST+10 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | DEAEDT1+3~ |
%DT | DEAEDT1+3~ |
ACNT | DELDEA+1~, DELDEA+22*, DELDEA+23*, DELDEA+24*, DELDEA+26*, DELDEA+27*, DELDEA+32* |
ASTRSK | DEAEDT1+49~*, DEAEDT1+50, DEAEDT1+53 |
CNT | DEAEDT1+3~, DEAEDT1+12*, DEAEDT1+13, DEAEDT1+14, DEAEDT1+16, DEAEDT1+17, DEAEDT1+18, DEAEDT1+19, DEAEDT1+20, DEAEDT1+21 , DEAEDT1+22, DEAEDT1+25*, DEAEDT1+26, DEAEDT1+27, DEAEDT1+28, DEAEDT1+29, DEAEDT1+32, INPUSE+1~, INPUSE+6*, INPUSE+18* , INPUSE+19, INPUSE+20, INPUSE+21, INPUSE+24, INPUSE+33*, INPUSE+34, INPUSE+35, IPSLOOP+18*, IPSLOOP+19, IPSLOOP+20 , IPSLOOP+22, IPSLOOP+23, REDISP+1~, REDISP+3*, REDISP+4, REDISP+5, REDISP+6, REDISP+8, REDISP+9, REDISP+10 , REDISP+11, REDISP+12, REDISP+13, REDISP+16*, REDISP+17, REDISP+18, REDISP+19, REDISP+20, REDISP+23 |
D | DEAEDT1+3~, DELDEA+1~ |
D0 | DEAEDT1+3~ |
DA | WS+1~, NULL+1~, NULL+5*, DEAEDT1+3~, DEAEDT1+59*, DEAEDT1+78*, DEAEDT1+80, DELDEA+1~, DELDEA+20*, DELDEA+34! , DELDEA+38!* |
DA(1 | NULL+5*, NULL+6, DEAEDT1+59*, DEAEDT1+60, DEAEDT1+78*, DEAEDT1+79, DELDEA+20*, DELDEA+34 |
DEACNT | INPUSE+1~, INPUSE+6*, INPUSE+24*, INPUSE+25, INPUSE+27, INPUSE+28, IPSLOOP+5, IPSLOOP+7 |
DEAEDQ | DEAEDT+1~, DEAEDT+2*, DEAEDT+4, DEAEDT1+1*, DEAEDT1+2*, DEAEDT1+9*, DEAEDT1+33, DEAEDT1+36, DEAEDT1+46* |
DEATYPE | DELDEA+1~, DELDEA+19* |
DI | DEAEDT1+3~, DELDEA+1~ |
DIC | DEAEDT1+3~, DELDEA+1~ |
DIE | NULL+6*, DEAEDT1+3~, DEAEDT1+60*, DEAEDT1+79*, DELDEA+1~, DELDEA+34*!, DELDEA+38!* |
DIE("NO^" | DEAEDT1+79* |
DIE1 | DELDEA+1~ |
DIEDA | DELDEA+1~ |
DIEL | DELDEA+1~ |
DIETMP | DELDEA+1~ |
DIEXREF | DELDEA+1~ |
DIFLD | DELDEA+1~ |
DIIENS | WS+5, NULL~, NULL+5, DEAEDT1+3~, DEAEDT1+58*, DEAEDT1+59, DEAEDT1+66*, DEAEDT1+70*, DEAEDT1+74, DEAEDT1+75 , DEAEDT1+76, DEAEDT1+78, DELDEA+12*, DELDEA+13, DELDEA+14, DELDEA+15, DELDEA+16, DELDEA+17, DELDEA+20 |
DIR | DEAEDT1+3~, DEAEDT1+37!, DEAEDT1+49~, DEAEDTST+1~, DEAEDTST+20~, INPUSE+1~, IPSLOOP+5!, IPSLOOP+26!, DELDEA+1~, DELDEA+6! , DELDEA+33! |
DIR("?" | DEAEDT1+44*, IPSLOOP+8*, IPSLOOP+9*, DELDEA+9* |
DIR("A" | DEAEDT1+40*, DEAEDT1+41*, DEAEDT1+42*, DEAEDT1+50*, DEAEDT1+51*, DEAEDT1+52*, DEAEDT1+53*, DEAEDT1+54*, DEAEDTST+20*, DEAEDTST+33* , DEAEDTST+34*, IPSLOOP+6*, IPSLOOP+29*, IPSLOOP+30*, DELDEA+7*, DELDEA+8*, DELDEA+21*, DELDEA+23*, DELDEA+24*, DELDEA+26* , DELDEA+27*, DELDEA+32* |
DIR("B" | IPSLOOP+7*, IPSLOOP+28* |
DIR(0 | DEAEDT1+38*, DEAEDT1+54*, DEAEDTST+20*, DEAEDTST+32*, IPSLOOP+5*, IPSLOOP+28*, DELDEA+6*, DELDEA+33* |
DIRUT | DEAEDT1+3~, DEAEDT1+37!, DEAEDT1+46*, DEAEDT1+54!, DEAEDTST+20!, INPUSE+1~, IPSLOOP+5!, IPSLOOP+13, IPSLOOP+26!, DELDEA+6! , DELDEA+10 |
DK | NULL+1~, DEAEDT1+4~ |
DL | NULL+1~, DEAEDT1+4~ |
DM | NULL+1~, DEAEDT1+4~ |
DNDEAIEN | WS+1~, WS+3*, WS+4, WS+5, INS+1~, INS+3*, INS+4, NULL+1~, NULL+3*, NULL+4 , DEAEDT1+3~, DEAEDT1+65*, DEAEDT1+69*, DEAEDT1+80, DEAEDT1+81, DEAEDTST+1~, DEAEDTST+9*, INPUSE+1~, INPUSE+9*, INPUSE+12 , INPUSE+20, INPUSE+21, IPSLOOP+38*, IPSLOOP+39, IPSLOOP+41, DELDEA+1~, DELDEA+17*, DELDEA+18, DELDEA+19 |
DNDEATXT | DEAEDT1+3~, DEAEDT1+64*, DEAEDT1+68*, DEAEDT1+80 |
DNDETOX | DELDEA+2~, DELDEA+18* |
DP | NULL+1~, DEAEDT1+4~ |
DQ | NULL+1~, DEAEDT1+4~ |
DR | WS+1~, NULL+1~, NULL+7*, DEAEDT1+3~, DEAEDT1+61*, DEAEDT1+79*, DELDEA+2~, DELDEA+34*!, DELDEA+38!* |
DUOUT | DEAEDT1+54!, DEAEDTST+20! |
DUPIEN | DEAEDTST+13~*, DEAEDTST+14, DEAEDTST+16 |
>> DUPNAME | DEAEDTST+13*, DEAEDTST+15 |
F8991P9ER | DEAEDT1+15~, REDISP+7~ |
F8991P9IE | DEAEDT1+15~*, DEAEDT1+16, REDISP+7~*, REDISP+8 |
FDA | WS+1~, NULL+1~, DEAEDT1+81!, INPUSE+1~, INPUSE+29! |
FDA(1 | DEAEDT1+81*, INPUSE+29*, IPSLOOP+19*, IPSLOOP+23* |
FDA(2 | WS+5* |
FG | DEAEDTST+1~, DEAEDTST+21 |
FG("name" | DEAEDTST+29, DEAEDTST+30 |
INST | DEAEDTST+1~, DEAEDTST+9*, DEAEDTST+10 |
LNAME | DEAEDTST+1~, DEAEDTST+28*, DEAEDTST+29, DEAEDTST+31 |
MULTIP | INPUSE+1~, IPSLOOP+18*, IPSLOOP+21*, IPSLOOP+27, IPSLOOP+33 |
NPDEACNT | DELDEA+2~, DELDEA+14*, DELDEA+25, NPDEACNT+1~, NPDEACNT+2*, NPDEACNT+3 |
NPDEAIEN | DEAEDT1+3~, DEAEDT1+12*, DEAEDT1+13, DEAEDT1+14, DEAEDT1+15, DEAEDT1+17, DEAEDT1+18, INPUSE+1~, INPUSE+6*, INPUSE+9 , INPUSE+19, IPSLOOP+37*, IPSLOOP+38, IPSLOOP+40, NPDEACNT+1~, NPDEACNT+2*, REDISP+3*, REDISP+4, REDISP+5, REDISP+6 , REDISP+7, REDISP+9 |
NPDEALST | DEAEDT1+3~, DEAEDT1+72, DEAEDTST~, INPUSE+1~, DELDEA~, REDISP+1~ |
NPDEALST( | DEAEDT1+13*, DEAEDT1+14*, DEAEDT1+16*, DEAEDT1+17*, DEAEDT1+18*, DEAEDT1+19*, DEAEDT1+20*, DEAEDT1+21, DEAEDT1+26, DEAEDT1+27 , DEAEDT1+28, DEAEDT1+29, DEAEDT1+32, DEAEDT1+55, DEAEDT1+63, DEAEDT1+64, DEAEDT1+65, DEAEDT1+66, DEAEDTST+4, INPUSE+19* , INPUSE+20*, INPUSE+21*, INPUSE+33, INPUSE+34, INPUSE+35, IPSLOOP+18, IPSLOOP+19, IPSLOOP+20, IPSLOOP+22, IPSLOOP+23 , DELDEA+12, DELDEA+35, REDISP+4*, REDISP+5*, REDISP+6*, REDISP+8*, REDISP+9*, REDISP+10*, REDISP+11*, REDISP+12 , REDISP+17, REDISP+18, REDISP+19, REDISP+20, REDISP+23 |
NPDEALST("B" | DEAEDT1+21*, DEAEDT1+55, DEAEDT1+67, DEAEDT1+68, DEAEDT1+69, DEAEDT1+70, REDISP+12* |
NPDEALST(0 | DEAEDT1+11*, DEAEDT1+22*, DEAEDT1+24, DEAEDT1+25, DELDEA+4, DELDEA+6, REDISP+2*, REDISP+13*, REDISP+15, REDISP+16 |
NPDEALST(1 | INPUSE+27, INPUSE+28, INPUSE+29 |
NPDEALST(999 | DELDEA+38 |
NPDEATXT | DEAEDT1+3~, DEAEDT1+74*, DEAEDT1+75, DEAEDT1+76, DEAEDT1+77, IPSLOOP+37~, IPSLOOP+40*, IPSLOOP+42, DELDEA+2~, DELDEA+16* |
NPIEN | DEAEDT~, DEAEDT+4, DEAEDT+5, DEAEDT1~, DEAEDT1+2, DEAEDT1+9, DEAEDT1+12, DEAEDT1+13, DEAEDT1+14, DEAEDT1+15 , DEAEDT1+17, DEAEDT1+18, DEAEDT1+40, DEAEDT1+41, DEAEDT1+57, DEAEDT1+58, DEAEDT1+72, DEAEDTST~, DEAEDTST+10, DEAEDTST+28 , INPUSE~, INPUSE+3, INPUSE+6, INPUSE+9, INPUSE+19, IPSLOOP+37, IPSLOOP+38, IPSLOOP+40, DELDEA~, DELDEA+35 , DELDEA+38, NPDEACNT~, NPDEACNT+2, DEAHELP+3, DEAHELP+4, REDISP+3, REDISP+4, REDISP+5, REDISP+6, REDISP+7 , REDISP+9 |
PSOASTK | DEAEDTST+1~, DEAEDTST+2*, DEAEDTST+11, DEAEDTST+17 |
PSODEAE | DEAEDT1+4~, DEAEDT1+47*, DEAEDT1+52 |
>> PSODEANW | DEAEDT1+47*, DEAEDT1+48 |
PSODELDEA | DELDEA+2~, DELDEA+35*, DELDEA+38 |
>> PSOECODE | DEAEDTST+23* |
PSOIENS | WS~, WS+2 |
PSOLDEA | DELDEA+2~, DELDEA+35*, DELDEA+36, DELDEA+38 |
PSOWSDWN | WS~, WS+3, DEAEDT1+4~, DEAEDT1+5*, DEAEDT1+48, DEAEDT1+75, DEAEDTST~, DEAEDTST+23*, DEAEDTST+24 |
RESPONSE | DEAEDTST+2*, DEAEDTST+3*, DEAEDTST+4*, DEAEDTST+5*, DEAEDTST+7*, DEAEDTST+8*, DEAEDTST+19*, DEAEDTST+21*, DEAEDTST+22, DEAEDTST+23* , DEAEDTST+24, DEAEDTST+25*, DEAEDTST+35*, DEAEDTSX+1, DELDEA+2~, DELDEA+3*, DELDEA+4, DELDEA+39*, DELDEAQ+1 |
RESPONSEX | DEAEDTST+1~ |
SAVEX | DEAEDT1+3~, DEAEDT1+47*, DEAEDT1+62, DEAEDT1+71 |
SELECTED | DELDEA+2~, DELDEA+11*, DELDEA+12, DELDEA+35, DELDEA+38 |
TYPE | INS+1~, INS+4*, INS+5 |
U | DEAEDT1+14, DEAEDT1+16, DEAEDT1+17, DEAEDT1+18, DEAEDT1+19, DEAEDT1+20, DEAEDT1+21, DEAEDT1+27, DEAEDT1+28, DEAEDT1+29 , DEAEDT1+64, DEAEDT1+65, DEAEDT1+66, DEAEDT1+68, DEAEDT1+69, DEAEDT1+70, DEAEDTST+13, DEAEDTST+22, DEAEDTST+23, DEAEDTST+24 , INPUSE+19, INPUSE+20, INPUSE+21, INPUSE+27, INPUSE+28, INPUSE+29, INPUSE+34, IPSLOOP+19, IPSLOOP+20, IPSLOOP+22 , IPSLOOP+23, REDISP+5, REDISP+6, REDISP+8, REDISP+9, REDISP+10, REDISP+11, REDISP+12, REDISP+18, REDISP+19 , REDISP+20 |
UFIO | INPUSE+1~, INPUSE+21*, INPUSE+22, INPUSE+23, IPSLOOP+41*, IPSLOOP+42 |
UFIOCNTN | INPUSE+1~*, INPUSE+23* |
UFIOCNTY | INPUSE+1~*, INPUSE+22*, IPSLOOP+5, IPSLOOP+11, IPSLOOP+12 |
VANUMBER | DELDEA+2~, DELDEA+15*, DELDEA+25 |
X | WS~, WS+2, WS+3, INS~, INS+2, INS+3, NULL~, NULL+2, NULL+3, DEAEDT1+3~ , DEAEDT1+46, DEAEDT1+47, DEAEDT1+54!, DEAEDT1+55, DEAEDT1+56, DEAEDT1+61, DEAEDT1+62*, DEAEDT1+63, DEAEDT1+64, DEAEDT1+65 , DEAEDT1+66, DEAEDT1+67, DEAEDT1+68, DEAEDT1+69, DEAEDT1+70, DEAEDT1+71*, DEAEDT1+72, DEAEDT1+73, DEAEDTST~, DEAEDTST+3 , DEAEDTST+4, DEAEDTST+5, DEAEDTST+8, DEAEDTST+9, DEAEDTST+10, DEAEDTST+12, DEAEDTST+13, DEAEDTST+20!, DEAEDTST+21, INPUSE+1~ , IPSLOOP+11, IPSLOOP+12, IPSLOOP+15, DELDEA+2~, DELDEA+11, DELDEA+38!, DEAHELP+1 |
XSAVE | INPUSE+1~, IPSLOOP+15*, IPSLOOP+19 |
Y | DEAEDT1+3~, DEAEDT1+54!, DEAEDTST+20!, DEAEDTST+35, INPUSE+1~, IPSLOOP+32, DELDEA+2~, DELDEA+33 |