IBEFUNC ;ALB/RLW - EXTRINSIC FUNCTIONS ;12-JUN-92
Source file <IBEFUNC.m>
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 |
|
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 |