Routine: PSDNDES

Package	Total	Call Graph
VA Fileman	3	^DIC ^DIE ^DIR
Controlled Substances	2	^PSDDFP1 ^PSDSET

Package	Total	Caller Graph
Controlled Substances	1	PSD DISPENSE TO NDES

Entry Points

External References

Name	Field # of Occurrence
^DIC	ASKD+5, DRUG+3, NAOU+3
^DIE	MFG+5
^DIR	QTY, OK+1, MFG, MFG+2, MFG+4
^PSDDFP1	OK+4
^PSDSET	PSDNDES+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to",!,?12,"dispense narcotic supplies. PSJ RPHARM security key required.",! Line Location: PSDNDES+3
Function Call: WRITE	Prompt: !!,"For now this option is the same as dispense w/o green sheet.",!! Line Location: TEST+1
Function Call: WRITE	Prompt: !!,"There are no stocked drugs for this Pharmacy Vault!!",!! Line Location: CHKD+0
Function Call: WRITE	Prompt: ! Line Location: DRUG+1
Function Call: WRITE	Prompt: $C(7),!!,?10,"** Your Dispensing Site is missing stock drug data.",!,"Please contact your Pharmacy Coordinator for assistance.",! Line Location: DRUG+4
Function Call: WRITE	Prompt: $C(7),!!,PSDRN," is missing breakdown unit or",!,"package size data in ",PSDSN,"." Line Location: DRUG+6
Function Call: WRITE	Prompt: !!,PSDSN,"is missing narcotic breakdown unit",!,"for ",PSDRN,"." Line Location: DRUG+9
Function Call: WRITE	Prompt: !!,PSDSN,"is missing narcotic package size",!,"for ",PSDRN,"." Line Location: DRUG+10
Function Call: WRITE	Prompt: !!,"The drug balance for this drug is ",+$P(^PSD(58.8,PSDS,1,PSDR,0),"^",4),".",!,"You cannot dispense ",QTY," for this drug.",!! Line Location: QTY+1
Function Call: WRITE	Prompt: ! Line Location: OK+0
Function Call: WRITE	Prompt: !!,"Updating Expiration Date data..." Line Location: MFG+5
Function Call: WRITE	Prompt: "done.",!! Line Location: MFG+5
Function Call: WRITE	Prompt: !!," No action taken. ",!! Line Location: MSG+0
Routine Call	DIE Line Location: MFG+5
Routine Call	DIC Line Location: ASKD+5 DRUG+3 NAOU+3
Routine Call	DIR Line Location: QTY OK+1 MFG MFG+2 MFG+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	DRUG+7
^PSD(58.8 - [#58.8]	ASKD+2, CHKD, DRUG+4, DRUG+5, DRUG+8, QTY+1, MFG+1, MFG+3
^PSDRUG - [#50]	DRUG+3
^VA(200 - [#200]	PSDNDES+4
^XUSEC("PSJ RPHARM"	PSDNDES+3

Label References

Name	Line Occurrences
CHKD	ASKD+2
DRUG	OK+3, OK+4
END	ASKD+5, CHKD, DRUG+3, DRUG+4, DRUG+6, DRUG+9, DRUG+10, NAOU+3, QTY, QTY+1 , ASKM, OK+2
MFG	ASKM
MSG	DRUG+6, QTY, ASKM, OK+2, OK+3

Naked Globals

Name	Field # of Occurrence
^(0	DRUG+5, DRUG+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END!
%DT	END!
%H	END!
%I	END!
ASK	ASKD+2, ASKD+6, ASKM, END!
BAL	END!
DA	ASKD+3!, DRUG+2!, NAOU+1!, QTY!, OK!, END!, MFG!, MFG+2!, MFG+4!, MFG+5!*
DA(1	DRUG+3, MFG+5
DIC	ASKD+3!, ASKD+5!, DRUG+2!, DRUG+3!, NAOU+1!*, NAOU+3!, END!
DIC("A"	ASKD+4, NAOU+1
DIC("B"	ASKD+4*
DIC("S"	ASKD+3, NAOU+2
DIC("W"	DRUG+2*
DIC(0	ASKD+3, DRUG+3, NAOU+1*
DIE	END!, MFG+5!*
DIK	END!
DINUM	END!
DIR	QTY!, OK!, OK+1!, END!, MFG!, MFG+2!, MFG+4!
DIR("?"	OK, OK+1
DIR("A"	QTY, OK
DIR("B"	QTY, OK, MFG, MFG+2, MFG+4*
DIR(0	QTY, OK, MFG, MFG+2, MFG+4*
DIROUT	END!
DIRUT	QTY!, OK!, OK+2, END!
DLAYGO	END!
DR	END!, MFG+5!*
DTOUT	END!, MFG!, MFG+2!, MFG+4!
DUOUT	END!, MFG!, MFG+2!, MFG+4!
DUZ	PSDNDES+3, PSDNDES+4
EDIT	END!
EXP	DRUG+5, DRUG+7, END!, MFG+5
EXPD	DRUG+5, DRUG+7, END!, MFG+4
LOT	DRUG+5, END!, MFG+2, MFG+3
MFG	DRUG+5, END!, MFG, MFG+1
NAOU	NAOU+3*, END!
NAOUN	NAOU+3*, END!
NBKU	DRUG+5, DRUG+6, DRUG+8, DRUG+9, QTY, END!
NPKG	DRUG+5, DRUG+6, DRUG+8, DRUG+10, QTY, END!
OK	END!
PSDDT	END+1!
PSDLES	END+1!
PSDOUT	DRUG+1, ASKM, OK+4, END+1!, MFG, MFG+2, MFG+4
PSDR	DRUG+3*, DRUG+4, DRUG+5, DRUG+8, QTY+1, END+1!, MFG+1, MFG+3, MFG+5
PSDREC	END+1!
PSDRN	DRUG+3*, DRUG+6, DRUG+9, DRUG+10, END+1!
PSDS	ASKD+1, ASKD+2, ASKD+6, CHKD, DRUG+3, DRUG+4, DRUG+5, DRUG+8, QTY+1, END+1! , MFG+1, MFG+3, MFG+5
>> PSDSITE	PSDNDES+2, ASKD+1, ASKD+2, ASKD+7*
PSDSN	ASKD+1, ASKD+4, ASKD+6, ASKD+7, DRUG+6, DRUG+9, DRUG+10, END+1!
PSDUZ	PSDNDES+4*, END+1!
PSDUZN	PSDNDES+4*, END+1!
QTY	QTY+1*, END+1!
TEXP	END+1!
TLOT	END+1!
TMFG	END+1!
U	ASKD+1, ASKD+2, ASKD+7
X	END+1!
Y	ASKD+5, ASKD+6, ASKD+7, DRUG+3, DRUG+7*, NAOU+3, QTY, QTY+1, OK+3, END+1! , MFG+1, MFG+3, MFG+5
Y(0	ASKD+6

Customize PDF page

Package: Controlled Substances

Routine: PSDNDES

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
OK
ASKM
MFG
DRUG	;select drug
QTY
ASKD	;ask disp loc
MSG
TEST	;to be reworked for narcotic disp equipment
END
CHKD
NAOU	;select NAOU