IBYPPM ;ALB/CXW,TJH - IB*2*333 POST INIT: ADD TORT/INTERAGENCY RATES NOV 2005 ; 11/23/05
Source file <IBYPPM.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| POST | ;
|
|
| ADDCI(EFFDAT) | ; 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)
|
|
| 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) | ;
|
|
| CIF | ; Charge Items (363.2): Bedsection ^ Charge Set ^Effective Date ^ Revenue Code ^ Charge
|
|
| TORT | ;; 2005 Tortiously Liable All Inclusive
|
|
| IA | ;; 2005 Interagency
|
| FileNo | Call Tags |
|---|---|
| ^IBA(363.2 - [#363.2] | Classic Fileman Calls |
