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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSOREF

Package: Outpatient Pharmacy

Routine: PSOREF


Information

PSOREF ;BIR/SAB-refill data entry ;4/25/07 8:45am

Source Information

Source file <PSOREF.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Outpatient Pharmacy 8 ^PSOBUILD  ^PSOCMOPT  ACT^PSOORNE2  BLD^PSOORUT1  ^PSOREF0  ^PSOREF1  $$LMREJ^PSOREJU1  $$TITRX^PSOUTL  
VA FileMan 2 $$GET1^DIQ  ^DIR  
List Manager 1 (FULL,PAUSE)^VALM1  
Pharmacy Data Management 1 (PSOL,PSOUL)^PSSLOCK  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Outpatient Pharmacy 2 PSO REFILL  PSO SPEED REFILL  
Kernel 1 ^ORD(101  
Order Entry Results Reporting 1 ORCACT0  

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

    External References

    Name Field # of Occurrence
    $$GET1^DIQ SPEED+8, SPEED+10, ASK+10, ASK+12
    ^DIR OERR+12, SPEED+3, SPEED+5, SPEED+18, ASK+4
    ^PSOBUILD OERR+12, SPEED+24, BCREFX
    ^PSOCMOPT OERR+5, SPEED+15, ASK+17
    ACT^PSOORNE2 OERR+12
    BLD^PSOORUT1 SPEED+24, BCREFX
    ^PSOREF0 OERR+11, SPEED+22, ASK+22
    ^PSOREF1 OERR+10, SPEED+19, ASK+19
    $$LMREJ^PSOREJU1 OERR+1, SPEED+8, ASK+10
    $$TITRX^PSOUTL OERR+6, SPEED+9, ASK+11
    PSOL^PSSLOCK OERR+8, SPEED+12, ASK+14
    PSOUL^PSSLOCK EOJ+2, ULK
    FULL^VALM1 OERR+9, SPEED+6, SPEED+20, BCREF+1, ASK+8, ASK+20
    PAUSE^VALM1 SPEED+8, SPEED+11, SPEED+12, SPEED+13, SPEED+14, SPEED+15, SPEED+16, ASK+10, ASK+13, ASK+14
    , ASK+15, ASK+16, ASK+17, ASK+18

    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+8
    Function Call: WRITE
    • Prompt: $C(7),!!,"A Reprint Label has been requested!"
    • Line Location: SPEED+13
    Function Call: WRITE
    • Prompt: $C(7),!!,"A Partial has already been requested!"
    • Line Location: SPEED+14
    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+15
    Function Call: WRITE
    • Prompt: $C(7),!!,"Rx is being pulled from suspense!"
    • Line Location: SPEED+16
    Function Call: WRITE
    • Prompt: !
    • Line Location: SPEED+18
    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
    Routine Call
    • DIR
    • Line Location:
      • OERR+12
      • SPEED+3
      • SPEED+5
      • SPEED+18
      • ASK+4

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PSRX - [#52] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PS(52.41 - [#52.41] REFILL+20
    ^PS(59 - [#59] REFILL+13
    ^PSDRUG - [#50] REFILL+5, REFILL+7, REFILL+8, REFILL+9, REFILL+13, REFILL+15
    ^PSRX - [#52] SPEED+12, SPEED+15, SPEED+17, SPEED+18, ASK+14, ASK+15, ASK+16, ASK+17, ASK+18, REFILL+4
    , REFILL+5, REFILL+7, REFILL+8*, REFILL+11, REFILL+12, REFILL+16, REFILL+18, REFILL+19

    Label References

    Name Line Occurrences
    ASK ASK+26
    BCREF SPEED+4
    BCREFX ASK+4, ASK+5, ASK+6
    EOJ OERR+10, OERR+12, SPEED+21, ASK+21
    SPEEDX SPEED+6
    ULK SPEED+13, SPEED+14, SPEED+15, SPEED+16, SPEED+17, SPEED+19, SPEED+22, ASK+15, ASK+16, ASK+17
    , ASK+18, ASK+19, ASK+22

    Naked Globals

    Name Field # of Occurrence
    ^("I" REFILL+13
    ^("STA" REFILL+5
    ^(0 REFILL+5

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    ASK SPEED+6*, SPEED+19*, SPEEDX+1!, ASK+8*, ASK+19*, BCREFX!
    BCREF ASK+8*, BCREFX!
    CLOZPAT REFILL+9*, REFILL+10, REFILL+11!
    DIR OERR+12!, SPEED+2!, SPEED+3!, SPEED+5!, SPEED+6!, SPEED+8!, SPEED+11!, SPEED+18!, BCREF+1!, ASK+7!
    , ASK+10!, ASK+13!, BCREFX!
    DIR("?" SPEED+2*, ASK+1*, ASK+2*, ASK+3*
    DIR("A" OERR+12*, SPEED+2*, SPEED+5*, SPEED+18*, ASK*
    DIR("B" SPEED+2*
    DIR(0 OERR+12*, SPEED+2*, SPEED+5*, SPEED+18*, ASK*
    DIRUT OERR+12!, SPEED+2!, SPEED+3, SPEED+5!, SPEED+6!, BCREF+1!, ASK+6, ASK+7!, BCREFX!
    >> DIV REFILL+5*, REFILL+13
    DT REFILL+11, REFILL+13, REFILL+18, REFILL+19
    DTOUT OERR+12!, SPEED+3!, SPEED+5!, SPEED+6!, BCREF+1!, ASK+4, ASK+7!
    DUOUT OERR+12!, SPEED+3!, SPEED+5!, BCREF+1!, ASK+4
    LFD EOJ+1!, SPEEDX!
    LST SPEED+1!, SPEED+6*, SPEED+7, SPEEDX+1!, BCREF+1!, ASK+5, ASK+6, ASK+9, ASK+25*, BCREFX!
    MAX EOJ+1!, SPEEDX!
    MIN EOJ+1!, SPEEDX!
    NODE EOJ+1!, SPEEDX!
    >> ORD SPEED+7*, ASK+9*
    >> ORN EOJ+2, OERR+1, OERR+2, OERR+3, OERR+4, OERR+5, OERR+6, OERR+8, OERR+9, SPEED+7*
    , SPEED+8, SPEED+9, SPEED+10, SPEED+12, SPEED+13, SPEED+14, SPEED+15, SPEED+16, SPEED+17, SPEED+18
    , SPEED+19, SPEED+20, ASK+9*, ASK+10, ASK+11, ASK+12, ASK+14, ASK+15, ASK+16, ASK+17
    , ASK+18, ASK+19, ASK+20, ULK
    PLACER REFILL~, REFILL+3, REFILL+4
    PS EOJ+1!, SPEEDX!
    PSOBBC BCREFX!
    PSOBBC( ASK+24, ASK+25*
    >> PSOCNT SPEED+1, SPEED+5, ASK+23
    PSODEA REFILL+2~, REFILL+5*, REFILL+6, REFILL+10
    PSODRG REFILL+2~, REFILL+5*, REFILL+7, REFILL+8, REFILL+9, REFILL+13, REFILL+15
    PSODRUG0 REFILL+2~, REFILL+5*
    PSOERR EOJ+1!, SPEEDX!
    PSOFDR SPEED+5!, SPEEDX+1!, BCREFX!
    >> PSOFROM OERR+9*, SPEED+20*, ASK+20*
    PSOID OERR+10!
    >> PSOJ REFILL+16*
    PSOLC REFILL+2~
    PSOLIST EOJ+1!, SPEEDX!
    >> PSOLST( EOJ+2, OERR+1, OERR+2, OERR+3, OERR+4, OERR+5, OERR+6, OERR+8, OERR+9, SPEED+7
    , SPEED+8, SPEED+9, SPEED+10, SPEED+12, SPEED+13, SPEED+14, SPEED+15, SPEED+16, SPEED+17, SPEED+18
    , SPEED+19, SPEED+20, ASK+9, ASK+10, ASK+11, ASK+12, ASK+14, ASK+15, ASK+16, ASK+17
    , ASK+18, ASK+19, ASK+20, ASK+23, ULK
    PSOMSG EOJ+1!, OERR+8!, SPEED+12!, SPEED+13!, ASK+14!, ASK+15!
    PSOOELSE SPEED+6!*, SPEED+23, SPEEDX+1!, ASK+7!, ASK+8*, BCREFX!
    PSOREF EOJ+1!, SPEED+5!, SPEEDX!, SPEEDX+1!, BCREFX!
    PSOREF("DFLG" OERR+9*, OERR+10, SPEED+6, SPEED+20*, SPEED+21, ASK+19, ASK+20*, ASK+21
    PSOREF("IRXN" OERR+9*, SPEED+19*, SPEED+20*, ASK+19*, ASK+20*
    PSOREF("QFLG" OERR+9*, SPEED+6, SPEED+7, SPEED+19, ASK+9
    PSORFRM REFILL+2~, REFILL+5*, REFILL+16*, REFILL+17
    >> PSORX("BAR CO DE" , EOJ+1!, SPEEDX!
    >> PSORX("FILL D ATE" , EOJ+1!, OERR+9!, SPEED+1!, SPEEDX!, SPEEDX+2!
    >> PSORX("MAIL/WINDOW" SPEEDX+2!
    >> PSORX("METHOD OF PICK-UP" , SPEEDX+2!
    PSORXED OERR+12*!, SPEED+24*, SPEEDX+1!, BCREFX!*
    PSOXFLAG OERR+5!, OERR+7!, SPEED+15!, SPEED+16!, ASK+17!, ASK+18!
    >> PTRX OERR+5*, SPEED+15*, ASK+17*
    REF EOJ+1!, SPEEDX!
    RF EOJ+1!, SPEEDX!
    RX ASK+23*, ASK+24, ASK+25, BCREFX!
    >> RX0 REFILL+5*, REFILL+16
    >> RXFL( OERR+5, SPEED+15, ASK+17
    RXN EOJ+1!, OERR+9~, SPEED+20~, SPEEDX!, ASK+20~, REFILL+2~, REFILL+4*, REFILL+5, REFILL+7, REFILL+8
    , REFILL+11, REFILL+12, REFILL+16, REFILL+18, REFILL+19, REFILL+20
    RXO EOJ+1!, SPEEDX!
    RXP EOJ+1!, SPEEDX!
    >> RXPR( OERR+3, SPEED+14, ASK+16
    >> RXRP( OERR+2, SPEED+13, ASK+15
    >> RXRS( OERR+4, SPEED+16, ASK+18
    RXS EOJ+1!, SPEEDX!
    SD EOJ+1!, SPEEDX!
    SPEED SPEED+6*, SPEEDX+1!, ASK+8*, BCREFX!
    ST REFILL+2~, REFILL+5*, REFILL+14
    VAERR EOJ+1!, SPEEDX!
    >> VALMBCK OERR+1, OERR+2*, OERR+3*, OERR+4*, OERR+5*, OERR+6*, OERR+8*, OERR+10*, OERR+12*, SPEED+1*
    , SPEED+3*, SPEED+5*, SPEED+21*, SPEED+23*, SPEEDX+1*, ASK+4*, ASK+5*, ASK+6*, ASK+21*, BCREFX+1*
    VALMCNT SPEED+1~
    >> VALMSG OERR+1, OERR+2*, OERR+3*, OERR+4*, OERR+5*, OERR+6*, OERR+8*, SPEED+1*
    >> X ASK+5, ASK+23
    >> Y SPEED+4, SPEED+6
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All