Routine: PSDPWK2

Information

PSDPWK2 ;BIR/JPW-Print Pharm Disp. Worksheet (Summary) ; 2 Aug 94

Package	Total	Caller Graph
Controlled Substances	1	PSDPWK1

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?45,"** NO PENDING REQUESTS FOR THIS DISPENSING LOCATION **" Line Location: PRINT+3
Function Call: WRITE	Prompt: !!,"Press <RET> to display the summary totals" Line Location: PRINT+13
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: !,?40,"PHARMACY DISPENSING WORKSHEET",!!,"Dispensing Location: ",PSDSN,?65,RPDT,?105,"PG "_PG,!! Line Location: HEADER+2
Function Call: WRITE	Prompt: "WS #",?10,"DRUG",?50,"QUANTITY",?60,"DISPENSE TO",!,?12,"COMMENTS",?50,"ORDERED",?60,"LOCATION",?102,"ORDERED BY",!,LN,! Line Location: HEADER+3
Routine Call	DIR Line Location: DONE+1 HEADER+1

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PRINT+2
^PSD(58.85 - [#58.85]	PRINT+9, PRINT+10
^TMP("PSDWK"	PRINT+3, PRINT+4, PRINT+5, END+1!
^TMP("PSDWKT"	END+1!
^UTILITY($J	PRINT+10!

Name	Line Occurrences
DONE	PRINT+1, PRINT+3
HEADER	PRINT+2, PRINT+4, PRINT+7

Name	Field # of Occurrence
%	PRINT+2, END!
%H	END!
%I	END!
%ZIS	END!
ALL	END!
ANS	PRINT+6, END!
C	END!
CNT	PRINT+6, END!
COMM	PRINT+2, PRINT+10, PRINT+11*, END!
DA	END!, HEADER+1!
DIC	END!
DIE	END!
DIR	DONE+1!, END!, HEADER+1!
DIR("A"	DONE+1*
DIR(0	DONE+1, HEADER+1
DIRUT	DONE+1!
DIWF	PRINT+10*, END!
DIWL	PRINT+10*, END!
DIWR	PRINT+10*, END!
DR	END!
DTIME	PRINT+13
DTOUT	END!
DUOUT	END!
IO("Q"	END!
IOF	DONE, HEADER+2
IOSL	PRINT+4, PRINT+7
IOST	PRINT+13, DONE, DONE+1, HEADER+1
JJ	END!
JJ1	END!
JJDA	END!
LN	PRINT+2!*, END!, HEADER+3
LOOP	END!
LOOP2	END!
NAOU	PRINT+6*, PRINT+8, END!
NODE	PRINT+5*, PRINT+8, PRINT+10, END!
OK	END+1!
ORD	END+1!
ORDN	END+1!
PG	PRINT+2, END+1!, HEADER+1, HEADER+2
POP	END+1!
PRT	END+1!
PSD	END+1!
PSDCPY	END+1!
PSDEV	END+1!
PSDN	END+1!
PSDNA	END+1!
PSDOUT	PRINT+2, PRINT+4, PRINT+5, PRINT+7, PRINT+13, PRINT+14, DONE+1, END+1!, HEADER+1
PSDR	PRINT+6*, PRINT+8, END+1!
PSDRN	END+1!
PSDS	END+1!
PSDSN	END+1!, HEADER+2
PSDT	END+1!
QTY	END+1!
RPDT	PRINT+2*, END+1!, HEADER+2
SEL	END+1!
SUM	PRINT+1, PRINT+13, PRINT+14, END+1!
TEXT	PRINT+10*, END+1!
U	PRINT+9
VAR1	PRINT+4*, PRINT+5, PRINT+6, END+1!
VAR2	PRINT+4*, PRINT+5, PRINT+6, END+1!
WK	PRINT+5*, PRINT+8, PRINT+9, PRINT+10, END+1!
X	PRINT+10, PRINT+13, END+1!
Y	PRINT+2*, END+1!, HEADER+1
ZTDESC	END+2!
ZTDTH	END+2!
ZTIO	END+2!
>> ZTQUEUED	END+3
>> ZTREQ	END+3*
ZTRTN	END+2!
ZTSAVE	END+2!
ZTSK	END+2!