Routine: PSDOPTX

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: BRX+1
Function Call: WRITE	Prompt: !!,"No transactions beginning from Rx # ",PSDRX(1),"." Line Location: BRX+2
Function Call: WRITE	Prompt: ! Line Location: ERX+1
Function Call: WRITE	Prompt: !!,"Ending Rx # must have been created after Rx # ",PSDRX(1),"." Line Location: ERX+2
Function Call: WRITE	Prompt: ! Line Location: DEV+1
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR OUTPUT PRINTED!" Line Location: DEV+1
Function Call: WRITE	Prompt: !!,Y,?19 Line Location: LOOP+7
Function Call: WRITE	Prompt: " ("_VA("BID")_")",?60 Line Location: LOOP+11
Function Call: WRITE	Prompt: Y Line Location: LOOP+12
Function Call: WRITE	Prompt: Y Line Location: LOOP+13
Function Call: WRITE	Prompt: Y Line Location: LOOP+14
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: !,"Outpatient Activity from Rx # ",PSDRX(1)," to Rx # ",PSDRX(3),?70,"PAGE: ",PG,!,LN,!,"Date Posted",?19,"Rx#",?28,"Patient",?60,"Date Released",!,LN Line Location: HEADER+3
Function Call: WRITE	Prompt: !,PSDU," (continued)",! Condition for execution: $G(PSDT(1)) Line Location: HEADER+3
Routine Call	%ZIS Line Location: DEV+2
Routine Call	DIC Line Location: BRX+1 ERX+1
Routine Call	DIR Line Location: END+1 HEADER+1
Routine Call	%ZIS Line Location: DEV+1

FileNo	Call Tags
^PSRX - [#52]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	LOOP+7, LOOP+12, LOOP+13, LOOP+14
^DD(58.8	ERX+4
^DD(58.81	LOOP+9
^PSD(58.8 - [#58.8]	ERX+4
^PSD(58.81 - [#58.81]	BRX+2, LOOP, LOOP+1, LOOP+3
^PSRX - [#52]	LOOP+8, LOOP+12, LOOP+13, LOOP+14
^PSRX(" "	ERX
^TMP("PSD"	START+3, START+5, END+3!
^VA(200 - [#200]	LOOP+6, LOOP+15, HEADER+2

Name	Field # of Occurrence
%ZIS	DEV+1~*
%ZIS("B"	DEV+1*
C	PSDOPTX+6~, ERX+4, LOOP+9!
>> DFN	LOOP+8*, LOOP+9
DIC	BRX!, ERX!, ERX+3!
DIC("A"	BRX, ERX
DIC("B"	ERX*
DIC(0	BRX, ERX
DIR	HEADER+1!
DIR("A"	END+1*
DIR(0	END+1, HEADER+1
DUZ	HEADER+2
IO	START+1
IO("Q"	DEV+1!, DEV+2, END+3!
IOF	END, HEADER+3
IOP	DEV+1~
IOSL	LOOP+4
IOST	LOOP, END, END+1, HEADER+1
LN	START+1~, LOOP+17, HEADER+3*
PG	START+1~, HEADER+1, HEADER+3
POP	DEV+1~
>> PSDEV	ERX+4*, DEV+1
>> PSDI	START+2
>> PSDLOC	ERX+4, LOOP+2
>> PSDOUT	DEV+2, START+1, START+5, LOOP, LOOP+4, END+1, HEADER+1, HEADER+2
PSDR	START+1~
PSDR(2	LOOP+1*, LOOP+2, LOOP+6, LOOP+7, LOOP+15
PSDR(4	LOOP+3*, LOOP+6, LOOP+8, LOOP+10, LOOP+12, LOOP+13, LOOP+14, LOOP+16
PSDRX	PSDOPTX+6~, BRX+1, ERX+2, START+4, START+5, LOOP
PSDRX(1	BRX+1*, BRX+2, ERX+2, HEADER+3
PSDRX(2	ERX+1*, ERX+2, LOOP
PSDRX(3	ERX+1*, HEADER+3
PSDRX(4	BRX+1*, START+5
PSDRX(5	LOOP*, LOOP+1, LOOP+3
>> PSDT(1	START+5, LOOP+5, HEADER+3
>> PSDU	START+1, START+3, START+5, LOOP+5, HEADER+3
>> PSDU(1	START+5*, LOOP+2
U	BRX+1, ERX+1, LOOP+2, LOOP+6, LOOP+7, LOOP+8, LOOP+9, LOOP+10, LOOP+12, LOOP+13 , LOOP+14, LOOP+15, LOOP+16, HEADER+2
>> VA("BID"	LOOP+11, END+3!
>> VA("PID"	END+3!
>> Y	BRX+1, BRX+2, ERX+1, ERX+4, LOOP+7, LOOP+9, LOOP+10, LOOP+12, LOOP+13, LOOP+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("PSDLOC"	SAVE+2*
ZTSAVE("PSDRX"	SAVE+2*
ZTSAVE("PSDRX("	SAVE+2*
ZTSAVE("^TMP(""PSD"",$J,"	SAVE+1*
ZTSK	DEV+2~, HEADER+2

Information