Routine: PSSPOIMO

Information

PSSPOIMO ;BIR/RTR/WRT - Edit Orderable Item Name and Inactive date ;Jun 23, 2020@13:14

Package	Total	Call Graph
VA FileMan	8	DD^%DT EN^DDIOL ^DIC MIX^DIC1 (,UPDATE)^DIE (,EN)^DIK $$GET1^DIQ ^DIR
Pharmacy Data Management	5	EN2^PSSHL1 MEDRT^PSSJORDF CHECK^PSSPOID2 (EN,REST)^PSSPOIDT ADDSYN^PSSPOIMP

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 3

Package	Total	Caller Graph
Pharmacy Data Management	3	POSSIBLE MED ROUTES PSS EDIT ORDERABLE ITEMS PSSPOIM1

Entry Points

Name	Comments	DBIA/ICR reference
EN
EDIT
DIR
IMMUN	;PSS1141 FOR 'IMMUNIZATIONS DOCUMENTATION BY BCMA'
SYN
SYN1	;File
END
DISP
HEAD
ADDIT	;If orderable item is flagged for IV
CHECK	;
ZCHECK	;
SOL	;
SHEAD
DTE
DTEX
IVMSG	; display a message if the CORRESPONDING IV field is entered
UDMSG	; display a message if the CORRESPONDING UD field is entered
DFR(PSDOSE)	; dosage form med routes - called by DR string at DIR+20^PSSPOIMO
DFRL
PDR	; possible med routes - called by DR string at DIR+20^PSSPOIMO
PDCHK	; called by DR string at DIR+20^PSSPOIMO
ASK()	; confirm adding the new entry
DASK()	; delete possible med route
MRTHLP	; help of possible med route
DP	; check the existence of Default Med Route & Possible Med Routes
SETF	;
MRSEL	;
LIND	;*242

External References

Name	Field # of Occurrence
DD^%DT	DIR+14, DIR+16, DTE, DTEX
EN^DDIOL	DFRL+3, DFRL+4, DFRL+5, DFRL+6, MRTHLP+2, MRTHLP+3, MRTHLP+4, DP+9
^DIC	SYN+1
MIX^DIC1	EN+7
^DIE	DIR+4, DIR+10, DIR+21, IMMUN+2, SYN+3
UPDATE^DIE	PDCHK+17
^DIK	PDCHK+9
EN^DIK	DIR+32
$$GET1^DIQ	DISP+6
^DIR	PSSPOIMO+2, EN+12, EDIT, DIR, DIR+13, HEAD, SOL+1, SHEAD, PDCHK+4, ASK+3 , DASK+2, DP+14
EN2^PSSHL1	SYN+2, SYN1+1
MEDRT^PSSJORDF	SETF+1, MRSEL+1
CHECK^PSSPOID2	DIR+24
EN^PSSPOIDT	SYN+2, SYN1+1
REST^PSSPOIDT	DIR+30, DIR+31
ADDSYN^PSSPOIMP	DIR+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?3,"Orderable Item Auto-Create has not been completed yet!",! Line Location: PSSPOIMO+2
Function Call: WRITE	Prompt: !!,"This option enables you to edit Orderable Item names, Formulary status,",!,"drug text, Inactive Dates, Indications for Use, and Synonyms." Line Location: PSSPOIMO+3
Function Call: WRITE	Prompt: !! Line Location: EN+7
Function Call: WRITE	Prompt: !,$C(7),"Another person is editing this one." Line Location: EN+8
Function Call: WRITE	Prompt: !!!,?5,"Orderable Item -> ",PSOINAME,!?5,"Dosage Form -> ",$P($G(^PS(50.606,PSDOSE,0)),"^"),! Line Location: EN+9
Function Call: WRITE	Prompt: !!?3,"Now editing Orderable Item:",!?3,PSOINAME," ",$P($G(^PS(50.606,PSDOSE,0)),"^") Line Location: EDIT+1
Function Call: WRITE	Prompt: $C(7),!!?5,"??" Line Location: DIR+2
Function Call: WRITE	Prompt: !!,"Name changed from ",PSOINAME,!?15,"to ",PSONEW Line Location: DIR+4
Function Call: WRITE	Prompt: ! Line Location: DIR+5
Function Call: WRITE	Prompt: !,"This Orderable Item is marked as a Non-VA Med.",! Line Location: DIR+9
Function Call: WRITE	Prompt: ?40,"Inactive Date deleted!" Line Location: DIR+15
Function Call: WRITE	Prompt: ?40,$G(Y) Line Location: DIR+16
Function Call: WRITE	Prompt: ! Line Location: IMMUN+2
Function Call: WRITE	Prompt: ! Line Location: SYN+3
Function Call: WRITE	Prompt: !,$P($G(^PSDRUG(ZZ,0)),"^") Line Location: DISP+0
Function Call: WRITE	Prompt: " N/F" Condition for execution: $P($G(^PSDRUG(ZZ,0)),"^",9) Line Location: DISP+0
Function Call: WRITE	Prompt: ! Line Location: DISP+9
Function Call: WRITE	Prompt: $C(7),!,"This Orderable Item is flagged for IV use, but currently there are no IV",!,"Additives or IV Solutions matched to this Orderable Item!" Line Location: ADDIT+3
Function Call: WRITE	Prompt: $C(7),!!?5,"There is already an Orderable Item with this same name and Dosage Form",!?5,"that is not flagged as 'IV'. Use the 'DISPENSE DRUG/ORDERABLE ITEM",!?5,"MAINTENANCE' option if you want to re-match to this Orderable Item!",! Line Location: CHECK+2
Function Call: WRITE	Prompt: $C(7),!!?5,"There is already an Orderable Item with the same name and Dosage Form,",!?5,"that is flagged for 'IV' use.",! Line Location: ZCHECK+2
Function Call: WRITE	Prompt: !,$P($G(^PS(52.7,ZZ,0)),"^")," ",$P($G(^(0)),"^",3) Line Location: SOL+4
Function Call: WRITE	Prompt: !?5,"IV Solutions:",! Line Location: SHEAD+1
Function Call: WRITE	Prompt: !?5,"IV Solutions:",! Line Location: SHEAD+2
Function Call: WRITE	Prompt: !,$P($G(^PS(52.6,PSOARRAD,0)),"^")," ","(IV Additive)",! Line Location: SHEAD+3
Function Call: WRITE	Prompt: !?5,"IV Solutions:",! Line Location: SHEAD+3
Function Call: WRITE	Prompt: ?50,Y Line Location: DTE+0
Function Call: WRITE	Prompt: ?50,$G(Y) Line Location: DTEX+0
Function Call: WRITE	Prompt: !!,"The Corresponding IV Item is currently identified as: "_PSSIVMSG,! Line Location: IVMSG+5
Function Call: WRITE	Prompt: !!,"The Corresponding UD Item is currently identified as: "_PSSUDMSG,! Line Location: UDMSG+5
Function Call: WRITE	Prompt: !!," List of med routes associated with the DOSAGE FORM of the orderable item:",! Line Location: DFRL+0
Function Call: WRITE	Prompt: !,?3,"NO MED ROUTE DEFINED" Line Location: DFRL+1
Function Call: WRITE	Prompt: !,?3,$G(^(MCT)) Line Location: DFRL+2
Function Call: WRITE	Prompt: ! Line Location: DFRL+6
Function Call: WRITE	Prompt: !,?3,$G(^(MCT)) Line Location: PDR+5
Function Call: WRITE	Prompt: ! Line Location: PDR+6
Function Call: WRITE	Prompt: " ??" Line Location: PDCHK+10
Function Call: WRITE	Prompt: ! Line Location: ASK+1
Function Call: WRITE	Prompt: $C(7) Line Location: ASK+3
Function Call: WRITE	Prompt: $C(7) Line Location: DASK+2
Function Call: WRITE	Prompt: ! Line Location: MRTHLP+3
Function Call: WRITE	Prompt: !,"The following Med Routes will now be displayed during order entry:" Line Location: MRSEL+2
Function Call: WRITE	Prompt: !,$P(^(I),"^",2) Line Location: MRSEL+3
Function Call: WRITE	Prompt: ! Line Location: MRSEL+5
Function Call: WRITE	Prompt: !!,"Existing INDICATIONS FOR USE:" Line Location: LIND+12
Function Call: WRITE	Prompt: !,X(I) Line Location: LIND+13
Function Call: WRITE	Prompt: ! Line Location: LIND+14
Routine Call	DIC Line Location: SYN+1
Routine Call	DIE Line Location: DIR+4 DIR+10 DIR+21 IMMUN+2 SYN+3
Routine Call	DIE Line Location: PDCHK+17
Routine Call	DIR Line Location: PSSPOIMO+2 EN+12 EDIT DIR DIR+13 HEAD SOL+1 SHEAD PDCHK+4 ASK+3 DASK+2 DP+14

FileNo	Call Tags
^PS(50.7 - [#50.7]	Classic Fileman Calls
^PS(52.6 - [#52.6]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(50.606 - [#50.606]	EN+9, EDIT+1, HEAD+1, SHEAD+1, IVMSG+3, UDMSG+3, DFR+3, DFR+4
^PS(50.7 - [#50.7]	EN, EN+8, DIR+3, DIR+5, DIR+8, DIR+9, DIR+22, DIR+23, SYN+1, SYN+2! , END, HEAD+1, CHECK+1, ZCHECK+1, SHEAD+1, IVMSG+2, IVMSG+3, IVMSG+4, UDMSG+2, UDMSG+3 , UDMSG+4, PDR+2, PDCHK+8, PDCHK+11, PDCHK+14, MRTHLP+2, DP+2, LIND+1, LIND+3, LIND+4 , LIND+6, LIND+8, LIND+9
^PS(51.2 - [#51.2]	DFR+4, PDR+2, MRTHLP+2
^PS(52.6 - [#52.6]	DISP+3, DISP+5, DISP+7, ADDIT+1, SOL+2, SHEAD+3
^PS(52.7 - [#52.7]	DISP+10, DISP+11, DISP+12, ADDIT+2, SOL+3, SOL+4
^PS(59.7 - [#59.7]	PSSPOIMO+2, DIR+17
^PSDRUG - [#50]	DISP, DTE
^PSDRUG("AOC"	IMMUN+1
^PSDRUG("ASP"	DISP
^TMP("PSJMR"	DIR+21!, SETF+1!, SETF+2, MRSEL+1!, MRSEL+3
^TMP("PSSDMR"	DIR+21!, DFR+2!, DFR+5*, DFRL+1, DFRL+2, ASK+2
^TMP("PSSMR"	PDR+1!, PDR+2*, PDR+3, PDR+5, PDR+6!, PDCHK+18!

Label References

Name	Line Occurrences
$$ASK	PDCHK+15
$$DASK	PDCHK+6
@(	DIR+3
DFR	PDCHK+14
DFRL	DFR+6
DIR	DIR+2, DIR+3
DISP	EN+13
DP	PDCHK+19
DTE	DISP
DTEX	DISP+7, DISP+12
EDIT	ADDIT+3, SOL+1, SOL+6
EN	EN+12, EDIT, DIR+1, SYN+2, SYN1+2, SOL+1, SOL+5
END	EN+7
HEAD	DISP, DISP+3, DISP+10
MRSEL	DIR+21
PDR	PDCHK+4
SETF	DFR+1
SHEAD	SOL+4
SOL	ADDIT+4
SYN	IMMUN+1, SYN+3
SYN1	SYN

Naked Globals

Name	Field # of Occurrence
^(	DFRL+2, PDR+5, MRSEL+3
^(0	DISP+11, SOL+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AA	END!, ADDIT+1*, ADDIT+3
AAA	END!, SOL+2*
ANS	PDCHK+1~, PDCHK+6, PDCHK+7, PDCHK+15
BB	END!, ADDIT+2*, ADDIT+3
C	LIND+1~, LIND+2, LIND+5, LIND+7, LIND+10*, LIND+11, LIND+13
D	EN+7*!, PDCHK+1~, MRTHLP+1~, DP+1~
DA	DIR+4, DIR+10, DIR+18, DIR+32, IMMUN+2, SYN+3, PDCHK+6, PDCHK+7~, PDCHK+8*, PDCHK+11 , PDCHK+14, PDCHK+16, MRTHLP+2, LIND+1, LIND+3, LIND+4, LIND+6, LIND+8, LIND+9
DA(1	SYN+1, SYN+3, PDCHK+7*, PDCHK+8
DIC	EN+2!, EN+7!, SYN+1!, END!, PDCHK+1~, MRTHLP+1~, DP+1~
DIC("A"	SYN+1*
DIC("S"	EN+5*
DIC("W"	EN+5*
DIC(0	EN+7, SYN+1
DICR	PDCHK+1~, DP+1~
DIE	DIR+4, DIR+5!, DIR+10!, DIR+18, DIR+21!, IMMUN+2!, SYN+3*!, END!, PDCHK+1~, DP+1~
DIE("NO^"	SETF+2*, SETF+3!
DIK	DIR+32!, PDCHK+7~
DIK(1	DIR+32*
>> DILOCKTM	EN+8
DIR	PSSPOIMO+2!, EN+10!, EN+12!, EDIT!, DIR!, DIR+13!, END!, HEAD!, SOL+1!, SHEAD! , PDCHK+1~, ASK+1~, DASK+1~, DP+1~, DP+10!, DP+14!
DIR("?"	EN+10, EN+11, EDIT, DP+10, DP+11*
DIR("A"	PSSPOIMO+2, EN+12, EDIT, DIR, DIR+13, HEAD, SOL+1, SHEAD, PDCHK+2, ASK+2 , ASK+3, DASK+2, DP+12, DP+13
DIR("B"	EN+12, EDIT, DIR, DIR+14, SOL+1, PDCHK+9!, PDCHK+12!, PDCHK+13, ASK+1, ASK+2 , DP+13*
DIR("PRE"	PDCHK+3*
DIR("S"	PDCHK+2*
DIR(0	PSSPOIMO+2, EN+12, EDIT, DIR, DIR+13, HEAD, SOL+1, SHEAD, PDCHK+2, ASK+1 , DASK+2, DP+10
DIRUT	EN+1!, DIR+21, SYN, END!
>> DLAYGO	SYN+1*
DO	PDCHK+1~, DP+1~
DR	DIR+4, DIR+10, DIR+19, DIR+20, IMMUN+2, SYN+3, PDCHK+1~, DP+1~
DTOUT	EN+1!, EN+7, EN+12, EDIT, DIR+1, DIR+10, DIR+13, SYN, SYN+2, END! , SOL+1, PDCHK+5, DP+14
DUOUT	EN+1!, EN+7, EN+12, EDIT, DIR+1, DIR+13, SYN+2, END!, PDCHK+5, DP+14
FLAG	END!, DISP, DISP+2, HEAD, HEAD+1, SOL+4*, SHEAD, SHEAD+1, SHEAD+2, SHEAD+3
I	MRSEL+3~, LIND+1~, LIND+3, LIND+4, LIND+8, LIND+9, LIND+13
IOF	HEAD+1, SHEAD+1
IOSL	DISP, DISP+3, DISP+10, SOL+4
J	LIND+1~, LIND+4, LIND+9
K	LIND+1~, LIND+4, LIND+5, LIND+9, LIND+10
L	LIND+1~*, LIND+2, LIND+7
M	LIND+1~*, LIND+7, LIND+10
MCT	DFR+3, DFR+5, DFRL+1, DFRL+2, PDR+1~, PDR+2, PDR+5
MFLG	DIR+5~
MR	DFR+2~, DFR+3*, DFR+4, PDR+1~
MRNODE	DFR+2~, DFR+4, DFR+5, PDR+1~, PDR+2
PLINE	EN+7*, END!, SHEAD+1
PSAFTER	DIR+5, DIR+22, DIR+33!
PSBEFORE	DIR+5*, DIR+14, DIR+15, DIR+23, DIR+33!
PSCREATE	DIR+10!, DIR+21!
PSDOSE	EN+8*, EN+9, EDIT+1, END!, CHECK+1, ZCHECK+1, DFR~, DFR+3, DFR+4
PSINORDE	DIR+5, DIR+23, DIR+24, DIR+25, DIR+30, DIR+31, DIR+33!
PSOARR	END!, SOL+2!, SHEAD+3
PSOARR(	SOL+3*, SOL+4
PSOARRAD	END!, SOL+2!*, SHEAD+1, SHEAD+3
PSOIEN	EN, EN+8*, DIR+3, DIR+4, DIR+5, DIR+8, DIR+9, DIR+10, DIR+18, DIR+22 , DIR+23, DIR+24, DIR+30, DIR+31, DIR+32, IMMUN+1, IMMUN+2, SYN+1, SYN+2, SYN+3 , SYN1+1, END!, DISP, DISP+3, DISP+10, HEAD+1, ADDIT+1, ADDIT+2, SOL+2, SOL+3 , SHEAD+1, IVMSG+2, UDMSG+2, PDR+2, DP+2, SETF+1, MRSEL+1
PSOINAME	EN+8*, EN+9, EDIT+1, DIR, DIR+3, DIR+4, END!, HEAD+1, SHEAD+1
PSONEW	DIR+4*, END!
PSOUT	EN+7!, END!, DISP, DISP+1, DISP+3, DISP+8, DISP+10, HEAD, SOL+4, SOL+5 , SHEAD, PDCHK+1~, PDCHK+2, PDCHK+4, PDCHK+5
>> PSR	DP+9
>> PSR(1	DP+3*
>> PSR(2	DP+4*
>> PSR(3	DP+5*
>> PSR(4	DP+6*
>> PSR(5	DP+7*
>> PSR(6	DP+8*
>> PSS1	EN+3*, EN+5
>> PSS2	EN+4*, EN+5
PSSAACT	DIR+33!
PSSAACT(0	DIR+28, DIR+29, DIR+31
PSSAACTI	DIR+33!
PSSAACTI(0	DIR+26, DIR+27, DIR+30
PSSCROSS	EN+1!
PSSDA	PDCHK+1~
PSSDA(	PDCHK+16*
PSSDACT	DIR+33!
PSSDACT(0	DIR+28, DIR+29, DIR+31
PSSDACTI	DIR+33!
PSSDACTI(0	DIR+26, DIR+27, DIR+30
PSSDTENT	DIR+5, DIR+16, DIR+22, DIR+33!
PSSFG	DIR+18~, DP+14, DP+15, DP+16, SETF+2, SETF+3*
PSSITE	PSSPOIMO+2*!, PSSPOIMO+3!
PSSIVFRM	IVMSG+3*, IVMSG+4, IVMSG+6!
PSSIVMSG	IVMSG+2, IVMSG+3, IVMSG+4, IVMSG+5, IVMSG+6!
PSSLDATE	DISP~, DISP+7, DISP+12, DTEX
PSSLFLAG	DISP~, DISP+2, DISP+4
PSSOTH	DIR+17*, DIR+21!
PSSOU	DIR+18~, DIR+21, SETF+1, MRSEL+3, MRSEL+4, MRSEL+5*
PSSSACT	DIR+33!
PSSSACT(0	DIR+28, DIR+29, DIR+31
PSSSACTI	DIR+33!
PSSSACTI(0	DIR+26, DIR+27, DIR+30
PSSUDFRM	UDMSG+3*, UDMSG+4, UDMSG+6!
PSSUDMSG	UDMSG+2, UDMSG+3, UDMSG+4, UDMSG+5, UDMSG+6!
PSSX	PDCHK+1~, PDCHK+14*, PDCHK+15, PDCHK+16, ASK+2
PSSXA	PDCHK+1~, PDCHK+14*, ASK+3
PSSY	PDCHK+1~, PDCHK+6, PDCHK+8, PDCHK+9!, PDCHK+12!, PDCHK+13*
>> PSVAR	PDR+2, DP+2, SETF+1, MRSEL+1
PY	EN+7!
Q	PDCHK+1~, DP+1~
RTE	MRTHLP+1~, MRTHLP+2*
SSS	END!, SOL+3*
U	DFR+5, PDR+2, LIND+4, LIND+9
UPFLAG	END!, SOL+4, SHEAD
VV	END!, CHECK+1, ZCHECK+1
X	DIR+2, DIR+3, DIR+4, CHECK+1, ZCHECK+1, PDCHK+1~, PDCHK+5, PDCHK+6, ASK+1~, DP+1~ , LIND+1~
X(	LIND+5, LIND+7, LIND+10*, LIND+13
X(1	LIND+2*
XX	DFR+2~, DFR+4, DFR+5, PDR+1~, PDR+2
Y	EN+7, EN+8, EN+12, EN+13, EDIT, DIR+1, DIR+10, DIR+13, DIR+14, DIR+15 , DIR+16, SYN, SYN+2, SYN+3, END!, HEAD, SOL+1, SHEAD, DTE!, DTEX! , PDCHK+1~, PDCHK+10, PDCHK+11, PDCHK+13, PDCHK+14, ASK+1~, ASK+4, DASK+3, DP+1~, DP+14 , DP+15, LIND+1~, LIND+2, LIND+6*, LIND+7
Y(0	PDCHK+13, PDCHK+14
Z	PDCHK+1~, DP+1~
ZZ	END!, DISP, DISP+3, DISP+5, DISP+6, DISP+7, DISP+10, DISP+11, DISP+12, SOL+4 , DTE
ZZFLAG	DIR+3, END!, CHECK+1, CHECK+2, ZCHECK+1*, ZCHECK+2

Customize PDF page

Package: Pharmacy Data Management