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

Package: Outpatient Pharmacy

Routine: PSODDPR5


Information

PSODDPR5 ;BIR/SAB - displays OP/rdi/pending/nva orders ;08/23/17 19:46

Source Information

Source file <PSODDPR5.m>

Entry Points

Name Comments DBIA/ICR reference
EXC ;displays order check exceptions
  • ICR #5760
    • Status: Pending
    • Usage: Controlled Subscription
    NOCAN ;shows duplicate therapeutic when cancel duplicate class parameter is et to 'no'
    DUPCL ;
    DUPCP
    REMOTE ;backdoor RDI
    NSRT ;sort of drug interactions ; called by psoddpr2
    S2(SEV,TYP,PSOVAG,CNT) ;
    NSRT1 ;sort out dc'd drug therapies local and remote rxs
    RVAGEN ;va generic for remote drugs
    DVAGEN ;va generic for non-va/pending meds
    INT ;
    DGCK ;CK - Drug check option at patient profile
    DGCKNP
    DGCKQ
    GCN(PSOIENID) ;Return 0 for not matched, 1 for matched with no GCNSEQNO, 1^1 for matched with a GCNSEQNO
    PKGFLG(PKF1) ;Return 0 for not in range of acceptable package flags, 1 for within range
    SELECT ;
    SELECTX
    CKMSG ;

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,^UTILITY($J,"W",1,ZX,0)
    • Line Location: EXC+12
    Function Call: WRITE
    • Prompt: !
    • Line Location: EXC+13
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: EXC+13
    Function Call: WRITE
    • Prompt: !,^UTILITY($J,"W",1,ZX,0)
    • Line Location: EXC+18
    Function Call: WRITE
    • Prompt: !!
    • Line Location: EXC+21
    Function Call: WRITE
    • Prompt: !
    • Line Location: EXC+21
    Function Call: WRITE
    • Prompt: !
    • Line Location: EXC+21
    Function Call: WRITE
    • Prompt: !,PSONULN,!,"*** THERAPEUTIC DUPLICATION(S) *** "_PSODRUG("NAME")_" with",!
    • Line Location: NOCAN+11
    Function Call: WRITE
    • Prompt: $P(^PS(50.7,$P(DUPRX0,"^",8),0),"^")_" "_$P(^PS(50.606,$P(^(0),"^",2),0),"^")
    • Line Location: DUPCP+12
    Function Call: WRITE
    • Prompt: $P(^PSDRUG($P(DUPRX0,"^",9),0),"^")
    • Line Location: DUPCP+13
    Function Call: WRITE
    • Prompt: !?2,"Remote Rx #"_RDIRX_" ("_$P(RXDAT,"^",4)_") for "_$P(RXDAT,"^",3)
    • Line Location: DUPCP+17
    Function Call: WRITE
    • Prompt: $P(^PS(50.7,$P(DUPRX0,"^"),0),"^")_" "_$P(^PS(50.606,$P(^(0),"^",2),0),"^")
    • Line Location: DUPCP+23
    Function Call: WRITE
    • Prompt: $P(^PSDRUG($P(DUPRX0,"^",2),0),"^")
    • Line Location: DUPCP+24
    Function Call: WRITE
    • Prompt: !
    • Line Location: DGCK+6
    Function Call: WRITE
    • Prompt: @IOF,!
    • Line Location: DGCK+6
    Function Call: WRITE
    • Prompt: !
    • Line Location: DGCK+8
    Function Call: READ
    • Variable: X
    • Timeout: $S($D(DTIME):DTIME,1:300)
    • Line Location: SELECT+4
    Function Call: WRITE
    • Prompt: !!,"Answer with DRUG NUMBER, or GENERIC NAME, or VA PRODUCT NAME, or",!,"NATIONAL DRUG CLASS, or SYNONYM"
    • Line Location: SELECT+12
    Function Call: WRITE
    • Prompt: !!,"Duplicate Drug in Patient profile, please select a different drug:",!
    • Line Location: SELECT+24
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: SELECT+25
    Function Call: WRITE
    • Prompt: !!,"Not enough active profile drugs to perform drug check",!
    • Line Location: CKMSG+1
    Info |  Source |  Entry Points |  Interaction Calls