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

Package: Outpatient Pharmacy

Routine: PSOBBC


Information

PSOBBC ;IHS/DSD/JCM - BATCH BARCODE DRIVER ;Feb 03, 2022@11:08

Source Information

Source file <PSOBBC.m>

Call Graph

Call Graph Total: 32

Package Total Call Graph
Outpatient Pharmacy 21 ^PSOBING1  ^PSOBUILD  H^PSOCPTRH  DEV^PSOCPTRI  ICN^PSODPT  EN^PSOHLSN1  EN^PSOHLUP  ^PSOLSET  
NOORE^PSONEW  LOCK^PSOORCPY  $$CHKPRKORIG^PSOPRKA  (COPAY,DEAD,GET)^PSOPTPST  EN^PSOREF0  EN^PSOREF2  EN^PSORENW0  PROFILE^PSORX1  
Q^PSORXL  PDIR^PSOTPCAN  $$CHKRXPRV^PSOUTIL  $$TITRX^PSOUTL  CLEAN^PSOVER1  
VA FileMan 4 NOW^%DTC  $$GET1^DIQ  EN^DIQ1  ^DIR  
Registration 2 PID^VADPT  $$SITE^VASITE  
Integrated Billing 1 ($$CHPUS,$$TRI)^IBACUS  
Kernel 1 $$DT^XLFDT  
List Manager 1 PAUSE^VALM1  
Order Entry Results Reporting 1 (LK,ULK)^ORX2  
Pharmacy Data Management 1 ($$L,PSOL,PSOUL,UL)^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: 7

Package Total Caller Graph
Outpatient Pharmacy 5 PSO BATCH BARCODE  PSOPRI  PSOR52  PSORN52  PSOVEXRX  
Kernel 1 ^DIC(19  
Vendor - Audiofax Inc 1 VEXRX  

Entry Points

Name Comments DBIA/ICR reference
START ;
END
INIT ;
FROM ;
FROMX
ASK ;
  • ICR #1030
    • Status: Active
    • Usage: Controlled Subscription
    ASKX
    SUSP ;
    SUSPX
    INPT ;
    INPTX
    CNH ;
    CNHX
    EARLY ;
    EARLYX
    SET ;
    DIR ;
    PROCESS ;
    PROCESSX
  • ICR #1030
    • Status: Active
    • Usage: Controlled Subscription
    GETRXM ;
    GETRXMX
    PT ;
  • ICR #1030
    • Status: Active
    • Usage: Controlled Subscription
    PTC
  • ICR #1030
    • Status: Active
    • Usage: Controlled Subscription
    PTX
    REFILL ;
    ; Titration Rx refill request check from AudioFax/Internet
  • ICR #1030
    • Status: Active
    • Usage: Controlled Subscription
    REFILLX ;
    NEW ;
    ; Titration Rx Renewal request check from AudioFax
    EOJ ;
    TRI ;Check for Tricare Rx's
    ULK ;
    ULP
    ULRX ;
    SETX ;
    PID ;

    External References

    Name Field # of Occurrence
    NOW^%DTC PROCESS+1
    $$GET1^DIQ INPT+4, CNH+4, GETRXM+15, REFILL+10, NEW+5, NEW+10
    EN^DIQ1 INIT+4
    ^DIR DIR+1
    $$CHPUS^IBACUS TRI+13
    $$TRI^IBACUS TRI+2
    LK^ORX2 GETRXM+24
    ULK^ORX2 ULK+3
    ^PSOBING1 PROCESS+15
    ^PSOBUILD PROCESS+13, PT+9
    H^PSOCPTRH TRI+17
    DEV^PSOCPTRI TRI+6
    ICN^PSODPT PT+6
    EN^PSOHLSN1 PROCESS+3, PROCESS+4
    EN^PSOHLUP GETRXM+16, PT+8, PTC+1
    ^PSOLSET START+2
    NOORE^PSONEW ASK+9
    LOCK^PSOORCPY GETRXM+23
    $$CHKPRKORIG^PSOPRKA REFILL+6
    COPAY^PSOPTPST PTC+9
    DEAD^PSOPTPST PTC+3
    GET^PSOPTPST PTC+2
    EN^PSOREF0 REFILL+13
    EN^PSOREF2 ASK+3
    EN^PSORENW0 NEW+18
    PROFILE^PSORX1 PROCESS+11
    Q^PSORXL PROCESSX, PT+3
    PDIR^PSOTPCAN PTC+4
    $$CHKRXPRV^PSOUTIL GETRXM+13
    $$TITRX^PSOUTL GETRXM+14, REFILL+9, NEW+4
    CLEAN^PSOVER1 PROCESS+6, EOJ+3
    $$L^PSSLOCK GETRXM+23
    PSOL^PSSLOCK GETRXM+19
    PSOUL^PSSLOCK ULRX+3
    UL^PSSLOCK GETRXM+24, ULP+2
    PID^VADPT PID+3
    PAUSE^VALM1 REFILL+11, NEW+7
    $$SITE^VASITE INIT+3
    $$DT^XLFDT TRI+10

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"Please answer the following for this session of prescriptions:",!
    • Line Location: ASK+2
    Function Call: WRITE
    • Prompt: !?7,$C(7),$C(7),$C(7),"Not From this Institution"
    • Line Location: GETRXM+10
    Function Call: WRITE
    • Prompt: !,$C(7),"Rx data is not on file !",!
    • Line Location: GETRXM+12
    Function Call: WRITE
    • Prompt: $C(7),!!,$P(PRVCHK,"^",2),!
    • Line Location: GETRXM+13
    Function Call: WRITE
    • Prompt: $C(7),!!,"Rx# "_$$GET1^DIQ(52,PSOBBC("IRXN"),.01)_" is marked as 'Titration Rx' and cannot be "_$S(PSOBBC1("FROM")="REFILL":"refilled.",1:"renewed."),!
    • Line Location: GETRXM+15
    Function Call: WRITE
    • Prompt: !,$C(7),"Rx has already been deleted."
    • Line Location: GETRXM+17
    Function Call: WRITE
    • Prompt: !,$C(7),"Rx has already been entered"
    • Line Location: GETRXM+18
    Function Call: WRITE
    • Prompt: $C(7),!!?5,$P(PSOMSG,"^",2),!
    • Line Location: GETRXM+20
    Function Call: WRITE
    • Prompt: !,$C(7),"New Patient, please pause",!
    • Line Location: PT+2
    Function Call: WRITE
    • Prompt: !!,$C(7),"Rx# "_$$GET1^DIQ(52,PSORXIEN,.01)_" is marked as 'Titration Rx' and cannot be refilled.",!
    • Line Location: REFILL+10
    Function Call: WRITE
    • Prompt: !!,$C(7),"Rx# "_$$GET1^DIQ(52,PSORXIEN,.01)_" Drug: "_$$GET1^DIQ(52,PSORXIEN,6),!
    • Line Location: NEW+5
    Function Call: WRITE
    • Prompt: !,"'Titration Rx' cannot be renewed."
    • Line Location: NEW+6
    Function Call: WRITE
    • Prompt: !!,?9,$G(PSORX("NAME"))_" ",$G(VA("BID"))
    • Line Location: PID+4
    Routine Call
    • DIR
    • Line Location:
      • DIR+1

    FileMan Files Accessed Via FileMan Db Call

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

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZOSF("TEST" TRI+1
    ^DPT - [#2] PT+5
    ^IBE(350.1 - [#350.1] START+4
    ^PS(52.91 - [#52.91] PTC+4
    ^PS(53 - [#53] PT+10
    ^PS(55 - [#55] GETRXM+16, PT+8, PT+10, PTC+1
    ^PS(59 - [#59] START+4
    ^PSRX - [#52] PROCESS+4, PROCESS+8, GETRXM+12, GETRXM+16, GETRXM+17, GETRXM+21, GETRXM+22, GETRXM+23, GETRXM+24, GETRXM+25
    , PT+5, PTC, REFILL+5, REFILL+9, NEW+4, TRI+11, TRI+12
    ^TMP("PSORXDC" PROCESS+6!, EOJ+3!
    ^TMP("PSORXN" PROCESS+2, PROCESS+3, PROCESS+5!
    ^XUSEC("PSDRPH" NEW+11
    ^XUSEC("PSORPH" START+3, NEW+11, NEW+13

    Label References

    Name Line Occurrences
    @( PROCESS+15
    ASK START+8
    ASKX ASK+3, ASK+4, ASK+5, ASK+6, ASK+7
    CNH ASK+6
    CNHX CNH+6
    DIR FROM+3, SUSP+4, INPT+6, CNH+6, EARLY+4, GETRXM+9
    EARLY ASK+7
    EARLYX EARLY+4
    END START+4, START+7, START+8
    EOJ START+2, END
    FROM START+7
    FROMX FROM+3
    GETRXM PROCESS+7, GETRXM+10, GETRXM+12, GETRXM+13, GETRXM+14, GETRXM+17, GETRXM+18, GETRXM+19, GETRXM+22
    GETRXMX GETRXM+9
    INIT START+2
    INPT ASK+5
    INPTX INPT+6
    PID PTC+6, PTC+8
    PROCESS START+9, PROCESS+8, PROCESS+12, PROCESS+15
    PROCESSX PROCESS+7
    PT PROCESS+10
    PTC PROCESS+12
    PTX PTC+3, PTC+4, PTC+6, PTC+8
    SET ASK+8
    SETX PROCESSX, PT+3
    SUSP ASK+4
    SUSPX SUSP+4
    TRI PROCESSX, PT+3
    ULK PROCESS+7, PROCESS+9
    ULP PROCESS+7, PROCESS+9
    ULRX PROCESS+7, PROCESS+15

    Naked Globals

    Name Field # of Occurrence
    ^(0 PTC+4

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % PROCESS+1
    ACNT EOJ+1!
    ACT TRI+17~
    ADFN EOJ+1!
    BBRX ASK+1!, PROCESS+15!, GETRXM+11*
    BBRX(1 PROCESS+15*
    BINGCRT ASK+1!, SUSP+5*, PROCESS+15
    BINGRTE ASK+1!, SET+1*, PROCESS+15
    CLS EOJ+1!
    CMOP EOJ+1!
    CNT EOJ+1!
    DA INIT+3*, INIT+5!, TRI+5~, TRI+17*
    >> DFN PT+5*, PT+6, PTC*, PID+1*, PID+2
    DIC INIT+3!, INIT+4*, INIT+5!
    DIQ INIT+3!, INIT+4*, INIT+5!
    DIQ(0 INIT+4*
    DIR FROMX!, SUSPX!, INPT+1~, INPTX!, CNH+1~, CNHX!, EARLYX!, GETRXM+2!, GETRXMX!
    DIR("?" GETRXM+5*, GETRXM+6*, GETRXM+7*, GETRXM+8*
    DIR("A" FROM+2*, SUSP+2*, INPT+3*, CNH+3*, EARLY+2*, GETRXM+4*
    DIR("B" FROM+2*, SUSP+3*, INPT+5*, CNH+5*, EARLY+3*
    DIR(0 FROM+1*, SUSP+1*, INPT+2*, CNH+2*, EARLY+1*, GETRXM+3*
    DIROUT DIR+3!
    DIRUT DIR+2, DIR+3!
    >> DISGROUP PROCESS+15
    DR INIT+3!, INIT+4*
    DT PTC+4, TRI+10*, TRI+13
    DTOUT DIR+3!
    DUOUT DIR+3!
    DUZ START+3, NEW+11, NEW+13, TRI+11
    FDA TRI+17~
    FDR EOJ+1!
    >> FLD( TRI+16*
    >> FLD(99 TRI+16*
    HDR EOJ+1!
    I TRI+17~
    IR TRI+17~
    JJ EOJ+1!
    NEWPPL TRI+5~, TRI+7*, TRI+8, TRI+9, TRI+18
    NOW TRI+17~
    POERR EOJ+1!
    PPL INIT+1!, PROCESS+15, PROCESSX!, PT+3!, TRI+3, TRI+7*, TRI+18*, TRI+20*, TRI+21*
    PRVCHK GETRXM+1~, GETRXM+13*
    PSCAN EOJ+1!
    PSDA TRI+17~
    PSOACT NEW+2~, NEW+11*, NEW+13*
    PSOBARID START+4*!, EOJ+1!
    PSOBBC ASK+3, ASK+9, REFILL+13, NEW+18, EOJ+1!
    PSOBBC("CLERK CODE" , SET+3, NEW+24*
    PSOBBC("CNHOK" CNH+7*, PTC+8, NEW+23*
    PSOBBC("DFLG" ASK+3, ASK+9, PROCESS+1*, PROCESS+8, PROCESS+10, PROCESS+12, PT+1*, PTC+2*, PTC+3*, PTC+4*
    , PTC+6*, PTC+8*, PTX
    PSOBBC("DONE" PROCESS+14*, PROCESS+15, GETRXM+18
    PSOBBC("EAOK" EARLY+5*, NEW+20*
    PSOBBC("EXPIR ATION DATE" , SET+4, NEW+25*
    PSOBBC("FILL DATE" , SET+2
    PSOBBC("INOK" INPT+7*, PTC+6, NEW+22*
    PSOBBC("IRXN" PROCESS+8, PROCESS+14, GETRXM+2!, GETRXM+11*, GETRXM+12, GETRXM+13, GETRXM+14, GETRXM+15, GETRXM+16, GETRXM+17
    , GETRXM+18, GETRXM+19, GETRXM+21, GETRXM+22, GETRXM+23, GETRXM+24, GETRXM+25, PT+5, PTC, PTX
    , REFILL+3, NEW+3, NEW+16
    PSOBBC("MAIL/WINDOW" SET+1, NEW+19*
    PSOBBC("NOO" ASK+9, NEW+18*
    PSOBBC("OIRXN" GETRXM+11*, NEW+16*
    PSOBBC("QFLG" START+6*, START+7, START+8, INIT+1*, ASK+3*, ASK+4, ASK+5, ASK+6, ASK+7, ASK+9*
    , SUSP+4, INPT+6, CNH+6, EARLY+4, DIR+2*, PROCESS+7, GETRXM+9
    PSOBBC("QS" SUSP+5*, NEW+21*
    PSOBBC1 EOJ+1!
    PSOBBC1("CLER K CODE" , SET+3*, NEW+24
    PSOBBC1("CNHOK" CNH+7*, NEW+23
    PSOBBC1("EAOK" EARLY+5*, NEW+20
    PSOBBC1("EXPI RATION DATE" , SET+4*, NEW+25
    PSOBBC1("FILL DATE" , SET+2*, NEW+17
    PSOBBC1("FROM" FROM+4*, ASK+9, PROCESS+15, GETRXM+13, GETRXM+15, GETRXM+19, GETRXM+22, PTC+4, PTC+9, ULK+1
    , ULP, ULRX+1, SETX+1, SETX+2
    PSOBBC1("INOK" INPT+7*, NEW+22
    PSOBBC1("MAIL/WINDOW" SET+1*, NEW+19
    PSOBBC1("QS" SUSP+5*, NEW+21
    PSOBBCNO START+1~, ASK+9*, NEW+18
    PSOBCK EOJ+1!
    PSOCNH CNH+1~, CNH+4*, CNH+5
    PSOCOU EOJ+1!
    PSOCOUU EOJ+1!
    PSODFN START+1~, PROCESS+8, PROCESS+9, PT+5*, PT+8, PT+10, PTC*, PTC+1, PTC+3, PTC+4
    , PTC+6, PTC+8, ULK+2, ULK+3, ULP+1, ULP+2, PID+1
    >> PSODFNX( GETRXM+22, GETRXM+25*, ULK+3!
    PSOFROM REFILL+12~*, NEW+15~*
    PSOINP INPT+1~, INPT+4*, INPT+5
    PSOINST INIT+2, INIT+4!, INIT+5*, GETRXM+10
    PSOINST(4 INIT+5!
    >> PSOLAP TRI+13
    PSOLOUD GETRXM+16*!, PT+8*!, PTC+1*!
    PSOMSG GETRXM+19!, GETRXM+20, EOJ+1!
    PSONEW3 EOJ+1!
    PSONOERR GETRXM+22!, GETRXM+24*, EOJ+1!
    PSONOOR EOJ+2!
    PSOOPT GETRXMX!, NEW+17*, NEW+26!, EOJ+1!
    PSOORIG REFILL+2~, REFILL+4*, REFILL+6*, REFILL+9
    >> PSOPAR START+2, START+3, ASK+7, NEW+11, NEW+13
    PSOPARKED REFILL+2~, REFILL+5*, REFILL+6
    PSOPLCK GETRXM+22, GETRXM+23*, EOJ+1!
    PSOPTPST PTX!
    PSOPTPST(2 PTC+3, PTC+6, PTC+8
    PSOREFXM GETRXM+2!, GETRXM+19*, EOJ+1!, ULRX+2, ULRX+3, ULRX+4!
    PSORENW3 EOJ+1!
    PSORNW NEW+26!
    PSORNW("FILL DATE" , NEW+17*
    PSORX EOJ+2!
    PSORX("BAR CO DE" , START+6*, INIT+1*
    PSORX("CNH" PTC+7!, PTC+8*
    PSORX("DFLG" NEW+18*
    PSORX("NAME" PT+5*, PID+4
    PSORX("PATIEN T STATUS" , PT+10*
    PSORX("QFLG" START+4*, START+7*, START+8*, DIR+2*
    PSORX("VERIFY" START+3*
    PSORXIEN REFILL+2~, REFILL+3*, REFILL+5, REFILL+6, REFILL+9, REFILL+10, NEW+2~, NEW+3*, NEW+4, NEW+5
    , NEW+10
    PSOSD PROCESS+13, EOJ+1!
    >> PSOSITE START+4, INPT+4, CNH+4, TRI+11
    PSOTPEXT PTC+4~!, PTC+5!
    PSOWRX TRI+5~, TRI+8*, TRI+11, TRI+12, TRI+13, TRI+14, TRI+17
    PSOWW TRI+5~, TRI+8*, TRI+9, TRI+14
    PSOX PT+10*, PT+11!
    PSOXDFN GETRXM+16*, GETRXM+17!
    PSUS TRI+17~
    RFDT EOJ+2!
    RFN TRI+17~
    RSDT TRI+17~
    RX1 EOJ+2!
    RXF TRI+17~
    RXFL PROCESSX!, PT+4!, EOJ+1!
    RXN PROCESS+2*, PROCESS+3, PROCESS+4, PROCESS+5!
    RXN1 PROCESS+3*, PROCESS+5!
    RXS EOJ+2!
    SDA EOJ+2!
    SIG PROCESS+5!, EOJ+2!
    SIGOK EOJ+2!
    STA EOJ+2!
    TM PROCESS+1*, EOJ+2!
    TM1 PROCESS+1*, EOJ+2!
    VA EOJ+2!
    VA("BID" PID+4, PID+5!
    VA("PID" PID+5!
    VADM EOJ+2!
    VAEL EOJ+2!
    VALMBCK EOJ+2!
    VALMSG EOJ+2!
    VAPA EOJ+2!
    VAPTYP PID+3!
    WBILL TRI+5~, TRI+13*, TRI+14
    WDUZ TRI+5~, TRI+11*, TRI+13
    WFILL TRI+5~, TRI+12*, TRI+13
    WLOOP TRI+5~, TRI+12*
    WPAT TRI+5~, TRI+11*, TRI+13
    WPPLFLG TRI+5~, TRI+8*, TRI+15*, TRI+18
    WSITE TRI+5~, TRI+11*, TRI+13
    WWFLAG TRI+5~, TRI+8*, TRI+9*
    WWNEXT TRI+5~, TRI+9*
    WWW TRI+5~, TRI+19*, TRI+20, TRI+21
    WXRX TRI+5~
    WXRX( TRI+14*, TRI+19, TRI+20, TRI+21
    X FROMX!, SUSPX!, INPTX!, CNHX!, EARLYX!, GETRXM+10, GETRXM+11, GETRXM+24*, GETRXMX!, EOJ+1!
    , TRI+1*, ULK+3*
    XFROM REFILL+12*, NEW+15*, EOJ+1!, SETX+1*, SETX+2*
    Y FROM+3, FROM+4, FROMX!, SUSP+5, SUSPX!, INPT+7, INPTX!, CNH+7, CNHX!, EARLY+5
    , EARLYX!, GETRXM+24, GETRXMX!, EOJ+1!
    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