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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: IBEFUNC

Package: Integrated Billing

Routine: IBEFUNC


Information

IBEFUNC ;ALB/RLW - EXTRINSIC FUNCTIONS ;12-JUN-92

Source Information

Source file <IBEFUNC.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Integrated Billing 5 ($$COB,$$COBN,$$FT,$$INPAT,$$POLICY)^IBCEF  $$EDIACTV^IBCEF4  $$MODLST^IBEFUNC2  ($$DISND,SCAN)^IBSDU  $$EXPAND^IBTRE  
CPT HCPCS Codes 1 $$MOD^ICPTMOD  
VA FileMan 1 FIELD^DID  

Caller Graph

Caller Graph Total: 194

Package Total Caller Graph
Integrated Billing 192 IB DO NOT USE  IB INACTIVE INS CO  IBACUS2  IBACV  IBACVA2  IBAECP1  IBAMTBU  IBAMTI  
IBAMTI1  IBAMTS  IBAMTV  IBAMTV3  IBATOP  IBCAPP2  IBCBB21  IBCECSA2  
IBCEF31  IBCEMU1  IBCEMU3  IBCEOB  IBCEOB0  IBCEOB00  IBCEPTR  IBCEU3  
IBCEU6  IBCF2  IBCF33  IBCNES  IBCNQ  IBCNSBL2  IBCNSC3  IBCNSJ12  
IBCRBG1  IBCSC102  IBCSC5B  IBCSC5C  IBCSCH1  IBCU73  IBEMTF2  IBEMTO1  
IBJTCA2  IBJTLA1  IBNCPEB  IBOA31  IBOMTP1  IBRFIHL2  IBRSUTL  IBXSA25  
IBY320PO  ^DGCR(399  IB20P619  IBAERR1  IBAERR2  IBAERR3  IBAGMR1  IBAMTBU1  
IBAMTBU2  IBAMTEDU  IBAMTS1  IBAMTS3  IBAMTV1  IBAMTV31  IBAMTV32  IBAPDX  
IBARXEB  IBARXEC4  IBARXEI  IBARXEL  IBARXEPE  IBARXEPS  IBARXEPV  IBARXET  
IBARXEX  IBATLM1  IBCA2  IBCAPP  IBCAPR  IBCB1  IBCB11  IBCBB  
IBCBB0  IBCBB1  IBCBB11  IBCBB2  IBCBB3  IBCBB8  IBCBB9  IBCCC2  
IBCCCB  IBCCCB0  IBCCPT  IBCD2  IBCD3  IBCDP  IBCE837A  IBCECOB  
IBCECOB1  IBCECOB4  IBCEDC  IBCEF1  IBCEF2  IBCEF22  IBCEF4  IBCEF61  
IBCEF72  IBCEF74  IBCEF76  IBCEF80  IBCEF84  IBCEFP  IBCEFP1  IBCEM03  
IBCEM3  IBCEMMR  IBCEMQA  IBCEMRAA  IBCEMRAB  IBCEMSR  IBCEMSR2  IBCEOB01  
IBCERP2  IBCERP6  IBCEU  IBCEU0  IBCEU1  IBCEU2  IBCEXTR1  IBCF  
IBCF22  IBCF23A  IBCNADD  IBCNCH  IBCNCH3  IBCNS1  IBCNS2  IBCNSBL  
IBCNSCD2  IBCNSP  IBCNSP2  IBCNSU1  IBCOIVM1  IBCONS2  IBCOPP2  IBCRBC  
IBCRBC1  IBCRBC11  IBCRBG  IBCRBH1  IBCSC10H  IBCSC3  IBCSC4  IBCSC8  
IBCSCH  IBCU41  IBCU7  IBCU7A  IBCU7U  IBCU81  IBCVA1  IBECEA  
IBEPTC2  IBJTCA  IBJTCA1  IBJTLA  IBJTLB  IBJTLB1  IBJTU1  IBNCPDP3  
IBNCPDPR  IBOBL  IBOHPT2  IBOLK  IBOMTC1  IBOMTE1  IBOVOP1  IBRREL  
IBTRKR41  IBVCB  IBXS36  IBXS8  IBXSAH5  IBXSC32  IBXSC82  IBXSC8H3  
IBXX1  IBXX19  IBXX20  IBY416PO  ^IBA(364.5  IBXSC33  IBYOPOST  ^IBA(364.7  
Income Verification Match 1 IVMUFNC2  
Patient Data Exchange 1 VAQPSE02  

Entry Points

Name Comments DBIA/ICR reference
REQMRAQ
MCR(IBINS) ;Returns whether the ins co IBINS is MCR Will Reimburse
; 0=NO , 1=YES
RPT(X,Y) ; print on report?
; -- input X = mas appt type (P409.1)
; Y = date
; output = true if appt type X (352.1,.02) should be printed on 'Vets w/ Ins and Opt
; Visits' report (352.1,.05) on given date Y (352.1,.06)
BABCSC(DFN,IBDT) ; -- any billable Third Party visits in encounter file for patient
; -- Input dfn = patient, ibdt = date
; output = 1 if any billable stop on date OR 0 if none
EXSET(X,D0,D1) ;returns external value of a set in file D0, field D1
NBDIS(X,Y) ; Is disposition non-billable?
; -- input X = disposition (P37)
; Y = date of appt
; output = true (1) if disposition should be ignored for
; Means test billing (352.2,.03) for given date
NABST(X,Y) ; Returns true (1) if stop code flagged to be ignored by Third Party auto biller (use DT)
NBCL(X,Y) ; Is clinic non-billable?
; -- input X = clinic (P44)
; Y = date of appt
; output = true (1) if clinic should be ignored for
; Means test billing (352.4,.03) for given date
WNRBILL(IBIFN,IBCOB) ; Returns whether the ins for COB seq IBCOB
; is MEDICARE will not reimburse
ETXTQ
NCTCL(IBOE0) ; Determine if a clinic for an outpt encounter is non-count
; IBOE0 = the 0-node of the encounter
NBCT(X,Y) ; Is clinic non-billable for Third Party?
; -- input X = clinic (P44), Y = appt dt
; output = true (1) if clinic non-billable for Third Party (352.4,.05) for given date
NBCSC(X,Y) ; Is clinic stop code non-billable?
; -- input X = clinic stop code (P40.7)
; Y = date of appt
; output = true (1) if clinic stop code should be ignored for
; Means test billing (352.3,.03) for given date
MCRONBIL(IBIFN,IBFLG,IBTRBIL) ; Returns 0 if MCR WNR not on bill IBIFN
; 1 if on bill, is on or before current ins
; 2 if on bill, but after current ins
; IBFLG = a COB number if second "^" piece of return data should be
; 1 if MCRWNR is the insurance at that COB sequence (optional)
; IBTRBIL = tricare for CL1A-5
DISCT(IBOE,IBOE0) ; Determine if disposition has valid status for billing
; Returns 1 if valid, 0 if not valid
; IBOE = encounter ien
; IBOE0 = 0-node of encounter (optional)
BABQ
PT(DFN) ;returns (patient name^long pat id^short pat id) or null if not found
GETSPEC(FILE,FIELD) ; Get fld specifier for FIELD # in FILE
; Use to set DIC("P") for FILE^DICN
NBST(X,Y) ; Is clinic stop code non-billable for Third Party?
; -- input X = clinic stop code (P40.7), Y = appt date
; output = true (1) if stop non-billable for Third Party (352.3,.05) for given dt
MCRWNR(IBINS) ;Returns whether the ins co IBINS is MEDICARE WNR (Will
; NOT Reimburse) 0=NO, 1=YES
GETMOD(IBIFN,IBCPT,EXT) ; Returns 'list' of modifiers for file 399
; procedure for bill IBIFN and proc ien IBCPT
; in modifier seq order, separated by ','
; If EXT = 1, return the actual modifier, not the ptr
DSP(X,Y) ; display on input screen?
; -- input X = mas appt type (P409.1)
; Y = date
; output = true if appt type X (352.1,.02) should be displayed as
; a potential billable visit (352.1,.06) on given date Y (352.1,.03)
PROFEE(IBIFN) ; Returns whether any rev codes for prof fees
; included on bill IBIFN 0 = not included, 1 = included,
; 2 = both inst and prof are included
TRI(IBIFN,Z) ;return 1 if rate type & coverage type-Tricare
ETXT(X) ; -- output error text from 350.8
; -- input error code
IGN(X,Y) ; ignore means test? for appt type on dates
; -- input x = mas appt type
; y = appt date
; output = true if this appt type should not be billed for
; Means Test billing (352.1,.04) for given date
  • ICR #324
    • Status: Active
    • Usage: Private
    MODLST(MODS,DESC,IBMOD) ; Returns string of actual mods
    ; MOVED
    NEEDMRA(IBIFN) ; Returns MRA NEEDED STATUS for bill
    MRATYPE(IBIEN,IBVAR) ; Returns: A = MEDICARE A B = MEDICARE B
    ; C = MEDICARE OTHER null = NOT MEDICARE
    ; for the plan associated with bill ien IBIEN OR grp plan IBIEN
    ; If IBVAR = "" or 'C', the data is from bill ien in IBIEN
    ; = 'P', the data is from grp policy ien in IBIEN
    ;
    REQMRA(IBIFN) ; Determine from site parameter, ins assigned to bill and txmn
    ; rules if request for MRA is needed (MCRWNR must be current ins co)
    ; "R" = not needed due to next carrier not requiring it (txmn rules),
    ; "R1" = not needed due to MRA turned off at site
    ; 0 = not needed, 1 = needed
    NABCT(X,Y) ; Returns true (1) if clinic is flagged to be ignored by Third Party auto biller (use DT)
    APPTCT(IBOE0) ; Determine if appt encounter/appt has valid status for billing
    ; Returns 1 if valid, 0 if not
    ; IBOE0 = the encounter's 0-node (input)

    External References

    Name Field # of Occurrence
    FIELD^DID GETSPEC+3
    $$COB^IBCEF REQMRA+7, REQMRA+22
    $$COBN^IBCEF REQMRA+8, WNRBILL+3, MCRONBIL+8
    $$FT^IBCEF REQMRA+31
    $$INPAT^IBCEF REQMRA+30
    $$POLICY^IBCEF MRATYPE+7
    $$EDIACTV^IBCEF4 REQMRA+14
    $$MODLST^IBEFUNC2 MODLST+2
    $$DISND^IBSDU DISCT+5
    SCAN^IBSDU BABCSC+12
    $$EXPAND^IBTRE EXSET+1
    $$MOD^ICPTMOD GETMOD+8

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DGCR(399 - [#399] NEEDMRA+1, REQMRA+9, REQMRA+19, REQMRA+20, REQMRA+23, WNRBILL+5, TRI+4, TRI+5, PROFEE+5, PROFEE+8
    , PROFEE+9, GETMOD+6
    ^DGCR(399.3 - [#399.3] TRI+5
    ^DIC(36 - [#36] MCRWNR+3, MCR+3, TRI+6
    ^DPT - [#2] PT+1, PT+2
    ^IBA(355.3 - [#355.3] MRATYPE+8
    ^IBE(350.8 - [#350.8] ETXT+4
    ^IBE(352.1 - [#352.1] IGN+7, DSP+7, RPT+7
    ^IBE(352.2 - [#352.2] NBDIS+7
    ^IBE(352.3 - [#352.3] NBCSC+7, NBST+5, NABST+2
    ^IBE(352.4 - [#352.4] NBCL+7, NBCT+5, NABCT+2
    ^IBE(355.2 - [#355.2] MCRWNR+4, MCR+4, TRI+7
    ^IBE(364.4 - [#364.4] REQMRA+27, REQMRA+32
    ^SC - [#44] NCTCL+2
    ^TMP("DIERR" BABCSC+12!

    Label References

    Name Line Occurrences
    $$MCRWNR REQMRA+11, REQMRA+24, WNRBILL+5
    $$TRI MCRONBIL+9
    $$WNRBILL MCRONBIL+9
    BABQ BABCSC+6
    ETXTQ ETXT+3
    REQMRAQ REQMRA+7, REQMRA+12, REQMRA+14, REQMRA+17, REQMRA+21, REQMRA+22

    Naked Globals

    Name Field # of Occurrence
    ^( IGN+7, DSP+7, RPT+7, NBDIS+7, NBCSC+7, NBCL+7, NBST+5, NBCT+5, NABST+2, NABCT+2
    ^(0 GETMOD+6

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    COBINS REQMRA+5~, REQMRA+9*, REQMRA+11, REQMRA+20*, REQMRA+21, REQMRA+23*, REQMRA+24, REQMRA+32
    COBSEQ REQMRA+5~, REQMRA+8*, REQMRA+9, REQMRA+17, REQMRA+20, REQMRA+23
    D0 EXSET~, EXSET+1
    D1 EXSET~, EXSET+1
    DESC MODLST~, MODLST+2
    DFN PT~, PT+1, PT+2, BABCSC~, BABCSC+6, BABCSC+8
    DT NABST+1, NABCT+1, REQMRA+28, REQMRA+29
    EXT GETMOD~, GETMOD+7, GETMOD+8
    FIELD GETSPEC~, GETSPEC+3
    FILE GETSPEC~, GETSPEC+3
    IB0 REQMRA+5~, REQMRA+19*, GETMOD+4~, GETMOD+6*, GETMOD+7, GETMOD+8
    IB00 REQMRA+5~, REQMRA+27*, REQMRA+28, REQMRA+29, REQMRA+32
    IBCBK BABCSC+4~, BABCSC+11*, BABCSC+12
    IBCOB WNRBILL~, WNRBILL+3*, WNRBILL+4*, WNRBILL+5
    IBCPT GETMOD~, GETMOD+6
    IBDA REQMRA+5~, REQMRA+27*, REQMRA+32
    IBDT BABCSC~, BABCSC+6, BABCSC+8
    IBFILTER BABCSC+4~, BABCSC+10*
    IBFLG MCRONBIL~, MCRONBIL+9
    IBIEN MRATYPE~, MRATYPE+7
    IBIFN NEEDMRA~, NEEDMRA+1, REQMRA~, REQMRA+7, REQMRA+8, REQMRA+9, REQMRA+19, REQMRA+20, REQMRA+22, REQMRA+23
    , REQMRA+30, REQMRA+31, WNRBILL~, WNRBILL+3, WNRBILL+5, MCRONBIL~, MCRONBIL+8, MCRONBIL+9, TRI~, TRI+4
    , TRI+5, PROFEE~, PROFEE+5, PROFEE+8, PROFEE+9, GETMOD~, GETMOD+6
    IBINS MCRWNR~, MCRWNR+3, MCR~, MCR+3, TRI+1~, TRI+4*, TRI+6
    IBMOD GETMOD+4~, GETMOD+5*, GETMOD+10*, GETMOD+11, MODLST~, MODLST+2
    IBOE DISCT~, DISCT+5
    IBOE0 APPTCT~, APPTCT+4, NCTCL~, NCTCL+2, DISCT~, DISCT+5
    IBOK REQMRA+5~, REQMRA+7*, REQMRA+11*, REQMRA+12, REQMRA+14*, REQMRA+17*, REQMRA+21*, REQMRA+22, REQMRA+24*, REQMRA+27
    , REQMRA+32*, REQMRAQ
    IBON MCRONBIL+7~, MCRONBIL+8*, MCRONBIL+9*, MCRONBIL+10
    IBPLAN MRATYPE+6~, MRATYPE+7*, MRATYPE+8
    IBPRO PROFEE+4~, PROFEE+5*, PROFEE+7*, PROFEE+9*, PROFEE+10
    IBRTY TRI+1~, TRI+5*, TRI+7
    IBTRBIL MCRONBIL~, TRI+3
    IBVAL BABCSC+4~, BABCSC+12
    IBVAL("BDT" BABCSC+8*
    IBVAL("DFN" BABCSC+8*
    IBVAL("EDT" BABCSC+8*
    IBVAR MRATYPE~, MRATYPE+7
    IBX PT+1~, PT+2*, PT+3, PT+4, BABCSC+4~, BABCSC+5*, BABQ, DISCT+4~, DISCT+5*, DISCT+6
    IBZ GETMOD+4~, GETMOD+5*, GETMOD+6*, GETSPEC+2~
    IBZ("SPECIFIER" GETSPEC+4
    IBZ0 GETMOD+4~, GETMOD+6*
    MODS MODLST~, MODLST+2
    Q MCRONBIL+7~, MCRONBIL+8*, MCRONBIL+9
    STAT APPTCT+3~, APPTCT+4*, APPTCT+5*, APPTCT+7
    U ETXT+4, IGN+7, DSP+7, RPT+7, NBDIS+7, NBCSC+7, NBCL+7, NBST+5, NBCT+5, NABST+2
    , NABCT+2, PT+1, PT+2, PT+3, PT+4, APPTCT+4, NCTCL+2, NEEDMRA+1, REQMRA+9, REQMRA+20
    , REQMRA+23, REQMRA+28, REQMRA+29, REQMRA+32, MCRWNR+4, MCR+4, MRATYPE+8, TRI+5, TRI+7, GETMOD+7
    , GETMOD+8
    X ETXT~, ETXT+2, ETXT+3, ETXT+4, IGN~, IGN+6, IGN+7, DSP~, DSP+6, DSP+7
    , RPT~, RPT+6, RPT+7, NBDIS~, NBDIS+6, NBDIS+7, NBCSC~, NBCSC+6, NBCSC+7, NBCL~
    , NBCL+6, NBCL+7, NBST~, NBST+4, NBST+5, NBCT~, NBCT+4, NBCT+5, NABST~, NABST+1
    , NABST+2, NABCT~, NABCT+1, NABCT+2, PT+1~*, PT+3*, PT+4*, PT+5, EXSET~, EXSET+1
    Y ETXT+2~*, ETXT+4*, ETXTQ, IGN~, IGN+6, IGN+7, DSP~, DSP+6, DSP+7, RPT~
    , RPT+6, RPT+7, NBDIS~, NBDIS+6, NBDIS+7, NBCSC~, NBCSC+6, NBCSC+7, NBCL~, NBCL+6
    , NBCL+7, NBST~, NBST+4, NBST+5, NBCT~, NBCT+4, NBCT+5, NABST~, NABST+1*, NABST+2
    , NABCT~, NABCT+1*, NABCT+2
    Z MCRWNR+2~, MCRWNR+3*, MCRWNR+4*, MCRWNR+5, MCR+2~, MCR+3*, MCR+4*, MCR+5, MCRONBIL+7~, MCRONBIL+9*
    , TRI~, TRI+4, PROFEE+4~, PROFEE+5*, PROFEE+6, PROFEE+8*, PROFEE+9, GETMOD+4~, GETMOD+7*, GETMOD+8*
    , GETMOD+9, GETMOD+10
    Z0 REQMRA+5~, REQMRA+30*, REQMRA+32*, MCRWNR+2~, MCRWNR+3*, MCRWNR+4, MCR+2~, MCR+3*, MCR+4, TRI+1~
    , TRI+6*, TRI+7
    Z1 REQMRA+5~, REQMRA+31*, REQMRA+32, TRI+1~, TRI+2*, TRI+3, TRI+7*, TRI+8
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All