IB20P561 ;ALB/CXW - IB*2.0*561 POST INIT: REVENUE CODE FOR MS-DRGS; 03-03-2016
Source file <IB20P561.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
POST | ;
|
|
RVDRG(IBDT317,IBDT318) | ; default rvc to 124 for DRGs in Reasonable Charges (#363.2)
|
|
RVDRGQ | ||
MSG(IBA) | ;
|
FileNo | Call Tags |
---|---|
^IBA(363.2 - [#363.2] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DGCR(399.2 - [#399.2] | RVDRG+15 |
^IBA(363.2 - [#363.2] | RVDRG+23, RVDRG+24, RVDRG+25, RVDRG+26 |
^IBE(363.1 - [#363.1] | RVDRG+18, RVDRG+19 |
^IBE(363.3 - [#363.3] | RVDRG+20 |
^XTMP( | RVDRG+9!, RVDRG+11*, RVDRG+31*, RVDRGQ* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DA | RVDRG+3~, RVDRG+35*, RVDRG+36! |
DIE | RVDRG+3~, RVDRG+35*, RVDRG+36! |
DR | RVDRG+3~, RVDRG+36*! |
DT | RVDRG+3~, RVDRG+10*, RVDRG+11 |
IB561 | RVDRG+2~, RVDRG+4*, RVDRG+9, RVDRG+11, RVDRG+31, RVDRGQ |
IBA | POST+1~, MSG~, MSG+1 |
IBBR0 | RVDRG+2~, RVDRG+20* |
IBCI | RVDRG+2~, RVDRG+25*, RVDRG+26, RVDRG+31, RVDRG+35 |
IBCI0 | RVDRG+2~, RVDRG+27*, RVDRG+28, RVDRG+29 |
IBCIA | RVDRG+2~, RVDRG+26*, RVDRG+27, RVDRG+31, RVDRG+33 |
IBCNO | RVDRG+2~, RVDRG+4*, RVDRG+32*, RVDRGQ |
IBCNT | RVDRG+2~, RVDRG+4*, RVDRG+37*, RVDRGQ, RVDRGQ+1 |
IBCS | RVDRG+2~, RVDRG+18*, RVDRG+19, RVDRG+22, RVDRG+31 |
IBCS0 | RVDRG+2~, RVDRG+19*, RVDRG+20 |
IBDRGC | RVDRG+2~, RVDRG+28*, RVDRG+30 |
IBDRGF | RVDRG+2~, RVDRG+29* |
IBDT317 | POST+1~, POST+4*, POST+5, RVDRG~, RVDRG+24 |
IBDT318 | POST+1~, POST+4*, POST+5, RVDRG~, RVDRG+24 |
IBITM | RVDRG+2~, RVDRG+23*, RVDRG+24, RVDRG+25 |
IBNEF | RVDRG+2~, RVDRG+24*, RVDRG+25 |
IBRVC | RVDRG+2~, RVDRG+15*, RVDRG+16, RVDRG+33, RVDRG+36 |
IBXRF | RVDRG+2~, RVDRG+22*, RVDRG+23, RVDRG+24, RVDRG+25 |
U | POST+1*, RVDRG+11, RVDRG+20, RVDRG+27, RVDRG+30, RVDRG+33, RVDRGQ |
X | RVDRG+3~, RVDRG+11, RVDRG+36! |
X1 | RVDRG+3~, RVDRG+10* |
X2 | RVDRG+3~, RVDRG+10* |
Y | RVDRG+3~, RVDRG+36! |