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

Package: Outpatient Pharmacy

Routine: PSODRDU2


Information

PSODRDU2 ;BHAM ISC/SAB - dup drug/class display for outpatient orders ;08/23/17 19:54

Source Information

Source file <PSODRDU2.m>

Entry Points

Name Comments DBIA/ICR reference
EN(PSODFN,ORN,LIST) ;psodfn=patient's ifn, orn=ordertype;order#;drugtype;counter
  • ICR #2189
    • Status: Active
    • Usage: Private
    RX ;Rx info
    PND ;op pending orders
    NVA ;non-va meds
    RDI ;RDI orders
    PRSTAT(DA) ;Displays the prescription's status

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"Local Rx #"_$P(DUPRX0,"^")_" ("_ST_") for "_$P(^PSDRUG($P(DUPRX0,"^",6),0),"^")
    • Line Location: RX+7
    Function Call: WRITE
    • Prompt: !?20,$G(BSIG(PSREV))
    • Line Location: RX+10
    Function Call: WRITE
    • Prompt: !
    • Line Location: RX+11
    Function Call: WRITE
    • Prompt: FSIG(I),!?5
    • Line Location: PND+6
    Function Call: WRITE
    • Prompt: !,"Dosage: "_$P(DUPRX0,"^",3),?25,"Schedule: "_$P(DUPRX0,"^",5)
    • Line Location: NVA+4
    Function Call: WRITE
    • Prompt: !
    • Line Location: NVA+5
    Function Call: WRITE
    • Prompt: !,"LOCATION: "_$P(RXREC,"^")
    • Line Location: RDI+3
    Function Call: WRITE
    • Prompt: !,"Remote Rx #"_$P(RXREC,"^",5)_" ("_$P(RXREC,"^",4)_") for "_$P(RXREC,"^",3)
    • Line Location: RDI+4
    Function Call: WRITE
    • Prompt: !,"SIG: "
    • Line Location: RDI+5
    Function Call: WRITE
    • Prompt: ?5
    • Line Location: RDI+7
    Function Call: WRITE
    • Prompt: "Last Filled On: "_$P(RXREC,"^",6),!
    • Line Location: RDI+8
    Function Call: WRITE
    • Prompt: "Returned to stock on "_$$FMTE^XLFDT(PSORTS,2)
    • Line Location: PRSTAT+18
    Info |  Source |  Entry Points |  Interaction Calls