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 |