IBCRBG2 ;ALB/ARH - RATES: BILL SOURCE EVENTS (INPT CONT) ; 01-OCT-03
Source file <IBCRBG2.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 |
|---|---|---|
| INPTRSET(IBIFN,CS) | ; reset Inpatient data due to bedsection Tort 03 and Other Type of Care RC v2.0
; (based on INPTPTF since that deals with timeframe and end of bill) |
|
| INPTBS(IBIFN,RC) | ; with output from INPTPTF^IBCRBG, reset bedsections due to changes with Tort 03 and RC
; - Some Specialties are changed to PRRTP bedsection (beginning with Tort 03) ; - Some Specialties are changed to ICU bedsection for RC only (beginning with RC v2.0) ; - Nursing Home Care and Observation bedsections are not billable with RC DRG (per diem) so remove DRG ; (based on INPTPTF since that deals with timeframe and end of bill) |
|
| INPTOTH(IBIFN,RC) | ; with output from INPTPTF^IBCRBG, reset Other type of care and Tort 03 changes
; - If type of care is Other then bedsection is replaced and DRG deleted (began with RC v2.0) ; (based on INPTPTF since that deals with timeframe and end of bill) |
|
| BSUPD(SPCLTY,DATE,RC) | ; return updated bedsection name for specialty passed in (42.4 ifn)
; beginning with TORT 2003 some specialties were moved to new PRRTP bedsection ; beginning with RC v2.0 some specialties were moved to a new ICU bedsection, only applies to RC charges |
|
| TORT03() | ; return effective date of TORT 2003, date when PRRTP bedsection specialties changed
|
|
| TORT11() | ; return effective date when POLYTRAUMA bedsection specialty changed
|
|
| RC20() | ; return effective date of RC v2.0, date when ICU bedsection specialties changed
|
|
| NODRG(SPCLTY) | ; return specialty ifn followed by bedsection name if the specialty should not be charged a DRG charge
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | INPTOTH+5, INPTOTH+6 |
| ^DGCR(399.1 - [#399.1] | BSUPD+7 |
| ^IBE(363.1 - [#363.1] | INPTRSET+2 |
| ^TMP($J | INPTBS+8, INPTBS+9, INPTBS+16*, INPTOTH+11, INPTOTH+12, INPTOTH+17* |
| Name | Line Occurrences |
|---|---|
| $$BSUPD | INPTBS+13 |
| $$NODRG | INPTBS+14 |
| $$RC20 | INPTOTH+13, BSUPD+6 |
| $$TORT03 | BSUPD+4 |
| $$TORT11 | BSUPD+5 |
| INPTBS | INPTRSET+4 |
| INPTOTH | INPTRSET+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CS | INPTRSET~, INPTRSET+2 |
| DATE | BSUPD~, BSUPD+3*, BSUPD+4, BSUPD+5, BSUPD+6 |
| DT | BSUPD+3 |
| IBBS | INPTOTH+4~, INPTOTH+9*, INPTOTH+16 |
| IBCGTY | INPTBS+6~ |
| IBDT | INPTBS+6~, INPTBS+8*, INPTBS+9, INPTBS+13, INPTBS+16, INPTOTH+4~, INPTOTH+11*, INPTOTH+12, INPTOTH+13, INPTOTH+17 |
| IBDT1 | INPTOTH+4~, INPTOTH+7*, INPTOTH+8, INPTOTH+11 |
| IBDT2 | INPTOTH+4~, INPTOTH+7*, INPTOTH+8*, INPTOTH+11 |
| IBIFN | INPTRSET~, INPTRSET+4, INPTRSET+5, INPTBS~, INPTOTH~, INPTOTH+5, INPTOTH+6 |
| IBLN | INPTBS+6~, INPTBS+9*, INPTBS+10, INPTBS+12, INPTOTH+4~, INPTOTH+12*, INPTOTH+15 |
| IBNBS | INPTBS+6~, INPTBS+13*, INPTBS+15 |
| IBNDRG | INPTBS+6~, INPTBS+14*, INPTBS+15 |
| IBNLN | INPTBS+6~, INPTBS+12*, INPTBS+13*, INPTBS+14*, INPTBS+16, INPTOTH+4~, INPTOTH+15*, INPTOTH+16*, INPTOTH+17 |
| IBOT | INPTOTH+4~, INPTOTH+5*, INPTOTH+6 |
| IBOTLN | INPTOTH+4~, INPTOTH+6*, INPTOTH+7, INPTOTH+9 |
| IBRC | INPTRSET+2~*, INPTRSET+4, INPTRSET+5 |
| IBS | NODRG+1~*, NODRG+2, NODRG+3 |
| IBSPCLTY | INPTBS+6~, INPTBS+10*, INPTBS+13, INPTBS+14 |
| IBX | BSUPD+3~*, BSUPD+4*, BSUPD+5*, BSUPD+6*, BSUPD+7, NODRG+1~*, NODRG+2*, NODRG+3*, NODRG+4 |
| IBY | BSUPD+3~, BSUPD+7* |
| IBZ | BSUPD+3~*, BSUPD+7*, BSUPD+8 |
| RC | INPTBS~, INPTBS+13, INPTOTH~, INPTOTH+4, BSUPD~, BSUPD+6 |
| SPCLTY | BSUPD~, BSUPD+3*, BSUPD+4, BSUPD+5, BSUPD+6, NODRG~, NODRG+1, NODRG+2, NODRG+3 |
| U | INPTBS+10, INPTBS+13, INPTBS+14, INPTOTH+7, INPTOTH+16, BSUPD+7 |