Routine: PSDNU1

Package	Total	Call Graph
VA Fileman	2	^%DT ^DIR
Controlled Substances	1	^PSDNU3
Kernel	1	^%ZISC

Package	Total	Caller Graph
Controlled Substances	1	PSDNU

Entry Points

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

External References

Name	Field # of Occurrence
^%DT	PRINT+2
^%ZISC	END+5
^DIR	DONE+1, HDR+1
^PSDNU3	PRINT+1

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 USAGE 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",!,"DISP #",?15,"FILLED",?25,"QUANTITY",?37,"ORDERED BY",?72,"TYPE",!,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, SET+8, SET+9, SET+10 , SET+11
^PSDRUG - [#50]	SET+3
^TMP("PSDNU"	START+1!, PRINT+3, PRINT+4, PRINT+5, PRINT+6, END+4!, SET+13*
^TMP("PSDNUG"	START+1!, END+4!, GTOT+2, SET+18*
^TMP("PSDNUQ"	START+1!, END+4!, TOT, SET+17*
^TMP("PSDNUQT"	START+1!, END+4!, NTOT, SET+15*
^TMP("PSDNUS"	START+1!, END+4!, TOT, SET+16*
^TMP("PSDNUT"	START+1!, END+4!, NTOT, SET+14*
^VA(200 - [#200]	SET+12

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+12
^(1	SET+11
^(4	SET+6
^(7	SET+7

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+13
JJ1	START+3, START+4, END+1!, ALL+2, ALL+3
JJ2	START+3, START+4, END+1!, ALL+2, ALL+3, SET+7, SET+8, SET+9, SET+13
KK	START+4, END+1!, ALL+3, SET+1, SET+6, SET+7, SET+8, SET+9, SET+11
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+13, SET+16, SET+17
NODE	PRINT+6, PRINT+8, END+2!, SET+1, SET+5
NUM	PRINT+5*, PRINT+6, PRINT+8, END+2!
NURS	END+2!, SET+11, SET+12, SET+13
PG	PRINT+2, END+2!, HDR+1, HDR+2
POP	END+2!
PSD	END+2!, SET+1*, SET+2, SET+4, SET+7, SET+10
PSDATE	END+2!, HDR+4
PSDED	START+3, END+2!, ALL+2
PSDOK	END+2!, SET+2, SET+10, SET+14, SET+16, SET+18, SET+19*
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+12, SET+13
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+13, SET+14, SET+15, SET+16, SET+17
PSDSD	START+3, END+2!, ALL+2
>> PSDSITE	SET+2
PSDT	END+2!
PSDTR	END+2!, SET+9*, SET+10
QTY	END+2!, SET+5, SET+6, SET+7, SET+8, SET+13, SET+15, SET+17
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

Routine: PSDNU1

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: