Routine: PSDORNC

Information

PSDORNC ;BIR/JPW,LTL-Nurse CS PCA Order Request Entry ; 8 Aug 94

Package	Total	Call Graph
Controlled Substances	6	^PSDOR2 LIST^PSDORL DIE^PSDORN0 (,ASK)^PSDORN1 ^PSDORNO PAT^PSDORNV
VA Fileman	2	^DIC ^DIR
Kernel	1	(ENS,KILL)^%ZISS

Package	Total	Caller Graph
Controlled Substances	1	PSDORNV

Name	Line Occurrences
Function Call: WRITE	Prompt: IOBON,!!,?20,"ZERO BALANCE IN PHARMACY",IOBOFF Line Location: DRUG+12
Function Call: READ	Timeout: DTIME Variable: X Line Location: QTY+0
Function Call: WRITE	Prompt: ! Line Location: QTY+5
Function Call: WRITE	Prompt: !!,"Quantity must be "_NPKG_" or a multiple of "_NPKG,! Line Location: QTY+7
Function Call: WRITE	Prompt: !!,"This will be "_CNT_" separate order requests. The quantity is "_NPKG_" per request." Line Location: QTY+8
Function Call: WRITE	Prompt: ! Line Location: QTY+9
Function Call: WRITE	Prompt: !,"No order request created. You must edit quantity.",! Line Location: QTY+11
Function Call: WRITE	Prompt: !!,"The "_CNT_" requests are being created. You must review every request.",! Line Location: QTY+12
Function Call: WRITE	Prompt: !!,"Creating your order request # "_ORD_" of "_CNT_" for "_PSDRN Line Location: QTY+13
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	DIC Line Location: DRUG+10
Routine Call	DIR Line Location: QTY+5 QTY+10

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	QTY+5
^PSD(58.8 - [#58.8]	DRUG+6, DRUG+12, DRUG+13, DRUG+14, DRUG+15, DRUG+20
^PSDRUG - [#50]	DRUG+10

Name	Line Occurrences
DRUG	QTY+5, QTY+6, QTY+14
END	DRUG+10, DRUG+13, DRUG+14, DRUG+16, DRUG+17, QTY, QTY+6, QTY+10, QTY+12
MSG	DRUG+14, DRUG+16, DRUG+17
QTY	QTY+7, QTY+11

Name	Field # of Occurrence
^(0	DRUG+10, DRUG+13, DRUG+15

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