Routine: PSAVIN2

Name	Field # of Occurrence
COMMA^%DTC	LOOP+4, LOOP+7, LOOP+18, LOOP+23
^%ZIS	DEV+1
HOME^%ZIS	DEV+2
^%ZISC	END+2
^%ZTLOAD	DEV+2
$$S^%ZTLOAD	HEADER+2
^DIC	CHKD
^DIR	END+1, HEADER+1
$$DESCR^PRCPUX1	LOOP+15
$$INVNAME^PRCPUX1	LOOP+16
$$UNITCODE^PRCPUX1	LOOP+19
^PSADA	LOOK

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"There are no drugs in ",PSALOCN Line Location: LOOK+1
Function Call: WRITE	Prompt: !!,"You may select one, several, or ^ALL drugs.",! Line Location: LOOK+2
Function Call: WRITE	Prompt: ! Line Location: CHKD+0
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: X,"/" Line Location: LOOP+4
Function Call: WRITE	Prompt: X,"/" Line Location: LOOP+18
Function Call: WRITE	Prompt: " => ",X,"/",$P(PSAU(6),U,28),!! Line Location: LOOP+23
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,"DRUG File/Inventory Price Review",?55,PSARPDT,?70,"PAGE: ",PSAPG,!,PSALN,! Line Location: HEADER+3
Routine Call	%ZIS Line Location: DEV+2
Routine Call	DIC Line Location: CHKD
Routine Call	DIR Line Location: END+1 HEADER+1
Routine Call	%ZIS Line Location: DEV+1

FileNo	Call Tags
^PSD(58.8 - [#58.8]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	START+1
^DIC(51.5 - [#51.5]	LOOP+5
^PRCP(445	LOOP+12, LOOP+13, LOOP+17
^PSD(58.8 - [#58.8]	LOOK+1, CHKD+1, LOOP+13
^PSDRUG - [#50]	LOOP+1, LOOP+2, LOOP+9, LOOP+10, LOOP+11
^VA(200 - [#200]	HEADER+2

Name	Line Occurrences
END	LOOK, LOOK+1, CHKD, DEV+2
HEADER	START+1, LOOP

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	START+1~
%ZIS	DEV+1~*
DIC	PSAVIN2+11~, CHKD*!
DIC("A"	CHKD*
DIC("S"	CHKD*
DIC(0	CHKD*
DIR	PSAVIN2+11~, HEADER+1!
DIR("A"	END+1*
DIR(0	END+1, HEADER+1
DT	START+1
DTOUT	PSAVIN2+11~
DUOUT	PSAVIN2+11~
DUZ	HEADER+2
IO("Q"	DEV+1!, DEV+2, END+2!
IOF	END, HEADER+3
IOP	DEV+1~
IOSL	LOOP
IOST	END, END+1, HEADER+1
POP	DEV+1~
PSA	PSAVIN2+11~
PSA(	CHKD, CHKD+1, START+2
PSA(0	START+1
PSACNT	PSAVIN2+11~, LOOK+2, CHKD
PSALN	START+1~, HEADER+3*
>> PSALOC	LOOK, LOOK+1, CHKD+1
PSALOCN	PSAVIN2+11~, LOOK+1, CHKD
PSAOUT	PSAVIN2+11~, LOOK, DEV+2, START+1, START+2, LOOP, END+1, HEADER+1, HEADER+2
PSAPG	START+1~, HEADER+1, HEADER+3
PSAR	PSAVIN2+11~, START+1~*
PSARPDT	START+1~*, HEADER+3
PSAT	PSAVIN2+11~
PSAU	PSAVIN2+11~, CHKD+1, START+1, START+2, LOOP+1, LOOP+2, LOOP+9, LOOP+10, LOOP+11
PSAU(1	START+1, LOOP+10, LOOP+11
PSAU(11	LOOP+19*, LOOP+20, LOOP+21
PSAU(2	LOOP+11*, LOOP+12, LOOP+13, LOOP+15, LOOP+17
PSAU(3	LOOP+13*, LOOP+15, LOOP+16, LOOP+17
PSAU(5	LOOP+14*
PSAU(6	LOOP+17*, LOOP+18, LOOP+19, LOOP+20, LOOP+21, LOOP+22, LOOP+23
PSAU(8	LOOP+5*, LOOP+6
PSAU(9	LOOP+2*, LOOP+4, LOOP+5, LOOP+6, LOOP+7, LOOP+8
U	LOOP+1, LOOP+4, LOOP+5, LOOP+6, LOOP+7, LOOP+8, LOOP+11, LOOP+18, LOOP+19, LOOP+20 , LOOP+21, LOOP+22, LOOP+23, HEADER+2
X	PSAVIN2+11~, CHKD, CHKD+1, LOOP+4, LOOP+7, LOOP+8, LOOP+18, LOOP+22, LOOP+23
X2	PSAVIN2+11~, LOOP+4, LOOP+7, LOOP+18, LOOP+23
X3	PSAVIN2+11~, LOOP+4, LOOP+7, LOOP+18, LOOP+23
Y	PSAVIN2+11~, CHKD, START+1*, HEADER+1
ZTDESC	DEV+2~*, HEADER+2
ZTDTH	DEV+2~
ZTIO	DEV+2~
>> ZTQUEUED	END+2
>> ZTREQ	END+2*
ZTRTN	DEV+2~*
ZTSAVE	DEV+2~
ZTSAVE("PSA*"	DEV+2*
ZTSK	DEV+2~, HEADER+2

Customize PDF page

Package: Drug Accountability

Routine: PSAVIN2

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
END
LOOK
HEADER	;prints header info
DEV	;asks device and queueing info
START	;compiles and prints output
CHKD
LOOP