Routine: PSDAMIS3

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

Package	Total	Caller Graph
Controlled Substances	1	PSDAMIS2

Entry Points

Name	Comments	DBIA/ICR reference
EN	;entry for printing data
END	;
HDR	;lists header information
TOT
NTOT	;print naou subtotals
DONE
PRINT	;prints data for stock drugs
GTOT	;grand total

External References

Name	Field # of Occurrence
^%DT	PRINT+1
^%ZISC	END+6
^DIR	DONE+1, HDR+2
^PSDAMIS4	EN+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?10,"*** NO DATA AVAILABLE FOR THIS REPORT ***" Line Location: PRINT+2
Function Call: WRITE	Prompt: !,?2,"=> ",PSDR,!! Line Location: PRINT+3
Function Call: WRITE	Prompt: !,?2,"=> ",PSDR,!! Line Location: PRINT+6
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+3
Function Call: WRITE	Prompt: !,"NAOU/DRUG AMIS REPORT - DATE: "_RPDT,?70,"PAGE: ",PG,! Line Location: HDR+3
Function Call: WRITE	Prompt: "From ",$P(PSDATE,"^")," to ",$P(PSDATE,"^",2),!! Line Location: HDR+5
Function Call: WRITE	Prompt: !,?2,"=> DRUG",!,?16,"DATE",!,"DISP #",?15,"FILLED",?25,"QUANTITY",?40,"COST PER ORDER",!,LN,! Line Location: HDR+6
Function Call: WRITE	Prompt: !,"---------",?25,"----------",!,?3,^TMP("PSDAMISS",$J,NAOU,PSDR),?25,$J(^TMP("PSDAMISQ",$J,NAOU,PSDR),6),?44,$J(^TMP("PSDAMISC",$J,NAOU,PSDR),8,2),?60," Drug Totals ",! Line Location: TOT+0
Function Call: WRITE	Prompt: "=========",?25,"=========",?40,"=============",! Line Location: TOT+1
Function Call: WRITE	Prompt: !,"Number of Orders: ",?25,$J(^TMP("PSDAMIST",$J,NAOU),6) Line Location: NTOT+3
Function Call: WRITE	Prompt: !,"Total Cost of Orders: ",?44,$J(^TMP("PSDAMISCN",$J,NAOU),8,2) Line Location: NTOT+4
Function Call: WRITE	Prompt: !,"Average Cost Per Order: ",?44,$S(+^TMP("PSDAMIST",$J,NAOU):$J((^TMP("PSDAMISCN",$J,NAOU)/^TMP("PSDAMIST",$J,NAOU)),8,2),1:$J("0.00",8,2)),! Line Location: NTOT+5
Function Call: WRITE	Prompt: !!,?35,"NAOU Subtotals Summary",!! Line Location: GTOT+2
Function Call: WRITE	Prompt: !,"Grand Totals by Dispensing Site: ",PSDSN,! Line Location: GTOT+5
Function Call: WRITE	Prompt: !,"Grand Totals: ",!,"Number of Orders: ",?25,$J(^TMP("PSDAMISG",$J),6),!,"Cost of Orders: ",?44,$J(^TMP("PSDAMISCG",$J),8,2),! Line Location: GTOT+11
Function Call: WRITE	Prompt: "Average Cost Per Order: ",?44,$J((^TMP("PSDAMISCG",$J)/^TMP("PSDAMISG",$J)),8,2),! Line Location: GTOT+12
Routine Call	DIR Line Location: DONE+1 HDR+2

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PRINT+1
^TMP("PSDAMIS"	PRINT+2, PRINT+3, PRINT+4, PRINT+5, END+4!
^TMP("PSDAMISC"	END+4!, TOT
^TMP("PSDAMISCG"	END+4!, GTOT+11, GTOT+12
^TMP("PSDAMISCN"	END+4!, NTOT+4, NTOT+5
^TMP("PSDAMISCVG"	END+5!, GTOT+8, GTOT+9
^TMP("PSDAMISG"	END+4!, GTOT+11, GTOT+12
^TMP("PSDAMISQ"	END+4!, TOT
^TMP("PSDAMISS"	END+4!, TOT
^TMP("PSDAMIST"	END+4!, NTOT+3, NTOT+5, GTOT+3
^TMP("PSDAMISVG"	END+5!, GTOT+6, GTOT+8, GTOT+9

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Controlled Substances

Routine: PSDAMIS3

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

Local Variables

Legend:

Name	Line Occurrences
DONE	EN+1, PRINT+2, PRINT+3
GTOT	PRINT+3
HDR	PRINT+2, PRINT+3, PRINT+6, NTOT+1, GTOT+2, GTOT+4, GTOT+7, GTOT+10
NTOT	PRINT+3, GTOT+3
TOT	PRINT+4