IB20P418 ;ALB/CXW - IB*2*418 POST INIT: ADD TORT/INTERAGENCY RATES JULY 2011;07-11-2011
Source file <IB20P418.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
POST | ;
|
|
ADDBS | ; Add new bedsections (399.1, .12)
|
|
BSQ | ||
ADDCS | ; Add Charge Sets (363.1)
|
|
CSQ | ||
ADDCI(IBEFFDT) | ; Add Charge Items (363.2) needs Charge Sets, pass in the effective date of the new charges
|
|
CIQ | ||
SETCI | ; set Charge Item (duplicates based on item, CS, eff dt, rev cd)
|
|
ADDRS | ; add Rate Schedules (363)
; add new charge sets to the link if TL/IA-OPT VST exists |
|
A | ||
RSQ | ;
|
|
MCCRUTL(X,P) | ; returns IFN of item in 399.1 if Name is found and piece P is true
|
|
RVCD(RVCD) | ; returns IFN if revenue code is valid and active
|
|
MSG(X) | ;
|
|
BSF | ; Bedsections (399.1, .12): Name ^ Abbreviation
|
|
CSF | ; Charge Sets (363.1): Name ^ Billing Rate ^ Billable Event ^^ Default Revenue Code
|
|
CIF | ; Charge Items (363.2): Bedsection ^ Charge Set ^Effective Date ^ Revenue Code ^ Charge
|
|
TORT | ;; 2011 Tortiously Liable All Inclusive
|
|
IA | ;; 2011 Interagency
|
FileNo | Call Tags |
---|---|
^IBE(363.1 - [#363.1] | Classic Fileman Calls |
^IBA(363.2 - [#363.2] | Classic Fileman Calls |
^DGCR(399.1 - [#399.1] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DGCR(399.1 - [#399.1] | MCCRUTL+2 |
^DGCR(399.2 - [#399.2] | RVCD+2 |
^IBA(363.2 - [#363.2] | SETCI+9 |
^IBE(363 - [#363] | ADDRS+4, ADDRS+6, ADDRS+8, A, A+1, A+9 |
^IBE(363.1 - [#363.1] | ADDCS+5, SETCI+2, A+2, A+8 |
^IBE(363.3 - [#363.3] | ADDCS+6 |
Name | Line Occurrences |
---|---|
$$MCCRUTL | ADDBS+6, ADDBS+8, ADDCS+7, SETCI+3 |
$$RVCD | ADDCS+8, SETCI+5 |
ADDBS | POST+4 |
ADDCI | POST+6 |
ADDCS | POST+5 |
ADDRS | POST+7 |
CIQ | ADDCI+3 |
MSG | POST+2, POST+9, POST+10, ADDBS+9, BSQ, BSQ+1, CSQ, CSQ+1, ADDCI+3, ADDCI+7 , CIQ, CIQ+1, SETCI+2, SETCI+3, SETCI+10, RSQ+1, RSQ+2 |
SETCI | ADDCI+5 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DA | ADDBS+1~, ADDBS+15*!, ADDCS+1~, ADDCS+16*!, ADDCI+1~, SETCI+17*!, ADDRS+2~ |
DA(1 | A+10* |
DD | ADDBS+1~, ADDBS+11!, ADDCS+1~, ADDCS+10!, ADDCI+1~, SETCI+13!, A+10! |
DIC | ADDBS+1~, ADDBS+11*!, ADDCS+1~, ADDCS+10*!, ADDCI+1~, SETCI+13*!, ADDRS+2~, A+10*! |
DIC(0 | ADDBS+11*, ADDCS+10*, SETCI+13*, A+10* |
DIE | ADDBS+1~, ADDBS+15*!, ADDCS+1~, ADDCS+16*!, ADDCI+1~, SETCI+17*!, ADDRS+2~ |
DLAYGO | ADDBS+1~, ADDBS+11*, ADDCS+1~, ADDCS+10*, ADDCI+1~, SETCI+13*, ADDRS+2~, A+10*! |
DO | ADDBS+1~, ADDBS+11!, ADDCS+1~, ADDCS+10!, ADDCI+1~, SETCI+13!, A+10! |
DR | ADDBS+1~, ADDBS+14*, ADDBS+15!, ADDCS+1~, ADDCS+13*, ADDCS+14*, ADDCS+15*, ADDCS+16!, ADDCI+1~, SETCI+16* , SETCI+17!, ADDRS+2~ |
IBA | ADDBS+1~, ADDCS+1~, ADDCI+1~ |
IBBE | ADDCS+1~, ADDCS+7*, ADDCS+13 |
IBBR | ADDCS+1~, ADDCS+6*, ADDCS+13 |
IBCHG | ADDCI+1~, SETCI+6*, SETCI+10, SETCI+16 |
IBCI | ADDCI+1~, SETCI+3*, SETCI+9, SETCI+10*, SETCI+11, SETCI+13 |
IBCNT | ADDBS+1~, ADDBS+2*, ADDBS+12*, BSQ, ADDCS+1~*, ADDCS+11*, CSQ, ADDCI+1~*, CIQ, SETCI+14* , ADDRS+2~, ADDRS+3*, A+12*, RSQ+1 |
IBCNT1 | ADDCI+1~*, ADDCI+7, SETCI+10* |
IBCS | ADDCI+1~, SETCI+2*, SETCI+7, SETCI+16 |
IBCSFN | ADDRS+2~, A+8*, A+9, A+10 |
IBDFLTDT | ADDCI+1~, ADDCI+3*, SETCI+4 |
IBDT | ADDCI+1~, SETCI+4*, SETCI+9, SETCI+16 |
IBEFFDT | POST+1~, POST+3*, POST+6, ADDCI~, ADDCI+3 |
IBFN | ADDBS+1~, ADDBS+12*, ADDBS+15, ADDCS+1~, ADDCS+11*, ADDCS+16, ADDCI+1~, SETCI+14*, SETCI+17 |
IBI | ADDBS+1~, ADDBS+4*, ADDCS+1~, ADDCS+3*, ADDCI+1~, ADDCI+5*, ADDRS+2~, ADDRS+3*, ADDRS+4*, ADDRS+6 |
IBJ | ADDRS+2~, A+7*, A+12 |
IBK | ADDRS+2~, A+7*, A+8 |
IBLN | ADDBS+1~, ADDBS+4*, ADDBS+6, ADDBS+8, ADDBS+9, ADDBS+11, ADDBS+14, ADDCS+1~, ADDCS+3*, ADDCS+5 , ADDCS+6, ADDCS+7, ADDCS+8, ADDCS+10, ADDCS+14, ADDCI+1~, ADDCI+5*, SETCI+2, SETCI+3, SETCI+4 , SETCI+5, SETCI+6, SETCI+10, ADDRS+2~, A+1*, A+2 |
IBOTH | ADDRS+2~, A+2*, A+3, A+4 |
IBRB | ADDBS+1~, ADDBS+8*, ADDBS+9, ADDBS+14 |
IBRSC | ADDRS+2~, A*, A+1 |
IBRSN | ADDRS+2~, ADDRS+6*, ADDRS+8, A, A+1, A+9, A+10 |
IBRVCD | ADDCS+1~, ADDCS+8*, ADDCS+15, ADDCI+1~, SETCI+5*, SETCI+9, SETCI+16 |
IBTLIA | ADDRS+2~, ADDRS+9*, A, A+3*, A+4*, A+5, A+7 |
IBX | ADDCI+1~, SETCI+9*, MCCRUTL+1~, MCCRUTL+2*, RVCD+1~, RVCD+2* |
IBXRF | ADDCI+1~, SETCI+7*, SETCI+9 |
IBY | MCCRUTL+1~*, MCCRUTL+2*, MCCRUTL+3, RVCD+1~*, RVCD+2*, RVCD+3 |
IBZ | ADDCI+1~, SETCI+9*, SETCI+10 |
P | MCCRUTL~, MCCRUTL+2 |
RVCD | RVCD~, RVCD+2 |
U | ADDBS+6, ADDBS+8, ADDBS+9, ADDBS+11, ADDBS+14, ADDCS+5, ADDCS+6, ADDCS+7, ADDCS+8, ADDCS+10 , ADDCS+14, SETCI+2, SETCI+3, SETCI+4, SETCI+5, SETCI+6, SETCI+9, SETCI+10, ADDRS+8, A+2 , MCCRUTL+2, RVCD+2 |
X | ADDBS+1~, ADDBS+11*!, ADDBS+15!, ADDCS+1~, ADDCS+10*!, ADDCS+16!, ADDCI+1~, SETCI+13*!, SETCI+17!, ADDRS+2~ , A+10*!, MCCRUTL~, MCCRUTL+2, MSG~, MSG+1 |
Y | ADDBS+1~, ADDBS+11!, ADDBS+12, ADDBS+15!, ADDCS+1~, ADDCS+10!, ADDCS+11, ADDCS+16!, ADDCI+1~, SETCI+13! , SETCI+14, SETCI+17!, ADDRS+2~ |