Routine: PSSPOIMO

Package	Total	Call Graph
VA Fileman	6	DD^%DT ^DIC MIX^DIC1 ^DIE EN^DIK ^DIR
Pharmacy Data Management	4	EN2^PSSHL1 CHECK^PSSPOID2 (EN,REST)^PSSPOIDT ADDSYN^PSSPOIMP

Package	Total	Caller Graph
Pharmacy Data Management	1	PSS EDIT ORDERABLE ITEMS

Entry Points

External References

Name	Field # of Occurrence
DD^%DT	DIR+16, DIR+18, DTE, DTEX
^DIC	SYN
MIX^DIC1	EN+7
^DIE	DIR+4, DIR+12, DIR+21, SYN+2
EN^DIK	DIR+32
^DIR	PSSPOIMO+3, EN+14, EDIT, DIR, DIR+15, HEAD, SOL+1, SHEAD
EN2^PSSHL1	SYN+1, SYN+3
CHECK^PSSPOID2	DIR+24
EN^PSSPOIDT	SYN+1, SYN+3
REST^PSSPOIDT	DIR+30, DIR+31
ADDSYN^PSSPOIMP	DIR+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?3,"Orderable Item Auto-Create has not been completed yet!",! Line Location: PSSPOIMO+3
Function Call: WRITE	Prompt: !!,"This option enables you to edit Orderable Item names, Formulary status,",!,"drug text, Inactive Dates, and Synonyms." Line Location: PSSPOIMO+4
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,"* This Orderable Item is flagged for IV use! *",! Line Location: EN+10
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+7
Function Call: WRITE	Prompt: !,"This Orderable Item is marked as a Non-VA Med.",! Line Location: DIR+11
Function Call: WRITE	Prompt: ?40,"Inactive Date deleted!" Line Location: DIR+17
Function Call: WRITE	Prompt: ?40,$G(Y) Line Location: DIR+18
Function Call: WRITE	Prompt: ! Line Location: SYN+2
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+8
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
Routine Call	DIE Line Location: DIR+4 DIR+12 DIR+21 SYN+2
Routine Call	DIC Line Location: SYN
Routine Call	DIR Line Location: PSSPOIMO+3 EN+14 EDIT DIR DIR+15 HEAD SOL+1 SHEAD

FileMan Files Accessed Via FileMan Db Call

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

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
^PS(50.7 - [#50.7]	EN, EN+8, DIR+3, DIR+7, DIR+10, DIR+11, DIR+22, DIR+23, SYN, SYN+1! , END, HEAD+1, CHECK+1, ZCHECK+1, SHEAD+1, IVMSG+2, IVMSG+3, IVMSG+4, UDMSG+2, UDMSG+3 , UDMSG+4
^PS(52.6 - [#52.6]	DISP+3, DISP+5, DISP+6, ADDIT+1, SOL+2, SHEAD+3
^PS(52.7 - [#52.7]	DISP+9, DISP+10, DISP+11, ADDIT+2, SOL+3, SOL+4
^PS(59.7 - [#59.7]	PSSPOIMO+3, DIR+19
^PSDRUG - [#50]	DISP, DTE
^PSDRUG("AOC"	IMMUN+1
^PSDRUG("ASP"	DISP

Label References

Name	Line Occurrences
@(	DIR+3
DIR	DIR+2, DIR+3
DISP	EN+15
DTE	DISP
DTEX	DISP+6, DISP+11
EDIT	ADDIT+3, SOL+1, SOL+6
EN	EN+14, EDIT, DIR+1, SYN+1, SYN+4, SOL+1, SOL+5
END	EN+7
HEAD	DISP, DISP+3, DISP+9
SHEAD	SOL+4
SOL	ADDIT+4
SYN	IMMUN+1, SYN+2

Naked Globals

Name	Field # of Occurrence
^(0	DISP+10, 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*
BB	END!, ADDIT+2*, ADDIT+3
D	EN+7*!
>> DA	DIR+4, DIR+12, DIR+20, DIR+32, SYN+2*
>> DA(1	SYN, SYN+2
DIC	EN+2!, EN+7!, SYN!, END!
DIC("A"	SYN*
DIC("S"	EN+5*
DIC("W"	EN+5*
DIC(0	EN+7, SYN
DIE	DIR+4, DIR+7!, DIR+12!, DIR+20, DIR+21!, SYN+2!, END!
DIK	DIR+32*!
DIK(1	DIR+32*
>> DILOCKTM	EN+8
DIR	PSSPOIMO+3!, EN+12!, EN+14!, EDIT!, DIR!, DIR+15!, END!, HEAD!, SOL+1!, SHEAD!
DIR("?"	EN+12, EN+13, EDIT*
DIR("A"	PSSPOIMO+3, EN+14, EDIT, DIR, DIR+15, HEAD, SOL+1, SHEAD
DIR("B"	EN+14, EDIT, DIR, DIR+16, SOL+1*
DIR(0	PSSPOIMO+3, EN+14, EDIT, DIR, DIR+15, HEAD, SOL+1, SHEAD
>> DLAYGO	SYN*
>> DR	DIR+4, DIR+12, DIR+20, SYN+2
DTOUT	EN+7, EN+14, EDIT, DIR+1, DIR+12, DIR+15, SYN+1, END!, SOL+1
DUOUT	EN+7, EN+14, EDIT, DIR+1, DIR+15, SYN+1, END!
FLAG	END!, DISP, DISP+2, HEAD, HEAD+1, SOL+4*, SHEAD, SHEAD+1, SHEAD+2, SHEAD+3
IOF	HEAD+1, SHEAD+1
IOSL	DISP, DISP+3, DISP+9, SOL+4
MFLG	DIR+7~
PLINE	EN+7*, END!, SHEAD+1
PSAFTER	DIR+7, DIR+22, DIR+33!
PSBEFORE	DIR+7*, DIR+16, DIR+17, DIR+23, DIR+33!
PSCREATE	DIR+12!, DIR+21!
PSDOSE	EN+8*, EN+9, EDIT+1, END!, CHECK+1, ZCHECK+1
PSINORDE	DIR+7, 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+7, DIR+10, DIR+11, DIR+12, DIR+20, DIR+22 , DIR+23, DIR+24, DIR+30, DIR+31, DIR+32, IMMUN+1, SYN, SYN+1, SYN+2, SYN+3 , END!, DISP, DISP+3, DISP+9, HEAD+1, ADDIT+1, ADDIT+2, SOL+2, SOL+3, SHEAD+1 , IVMSG+2, UDMSG+2
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+7, DISP+9, HEAD, SOL+4, SOL+5 , SHEAD
>> 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!
PSSDACT	DIR+33!
PSSDACT(0	DIR+28, DIR+29, DIR+31
PSSDACTI	DIR+33!
PSSDACTI(0	DIR+26, DIR+27, DIR+30
PSSDTENT	DIR+7, DIR+18, DIR+22, DIR+33!
PSSITE	PSSPOIMO+3*!, PSSPOIMO+4!
PSSIVFRM	IVMSG+3*, IVMSG+4, IVMSG+6!
PSSIVMSG	IVMSG+2, IVMSG+3, IVMSG+4, IVMSG+5, IVMSG+6!
PSSLDATE	DISP~, DISP+6, DISP+11, DTEX
PSSLFLAG	DISP~, DISP+2, DISP+4
PSSOTH	DIR+19*, DIR+21!
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!
PY	EN+7!
SSS	END!, SOL+3*
UPFLAG	END!, SOL+4, SHEAD
VV	END!, CHECK+1, ZCHECK+1
>> X	DIR+2, DIR+3, DIR+4, CHECK+1, ZCHECK+1
Y	EN+7, EN+8, EN+14, EN+15, EDIT, DIR+1, DIR+12, DIR+15, DIR+16, DIR+17 , DIR+18, SYN+1, SYN+2, END!, HEAD, SOL+1, SHEAD, DTE!, DTEX*!
ZZ	END!, DISP, DISP+3, DISP+5, DISP+6, DISP+9, DISP+10, DISP+11, SOL+4, DTE
ZZFLAG	DIR+3, END!, CHECK+1, CHECK+2, ZCHECK+1*, ZCHECK+2

Customize PDF page

Package: Pharmacy Data Management

Routine: PSSPOIMO

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
DISP
HEAD
EN
END
IVMSG	; display a message if the CORRESPONDING IV field is entered
EDIT
SYN
DTE
SOL	;
SHEAD
IMMUN	;PSS1141 FOR 'IMMUNIZATIONS DOCUMENTATION BY BCMA'
UDMSG	; display a message if the CORRESPONDING UD field is entered
DTEX
ZCHECK	;
CHECK	;
DIR
ADDIT	;If orderable item is flagged for IV