Routine: PSDEM1

Information

PSDEM1 ;BIR/LTL-Print NAOU Priority Order Report by Drug ;12/14/99 15:11

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Kernel	2	^%ZISC $$FMTE^XLFDT
VA FileMan	2	^%DT ^DIR
Controlled Substances	1	^PSDEM3

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Controlled Substances	1	PSDEM

Entry Points

Name	Comments	DBIA/ICR reference
START	;entry point for report
PRINT	;prints data for stock drugs
DONE
END	;
ALL	;loops for all drugs
HDR	;lists header information
TOT
NTOT
GTOT	;grand total
SET	;sets data

External References

Name	Field # of Occurrence
^%DT	PRINT+2
^%ZISC	END+5
^DIR	DONE+1, HDR+1
^PSDEM3	PRINT+1
$$FMTE^XLFDT	PRINT+6

Interaction Calls

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PRINT+2
^PSD(58.8 - [#58.8]	SET+2, SET+4
^PSD(58.81 - [#58.81]	START+3, START+4, ALL+2, ALL+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!, GTOT+2, SET+14*
^TMP("PSDNUQ"	START+1!, END+4!, TOT, SET+13*
^TMP("PSDNUQT"	START+1!, END+4!, NTOT, SET+11*
^TMP("PSDNUS"	START+1!, END+4!, TOT, SET+12*
^TMP("PSDNUT"	START+1!, END+4!, NTOT, SET+10*
^VA(200 - [#200]	SET+8

Label References

Name	Line Occurrences
ALL	START+2
DONE	PRINT+1, PRINT+3
GTOT	PRINT+4
HDR	PRINT+3, PRINT+4, PRINT+7
NTOT	PRINT+4
PRINT	START+2
SET	START+4, ALL+3
TOT	PRINT+5

Naked Globals

Name	Field # of Occurrence
^(0	SET+3, SET+4, SET+8
^(1	SET+7
^(4	SET+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END+1!
%DT	PRINT+2*, END+1!
%H	END+1!
%I	END+1!
%ZIS	END+1!
ALL	START+2, END+1!, ALL+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+3, START+4, PRINT+5, PRINT+6, END+1!, ALL+2*, ALL+3, SET+9
JJ1	START+3, START+4, END+1!, ALL+2, ALL+3
JJ2	END+1!
KK	START+4, END+1!, ALL+3, SET+1, SET+6, SET+7
LN	PRINT+2!*, END+1!, HDR+5
LOC	END+1!
LOC(	START+3
NAOU	PRINT+4*, PRINT+5, PRINT+6, PRINT+7, END+2!, TOT
NAOUN	END+2!, SET+4*, SET+9, SET+12, SET+13
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+3, END+2!, ALL+2
PSDOK	END+2!, SET+2, SET+10, SET+12, SET+14, SET+15
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+3, START+4, PRINT+4, PRINT+5, PRINT+6, END+2!, ALL+2*, ALL+3, HDR+3, TOT , NTOT, SET+3
PSDRN	END+2!, SET+3*, SET+9, SET+10, SET+11, SET+12, SET+13
PSDSD	START+3, END+2!, ALL+2
>> PSDSITE	SET+2
PSDT	END+2!
PSDTR	END+2!
QTY	END+2!, SET+5, SET+6, SET+9, SET+11, SET+13
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!

Customize PDF page

Package: Controlled Substances