Routine: PSDREPV

Information

PSDREPV ;BIR/LTL-Review PV Receipt Transactions ; 29 Aug 94

Package	Total	Caller Graph
Controlled Substances	2	PSD PV INVOICE REVIEW PSDREC2

Name	Comments	DBIA/ICR reference
START	;compiles and prints output
END
LOOP
DEV	;(PSD318) Changed %ZIS( call to fileman - SQA.
HEADER	;prints header info

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PSDREPV+10
Function Call: WRITE	Prompt: !!,"No Prime Vendor Invoice for this transaction." Line Location: PSDREPV+11
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR OUTPUT PRINTED!" Line Location: DEV+5
Function Call: WRITE	Prompt: !,"Receiving Site: ",$P($G(^PSD(58.8,+PSDLOC,0)),U),! Line Location: LOOP+1
Function Call: WRITE	Prompt: !,Y," " Line Location: LOOP+3
Function Call: WRITE	Prompt: !,Y," " Line Location: LOOP+10
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: !,"History of receipts for Invoice # ",PSD(2),?57,RPDT,?70,"PAGE: ",PG,!,LN,! Line Location: HEADER+3
Routine Call	%ZIS Line Location: DEV+6
Routine Call	DIC Line Location: DEV+3
Routine Call	DIR Line Location: PSDREPV+9 END+1 HEADER+1
Routine Call	%ZIS Line Location: DEV+5
Routine Call	DIC Line Location: PSDREPV+10

FileNo	Call Tags
^PSD(58.81 - [#58.81]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	START+1, LOOP+3, LOOP+10
^PSD(58.8 - [#58.8]	DEV+2, LOOP+1, LOOP+7
^PSD(58.81 - [#58.81]	PSDREPV+10, DEV+2, LOOP
^PSDRUG - [#50]	LOOP+4, LOOP+11
^VA(200 - [#200]	LOOP+6, LOOP+13, HEADER+2

Name	Line Occurrences
END	PSDREPV+9, PSDREPV+10, PSDREPV+11, DEV+5, DEV+6, LOOP
HEADER	START+2, LOOP, LOOP+8

Name	Field # of Occurrence
%DT	START+1~
%ZIS	DEV+5~*
%ZIS("B"	DEV+5*
C	PSDREPV+6~
D	PSDREPV+6~, PSDREPV+10*
DIC	PSDREPV+6~, PSDREPV+10!, DEV+3
DIC("A"	PSDREPV+10*
DIC(0	PSDREPV+10, DEV+3
DIR	PSDREPV+6~, PSDREPV+9!, HEADER+1!
DIR("?"	PSDREPV+9*
DIR("A"	PSDREPV+8, END+1
DIR("B"	PSDREPV+9*
DIR(0	PSDREPV+8, END+1, HEADER+1*
DIRUT	PSDREPV+6~
DT	START+1
DTOUT	PSDREPV+6~
DUOUT	PSDREPV+6~
DUZ	HEADER+2
IO("Q"	DEV+5!, DEV+6, END+2!
IOF	END, HEADER+3
IOP	DEV+5~
IOSL	LOOP, LOOP+8
IOST	END, END+1, HEADER+1
LN	START+1~, HEADER+3*
PG	START+1~, HEADER+1, HEADER+3
POP	DEV+5~
PSD	PSDREPV+6~, PSDREPV+10*
PSD(1	START+1, LOOP, LOOP+2, LOOP+8*, LOOP+9
PSD(2	PSDREPV+10*, PSDREPV+11, LOOP, HEADER+3
PSD(3	LOOP, LOOP+1, LOOP+2, LOOP+3, LOOP+4, LOOP+5, LOOP+6, LOOP+7, LOOP+9, LOOP+10 , LOOP+11, LOOP+12, LOOP+13
PSDEV	PSDREPV+6~, DEV+3*, DEV+5
PSDL	PSDREPV+6~
PSDL(	LOOP+2*, LOOP+8, LOOP+9
PSDL(0	LOOP+7
>> PSDLOC	DEV+2, LOOP+1*, LOOP+2
PSDOUT	PSDREPV+6~, PSDREPV+10, PSDREPV+11, DEV+5, DEV+6, START+1, LOOP, LOOP+8, END+1, HEADER+1 , HEADER+2*
RPDT	START+1~*, HEADER+3
U	PSDREPV+10, DEV+2, LOOP+1, LOOP+2, LOOP+3, LOOP+4, LOOP+5, LOOP+6, LOOP+7, LOOP+10 , LOOP+11, LOOP+12, LOOP+13, HEADER+2
X	PSDREPV+6~, DEV+2*
Y	PSDREPV+6~, PSDREPV+9, PSDREPV+10, DEV+2, DEV+3, START+1, LOOP+3, LOOP+10*, HEADER+1
ZTDESC	DEV+6~*, HEADER+2
ZTDTH	DEV+6~
ZTIO	DEV+6~
>> ZTQUEUED	END+2
>> ZTREQ	END+2*
ZTRTN	DEV+6~*
ZTSAVE	DEV+6~
ZTSAVE("PSD*"	DEV+6*
ZTSK	DEV+6~, HEADER+2