Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: PSOARX

Package: Outpatient Pharmacy

Routine: PSOARX


Information

PSOARX ;ISC/SAB - display archived rxs ;Dec 02, 2021@12:55:57

Source Information

Source file <PSOARX.m>

Entry Points

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

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+2
Function Call: WRITE
  • Prompt: $P("Mail^Window^Inpatient^Park","^",X),?69,"Clerk Code: "_$S($D(^VA(200,+$P(RX,"^",16),0)):$P(^(0),"^"),1:"Unknown")
  • Condition for execution: X
  • Line Location: DTT+2
Function Call: WRITE
  • Prompt: !?3,"Expires: "_PSEXDT
  • Line Location: DTT+3
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+4
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+5
Function Call: WRITE
  • Prompt: ?75,"Lot #: "_$P(RX2,"^",4),?85," QTY: "_$P(RX,"^",7)
  • Line Location: DTT+6
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
Info |  Source |  Entry Points |  Interaction Calls