Routine: PSDORP2

Information

PSDORP2 ;BIR/JPW,LTL-Pharm CS Order Request Entry ; 22 Jun 94

Package	Total	Call Graph
VA Fileman	4	NOW^%DTC FILE^DICN ^DIE ^DIR
Controlled Substances	2	DRUG^PSDORP (,ASK)^PSDORP1

Package	Total	Caller Graph
Controlled Substances	1	PSDORP

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This will be "_CNT_" separate order requests," Line Location: NOMAX+4
Function Call: WRITE	Prompt: !!,(PSDQTY\PSDR(1))," order" Line Location: NOMAX+6
Function Call: WRITE	Prompt: " for ",PSDR(1)," ",NBKU,"." Line Location: NOMAX+8
Function Call: WRITE	Prompt: ! Line Location: NOMAX+9
Function Call: WRITE	Prompt: !,"No order request created. You must edit quantity.",! Line Location: NOMAX+11
Function Call: WRITE	Prompt: !!,"The "_CNT_" requests are being created. You must review every request.",! Line Location: NOMAX+12
Function Call: WRITE	Prompt: !!,"Creating your order request # "_ORD_" of "_CNT_" for "_PSDRN Line Location: NOMAX+13
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:"PSDR")_" 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	DIR Line Location: QTY+12 NOMAX+10

Name	Line Occurrences (* Changed, ! Killed)
^PSD(58.8 - [#58.8]	QTY+2, QTY+4, DIE+1, DIE+2*, DIE+6

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

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