Routine: PSSADDIT

Information

PSSADDIT ;BIR/RTR/WRT-Manual match Additives to Orderable Items; 09/01/98 7:06

Package	Total	Call Graph
Pharmacy Data Management	5	EN2^PSSHL1 (EN,REST)^PSSPOIDT DIR^PSSPOIM3 (,REMAT,SELIV)^PSSSOLIT MAT^PSSSUTIL
VA FileMan	4	^DIC FILE^DICN ^DIE ^DIR
National Drug File	1	$$PSJDF^PSNAPIS

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: 4

Package	Total	Caller Graph
Pharmacy Data Management	4	PSSPOIM2 PSSPOIM3 PSSSUTIL PSSVIDRG

Entry Points

Name	Comments	DBIA/ICR reference
SEL
EN
MAS	;Entry point for Master Enter/Edit
ENTER
INACT
SYN
CHECK
END
ADD	;
PASS
XDIR
NEW
INPUT

External References

Name	Field # of Occurrence
^DIC	EN+1, SYN, ADD+4
FILE^DICN	NEW+3
^DIE	ENTER+4, INACT, SYN+2, NEW+6
^DIR	PSSADDIT+5, SEL, ENTER+2, PASS+2, PASS+3, XDIR+3, XDIR+8, NEW+2
$$PSJDF^PSNAPIS	ADD+2
EN2^PSSHL1	ENTER+4, SYN+1, SYN+3, NEW+11
EN^PSSPOIDT	ENTER+4, NEW+11
REST^PSSPOIDT	INACT+2
DIR^PSSPOIM3	NEW+9
^PSSSOLIT	SEL+1
REMAT^PSSSOLIT	EN+1
SELIV^PSSSOLIT	ENTER+2
MAT^PSSSUTIL	PASS+3, XDIR+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?3,"Orderable Item Auto-Create has not been completed yet!",! Line Location: PSSADDIT+5
Function Call: WRITE	Prompt: !!,"This option enables you to match IV Additives or IV Solutions to the Pharmacy",!,"Orderable Item File." Line Location: PSSADDIT+6
Function Call: WRITE	Prompt: ! Line Location: EN+1
Function Call: WRITE	Prompt: !,$C(7),"Another person is editing this additive." Line Location: MAS+1
Function Call: WRITE	Prompt: $C(7),!!?5,"This IV Additive does not point to the Dispense Drug File (#50)",!?5,"it cannot be matched to an Orderable Item!",! Line Location: MAS+2
Function Call: WRITE	Prompt: !!,"IV ADDITIVE -> ",PSANAME,!," is already matched to:",!,PSOINAME," ",$P($G(^PS(50.606,PSOIDOSE,0)),"^") Line Location: ENTER+1
Function Call: WRITE	Prompt: ! Line Location: ENTER+2
Function Call: WRITE	Prompt: ! Line Location: INACT+0
Function Call: WRITE	Prompt: ! Line Location: SYN+2
Function Call: WRITE	Prompt: !?3,"*** Dose Form from NDF: ",$P($G(^PS(50.606,PSDOSPTR,0)),"^") Line Location: ADD+3
Function Call: WRITE	Prompt: ! Line Location: ADD+4
Function Call: WRITE	Prompt: $C(7),!!,"There is already an Orderable Item named:",!?5,$P($G(^PS(50.7,ZZFLAG,0)),"^")," ",$P($G(^PS(50.606,+$P($G(^(0)),"^",2),0)),"^"),! Line Location: PASS+1
Function Call: WRITE	Prompt: !!,"Matching: ",PSANAME,!," to",!,$P($G(^PS(50.7,+ZZFLAG,0)),"^")_" "_PSDOSNM Line Location: PASS+3
Function Call: WRITE	Prompt: ! Line Location: PASS+3
Function Call: WRITE	Prompt: $C(7),!!?5,"You must create a new Orderable Item Name for this IV Additive, since a",!?5,"duplicate already exists with another IV Additive matched to it!",! Line Location: PASS+4
Function Call: WRITE	Prompt: !!,"Additive Name -> ",$G(PSANAME),!,"Dose Form -> ",$G(PSDOSNM),! Line Location: XDIR+0
Function Call: WRITE	Prompt: $C(7),!!,?2,"A duplicate Name and Dose Form entry already exists in the Orderable Item",!,?2,"File, with a corresponding matched IV Additive. You must select another name!" Line Location: XDIR+7
Function Call: WRITE	Prompt: !!,"Matching: ",PSANAME,!," to",!,$P($G(^PS(50.7,PFLAGOI,0)),"^")_" "_$G(PSDOSNM) Line Location: XDIR+8
Function Call: WRITE	Prompt: ! Line Location: XDIR+8
Function Call: WRITE	Prompt: !!,"Matching: ",PSANAME,!," to",!,HOLDOI_" "_$G(PSDOSNM) Line Location: NEW+1
Function Call: WRITE	Prompt: !!?5,"UNABLE TO CREATE ENTRY, TRY AGAIN!",! Line Location: NEW+4
Function Call: WRITE	Prompt: !!?3,"Now editing Orderable Item:",!?3,$P(^PS(50.7,PSNEWOI,0),"^")," ",$P($G(^PS(50.606,+$P(^(0),"^",2),0)),"^") Line Location: NEW+9
Function Call: WRITE	Prompt: $C(7),!?5,"??",! Line Location: INPUT+0
Routine Call	DIC Line Location: EN+1 SYN ADD+4
Routine Call	DIE Line Location: ENTER+4 INACT SYN+2 NEW+6
Routine Call	DIR Line Location: PSSADDIT+5 SEL ENTER+2 PASS+2 PASS+3 XDIR+3 XDIR+8 NEW+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(50.606 - [#50.606]	ENTER+1, ADD+3, PASS, PASS+1, NEW+9
^PS(50.7 - [#50.7]	ENTER+1, INACT, SYN, SYN+1!, CHECK, PASS+1, PASS+3, XDIR+6, XDIR+8, NEW+7 , NEW+8*, NEW+9
^PS(52.6 - [#52.6]	EN, MAS+1, CHECK, END, XDIR+7, XDIR+8, XDIR+9, NEW+5
^PS(59.7 - [#59.7]	PSSADDIT+5
^PSDRUG - [#50]	ADD+1

Label References

Name	Line Occurrences
@(	ENTER+2
ADD	ENTER, ENTER+4
CHECK	PASS
EN	MAS+2, SYN+1, SYN+4, ADD+4, PASS+2, PASS+3, XDIR+3, XDIR+8, NEW+12
END	PSSADDIT+6, SEL, EN+1, SYN+1, SYN+4
INACT	NEW+9
INPUT	XDIR+1, XDIR+5
PASS	ADD+3
SYN	SYN+2
XDIR	XDIR+5, XDIR+7, XDIR+8, NEW+2, NEW+4

Naked Globals

Name	Field # of Occurrence
^(	NEW+5, NEW+8
^(0	MAS+1, ENTER+1, CHECK, PASS+1, NEW+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	ENTER+4, INACT, SYN+2, END+2!, ADD+1, ADD+2, NEW+6*
DA(1	SYN, SYN+2
DD	NEW+3!
DIC	EN+1!, SYN!, END+2!, ADD+4!, NEW+3!
DIC("A"	EN+1, SYN, ADD+4*
DIC("DR"	NEW+3*
DIC(0	EN+1, SYN, ADD+4, NEW+3
DIE	ENTER+4!, INACT!, SYN+2!, NEW+6!
>> DILOCKTM	MAS+1
DIR	PSSADDIT+5!, SEL!, ENTER+2!, PASS+2!, PASS+3!, XDIR+2!, XDIR+3!, XDIR+8!, NEW+2!
DIR("A"	PSSADDIT+5, SEL, ENTER+2, PASS+2, PASS+3, XDIR+2, XDIR+8, NEW+2
DIR("B"	ENTER+2, PASS+2, PASS+3, XDIR+2, XDIR+8, NEW+2
DIR(0	PSSADDIT+5, SEL, ENTER+2, PASS+2, PASS+3, XDIR+2, XDIR+8, NEW+2
>> DLAYGO	SYN*
DO	NEW+3!
DR	ENTER+4, INACT, SYN+2, END+2!, NEW+6
DTOUT	SEL, EN+1, SYN+1, END+2!, ADD+4, PASS+2, PASS+3, XDIR+3, XDIR+8
>> DUOUT	SEL, EN+1, SYN+1, ADD+4, XDIR+3
HOLDOI	END+2!, XDIR+4*, NEW+1, NEW+3
INFLAG	END+2!, XDIR+2, XDIR+5, INPUT*
>> K	ADD+1*, ADD+2
LL	END+2!, NEW+8*
NEWFLAG	SYN+1, SYN+3, END+2!, NEW+9*!, NEW+10!
PANS	END+2!, PASS+3*
PFLAG	END+2!, XDIR+6*, XDIR+7, XDIR+8, XDIR+9
PFLAGOI	END+2!, XDIR+6*, XDIR+7, XDIR+8, XDIR+9
PSAFTER	INACT*, INACT+1, INACT+3!
PSAIEN	EN, MAS+1*, ENTER+3, ENTER+4, END, END+2!, NEW+5, NEW+6
PSANAME	MAS+1*, ENTER+1, END+2!, PASS, PASS+3, XDIR, XDIR+1, XDIR+2, XDIR+5, XDIR+8 , NEW+1, NEW+2
PSBEFORE	INACT*, INACT+1, INACT+3!
PSDELADD	ENTER+3*, END+1!
PSDELFLG	EN+1, ENTER+3*, END+1!
PSDELOIT	ENTER+3*, END+1!
PSDISP	MAS+1*, MAS+2, END+2!, ADD+1
PSDOSNM	END+2!, PASS*, PASS+3, XDIR, XDIR+8, NEW+1
PSDOSPTR	END+2!, ADD+1!, ADD+2, ADD+3, ADD+5, PASS
PSINORDE	INACT, INACT+1, INACT+2, INACT+3!
PSJOUT	EN+1!
>> PSMASTER	EN+1
PSND	END+2!, ADD+1*
PSND1	END+2!, ADD+1*, ADD+2
PSND3	END+2!, ADD+1*, ADD+2
PSNDOSE	END+2!
PSNEWOI	END+2!, NEW+5*, NEW+6, NEW+7, NEW+8, NEW+9, NEW+11
PSOIDOSE	ENTER+1, ENTER+4!, CHECK, END+2!, PASS, XDIR+6, NEW+3
PSOINAME	ENTER+1*, ENTER+4!, END+2!
PSONEW	END+2!
PSPOI	MAS+1, ENTER, ENTER+1, ENTER+3, ENTER+4!, INACT, INACT+2, SYN, SYN+1, SYN+2 , SYN+3, END+2!, NEW+9, NEW+11
PSSDIR	NEW+9, NEW+10!
PSSITE	PSSADDIT+5*!, PSSADDIT+6!
>> PSSIVOUT	ENTER+2
>> PSSJI	ENTER+2
PSSSSS	SEL*, EN+1, SYN+1, SYN+3, END+1!, NEW+11
QQ	END+2!, XDIR+6*
SCLAST	END+2!
SCOUNT	END+2!, NEW+5*, NEW+7, NEW+8
SS	END+2!, NEW+5*
SYN	END+2!
SYN(	NEW+5*, NEW+7
SYN1	END+2!
SYNNAM	END+2!, NEW+8*
TT	END+2!
VV	CHECK*, END+2!
VVV	END+2!
WW	END+2!, NEW+7*
X	END+2!, ADD+2, XDIR+1, XDIR+4, XDIR+5, XDIR+6, NEW+2, NEW+3*, INPUT
XXX	CHECK, END+2!, PASS*
Y	SEL, SEL+1, EN+1, MAS+1, ENTER+2, SYN+1, SYN+2, END+2!, ADD+4, ADD+5 , PASS+2, PASS+3, XDIR+3, XDIR+8, NEW+2, NEW+4, NEW+5
ZZFLAG	CHECK, END+2!, PASS+1, PASS+3, XDIR+9
ZZXFLAG	CHECK*, END+2!, PASS+1, PASS+3, PASS+4, XDIR+2

Customize PDF page

Package: Pharmacy Data Management