IBCRBC11 ;ALB/ARH - RATES: BILL CALCULATION BILLABLE EVENTS ;10-OCT-1998
Source file <IBCRBC11.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 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| INPTDRG(IBIFN,RS,CS) | ; Determine charges for INPATIENT DRG billable events
; - the billable events are DRG's, the Transfer DRG of the patient treating specialties movements, ; pulled from the PTF record each time the charges are calculated (INPTPTF^IBCRCG) ; - each day of billable care is calculated separately in case a rate becomes in/active ; - if bedsection is ICU then allow ICU Charge Set only |
|
| UNASSOC(IBIFN,RS,CS,IBMIARR) | ; Determine charges for UNASSOCIATED billable events
; - the billable event is not associated with any data element on the bill ; - the item to charge is selected by the user from the list of billing items (363.21) ; - the items the user selected to add charges to the bill for are passed in in array IBMIARR ; - if the charge set is limited by region then either the items division or if no item division then the bill's ; Default Division must be contained in the sets region |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | INPTDRG+11, INPTDRG+15, UNASSOC+11, UNASSOC+15 |
| ^DIC(36 - [#36] | INPTDRG+13, UNASSOC+13 |
| ^IBE(363.1 - [#363.1] | INPTDRG+10, UNASSOC+10 |
| ^TMP($J | INPTDRG+18, INPTDRG+20, INPTDRG+28! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CS | INPTDRG~, INPTDRG+6, INPTDRG+8, INPTDRG+10, INPTDRG+22, INPTDRG+24, INPTDRG+27, UNASSOC~, UNASSOC+8, UNASSOC+10 , UNASSOC+18, UNASSOC+19, UNASSOC+22, UNASSOC+25 |
| IBBDIV | INPTDRG+15*, INPTDRG+24, UNASSOC+7~, UNASSOC+15*, UNASSOC+22 |
| IBBLITEM | INPTDRG+6~, INPTDRG+10*, INPTDRG+17, UNASSOC+7~, UNASSOC+10*, UNASSOC+17 |
| IBBS | INPTDRG+6~, INPTDRG+20*, INPTDRG+22, INPTDRG+26 |
| IBCHGMTH | INPTDRG+6~, INPTDRG+10*, INPTDRG+17, UNASSOC+7~, UNASSOC+10*, UNASSOC+17 |
| IBCMPNT | INPTDRG+6~, INPTDRG+10*, INPTDRG+26, UNASSOC+7~, UNASSOC+10*, UNASSOC+24 |
| IBDIV | INPTDRG+20*, INPTDRG+24, INPTDRG+26, UNASSOC+7~, UNASSOC+20*, UNASSOC+22, UNASSOC+24 |
| IBEVDT | INPTDRG+6~, INPTDRG+18*, INPTDRG+20, INPTDRG+27, UNASSOC+7~, UNASSOC+19*, UNASSOC+25 |
| IBI | UNASSOC+7~, UNASSOC+18*, UNASSOC+19 |
| IBIDRC | INPTDRG+6~, INPTDRG+11*, INPTDRG+12*, INPTDRG+13*, INPTDRG+27, UNASSOC+7~, UNASSOC+11*, UNASSOC+12*, UNASSOC+13*, UNASSOC+25 |
| IBIFN | INPTDRG~, INPTDRG+6, INPTDRG+8, INPTDRG+11, INPTDRG+12, INPTDRG+15, UNASSOC~, UNASSOC+8, UNASSOC+11, UNASSOC+12 , UNASSOC+15 |
| IBITM | INPTDRG+6~, INPTDRG+20*, INPTDRG+26, INPTDRG+27, UNASSOC+7~, UNASSOC+19*, UNASSOC+24, UNASSOC+25 |
| IBMIARR | UNASSOC~, UNASSOC+8 |
| IBMIARR( | UNASSOC+18, UNASSOC+19 |
| IBRVCD | UNASSOC+7~, UNASSOC+20*, UNASSOC+25 |
| IBSAVE | INPTDRG+6~, INPTDRG+26*, INPTDRG+27, UNASSOC+7~, UNASSOC+24*, UNASSOC+25 |
| IBTUNITS | UNASSOC+7~, UNASSOC+20*, UNASSOC+24 |
| IBTYPE | INPTDRG+6~, INPTDRG+10*, INPTDRG+26, UNASSOC+7~, UNASSOC+10*, UNASSOC+24 |
| IBX | INPTDRG+6~, INPTDRG+10*, INPTDRG+20*, UNASSOC+7~, UNASSOC+10*, UNASSOC+19*, UNASSOC+20 |
| RS | INPTDRG~, INPTDRG+27, UNASSOC~, UNASSOC+18, UNASSOC+19, UNASSOC+25 |
| U | INPTDRG+10, INPTDRG+13, INPTDRG+15, INPTDRG+20, UNASSOC+10, UNASSOC+13, UNASSOC+15, UNASSOC+19, UNASSOC+20 |
