Routine: PSDADJW

Information

PSDADJW ;BIR/LTL-Review Adjustment Transactions for a Drug; 2 Nov 94 [ 11/02/94 12:19 PM ]

Source file <PSDADJW.m>

Package	Total	Call Graph
Kernel	3	^%ZISC $$S^%ZTLOAD $$FMTE^XLFDT
VA Fileman	1	^DIR

Package	Total	Caller Graph
Controlled Substances	1	PSDADJD

Name	Line Occurrences
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: !,"Adjustments from ",PSDTB(2)," to ",PSDTB(3),?70,"PAGE: ",PG,!,LN,!?2,"Date",?18,"Drug",?64,"QTY",?69,"Reason",?116,"Pharmacist",!,LN,! Line Location: HEADER+3
Routine Call	DIR Line Location: END+1 HEADER+1

Name	Line Occurrences (* Changed, ! Killed)
^PSD(58.81 - [#58.81]	LOOP, LOOP+1, LOOP+5
^VA(200 - [#200]	LOOP+9, HEADER+2

Name	Line Occurrences
END	LOOP
HEADER	START+1, LOOP+6

Name	Field # of Occurrence
DIR	HEADER+1!
DIR("A"	END+1*
DIR(0	END+1, HEADER+1
DUZ	HEADER+2
IO("Q"	END+2!
IOF	END, HEADER+3
IOSL	LOOP+6
IOST	END, END+1, HEADER+1
JJ	START+1~, LOOP*, LOOP+1
KK	START+1~, LOOP+1*, LOOP+2
LN	START+1~, HEADER+3*
NN	START+1~, LOOP+1*, LOOP+4, LOOP+5
PG	START+1~, HEADER+1, HEADER+3
>> PSDA(	LOOP+3, LOOP+7
>> PSDLOC	LOOP
>> PSDOUT	START+1, LOOP, LOOP+6, END+1, HEADER+1, HEADER+2*
PSDR	START+1~, LOOP+2*, LOOP+3, LOOP+7
PSDR(1	LOOP+4*
PSDR(2	LOOP+5*, LOOP+7, LOOP+8, LOOP+9
>> PSDT	LOOP*, LOOP+1
>> PSDTB(1	LOOP
>> PSDTB(2	HEADER+3
>> PSDTB(3	HEADER+3
U	LOOP+7, LOOP+8, LOOP+9, HEADER+2
>> Y	HEADER+1
>> ZTDESC	HEADER+2
>> ZTQUEUED	END+2
>> ZTREQ	END+2*
>> ZTSK	HEADER+2