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

Package: Integrated Billing

Routine: IBNCPDPU


Information

IBNCPDPU ;OAK/ELZ - UTILITIES FOR NCPDP ;Jun 06, 2014@19:13:12

Source Information

Source file <IBNCPDPU.m>

Call Graph

Call Graph

Call Graph Total: 19

Package Total Call Graph
Integrated Billing 10 STCHK^IBCNRU1  ALL^IBCNS1  $$PLCOV^IBCNSU3  $$EVNTITM^IBCRU3  $$SENS^IBNCPDR  ($$MACHK,$$ROI)^IBNCPDR4  $$ERMSG^IBNCPNB  $$RXZERO^IBRXUTL  
$$EABD^IBTUTL  REFILL^IBTUTL1  
E Claims Management Engine 3 $$NABP^BPSBUTL  $$EN^BPSNCPDP  ($$CLMECME,$$VALECME)^BPSUTIL2  
Kernel 2 $$FMADD^XLFDT  $$RJ^XLFSTR  
Outpatient Pharmacy 2 ECMEACT^PSOBPSU1  $$RXRLDT^PSOBPSUT  
Registration 1 ELIG^VADPT  
VA FileMan 1 ^DIE  

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

Package Total Caller Graph
Integrated Billing 12 IBCNSBL1  IBJTCA1  IBNCPBB  IBNCPBB1  IBNCPDP1  IBNCPDP2  IBNCPDP5  IBNCPDPI  
IBNCPEB  IBNCPEV  IBNCPNB  IBNCPRR  
Accounts Receivable 3 RCDPESR1  RCDPESR6  RCDPEX4  
E Claims Management Engine 3 BPSECA8  BPSPRRX3  BPSVRX1  

Entry Points

Name Comments DBIA/ICR reference
CT(DFN,IBRXN,IBFIL,IBADT,IBRMARK) ; files in claims tracking
; Input:
; DFN - Patient IEN
; IBRXN - Rx IEN
; IBFIL - Fill#
; IBADT - Date of Service
; IBRMARK - Non-billable Reason (.01 from 356.8)
FILL(X,LEN) ; Zero-fill, right justified.
PLANN(DFN,IBX,IBADT) ; returns the ien in the insurance multiple for the given plan/patient provided
; Output: insurance co ien^2.312 subfile ien
PLANEPS(IBPL) ; returns the ePharmacy payer sheets for a group plan
; IBPL = IEN to GROUP INSURANCE PLAN file #355.3
; Returns: Payer Sheets. (B1,B2,B3,E1) (comma separated string)
; Successful: 1^B1,B2,B3,E1
; Unsuccessful: 0
  • ICR #5572
    • Status: Active
    • Usage: Private
    RT(DFN,IBDT,IBINS,IBPTYP) ; returns rate type to use for bill
    ; Input:
    ; DFN - patient ien
    ; IBDT - date of service
    ; IBINS - insurance array (pass by reference)
    BS() ; returns the mccr utility to use
    RXBIL(IBINP,IBERR) ; Matching NCPDP payments
    ; Find IB Bill by the 7 or 12 digit ECME number and the Rx fill date
    ; This function is called by AR routine $$BILL^RCDPESR1 (DBIA 4435).
  • ICR #4435
    • Status: Active
    • Usage: Private
    RXBILND(IBECME) ;Match the bill with no date
    TXMATCH(IBTXT1,IBTXT2,IBMAX) ;
    ECMEBIL(DFN,IBADT) ; Is the pat ECME Billable (pharmacy coverage only)
    ; DFN - ptr to the patient
    ; IBADT - the date
    ; IBINS - insurance array returned by ALL^IBCNS1
    SUBMIT(IBRX,IBFIL,IBDELAY) ; Submit the Rx claim through ECME
    ; IBDELAY - Delay Reason Code, passed as the 18th parameter - IB*2.0*435
    ; IBRX - RX ien in file #52
    ; IBFIL - Fill No (0 for orig fill)
    REASON(IBX,EXACT) ; Close Claim Reasons
    NABP(IBIFN) ;NABP Number
    BILL(IBRX,IBFIL) ;
    REJECT(IBECME,IBDATE) ; Is the e-claim rejected?
  • ICR #4435
    • Status: Active
    • Usage: Private
    RXINS(DFN,IBADT,IBINS) ; Return an array of pharmacy insurance policies by COB order
    ; Input:
    ; DFN - Patient ien (required)
    ; IBADT - Date of Service (fileman format, optional defaults to today)
    ; Output:
    ; IBINS - Name of destination array (pass by reference)
  • ICR #5714
    • Status: Active
    • Usage: Private
    RXINSX ;
    ECMEMTCH(IBECME,IBDAT,IBPNAME,IBERR) ; Attempt ECME# look up with either 7 digit or 12 digit number (IB*2*435)
    ACDUTY(DFN) ;
    ; Check active duty status for the patient
    ; Input:
    ; DFN: Patient (#2) IEN
    ; Output:
    ; 0: Does not have an Active Duty Status
    ; 1: Has an active Duty Status
    ;

    External References

    Name Field # of Occurrence
    $$NABP^BPSBUTL NABP+7
    $$EN^BPSNCPDP SUBMIT+8
    $$CLMECME^BPSUTIL2 RXBIL+19
    $$VALECME^BPSUTIL2 RXBIL+13
    ^DIE CT+11, CT+14
    STCHK^IBCNRU1 ECMEBIL+21
    ALL^IBCNS1 CT+31, PLANN+4, ECMEBIL+8, RXINS+11
    $$PLCOV^IBCNSU3 ECMEBIL+17, RXINS+17
    $$EVNTITM^IBCRU3 RT+26
    $$SENS^IBNCPDR CT+29
    $$MACHK^IBNCPDR4 CT+35
    $$ROI^IBNCPDR4 CT+36
    $$ERMSG^IBNCPNB ECMEBIL+22
    $$RXZERO^IBRXUTL CT+25
    $$EABD^IBTUTL CT+18
    REFILL^IBTUTL1 CT+41
    ECMEACT^PSOBPSU1 SUBMIT+9
    $$RXRLDT^PSOBPSUT SUBMIT+6
    ELIG^VADPT RT+19, ACDUTY+11
    $$FMADD^XLFDT CT+18, RXBILND+2
    $$RJ^XLFSTR RXBILND+8, RXBILND+25, REJECT+6, ECMEMTCH+5

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^IBT(356 - [#356] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DGCR(399 - [#399] RXBILND+11, RXBILND+12, RXBILND+13, RXBILND+28, RXBILND+29, BILL+4, ECMEMTCH+9, ECMEMTCH+11, ECMEMTCH+13
    ^DGCR(399.1 - [#399.1] BS+2
    ^DGCR(399.3 - [#399.3] RT+24, RT+49, RT+50, RT+58, RT+59
    ^DIC(8 - [#8] RT+22, RT+32, RT+34
    ^DIC(8.1 - [#8.1] RT+32, RT+34
    ^DPT - [#2] ECMEMTCH+13
    ^IBA(355.3 - [#355.3] PLANEPS+9, ECMEBIL+19
    ^IBCNR(366.03 - [#366.03] PLANEPS+11
    ^IBE(355.1 - [#355.1] RT+42
    ^IBE(355.31 - [#355.31] ECMEBIL+10
    ^IBE(356.6 - [#356.6] CT+16
    ^IBE(356.8 - [#356.8] REASON+1
    ^IBT(356 - [#356] CT+10, NABP+4, BILL+2, BILL+3, REJECT+7, REJECT+11
    ^IBT(356.399 - [#356.399] NABP+2, NABP+3

    Label References

    Name Line Occurrences
    $$ECMEMTCH RXBIL+18, RXBIL+19
    $$RXBILND RXBIL+16
    $$TXMATCH ECMEMTCH+13

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    B1 PLANEPS+5~, PLANEPS+14*, PLANEPS+15*, PLANEPS+16*, PLANEPS+20
    B2 PLANEPS+5~, PLANEPS+14*, PLANEPS+15*, PLANEPS+17*, PLANEPS+20
    B3 PLANEPS+5~, PLANEPS+14*, PLANEPS+15*, PLANEPS+18*, PLANEPS+20
    BILLDA RXBIL+10~, RXBIL+18*, RXBIL+19*, RXBIL+20, RXBILND+1~, RXBILND+5*, RXBILND+6, RXBILND+11, RXBILND+12, RXBILND+14*
    , RXBILND+19, RXBILND+22*, RXBILND+23, RXBILND+28, RXBILND+29, RXBILND+30*, RXBILND+35, ECMEMTCH+1~, ECMEMTCH+7*, ECMEMTCH+9*
    , ECMEMTCH+10, ECMEMTCH+11, ECMEMTCH+13, ECMEMTCH+15, ECMEMTCH+16
    BPSDAT RXBIL+10~, RXBIL+19*
    COB RXINS+7~, RXINS+14*, RXINS+16, RXINS+17
    CT RXINS+7~, RXINS+13*, RXINS+18*, RXINS+21
    DA CT+8~, CT+11*, CT+13*
    DFN CT~, CT+25, CT+31, CT+36, CT+41, PLANN~, PLANN+4, RT~, ECMEBIL~, ECMEBIL+8
    , RXINS~, RXINS+9*, RXINS+11, ACDUTY~, ACDUTY+8
    DIE CT+8~, CT+11*, CT+13*
    DR CT+8~, CT+11*, CT+13*
    DT RXBILND+2, SUBMIT+7, RXINS+10
    E1 PLANEPS+5~, PLANEPS+14*, PLANEPS+15*, PLANEPS+19*, PLANEPS+20
    ECMELEN RXBILND+1~, RXBILND+6*, RXBILND+7, RXBILND+8, RXBILND+23*, RXBILND+24, RXBILND+25, REJECT+1~, REJECT+4*, REJECT+5
    , REJECT+6, ECMEMTCH+1~, ECMEMTCH+3*, ECMEMTCH+4, ECMEMTCH+5
    ECMENUM RXBILND+1~, RXBILND+8*, RXBILND+9, RXBILND+25*, RXBILND+26, ECMEMTCH+5*, ECMEMTCH+6
    EXACT REASON~
    IBADT CT~, CT+10, CT+11, CT+18, CT+31, CT+35, CT+36, CT+41, PLANN~, PLANN+4
    , ECMEBIL~, ECMEBIL+8, ECMEBIL+17, RXINS~, RXINS+10*, RXINS+11, RXINS+17
    IBANY ECMEBIL+4~
    IBBC RXBILND+1~, RXBILND+10*, RXBILND+11*, RXBILND+12, RXBILND+27*, RXBILND+28*, RXBILND+29
    IBCAT ECMEBIL+4~, ECMEBIL+10*, ECMEBIL+17
    IBCOV ECMEBIL+4~, ECMEBIL+6*, ECMEBIL+16*, ECMEBIL+24
    IBCUT RXBILND+1~, RXBILND+2*, RXBILND+10, RXBILND+28
    IBDAT RXBIL+10~, RXBIL+14*, RXBIL+15*, RXBIL+16, RXBIL+18, RXBIL+19, ECMEMTCH~, ECMEMTCH+6
    IBDATE REJECT~
    IBDEA CT+24~
    IBDELAY SUBMIT~, SUBMIT+8
    IBDRUG CT+24~, CT+26*, CT+29, CT+36
    IBDT RT~, RT+26, SUBMIT+4~, SUBMIT+6*, SUBMIT+7*, SUBMIT+8
    IBE RT+17~, RT+32*, RT+34*
    IBE( RT+32*, RT+34*
    IBE("C" RT+39, RT+48, RT+57
    IBE("O" RT+48
    IBE("T" RT+38, RT+48
    IBEABD CT+8~, CT+18*, CT+41
    IBECME RXBIL+10~, RXBIL+12*, RXBIL+13, RXBIL+16, RXBIL+18, RXBIL+19, RXBILND~, RXBILND+7, RXBILND+8, RXBILND+24
    , RXBILND+25, REJECT~, REJECT+2, REJECT+5, REJECT+6*, REJECT+7, ECMEMTCH~, ECMEMTCH+4, ECMEMTCH+5
    IBERMSG ECMEBIL+4~, ECMEBIL+9*, ECMEBIL+20*, ECMEBIL+22*, ECMEBIL+26
    IBERR RXBIL~, RXBIL+11*, RXBIL+13*, RXBIL+18, RXBIL+19, ECMEMTCH~, ECMEMTCH+15*
    IBFIL CT~, CT+41, SUBMIT~, SUBMIT+5, SUBMIT+6, SUBMIT+8, SUBMIT+9, NABP+1~, NABP+6*, NABP+7
    , BILL~, BILL+2
    IBFLG CT+30~, CT+35*, CT+36*, CT+37, CT+38, CT+39
    IBFOUND ECMEMTCH+1~, ECMEMTCH+2*, ECMEMTCH+3, ECMEMTCH+9, ECMEMTCH+14*
    IBI RT+17~, RT+42*
    IBI( RT+42*
    IBI("C" RT+57
    IBI("O" RT+49, RT+58
    IBI("T" RT+48
    IBIFN NABP~, NABP+2, BILL+1~, BILL+3*, BILL+4
    IBINP RXBIL~
    IBINP("ECME" RXBIL+12
    IBINP("FILLDT" RXBIL+14
    IBINP("PNM" RXBIL+17
    IBINS CT+30~, RT~, ECMEBIL+4~, RXINS~, RXINS+8!, RXINS+21*
    IBINS( CT+36, RT+42, ECMEBIL+14, RXINS+15, RXINS+16!, RXINS+17!
    IBINS("S" CT+32, ECMEBIL+11, ECMEBIL+12, RXINS+14, RXINS+16!, RXINS+17!
    IBINSP CT+30~, CT+32*, CT+36
    IBKEY RXBILND+1~, RXBILND+9*, RXBILND+10, RXBILND+11, RXBILND+26*, RXBILND+27, RXBILND+28, ECMEMTCH+1~, ECMEMTCH+6*, ECMEMTCH+9
    IBMATCH ECMEMTCH+1~, ECMEMTCH+2*, ECMEMTCH+12*, ECMEMTCH+15
    IBMAX TXMATCH~, TXMATCH+5, TXMATCH+6
    IBNABP NABP+1~, NABP+7*, NABP+8
    IBNDC SUBMIT+4~
    IBPCOV ECMEBIL+4~, ECMEBIL+6*, ECMEBIL+18*, ECMEBIL+25
    IBPIEN ECMEBIL+13~, ECMEBIL+19*, ECMEBIL+20, ECMEBIL+21
    IBPL PLANEPS~, PLANEPS+7, PLANEPS+9, ECMEBIL+13~, ECMEBIL+15*, ECMEBIL+17, ECMEBIL+19, RXINS+7~, RXINS+15*, RXINS+16
    , RXINS+17
    IBPNAME RXBIL+10~, RXBIL+17*, RXBIL+18, RXBIL+19, ECMEMTCH~, ECMEMTCH+13
    IBPOL PLANN+2~
    IBPOL( PLANN+5
    IBPT RT+17~, RT+22*, RT+23
    IBPTYP RT~, RT+18*, RT+37*, RT+38*, RT+39*
    IBR PLANN+2~, PLANN+3*, PLANN+5*, PLANN+6, PLANEPS+5~, PLANEPS+6*, PLANEPS+7, PLANEPS+10, PLANEPS+20*, PLANEPS+21
    IBRES ECMEBIL+4~, ECMEBIL+5*, ECMEBIL+11, ECMEBIL+12, ECMEBIL+23*, ECMEBIL+26, ECMEBIL+27, ECMEBIL+29
    IBRET RT+17~, RT+23, RT+26*
    IBRMARK CT~, CT+12, CT+13, CT+35*, CT+37*, CT+41
    IBRS RT+17~, RT+26
    IBRT RT+17~, RT+23, RT+24*, RT+25*, RT+26, RT+48, RT+49*, RT+50*, RT+57, RT+58*
    , RT+59*
    IBRX SUBMIT~, SUBMIT+5, SUBMIT+6, SUBMIT+8, SUBMIT+9, NABP+1~, NABP+5*, NABP+7, BILL~, BILL+2
    IBRXDATA CT+24~, CT+25*, CT+26
    IBRXN CT~, CT+25, CT+41
    IBRXTYP CT+8~, CT+16*, CT+18, CT+41
    IBSCROI CT+24~, CT+35*, CT+38*, CT+39*, CT+41
    IBT ECMEBIL+4~, ECMEBIL+12*, ECMEBIL+14
    IBT1 TXMATCH+1~, TXMATCH+5*, TXMATCH+7
    IBT2 TXMATCH+1~, TXMATCH+6*, TXMATCH+7
    IBTR1 TXMATCH+1~, TXMATCH+3*, TXMATCH+5, TXMATCH+6
    IBTR2 TXMATCH+1~, TXMATCH+4*, TXMATCH+5, TXMATCH+6
    IBTRKN NABP+1~, NABP+3*, NABP+4, BILL+1~, BILL+2*, BILL+3
    IBTRKRN CT+10, CT+11, CT+12, CT+13, REJECT+1~, REJECT+3*, REJECT+4, REJECT+7*, REJECT+10, REJECT+11
    IBTXT1 TXMATCH~, TXMATCH+5
    IBTXT2 TXMATCH~, TXMATCH+6
    IBX PLANN~, PLANN+5, RT+17~, RT+34*, RT+42*, BS+1~, BS+2*, BS+3, ECMEBIL+4~, ECMEBIL+11*
    , ECMEBIL+12, SUBMIT+4~, SUBMIT+8*, SUBMIT+9, SUBMIT+10, REASON~, REASON+1
    IBY PLANN+2~, PLANN+5*, RXBILND+1~, RXBILND+12*, RXBILND+13, RXBILND+14, RXBILND+29*, RXBILND+30, ECMEBIL+13~, ECMEBIL+21
    , NABP+1~, NABP+2*, NABP+3, REJECT+1~, REJECT+11*, REJECT+12
    IBY(1 ECMEBIL+22
    IBY(6 ECMEBIL+22
    IBZ ECMEBIL+4~, ECMEBIL+13~, ECMEBIL+14*, ECMEBIL+15, NABP+1~, NABP+4*, NABP+5, NABP+6
    IEN RXINS+7~, RXINS+14*, RXINS+15, RXINS+16, RXINS+17
    LEN FILL~, FILL+2*, FILL+3, FILL+4
    PIEN PLANEPS+5~, PLANEPS+9*, PLANEPS+10, PLANEPS+11
    PLN10 PLANEPS+5~, PLANEPS+11*, PLANEPS+15, PLANEPS+16, PLANEPS+17, PLANEPS+18, PLANEPS+19
    U CT+10, CT+26, PLANN+5, PLANEPS+9, PLANEPS+15, PLANEPS+16, PLANEPS+17, PLANEPS+18, PLANEPS+19, RT+22
    , RT+23, RT+32, RT+34, RT+42, BS+2, RXBILND+13, ECMEBIL+15, REASON+1, NABP+3, NABP+5
    , NABP+6, BILL+3, BILL+4, REJECT+12, RXINS+15, ECMEMTCH+13
    VAEL RT+17~, ACDUTY+10~
    VAEL(1 RT+22, RT+32, RT+34
    VAEL(2 ACDUTY+14
    VAEL(4 RT+37
    VAEL(6 ACDUTY+12
    VAERR RT+17~
    X FILL~, FILL+3
    Y FILL+1~, FILL+3*, FILL+4*, FILL+5
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All