Routine: PSDORD

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

Package	Total	Caller Graph
Controlled Substances	2	PSDORD3 PSDORN

Entry Points

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

External References

Name	Field # of Occurrence
NOW^%DTC	DIE+4
^DIC	DRUG+10
FILE^DICN	DIE+3
^DIE	DIE+5
^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: 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: DRUG+10
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*, DIE+6
^PSDRUG - [#50]	DRUG+10
^VA(200 - [#200]	PSDORD+4

Label References

Name	Line Occurrences
DIE	QTY+3, QTY+10, DIE+2
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+1*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END!, DIE+4
%DT	END!
%H	END!
%I	END!
CNT	QTY+5*, QTY+6, QTY+9, QTY+10, END!
CNT1	END!
DA	DRUG+2!, QTY+6!, END!, DIE+3!, DIE+5*
DA(1	DRUG+4, DRUG+9, DIE+3, DIE+5
DA(2	DIE+3, DIE+5
DD	DIE+3!
DIC	DRUG+2!, DRUG+4, DRUG+9, DRUG+10!, END!, DIE+3!*
DIC("S"	DRUG+3, DRUG+8
DIC("W"	DRUG+2, DRUG+7
DIC(0	DRUG+4, DIE+3
DIE	END!, DIE+3!*, DIE+5!
DINUM	END!, DIE+3*
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	DIE+3!
DR	END!, DIE+3!, DIE+5*!
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 , DIE+3, DIE+5, DIE+6
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!, DIE+2*, DIE+3, DIE+5, DIE+6
PSDA(	PSDORD+6, QTY+10, DIE+6*
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!, DIE+5
PSDR	DRUG+2!, DRUG+10*, DRUG+11, DRUG+12, DRUG+13, DRUG+14, QTY+10, END+1!, DIE+1, DIE+2 , DIE+3, DIE+5, DIE+6
PSDRD	END+1!
PSDRN	DRUG+10*, QTY+10, END+1!
PSDS	DRUG+4, DRUG+6, DRUG+13, DRUG+14, END+1!, DIE+5
PSDT	END+1!, DIE+4*, DIE+5
PSDUZ	END+1!, DIE+5
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!, DIE+3*
Y	DRUG+10, QTY+2, QTY+3, QTY+8, QTY+9, END+1!

Customize PDF page

Package: Controlled Substances

Routine: PSDORD

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: