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 6 $$LSTRFL^PSOBPSU1  $$HOSTREJ^PSOBPSU2  $$STATUS^PSOBPSUT  $$TRIC^PSOREJP1  $$TRIAUD^PSOREJU3  $$FIND^PSOREJUT  
VA FileMan 4 FILE^DICN  ^DIE  $$GET1^DIQ  ^DIR  
E Claims Management Engine 2 $$CLAIM^BPSBUTL  DUR1^BPSNCPD3  
CMOP 1 $$TRICVANB^PSXRPPL1  
Kernel 1 ($$FMADD,$$FMTE,$$NOW)^XLFDT  
Pharmacy Data Management 1 ($$NCPDPQTY,NCPDPQTY)^PSSBPSUT  

Caller Graph

Caller Graph Total: 43

Package Total Caller Graph
Outpatient Pharmacy 33 PSO293P1  PSO293PI  PSOBORP3  PSOBPSU1  PSOBPSU2  PSOBPSU4  PSOBPSUT  PSODAWUT  
PSOERXA5  PSOERXA6  PSOERXX1  PSON52  PSONDCUT  PSOORED2  PSOORED6  PSOORNE2  
PSOOTMRX  PSOREJP2  PSOREJP3  PSOREJU3  PSOREJUT  PSORTSUT  PSORXVW  PSOSPML4  
PSOSPML6  PSOSPML7  PSOSPMV  PSOSULB1  PSOSULBL  PSOSUPAT  PSOSUPOE  PSOSUPRX  
PSOTRI  
E Claims Management Engine 5 BPSRPC02  BPSRPT6  BPSSCRRS  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) ;
    ; Do not resubmit a claim if this Rx has a closed eT/eC reject.
    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) ; 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 ;
    SEND(PSORX,PSOFILL) ; Determine whether to send a claim.

    External References

    Name Field # of Occurrence
    $$CLAIM^BPSBUTL GETECME+4
    DUR1^BPSNCPD3 HOSTREJ+5
    FILE^DICN RXACT+29
    ^DIE ELIG+3, ELIG+4, SHDTLOG+5, SHDTLOG+6, UPDFL+14, UPDFL+20
    $$GET1^DIQ MWC+13, MWC+14, MWC+24, MWC+31, MWC+40, RXNUM+19, SHDT+4, ELOG+3, ELOG+4, UPDFL+9
    , UPDFL+17
    ^DIR RXNUM+24
    $$LSTRFL^PSOBPSU1 MWC+7, RXACT+12, ECMENUM+6, DUR+3, SHDTLOG+2, SHDT+2
    $$HOSTREJ^PSOBPSU2 DUR+6
    $$STATUS^PSOBPSUT ECMESTAT+9, ECMESTAT+11, ECMEST2+4, SEND+11
    $$TRIC^PSOREJP1 RXACT+18, ECMESTAT+21
    $$TRIAUD^PSOREJU3 ECMESTAT+23
    $$FIND^PSOREJUT ECMESTAT+22, ECMESTAT+27, SEND+16
    $$NCPDPQTY^PSSBPSUT ELOG+5
    NCPDPQTY^PSSBPSUT ELOG+1
    $$TRICVANB^PSXRPPL1 ECMEST2+2
    $$FMADD^XLFDT DUR+5, SHDTLOG+3
    $$FMTE^XLFDT SHDTLOG+4
    $$NOW^XLFDT RXACT+28

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !
    • Line Location: RXNUM+18
    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+14
      • UPDFL+20
    Routine Call
    • DIR
    • Line Location:
      • RXNUM+24

    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+26, UPDFL+26
    ^PSRX - [#52] MWC+39, RXACT+7, RXNUM+10, RXNUM+12, ELIG+1, UPDFL+8, UPDFL+10, UPDFL+17, UPDFL+22*
    ^PSRX(9999999999999 RXNUM+4
    ^VA(200 - [#200] RXACT+14, RXACT+15

    Label References

    Name Line Occurrences
    $$DUR ECMESTAT+17
    $$ECMENUM RXNUM+10, RXNUM+12
    $$GETECME ECMENUM+4, ECMENUM+7, ECMENUM+10
    $$HOSTREJ ECMEST2+10
    $$SHDT DUR+4
    RXACT SHDTLOG+7, ELOG+7, UPDFL+28
    RXNUMX RXNUM+14, RXNUM+15, RXNUM+25
    SHDTLOG DUR+6

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    BLDU ELOG+2~, ELOG+5*, ELOG+7
    BLQTY ELOG+2~, ELOG+5*, ELOG+6, ELOG+7
    CMP MWC+37~, MWC+38*, MWC+39*, MWC+40
    CNT UPDFL+4~
    CODE HOSTREJ+1~, HOSTREJ+9*, HOSTREJ+11, HOSTREJ+12, DUR+1~
    COM UPDFL+4~, UPDFL+27*, UPDFL+28
    COMM RXACT~, RXACT+9*, RXACT+10, RXACT+19*, RXACT+20*, RXACT+27, SHDTLOG+1~, SHDTLOG+4*, SHDTLOG+7
    DA RXACT+22~, ELIG+2~, ELIG+3*, ELIG+4*, SHDTLOG+1~, SHDTLOG+5*, SHDTLOG+6*, UPDFL+4~, UPDFL+11*, UPDFL+15!
    , UPDFL+17*
    DA(1 RXACT+23*, ELIG+4*, SHDTLOG+6*, UPDFL+17*, UPDFL+18
    DD RXACT+22~
    DEAD UPDFL+4~, UPDFL+5*
    DIC RXACT+22~, RXACT+24*
    DIC("DR" RXACT+27*
    DIC(0 RXACT+26*
    DIE ELIG+2~, ELIG+3*, ELIG+4*, SHDTLOG+1~, SHDTLOG+5*, SHDTLOG+6*, UPDFL+4~, UPDFL+13*, UPDFL+15!, UPDFL+18*
    , UPDFL+21!
    DINUM RXACT+22~
    DIR RXNUM+2~
    DIR("A" RXNUM+22*
    DIR("B" RXNUM+23*
    DIR(0 RXNUM+21*
    DIRUT RXNUM+2~, RXNUM+25
    DLAYGO RXACT+22~, RXACT+25*
    DO RXACT+22~
    DR RXACT+22~, ELIG+3*, ELIG+4*, SHDTLOG+1~, SHDTLOG+5*, SHDTLOG+6*, UPDFL+4~, UPDFL+12*, UPDFL+19*
    DRUG ELOG+2~, ELOG+3*, ELOG+5
    DT DUR+5, SHDTLOG+3
    DTOUT UPDFL+4~, UPDFL+24
    DUOUT UPDFL+4~, UPDFL+24
    DUZ RXACT+13, RXACT+14, SHDTLOG+7, ELOG+7, UPDFL+28
    ECME RXNUM~, RXNUM+3*, RXNUM+8, RXNUM+10, RXNUM+12
    ECMENUM ECMENUM+2~, ECMENUM+4*, ECMENUM+7*, ECMENUM+8, ECMENUM+10*, ECMENUM+11
    ESTAT DUR+1~
    EXDAT UPDFL+4~, UPDFL+6*, UPDFL+7*, UPDFL+9, UPDFL+12, UPDFL+17, UPDFL+19, UPDFL+22
    FILE SHDT+1~, SHDT+3*, SHDT+4
    FOUND RXNUM+2~, RXNUM+3*, RXNUM+10*, RXNUM+12*, RXNUM+14*, RXNUM+15*, RXNUM+19, RXNUM+21, RXNUM+25*, RXNUM+26*
    , RXNUMX+1
    FOUND( RXNUM+10*, RXNUM+12*, RXNUM+19, RXNUM+26
    FOUND(1 RXNUM+15
    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+8*
    INDT UPDFL~, UPDFL+6, UPDFL+27
    LFT RXNUM+2~, RXNUM+3*, RXNUM+9*, RXNUM+10
    MAX RXNUM+2~, RXNUM+4*, RXNUM+8, RXNUM+9
    MWC MWC+5~, MWC+13*, MWC+14*, MWC+19*, MWC+20, MWC+31*, MWC+33*, MWC+36, MWC+39, MWC+40*
    , MWC+42
    OFILLD UPDFL+4~, UPDFL+9*, UPDFL+17*, UPDFL+27
    OLD UPDFL+4~, UPDFL+10*, UPDFL+17*
    ONE HOSTREJ~, HOSTREJ+3*, HOSTREJ+8*, HOSTREJ+11
    PSOELIG ELIG~, ELIG+3, ELIG+4
    PSOFILL SEND~, SEND+11, SEND+16
    PSORX SEND~, SEND+11, SEND+16
    PSOSTATUS SEND+10~, SEND+11*, SEND+12
    PSOSUSPA UPDFL+26~*, UPDFL+27
    PSOTRIC RXACT+17~, RXACT+18*, RXACT+19, RXACT+20, ELIG+2~, ECMESTAT+8~, ECMESTAT+21*, ECMESTAT+22, ECMESTAT+23
    PSOX UPDFL+4~
    RAD RXNUM+2~, RXNUM+10*
    REJ HOSTREJ+1~, HOSTREJ+5, DUR+1~
    REJ(1 HOSTREJ+6
    RESP ELOG~, ELOG+1
    RETV HOSTREJ+1~, HOSTREJ+2*, HOSTREJ+11*, HOSTREJ+12*, HOSTREJ+13
    RF UPDFL+4~
    RFCNT UPDFL+4~
    RFL MWC~, MWC+7*, MWC+13, MWC+40, RXACT~, RXACT+12*, RXACT+18, RXACT+27, ECMENUM~, ECMENUM+4
    , ECMENUM+6*, ECMENUM+7, ECMENUM+10*, GETECME~, GETECME+3, GETECME+4, ELIG~, ELIG+1, ELIG+3, ELIG+4
    , ECMESTAT~, ECMESTAT+9, ECMESTAT+11, ECMESTAT+17, ECMESTAT+21, ECMESTAT+22, ECMESTAT+23, ECMESTAT+27, ECMEST2~, ECMEST2+2
    , ECMEST2+4, ECMEST2+10, 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+7
    RX MWC~, MWC+7, MWC+13, MWC+14, MWC+24, MWC+26, MWC+39, MWC+40, RXACT~, RXACT+7
    , RXACT+12, RXACT+18, RXACT+23, RXACT+24, ECMENUM~, ECMENUM+1, ECMENUM+4, ECMENUM+6, ECMENUM+7, ECMENUM+10
    , GETECME~, GETECME+2, GETECME+4, RXNUM+2~, RXNUM+10*, RXNUM+12*, ELIG~, ELIG+1, ELIG+3, ELIG+4
    , ECMESTAT~, ECMESTAT+9, ECMESTAT+11, ECMESTAT+17, ECMESTAT+21, ECMESTAT+22, ECMESTAT+23, ECMESTAT+27, ECMEST2~, ECMEST2+2
    , ECMEST2+4, ECMEST2+10, 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+3, ELOG+4, ELOG+7
    RXQTY ELOG+2~, ELOG+4*, ELOG+5, ELOG+6
    RXREC UPDFL~, UPDFL+8, UPDFL+9, UPDFL+10, UPDFL+11, UPDFL+17, UPDFL+22, UPDFL+26, UPDFL+28
    RXRECI UPDFL+26~*
    RXS MWC+25~, MWC+26*, MWC+27, MWC+31
    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+3~, ECMEST2+4*, ECMEST2+6, ECMEST2+8
    SUB UPDFL~, UPDFL+8*, UPDFL+9, UPDFL+17, UPDFL+27, UPDFL+28
    TXT HOSTREJ+1~, HOSTREJ+6*, HOSTREJ+7, HOSTREJ+8, HOSTREJ+9, DUR+1~
    TYPE RXACT~, RXACT+27
    U GETECME+4
    USR RXACT~, RXACT+13*, RXACT+14*, RXACT+15*, RXACT+27
    X RXACT+22~, RXACT+28*, RXNUM+2~, ELIG+2~, UPDFL+4~, UPDFL+10*, UPDFL+17*
    XOK UPDFL+4~
    Y RXACT+22~, RXNUM+2~, RXNUM+26, ELIG+2~
    Z ELOG+2~, ELOG+5*

    Marked Items

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