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

Package: Outpatient Pharmacy

Routine: PSOREF


Information

PSOREF ;BIR/SAB - refill data entry ; Feb 14, 2023@10:12:23

Source Information

Source file <PSOREF.m>

Entry Points

Name Comments DBIA/ICR reference
EOJ ;
OERR ;single refil
SPEED ;speed refill
SPEEDX
BCREF ;barcode refills
ASK
BCREFX
REFILL(PLACER) ;passes flag to CPRS for front door refill request
  • ICR #2399
    • Status: Active
    • Usage: Private
    ULK
    REFNO(DA) ;

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: $C(7)
    • Line Location: OERR+2
    Function Call: WRITE
    • Prompt: $C(7)
    • Line Location: OERR+3
    Function Call: WRITE
    • Prompt: $C(7)
    • Line Location: OERR+4
    Function Call: WRITE
    • Prompt: $C(7)
    • Line Location: OERR+6
    Function Call: WRITE
    • Prompt: !
    • Line Location: OERR+12
    Function Call: WRITE
    • Prompt: $C(7),!!,"Rx "_$$GET1^DIQ(52,$P(PSOLST(ORN),"^",2),.01)_" has OPEN/UNRESOLVED 3rd Party Payer Reject!"
    • Line Location: SPEED+9
    Function Call: WRITE
    • Prompt: $C(7),!!,"A Reprint Label has been requested!"
    • Line Location: SPEED+14
    Function Call: WRITE
    • Prompt: $C(7),!!,"A Partial has already been requested!"
    • Line Location: SPEED+15
    Function Call: WRITE
    • Prompt: $C(7),!!,"A CMOP fill has already been requested for Rx "_$P($G(^PSRX($P(PSOLST(ORN),"^",2),0)),"^")
    • Line Location: SPEED+16
    Function Call: WRITE
    • Prompt: $C(7),!!,"Rx is being pulled from suspense!"
    • Line Location: SPEED+17
    Function Call: WRITE
    • Prompt: !
    • Line Location: SPEED+19
    Function Call: WRITE
    • Prompt: $C(7),!!,"Rx "_$$GET1^DIQ(52,$P(PSOLST(ORN),"^",2),.01)_" has OPEN/UNRESOLVED 3rd Party Payer Reject!"
    • Line Location: ASK+10
    Function Call: WRITE
    • Prompt: $C(7),!!,"A Reprint Label has been requested for Rx "_$P(^PSRX($P(PSOLST(ORN),"^",2),0),"^"),!
    • Line Location: ASK+15
    Function Call: WRITE
    • Prompt: $C(7),!!,"A Partial has already been requested for Rx "_$P(^PSRX($P(PSOLST(ORN),"^",2),0),"^"),!
    • Line Location: ASK+16
    Function Call: WRITE
    • Prompt: $C(7),!!,"A CMOP fill has already been requested for Rx "_$P($G(^PSRX($P(PSOLST(ORN),"^",2),0)),"^")
    • Line Location: ASK+17
    Function Call: WRITE
    • Prompt: $C(7),!!,"Rx "_$P(^PSRX($P(PSOLST(ORN),"^",2),0),"^")_" is being pulled from suspense!"
    • Line Location: ASK+18

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PSRX - [#52] GET1^DIQ
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call