Routine: PSAPSI

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

Package	Total	Caller Graph
Drug Accountability	4	PSA IV SINGLE PSAOP PSAOP2 PSAPSI2

Entry Points

External References

Name	Field # of Occurrence
^%DT	LOOK+2
COMMA^%DTC	LUP+1, LUP+8, LUP+9, LUP+10, LUP+11
NOW^%DTC	LOOK+2
^%ZIS	DEV+5
HOME^%ZIS	DEV+7, TR
^%ZISC	STOP+2
^%ZTLOAD	DEV+7, TR
$$S^%ZTLOAD	HEADER+1
^DIC	LOOK+3
^DIR	LOOK+9, DEV+4, STOP+1, HEADER, ASK
^PSADA	LOOK
^PSAPSI5	LOOK+12

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: LOOK+3
Function Call: WRITE	Prompt: !!,"This drug is not linked to an entry in the IV ADDITIVE or SOLUTION file.",!! Line Location: LOOK+4
Function Call: WRITE	Prompt: !!,"Sorry, no dispensing for this drug has been compiled since " Line Location: DEV+0
Function Call: WRITE	Prompt: $S(Y]"":Y,1:"ever"),".",!! Line Location: DEV+0
Function Call: WRITE	Prompt: $S(Y:Y,1:"not scheduled"),"." Line Location: DEV+3
Function Call: WRITE	Prompt: ! Line Location: DEV+5
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR ACTION TAKEN!" Line Location: DEV+6
Function Call: WRITE	Prompt: ?14,X,PSADRUG(2),?40,PSADRUG(3),"/",PSADRUG(2),?63 Line Location: LUP+8
Function Call: WRITE	Prompt: ?40,X Line Location: LUP+9
Function Call: WRITE	Prompt: !,PSALN,!,PSA(6)," DAY TOTALS: " Line Location: LUP+10
Function Call: WRITE	Prompt: ?5,X,PSADRUG(2) Line Location: LUP+10
Function Call: WRITE	Prompt: ?63,X Line Location: LUP+11
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($P($G(^PSDRUG(+PSADRUG,0)),U),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
Function Call: WRITE	Prompt: @IOF,!!,?30," W A R N I N G ",!!,"Execution of this option should only be done for either one of the following:",! Line Location: PSAWARN+2
Function Call: WRITE	Prompt: !,"1. The ""All Location Dispense/Purge"", [PSA IV ALL LOCATIONS] nightly back-" Line Location: PSAWARN+3
Function Call: WRITE	Prompt: !," ground option has failed to run.",!!,"2. New drugs have been added to a pharmacy location, and you would like to see",!," the dispensing activity that has occurred for up to the last sixty days.",! Line Location: PSAWARN+4
Function Call: WRITE	Prompt: !!,"Each time this option is executed, the balances are updated in the MONTHLY",!,"ACTIVITY multiple within the DRUG ACCOUNTABILITY STATS file (#58.8)." Line Location: PSAWARN+5
Function Call: WRITE	Prompt: !!,"The proram will continue to add or subtract the dispensed amount each time the ",!,"option is used.",! Line Location: PSAWARN+6
Routine Call	%ZIS Line Location: DEV+7 TR
Routine Call	DIC Line Location: LOOK+3
Routine Call	DIR Line Location: LOOK+9 DEV+4 STOP+1 HEADER ASK
Routine Call	%ZIS Line Location: DEV+5

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	DEV, DEV+3, LUP+3
^DIC(19 - [#19]	DEV+2
^PS(50.8 - [#50.8]	LOOK+12, LOOK+13, LOOK+14, LOOK+15, LOOK+16
^PS(52.6 - [#52.6]	LOOK+4, LOOK+5
^PS(52.7 - [#52.7]	LOOK+4, LOOK+6
^PSD(58.8 - [#58.8]	LOOK+1, LOOK+7, LOOK+10, LOOK+15, LUP+6
^PSDRUG - [#50]	LUP, HEADER+2
^TMP("PSA"	LOOK+17*, DEV, LUP+3, LUP+5, QUIT!
^VA(200 - [#200]	HEADER+1

Label References

Name	Line Occurrences
DEV	LOOK+3
HEADER	LUP+2, LUP+3
PSAWARN	PSAPSI+10
QUIT	LOOK, LOOK+1, LOOK+3, DEV, DEV+4, DEV+6, DEV+7
STOP	LUP+3
TR	DEV+4

Naked Globals

Name	Field # of Occurrence
^(0	LOOK+16
^(6	LUP+6
^(660	LUP

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Drug Accountability

Routine: PSAPSI

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: