Routine: PSDORP

Package	Total	Call Graph
VA Fileman	7	NOW^%DTC ^DIC FILE^DICN ^DIE ^DIR ^DIWP ^DIWW
Controlled Substances	3	LIST^PSDORL (,ASK)^PSDORP1 ^PSDORP2

Package

Total

Call Graph

VA Fileman

NOW^%DTC ^DIC FILE^DICN ^DIE ^DIR ^DIWP ^DIWW

Controlled Substances

LIST^PSDORL (,ASK)^PSDORP1 ^PSDORP2

Package	Total	Caller Graph
Controlled Substances	3	PSDORN PSDORNV PSDORP2

Package

Total

Caller Graph

Controlled Substances

PSDORN PSDORNV PSDORP2

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	Field # of Occurrence
NOW^%DTC	DIE+4
^DIC	NAOU+7, DRUG+3
FILE^DICN	DIE+3
^DIE	DIE+5
^DIR	QTY+6, QTY+17
^DIWP	NAOU+3
^DIWW	NAOU+4
LIST^PSDORL	DRUG+9
^PSDORP1	QTY+19
ASK^PSDORP1	QTY+7
^PSDORP2	DRUG+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Controlled Substances Order Entry",!! Line Location: PSDORP+2
Function Call: WRITE	Prompt: !!,"Contact your Pharmacy Coordinator.",!,"The Pharmacy Dispensing Site is invalid for this NAOU." Line Location: NAOU+13
Function Call: WRITE	Prompt: !!,"This will be "_CNT_" separate order requests," Line Location: QTY+11
Function Call: WRITE	Prompt: !!,(PSDQTY\NPKG)," order" Line Location: QTY+13
Function Call: WRITE	Prompt: " for ",NPKG," ",NBKU,"." Line Location: QTY+15
Function Call: WRITE	Prompt: ! Line Location: QTY+16
Function Call: WRITE	Prompt: !,"No order request created. You must edit quantity.",! Line Location: QTY+18
Function Call: WRITE	Prompt: !!,"The "_CNT_" requests are being created. You must review every request.",! Line Location: QTY+19
Function Call: WRITE	Prompt: !!,"Creating your order request # "_ORD_" of "_CNT_" for "_PSDRN Line Location: QTY+20
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	DIC Line Location: NAOU+7 DRUG+3
Routine Call	DIR Line Location: QTY+6 QTY+17

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PSDORP+2
^PSD(58.8 - [#58.8]	NAOU+3, NAOU+8, NAOU+9, NAOU+10, NAOU+11, NAOU+12, NAOU+13, DRUG+4, DRUG+5, DRUG+6 , DRUG+11, QTY+2, DIE+1, DIE+2*, DIE+6
^PSDRUG - [#50]	DRUG+3
^UTILITY($J	NAOU+1!
^VA(200 - [#200]	PSDORP+2

Label References

Name	Line Occurrences
DIE	QTY+7, QTY+20, DIE+2
DRUG	QTY+7, QTY+21
END	NAOU+7, NAOU+8, NAOU+9, NAOU+10, NAOU+11, NAOU+12, NAOU+13, DRUG+4, DRUG+5, DRUG+7 , DRUG+8, QTY+6, QTY+7, QTY+17
MSG	NAOU+8, NAOU+9, NAOU+10, NAOU+11, NAOU+12, DRUG+4, DRUG+5, DRUG+7, DRUG+8
NAOU	DRUG+3
QTY	QTY+18

Name	Field # of Occurrence
^(0	DRUG+3, DRUG+6, QTY+2, 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, QTY+7, QTY+9, QTY+10, QTY+11, QTY+14, QTY+16, QTY+19, QTY+20, END!
CNT1	END!
DA	NAOU+5!, DRUG+1!, QTY+16!, 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+7!, DRUG+1!, DRUG+2, DRUG+3!, END!, DIE+3!*
DIC("A"	NAOU+5*
DIC("S"	NAOU+6*
DIC("W"	DRUG+1*
DIC(0	NAOU+5, DRUG+2, DIE+3*
DIE	END!, DIE+3!*, DIE+5!
DINUM	END!, DIE+3*
DIR	QTY+6!, QTY+16!, QTY+17!, END!
DIR("?"	QTY+16, QTY+17
DIR("A"	QTY+5, QTY+16
DIR("B"	QTY+5, QTY+16
DIR(0	QTY+4, QTY+16
DIROUT	END!
DIRUT	QTY+16!, QTY+17, END!
DIWF	NAOU+2~*, END!
DIWL	NAOU+2~*, END!
DIWR	NAOU+2~*, END!
DO	DIE+3!
DR	END!, DIE+3!, DIE+5*!
DT	PSDORP+2
DTOUT	END!
DUOUT	END!
DUZ	PSDORP+2
LN	END!
MSG	PSDORP+2, NAOU+8, NAOU+9, NAOU+10, NAOU+11, NAOU+12, DRUG+5*, END!, MSG+1
MSG1	PSDORP+2, NAOU+9, NAOU+10, NAOU+12, DRUG+7, DRUG+8, END!, MSG+2
NAOU	NAOU+7*, NAOU+8, NAOU+9, NAOU+10, DRUG+2, DRUG+4, DRUG+11, QTY+2, END+1!, DIE+1 , DIE+2, DIE+3, DIE+5, DIE+6
NAOUN	NAOU+7*, END+1!
NBKU	DRUG+6*, DRUG+7, QTY+2, QTY+5, QTY+12, QTY+15, END+1!
NPKG	DRUG+6*, DRUG+8, QTY+5, QTY+7, QTY+9, QTY+10, QTY+13, QTY+15, QTY+19, END+1!
OK	END+1!
OKTYP	NAOU+13*, END+1!
ORD	QTY!, QTY+20*, END+1!
ORD(	QTY+20*
PSD	NAOU+2~, NAOU+3
PSDA	QTY+20, END+1!, DIE+2*, DIE+3, DIE+5, DIE+6
PSDOUT	QTY*, QTY+7, QTY+21, END+1!
PSDQTY	QTY+6, QTY+7, QTY+9, QTY+13, QTY+19*, END+1!, DIE+5
PSDR	DRUG+3*, DRUG+4, DRUG+5, DRUG+6, QTY+2, END+1!, DIE+1, DIE+2, DIE+3, DIE+5 , DIE+6
PSDR(2	QTY, QTY+9, QTY+12, QTY+14, QTY+19
PSDRD	END+1!
PSDRN	DRUG+3*, QTY+20, END+1!
PSDS	NAOU+10*, NAOU+11, NAOU+12, NAOU+13, DRUG+5, DRUG+6, END+1!, DIE+5
>> PSDSITE	NAOU+3
PSDT	END+1!, DIE+4*, DIE+5
PSDUZ	PSDORP+2*, END+1!
PSDUZA	END+1!, DIE+6*
PSDUZN	PSDORP+2*, END+1!
REQD	PSDORP+2*, END+1!
TEXT	END+1!
TYPE	NAOU+13*, END+1!
U	NAOU+3, DRUG+11, QTY+2
WORD	END+1!
X	NAOU+2~, NAOU+3, END+1!, DIE+3
Y	PSDORP+2*, NAOU+7, DRUG+3, QTY+6, QTY+7, QTY+10, QTY+18, QTY+19, END+1!

Customize PDF page

Package: Controlled Substances

Routine: PSDORP

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: