Routine: PSDORD

Information

PSDORD ;BIR/JPW,LTL - Nurse CS Order Request Entry DIR style ;8 Aug 94

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
VA FileMan	5	NOW^%DTC ^DIC FILE^DICN ^DIE ^DIR
Controlled Substances	4	^PSDORD1 ^PSDORD3 ^PSDORD4 LIST^PSDORL

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

Package	Total	Caller Graph
Controlled Substances	2	PSDORD3 PSDORN

Entry Points

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

External References

Name	Field # of Occurrence
NOW^%DTC	DIE2+2
^DIC	DRUG+10
FILE^DICN	DIE2+1
^DIE	DIE2+3
^DIR	QTY+2, QTY+7
^PSDORD1	PSDORD+7, DRUG+10
^PSDORD3	DRUG+19
^PSDORD4	DRUG+11
LIST^PSDORL	DRUG+17

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Searching for ",$P($G(^VA(200,DUZ,.1)),U,4),"'s pending requests." Line Location: PSDORD+4
Function Call: WRITE	Prompt: "." Line Location: PSDORD+6
Function Call: WRITE	Prompt: ! Line Location: QTY+3
Function Call: WRITE	Prompt: !!,"Quantity must be "_NPKG_" or a multiple of "_NPKG,! Line Location: QTY+4
Function Call: WRITE	Prompt: !!,"This will be "_CNT_" separate order requests. The quantity is "_NPKG_" per request." Line Location: QTY+5
Function Call: WRITE	Prompt: ! Line Location: QTY+6
Function Call: WRITE	Prompt: !,"No order request created. You must edit quantity.",! Line Location: QTY+8
Function Call: WRITE	Prompt: !!,"The "_CNT_" requests are being created.",! Line Location: QTY+9
Function Call: WRITE	Prompt: ! Line Location: QTY+9
Function Call: WRITE	Prompt: !!,"Creating your order request # "_ORD_" of "_CNT_" for "_PSDRN Line Location: QTY+10
Function Call: WRITE	Prompt: ! Line Location: QTY+11
Function Call: WRITE	Prompt: ?10,!!,"processing now..." Line Location: DIE2+2
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	DIE Line Location: DIE2+3
Routine Call	DIR Line Location: QTY+2 QTY+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSD(58.8 - [#58.8]	PSDORD+5, PSDORD+6, DRUG+6, DRUG+11, DRUG+12, DRUG+13, DRUG+14, DRUG+19, QTY+10, DIE+1 , DIE+2, DIE2*, DIE2+4, DIE2+5
^PSDRUG - [#50]	DRUG+10
^VA(200 - [#200]	PSDORD+4

Label References

Name	Line Occurrences
DIE	QTY+3, QTY+10
DIE2	DIE2
DRUG	DRUG+11, QTY+2, QTY+3, QTY+9, QTY+11
END	PSDORD+7, DRUG+10, DRUG+11, DRUG+12, DRUG+13, DRUG+15, DRUG+16, QTY+2, QTY+7
MSG	DRUG+12, DRUG+13, DRUG+15, DRUG+16
QTY	QTY+4, QTY+8

Naked Globals

Name	Field # of Occurrence
^(0	PSDORD+6, DRUG+10, DRUG+11, DRUG+14, DIE+2*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Controlled Substances