Routine: PSDCOSN

Package	Total	Call Graph
Kernel	3	HOME^%ZIS ^%ZISC (,$$S)^%ZTLOAD
VA Fileman	2	COMMA^%DTC ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
QUIT
GETDTA	;
END
HEADER	;prints header info
START
PRTQUE	;queues print after data is compiled

External References

Name	Field # of Occurrence
COMMA^%DTC	START+9, START+17, START+19
HOME^%ZIS	PRTQUE+1
^%ZISC	END+2
^%ZTLOAD	PRTQUE+1, START+21
$$S^%ZTLOAD	HEADER+2
^DIR	END+1, HEADER+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?8,"NAOU ==> ",$P($G(^PSD(58.8,+PSDN,0)),U)," (continued)",!! Line Location: START+4
Function Call: WRITE	Prompt: LN,!?28,"Total: ",$J($G(PSDN(3)),10),?62 Line Location: START+16
Function Call: WRITE	Prompt: X,!! Line Location: START+17
Function Call: WRITE	Prompt: LN,!?14,"Total for all NAOUs: ",$J($G(PSDN(6)),10) Line Location: START+19
Function Call: WRITE	Prompt: ?62,X,!! Line Location: START+19
Function Call: WRITE	Prompt: !! Line Location: END+1
Function Call: WRITE	Prompt: !!,"Task #",$G(ZTSK),", ",$G(ZTDESC)," was stopped by ",$P($G(^VA(200,+$G(DUZ),0)),U),"." Line Location: HEADER+2
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HEADER+3
Function Call: WRITE	Prompt: !?2,PSDCHO(1)," From " Line Location: HEADER+3
Function Call: WRITE	Prompt: $P(PSDATE,U)," To ",$P(PSDATE,U,2),?72,"Page ",PG,!! Line Location: HEADER+4
Function Call: WRITE	Prompt: ?45,"Report Date: ",PSDT(1),!!?40,"Quantity",!,"Drug",?40,"Dispensed" Line Location: HEADER+5
Function Call: WRITE	Prompt: ?70,"Cost",!,LN,!! Line Location: HEADER+6
Routine Call	%ZIS Line Location: PRTQUE+1
Routine Call	DIR Line Location: END+1 HEADER+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSD(58.8 - [#58.8]	PSDCOSN+3, START+2, START+4
^PSD(58.81 - [#58.81]	PSDCOSN+3, PSDCOSN+4, PSDCOSN+5, PSDCOSN+8, PSDCOSN+9, PSDCOSN+14, PSDCOSN+20, PSDCOSN+22, PSDCOSN+26
^PSDRUG - [#50]	PSDCOSN+7, PSDCOSN+15, START+8
^TMP("PSD"	PSDCOSN+29, PSDCOSN+31, PSDCOSN+33, PSDCOSN+35, PSDCOSN+37, PSDCOSN+39, PSDCOSN+41, START+1, START+3, START+6 , START+22, QUIT!
^TMP("PSDM"	START+21, QUIT!, GETDTA+4*
^VA(200 - [#200]	HEADER+2

Label References

Name	Line Occurrences
END	START+1
GETDTA	PSDCOSN+16
HEADER	START, START+1, START+3
QUIT	PRTQUE+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIR	HEADER+1!
DIR("A"	END+1*
DIR(0	END+1, HEADER+1
DTE	GETDTA+1~, GETDTA+3*, GETDTA+4
DUZ	HEADER+2
IO("Q"	QUIT!
IOF	END, HEADER+3
IOSL	START+1, START+3
IOST	PSDCOSN+3, END, END+1, HEADER+1
LN	PSDCOSN+2~, START+16, START+19, HEADER+3*, HEADER+6
>> LOC(	PSDCOSN+10
PG	PSDCOSN+2~, START, HEADER+1, HEADER+3, HEADER+4
PG(	START+1!, START+4!, HEADER+3*
>> PSDATE	HEADER+4
>> PSDCHO(1	HEADER+3
>> PSDED	PSDCOSN+3, PSDCOSN+27
>> PSDIO	PRTQUE+1
PSDN	PSDCOSN+2~, PSDCOSN+3, PSDCOSN+4, PSDCOSN+5, PSDCOSN+8, PSDCOSN+10, PSDCOSN+12, PSDCOSN+16, PSDCOSN+42!, START , START+1*, START+2, START+3, START+4, START+6, HEADER+3, GETDTA+2
PSDN(1	PSDCOSN+4, PSDCOSN+5, PSDCOSN+7, PSDCOSN+8, PSDCOSN+15, PSDCOSN+33, START+2, START+3*, START+5, START+6 , GETDTA+4
PSDN(10	START+10*, START+11, START+12, START+13
PSDN(11	PSDCOSN+15, PSDCOSN+16, START+8, START+9, GETDTA+4
PSDN(2	PSDCOSN+5, PSDCOSN+6, PSDCOSN+8, PSDCOSN+10, PSDCOSN+12, PSDCOSN+20, PSDCOSN+22, PSDCOSN+24, PSDCOSN+28, PSDCOSN+35 , PSDCOSN+37, PSDCOSN+39, PSDCOSN+41, START+6, START+7, START+8, START+9, START+11, START+12, START+13 , START+14
PSDN(3	PSDCOSN+7, PSDCOSN+29, PSDCOSN+31, PSDCOSN+33, PSDCOSN+35, PSDCOSN+37, PSDCOSN+39, PSDCOSN+41, START+6, START+16 , START+17, START+18!
PSDN(4	PSDCOSN+8, PSDCOSN+9, PSDCOSN+14, PSDCOSN+20, PSDCOSN+22, PSDCOSN+26, START+9, GETDTA+4
PSDN(5	PSDCOSN+14, PSDCOSN+18, PSDCOSN+20, PSDCOSN+22, PSDCOSN+28, PSDCOSN+31, PSDCOSN+35, PSDCOSN+37, PSDCOSN+41, START+9 , START+17, START+18!, GETDTA+4
PSDN(6	PSDCOSN+26, PSDCOSN+27, PSDCOSN+28, PSDCOSN+39, START+17, START+19
PSDN(7	PSDCOSN+29, PSDCOSN+31, PSDCOSN+33, PSDCOSN+35, PSDCOSN+37, PSDCOSN+39, PSDCOSN+41, START+18, START+19
PSDN(8	PSDCOSN+9, PSDCOSN+10, PSDCOSN+12, PSDCOSN+18, START+1, START+19, GETDTA+3
PSDN(9	PSDCOSN+12, PSDCOSN+29, PSDCOSN+31, PSDCOSN+33, PSDCOSN+35, PSDCOSN+37, PSDCOSN+39, PSDCOSN+41, START+3, START+18!
>> PSDOUT	START+1, START+3, START+16, END+1, HEADER+1, HEADER+2
>> PSDSD	PSDCOSN+2, PSDCOSN+3*, PSDCOSN+4, PSDCOSN+5, PSDCOSN+8
>> PSDSD(1	PSDCOSN+2*, PSDCOSN+27
>> PSDSITE	PSDCOSN+3
>> PSDT(1	HEADER+5
>> SUM	START+5, START+7, START+9, START+11, START+12, START+13, START+14
U	PSDCOSN+3, PSDCOSN+7, PSDCOSN+10, PSDCOSN+12, PSDCOSN+14, PSDCOSN+15, PSDCOSN+18, PSDCOSN+20, PSDCOSN+22, PSDCOSN+27 , PSDCOSN+28, PSDCOSN+31, PSDCOSN+33, PSDCOSN+35, PSDCOSN+37, PSDCOSN+39, PSDCOSN+41, START+2, START+4, START+7 , START+8, START+9, START+11, START+12, START+13, START+14, HEADER+2, HEADER+4, GETDTA+3
>> X	START+9, START+17, START+19*
X2	PSDCOSN+2~, START+9*
>> Y	HEADER+1
>> ZTDESC	PRTQUE+1, START+21, HEADER+2
>> ZTDTH	PRTQUE+1, START+21
>> ZTIO	PRTQUE+1, START+21
>> ZTQUEUED	PSDCOSN+2, PRTQUE+1, END+2
>> ZTREQ	PSDCOSN+2, END+2
>> ZTRTN	PRTQUE+1, START+21
ZTSAVE	PRTQUE+1!
ZTSAVE("PSD*"	PRTQUE+1, START+21
ZTSAVE("SUM"	PRTQUE+1*
ZTSAVE("^TMP(""PSD"",$J,"	PRTQUE+1*
ZTSAVE("^TMP(""PSDM"",$J,"	START+21*
ZTSK	PRTQUE+1!, HEADER+2

Customize PDF page

Package: Controlled Substances

Routine: PSDCOSN

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: