Routine: PSOARX

Package	Total	Call Graph
Outpatient Pharmacy	4	HD1^PSOARCSV CMOP^PSOARCTG SIGONE^PSOHELP LAST^PSORFL

Package	Total	Caller Graph
Outpatient Pharmacy	3	PSOARCF4 PSOARCSV PSOARX1

Entry Points

External References

Name	Field # of Occurrence
HD1^PSOARCSV	HEAD
CMOP^PSOARCTG	ACT+1
SIGONE^PSOHELP	PR+5
LAST^PSORFL	RFL

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Rx: "_$P(RX,"^") Line Location: PR+1
Function Call: WRITE	Prompt: ?96,"QTY: ",$P(RX,"^",7)," ",$S($P(RX,"^",8)?1N.N:$P(RX,"^",8),1:"??")," Day Supply" Line Location: PR+3
Function Call: WRITE	Prompt: !?7,"SIG: " Line Location: PR+4
Function Call: WRITE	Prompt: SIG Line Location: PR+5
Function Call: WRITE	Prompt: $P(^PSRX(DA,"SIG1",I,0),"^") Line Location: PR+6
Function Call: WRITE	Prompt: !?12 Condition for execution: $O(^PSRX(DA,"SIG1",I)) Line Location: PR+6
Function Call: WRITE	Prompt: !?4,"Latest: "_RFL,?37,"# of Refills: "_$P(RX,"^",9) Line Location: RFL+0
Function Call: WRITE	Prompt: " Remaining: "_RFM Line Location: RFL+2
Function Call: WRITE	Prompt: ?70,"Provider: "_PHYS Line Location: RFL+3
Function Call: WRITE	Prompt: !?4,"Issued: "_DAT,?43,"Clinic: "_$S($D(^SC(+$P(RX,"^",5),0)):$P(^(0),"^",1),1:"Not on File"),?71,"Division: "_PSDIV Line Location: DTT+0
Function Call: WRITE	Prompt: !?4,"Logged: "_DAT,?42,"Routing: " Line Location: DTT+1
Function Call: WRITE	Prompt: $P("Mail^Window^Inpatient","^",X),?69,"Clerk Code: "_$S($D(^VA(200,+$P(RX,"^",16),0)):$P(^(0),"^"),1:"Unknown") Condition for execution: X Line Location: DTT+1
Function Call: WRITE	Prompt: !?3,"Expires: "_PSEXDT Line Location: DTT+2
Function Call: WRITE	Prompt: ?46,"Cap: "_$P("Non-^","^",$S($D(^PS(55,DFN,0)):+$P(^(0),"^",2),1:0)),"Safety",?73,"Status: "_ST Line Location: DTT+3
Function Call: WRITE	Prompt: !?4,"Filled: "_DAT,?24,"Pharmacist: "_$S($D(^VA(200,+$P(RX2,"^",3),0)):$P(^(0),"^",1),1:""),?56,"Verifying Pharmacist: "_$S($D(^VA(200,+$P(RX2,"^",10),0)):$P(^(0),"^",1),1:"") Line Location: DTT+4
Function Call: WRITE	Prompt: ?75,"Lot #: "_$P(RX2,"^",4),?85," QTY: "_$P(RX,"^",7) Line Location: DTT+5
Function Call: WRITE	Prompt: !?2,$S($P(RX2,"^",15):"Returned to Stock: "_$E($P(RX2,"^",15),4,5)_"/"_$E($P(RX2,"^",15),6,7)_"/"_$E($P(RX2,"^",15),2,3),1:"Released: "_$S($P(RX2,"^",13):$E($P(RX2,"^",13),4,5)_"/"_$E($P(RX2,"^",13),6,7)_"/"_$E($P(RX2,"^",13),2,3),1:"")) Line Location: REM+0
Function Call: WRITE	Prompt: !?3,"Remarks: "_$P(R3,"^",7) Line Location: REM+1
Function Call: WRITE	Prompt: !,N1,?3,DAT1,?14 Line Location: A1+0
Function Call: WRITE	Prompt: $P("Hold^Unhold^DC'd^Edit^Renewed^Partial^Reinstate^Reprint^Suspense^Returned Stock^Intervention^Deleted^Drug Interaction^Processed^X-Interface^Patient Inst.^PKI/DEA^Dispense Completed^ECME^","^",X) Condition for execution: X Line Location: A1+1
Function Call: WRITE	Prompt: ?25 Line Location: A1+1
Function Call: WRITE	Prompt: ?60,N2,?63,DAT2,?74 Line Location: A1+3
Function Call: WRITE	Prompt: $P("Hold^Unhold^DC'd^Edit^Renewed^Partial^Reinstate^Reprint^Suspense^Returned Stock^Intervention^Deleted^Drug Interaction^Processed^X-Interface^Patient Inst.^PKI/DEA^Dispense Completed^ECME^","^",X) Condition for execution: X Line Location: A1+4
Function Call: WRITE	Prompt: ?85 Line Location: A1+4
Function Call: WRITE	Prompt: !,N,?3 Line Location: N+0
Function Call: WRITE	Prompt: DAT1,?14,DAT2,?27,$P(P1,"^",4),?32 Line Location: N+0
Function Call: WRITE	Prompt: !?4,$S($P(P1,"^",16):"Returned to Stock: "_$E($P(P1,"^",16),4,5)_"/"_$E($P(P1,"^",16),6,7)_"/"_$E($P(P1,"^",16),2,3),1:"Released: "_$S($P(P1,"^",18):$E($P(P1,"^",18),4,5)_"/"_$E($P(P1,"^",18),6,7)_"/"_$E($P(P1,"^",18),2,3),1:"")) Line Location: N+3
Function Call: WRITE	Prompt: " Copay Billing #: "_$P($G(^PSRX(DA,1,N,"IB")),"^") Line Location: N+4
Function Call: WRITE	Prompt: !?5,"Remarks: "_$P(P1,"^",3) Line Location: N+5
Function Call: WRITE	Prompt: !,"#",?3,"Log Date",?14,"Refill Date",?27,"QTY",?32,"Routing",?40,"Lot #",?52,"Pharmacist",?70,"Division",! Line Location: HEAD+1
Function Call: WRITE	Prompt: "=" Line Location: HEAD+1
Function Call: WRITE	Prompt: !!,"Activity Log:",!,"#",?3,"Date",?14,"Reason",?25,"Rx Ref",?35,"Security",?60,"#",?63,"Date",?74,"Reason",?85,"Rx Ref",?95,"Security",! Line Location: H1+1
Function Call: WRITE	Prompt: "=" Line Location: H1+1
Function Call: WRITE	Prompt: ?60 Line Location: H1+2
Function Call: WRITE	Prompt: "=" Line Location: H1+2

Name	Line Occurrences (* Changed, ! Killed)
^PS(52.5 - [#52.5]	STAT+1
^PS(55 - [#55]	DTT+3
^PS(59 - [#59]	GET+1, N+1
^PSDRUG - [#50]	PR+2
^PSRX - [#52]	GET, PR+5, PR+6, RFL+1, REM+2, ACT, ACT+1, N+4, LP1, LP1+1 , STAT+1
^SC - [#44]	DTT
^VA(200 - [#200]	RFL+3, DTT+1, DTT+4, A1+2, A1+5, N+2

Name	Field # of Occurrence
^(	REM+2, LP1
^("P"	STAT+1
^("TN"	GET
^(0	GET+1, PR+2, RFL+3, DTT, DTT+1, DTT+3, DTT+4, A1+2, A1+5, N+1 , N+2, STAT+1
^(3	GET

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ANS	GET*, REM+2, ACT, N, Q!
>> DA	GET, PR+5, PR+6, RFL+1, REM+2, ACT, ACT+1, N+4, LP1, LP1+1 , STAT+1
DAT	DTT, DTT+1, DTT+4, Q!, DAT+1*
DAT1	A1, N, Q!, DAT1*
DAT2	A1+3, N, Q!, DAT1*
>> DFN	GET*, DTT+3
DT	STAT+2
DTT	DTT, DTT+1, DTT+4*, Q!, DAT+1
DTT1	N, Q!, LP1, DAT1*
DTT2	N, Q!, LP1, LP1+1, DAT1
EXDT	Q!
FFX	GET, A1, N, Q!, HEAD+2
I	PR+6, RFL+1, Q!, HEAD+1, H1+1, H1+2*
>> II	RFL*
>> J	GET*, RFL, STAT+1
M1	PR+2*, Q!
MED	PR+2*, Q!
N	REM+2, ACT, N, N+4, Q!, LP1*
N1	A1, Q!, LP1*
N2	A1+3, Q!, LP1*, LP1+1
P0	Q!
P1	REM+2, A1, A1+2, A1+5, A2, A2+1, N, N+1, N+2, N+3 , N+5, Q!, LP1
P2	A1+3, A1+5, A2, A2+1, Q!, LP1, LP1+1
>> PHYS	RFL+3*
PL	RFL+1*, REM+2, Q!
>> PS	DTT+3*
PSDIV	GET+1, DTT, N+1, N+2, Q!
PSEXDT	GET+2*, DTT+2, Q!
PSOAC	Q!
>> PSOACPL	HEAD
PSOZ	REM+2, ACT, A1+3, A2, A2+1, Q!, LP1, LP1+1, DAT1
>> PSOZVER	DTT+4
R3	GET*, REM+1, Q!
>> RFL	RFL
RFM	RFL+1*, RFL+2, Q!
RTN	GET*, PR+2, Q!
RX	GET*, PR+1, PR+2, PR+3, RFL, RFL+1, RFL+3, DTT, DTT+1, DTT+5 , Q!
RX2	GET*, GET+1, GET+2, DTT+1, DTT+4, DTT+5, REM, Q!, STAT+2
SIG	PR+5*, Q!
>> ST	DTT+3, STAT+3*
>> ST0	STAT+1, STAT+2, STAT+3
STA	Q!
U	A1, A1+2, A1+3, A1+5, A2, A2+1, N
>> X	PR+5, DTT+1, A1, A1+1, A1+2, A1+3, A1+4, A1+5, N+2*
Z0	Q!
Z1	Q!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOARX

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
PR
Q
HEAD
H1	;
GET
ACT
DAT1
STAT	;gets status of rx
LP1
N
A1
A2
REM
DTT
DAT	;
RFL

Name	Line Occurrences
A1	LP1+2
A2	A1+3
DAT	DTT, DTT+1, DTT+4
DAT1	A1, N
H1	ACT, A1
HEAD	REM+2, N
LP1	ACT
N	REM+2
Q	REM+2, ACT, ACT+2
REM	DTT+4
RFL	PR+5
STAT	PR