Routine: PSDORNV

Package	Total	Call Graph
Controlled Substances	7	LIST^PSDORL DIE^PSDORN0 ^PSDORN1 ^PSDORN2 ^PSDORNC ^PSDORP ^PSDSET
VA Fileman	5	^DIC Y^DIQ ^DIR ^DIWP ^DIWW
Kernel	3	(ENDR,ENS,KILL)^%ZISS $$FMADD^XLFDT EN^XQH
Inpatient Medications	1	ENHS^PSJEEU0

Package	Total	Caller Graph
Controlled Substances	2	PSD NURSE INFUSION PSDORNC

Entry Points

External References

Name	Field # of Occurrence
ENDR^%ZISS	NAOU+13
ENS^%ZISS	DRUG+6
KILL^%ZISS	NAOU+15, DRUG+6
^DIC	NAOU+3, PAT+2, DRUG+4, QTY+15
Y^DIQ	QTY+12
^DIR	PCA, QTY+10, QTY+14, QTY+21, QTY+26
^DIWP	NAOU+14, QTY+8
^DIWW	NAOU+15, QTY+9
LIST^PSDORL	DRUG+12
DIE^PSDORN0	QTY+22, QTY+29
^PSDORN1	QTY+28
^PSDORN2	QTY+22
^PSDORNC	PCA+1
^PSDORP	PSDORNV+21
^PSDSET	PSDORNV+17
ENHS^PSJEEU0	PCA+3
$$FMADD^XLFDT	CHEC+2
EN^XQH	PSDORNV+20

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: PSDORNV+19
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: PAT+2
Function Call: WRITE	Prompt: ! Line Location: PCA+0
Function Call: WRITE	Prompt: !!,"Checking for active Controlled Substance IV orders." Line Location: PCA+2
Function Call: WRITE	Prompt: ! Line Location: DRUG+1
Function Call: WRITE	Prompt: IOBON,!!,?20,"ZERO BALANCE IN PHARMACY",IOBOFF Line Location: DRUG+6
Function Call: WRITE	Prompt: !,"Checking for the last order for ",$P($G(^DPT(PAT,0)),U),".",! Line Location: CHEC+0
Function Call: WRITE	Prompt: ! Line Location: QTY+6
Function Call: WRITE	Prompt: ! Line Location: QTY+15
Function Call: WRITE	Prompt: PSDR(1) Line Location: QTY+16
Function Call: WRITE	Prompt: ! Line Location: QTY+21
Function Call: WRITE	Prompt: !!,"Quantity must be "_NPKG_" or a multiple of "_NPKG,! Line Location: QTY+23
Function Call: WRITE	Prompt: !!,"This will be "_CNT_" separate order requests. The quantity is "_NPKG_" per request." Line Location: QTY+24
Function Call: WRITE	Prompt: ! Line Location: QTY+25
Function Call: WRITE	Prompt: !,"No order request created. You must edit quantity.",! Line Location: QTY+27
Function Call: WRITE	Prompt: !!,"The "_CNT_" requests are being created. You must review every request.",! Line Location: QTY+28
Function Call: WRITE	Prompt: !!,"Creating your order request # "_ORD_" of "_CNT_" for "_PSDRN Line Location: QTY+29
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 PAT+2 DRUG+4 QTY+15
Routine Call	DIR Line Location: PCA QTY+10 QTY+14 QTY+21 QTY+26

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^PS(52.6 - [#52.6]	Classic Fileman Calls
^PS(52.7 - [#52.7]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PSDORNV+22, QTY+21
^DD(52.6	QTY+12
^DPT - [#2]	CHEC
^PS(52.6 - [#52.6]	PCA+4, PCA+7
^PSD(58.8 - [#58.8]	NAOU+4, NAOU+5, NAOU+6, NAOU+7, NAOU+9, NAOU+10, NAOU+11, NAOU+14, DRUG+6, DRUG+8 , DRUG+9
^PSD(58.81 - [#58.81]	CHEC+3, CHEC+4, QTY+8
^PSDRUG - [#50]	PCA+4, PCA+7, DRUG+4
^TMP("PSG"	PCA+3!
^TMP("PSIV"	PCA+7, PCA+9, PCA+10!
^UTILITY("PSG"	PCA+3!
^UTILITY("PSIV"	PCA+4, PCA+6, PCA+10!
^UTILITY($J	NAOU+12!, QTY+6!
^VA(200 - [#200]	PSDORNV+20
^XUSEC("PSJ PHARM TECH"	PSDORNV+18
^XUSEC("PSJ RNURSE"	PSDORNV+18
^XUSEC("PSJ RPHARM"	PSDORNV+18

Label References

Name	Line Occurrences
DRUG	QTY+5, QTY+11, QTY+21, QTY+30
END	PSDORNV+20, NAOU+3, NAOU+4, NAOU+5, NAOU+8, NAOU+9, NAOU+10, NAOU+11, PAT+2, PCA , DRUG+4, DRUG+8, DRUG+10, DRUG+11, QTY+22, QTY+26, QTY+28
MSG	NAOU+4, NAOU+5, NAOU+8, NAOU+9, NAOU+10, DRUG+8, DRUG+10, DRUG+11
PAT	PCA+1, QTY+22
QTY	QTY+23, QTY+27

Naked Globals

Name	Field # of Occurrence
^(	PCA+6, PCA+9
^(0	DRUG+4, DRUG+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END!
%DT	END!
%H	END!
%I	END!
>> C	QTY+12*
CNT	QTY+22, QTY+24, QTY+25, QTY+28, QTY+29, END!
CNT1	END!
DA	NAOU+1!, DRUG+2!, QTY+25!, END!
DFN	PAT~, PAT+2*
DIC	NAOU+1!, NAOU+3!, PAT~, PAT+2!, DRUG+2!, DRUG+3, DRUG+4!, QTY+15!, END!
DIC("A"	NAOU+1, PAT+1, DRUG+3*
DIC("S"	NAOU+2, DRUG+3
DIC(0	NAOU+1, PAT, DRUG+3, QTY+15
DIE	END!
DINUM	END!
DIR	PCA!, QTY+10!, QTY+14!, QTY+21!, QTY+25!, QTY+26!, END!
DIR("?"	QTY+18, QTY+19, QTY+20, QTY+25, QTY+26*
DIR("A"	QTY+10, QTY+13, QTY+17, QTY+25
DIR("B"	QTY+25*
DIR(0	PCA, QTY+10, QTY+13, QTY+17, QTY+25*
DIROUT	END!
DIRUT	PCA, QTY+5, QTY+11, QTY+14, QTY+21, QTY+25!, QTY+26, END!
DIWF	NAOU+12~, NAOU+13, QTY+6~, QTY+7, END!
DIWL	NAOU+12~, NAOU+13, QTY+6~, QTY+7, END!
DIWR	NAOU+12~, NAOU+13, QTY+6~, QTY+7, END!
DR	END!
DT	PSDORNV+22, CHEC+2
DTOUT	PAT~, END!
DUOUT	PAT~, END!
DUZ	PSDORNV+18, PSDORNV+20, PSDORNV+22
>> IOBOFF	DRUG+6
>> IOBON	DRUG+6
>> IORVOFF	NAOU+15
>> IORVON	NAOU+13
LN	END!
MSG	PSDORNV+22, NAOU+4, NAOU+5, NAOU+8, NAOU+9, NAOU+10, DRUG+8*, END!, MSG+1
MSG1	PSDORNV+22, NAOU+5, NAOU+8, NAOU+10, DRUG+10, DRUG+11, END!, MSG+2
NAOU	NAOU+3*, NAOU+4, NAOU+5, NAOU+6, END+1!
NAOUN	NAOU+3*, END+1!
NBKU	DRUG+9*, DRUG+10, END+1!
NPKG	DRUG+9*, DRUG+11, QTY+23, QTY+24, QTY+28, END+1!
OK	PSDORNV+18*, PSDORNV+19!, PSDORNV+21, END+1!
OKTYP	NAOU+11*, END+1!
ORD	QTY!, QTY+29*, END+1!
ORD(	QTY+29*
PAT	PAT~, PAT+2*, CHEC, CHEC+3
PSD	NAOU+12~, NAOU+13, NAOU+14, PCA+4, PCA+6, PCA+7, PCA+9, CHEC+1~, CHEC+2, CHEC+3
PSD(1	PCA+3, PCA+4, PCA+6, PCA+7, PCA+9, CHEC+3
PSD(2	PCA+4, PCA+5, PCA+7, PCA+8, CHEC+3*, CHEC+4, QTY+8
PSD(3	CHEC+3*, CHEC+4, QTY+5
PSD(4	QTY+10*, QTY+11
PSD1	QTY+6~, QTY+7, QTY+8
PSDA	QTY+29, END+1!
PSDEM	QTY+22!, END+1!
PSDOUT	PAT~, QTY*, QTY+22, QTY+28, QTY+29, QTY+30, END+1!
PSDQTY	QTY+22, QTY+28, END+1!
PSDR	DRUG+2!, DRUG+4*, DRUG+6, DRUG+8, DRUG+9, CHEC+3, END+1!
PSDR(1	DRUG+4, CHEC+4, QTY+13, QTY+14, QTY+16*
PSDR(2	DRUG+4*, QTY+12
PSDRD	END+1!
PSDRN	DRUG+4*, QTY+29, END+1!
PSDS	NAOU+6, NAOU+7, NAOU+8, NAOU+9, NAOU+10, NAOU+11, NAOU+14, DRUG+6, DRUG+8, DRUG+9 , CHEC+3, END+1!
>> PSDSITE	PSDORNV+17
PSDT	END+1!
PSDT(8	CHEC+4, QTY+12, QTY+22, QTY+23, QTY+24
PSDT(9	QTY+21*
PSDUZ	PSDORNV+22*, END+1!
PSDUZN	END+1!
REQD	PSDORNV+22*, END+1!
TEXT	END+1!
TYPE	NAOU+11*, END+1!
U	PSDORNV+20, PCA+4, PCA+5, PCA+6, PCA+7, PCA+8, PCA+9, DRUG+4, DRUG+6, CHEC , CHEC+3, CHEC+4, QTY+12, QTY+16
WORD	END+1!
X	NAOU+12~, NAOU+13, NAOU+14, PAT~, QTY+6~, QTY+8*, END+1!
XQH	PSDORNV+20~*
Y	PSDORNV+22, NAOU+3, PAT~, PAT+2, PCA+1, DRUG+4, QTY+10, QTY+11, QTY+12, QTY+13 , QTY+14, QTY+15, QTY+16, QTY+21, QTY+27, QTY+28, END+1!
Y(0	DRUG+4, QTY+16

Customize PDF page

Package: Controlled Substances

Routine: PSDORNV

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

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