Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points
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>

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
    Info |  Source |  Entry Points