Routine: PSDACT

Information

PSDACT ;BIR/BJW-Print Daily Activity Log ; 3 Feb 98

Package	Total	Caller Graph
Controlled Substances	2	PSD DAILY LOG PSD DAILY LOG TECH

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Contact your Pharmacy Coordinator for access to display the daily CS activity.",!!,"PSJ RPHARM or PSD TECH security key required.",! Line Location: PSDACT+4
Function Call: WRITE	Prompt: !!,"There are no CS stocked drugs for your dispensing vault.",!! Line Location: CHKD+0
Function Call: WRITE	Prompt: !!,?5,"You may select a single drug, several drugs,",!,?5,"or enter ^ALL to select all drugs.",!! Line Location: DRUG+1
Function Call: WRITE	Prompt: ! Line Location: DRUG+2
Function Call: WRITE	Prompt: ! Line Location: DATE+0
Function Call: WRITE	Prompt: !!,"The ending date of the range must be later than the starting date." Line Location: DATE+2
Function Call: WRITE	Prompt: !!,"This report is designed for a 132 column format.",!,"You may queue this report to print at a later time.",!! Line Location: DATE+5
Function Call: WRITE	Prompt: ! Line Location: DEV+2
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: ASKD+6 DRUG+3
Routine Call	%ZIS Line Location: DEV+2

Name	Line Occurrences (* Changed, ! Killed)
^DD(58.8	DEV+1
^PSD(58.8 - [#58.8]	CHKD, DEV+1
^TMP("PSDACT"	END+4!
^XUSEC("PSD TECH"	PSDACT+4
^XUSEC("PSJ RPHARM"	PSDACT+4

Name	Line Occurrences
CHKD	ASKD+2
DATE	DATE+2
END	ASKD+6, CHKD, DRUG+5, DATE, DATE+1, DEV+2, DEV+3
SAVE	DEV+3

Name	Field # of Occurrence
%	END+2!
%DT	DATE!*, END+2!
%DT("A"	DATE, DATE+1
%H	END+2!
%I	END+2!
%ZIS	DEV+2!*, END+2!
%ZIS("B"	DEV+2*
ACT	END+2!
ALL	DRUG+6*, END+2!, SAVE+2
BFWD	END+2!
C	DEV+1*, END+2!
DA	ASKD+3!, DRUG+2!, END+2!
DA(1	DRUG+3*
DATE	END+2!
DIC	ASKD+3!, ASKD+6!, DRUG+2!, DRUG+3!, END+2!
DIC("A"	ASKD+4*
DIC("B"	ASKD+5*
DIC("S"	ASKD+3*
DIC("W"	DRUG+3*
DIC(0	ASKD+3, DRUG+3
DIR	END+2!
DIROUT	END+2!
DIRUT	END+2!
DTOUT	END+2!
DUOUT	END+2!
DUZ	PSDACT+4
IO	DEV+4
IO("Q"	DEV+2!, DEV+3!
ION	DEV+3
IOP	DEV+2!
LN	END+2!
MFG	END+2!
NAOU	END+2!
NODE	END+2!
NQTY	END+2!
NUM	END+2!
PAT	END+3!
PG	END+3!
PHARM	END+3!
POP	DEV+2!, END+3!
PSD	END+3!
PSDA	END+3!
PSDATE	DATE+1, DATE+3, END+3!
PSDED	DATE+3, DATE+4, END+3!
PSDEV	DEV+1*, DEV+2, END+3!
PSDIO	DEV+3*, END+3!
PSDOUT	END+3!
PSDPN	END+3!
PSDR	END+3!
PSDRG	DRUG+5, END+3!, SAVE+2
PSDRG(	DRUG+4*
PSDRGN	END+3!
PSDS	ASKD+1, ASKD+7, CHKD, DRUG+3, DEV+1, END+3!
PSDSD	DATE+1, DATE+2, DATE+3, END+3!
>> PSDSITE	PSDACT+3, ASKD+1, ASKD+2, ASKD+5, ASKD+7*
PSDSN	ASKD+1, ASKD+7, END+3!
PSDUZ	END+3!
PSDUZN	END+3!
QTY	END+3!
RX	END+3!
TEXT	END+3!
TYP	END+3!
TYPE	END+3!
U	ASKD+1, ASKD+2, ASKD+5, ASKD+7
>> VA("BID"	END+3!
>> VA("PID"	END+3!
X	DRUG+5, DRUG+6, END+3!
Y	ASKD+6, ASKD+7, DRUG+3, DRUG+4, DATE, DATE+1, DATE+2, DATE+3, DEV+1*, END+3!
ZTDESC	DEV+3*, END+4!
ZTDTH	DEV+3!, END+4!
ZTIO	DEV+3!*, END+4!
>> ZTQUEUED	END+5
>> ZTREQ	END+5*
ZTRTN	DEV+3*, END+4!
ZTSAVE	DEV+3!, END+4!
ZTSAVE("ALL"	SAVE+2*
ZTSAVE("PSDATE"	SAVE+1*
ZTSAVE("PSDED"	SAVE+1*
ZTSAVE("PSDIO"	SAVE+1*
ZTSAVE("PSDRG("	SAVE+2*
ZTSAVE("PSDS"	SAVE+1*
ZTSAVE("PSDSD"	SAVE+1*
ZTSAVE("PSDSN"	SAVE+1*
ZTSK	DEV+3!, END+4!