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

Package: Outpatient Pharmacy

Routine: PSODRDU2


Information

PSODRDU2 ;BHAM ISC/SAB - dup drug/class display for outpatient orders ;9/23/97 8:40am

Source Information

Source file <PSODRDU2.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Outpatient Pharmacy 4 STAT^PSOFUNC  EN^PSOHLUP  FSIG^PSOUTLA  EN2^PSOUTLA1  
Kernel 1 $$FMTE^XLFDT  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Inpatient Medications 1 PSJLMUT1  

Entry Points

Name Comments DBIA/ICR reference
PEN
INST ;displays instruction and/or comments
EN(DFN,RXNUM) ;dfn=patient's ifn, rxnum=internal order # for rx, pending or non-va med
  • ICR #2189
    • Status: Active
    • Usage: Private
    NVA ;displays non-va meds

    External References

    Name Field # of Occurrence
    ^DIR NVA+11
    STAT^PSOFUNC EN+9
    EN^PSOHLUP EN+1
    FSIG^PSOUTLA EN+10, PEN+6
    EN2^PSOUTLA1 EN+11
    $$FMTE^XLFDT NVA+5, NVA+8, NVA+9

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,PSONULN
    • Line Location: EN+6
    Function Call: WRITE
    • Prompt: !,$J("Rx #: ",24)_$P(RX0,"^"),?39,DNM
    • Line Location: EN+8
    Function Call: WRITE
    • Prompt: !,$J("Status: ",24)
    • Line Location: EN+9
    Function Call: WRITE
    • Prompt: ST
    • Line Location: EN+9
    Function Call: WRITE
    • Prompt: ST
    • Line Location: EN+9
    Function Call: WRITE
    • Prompt: !,$J("SIG: ",24)
    • Line Location: EN+12
    Function Call: WRITE
    • Prompt: $G(BSIG(1))
    • Line Location: EN+12
    Function Call: WRITE
    • Prompt: !?24,$G(BSIG(PSREV))
    • Line Location: EN+13
    Function Call: WRITE
    • Prompt: !,$J("QTY: ",24)_$P(DUPRX0,"^",7),?40,$J("# of refills: ",24)_RFLS
    • Line Location: EN+15
    Function Call: WRITE
    • Prompt: !,$J("Provider: ",24)_PHYS,?40,$J("Refills remaining: ",24),RFLS-$S($D(^PSRX(RXREC,1,0)):$P(^(0),"^",4),1:0)
    • Line Location: EN+16
    Function Call: WRITE
    • Prompt: !?40,$J("Last filled on: ",24)_$E(LSTFL,4,5)_"/"_$E(LSTFL,6,7)_"/"_$E(LSTFL,2,3),!?40,$J("Days Supply: ",24)_$P(DUPRX0,"^",8)
    • Line Location: EN+17
    Function Call: WRITE
    • Prompt: !,PSONULN,!
    • Line Location: EN+18
    Function Call: WRITE
    • Prompt: !,PSONULN,!
    • Line Location: PEN+1
    Function Call: WRITE
    • Prompt: !,"Pending Order: "_$P(DUPRX0,"^"),!,"Orderable Item: "_$P(^PS(50.7,$P(DUPRX0,"^",8),0),"^")_" "_$P(^PS(50.606,$P(^(0),"^",2),0),"^")
    • Line Location: PEN+3
    Function Call: WRITE
    • Prompt: !,"Drug: "_$S($P(DUPRX0,"^",9):$P(^PSDRUG($P(DUPRX0,"^",9),0),"^"),1:"No Dispense Drug Selected")
    • Line Location: PEN+4
    Function Call: WRITE
    • Prompt: !,"Provider Comments: "
    • Line Location: PEN+5
    Function Call: WRITE
    • Prompt: FSIG(I),!?5
    • Line Location: PEN+7
    Function Call: WRITE
    • Prompt: !,"Routing: "_$S($P(DUPRX0,"^",17)="W":"WINDOW",1:"MAIL"),?30,"Quantity: "_$P(DUPRX0,"^",10),!,"# of Refills: "_$P(DUPRX0,"^",11)
    • Line Location: PEN+8
    Function Call: WRITE
    • Prompt: ?30,"Patient Status: SC",!,"Patient Location: "_$S($P(DUPRX0,"^",13):$P($G(^SC($P(DUPRX0,"^",13),0)),"^"),1:""),!,"Med Route: "_$P($G(^PS(51.2,+$P(DUPRX0,"^",15),0)),"^"),?30,"Provider: "_$P(^VA(200,$P(DUPRX0,"^",5),0),"^")
    • Line Location: PEN+9
    Function Call: WRITE
    • Prompt: !,"Issue Date: "_Y
    • Line Location: PEN+10
    Function Call: WRITE
    • Prompt: !,"Instructions: "
    • Line Location: PEN+11
    Function Call: WRITE
    • Prompt: !,PSONULN,!
    • Line Location: PEN+12
    Function Call: WRITE
    • Prompt: @$S(TY=3:"!?14",1:"!?19")
    • Condition for execution: $X+$L($P(MIG," ",SG)_" ")>IOM
    • Line Location: INST+2
    Function Call: WRITE
    • Prompt: $P(MIG," ",SG)_" "
    • Line Location: INST+2
    Function Call: WRITE
    • Prompt: !,PSONULN
    • Line Location: NVA+2
    Function Call: WRITE
    • Prompt: !,"Non-VA Med: "_$P(^PS(50.7,$P(DUPRX0,"^"),0),"^")_" "_$P(^PS(50.606,$P(^(0),"^",2),0),"^")
    • Line Location: NVA+3
    Function Call: WRITE
    • Prompt: !,"Drug: "_$S($P(DUPRX0,"^",2):$P(^PSDRUG($P(DUPRX0,"^",2),0),"^"),1:"No Dispense Drug Selected")
    • Line Location: NVA+4
    Function Call: WRITE
    • Prompt: !,"Status: "_$S($P(DUPRX0,"^",7):"Discontinued ("_$$FMTE^XLFDT($P($P(DUPRX0,"^",7),"."))_")",1:"Active")
    • Line Location: NVA+5
    Function Call: WRITE
    • Prompt: !,"Dosage: "_$P(DUPRX0,"^",3)
    • Line Location: NVA+6
    Function Call: WRITE
    • Prompt: !,"Schedule: "_$P(DUPRX0,"^",5),!,"Route: "_$P(DUPRX0,"^",4)
    • Line Location: NVA+7
    Function Call: WRITE
    • Prompt: !,"Start Date: "_$$FMTE^XLFDT($P(DUPRX0,"^",9)),?40,"CPRS Oder #: "_$P(DUPRX0,"^",8)
    • Line Location: NVA+8
    Function Call: WRITE
    • Prompt: !,"Documented By: "_$P(^VA(200,$P(DUPRX0,"^",11),0),"^")_" on "_$$FMTE^XLFDT($P(DUPRX0,"^",10))
    • Line Location: NVA+9
    Function Call: WRITE
    • Prompt: !?5,OCK(II)
    • Line Location: NVA+16
    Function Call: WRITE
    • Prompt: OCK(II)
    • Line Location: NVA+22
    Function Call: WRITE
    • Prompt: !?5
    • Line Location: NVA+22
    Function Call: WRITE
    • Prompt: !?5,OCK(II)
    • Line Location: NVA+26
    Function Call: WRITE
    • Prompt: !,PSONULN,!
    • Line Location: NVA+27
    Routine Call
    • DIR
    • Line Location:
      • NVA+11

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD("DD" PEN+10
    ^PS(50.606 - [#50.606] PEN+3, NVA+3
    ^PS(50.7 - [#50.7] PEN+3, NVA+3
    ^PS(51.2 - [#51.2] PEN+9
    ^PS(52.41 - [#52.41] PEN, PEN+2, INST+1
    ^PS(55 - [#55] EN+1, NVA+1, NVA+2, NVA+11, NVA+12, NVA+19, NVA+23
    ^PSDRUG - [#50] EN+5, PEN+4, NVA+4
    ^PSRX - [#52] EN+4, EN+5, EN+7, EN+10, EN+11, EN+16, EN+17
    ^SC - [#44] PEN+9
    ^VA(200 - [#200] EN+15, PEN+9, NVA+9, NVA+18

    Label References

    Name Line Occurrences
    INST PEN+5, PEN+11
    NVA EN+3
    PEN EN+3

    Naked Globals

    Name Field # of Occurrence
    ^("STA" EN+5
    ^(0 EN+15, EN+16, PEN+3, NVA+3, NVA+12
    ^(2 EN+5
    ^(3 EN+5

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    BSIG EN+10!, EN+14!
    BSIG( EN+10*, EN+13
    BSIG(1 EN+12, EN+13
    DFN EN~, EN+1, NVA+1, NVA+2, NVA+11, NVA+12, NVA+19, NVA+23
    DIR NVA+11!
    DIR("A" NVA+11*
    DIR(0 NVA+11*
    DNM EN+5*, EN+8, EN+19!, PEN+13!
    DSC NVA+26!
    DSC( NVA+23*, NVA+24, NVA+25
    DUPRX0 EN+7*, EN+15, EN+17, EN+19!, PEN+2*, PEN+3, PEN+4, PEN+8, PEN+9, PEN+10
    , PEN+13!, NVA+2*, NVA+3, NVA+4, NVA+5, NVA+6, NVA+7, NVA+8, NVA+9
    FL EN+3*, EN+19!, PEN+13!
    FSIG EN+10!, EN+11!, EN+19!, PEN+13!
    FSIG( EN+10, PEN+7
    I EN+19!, PEN+7*, PEN+13!, NVA+11*, NVA+12, NVA+13, NVA+19
    IEN NVA+14*, NVA+15*, NVA+17!, NVA+20*, NVA+21*, NVA+22!, NVA+24*, NVA+25*, NVA+26!
    IFN EN+3!*, EN+4, EN+5, EN+6, EN+19!, PEN, PEN+1, PEN+13!, INST+1, NVA+1
    , NVA+2, NVA+11, NVA+12, NVA+19, NVA+23
    II NVA+16*, NVA+17!, NVA+20*, NVA+21, NVA+22*, NVA+24*, NVA+25, NVA+26*
    INST EN+3!, INST+1*, INST+3!
    IOM PEN+6, INST+2, NVA+10
    ISSD EN+7*, EN+9, EN+19!, PEN+2*, PEN+13!
    J EN+9*, EN+19!, PEN+13!
    LEN NVA+14!*, NVA+17!
    LSTFD EN+5*, EN+19!, PEN+13!
    LSTFL EN+17*, EN+19!, PEN+13!
    MIG INST+1*, INST+2, INST+3!
    OCK NVA+14!, NVA+17!, NVA+19!, NVA+23!
    OCK( NVA+15*, NVA+16, NVA+21*, NVA+22, NVA+25*, NVA+26
    ORD NVA+12*, NVA+14, NVA+15, NVA+17!
    ORP NVA+12*, NVA+18, NVA+19!
    PHYS EN+15*, EN+16, EN+19!, PEN+13!
    PSONULN EN+2*, EN+6, EN+18, EN+19!, PEN+1, PEN+12, PEN+13!, NVA+2, NVA+27
    PSREV EN+10*, EN+11!, EN+13*, EN+14!
    REA NVA+19!, NVA+22!
    REA( NVA+19*, NVA+20, NVA+21
    RFLS EN+7*, EN+15, EN+16, EN+19!, PEN+2*, PEN+13!
    RMLEN NVA+10*, NVA+14, NVA+15, NVA+21, NVA+25, NVA+28!
    RX0 EN+5*, EN+7*, EN+8, EN+9!
    RX2 EN+5*, EN+7*, EN+9!
    RX3 EN+5*, EN+19!, PEN+13!
    RXNUM EN~, EN+1, EN+3
    RXREC EN+6*, EN+7, EN+9, EN+10, EN+11, EN+16, EN+17, EN+19!, PEN+1*, PEN+2
    , PEN+6, PEN+13!
    SD EN+3!
    SG INST+2*, INST+3!, NVA+15*, NVA+17!, NVA+21*, NVA+22!, NVA+25*, NVA+26!
    >> SS NVA+19*, NVA+23*
    ST EN+9, EN+19!, PEN+13!
    STA EN+5*, EN+19!, PEN+13!
    TRM EN+5*, EN+19!, PEN+13!
    TY PEN+5*, PEN+11*, INST+1, INST+2, INST+3!
    X EN+19!, PEN+13!
    Y EN+19!, PEN+10*, PEN+13!
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All