Routine: PSAOP2

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

Package

Total

Call Graph

Drug Accountability

OP^PSADA ^PSAOP4 PSAWARN^PSAPSI

Kernel

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

VA Fileman

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

Package	Total	Caller Graph
Drug Accountability	1	PSA OP ALL DRUGS

Package

Total

Caller Graph

Drug Accountability

PSA OP ALL DRUGS

Name	Field # of Occurrence
^%DT	LOOK+4
COMMA^%DTC	5+7, 5+10, 5+11, PNTQ
NOW^%DTC	LOOK+4
^%ZIS	DEV
^%ZISC	Q, STOP+1
^%ZTLOAD	DEV+2
$$S^%ZTLOAD	HEADER+1
^DIR	LOOK+2, LOOK+5, LOOK+7, HEADER
OP^PSADA	LOOK, LOOK+2
^PSAOP4	STOP+2
PSAWARN^PSAPSI	PSAOP2+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$G(PSALOCN) Line Location: LOOK+1
Function Call: WRITE	Prompt: !!,"There are no drugs in ",PSALOCN,!! Line Location: LOOK+3
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+1
Function Call: WRITE	Prompt: !,"Processing ",$S(PSAHOW="AL":"dispensing",PSAHOW="AJ":"returns",PSAHOW="AM":"partials",1:"returns") Line Location: LOOP+1
Function Call: WRITE	Prompt: "." Line Location: 3+0
Function Call: WRITE	Prompt: !,PSADRUGN,?36,"has not been dispensed since: " Line Location: 4+3
Function Call: WRITE	Prompt: Y,"." Line Location: 4+3
Function Call: WRITE	Prompt: !,PSADRUGN Line Location: 4+4
Function Call: WRITE	Prompt: !,$G(DAYS),?3,PRINTDT,?23,PNTQTY,?40,PNTPRICE,"/",PSADISPU,?63,PSAQP Line Location: 5+12
Function Call: WRITE	Prompt: !,PSALN,!,DAYS," DAY TOTALS: " Line Location: PNTQ+0
Function Call: WRITE	Prompt: Y Line Location: PNTQ+0
Function Call: WRITE	Prompt: Y Line Location: PNTQ+0
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",!," DISPENSED",?23,"DISP",?46,"UNIT",?68,"COST",!,PSALN Line Location: HEADER+3
Routine Call	DIR Line Location: LOOK+2 LOOK+5 LOOK+7 HEADER
Routine Call	%ZIS Line Location: DEV

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	4+3, 5+1
^PSD(58.8 - [#58.8]	LOOK+3, LOOK+6, 3+4, 4+3
^PSD(58.88 - [#58.88]	DONE+2
^PSDRUG - [#50]	DONE+2, 3+3, 5+4, 5+5
^PSDRUG("B"	4+1
^PSRX - [#52]	1, 2, 3, 3+2, 3+5, 3+7, 3+11
^PSRX("AR"	3+1
^TMP("PSA"	3+9, 3+10, 3+11, 3+13, 3+14, DONE+2*, 4, 4+3, 5, Q+1! , STOP+2
^TMP($J	Q+1!

Name	Line Occurrences
1	2
2	3
3	3+1, 3+2, 3+4, 3+5, 3+15
4	4+3, PNTQ+2
5	5+12, 5+13
DONE	PROCESS+1
HEADER	DONE+1, 4+2
LOOP	PROCESS
PNTQ	5
Q	PSAOP2+11, LOOK+1, LOOK+2, LOOK+3, DEV+1, DEV+2, 4+2, STOP+3
STOP	LOOK+7, 4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEV!*
>> DATA	3+10, 3+11, 5, 5+2
DAYS	4+5!, 5*, 5+12, PNTQ
DIR	LOOK+2!, LOOK+5!, LOOK+7!, HEADER!
DIR("?"	LOOK+2*
DIR("A"	LOOK+2, LOOK+5, LOOK+7*
DIR("B"	LOOK+2, LOOK+5, LOOK+7*
DIR(0	LOOK+2, LOOK+5, LOOK+7, HEADER
>> DIRUT	LOOK+2, LOOK+7
IO("Q"	DEV!, DEV+2, STOP+1!
IOF	LUP+1, HEADER+2, STOP
IOP	DEV!
IOSL	4+2
IOST	LOOP+1, HEADER, STOP
PDADISPU	Q!
PNTDATA	4+5!, Q!
PNTDATE	Q!
PNTPRICE	5+10*, 5+12, Q!
PNTQTY	5+7*, 5+12, PNTQ+1!, Q!
POP	DEV!, DEV+1, Q!
PRINTDT	5+1*, 5+12, Q!
PSA	Q!
PSACNT	Q!
PSADAILY	LOOK+8*, 5+12, Q!
PSADATE	4+5!, 5*, 5+1, Q!
>> PSADISPU	5+5*, 5+12
PSADR	Q!
PSADREC	Q!
PSADRUG	LOOK+4, LUP+1, 3+2, 3+3, 3+4, 4+1, 4+3, 5+4, 5+5, Q!
PSADRUGN	3+3, 3+9, 3+10, 3+11, 3+13, 3+14, DONE+3, 4*, 4+1, 4+3 , 4+4, 5, Q+1!
PSADT	LOOK+4, LOOK+5, PROCESS, 1*, 2, 3, 3+1, 3+9, 3+10, 3+11 , 3+13, 3+14, Q+1!
PSADT(1	LOOK+4*, LOOK+5
PSADT(2	LOOK+5*
PSADT(22	LOOK+5*, PROCESS, 4+3
PSADT(3	LOOK+5*
PSAG	Q+1!
PSAHOW	PROCESS*, LOOP+1, 1, 2, 3, 3+11, 3+13, 3+14, Q+1!
PSAIEN	1!, 2*, 3, 3+1, 3+2, 3+5, 3+7, 3+11, 3+13, Q+1!
PSALN	PSAOP2+12*, PNTQ, HEADER+2, HEADER+3, Q+1!
PSALOC	LOOK+1, LOOK+2!, LOOK+3, LOOK+6, 3+4, DONE+2, 4+3, Q+1!
PSALOCN	LOOK+1, LOOK+3, HEADER+2, Q+1!
PSAN	LOOK+5*, Q+1!
PSAN(1	LOOK+5*
PSAOP	LOOK+6*, Q+1!
PSAOSIT	Q!
PSAOUT	LOOK+2, LOOK+4, LOOK+5, LOOK+7, DEV+1, 4+2, HEADER, HEADER+1*, Q+1!
PSAP	LOOK+5*, Q+1!
PSAP(1	LOOK+5*
PSAPG	LOOK+4, HEADER, HEADER+2, Q!
PSAPRICE	5+4*, 5+9, 5+10, 5+11, PNTQ+1!, Q+1!
PSAPRICE(2	5+9*, PNTQ
PSAQ	Q+1!
PSAQP	5+11*, 5+12!
PSAQTY	3+7, 3+11, 5+2, 5+7, 5+8, 5+9, 5+11, PNTQ+1!, Q+1!
PSAQUIT	PSAOP2+10!
PSAR	LOOK+5*, Q+1!
PSAR(1	LOOK+5*
PSAREC	Q+1!
PSARELDT	Q+1!
PSARX	2!, 3*, 3+1, 3+7, 3+11, 3+14, Q+1!
PSAS	LOOK+6*, 3+5, Q+1!
PSAT	Q+1!
PSATTLP	4+5!, Q+1!
TTLQTY	5+8*, PNTQ, PNTQ+1!, Q+1!
U	LOOK+6
>> X	LOOK+4*
>> X2	5+7, 5+10, 5+11, PNTQ
>> XX	DONE+2*
>> XXX	DONE+2*
>> Y	LOOK+2, LOOK+4, LOOK+5, LOOK+8, DEV, 4+3, 5+1, 5+7, 5+10, 5+11* , PNTQ*, HEADER
ZTDESC	DEV+2!*
ZTDTH	DEV+2!
ZTIO	DEV+2!
>> ZTQUEUED	STOP+1
>> ZTREQ	STOP+1*
ZTRTN	DEV+2!*
ZTSAVE	DEV+2!
ZTSAVE("PSA*"	DEV+2*
ZTSK	DEV+2!

Customize PDF page

Package: Drug Accountability

Routine: PSAOP2

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
LUP	;Starting point
Q
LOOK
PROCESS
STOP
DEV
1
HEADER
3
2
DONE	;All dispensing data retrieved, print it.
4
5
LOOP	;
PNTQ