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 |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: PSOBPSU2

Package: Outpatient Pharmacy

Routine: PSOBPSU2


Information

PSOBPSU2 ;BIRM/MFR - BPS (ECME) Utilities 2 ;10/15/04

Source Information

Source file <PSOBPSU2.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Outpatient Pharmacy 7 $$LSTRFL^PSOBPSU1  $$HOSTREJ^PSOBPSU2  $$STATUS^PSOBPSUT  $$TRIC^PSOREJP1  $$TRIAUD^PSOREJU3  $$FIND^PSOREJUT  AREC^PSOSUCH1  
VA FileMan 4 FILE^DICN  ^DIE  $$GET1^DIQ  ^DIR  
E Claims Management Engine 2 $$CLAIM^BPSBUTL  DUR1^BPSNCPD3  
Kernel 1 ($$FMADD,$$FMTE,$$NOW)^XLFDT  
Pharmacy Data Management 1 ($$NCPDPQTY,NCPDPQTY)^PSSBPSUT  

Caller Graph

Caller Graph Total: 33

Package Total Caller Graph
Outpatient Pharmacy 25 PSO293P1  PSO293PI  PSOBORP3  PSOBPSU1  PSOBPSU2  PSOBPSUT  PSODAWUT  PSOERXA5  
PSOERXX1  PSON52  PSONDCUT  PSOORED2  PSOORED6  PSOOTMRX  PSOREJP2  PSOREJP3  
PSOREJU3  PSOREJUT  PSORTSUT  PSORXVW  PSOSPML4  PSOSPML6  PSOSULB1  PSOSULBL  
PSOTRI  
E Claims Management Engine 3 BPSRPT6  BPSSCRU2  BPSVRX  
CMOP 2 PSXBPSMS  PSXRPPL2  
Integrated Billing 2 IBNCPDP1  IBNCPEV3  
Controlled Substances 1 PSDDSOR1  

Entry Points

Name Comments DBIA/ICR reference
MWC(RX,RFL) ; Returns whether a prescription is (M)ail, (W)indow or (C)MOP
  • ICR #4970
    • Status: Active
    • Usage: Controlled Subscription
    RXACT(RX,RFL,COMM,TYPE,USR) ; - Add an Activity to the ECME Activity Log (PRESCRIPTION file)
    ECMENUM(RX,RFL) ; Returns the ECME number for a specific prescription and fill
    GETECME(RX,RFL) ;
    RXNUM(ECME) ; Returns the Rx number for a specific ECME number
  • ICR #4970
    • Status: Active
    • Usage: Controlled Subscription
    RXNUMX ;
    ELIG(RX,RFL,PSOELIG) ;Stores eligibility flag
    ECMESTAT(RX,RFL) ;called from local mail
    ECMEST2(RX,RFL) ;
    HOSTREJ(RX,RFL,ONE) ; called from PSXRPPL2 and this routine
    DUR(RX,RFL) ;
  • ICR #4970
    • Status: Active
    • Usage: Controlled Subscription
    SHDTLOG(RX,RFL) ;
    SHDT(RX,RFL) ;
    ELOG(RESP) ; - due to size of PSOBPSU1 exceeding limit
    ; -Logs an ECME Activity Log if Rx Qty is different than Billing Qty
    UPDFL(RXREC,SUB,INDT) ;update fill date with release date when NDC changes at CMOP and OPAI auto-release
    FIN ;

    External References

    Name Field # of Occurrence
    $$CLAIM^BPSBUTL GETECME+5
    DUR1^BPSNCPD3 HOSTREJ+5
    FILE^DICN RXACT+19
    ^DIE ELIG+3, ELIG+4, SHDTLOG+5, SHDTLOG+6, UPDFL+10, UPDFL+12
    $$GET1^DIQ MWC+12, MWC+13, MWC+19, MWC+23, MWC+31, RXNUM+19, SHDT+4, ELOG+4, ELOG+5, UPDFL+8
    , UPDFL+11
    ^DIR RXNUM+21
    $$LSTRFL^PSOBPSU1 MWC+7, RXACT+7, ECMENUM+6, DUR+3, SHDTLOG+2, SHDT+2
    $$HOSTREJ^PSOBPSU2 DUR+6
    $$STATUS^PSOBPSUT ECMESTAT+9, ECMESTAT+11, ECMEST2+2
    $$TRIC^PSOREJP1 RXACT+13, ECMESTAT+21
    $$TRIAUD^PSOREJU3 ECMESTAT+23
    $$FIND^PSOREJUT ECMESTAT+22, ECMESTAT+26
    AREC^PSOSUCH1 UPDFL+15
    $$NCPDPQTY^PSSBPSUT ELOG+6
    NCPDPQTY^PSSBPSUT ELOG+2
    $$FMADD^XLFDT DUR+5, SHDTLOG+3
    $$FMTE^XLFDT SHDTLOG+4
    $$NOW^XLFDT RXACT+19

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !
    • Line Location: RXNUM+19
    Function Call: WRITE
    • Prompt: !?5,I,". ",$$GET1^DIQ(52,FOUND(I),.01),?25,$$GET1^DIQ(52,FOUND(I),6)
    • Line Location: RXNUM+19
    Function Call: WRITE
    • Prompt: !
    • Line Location: RXNUM+20
    Routine Call
    • DIE
    • Line Location:
      • ELIG+3
      • ELIG+4
      • SHDTLOG+5
      • SHDTLOG+6
      • UPDFL+10
      • UPDFL+12
    Routine Call
    • DIR
    • Line Location:
      • RXNUM+21

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PSRX - [#52] Classic Fileman Calls,  GET1^DIQ
    52.01 GET1^DIQ
    52.1 GET1^DIQ
    ^PS(52.5 - [#52.5] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PS(52.5 - [#52.5] MWC+20
    ^PSRX - [#52] MWC+30, RXACT+11, RXNUM+9, RXNUM+13, ELIG+1, UPDFL+7, UPDFL+9, UPDFL+11, UPDFL+12*
    ^PSRX(9999999999999 RXNUM+4
    ^VA(200 - [#200] RXACT+8

    Label References

    Name Line Occurrences
    $$DUR ECMESTAT+17
    $$ECMENUM RXNUM+9, RXNUM+13
    $$GETECME ECMENUM+4, ECMENUM+6, ECMENUM+8
    $$HOSTREJ ECMEST2+8
    $$SHDT DUR+4
    RXACT SHDTLOG+7, ELOG+8
    RXNUMX RXNUM+15, RXNUM+16, RXNUM+21
    SHDTLOG DUR+6

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    BLDU ELOG+3~, ELOG+6*, ELOG+8
    BLQTY ELOG+3~, ELOG+6*, ELOG+7, ELOG+8
    CMP MWC+29~*, MWC+30*, MWC+31
    CNT UPDFL+4~
    CODE HOSTREJ+1~, HOSTREJ+9*, HOSTREJ+11, HOSTREJ+12, DUR+1~
    COM UPDFL+4~
    COMM RXACT~, RXACT+8*, RXACT+10, RXACT+14*, RXACT+15*, RXACT+18, SHDTLOG+1~, SHDTLOG+4*, SHDTLOG+7
    DA RXACT+16~, ELIG+2~, ELIG+3*, ELIG+4*, SHDTLOG+1~, SHDTLOG+5*, SHDTLOG+6*, UPDFL+4~, UPDFL+9*, UPDFL+10!
    , UPDFL+11*, UPDFL+14*
    DA(1 RXACT+17*, ELIG+4*, SHDTLOG+6*, UPDFL+11*, UPDFL+12
    DD RXACT+16~
    DEAD UPDFL+4~, UPDFL+5*
    DIC RXACT+16~, RXACT+17*
    DIC("DR" RXACT+18*
    DIC(0 RXACT+17*
    DIE ELIG+2~, ELIG+3*, ELIG+4*, SHDTLOG+1~, SHDTLOG+5*, SHDTLOG+6*, UPDFL+4~, UPDFL+9*, UPDFL+10!, UPDFL+12*!
    DINUM RXACT+16~
    DIR RXNUM+2~
    DIR("A" RXNUM+20*
    DIR("B" RXNUM+20*
    DIR(0 RXNUM+20*
    DIRUT RXNUM+2~, RXNUM+21
    DLAYGO RXACT+16~, RXACT+17*
    DO RXACT+16~
    DR RXACT+16~, ELIG+3*, ELIG+4*, SHDTLOG+1~, SHDTLOG+5*, SHDTLOG+6*, UPDFL+4~, UPDFL+9*, UPDFL+12*
    DRUG ELOG+3~, ELOG+4*, ELOG+6
    DT DUR+5, SHDTLOG+3
    DTOUT UPDFL+4~, UPDFL+13
    DUOUT UPDFL+4~, UPDFL+13
    DUZ RXACT+7, RXACT+8, SHDTLOG+7, ELOG+8
    ECME RXNUM~, RXNUM+3*, RXNUM+7, RXNUM+9, RXNUM+13
    ECMENUM ECMENUM+1~, ECMENUM+4*, ECMENUM+6*, ECMENUM+8*, ECMENUM+9, GETECME+2~, GETECME+5*, GETECME+6
    ESTAT DUR+1~
    EXDAT UPDFL+4~, UPDFL+6*, UPDFL+8, UPDFL+9, UPDFL+11, UPDFL+12
    FILE SHDT+1~, SHDT+3*, SHDT+4
    FOUND RXNUM+2~, RXNUM+3*, RXNUM+9*, RXNUM+13*, RXNUM+15*, RXNUM+16*, RXNUM+19, RXNUM+20, RXNUM+21*, RXNUM+22*
    , RXNUMX+1
    FOUND( RXNUM+9*, RXNUM+13*, RXNUM+19, RXNUM+22
    FOUND(1 RXNUM+16
    HRCODE HOSTREJ+1~, HOSTREJ+10*, HOSTREJ+11, HOSTREJ+12
    HRQUIT HOSTREJ+1~, HOSTREJ+2*, HOSTREJ+9, HOSTREJ+10, HOSTREJ+11*, HOSTREJ+12*
    I RXNUM+2~, RXNUM+19*, HOSTREJ+1~, HOSTREJ+9*
    IDX HOSTREJ+1~, HOSTREJ+2*, DUR+1~, DUR+2*
    IENS SHDT+1~, SHDT+3*, SHDT+4
    II UPDFL+4~, UPDFL+7*
    INDT UPDFL~, UPDFL+6
    LFT RXNUM+2~, RXNUM+3*, RXNUM+8*, RXNUM+9
    MAX RXNUM+2~, RXNUM+4*, RXNUM+7, RXNUM+8
    MWC MWC+5~, MWC+12*, MWC+13*, MWC+14*, MWC+15, MWC+23*, MWC+25*, MWC+28, MWC+30, MWC+31*
    , MWC+33
    OFILLD UPDFL+4~, UPDFL+8*, UPDFL+11*
    OLD UPDFL+4~, UPDFL+9*, UPDFL+11*
    ONE HOSTREJ~, HOSTREJ+3*, HOSTREJ+8*, HOSTREJ+11
    PSOELIG ELIG~, ELIG+3, ELIG+4
    PSOTRIC RXACT+13~*, RXACT+14, RXACT+15, ELIG+2~, ECMESTAT+8~, ECMESTAT+21*, ECMESTAT+22, ECMESTAT+23
    PSOX UPDFL+4~
    RAD RXNUM+2~, RXNUM+9*
    REJ HOSTREJ+1~, HOSTREJ+5, DUR+1~
    REJ(1 HOSTREJ+6
    RESP ELOG~, ELOG+2
    RETV HOSTREJ+1~, HOSTREJ+2*, HOSTREJ+11*, HOSTREJ+12*, HOSTREJ+13
    RF UPDFL+4~
    RFCNT UPDFL+4~
    RFL MWC~, MWC+7*, MWC+12, MWC+31, RXACT~, RXACT+7*, RXACT+13, RXACT+18, ECMENUM~, ECMENUM+4
    , ECMENUM+6*, ECMENUM+8*, GETECME~, GETECME+4, GETECME+5, ELIG~, ELIG+1, ELIG+3, ELIG+4, ECMESTAT~
    , ECMESTAT+9, ECMESTAT+11, ECMESTAT+17, ECMESTAT+21, ECMESTAT+22, ECMESTAT+23, ECMESTAT+26, ECMEST2~, ECMEST2+2, ECMEST2+8
    , HOSTREJ~, HOSTREJ+5, DUR~, DUR+3*, DUR+4, DUR+6, SHDTLOG~, SHDTLOG+2*, SHDTLOG+5, SHDTLOG+6
    , SHDTLOG+7, SHDT~, SHDT+2*, SHDT+3, ELOG+5, ELOG+8
    RX MWC~, MWC+7, MWC+12, MWC+13, MWC+19, MWC+20, MWC+30, MWC+31, RXACT~, RXACT+7
    , RXACT+11, RXACT+13, RXACT+17, ECMENUM~, ECMENUM+2, ECMENUM+4, ECMENUM+6, ECMENUM+8, GETECME~, GETECME+3
    , GETECME+5, RXNUM+2~, RXNUM+9*, RXNUM+13*, ELIG~, ELIG+1, ELIG+3, ELIG+4, ECMESTAT~, ECMESTAT+9
    , ECMESTAT+11, ECMESTAT+17, ECMESTAT+21, ECMESTAT+22, ECMESTAT+23, ECMESTAT+26, ECMEST2~, ECMEST2+2, ECMEST2+8, HOSTREJ~
    , HOSTREJ+5, DUR~, DUR+3, DUR+4, DUR+6, SHDTLOG~, SHDTLOG+2, SHDTLOG+5, SHDTLOG+6, SHDTLOG+7
    , SHDT~, SHDT+2, SHDT+3, ELOG+4, ELOG+5, ELOG+8
    RXQTY ELOG+3~, ELOG+5*, ELOG+6, ELOG+7
    RXREC UPDFL~, UPDFL+7, UPDFL+8, UPDFL+9, UPDFL+11, UPDFL+12, UPDFL+14
    RXS MWC+20~*, MWC+23
    SFN UPDFL+4~, UPDFL+5*
    SHCODE DUR+1~
    SHDT DUR+1~, DUR+4*, DUR+5, DUR+6, SHDTLOG+1~, SHDTLOG+3*, SHDTLOG+4, SHDTLOG+5, SHDTLOG+6
    SHOLD DUR+1~, DUR+2*, DUR+6*, DUR+7
    STATUS ECMESTAT+8~, ECMESTAT+9*, ECMESTAT+11*, ECMESTAT+14, ECMESTAT+22, ECMESTAT+23, ECMEST2+1~, ECMEST2+2*, ECMEST2+4, ECMEST2+6
    SUB UPDFL~, UPDFL+7*, UPDFL+8, UPDFL+11
    TXT HOSTREJ+1~, HOSTREJ+6*, HOSTREJ+7, HOSTREJ+8, HOSTREJ+9, DUR+1~
    TYPE RXACT~, RXACT+18
    U GETECME+5
    USR RXACT~, RXACT+7*, RXACT+8*, RXACT+18
    X RXACT+16~, RXACT+19*, RXNUM+2~, ELIG+2~, UPDFL+4~, UPDFL+9*, UPDFL+11*
    XOK UPDFL+4~
    Y RXACT+16~, RXNUM+2~, RXNUM+22, ELIG+2~
    Z ELOG+3~, ELOG+6*

    Marked Items

    Name Field # of Occurrence
    $T(NCPDPQTY^PSSBPSUT ELOG+2
    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 |  Local Variables |  Marked Items  | All