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

Package Total Caller Graph
Outpatient Pharmacy 35 PSO293P1  PSO293PI  PSOBORP3  PSOBPSU1  PSOBPSU2  PSOBPSU4  PSOBPSUT  PSODAWUT  
PSOERXA5  PSOERXA6  PSOERXX1  PSOLMPAT  PSON52  PSONDCUT  PSOORED2  PSOORED6  
PSOORNE2  PSOOTMRX  PSOREJP2  PSOREJP3  PSOREJU3  PSOREJUT  PSORTSUT  PSORXVW  
PSOSPML4  PSOSPML6  PSOSPML7  PSOSPMV  PSOSULB1  PSOSULBL  PSOSUPAT  PSOSUPOE  
PSOSUPRX  PSOTRI  PSOUTLA2  
E Claims Management Engine 6 BPSRPC02  BPSRPT6  BPSSCRRS  BPSSCRU2  BPSUSCR1  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
; Input: (r) RX - Rx IEN (#52)
; (o) RFL - Refill # (Default: most recent)
; Output: "M": MAIL / "W": WINDOW / "C": CMOP
  • ICR #4970
    • Status: Active
    • Usage: Controlled Subscription
    RXACT(RX,RFL,COMM,TYPE,USR) ; - Add an entry to the ECME Activity Log (PRESCRIPTION file)
    ECMENUM(RX,RFL) ; Returns the ECME number for a specific prescription and fill
    GETECME(RX,RFL) ; Internal function used by ECMENUM to get the ECME # from BPS
    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
    ; Input:
    ; RX = Prescription File IEN
    ; RFL = Refill
    ; Output:
    ; 0 for not allowed to print from suspense
    ; 1 for allowed to print from suspense
    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
    ; Input: RXREC = Prescription File IEN
    ; SUB = Refill
    ; INDT = Release date
    FIN ;
    SEND(PSORX,PSOFILL) ; Determine whether to send a claim.

    External References

    Name Field # of Occurrence
    $$CLAIM^BPSBUTL GETECME+3
    DUR1^BPSNCPD3 HOSTREJ+5
    FILE^DICN RXACT+29
    ^DIE ELIG+3, ELIG+4, SHDTLOG+5, SHDTLOG+6, UPDFL+25, UPDFL+35
    $$GET1^DIQ MWC+13, MWC+14, MWC+24, MWC+31, MWC+40, RXNUM+19, SHDT+4, ELOG+3, ELOG+4, UPDFL+15
    , UPDFL+20, UPDFL+29
    ^DIR RXNUM+24
    $$LSTRFL^PSOBPSU1 MWC+7, RXACT+12, ECMENUM+11, 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+22
    $$FIND^PSOREJUT ECMESTAT+26, 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+25
      • UPDFL+35
    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+41, UPDFL+42
    ^PSRX - [#52] MWC+39, RXACT+7, RXNUM+10, RXNUM+12, ELIG+1, UPDFL+18, UPDFL+37*
    ^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+6, ECMENUM+12, ECMENUM+18
    $$HOSTREJ ECMEST2+13
    $$SHDT DUR+4
    RXACT SHDTLOG+7, ELOG+7, UPDFL+44
    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
    CODE HOSTREJ+1~, HOSTREJ+9*, HOSTREJ+11, HOSTREJ+12, DUR+1~
    COM UPDFL+4~, UPDFL+43*, UPDFL+44
    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+22*, UPDFL+26!
    , UPDFL+31*
    DA(1 RXACT+23*, ELIG+4*, SHDTLOG+6*, UPDFL+32*, UPDFL+33
    DD RXACT+22~
    DEAD UPDFL+4~, UPDFL+7*
    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+23*, UPDFL+26!, UPDFL+33*
    , UPDFL+36!
    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+24*, UPDFL+34*
    DRUG ELOG+2~, ELOG+3*, ELOG+5
    DT DUR+5, SHDTLOG+3
    DTOUT UPDFL+4~, UPDFL+39
    DUOUT UPDFL+4~, UPDFL+39
    DUZ RXACT+13, RXACT+14, SHDTLOG+7, ELOG+7, UPDFL+44
    ECME RXNUM~, RXNUM+3*, RXNUM+8, RXNUM+10, RXNUM+12
    ECMENUM ECMENUM+2~, ECMENUM+6*, ECMENUM+12*, ECMENUM+13, ECMENUM+18*, ECMENUM+19
    ESTAT DUR+1~
    EXDAT UPDFL+4~, UPDFL+8*, UPDFL+9*, UPDFL+16, UPDFL+21, UPDFL+24, UPDFL+30, UPDFL+34, UPDFL+37
    EXPDATE UPDFL+4~, UPDFL+15*, UPDFL+16
    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+18*
    INDT UPDFL~, UPDFL+8, UPDFL+43
    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+20*, UPDFL+21, UPDFL+29*, UPDFL+30, UPDFL+43
    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+5~, UPDFL+42*, UPDFL+43
    PSOTRIC RXACT+17~, RXACT+18*, RXACT+19, RXACT+20, ELIG+2~, ECMESTAT+8~, ECMESTAT+21*, ECMESTAT+22
    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
    RFL MWC~, MWC+7*, MWC+13, MWC+40, RXACT~, RXACT+12*, RXACT+18, RXACT+27, ECMENUM~, ECMENUM+6
    , ECMENUM+11*, ECMENUM+12, ECMENUM+18*, GETECME~, GETECME+2, GETECME+3, ELIG~, ELIG+1, ELIG+3, ELIG+4
    , ECMESTAT~, ECMESTAT+9, ECMESTAT+11, ECMESTAT+17, ECMESTAT+21, ECMESTAT+22, ECMESTAT+26, ECMEST2~, ECMEST2+2, ECMEST2+4
    , ECMEST2+13, 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+6, ECMENUM+11, ECMENUM+12, ECMENUM+18
    , GETECME~, GETECME+1, GETECME+3, 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+26, ECMEST2~, ECMEST2+2, ECMEST2+4
    , ECMEST2+13, 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+15, UPDFL+18, UPDFL+20, UPDFL+22, UPDFL+29, UPDFL+32, UPDFL+37, UPDFL+41, UPDFL+44
    RXRECI UPDFL+5~, UPDFL+41*, UPDFL+42
    RXS MWC+25~, MWC+26*, MWC+27, MWC+31
    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, ECMEST2+3~, ECMEST2+4*, ECMEST2+7, ECMEST2+10
    SUB UPDFL~, UPDFL+18*, UPDFL+19, UPDFL+28, UPDFL+29, UPDFL+31, UPDFL+43, UPDFL+44
    TXT HOSTREJ+1~, HOSTREJ+6*, HOSTREJ+7, HOSTREJ+8, HOSTREJ+9, DUR+1~
    TYPE RXACT~, RXACT+27
    U GETECME+3
    USR RXACT~, RXACT+13*, RXACT+14*, RXACT+15*, RXACT+27
    X RXACT+22~, RXACT+28*, RXNUM+2~, ELIG+2~
    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