Routine: PSAUNI

Package	Total	Call Graph
VA Fileman	4	DT^DICRW ^DIR ^DIWP ^DIWW
Kernel	3	(,HOME)^%ZIS ^%ZISC (,$$S)^%ZTLOAD

Package	Total	Caller Graph
Drug Accountability	1	PSA ACTIVE DRUGS/ITEM FILE

Entry Points

Name	Comments	DBIA/ICR reference
START	;compiles and prints data for report
END
LOOP
DEV	;asks device and queueing info
HEADER	;prints header info

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DEV+1
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!" Line Location: DEV+1
Function Call: WRITE	Prompt: $G(^PRC(441,+PSA,1,1,0)),! Line Location: LOOP+9
Function Call: WRITE	Prompt: @IOF Line Location: END+0
Function Call: WRITE	Prompt: !! Line Location: END+1
Function Call: WRITE	Prompt: !!,"Task #",$G(ZTSK),", ",$G(ZTDESC)," was stopped by ",$P($G(^VA(200,+$G(DUZ),0)),U),"." Line Location: HEADER+2
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HEADER+3
Function Call: WRITE	Prompt: !?2,"UNLINKED ITEM MASTER file DRUGS PURCHASED SINCE ",PSADT(1),?70,"PAGE: "_PSAPG,!,PSALN,!! Line Location: HEADER+3
Routine Call	%ZIS Line Location: DEV+2
Routine Call	DIR Line Location: PSAUNI+13 END+1 HEADER+1
Routine Call	%ZIS Line Location: DEV+1

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PSAUNI+14
^PRC(440	LOOP+5
^PRC(441 - [#441]	LOOP, LOOP+3, LOOP+4, LOOP+5, LOOP+6, LOOP+9, LOOP+12
^PRC(442	LOOP+4
^PSDRUG("AB"	LOOP
^UTILITY($J	LOOP+10!
^VA(200 - [#200]	HEADER+2

Name	Line Occurrences
END	PSAUNI+13, DEV+1, DEV+2, LOOP
HEADER	START+1, LOOP

Name	Field # of Occurrence
^(0	LOOP+5

Name	Field # of Occurrence
%ZIS	DEV+1~*
DIR	PSAUNI+12~, PSAUNI+13!, HEADER+1!
DIR("?"	PSAUNI+13*
DIR("A"	PSAUNI+13, END+1
DIR("B"	PSAUNI+13*
DIR(0	PSAUNI+13, END+1, HEADER+1*
>> DIWF	LOOP+10*
>> DIWL	LOOP+10*
>> DIWR	LOOP+10*
DTOUT	DEV+1~
DUOUT	DEV+1~
DUZ	HEADER+2
I	DEV+1!
IO("Q"	DEV+1!, DEV+2, END+2!
IOF	END, HEADER+3
IOP	DEV+1~
IOSL	LOOP
IOST	LOOP+1, END, END+1, HEADER+1
POP	DEV+1~
PSA	PSAUNI+12~, START+1, LOOP, LOOP+3, LOOP+4, LOOP+5, LOOP+6, LOOP+9, LOOP+12
PSA(1	LOOP+2, LOOP+3, LOOP+4
PSA(2	LOOP+4*
PSA(3	LOOP+3, LOOP+7*
PSA(4	LOOP+11, LOOP+12
PSADT	PSAUNI+12~, PSAUNI+14*, LOOP+4
PSADT(1	PSAUNI+14*, HEADER+3
PSALN	START+1~, HEADER+3*
PSAOUT	PSAUNI+13, DEV+1~, DEV+2, START+1, LOOP, END+1, HEADER+1, HEADER+2
PSAPG	START+1~, HEADER+1, HEADER+3
U	LOOP, LOOP+4, LOOP+5, LOOP+6, HEADER+2
X	PSAUNI+12~, LOOP+12*
Y	PSAUNI+12~, PSAUNI+13, PSAUNI+14, HEADER+1
ZTDESC	DEV+2~*, HEADER+2
ZTDTH	DEV+2~
ZTIO	DEV+2~
>> ZTQUEUED	END+2
>> ZTREQ	END+2*
ZTRTN	DEV+2~*
ZTSAVE	DEV+2~
ZTSAVE("PSA*"	DEV+2*
ZTSK	DEV+2~, HEADER+2