Routine: PSAPSI2

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZISC (,$$S)^%ZTLOAD
VA Fileman	3	^%DT (COMMA,NOW)^%DTC ^DIR
Drug Accountability	2	^PSADA PSAWARN^PSAPSI

Package

Total

Call Graph

Kernel

(,HOME)^%ZIS ^%ZISC (,$$S)^%ZTLOAD

VA Fileman

^%DT (COMMA,NOW)^%DTC ^DIR

Drug Accountability

^PSADA PSAWARN^PSAPSI

Package	Total	Caller Graph
Drug Accountability	1	PSA IV ALL DRUGS

Package

Total

Caller Graph

Drug Accountability

PSA IV ALL DRUGS

External References

Name	Field # of Occurrence
^%DT	LOOK+2
COMMA^%DTC	LUP+17, LUP+22, LUP+24, LUP+25
NOW^%DTC	LOOK+2
^%ZIS	DEV
HOME^%ZIS	LOOK+6, DEV+2, TASK
^%ZISC	STOP+2
^%ZTLOAD	LOOK+6, DEV+2, TASK
$$S^%ZTLOAD	HEADER+1
^DIR	LOOK+3, LOOK+5, STOP+1, HEADER
^PSADA	LOOK
PSAWARN^PSAPSI	PSAPSI2+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"There are no drugs in ",PSALOCN,!! Line Location: LOOK+1
Function Call: WRITE	Prompt: ! Line Location: DEV+0
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR ACTION TAKEN!" Line Location: DEV+1
Function Call: WRITE	Prompt: @IOF Line Location: LUP+3
Function Call: WRITE	Prompt: !!,Y Line Location: LUP+19
Function Call: WRITE	Prompt: ?14,X,PSADRUG(2),?40,PSADRUG(3),"/",PSADRUG(2),?63 Line Location: LUP+22
Function Call: WRITE	Prompt: ?40,X Line Location: LUP+24
Function Call: WRITE	Prompt: !,PSALN,!,PSA(6)," DAY TOTALS: " Line Location: LUP+25
Function Call: WRITE	Prompt: ?5,X,PSADRUG(2) Line Location: LUP+25
Function Call: WRITE	Prompt: ?5,X,PSADRUG(2) Line Location: LUP+25
Function Call: WRITE	Prompt: ! Line Location: STOP+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: !,?2,"DAILY DISPENSING TOTALS FOR ",$E($G(PSALOCN),1,30),?70,"PAGE: ",PSAPG,!,PSALN,! Line Location: HEADER+2
Function Call: WRITE	Prompt: " DATE",?23,"TOTAL",?45,"$/DISP",?67,"TOTAL",! Line Location: HEADER+3
Function Call: WRITE	Prompt: "DISPENSED",?23,"DISP",?46,"UNIT",?68,"COST",!,PSALN Line Location: HEADER+4
Routine Call	%ZIS Line Location: LOOK+6 DEV+2 TASK
Routine Call	DIR Line Location: LOOK+3 LOOK+5 STOP+1 HEADER
Routine Call	%ZIS Line Location: DEV

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	LUP+18
^PS(50.8 - [#50.8]	LUP+9, LUP+10, LUP+11, LUP+12, LUP+13, SOL, SOL+1, SOL+2
^PS(52.6 - [#52.6]	LUP+5, LUP+6
^PS(52.7 - [#52.7]	LUP+5, LUP+7
^PSD(58.8 - [#58.8]	LOOK+1, LUP, LUP+1, LUP+12, LUP+21, SOL+1
^PSDRUG - [#50]	LUP+2, LUP+16
^TMP("PSA"	LUP, LUP+14, LUP+18, LUP+20, STOP+3!, SOL+3
^VA(200 - [#200]	HEADER+1

Name	Line Occurrences
HEADER	LUP, LUP+3, LUP+18
QUIT	LOOK, LOOK+1, DEV+1
SOL	LUP+9
STOP	LOOK+5, LOOK+6, DEV+2, LUP
TASK	LUP

Name	Field # of Occurrence
^(0	LUP, LUP+13, SOL+2
^(6	LUP+21
^(660	LUP+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEV~*
D0	PSAPSI2+10~
D1	PSAPSI2+10~
DA	PSAPSI2+10~
DIC	PSAPSI2+10~
DIE	PSAPSI2+10~
DINUM	PSAPSI2+10~
DIR	PSAPSI2+10~, LOOK+3!, LOOK+5!, STOP+1!, HEADER!
DIR("A"	LOOK+3, LOOK+5, STOP+1*
DIR("B"	LOOK+3, LOOK+5
DIR(0	LOOK+3, LOOK+5, STOP+1, HEADER
DIRUT	PSAPSI2+10~, LOOK+5
DLAYGO	PSAPSI2+10~
DR	PSAPSI2+10~
DT	LUP
DTOUT	PSAPSI2+10~
DUOUT	PSAPSI2+10~
DUZ	HEADER+1
IO("Q"	DEV!, DEV+2, STOP+2!
IOF	LUP+3, STOP, HEADER+2
IOP	DEV~
IOSL	LUP, LUP+18
IOST	STOP, STOP+1, HEADER
POP	DEV~, DEV+1
PSA	PSAPSI2+10~, STOP+3!
PSA(4	LUP+18*, LUP+20
PSA(5	LOOK+6*, LUP, LUP+3, LUP+5, LUP+15, LUP+26, TASK+1
PSA(6	LUP+18*, LUP+19, LUP+25
PSA(7	LUP+4*
PSADRUG	PSAPSI2+10~, LOOK+2, LUP, LUP+1, LUP+2, LUP+5, LUP+6, LUP+7, LUP+14, LUP+16 , LUP+18, LUP+20, LUP+21, LUP+26, SOL+3
PSADRUG(1	LUP+6, LUP+10, LUP+11, LUP+16, LUP+17, LUP+24
PSADRUG(2	LUP+7, LUP+9, LUP+16, LUP+22, LUP+25, SOL
PSADRUG(3	LUP+11, LUP+12, LUP+13, LUP+17, LUP+22, SOL*, SOL+1, SOL+2
PSADRUG(4	LUP+23, LUP+25
PSADRUG(5	LUP+24, LUP+25
PSADRUG(6	LUP+20*
PSADRUGN	PSAPSI2+10~, LUP+2*, LUP+19
PSADT	PSAPSI2+10~, LOOK+2*, LOOK+3
PSADT(1	LOOK+2*, LOOK+3
PSADT(2	LOOK+3*, LUP+9
PSADT(22	LOOK+4*
PSADT(23	LOOK+4*
PSADT(3	LOOK+3, LUP+4, LUP+8, SOL
PSADT(4	LUP+9*, LUP+10, LUP+11, LUP+12, LUP+13, LUP+14, SOL, SOL+1, SOL+2, SOL+3
PSAIV	PSAPSI2+10~, LOOK+4, LUP+2, LUP+9*, LUP+10, LUP+11, LUP+12, LUP+13, SOL, SOL+1 , SOL+2
PSALN	PSAPSI2+10~, LUP+25, HEADER+2*, HEADER+4
>> PSALOC	LOOK, LOOK+1, LUP, LUP+1, LUP+12, LUP+21, SOL+1
PSALOCN	PSAPSI2+10~, LOOK+1, HEADER+2
PSAOUT	PSAPSI2+10~, LOOK+2, LOOK+3, LOOK+5, LOOK+6, DEV+1, DEV+2, LUP, LUP+18, LUP+26* , STOP+1, HEADER, HEADER+1
PSAPG	PSAPSI2+10~, LOOK+2, LUP+3, HEADER, HEADER+2
PSAQ	PSAPSI2+10~, LUP+13, LUP+14, SOL+2, SOL+3
PSAQUIT	PSAPSI2+9!
>> PSAR	LOOK+3*
>> PSAR(1	LOOK+3*
PSAS	PSAPSI2+10~
PSAW	PSAPSI2+10~, LUP+8, LUP+12, LUP+13, LUP+14, SOL, SOL+1, SOL+2, SOL+3
PSAW(1	LUP+12, SOL+1
U	LUP, LUP+1, LUP+2, LUP+13, LUP+16, LUP+21, HEADER+1, SOL+2
X	PSAPSI2+10~, LOOK+2, LUP+17, LUP+20, LUP+21, LUP+22, LUP+23, LUP+24, LUP+25
X2	PSAPSI2+10~, LUP+17, LUP+20, LUP+24, LUP+25
Y	PSAPSI2+10~, LOOK+2, LOOK+3, LOOK+6, DEV, LUP+18*, LUP+19, HEADER
ZTDESC	LOOK+6, DEV+2~, HEADER+1, TASK*
ZTDTH	LOOK+6, DEV+2~, TASK
ZTIO	LOOK+6, DEV+2~, TASK
>> ZTQUEUED	STOP+2
>> ZTREQ	STOP+2*
ZTRTN	LOOK+6, DEV+2~, TASK*
ZTSAVE	DEV+2~
ZTSAVE("PSA*"	LOOK+6, DEV+2, TASK*
ZTSAVE("^TMP(""PSA"",$J,+PSADRUG,"	TASK*
ZTSK	PSAPSI2+10~, HEADER+1

Customize PDF page

Package: Drug Accountability

Routine: PSAPSI2

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: