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 |
Package | Total | Caller Graph |
---|---|---|
Integrated Billing | 3 | IBCRBG IBCRBH1 IBJDB21 |
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 |