IBCRBC2 ;ALB/ARH - RATES: BILL CALCULATION OF ITEM CHARGE ; 22-MAY-1996
Source file <IBCRBC2.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Package | Total | Caller Graph |
|---|---|---|
| Integrated Billing | 4 | IBCRBC1 IBCRBC11 IBCRCI IBCRCU1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BITMCHG(RS,CS,ITEM,EVDT,UNITS,MOD,INSRC,IDFRC,SAVE) | ; get bill charges for a specific item, rate schedule and charge set and date set into temp array
|
|
| COMMENT(LINE,COMM) | ; set comment into charge array for a particular line item
|
|
| COMMUB(CS,UNITS,BASE) | ; return comment for special units and base
|
|
| ALLBEDS(RS,CS,EVDT,RC,DFRC,SAVE) | ; get charges for all bedsections active on date of visit
; each effective date supercedes all previous effective date, regardless of the item ; used for per diem rates where the charges are associated with a bedsection, but the item being billed is not ; a bedsection, so the count of the item on the bill is found and applied as the units to all bedsections active ; on the event date (the 3 opt visit dates on a bill are the units for the Outpatient Visit bedsection charge) |
|
| CPTUNITS(CS,CHGMTH,ITLINE) | ; return CPT units based on Charge Method and CPT data
; Input: CS is the related Charge Set ; CHGMTH is the Rate Schedule Charge Method (363.3, .05) ; ITLINE is item data from CPT^IBCRBG1 ; Output: calculated units for CPT, 1 or calculated for miles/minutes/hours |
|
| CHGOTH(IBIFN,RS,EVDT) | ; check if the Rate Schedule charges are applicable to the event date for the bill
; this is relevent to RC v2.0 and type of care of Other ; both Rate Schedule is SNF and event date is SNF care or neither can be otherwise no charge ; SNF charges can't be used for non-SNF care and non-SNF charges can't be used for SNF care ; Output: returns true if charges and bill date are of same type, SNF or non-SNF |
|
| CHGOTHQ | ||
| CHGICU(CS,BS) | ; check if charge and bedsection match relative to ICU RC 2.0+, compares Charge Set Name and Bedsection
; both the charge set and the bedsection have to be ICU or neither of them can be ICU otherwise no charge ; ICU charges can't be used with non-ICU bedsections and non-ICU charges can't be used with ICU bedsection ; Output: returns true if charges and bedsection are of same type, ICU or non-ICU |
| Name | Field # of Occurrence |
|---|---|
| $$MODCHG^IBCRCC | BITMCHG+25 |
| $$PRVCHG^IBCRCC | BITMCHG+24 |
| $$RATECHG^IBCRCC | BITMCHG+27 |
| ITMCHG^IBCRCC | BITMCHG+10 |
| $$CPTUNITS^IBCRCU1 | CPTUNITS+9 |
| CSALL^IBCRCU1 | ALLBEDS+8 |
| $$MCCRUTL^IBCRU1 | CHGICU+5 |
| $$RVLNK^IBCRU6 | BITMCHG+19 |
| $$RSOTHER^IBCRU8 | CHGOTH+9 |
| $$VERSDT^IBCRU8 | CHGOTH+6 |
| $$BOTHER^IBCU3 | CHGOTH+10 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBE(363.1 - [#363.1] | BITMCHG+6, COMMUB+2, CHGICU+6 |
| ^IBE(363.3 - [#363.3] | BITMCHG+7, COMMUB+2 |
| ^TMP($J | BITMCHG+12, BITMCHG+29*, BITMCHG+30*, COMMENT+1, COMMENT+2, COMMENT+3* |
| Name | Line Occurrences |
|---|---|
| $$COMMUB | BITMCHG+32 |
| BITMCHG | ALLBEDS+11 |
| CHGOTHQ | CHGOTH+6, CHGOTH+7 |
| COMMENT | BITMCHG+32, BITMCHG+33, BITMCHG+34, BITMCHG+35 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BASE | COMMUB~, COMMUB+5 |
| BS | CHGICU~, CHGICU+4*, CHGICU+9, CHGICU+10 |
| CHGMTH | CPTUNITS~, CPTUNITS+5*, CPTUNITS+6, CPTUNITS+7, CPTUNITS+8 |
| COMM | COMMENT~, COMMENT+3 |
| CS | BITMCHG~, BITMCHG+3, BITMCHG+6, BITMCHG+10, BITMCHG+19, BITMCHG+24, BITMCHG+25, BITMCHG+30, BITMCHG+32, COMMUB~ , COMMUB+2, ALLBEDS~, ALLBEDS+6, ALLBEDS+8, ALLBEDS+11, CPTUNITS~, CPTUNITS+5*, CPTUNITS+9, CHGICU~, CHGICU+6 |
| DFRC | ALLBEDS~, ALLBEDS+11 |
| DT | BITMCHG+5 |
| EVDT | BITMCHG~, BITMCHG+5*, BITMCHG+10, BITMCHG+24, BITMCHG+27, BITMCHG+30, ALLBEDS~, ALLBEDS+6, ALLBEDS+8, ALLBEDS+11 , CHGOTH~, CHGOTH+6, CHGOTH+10 |
| IBACHRG | BITMCHG+2~, BITMCHG+27*, BITMCHG+30 |
| IBBASE | BITMCHG+3~, BITMCHG+16*, BITMCHG+23, BITMCHG+32 |
| IBBS | BITMCHG+2~, BITMCHG+7*, BITMCHG+8, BITMCHG+30 |
| IBCHGARR | BITMCHG+2~, BITMCHG+10 |
| IBCHGARR( | BITMCHG+13, BITMCHG+16 |
| IBCHRG | BITMCHG+2~, BITMCHG+16*, BITMCHG+22*, BITMCHG+23*, BITMCHG+24, BITMCHG+26*, BITMCHG+30 |
| IBCI | BITMCHG+2~, BITMCHG+16*, BITMCHG+30 |
| IBCM | COMMUB+1~, COMMUB+2*, COMMUB+3*, COMMUB+4 |
| IBCNT | BITMCHG+2~, BITMCHG+12*, BITMCHG+29*, BITMCHG+30, BITMCHG+32, BITMCHG+33, BITMCHG+34, BITMCHG+35 |
| IBCOM | BITMCHG+3~, BITMCHG+32*, BITMCHG+33*, BITMCHG+34*, BITMCHG+35* |
| IBCS0 | BITMCHG+2~, BITMCHG+6*, BITMCHG+7 |
| IBCSICU | CHGICU+4~*, CHGICU+7*, CHGICU+9, CHGICU+10 |
| IBCSN | CHGICU+4~, CHGICU+6*, CHGICU+7 |
| IBDRVCD | BITMCHG+2~, BITMCHG+6*, BITMCHG+19 |
| IBDTTY | CHGOTH+5~*, CHGOTH+10*, CHGOTH+12, CHGOTH+13 |
| IBI | BITMCHG+2~, BITMCHG+13*, BITMCHG+16 |
| IBICU | CHGICU+4~, CHGICU+5*, CHGICU+9, CHGICU+10 |
| IBIFN | CHGOTH~, CHGOTH+7, CHGOTH+10 |
| IBITEMS | ALLBEDS+6~, ALLBEDS+8, ALLBEDS+10 |
| IBITEMS( | ALLBEDS+10 |
| IBITM | ALLBEDS+6~, ALLBEDS+10*, ALLBEDS+11 |
| IBLN | BITMCHG+2~, BITMCHG+16*, BITMCHG+18 |
| IBMCHRG | BITMCHG+3~, BITMCHG+25*, BITMCHG+26, BITMCHG+34 |
| IBMODS | BITMCHG+3~, BITMCHG+6*, BITMCHG+25 |
| IBOK | CHGOTH+5~*, CHGOTH+12*, CHGOTH+13*, CHGOTHQ, CHGICU+4~*, CHGICU+6*, CHGICU+9*, CHGICU+10*, CHGICU+11 |
| IBPCHRG | BITMCHG+2~, BITMCHG+16*, BITMCHG+24*, BITMCHG+25, BITMCHG+33 |
| IBPPRV | BITMCHG+2~, BITMCHG+6*, BITMCHG+24 |
| IBRCHRG | BITMCHG+2~, BITMCHG+16*, BITMCHG+27*, BITMCHG+35 |
| IBRSTY | CHGOTH+5~*, CHGOTH+9*, CHGOTH+12, CHGOTH+13 |
| IBRVCD | BITMCHG+2~, BITMCHG+18*, BITMCHG+19*, BITMCHG+20*, BITMCHG+30 |
| IBTCHRG | BITMCHG+2~, BITMCHG+26*, BITMCHG+27, BITMCHG+30 |
| IBUNIT | CPTUNITS+5~*, CPTUNITS+6*, CPTUNITS+7*, CPTUNITS+8*, CPTUNITS+9*, CPTUNITS+10 |
| IBX | COMMENT+1~, COMMENT+2*, COMMENT+3, COMMUB+1~*, COMMUB+4*, COMMUB+5*, COMMUB+6 |
| IBY | COMMUB+1~*, COMMUB+4*, COMMUB+5 |
| IDFRC | BITMCHG~, BITMCHG+5*, BITMCHG+20 |
| INSRC | BITMCHG~, BITMCHG+5*, BITMCHG+18 |
| ITEM | BITMCHG~, BITMCHG+3, BITMCHG+7, BITMCHG+10, BITMCHG+19, BITMCHG+24, BITMCHG+30 |
| ITLINE | CPTUNITS~, CPTUNITS+5*, CPTUNITS+6, CPTUNITS+7, CPTUNITS+8 |
| LINE | COMMENT~, COMMENT+1, COMMENT+2, COMMENT+3 |
| MOD | BITMCHG~, BITMCHG+5*, BITMCHG+10, BITMCHG+30 |
| RC | ALLBEDS~, ALLBEDS+11 |
| RS | BITMCHG~, BITMCHG+5*, BITMCHG+27, BITMCHG+30, ALLBEDS~, ALLBEDS+11, CHGOTH~, CHGOTH+7, CHGOTH+9 |
| SAVE | BITMCHG~, BITMCHG+5*, BITMCHG+6, BITMCHG+7, BITMCHG+30, ALLBEDS~, ALLBEDS+11 |
| U | BITMCHG+6, BITMCHG+7, BITMCHG+16, BITMCHG+18, BITMCHG+19, BITMCHG+30, BITMCHG+33, BITMCHG+34, BITMCHG+35, COMMUB+2 , CPTUNITS+6, CPTUNITS+7, CPTUNITS+8, CHGICU+7 |
| UNITS | BITMCHG~, BITMCHG+3, BITMCHG+22, BITMCHG+30, BITMCHG+32, COMMUB~, COMMUB+4 |
