Routine: PSDEM2

Package	Total	Caller Graph
Controlled Substances	1	PSDEM

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?10,"*** NO DATA AVAILABLE FOR THIS REPORT ***" Line Location: PRINT+3
Function Call: WRITE	Prompt: !,?2,"=> ",PSDR,!! Line Location: PRINT+4
Function Call: WRITE	Prompt: !,?2,"=> ",PSDR,!! Line Location: PRINT+7
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: HDR+2
Function Call: WRITE	Prompt: !,"NAOU/DRUG PRIORITY ORDER REPORT - DATE: "_RPDT,?70,"PAGE: ",PG,! Line Location: HDR+2
Function Call: WRITE	Prompt: "From ",$P(PSDATE,"^")," to ",$P(PSDATE,"^",2),!! Line Location: HDR+4
Function Call: WRITE	Prompt: !,?2,"=> DRUG",!,?16,"DATE/TIME",!,"DISP #",?17,"FILLED",?35,"QUANTITY",?47,"ORDERED BY",!,LN,! Line Location: HDR+5
Function Call: WRITE	Prompt: !,"---------",?25,"----------",!,?3,^TMP("PSDNUS",$J,NAOU,PSDR),?25,$J(^TMP("PSDNUQ",$J,NAOU,PSDR),6),?37,"Totals",! Line Location: TOT+0
Function Call: WRITE	Prompt: !,"NAOU Subtotal # of Orders: ",^TMP("PSDNUT",$J,NAOU),! Line Location: NTOT+0
Function Call: WRITE	Prompt: !,"Grand Total # of Orders: ",^TMP("PSDNUG",$J),! Line Location: GTOT+2
Routine Call	DIR Line Location: DONE+1 HDR+1

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PRINT+2
^PSD(58.8 - [#58.8]	SET+2, SET+4
^PSD(58.81 - [#58.81]	START+2, START+3, SET+1, SET+6, SET+7
^PSDRUG - [#50]	SET+3
^TMP("PSDNU"	START+1!, PRINT+3, PRINT+4, PRINT+5, PRINT+6, END+4!, SET+9*
^TMP("PSDNUG"	START+1!, END+4!, SET+13*, GTOT+2
^TMP("PSDNUQ"	START+1!, END+4!, SET+12*, TOT
^TMP("PSDNUS"	START+1!, END+4!, SET+11*, TOT
^TMP("PSDNUT"	START+1!, END+4!, SET+10*, NTOT
^VA(200 - [#200]	SET+8

Name	Field # of Occurrence
%	END+1!
%DT	PRINT+2*, END+1!
%H	END+1!
%I	END+1!
%ZIS	END+1!
ALL	END+1!
ANS	END+1!
DA	END+1!, HDR+1!
DATE	PRINT+6*, PRINT+8, END+1!
DIR	DONE+1!, END+1!, HDR+1!
DIR("A"	DONE+1*
DIR(0	DONE+1, HDR+1
DIROUT	END+1!
DIRUT	DONE+1!, END+1!
DTOUT	END+1!
DUOUT	END+1!
IO("Q"	END+1!
IOF	DONE, HDR+2
IOSL	PRINT+7
IOST	DONE, DONE+1, HDR+1
JJ	START+2, START+3, PRINT+5, PRINT+6, END+1!, SET+9
JJ1	START+2*, START+3, END+1!
JJ2	END+1!
KK	START+3*, END+1!, SET+1, SET+6, SET+7
LN	PRINT+2!*, END+1!, HDR+5
LOC	END+1!
LOC(	SET+2
NAOU	PRINT+4*, PRINT+5, PRINT+6, END+2!, HDR+3, TOT, NTOT
NAOUN	END+2!, SET+4*, SET+9, SET+10, SET+11, SET+12
NODE	PRINT+6, PRINT+8, END+2!, SET+1, SET+5
NUM	PRINT+5*, PRINT+6, PRINT+8, END+2!
NURS	END+2!, SET+7, SET+8, SET+9
PG	PRINT+2, END+2!, HDR+1, HDR+2
POP	END+2!
PSD	END+2!, SET+1*, SET+2, SET+4
PSDATE	END+2!, HDR+4
PSDED	START+2, END+2!
PSDOK	END+2!, SET+2, SET+10, SET+11, SET+13, SET+14
PSDOUT	PRINT+2, PRINT+4, PRINT+5, PRINT+7, DONE+1, END+2!, HDR+1, TOT, NTOT, GTOT+1
PSDPN	END+2!, SET+5*, SET+8, SET+9
PSDR	START+2, START+3, PRINT+4, PRINT+5, PRINT+6, PRINT+7, END+2!, SET+3, TOT
PSDRN	END+2!, SET+3*, SET+9, SET+11, SET+12
PSDSD	START+2, END+2!
>> PSDSITE	SET+2
PSDT	END+2!
PSDTR	END+2!
QTY	END+2!, SET+5, SET+6, SET+9, SET+12
RPDT	PRINT+2*, END+2!, HDR+2
SUM	PRINT+1, END+2!
X	PRINT+2*, END+2!
Y	PRINT+2, END+2!, HDR+1
ZTDESC	END+3!
ZTDTH	END+3!
ZTIO	END+3!
>> ZTQUEUED	END+5
>> ZTREQ	END+5*
ZTRTN	END+3!
ZTSAVE	END+3!
ZTSK	END+3!