Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSOARX

Package: Outpatient Pharmacy

Routine: PSOARX


Information

PSOARX ;B'ham ISC/SAB - display archived rxs ;03/10/94 1:08 pm

Source Information

Source file <PSOARX.m>

Call Graph

Call Graph Total: 4

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

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Outpatient Pharmacy 3 PSOARCF4  PSOARCSV  PSOARX1  

Entry Points

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

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

Global Variables Directly Accessed

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

Label References

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

Naked Globals

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

Local Variables

Legend:

>> 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!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All