Routine: PSDREVC

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

Package	Total	Caller Graph
Controlled Substances	2	PSD CP TRANSACTION REVIEW PSDREC4

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Because of the size of this file, look-ups of less than four characters",!!,"are NOT advised. Please enter either the entire transaction number,",!!,"Station-FY-QTR-Control Point-Sequence Number, or at least the four digit" Line Location: PSDREVC+7
Function Call: WRITE	Prompt: !!,"Sequence Number.",!! Line Location: PSDREVC+8
Function Call: WRITE	Prompt: !!,"There are no receipts for this Transaction.",!! Line Location: PSDREVC+11
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR OUTPUT PRINTED!" Line Location: DEV+2
Function Call: WRITE	Prompt: !,"Receiving Site: ",$P($G(^PSD(58.8,+PSDLOC,0)),U),! Line Location: LOOP+1
Function Call: WRITE	Prompt: !,"Receiving Site: ",$P($G(^PSD(58.8,+$P($G(^PSD(58.81,+PSDR,0)),U,3),0)),U),! Line Location: LOOP+2
Function Call: WRITE	Prompt: !,Y," ",$E($P($G(^PSDRUG(+$P($G(^PSD(58.81,PSDR,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: !,"History of receipts for Transaction # ",$P($G(^PRCS(410,+PSDCON,0)),U),?57,RPDT,?70,"PAGE: ",PG,!,LN,! Line Location: HEADER+3
Routine Call	%ZIS Line Location: DEV+3
Routine Call	DIC Line Location: PSDREVC+10
Routine Call	DIR Line Location: END+1 HEADER+1
Routine Call	%ZIS Line Location: DEV+2

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

Name	Line Occurrences
END	PSDREVC+10, PSDREVC+11, DEV+3, LOOP
HEADER	START+1, LOOP

Name	Field # of Occurrence
^(0	LOOP+2

Name	Field # of Occurrence
%DT	START+1~
%ZIS	DEV+2~*
%ZIS("B"	DEV+2*
C	PSDREVC+9~, DEV*
DIC	PSDREVC+9~, PSDREVC+10*!
DIC("A"	PSDREVC+10*
DIC("S"	PSDREVC+10*
DIC(0	PSDREVC+10*
DIR	PSDREVC+9~, HEADER+1!
DIR("A"	END+1*
DIR(0	END+1, HEADER+1
DT	START+1
DTOUT	PSDREVC+9~, PSDREVC+10
DUOUT	PSDREVC+9~, PSDREVC+10
DUZ	HEADER+2
IO("Q"	DEV+2!, DEV+3, END+2!
IOF	END, HEADER+3
IOP	DEV+2~
IOSL	LOOP
IOST	END, END+1, HEADER+1
LN	START+1~, HEADER+3*
PG	START+1~, HEADER+1, HEADER+3
POP	DEV+2~
PSDCON	PSDREVC+9~, PSDREVC+10*, PSDREVC+11, LOOP, HEADER+3
PSDEV	PSDREVC+9~, DEV*, DEV+2
PSDLOC	PSDREVC+9~, DEV+2!, LOOP+1, LOOP+2
PSDOUT	PSDREVC+9~, PSDREVC+10, DEV+3, START+1, LOOP, END+1, HEADER+1, HEADER+2*
PSDR	START+1~, LOOP, LOOP+1, LOOP+2, LOOP+3, LOOP+4
RPDT	START+1~*, HEADER+3
U	DEV, LOOP+1, LOOP+2, LOOP+3, LOOP+4, HEADER+2, HEADER+3
X	PSDREVC+9~
Y	PSDREVC+9~, PSDREVC+10, DEV, START+1, LOOP+3*, HEADER+1
ZTDESC	DEV+3~*, HEADER+2
ZTDTH	DEV+3~
ZTIO	DEV+3~
>> ZTQUEUED	END+2
>> ZTREQ	END+2*
ZTRTN	DEV+3~*
ZTSAVE	DEV+3~
ZTSAVE("PSDCON"	DEV+3*
ZTSK	DEV+3~, HEADER+2