Routine: PSDOPTN

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZISC (,$$S)^%ZTLOAD
Registration	2	KVAR^VADPT PID^VADPT6
VA Fileman	2	Y^DIQ ^DIR

Package	Total	Caller Graph
Controlled Substances	1	PSDOPTS

Entry Points

Name	Comments	DBIA/ICR reference
START	;compiles
SAVE	;
END
DEV	;device
HEADER

External References

Name	Field # of Occurrence
^%ZIS	DEV+1
HOME^%ZIS	DEV+2
^%ZISC	END+2
^%ZTLOAD	DEV+2
$$S^%ZTLOAD	HEADER+1
Y^DIQ	PSDOPTN+15, START+21
^DIR	PSDOPTN+8, PSDOPTN+13, END+1, HEADER
KVAR^VADPT	END+3
PID^VADPT6	START+22

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PSDOPTN+8
Function Call: WRITE	Prompt: ! Line Location: PSDOPTN+13
Function Call: WRITE	Prompt: ! Line Location: DEV+1
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR OUTPUT PRINTED!" Line Location: DEV+1
Function Call: WRITE	Prompt: !!,"Nothing to Report.",!! Line Location: START+24
Function Call: WRITE	Prompt: !!,"Drug => ",PSDT Line Location: START+26
Function Call: WRITE	Prompt: !!,PSDT," (continued)" Line Location: START+30
Function Call: WRITE	Prompt: ?20,Y Line Location: START+33
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+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HEADER+2
Function Call: WRITE	Prompt: !,"Outpatient Activity from ",PSDTB(2)," to ",PSDTB(3),?70,"PAGE: ",PG,!,LN,!,"Rx#",?10,"QTY",?20,"Fill Date",?40,"Patient",!,LN Line Location: HEADER+2
Routine Call	%ZIS Line Location: DEV+2
Routine Call	DIR Line Location: PSDOPTN+8 PSDOPTN+13 END+1 HEADER
Routine Call	%ZIS Line Location: DEV+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	START+33
^DD(58.8	PSDOPTN+15
^DD(58.81	START+21
^PSD(58.8 - [#58.8]	PSDOPTN+15
^PSD(58.81 - [#58.81]	START+13
^PSDRUG - [#50]	START+6
^PSRX - [#52]	START+5, START+10, START+18, START+20
^PSRX("AD"	START+3, START+4, START+8
^TMP("PSD"	START+7
^TMP("PSDO"	START+23*, START+24, START+25, START+27, START+29, START+32, END+3!
^VA(200 - [#200]	HEADER+1

Label References

Name	Line Occurrences
END	PSDOPTN+8, PSDOPTN+13, DEV+2, START+24
HEADER	START+1, START+26, START+30
SAVE	DEV+2

Naked Globals

Name	Field # of Occurrence
^(6	START+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEV+1~*
%ZIS("B"	DEV+1*
C	PSDOPTN+15, START+21~
>> DFN	START+21*
DIR	PSDOPTN+13!, HEADER!
DIR("?"	PSDOPTN+8, PSDOPTN+12
DIR("A"	PSDOPTN+8, PSDOPTN+11, END+1*
DIR(0	PSDOPTN+7, PSDOPTN+10, END+1, HEADER
DT	START+17
DUZ	HEADER+1
IO	START+1
IO("Q"	DEV+1!, DEV+2, END+3!
IOF	END, HEADER+2
IOP	DEV+1~
IOSL	START+26, START+30
IOST	START+3, END, END+1, HEADER
LN	START+1!, HEADER+2*
PG	START+1~, HEADER, HEADER+2
POP	DEV+1~
>> PSDEV	PSDOPTN+15*, DEV+1
>> PSDLOC	PSDOPTN+15
>> PSDOUT	DEV+2, START+1, START+25, START+26, START+27, START+29, START+30, END+1, HEADER, HEADER+1
PSDR	START+1~
>> PSDT	PSDOPTN+9, PSDOPTN+10, START+1, START+3, START+4, START+8, START+17, START+23, START+25, START+26 , START+27, START+29, START+30, START+32
>> PSDT(1	START+3, START+4, START+5, START+8, START+10, START+13, START+18, START+20, START+26, START+27 , START+29, START+31, START+32
>> PSDT(2	START+6, START+7, START+23, START+28, START+29*, START+31, START+32
>> PSDT(3	START+12, START+13, START+14, START+16, START+18, START+32*, START+33, START+34
>> PSDT(4	START+7, START+8, START+10, START+13, START+18, START+20, START+23
>> PSDT(5	START+5*, START+6, START+20, START+21, START+23
>> PSDT(6	START+20*, START+23
>> PSDT(7	START+22*, START+23
>> PSDT(8	START+16, START+17, START+18
>> PSDTB	PSDOPTN+9*
>> PSDTB(1	PSDOPTN+13, PSDOPTN+14, START+3
>> PSDTB(2	PSDOPTN+9*, PSDOPTN+12, HEADER+2
>> PSDTB(3	PSDOPTN+13*, HEADER+2
U	START+6, START+10, START+13, START+18, START+20, START+21, START+23, START+33, START+34, HEADER+1
>> VA("BID"	START+22, END+3!
>> VA("PID"	END+3!
>> Y	PSDOPTN+8, PSDOPTN+9, PSDOPTN+13, PSDOPTN+15, START+21, START+22, START+33*, HEADER
>> Y(0	PSDOPTN+9, PSDOPTN+13
ZTDESC	DEV+2~*, HEADER+1
ZTDTH	DEV+2~
ZTIO	DEV+2~
>> ZTQUEUED	END+2
>> ZTREQ	END+2*
ZTRTN	DEV+2~*
ZTSAVE	DEV+2~
ZTSAVE("PSDLOC"	SAVE+2*
ZTSAVE("PSDT"	SAVE+2*
ZTSAVE("PSDTB"	SAVE+2*
ZTSAVE("PSDTB("	SAVE+2*
ZTSAVE("^TMP(""PSD"",$J,"	SAVE+1*
ZTSK	DEV+2~, HEADER+1

Customize PDF page

Package: Controlled Substances

Routine: PSDOPTN

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: