Routine: PSAREV

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZISC (,$$S)^%ZTLOAD
VA Fileman	2	^DIC ^DIR

Package

Total

Call Graph

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

^DIC ^DIR

Package	Total	Caller Graph
Drug Accountability	1	PSA PURCHASE ORDER REVIEW

Package

Total

Caller Graph

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

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"There have been no receipts for this Purchase Order.",!! Line Location: PSAREV+9
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR OUTPUT PRINTED!" Line Location: DEV+1
Function Call: WRITE	Prompt: !,"Receiving Site: ",$P($G(^PSD(58.8,+PSALOC,0)),U),! Line Location: LOOP+1
Function Call: WRITE	Prompt: !,"Receiving Site: ",$P($G(^PSD(58.8,+$P($G(^PSD(58.81,+PSAR,0)),U,3),0)),U),! Line Location: LOOP+2
Function Call: WRITE	Prompt: !,Y," ",$E($P($G(^PSDRUG(+$P($G(^PSD(58.81,PSAR,0)),U,5),0)),U),1,25)," -> " Line Location: LOOP+3
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,"History of receipts for P.O.# ",$P($G(^PRC(442,+PSAPO,0)),U),?50,PSARPDT,?70,"PAGE: ",PSAPG,!,PSALN,! Line Location: HEADER+3
Routine Call	%ZIS Line Location: DEV+2
Routine Call	DIC Line Location: PSAREV+8
Routine Call	DIR Line Location: END+1 HEADER+1
Routine Call	%ZIS Line Location: DEV+1

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	START+1, LOOP+3
^PRC(442	HEADER+3
^PSD(58.8 - [#58.8]	LOOP+1, LOOP+2
^PSD(58.81 - [#58.81]	PSAREV+9, LOOP, LOOP+1, LOOP+2, LOOP+3, LOOP+4
^PSDRUG - [#50]	LOOP+3
^VA(200 - [#200]	LOOP+4, HEADER+2

Name	Line Occurrences
END	PSAREV+8, PSAREV+9, DEV+2, LOOP
HEADER	START+1, LOOP

Name	Field # of Occurrence
^(0	LOOP+2

Name	Field # of Occurrence
%DT	START+1~
%ZIS	DEV+1~*
DIC	PSAREV+7~, PSAREV+8*!
DIC("A"	PSAREV+8*
DIC("S"	PSAREV+8*
DIC(0	PSAREV+8*
DIR	PSAREV+7~, HEADER+1!
DIR("A"	END+1*
DIR(0	END+1, HEADER+1
DT	START+1
DTOUT	PSAREV+7~, PSAREV+8
DUOUT	PSAREV+7~, PSAREV+8
DUZ	HEADER+2
IO("Q"	DEV+1!, DEV+2, END+2!
IOF	END, HEADER+3
IOP	DEV+1~
IOSL	LOOP
IOST	END, END+1, HEADER+1
POP	DEV+1~
PSALN	START+1~, HEADER+3*
PSALOC	PSAREV+7~, DEV+1!, LOOP+1, LOOP+2
PSAOUT	PSAREV+7~, PSAREV+8, DEV+2, START+1, LOOP, END+1, HEADER+1, HEADER+2*
PSAPG	START+1~, HEADER+1, HEADER+3
PSAPO	PSAREV+7~, PSAREV+8*, LOOP, HEADER+3
PSAR	START+1~, LOOP, LOOP+1, LOOP+2, LOOP+3, LOOP+4
PSARPDT	START+1~*, HEADER+3
U	LOOP+1, LOOP+2, LOOP+3, LOOP+4, HEADER+2, HEADER+3
X	PSAREV+7~
Y	PSAREV+7~, PSAREV+8, PSAREV+9, START+1, LOOP+3, 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("PSAPO"	DEV+2*
ZTSK	DEV+2~, HEADER+2

Information