Routine: PSDORV

Package	Total	Call Graph
VA Fileman	6	NOW^%DTC ^DIC FILE^DICN ^DIE ^DIWP ^DIWW
Controlled Substances	3	LIST^PSDORL ASK^PSDORV1 ^PSDSET

Package	Total	Caller Graph
Controlled Substances	1	PSD INFUSION O/E

Entry Points

Name	Comments	DBIA/ICR reference
END
DIE	;create the order request
DRUG	;select drug
QTY
MSG	;display error message
NAOU	;select NAOU to order supplies for

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to order",!,?12,"narcotic supplies.",!!,"PSJ RPHARM or PSJ PHARM TECH security key required.",! Line Location: PSDORV+4
Function Call: WRITE	Prompt: !!,"Controlled Substances Order Entry",!! Line Location: PSDORV+5
Function Call: WRITE	Prompt: !!,"Contact your Pharmacy Coordinator.",!,"The Pharmacy Dispensing Site is invalid for this NAOU." Line Location: NAOU+12
Function Call: READ	Timeout: DTIME Variable: X Line Location: QTY+0
Function Call: WRITE	Prompt: !!,"Quantity must be a whole number between 1 and 999999",! Line Location: QTY+1
Function Call: WRITE	Prompt: ?10,!!,"processing now..." Line Location: DIE+4
Function Call: WRITE	Prompt: $C(7),!!,?10,"Contact your Pharmacy Coordinator.",!,?10,"This "_$S(MSG=2:"Dispensing Site",MSG=1:"NAOU",1:"DRUG")_" is missing " Line Location: MSG+1
Function Call: WRITE	Prompt: $S(MSG1=1:"Primary Disp. Site",MSG1=2:"stocked drugs",MSG1=3:"narcotic breakdown unit",MSG1=4:"narcotic package size",1:"data")_".",! Line Location: MSG+2
Routine Call	DIE Line Location: DIE+5
Routine Call	DIC Line Location: NAOU+6 DRUG+2

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PSDORV+5
^PSD(58.8 - [#58.8]	NAOU+3, NAOU+7, NAOU+8, NAOU+9, NAOU+10, NAOU+11, NAOU+12, DRUG+3, DRUG+4, DRUG+5 , DIE+1, DIE+2*
^PSDRUG - [#50]	DRUG+2
^UTILITY($J	NAOU+1!
^VA(200 - [#200]	PSDORV+5
^XUSEC("PSJ PHARM TECH"	PSDORV+3
^XUSEC("PSJ RPHARM"	PSDORV+3

Name	Line Occurrences
DIE	QTY+2, DIE+2
DRUG	QTY+2
END	NAOU+6, NAOU+7, NAOU+8, NAOU+9, NAOU+10, NAOU+11, NAOU+12, DRUG+2, DRUG+3, DRUG+4 , DRUG+6, DRUG+7, QTY, QTY+2
MSG	NAOU+7, NAOU+8, NAOU+9, NAOU+10, NAOU+11, DRUG+3, DRUG+4, DRUG+6, DRUG+7
QTY	QTY+1

Name	Field # of Occurrence
^(0	DRUG+2, DRUG+5, DIE+1*

Name	Field # of Occurrence
%	END!, DIE+4
%DT	END!
%H	END!
%I	END!
CNT	QTY+2*, END!
CNT1	END!
DA	NAOU+5!, DRUG+1!, END!, DIE+3!, DIE+5*
DA(1	DRUG+2, DIE+3, DIE+5*
DA(2	DIE+3, DIE+5
DD	DIE+3!
DIC	NAOU+5!, NAOU+6!, DRUG+1!, DRUG+2!, END!, DIE+3!*
DIC("A"	NAOU+5*
DIC("S"	NAOU+5*
DIC("W"	DRUG+1*
DIC(0	NAOU+5, DRUG+2, DIE+3*
DIE	END!, DIE+3!*, DIE+5!
DINUM	END!, DIE+3*
DIR	END!
DIROUT	END!
DIRUT	END!
DIWF	NAOU+2~*, END!
DIWL	NAOU+2~*, END!
DIWR	NAOU+2~*, END!
DO	DIE+3!
DR	END!, DIE+3!, DIE+5*!
DT	PSDORV+5
DTIME	QTY
DTOUT	END!
DUOUT	END!
DUZ	PSDORV+3, PSDORV+5
LN	END!
MSG	PSDORV+5, NAOU+7, NAOU+8, NAOU+9, NAOU+10, NAOU+11, DRUG+4*, END!, MSG+1
MSG1	PSDORV+5, NAOU+8, NAOU+9, NAOU+11, DRUG+6, DRUG+7, END!, MSG+2
NAOU	NAOU+6*, NAOU+7, NAOU+8, NAOU+9, DRUG+2, DRUG+3, END+1!, DIE+1, DIE+2, DIE+3 , DIE+5
NAOUN	NAOU+6*, END+1!
NBKU	DRUG+5*, DRUG+6, QTY, END+1!
NPKG	DRUG+5*, DRUG+7, QTY, QTY+1, END+1!
OK	PSDORV+3*, PSDORV+4!, END+1!
OKTYP	NAOU+12*, END+1!
ORD	QTY!, END+1!
PSD	NAOU+2~, NAOU+3
PSDA	END+1!, DIE+2*, DIE+3, DIE+5
PSDOUT	QTY*, QTY+2, END+1!
PSDQTY	QTY+1, QTY+2, END+1!, DIE+5
PSDR	DRUG+2*, DRUG+3, DRUG+4, DRUG+5, END+1!, DIE+1, DIE+2, DIE+3, DIE+5
PSDRD	END+1!
PSDRN	DRUG+2*, END+1!
PSDS	NAOU+9*, NAOU+10, NAOU+11, NAOU+12, DRUG+4, DRUG+5, END+1!, DIE+5
>> PSDSITE	PSDORV+2, NAOU+3
PSDT	END+1!, DIE+4*, DIE+5
PSDUZ	PSDORV+5*, END+1!, DIE+5
PSDUZN	PSDORV+5*, END+1!
REQD	PSDORV+5*, END+1!
TEXT	END+1!
TYPE	NAOU+12*, END+1!
U	NAOU+3
WORD	END+1!
X	NAOU+2~, NAOU+3, QTY, QTY+1, QTY+2, END+1!, DIE+3
Y	PSDORV+5*, NAOU+6, DRUG+2, END+1!