Routine: PSDORN

Package	Total	Call Graph
Controlled Substances	8	^PSDOR2 ^PSDORD LIST^PSDORL DIE^PSDORN0 (,ASK)^PSDORN1 ^PSDORNO ^PSDORP ^PSDSET
VA Fileman	4	^DIC ^DIR ^DIWP ^DIWW
Kernel	2	(ENDR,ENS,KILL)^%ZISS EN^XQH

Package

Total

Call Graph

Controlled Substances

^PSDOR2 ^PSDORD LIST^PSDORL DIE^PSDORN0 (,ASK)^PSDORN1 ^PSDORNO ^PSDORP ^PSDSET

VA Fileman

^DIC ^DIR ^DIWP ^DIWW

Kernel

(ENDR,ENS,KILL)^%ZISS EN^XQH

Package	Total	Caller Graph
Controlled Substances	2	PSD ORDER ENTRY PSDOR2

Package

Total

Caller Graph

Controlled Substances

PSD ORDER ENTRY PSDOR2

Name	Comments	DBIA/ICR reference
END
DRUG	;select drug
QTY
MSG	;display error message
NAOU	;select NAOU to order supplies for
TYPE

External References

Name	Field # of Occurrence
ENDR^%ZISS	NAOU+13
ENS^%ZISS	DRUG+12
KILL^%ZISS	NAOU+15, DRUG+12
^DIC	NAOU+3, DRUG+10
^DIR	TYPE+4, QTY+5, QTY+10
^DIWP	NAOU+14
^DIWW	NAOU+15
^PSDOR2	DRUG+20
^PSDORD	TYPE+4
LIST^PSDORL	DRUG+18
DIE^PSDORN0	QTY+6, QTY+13
^PSDORN1	QTY+12
ASK^PSDORN1	QTY+6
^PSDORNO	DRUG+13
^PSDORP	PSDORN+14
^PSDSET	PSDORN+10
EN^XQH	PSDORN+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,?9,"** Please contact your Coordinator for access to order",!,?12,"narcotic supplies.",!!,"PSJ RNURSE, PSJ RPHARM, or PSJ PHARM TECH security key required.",! Line Location: PSDORN+12
Function Call: WRITE	Prompt: ! Line Location: NAOU+3
Function Call: WRITE	Prompt: !!,"Contact your Pharmacy Coordinator.",!,"The Pharmacy Dispensing Site is invalid for this NAOU." Line Location: NAOU+11
Function Call: WRITE	Prompt: ! Line Location: NAOU+12
Function Call: WRITE	Prompt: IORVON Line Location: NAOU+13
Function Call: WRITE	Prompt: IORVOFF Line Location: NAOU+15
Function Call: WRITE	Prompt: ! Line Location: TYPE+4
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: NAOU+3 DRUG+10
Routine Call	DIR Line Location: TYPE+4 QTY+5 QTY+10

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PSDORN+15, QTY+5
^PSD(58.8 - [#58.8]	NAOU+4, NAOU+5, NAOU+6, NAOU+7, NAOU+9, NAOU+10, NAOU+11, NAOU+14, DRUG+6, DRUG+12 , DRUG+13, DRUG+14, DRUG+15, DRUG+20
^PSDRUG - [#50]	DRUG+10
^UTILITY($J	NAOU+12!
^VA(200 - [#200]	PSDORN+13
^XUSEC("PSJ PHARM TECH"	PSDORN+11
^XUSEC("PSJ RNURSE"	PSDORN+11
^XUSEC("PSJ RPHARM"	PSDORN+11

Label References

Name	Line Occurrences
DRUG	QTY+6, QTY+14
END	PSDORN+13, NAOU+3, NAOU+4, NAOU+5, NAOU+8, NAOU+9, NAOU+10, NAOU+11, TYPE+4, DRUG+10 , DRUG+13, DRUG+14, DRUG+16, DRUG+17, QTY, QTY+6, QTY+10, QTY+12
MSG	NAOU+4, NAOU+5, NAOU+8, NAOU+9, NAOU+10, DRUG+14, DRUG+16, DRUG+17
QTY	QTY+7, QTY+11
TYPE	DRUG+13, QTY+5

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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	NAOU+1!, DRUG+1!, QTY+9!, END!
DA(1	DRUG+4, DRUG+9
DIC	NAOU+1!, NAOU+3!, DRUG+1!, DRUG+4, DRUG+9*, DRUG+10!, END!
DIC("A"	NAOU+1*
DIC("S"	NAOU+2, DRUG+3, DRUG+8*
DIC("W"	DRUG+2, DRUG+7
DIC(0	NAOU+1, DRUG+4
DIE	END!
DINUM	END!
DIR	TYPE+4!, QTY+5!, QTY+9!, QTY+10!, END!
DIR("?"	TYPE+3, QTY+2, QTY+3, QTY+4, QTY+9, QTY+10
DIR("A"	TYPE+1, QTY+1, QTY+9*
DIR("B"	TYPE+2, QTY+9
DIR(0	TYPE, QTY+1, QTY+9*
DIROUT	END!
DIRUT	TYPE+4, DRUG+13, QTY+5, QTY+9!, QTY+10, END!
DIWF	NAOU+12~, NAOU+13*, END!
DIWL	NAOU+12~, NAOU+13*, END!
DIWR	NAOU+12~, NAOU+13*, END!
DR	END!
DT	PSDORN+15, DRUG+13
DTIME	QTY
DTOUT	END!
DUOUT	END!
DUZ	PSDORN+11, PSDORN+13, PSDORN+15
>> IOBOFF	DRUG+12
>> IOBON	DRUG+12
>> IORVOFF	NAOU+15
>> IORVON	NAOU+13
LN	END!
MSG	PSDORN+15, NAOU+4, NAOU+5, NAOU+8, NAOU+9, NAOU+10, DRUG+14*, END!, MSG+1
MSG1	PSDORN+15, NAOU+5, NAOU+8, NAOU+10, DRUG+16, DRUG+17, END!, MSG+2
>> NAOU	NAOU+3*, NAOU+4, NAOU+5, NAOU+6, DRUG+9, DRUG+13, DRUG+20
>> NAOUN	NAOU+3*
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	PSDORN+11*, PSDORN+12!, PSDORN+14, END+1!
OKTYP	NAOU+11*, END+1!
ORD	QTY!, QTY+13*, END+1!
ORD(	QTY+13*
PSD	NAOU+12~, NAOU+13, NAOU+14
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	NAOU+6, NAOU+7, NAOU+8, NAOU+9, NAOU+10, NAOU+11, NAOU+14, DRUG+4, DRUG+6, DRUG+12 , DRUG+14, DRUG+15
>> PSDSITE	PSDORN+10
PSDT	END+1!
PSDT(8	QTY, QTY+6, QTY+7, QTY+8
PSDT(9	QTY+5*
>> PSDUZ	PSDORN+15*
REQD	PSDORN+15*, END+1!
TEXT	END+1!
TYPE	NAOU+11*, END+1!
U	PSDORN+13, DRUG+6, DRUG+12, DRUG+13, DRUG+20
WORD	END+1!
X	NAOU+12~, NAOU+13, NAOU+14, QTY*, END+1!
XQH	PSDORN+13~*
Y	PSDORN+15*, NAOU+3, TYPE+4, DRUG+10, QTY+5, QTY+11, QTY+12, END+1!

Customize PDF page

Package: Controlled Substances

Routine: PSDORN

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: