Routine: PSDCSL

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	2	^%DT ^DIR

Package	Total	Caller Graph
Controlled Substances	1	PSD DRUG FILE DATA

Entry Points

Name	Comments	DBIA/ICR reference
END	;
HEADER	;prints header information
DEV	;asks device and queueing information
START	;compiles and prints data for report
DONE
PRINT	;prints data from ^tmp

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This report lists Drug name, order unit, price per order unit, dispense unit,",!,"dispense units per order unit, and price per dispense unit.",! Line Location: PSDCSL+2
Function Call: WRITE	Prompt: !,"This report is designed for a 132 column format.",!! Line Location: PSDCSL+3
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!" Line Location: DEV+1
Function Call: WRITE	Prompt: !!,?30,"NO DATA FOR THE DRUG FILE STATS REPORT!!",!! Line Location: PRINT+2
Function Call: WRITE	Prompt: ! Line Location: PRINT+8
Function Call: WRITE	Prompt: @IOF Line Location: DONE+0
Function Call: WRITE	Prompt: ! Line Location: DONE+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HEADER+2
Function Call: WRITE	Prompt: !,?45,"DRUG FILE STATS FOR CS PHARM DRUGS",!,?55,RPDT,?120,"PAGE: "_PG,!! Line Location: HEADER+2
Function Call: WRITE	Prompt: ?47,"ORDER",?59,"PRICE PER",?80,"DISPENSE",?97,"DISPENSE UNITS",?118,"PRICE PER" Line Location: HEADER+3
Function Call: WRITE	Prompt: !,"DRUG NAME",?47,"UNIT",?59,"ORDER UNIT",?82,"UNIT",?97,"PER ORDER UNIT",?118,"DISPENSE UNIT",!,LN,! Line Location: HEADER+4
Routine Call	%ZIS Line Location: DEV+2
Routine Call	DIR Line Location: DONE+1 HEADER+1
Routine Call	%ZIS Line Location: DEV+1

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	START+2
^DIC(51.5 - [#51.5]	START+7
^PSDRUG - [#50]	START+3, START+4, START+5, START+6, START+7
^PSDRUG("AIUN"	START+3
^TMP("PSDCSL"	START+1!, START+9*, PRINT+2, PRINT+3, PRINT+5, END+2!

Name	Field # of Occurrence
^("I"	START+4
^(0	START+5

Name	Field # of Occurrence
%DT	START+2*, END+1!
%ZIS	DEV+1!*, END+1!
%ZIS("B"	DEV+1*
DA	END+1!, HEADER+1!
DEA	END+1!
DIR	DONE+1!, END+1!, HEADER+1!
DIR("A"	DONE+1*
DIR(0	DONE+1, HEADER+1
DIROUT	END+1!
DIRUT	DONE+1!, END+1!
DT	START+4
DTOUT	END+1!
DUOUT	END+1!
IO	DEV+3
IO("Q"	DEV+1!, DEV+2!
IOF	DONE, HEADER+2
IOP	DEV+1!
IOSL	PRINT+3
IOST	DONE, DONE+1, HEADER+1
LN	PRINT+1!*, END+1!, HEADER+4
NODE	START+7, START+8, PRINT+5, END+1!
NUM	START+3, START+5, START+6, START+7, START+9, PRINT+3, PRINT+5, END+1!
OK	START+4*, END+1!
ORD	START+6, START+8, START+9, PRINT+5*, PRINT+7, END+1!
ORDP	START+6, START+8, START+9, PRINT+5*, PRINT+7, END+1!
ORDU	START+6, START+8, START+9, PRINT+5*, PRINT+6, END+1!
ORU	START+6, START+7, START+9, PRINT+5*, PRINT+6, END+1!
ORUP	START+6, START+7, START+9, PRINT+5*, PRINT+6, END+1!
PG	START+2, END+1!, HEADER+1, HEADER+2
POP	DEV+1!, END+1!
PSD	START+3, START+4, PRINT+3, PRINT+4, PRINT+5, END+1!
PSDOUT	START+2, PRINT+3, DONE+1, END+1!, HEADER+1
PSDRN	START+5*, START+9, END+1!
RPDT	START+2*, END+1!, HEADER+2
X	START+2*, END+1!
Y	START+2, END+1!, HEADER+1
ZTDESC	DEV+2*, END+1!
ZTDTH	DEV+2!
ZTIO	DEV+2!, END+1!
>> ZTQUEUED	END+3
>> ZTREQ	END+3*
ZTRTN	DEV+2*, END+1!
ZTSAVE	DEV+2!
ZTSK	DEV+2!, END+1!