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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSORXPR

Package: Outpatient Pharmacy

Routine: PSORXPR


Information

PSORXPR ;BHAM ISC/SAB - view individual prescription ;08/23/96 8:15 am

Source Information

Source file <PSORXPR.m>

Entry Points

Name Comments DBIA/ICR reference
GET
PR
DTT
REM
ACT
LG
A1
Q
H1
L1
CON
DAT
EN ; Entry Point for PSORXED

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,"RX: ",$P(RX0,"^"),?20,"PATIENT: "_$P(P0,"^")_" (",VA("PID")_") "
  • Line Location: PR+2
Function Call: WRITE
  • Prompt: !,"STATUS: "_ST_" "_$S($P($G(^PSRX(DA,"IB")),"^")]"":"CO-PAY STATUS",1:"")
  • Line Location: PR+5
Function Call: WRITE
  • Prompt: !,PKIT
  • Line Location: PR+7
Function Call: WRITE
  • Prompt: !?6," QTY: ",$P(RX0,"^",7)," ",$S($P(RX0,"^",8)?1N.N:$P(RX0,"^",8),1:"??")," DAY SUPPLY"
  • Line Location: PR+11
Function Call: WRITE
  • Prompt: !?7,"SIG: ",$G(BSIG(1))
  • Line Location: PR+14
Function Call: WRITE
  • Prompt: !?12,$G(BSIG(PSREV))
  • Line Location: PR+15
Function Call: WRITE
  • Prompt: !?4,"LATEST: ",RFLL,?37,"# OF REFILLS: ",$P(RX0,"^",9)
  • Line Location: PR+17
Function Call: WRITE
  • Prompt: " REMAINING: ",$P(RX0,"^",9)-PL
  • Line Location: PR+17
Function Call: WRITE
  • Prompt: !?4,"ISSUED: ",DAT
  • Line Location: DTT+0
Function Call: WRITE
  • Prompt: ?41,"PROVIDER: "_PHYS
  • Line Location: DTT+2
Function Call: WRITE
  • Prompt: !?41,"COSIGNER: "_$P(Y,"^",2)
  • Line Location: DTT+3
Function Call: WRITE
  • Prompt: !?4,"LOGGED: ",DAT,?43,"CLINIC: ",$S($D(^SC(+$P(RX0,"^",5),0)):$P(^(0),"^"),1:"NOT ON FILE")
  • Line Location: DTT+4
Function Call: WRITE
  • Prompt: !?3,"EXPIRES: ",PSEXDT,?41,"DIVISION: ",PSDIV,!?7,"CAP: ",$P("NON-^","^",$S($D(^PS(55,DFN,0)):+$P(^(0),"^",2),1:0)),"SAFETY",?42,"ROUTING: "
  • Line Location: DTT+5
Function Call: WRITE
  • Prompt: $P("MAIL^WINDOW^INPATIENT^PARK","^",X)
  • Condition for execution: X
  • Line Location: DTT+5
Function Call: WRITE
  • Prompt: !?2,"ENTRY BY: ",$S(+Y:$P(Y,"^",2),1:$P(RX0,"^",16))
  • Line Location: DTT+7
Function Call: WRITE
  • Prompt: !!,"FILLED: "_RFL,?20,"PHARMACIST: "_$S(+Y:$P(Y,"^",2),1:""),?52,"LOT #: "_$P(RX2,"^",4)
  • Line Location: DTT+11
Function Call: WRITE
  • Prompt: !," DISPENSED: "_$S($P(RX2,"^",5):$E($P(RX2,"^",5),4,5)_"/"_$E($P(RX2,"^",5),6,7)_"/"_$E($P(RX2,"^",5),2,3),1:"")
  • Line Location: DTT+12
Function Call: WRITE
  • Prompt: ?$X+10,$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: DTT+13
Function Call: WRITE
  • Prompt: !
  • Line Location: REM+2
Function Call: WRITE
  • Prompt: !,L1,?3,DAT,?14,$S($P(LBL,"^",2):"REFILL "_$P(^PSRX(DA,"L",L1,0),"^",2),1:"ORIGINAL")
  • Line Location: LG+1
Function Call: WRITE
  • Prompt: ?40,$P(Y,"^",2),!,"COMMENTS: "_$P(^PSRX(DA,"L",L1,0),"^",3)
  • Line Location: LG+3
Function Call: WRITE
  • Prompt: !,N,?3,DAT,?14
  • Line Location: A1+0
Function Call: WRITE
  • Prompt: ?25
  • Line Location: A1+3
Function Call: WRITE
  • Prompt: $S(X>0&(X<6):"REFILL "_X,X=6:"PARTIAL",X>6:"REFILL "_(X-1),1:"ORIGINAL")
  • Line Location: A1+3
Function Call: WRITE
  • Prompt: ?40,$S(+Y:$P(Y,"^",2),1:$P(P1,"^",3))
  • Line Location: A1+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !!,"ACTIVITY LOG:",!,"#",?3,"DATE",?14,"REASON",?25,"RX REF",?40,"INITIATOR OF ACTIVITY",!
  • Line Location: H1+1
Function Call: WRITE
  • Prompt: "="
  • Line Location: H1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: H1+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: L1+0
Function Call: WRITE
  • Prompt: !!,"LABEL LOG:",!,"#",?3,"DATE",?14,"RX REF",?40,"PRINTED BY",!
  • Line Location: L1+1
Function Call: WRITE
  • Prompt: "="
  • Line Location: L1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: L1+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call