Routine: PSDCORP

Information

PSDCORP ;BIR/BJW-CS Correction Log Report ; 6 Feb 98

Package	Total	Call Graph
Controlled Substances	4	^PSDCORP1 ^PSDCORP2 ^PSDCORP3 ^PSDSET
VA Fileman	4	^%DT ^DIC (D,Y)^DIQ ^DIR
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD

Package	Total	Caller Graph
Controlled Substances	1	PSD CORRECTION LOG REPORT

Name	Comments	DBIA/ICR reference
END
DEV	;asks device and queueing information
ASKD	;ask disp site
DATE	;ask date range
SAVE
TYPE	;ask correction type

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to print",!,?12,"the narcotic corrections log.",!!,"PSDMGR security key required.",! Line Location: PSDCORP+4
Function Call: WRITE	Prompt: ! Line Location: ASKD+3
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 132 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+3
Routine Call	%ZIS Line Location: DEV+4
Routine Call	DIC Line Location: ASKD+6
Routine Call	DIR Line Location: TYPE+6
Routine Call	%ZIS Line Location: DEV+3

Name	Line Occurrences (* Changed, ! Killed)
^DD(58.8	DEV+2
^PSD(58.8 - [#58.8]	DEV+2
^XUSEC("PSDMGR"	PSDCORP+4

Name	Field # of Occurrence
%	END!
%DT	DATE+1!*, END!
%DT("A"	DATE+1, DATE+2
%H	END!
%I	END!
%ZIS	DEV+3!*
%ZIS("B"	DEV+3*
AOU	END!
AOUN	END!
C	DEV+2*, END!
D	END!
DA	ASKD+3!, TYPE+1!, END!
DIC	ASKD+3!*, ASKD+6!, END!
DIC("A"	ASKD+4*
DIC("B"	ASKD+5*
DIC("S"	ASKD+3*
DIC(0	ASKD+3*
DIE	END!
DIR	TYPE+1!, TYPE+6!, END!
DIR("?"	TYPE+3, TYPE+4, TYPE+5*
DIR("A"	TYPE+2*
DIR(0	TYPE+1*
DIROUT	END!
DIRUT	TYPE+1!, TYPE+6, END!
DR	END!
DRUG	END!
DTOUT	END!
DUOUT	END!
DUZ	PSDCORP+4
IO	DEV+5
IO("Q"	DEV+3!, DEV+4!, END!
IOP	DEV+3!
JJ	END!
NODE	END!
NUM	END!
PG	END!
POP	DEV+3!, END!
PSD	END!
PSDATE	DATE+2, DATE+4, END!
PSDED	DATE+4*, END!
PSDEV	DEV+2*, DEV+3, END!
PSDOUT	DATE+1, DATE+2, END!
PSDS	ASKD+1, ASKD+7, DEV+2, END!
PSDSD	DATE+2, DATE+3, DATE+4, END!
>> PSDSITE	PSDCORP+3, ASKD+1, ASKD+2, ASKD+7*
PSDSN	ASKD+1, ASKD+5, ASKD+7, END!
PSDT	END!
TYPE	TYPE+6*, DEV+4, DEV+6, END!
U	ASKD+1, ASKD+2, ASKD+7
X	END!
Y	ASKD+6, ASKD+7, TYPE+6, DATE+1, DATE+2, DATE+3, DATE+4, DEV+2*, END!
ZTDESC	DEV+4*, END+1!
ZTDTH	DEV+4!
ZTIO	DEV+4!, END+1!
>> ZTQUEUED	END+2
>> ZTREQ	END+2*
ZTRTN	DEV+4*, END+1!
ZTSAVE	DEV+4!, END+1!
ZTSAVE("PSDATE"	SAVE*
ZTSAVE("PSDED"	SAVE*
ZTSAVE("PSDS"	SAVE*
ZTSAVE("PSDSD"	SAVE*
ZTSAVE("PSDSN"	SAVE*
ZTSAVE("TYPE"	SAVE*
ZTSK	DEV+4!