Routine: PSDTRVR

Information

PSDTRVR ;BIR/BJW-CS Transfer Between Vaults Report ; 12 Feb 98

Package	Total	Caller Graph
Controlled Substances	2	PSD PRINT VAULT TRANSFERS PSD PRINT VAULT TRANSFERS TECH

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to",!,?12,"print CS reports.",!!,"PSJ RPHARM or PSD TECH security key required.",! Line Location: PSDTRVR+5
Function Call: WRITE	Prompt: !!,"CS Transfer Controlled Substances Between Vaults Report",! Line Location: PSDTRVR+6
Function Call: WRITE	Prompt: !!,"There are no Inpatient Sites defined for Controlled Substances use.",!,"Please contact your Pharmacy Coordinator for assistance.",! Line Location: SITE+2
Function Call: WRITE	Prompt: !!,?2,"You may display Dispensing Sites transfers from a single Inpatient Site, ",!,?2,"several Inpatient Sites, or enter ^ALL to select all Inpatient Sites.",!! Line Location: SITE+4
Function Call: WRITE	Prompt: ! Line Location: DATE+1
Function Call: WRITE	Prompt: !!,"The ending date of the range must be later than the starting date." Line Location: DATE+3
Function Call: WRITE	Prompt: !!,"This report is designed for a 80 column format.",!,"You may queue this report to print at a later time.",!! Line Location: DEV+1
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!" Line Location: DEV+2
Routine Call	%ZIS Line Location: DEV+3
Routine Call	DIC Line Location: SITE+5
Routine Call	DIR Line Location: ASK+2
Routine Call	%ZIS Line Location: DEV+2

Name	Line Occurrences (* Changed, ! Killed)
^PS(59.4 - [#59.4]	SITE+1, SITE+7
^TMP("PSDTRVR"	END+3!
^XUSEC("PSD TECH"	PSDTRVR+5
^XUSEC("PSJ RPHARM"	PSDTRVR+5

Name	Line Occurrences
DATE	SITE+3, DATE+3
END	ASK+2, SITE+2, SITE+6, DATE+1, DATE+2, DEV+2, DEV+3
SAVE	DEV+3

Name	Field # of Occurrence
%	END+1!
%DT	DATE+1!*, END+1!
%DT("A"	DATE+1, DATE+2
%H	END+1!
%I	END+1!
%ZIS	DEV+2!*, END+1!
%ZIS("B"	DEV+2*
ASK	ASK+3*, END+1!
CNT	SITE+1*, SITE+2, SITE+3, END+1!
DA	ASK!, END+1!
DIC	SITE+5*!, END+1!
DIC("A"	SITE+5*
DIC("S"	SITE+5*
DIC(0	SITE+5*
DIR	ASK!, ASK+2!, END+1!
DIR("?"	ASK+1*
DIR("A"	ASK*
DIR("B"	ASK*
DIR(0	ASK*
DIROUT	END+1!
DIRUT	END+1!
DTOUT	ASK!, ASK+2, END+1!
DUOUT	ASK!, ASK+2, END+1!
DUZ	PSDTRVR+5
IO	DEV+4
IO("Q"	DEV+2!, DEV+3!
IOP	DEV+2!
JJ	SITE+1*, END+1!
OK	END+1!
POP	DEV+2!, END+2!
PSD	SITE+7*, END+2!
PSDATE	DATE+2, DATE+4, END+2!
PSDED	DATE+4*, END+2!
PSDOUT	DATE+1, DATE+2, END+2!
PSDSD	DATE+2, DATE+3, DATE+4, END+2!
>> PSDSITE	PSDTRVR+4
SITE	SITE+3!, SITE+6, END+2!
SITE(	SITE+1, SITE+5, SITE+7*
SITE(0	SITE+6
SITEN	END+2!
X	SITE+6, SITE+7, END+2!
Y	ASK+3, SITE+5, DATE+1, DATE+2, DATE+3, DATE+4, END+2!
ZTDESC	DEV+3*, END+2!
ZTDTH	DEV+3!, END+2!
ZTIO	DEV+3!
>> ZTQUEUED	END+3
>> ZTREQ	END+3*
ZTRTN	DEV+3*, END+2!
ZTSAVE	DEV+3!, END+2!
ZTSAVE("ASK"	SAVE*
ZTSAVE("PSDATE"	SAVE*
ZTSAVE("PSDED"	SAVE*
ZTSAVE("PSDSD"	SAVE*
ZTSAVE("SITE("	SAVE*
ZTSK	DEV+3!, END+2!