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: PSOSD0

Package: Outpatient Pharmacy

Routine: PSOSD0


Information

PSOSD0 ;BHAM ISC/SAB - action or informational profile cont. ;08/24/17 10:10

Source Information

Source file <PSOSD0.m>

Entry Points

Name Comments DBIA/ICR reference
CLASS
DRUG
RXN
RXN1
RXN2
SIG
DUP ;DUP DRUG
BAR ;barcode
EIGHTY ;prints profile in 80 column format
RXN3
ACTS ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: RXN1+3
Function Call: WRITE
  • Prompt: ?45,"Qty: "_$P(RX0,"^",7)_" for "_$P(RX0,"^",8)_" Days ",?74,$P(RX0,"^"),?84," ",ACTS,?99,$E($P(RX2,"^",6),4,5)_"-"_$E($P(RX2,"^",6),6,7)_"-"_($E($P(RX2,"^",6),1,3)+1700)
  • Line Location: RXN1+9
Function Call: WRITE
  • Prompt: ?110,$E(PHYS,1,30)
  • Line Location: RXN1+10
Function Call: WRITE
  • Prompt: !," Message: "_$G(^PSDRUG(+$P(RX0,"^",6),"PSO"))
  • Line Location: RXN1+11
Function Call: WRITE
  • Prompt: !?9,"Sig: ",$G(BSIG(1))
  • Line Location: RXN1+12
Function Call: WRITE
  • Prompt: !?14,$G(BSIG(PSREV))
  • Line Location: RXN1+13
Function Call: WRITE
  • Prompt: " ",$E($P(Y,"^"),4,5),"-",$E($P(Y,"^"),6,7),"-",($E($P(Y,"^"),1,3)+1700)_$P(Y,"^",2)
  • Condition for execution: Y
  • Line Location: RXN1+16
Function Call: WRITE
  • Prompt: " Past Fills:"
  • Line Location: RXN1+18
Function Call: WRITE
  • Prompt: !?10,"Remaining Refills: "_($P(RX0,"^",9)-RFS),?45,"Clinic: ",$S($D(^SC(+$P(RX0,"^",5),0)):$E($P(^(0),"^"),1,30),1:"UNKNOWN")
  • Line Location: RXN1+19
Function Call: WRITE
  • Prompt: ?105,"Price: "
  • Line Location: RXN1+20
Function Call: WRITE
  • Prompt: "$",$J(COST,3,2),!
  • Line Location: RXN1+20
Function Call: WRITE
  • Prompt: "_"
  • Line Location: RXN1+26
Function Call: WRITE
  • Prompt: "VA#:"
  • Line Location: RXN1+26
Function Call: WRITE
  • Prompt: "VA#:"
  • Line Location: RXN1+26
Function Call: WRITE
  • Prompt: "_"
  • Line Location: RXN1+30
Function Call: WRITE
  • Prompt: "VA#:"
  • Line Location: RXN1+30
Function Call: WRITE
  • Prompt: "VA#:"
  • Line Location: RXN1+30
Function Call: WRITE
  • Prompt: "VA#:"
  • Line Location: RXN1+30
Function Call: WRITE
  • Prompt: !
  • Line Location: RXN2+0
Function Call: WRITE
  • Prompt: " ",$E($P(Y,"^"),4,5)_"-"_$E($P(Y,"^"),6,7)_"-"_($E($P(Y,"^"),1,3)+1700)_$P(Y,"^",2)
  • Line Location: DUP+4
Function Call: WRITE
  • Prompt: !?15
  • Line Location: BAR+1
Function Call: WRITE
  • Prompt: @PSOBAR3,X2,@PSOBAR2,$C(13)
  • Line Location: BAR+1
Function Call: WRITE
  • Prompt: !," Message: "_$G(^PSDRUG(+$P(RX0,"^",6),"PSO"))
  • Line Location: EIGHTY+2
Function Call: WRITE
  • Prompt: !?1,"Qty: "_$P(RX0,"^",7)_" for "_$P(RX0,"^",8)_" Days "_ACTS," Exp: "_$E($P(RX2,"^",6),4,5)_"-"_$E($P(RX2,"^",6),6,7)_"-"_($E($P(RX2,"^",6),1,3)+1700)
  • Line Location: EIGHTY+4
Function Call: WRITE
  • Prompt: ?48," Prov: "_$E(PHYS,1,30)
  • Line Location: EIGHTY+5
Function Call: WRITE
  • Prompt: !,?43,"COSIGNER: "_$P($G(^VA(200,+$P(^PSRX(J,3),"^",3),0)),"^")
  • Line Location: EIGHTY+5
Function Call: WRITE
  • Prompt: !?9,"Sig: ",$G(BSIG(1))
  • Line Location: EIGHTY+6
Function Call: WRITE
  • Prompt: !?14,$G(BSIG(PSREV))
  • Line Location: EIGHTY+7
Function Call: WRITE
  • Prompt: " ",$E($P(Y,"^"),4,5),"-",$E($P(Y,"^"),6,7),"-",($E($P(Y,"^"),1,3)+1700)_$P(Y,"^",2)
  • Condition for execution: Y
  • Line Location: EIGHTY+10
Function Call: WRITE
  • Prompt: " Past Fills:"
  • Line Location: EIGHTY+12
Function Call: WRITE
  • Prompt: !?10,"Remaining Refills: "_($P(RX0,"^",9)-RFS),?45,"Clinic: ",$S($D(^SC(+$P(RX0,"^",5),0)):$E($P(^(0),"^"),1,30),1:"UNKNOWN")
  • Line Location: EIGHTY+13
Function Call: WRITE
  • Prompt: !?10,"Price: "
  • Line Location: EIGHTY+14
Function Call: WRITE
  • Prompt: "$",$J(COST,3,2),!
  • Line Location: EIGHTY+14
Function Call: WRITE
  • Prompt: "_"
  • Line Location: EIGHTY+20
Function Call: WRITE
  • Prompt: "VA#:"
  • Line Location: EIGHTY+20
Function Call: WRITE
  • Prompt: "VA#:"
  • Line Location: EIGHTY+20
Function Call: WRITE
  • Prompt: "_"
  • Line Location: EIGHTY+24
Function Call: WRITE
  • Prompt: "VA#:"
  • Line Location: EIGHTY+24
Function Call: WRITE
  • Prompt: "VA#:"
  • Line Location: EIGHTY+24
Function Call: WRITE
  • Prompt: "VA#:"
  • Line Location: EIGHTY+24
Function Call: WRITE
  • Prompt: !
  • Line Location: RXN3+0
Info |  Source |  Entry Points |  Interaction Calls