Routine: PSAOP

Package	Total	Call Graph
VA Fileman	5	^%DT (COMMA,NOW)^%DTC ^DIC ^DIE ^DIR
Drug Accountability	4	OP^PSADA ^PSAOP1 AM^PSAOP4 PSAWARN^PSAPSI
Kernel	3	(,HOME)^%ZIS ^%ZISC (,$$S)^%ZTLOAD

Package	Total	Caller Graph
Drug Accountability	1	PSA OP SINGLE

Entry Points

External References

Name	Field # of Occurrence
^%DT	LOOK+5
COMMA^%DTC	LUP+1, LUP+4, LUP+6, LUP+7, LUP+8
NOW^%DTC	LOOK+5
^%ZIS	DEV
HOME^%ZIS	DEV+2, TR
^%ZISC	STOP+2
^%ZTLOAD	DEV+2, TR
$$S^%ZTLOAD	HEADER+1
^DIC	LOOK+8
^DIE	LOOP+7
^DIR	LOOK+3, LOOK+11, LOOK+31, STOP+1, HEADER
OP^PSADA	LOOK, LOOK+3
^PSAOP1	LOOP+4
AM^PSAOP4	LOOK+29
PSAWARN^PSAPSI	PSAOP+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"There are no drugs in ",PSALOCN Line Location: LOOK+4
Function Call: WRITE	Prompt: ! Line Location: LOOK+8
Function Call: WRITE	Prompt: "." Line Location: LOOK+25
Function Call: WRITE	Prompt: !!,"Sorry, no dispensing for this drug has occurred since " Line Location: LOOK+30
Function Call: WRITE	Prompt: Y,".",! Line Location: LOOK+30
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: ?14,X,PSADRUG(2),?40,PSADRUG(3),"/",PSADRUG(2),?63 Line Location: LUP+4
Function Call: WRITE	Prompt: ?40,X Line Location: LUP+6
Function Call: WRITE	Prompt: !,PSALN,!,PSA(6)," DAY TOTALS: " Line Location: LUP+7
Function Call: WRITE	Prompt: ?5,X,PSADRUG(2) Line Location: LUP+7
Function Call: WRITE	Prompt: ?63,X Line Location: LUP+8
Function Call: WRITE	Prompt: ! Line Location: STOP+1
Function Call: WRITE	Prompt: !!,"Updating history and dispensing totals." Line Location: STOP+3
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
Routine Call	%ZIS Line Location: DEV+2 TR
Routine Call	DIE Line Location: LOOP+7
Routine Call	DIC Line Location: LOOK+8
Routine Call	DIR Line Location: LOOK+3 LOOK+11 LOOK+31 STOP+1 HEADER
Routine Call	%ZIS Line Location: DEV

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"	LOOK+30, LUP+3
^PSD(58.8 - [#58.8]	LOOK+2, LOOK+4, LOOK+7, LOOK+9, LOOK+12, LOOP+2
^PSDRUG - [#50]	LUP, HEADER+2
^PSRX - [#52]	LOOK+17, LOOK+22, LOOK+25, LOOK+27
^PSRX("AJ"	LOOK+24, LOOK+25, LOOK+26
^PSRX("AL"	LOOK+17, LOOK+18
^PSRX("AM"	LOOK+29
^PSRX("AN"	LOOK+29
^PSRX("AR"	LOOK+21
^TMP("PSA"	LOOK+22, LOOK+27, LOOK+28*, LOOK+30, LUP+3, LUP+4, LUP+5, LUP+6, TR+1!, LOOP , LOOP+2
^XTMP("PSA"	LOOP+3!

Label References

Name	Line Occurrences
DEV	LOOK+8
HEADER	LUP+2
QUIT	LOOK+1, LOOK+3, LOOK+4, LOOK+8, DEV+1, DEV+2
TR	LOOK+8

Naked Globals

Name	Field # of Occurrence
^(	LOOK+28*
^(660	LUP

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEV~*
D0	PSAOP+9~
D1	PSAOP+9~
DA	PSAOP+9~, LOOP+5*, LOOP+7!
DA(1	LOOK+8, LOOP+5
DIC	PSAOP+9~, LOOK+6*
DIC("A"	LOOK+6*
DIC("S"	LOOK+6*
DIC(0	LOOK+6*
DIE	PSAOP+9~, LOOP+5*, LOOP+7!
DINUM	PSAOP+9~
DIR	PSAOP+9~, LOOK+3!, LOOK+11!, LOOK+31!, STOP+1!, HEADER!
DIR("?"	LOOK+3*
DIR("A"	LOOK+3, LOOK+11, LOOK+31, STOP+1
DIR("B"	LOOK+3, LOOK+11, LOOK+31*
DIR(0	LOOK+3, LOOK+11, LOOK+31, STOP+1, HEADER*
DIRUT	PSAOP+9~, LOOK+3, LOOK+31
DLAYGO	PSAOP+9~
DR	PSAOP+9~, LOOP+6*, LOOP+7!
DTOUT	PSAOP+9~
DUOUT	PSAOP+9~
IO("Q"	DEV!, DEV+2, STOP+2!
IOF	STOP, HEADER+2
IOP	DEV~
IOST	STOP, STOP+1, HEADER
POP	DEV~, DEV+1
PSA	PSAOP+9~, TR+1!, LOOP+2*, LOOP+6
PSA(2	LOOP*, LOOP+2
PSA(3	LOOP*
PSA(4	LUP+3*, LUP+4, LUP+5, LUP+6
PSA(5	LOOK+8, LOOK+31*
PSA(6	LUP+3*, LUP+7
PSA(7	LOOK+13*
PSA(9	LOOK+22*
PSADR	PSAOP+9~
PSADREC	PSAOP+9~
PSADRUG	PSAOP+9~, LOOK+8*, LOOK+9, LOOK+12, LOOK+17, LOOK+22, LOOK+25, LOOK+27, LOOK+28, LOOK+30 , LUP, LUP+3, LUP+4, LUP+5, LUP+6, TR+1!, HEADER+2, LOOP, LOOP+2, LOOP+3 , LOOP+5
PSADRUG(1	LUP*, LUP+1, LUP+6
PSADRUG(2	LUP*, LUP+4, LUP+7
PSADRUG(3	LUP+1*, LUP+4
PSADRUG(4	LUP+5*, LUP+7
PSADRUG(5	LUP+6*, LUP+8
PSADRUGN	PSAOP+9~
PSADT	PSAOP+9~, LOOK+5*, LOOK+11
PSADT(1	LOOK+5*, LOOK+11
PSADT(2	LOOK+11, LOOK+13, LOOK+17*, LOOK+18, LOOK+21, LOOK+22
PSADT(3	LOOK+7, LOOK+11, LOOK+17*, LOOK+18, LOOK+21, LOOK+22
PSADT(4	LOOK+11, LOOK+18, LOOK+21, LOOK+22, LOOK+30
>> PSAG	LOOK+12*, LOOK+13, LOOK+15, LOOK+16, LOOK+30
PSALN	PSAOP+9~, LUP+7, HEADER+2*, HEADER+4
PSALOC	LOOK, LOOK+1!, LOOK+2, LOOK+3!, LOOK+4, LOOK+7, LOOK+8, LOOK+9, LOOK+12, LOOP+2 , LOOP+5
>> PSALOCN	LOOK+2*, LOOK+4, LOOK+6
PSAN	PSAOP+9~, LOOK+11, LOOK+16, LOOK+29
PSAN(1	LOOK+11, LOOK+16
>> PSAOP	LOOP+2*, LOOP+3
PSAOUT	PSAOP+9~, LOOK+3, LOOK+8, LOOK+9, LOOK+11, LOOK+30, LOOK+31, DEV+1, LUP, STOP+1 , HEADER, HEADER+1
PSAP	PSAOP+9~, LOOK+11, LOOK+15, LOOK+29
PSAP(1	LOOK+11, LOOK+16
PSAPG	PSAOP+9~, LUP, HEADER, HEADER+2
PSAQ	PSAOP+9~
PSAQUIT	PSAOP+7!
PSAR	PSAOP+9~, LOOK+11, LOOK+15, LOOK+24, LOOK+25*, LOOK+26, LOOK+27, LOOK+28
PSAR(1	LOOK+11, LOOK+16, LOOK+25*, LOOK+26, LOOK+27, LOOK+28
PSAR(2	LOOK+28*
PSAR(3	LOOK+26*, LOOK+27
PSARELDT	PSAOP+9~, LOOP+2*, LOOP+3
PSAS	PSAOP+9~, LOOK+7*, LOOK+17, LOOK+25
U	LOOK+2, LOOK+7, LOOK+13, LOOK+15, LOOK+16, LOOK+17, LOOK+22, LOOK+25, LOOK+27, LOOK+28 , LOOK+30, LUP, LUP+4, LUP+5, LUP+6, HEADER+2, LOOP+6
X	PSAOP+9~, LOOK+5, LUP+1, LUP+4, LUP+6, LUP+7, LUP+8
X2	PSAOP+9~, LUP+1, LUP+4, LUP+6, LUP+7, LUP+8*
Y	PSAOP+9~, LOOK+3, LOOK+5, LOOK+8, LOOK+11, LOOK+30, LOOK+31, DEV, LUP+3, LUP+4 , HEADER
ZTDESC	DEV+2~, TR
ZTDTH	DEV+2~, TR*
ZTIO	DEV+2~, TR*
>> ZTQUEUED	STOP+2
>> ZTREQ	STOP+2*
ZTRTN	DEV+2~, TR
ZTSAVE	DEV+2~
ZTSAVE("PSA*"	DEV+2, TR
ZTSAVE("^TMP(""PSA"",$J,+PSADRUG,"	DEV+2, TR
ZTSK	DEV+2~

Customize PDF page

Package: Drug Accountability

Routine: PSAOP

Information

Source Information

Call Graph

Call Graph Total: 12

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

Naked Globals

Local Variables

Legend: