Routine: PSDTRV

Information

PSDTRV ;BIR/JPW-Transfer CS Drugs between Vaults ; 10 Aug 94

Package	Total	Caller Graph
Controlled Substances	1	PSD TRANSFER VAULT DRUGS

Name	Comments	DBIA/ICR reference
FROM	;select FROM disp site
ADD1	;add drug
CHK
ADD	;ask to add drug
DRUG	;select drug
QTY	;enter quantity
TO	;transfer TO disp site (not restricted to inpat site)
MSG
ASK	;ask ok
END

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to transfer",!,?12,"controlled substances between dispensing sites.",!!,"PSJ RPHARM security key required.",! Line Location: PSDTRV+3
Function Call: WRITE	Prompt: ! Line Location: FROM+2
Function Call: WRITE	Prompt: !!,"There are no CS stocked drugs for your dispensing vault.",!! Line Location: DRUG+1
Function Call: WRITE	Prompt: ! Line Location: DRUG+2
Function Call: WRITE	Prompt: $C(7),!!,PSDRN," has a zero balance.",!,"Please select another drug to transfer.",!! Line Location: DRUG+8
Function Call: WRITE	Prompt: !!,?5,"Breakdown Unit: ",NBKU,?35,"Package Size: ",NPKG,! Line Location: QTY+1
Function Call: WRITE	Prompt: ! Line Location: TO+1
Function Call: WRITE	Prompt: $C(7),!!,?5," NOT ALLOWED to transfer out of and into SAME Dispensing Site! " Line Location: CHK+0
Function Call: WRITE	Prompt: $C(7),!!,?5," ",VAULTN," does not stock ",PSDRN,"! ",! Line Location: CHK+1
Function Call: WRITE	Prompt: $C(7),!!,"** The Narcotic Breakdown Unit does not match." Line Location: CHK+2
Function Call: WRITE	Prompt: !!,"Transferring: ",TQTY," (",NBKU,")",!,"From: ",PSDSN," To: ",VAULTN,!! Line Location: ASK+1
Function Call: WRITE	Prompt: $C(7),!!,"No action taken.",!! Line Location: MSG+0
Routine Call	DIC Line Location: FROM+3 DRUG+4 TO+2
Routine Call	DIR Line Location: QTY+5 ASK+4 ADD+3

Name	Line Occurrences (* Changed, ! Killed)
^PSD(58.8 - [#58.8]	DRUG+1, DRUG+7, CHK+1, CHK+2, ADD1+1, ADD1+2*
^PSDRUG - [#50]	DRUG+7
^VA(200 - [#200]	PSDTRV+4, PSDTRV+5
^XUSEC("PSJ RPHARM"	PSDTRV+3

Name	Line Occurrences
ADD	CHK+1
ADD1	ASK+5
ASK	CHK+1
DRUG	DRUG+8, ASK+5
END	PSDTRV+6, FROM+3, DRUG+1, DRUG+5, QTY+6, TO+2, CHK, CHK+1, CHK+2, ASK+4
FROM	DRUG+6
MSG	QTY+6, CHK+2, ASK+4, ADD+3

Name	Field # of Occurrence
^(0	DRUG+7

Name	Field # of Occurrence
%	END!
%H	END!
%I	END!
ADD	FROM+1, ASK+5, END!, ADD+4
BAL	END!
CNT	END!
DA	FROM+2!, DRUG+2!, QTY+2!, TO+1!, END!, ADD1+3!
DA(1	DRUG+4, ADD1+3
DD	END!, ADD1+3!
DIC	FROM+2!, FROM+3!, DRUG+2!, DRUG+4!, TO+1!, TO+2!, END!, ADD1+3!
DIC("A"	FROM+2, DRUG+3, TO+1*
DIC("S"	FROM+2, TO+1
DIC("W"	DRUG+2*
DIC(0	FROM+2, DRUG+4, TO+1, ADD1+3
DIE	END!
DINUM	END!, ADD1+3*
DIR	QTY+2!, QTY+5!, ASK+2!, ASK+4!, END!, ADD+1!, ADD+3!
DIR("?"	QTY+4, ASK+3, ADD+2*
DIR("A"	QTY+3, ASK+2, ADD+1*
DIR("B"	ASK+2*
DIR(0	QTY+2, ASK+2, ADD+1*
DIROUT	END!
DIRUT	QTY+6, ASK+2!, ASK+4, END!, ADD+1!, ADD+3
DLAYGO	END!
DO	END!, ADD1+3!
DR	END!
DTOUT	DRUG+5, QTY+6, END!
DUOUT	DRUG+5, QTY+6, END!
DUZ	PSDTRV+3, PSDTRV+4, PSDTRV+5
EXP	DRUG+7*, END!
JJ	END!
LOT	DRUG+7*, END!
MFG	DRUG+7*, END!
NBKU	DRUG+7*, QTY+1, CHK+2, ASK+1, END!
NPKG	DRUG+7*, QTY+1, END!
PSDLES	END!
PSDOUT	FROM+1, DRUG+1, DRUG+5, DRUG+6, CHK+1, ASK+5, END!, ADD+3
PSDR	DRUG+7*, CHK+1, CHK+2, END!, ADD1+1, ADD1+3
PSDREC	END!
PSDRN	DRUG+7*, DRUG+8, CHK+1, END!
PSDS	FROM+3*, DRUG+1, DRUG+4, DRUG+7, CHK, END!
>> PSDSITE	PSDTRV+2
PSDSN	FROM+3*, DRUG+3, ASK+1, END!
PSDT	END!
PSDUZ	PSDTRV+5*, END+1!
PSDUZN	PSDTRV+5*, END+1!
QTY	DRUG+7*, DRUG+8, QTY+2, QTY+4, END+1!
RDT	END+1!
TEMP	END+1!
TQTY	QTY+7*, ASK+1, END+1!
U	PSDTRV+4
VAULT	TO+2*, CHK, CHK+1, CHK+2, END+1!, ADD1+1, ADD1+2, ADD1+3
VAULTN	TO+2*, CHK+1, ASK+1, END+1!
X	PSDTRV+6~, END+1!, ADD1+3*
X1	PSDTRV+6~
XMDUZ	END+1!
XMSUB	END+1!
XMTEXT	END+1!
XMY	END+1!
XQH	PSDTRV+4~*
Y	FROM+3, DRUG+6, DRUG+7, QTY+7, TO+2, ASK+4, END+1!, ADD+3