IBCRHBRA ;ALB/ARH - RATES: UPLOAD RC V1 CPT 2000 CHARGES ; 10-OCT-2000
Source file <IBCRHBRA.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| CPT2000 | ; add CPT replacement codes to RC charge sets, use the current charge of the CPT they are replacing
 | 
|
| EXISTS(IBCS,IBITM,IBEFFDT,IBCHG) | ; return ifn of charge item if this charge exists
 | 
|
| DEL(IBCS,IBITM,IBEFFDT,IBCHG) | ; delete any existing charges the site may have added to the charge sets for the New CPT replacement codes
 ; the charge to be deleted must be effective before RC v1.1 and it must not be the correct replacement, ; ie. delete any v1 charge for the item in a CS that does not match the date/charge passed in  | 
|
| CSRC(IBCS) | ; return true if the Charge Set is Reasonable Charges and CPT based
 | 
|
| F2000 | ; old^new CPTs
 | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| FileNo | Call Tags | 
|---|---|
| ^IBA(363.2 - [#363.2] | Classic Fileman Calls |