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

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

Entry Points

Name Comments DBIA/ICR reference
ETXT(X) ; -- output error text from 350.8
; -- input error code
ETXTQ
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
    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)
    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)
    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
    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
    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
    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
    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
    NABST(X,Y) ; Returns true (1) if stop code flagged to be ignored by Third Party auto biller (use DT)
    NABCT(X,Y) ; Returns true (1) if clinic is flagged to be ignored by Third Party auto biller (use DT)
    PT(DFN) ;returns (patient name^long pat id^short pat id) or null if not found
    EXSET(X,D0,D1) ;returns external value of a set in file D0, field D1
    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
    BABQ
    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)
    NCTCL(IBOE0) ; Determine if a clinic for an outpt encounter is non-count
    ; IBOE0 = the 0-node of the encounter
    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)
    NEEDMRA(IBIFN) ; Returns MRA NEEDED STATUS for bill
    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
    REQMRAQ
    MCRWNR(IBINS) ;Returns whether the ins co IBINS is MEDICARE WNR (Will
    ; NOT Reimburse) 0=NO, 1=YES
    WNRBILL(IBIFN,IBCOB) ; Returns whether the ins for COB seq IBCOB
    ; is MEDICARE will not reimburse
    MCR(IBINS) ;Returns whether the ins co IBINS is MCR Will Reimburse
    ; 0=NO , 1=YES
    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
    ;
    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
    TRI(IBIFN,Z) ;return 1 if rate type & coverage type-Tricare
    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
    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
    MODLST(MODS,DESC,IBMOD) ; Returns string of actual mods
    ; MOVED
    GETSPEC(FILE,FIELD) ; Get fld specifier for FIELD # in FILE
    ; Use to set DIC("P") for FILE^DICN

    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