Routine: PSOARCR1

Package	Total	Call Graph
Kernel	2	^%ZIS ^%ZISC
Outpatient Pharmacy	2	^PSOARCR2 HD1^PSOARCSV

Package

Total

Call Graph

Kernel

^%ZIS ^%ZISC

Outpatient Pharmacy

^PSOARCR2 HD1^PSOARCSV

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSOARCIN

Package

Total

Caller Graph

Outpatient Pharmacy

PSOARCIN

Name	Field # of Occurrence
^%ZIS	END, Q
^%ZISC	END, Q
^PSOARCR2	RXR1
HD1^PSOARCSV	PR+6, PAGE+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @%MT("REW") Line Location: PSOARCR1+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: R+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: PAR+0
Function Call: WRITE	Prompt: !!,NM,?55,"ID#: ",$P(T(1),"^",2),?75,"ELIG: ",$P(T(1),"^",3),!,$P(T(1),"^",4),?55,"DOB: ",$P(T(1),"^",5),?75,"PHONE: ",$P(T(1),"^",6) Line Location: DPR+0
Function Call: WRITE	Prompt: !,$P(T(1),"^",7),!,$P(T(1),"^",8)," ",$P(T(1),"^",9) Line Location: DPR+1
Function Call: WRITE	Prompt: !,"CANNOT USE SAFETY CAPS." Line Location: DPR+2
Function Call: WRITE	Prompt: ?40,"DIALYSIS PATIENT" Line Location: DPR+2
Function Call: WRITE	Prompt: !,$P(T(2),"^") Line Location: DPR+3
Function Call: WRITE	Prompt: !?15 Condition for execution: ($Y+$L(T(2,I))+1)>PSOACPM Line Location: DPR+5
Function Call: WRITE	Prompt: T(2,I),"," Line Location: DPR+5
Function Call: WRITE	Prompt: !?15 Condition for execution: ($Y+$L(T(3,I))+1)>PSOACPM Line Location: MA+1
Function Call: WRITE	Prompt: T(3,I),"," Line Location: MA+1
Function Call: WRITE	Prompt: !?15 Condition for execution: ($Y+$L(T(4,I))+1)>PSOACPM Line Location: MA+2
Function Call: WRITE	Prompt: T(4,I),"," Line Location: MA+2
Function Call: WRITE	Prompt: !?15 Condition for execution: ($Y+$L(T(5,I))+1)>PSOACPM Line Location: MA+3
Function Call: WRITE	Prompt: T(5,I),"," Line Location: MA+3
Function Call: WRITE	Prompt: !!?5," End of tape detected ",!?5,"After current tape rewinds, mount next tape" Line Location: EOT+0
Function Call: WRITE	Prompt: @%MT("REW") Line Location: EOT+0
Function Call: READ	Timeout: DTIME Variable: XX Line Location: READ+0
Function Call: WRITE	Prompt: $C(7) Line Location: READ+0
Function Call: WRITE	Prompt: !!,"continuing" Line Location: READ+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: READT+0
Routine Call	%ZIS Line Location: END Q

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("EOT"	PSOAT+1
^TMP($J	Q+1!

Label References

Name	Line Occurrences
DPR	PR+6
END	R, PAR, RXR, RXR2, RXR2+1, READT
EOT	PSOAT+1
MA	DPR+4
NODE1	RXR2+2
NODE4	RXR2+3
NODE5	RXR2+4
NODEA	RXR2+6
NODEL	RXR2+7
NODEP	RXR2+8
PAGE	RXR1
PAR	PAR, RXR
PR	PAR
PSOAT	R, PAR, READT
R	R
READ	READ
READT	PR+1, PR+2, PR+3, PR+4, PR+5, RXR, RXR2, RXR2+1, RXR2+5, RXR2+9 , RXR2+10, RXR2+11, RXR2+12, NODE1+1, NODE4+1, NODE5+1, NODEA+1, NODEL+1, NODEP+1
RXR2	RXR1

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%MT	Q+1!
%MT("REW"	PSOARCR1+2, EOT
A	Q+1!, PR+1*, PR+3, MA, MA+1
D	Q+1!, PR+1*, PR+2, DPR+4, DPR+5
DG	Q+1!, PR+1*, PR+4, MA, MA+2
DTIME	R, PAR, READ, READT
GD	Q+1!, PR+1*, PR+5, MA, MA+3
I	Q+1!, PR+2, PR+3, PR+4, PR+5, DPR+5, MA+1, MA+2, MA+3
IO(0	END, Q, EOT, READ
IOP	END!, Q!
NM	PAR, Q+1!, RXR, RXR2, RXR2+1, DPR
PSOACDS	Q+1!
PSOACPF	Q+1!
PSOACPL	Q+1!, PAGE
PSOACPM	Q+1!, DPR+5, MA+1, MA+2, MA+3
PSOAEOT	Q+1!, PSOAT+1*
PSOAP	Q, Q+1!, RXR1, DPR
PSOAPF	PSOARCR1+3, Q+1!, PR+6
PSOAT	PSOARCR1+2, END, Q+1!, RXR1, PSOAT+1, PSOAT+2, EOT
PSOATNM	Q+1!, READ+1*
RX	Q+1!
RX(	NODE1, NODE1+1, NODE4, NODE4+1, NODE5, NODE5+1, NODEA, NODEA+1, NODEL, NODEL+1 , NODEP, NODEP+1
RX("C"	RXR2+10*
RX("D"	RXR2+11*
RX("IB"	RXR2+9*
RX("S"	RXR2+12*
RX(0	RXR2+1*
RX(2	RXR2+5*
RX(3	RXR2+5*
>> SS	PAR
T	Q+1!, MA+4!
T(1	PR+1*, DPR, DPR+1, DPR+2
T(2	PR+1, PR+2, DPR+3, DPR+5
T(3	PR+3*, MA+1
T(4	PR+4*, MA+2
T(5	PR+5*, MA+3
X	R, PAR, Q+1!, PR+1, PR+2, PR+3, PR+4, PR+5, RXR, RXR2 , RXR2+1, RXR2+2, RXR2+3, RXR2+4, RXR2+5, RXR2+6, RXR2+7, RXR2+8, RXR2+9, RXR2+10 , RXR2+11, RXR2+12, NODE1, NODE1+1, NODE4, NODE4+1, NODE5, NODE5+1, NODEA, NODEA+1 , NODEL, NODEL+1, NODEP, NODEP+1, READT*
XX	Q+1!, READ, NODE1, NODE1+1, NODE4, NODE4+1, NODE5, NODE5+1, NODEA, NODEA+1* , NODEL, NODEL+1, NODEP, NODEP+1
Y	Q+1!, PSOAT+1

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOARCR1

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
PR	;patient read
PAR
END
DPR
PSOAT	;check for eot, return psoaeot=1 if found
NODE4
PAGE
Q
READ
R
NODEP
READT
NODEA
EOT
NODE1
MA
RXR
NODE5
RXR1
RXR2
NODEL