Routine: PSADJR

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZISC (,$$S)^%ZTLOAD
VA Fileman	3	DD^%DT ^DIC ^DIR
Drug Accountability	2	SITES^PSAUTL1 ^PSAUTL3

Package	Total	Caller Graph
Drug Accountability	2	PSA BALANCE ADJUSTMENTS REPORT PSADJ

Entry Points

Name	Comments	DBIA/ICR reference
LOOK	;Get locations to display
HEADER	;prints header info
TRAN	;
DEV	;asks device and queueing info
START	;compiles and prints output
EXIT
LOOP

External References

Name	Field # of Occurrence
DD^%DT	START+3
^%ZIS	DEV+1
HOME^%ZIS	DEV+2
^%ZISC	EXIT+4
^%ZTLOAD	DEV+2
$$S^%ZTLOAD	HEADER+4
^DIC	LOOK+6
^DIR	LOOK+8, EXIT+3, HEADER+3
SITES^PSAUTL1	START+1, LOOP+9
^PSAUTL3	LOOK+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"There are no active pharmacy locations." Line Location: LOOK+3
Function Call: WRITE	Prompt: !!,"There are no drugs in ",PSALOCN Line Location: LOOK+4
Function Call: WRITE	Prompt: ! Line Location: LOOK+5
Function Call: WRITE	Prompt: !!,"There have been no adjustments for this drug.",!! Line Location: LOOK+7
Function Call: WRITE	Prompt: ! Line Location: LOOK+8
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR OUTPUT PRINTED!" Line Location: DEV+1
Function Call: WRITE	Prompt: !,$E(Y,1,17) Line Location: LOOP+3
Function Call: WRITE	Prompt: ?30 Condition for execution: $P($G(^PSD(58.81,PSAR,0)),"^",2)=24 Line Location: LOOP+4
Function Call: WRITE	Prompt: $J($P($G(^PSD(58.81,PSAR,0)),"^",6),5,0) Line Location: LOOP+4
Function Call: WRITE	Prompt: !?37,$P($G(^PSD(58.81,PSAR,0)),"^",16),! Line Location: LOOP+6
Function Call: WRITE	Prompt: !?37,"TRANSFER DATA MISSING",! Line Location: LOOP+8
Function Call: WRITE	Prompt: !?37,"TO "_PSALOCN,! Condition for execution: $L(PSALOCN)<42 Line Location: LOOP+10
Function Call: WRITE	Prompt: !?37,"TO " Line Location: LOOP+10
Function Call: WRITE	Prompt: !?37,"FROM "_PSALOCN,! Condition for execution: $L(PSALOCN)<42 Line Location: LOOP+11
Function Call: WRITE	Prompt: !?37,"FROM " Line Location: LOOP+11
Function Call: WRITE	Prompt: ! Line Location: EXIT+2
Function Call: WRITE	Prompt: @IOF Line Location: EXIT+3
Function Call: WRITE	Prompt: ! Line Location: HEADER+2
Function Call: WRITE	Prompt: !!,"Task #",$G(ZTSK),", ",$G(ZTDESC)," was stopped by ",$P($G(^VA(200,+$G(DUZ),0)),"^"),"." Line Location: HEADER+4
Function Call: WRITE	Prompt: !?22,"HISTORY OF ADJUSTMENTS AND TRANSFERS",?70,"PAGE: ",PSAPG,! Line Location: HEADER+7
Function Call: WRITE	Prompt: ?20," INACTIVE DRUG IN PHARMACY LOCATION ",! Line Location: HEADER+9
Function Call: WRITE	Prompt: !,"DATE",?22,"ADJUST",?30,"TRANS",?37,"TRANSACTOR & REASON",!,PSASLN Line Location: HEADER+10
Function Call: WRITE	Prompt: $P($P(PSALOCN,":",2),"(IP)"),! Line Location: TRAN+1
Function Call: WRITE	Prompt: $P($P(PSALOCN,":",2),"(OP)"),! Line Location: TRAN+2
Function Call: WRITE	Prompt: "COMBINED:"_$P($P(PSALOCN,":",2),"(IP)",1)_"(IP)",! Line Location: TRAN+3
Function Call: WRITE	Prompt: ?49 Condition for execution: PSATF="T" Line Location: TRAN+3
Function Call: WRITE	Prompt: ?51 Condition for execution: PSATF="F" Line Location: TRAN+3
Function Call: WRITE	Prompt: $P($P(PSALOCN,":",2),"(IP)",2),! Line Location: TRAN+3
Routine Call	%ZIS Line Location: DEV+2
Routine Call	DIC Line Location: LOOK+6
Routine Call	DIR Line Location: LOOK+8 EXIT+3 HEADER+3
Routine Call	%ZIS Line Location: DEV+1

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"	LOOP+3
^PSD(58.8 - [#58.8]	LOOK+4, START+1, LOOP+9, HEADER+9
^PSD(58.81 - [#58.81]	LOOK+7, LOOP, LOOP+1, LOOP+2, LOOP+3, LOOP+4, LOOP+5, LOOP+6, LOOP+7, LOOP+10 , LOOP+11
^PSDRUG - [#50]	START+2
^VA(200 - [#200]	LOOP+5, HEADER+4

Label References

Name	Line Occurrences
EXIT	LOOK+1, LOOK+3, LOOK+4, LOOK+6, LOOK+7, LOOK+8, DEV+1, DEV+2
HEADER	START+3, LOOP+1, LOOP+2
TRAN	LOOP+10, LOOP+11

Naked Globals

Name	Field # of Occurrence
^(0	LOOP, HEADER+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	START+3~
%ZIS	DEV+1~*
DA	EXIT+5!
DA(1	LOOK+5*
DIC	LOOK+5*, LOOK+6!, EXIT+5!
DIC("A"	LOOK+5*
DIC("W"	LOOK+5*
DIC(0	LOOK+5*
DIR	LOOK+8!, EXIT+5!, HEADER+3!
DIR("A"	LOOK+8, EXIT+3
DIR("B"	LOOK+8*
DIR(0	LOOK+8, EXIT+3, HEADER+3*
DIRUT	LOOK+8, EXIT+5!
DT	START+3, HEADER+9
DTOUT	EXIT+5!
DUOUT	EXIT+5!
DUZ	HEADER+4
IO("Q"	DEV+1!, DEV+2, EXIT+4!
IOF	EXIT, EXIT+3, HEADER+5
IOP	DEV+1~
IOSL	LOOP+1, LOOP+2
IOST	EXIT, EXIT+1, HEADER+1, HEADER+6
POP	DEV+1~
PSA	LOOK+6*, START+2, LOOP, EXIT+5!, HEADER+9
PSACHK	LOOK+2*, LOOK+3, EXIT+5!
PSACNT	LOOK+1, LOOK+2, EXIT+5!
PSACOMB	START+1, LOOP+9, EXIT+5!
PSADRG	START+2*, EXIT+5!, HEADER+8
PSAHOLD	LOOP+7*, LOOP+8, LOOP+12, EXIT+5!
PSAHOLDN	LOOP+7*, LOOP+8, LOOP+12, EXIT+5!
PSAKK	EXIT+2, EXIT+5!, HEADER+2
PSALOC	LOOK+3, LOOK+4, LOOK+5, START+1, LOOP, LOOP+7, LOOP+8, LOOP+9, LOOP+12*, EXIT+5! , HEADER+9
PSALOC(""	LOOK+2
PSALOCA	EXIT+5!
PSALOCN	LOOK+4, START+1, LOOP+7, LOOP+8, LOOP+9, LOOP+10, LOOP+11, LOOP+12, EXIT+5!, HEADER+8 , TRAN+1, TRAN+2, TRAN+3
PSAOUT	LOOK+1, LOOK+4, LOOK+6, LOOK+7, LOOK+8, DEV+1, DEV+2, START+3~, LOOP, LOOP+1 , LOOP+2, EXIT+1, EXIT+5!, HEADER+1, HEADER+3, HEADER+4
PSAPG	START+3~, HEADER+1, HEADER+5, HEADER+7
PSAR	START+3, LOOP, LOOP+1, LOOP+2, LOOP+3, LOOP+4, LOOP+5, LOOP+6, LOOP+7, LOOP+10 , LOOP+11, EXIT+5!
PSARPDT	START+3~*, HEADER+6
PSASEL	EXIT+5!
PSASLN	START+3~*, HEADER+10
PSASS	EXIT+2, EXIT+5!, HEADER+2
PSAT	LOOK+9*, LOOP, EXIT+5!
PSATAB	START+2*, EXIT+5!, HEADER+8
PSATF	LOOP+10, LOOP+11, EXIT+5!, TRAN+3
PSATRAN	EXIT+5!
PSATRANL	LOOP+7*, EXIT+5!
X	EXIT+5!
Y	LOOK+6, LOOK+7, LOOK+9, START+3, LOOP+3, EXIT+5!, HEADER+3
ZTDESC	DEV+2~*, HEADER+4
ZTDTH	DEV+2~
ZTIO	DEV+2~
>> ZTQUEUED	EXIT+4
>> ZTREQ	EXIT+4*
ZTRTN	DEV+2~*
ZTSAVE	DEV+2~
ZTSAVE("PSA*"	DEV+2*
ZTSK	DEV+2~, HEADER+4

Customize PDF page

Package: Drug Accountability

Routine: PSADJR

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: