IBCRHBRA ;ALB/ARH - RATES: UPLOAD RC V1 CPT 2000 CHARGES ; 10-OCT-2000
Source file <IBCRHBRA.m>
| Package | Total | Call Graph |
|---|---|---|
| Integrated Billing | 2 | $$ADDCI^IBCREF $$VERSEDT^IBCRHBRV |
| VA FileMan | 1 | ^DIK |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBA(363.2 - [#363.2] | CPT2000+11, CPT2000+13, EXISTS+3, EXISTS+4, DEL+5, DEL+8, DEL+9 |
| ^IBE(363.1 - [#363.1] | CPT2000+14, CSRC+2 |
| ^IBE(363.3 - [#363.3] | CSRC+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | DEL+3~, DEL+11*! |
| DIC | CPT2000+1~, DEL+3~ |
| DIK | DEL+3~, DEL+11*! |
| IB2000DT | CPT2000+1~, CPT2000+2*, CPT2000+16, CPT2000+17, CPT2000+19 |
| IBBRN | CSRC+1~, CSRC+3*, CSRC+5 |
| IBCHG | EXISTS~, EXISTS+2, EXISTS+4, DEL~, DEL+3, DEL+9 |
| IBCI | CPT2000+1~, CPT2000+11*, CPT2000+13, EXISTS+1~, EXISTS+3*, EXISTS+4, DEL+3~, DEL+8*, DEL+9, DEL+11 |
| IBCIN | CPT2000+1~, CPT2000+13*, CPT2000+14, CPT2000+16, CPT2000+17, CPT2000+19, DEL+3~, DEL+9* |
| IBCNT | CPT2000+1~*, CPT2000+19*, CPT2000+21, DEL+3~*, DEL+11* |
| IBCS | CPT2000+1~, CPT2000+14*, CPT2000+16, CPT2000+17, CPT2000+19, EXISTS~, EXISTS+2, EXISTS+3, DEL~, DEL+5 , DEL+8, CSRC~, CSRC+2 |
| IBCSN | CPT2000+1~, CPT2000+14*, CSRC+1~, CSRC+2*, CSRC+3 |
| IBDT | DEL+3~, DEL+5*, DEL+6, DEL+8, DEL+9 |
| IBEFFDT | EXISTS~, EXISTS+2, EXISTS+3, DEL~, DEL+3, DEL+9 |
| IBENDDT | CPT2000+1~, CPT2000+3*, CPT2000+19 |
| IBI | CPT2000+1~, CPT2000+6* |
| IBITM | CPT2000+1~, CPT2000+11*, EXISTS~, EXISTS+2, EXISTS+3, DEL~, DEL+5, DEL+8 |
| IBLN | CPT2000+1~, CPT2000+6*, CPT2000+8, CPT2000+9 |
| IBNEW | CPT2000+1~, CPT2000+9*, CPT2000+16, CPT2000+17, CPT2000+19 |
| IBOLD | CPT2000+1~, CPT2000+8*, CPT2000+11 |
| IBX | EXISTS+1~*, EXISTS+3, EXISTS+4*, EXISTS+5, CSRC+1~*, CSRC+5*, CSRC+7 |
| U | CPT2000+8, CPT2000+9, CPT2000+13, CPT2000+14, CPT2000+16, CPT2000+17, CPT2000+19, EXISTS+4, DEL+9, CSRC+3 , CSRC+5 |
| X | CPT2000+1~, DEL+3~ |
| Y | CPT2000+1~, DEL+3~ |
| >> ZTQUEUED | CPT2000+5, CPT2000+21 |
| Name | Field # of Occurrence |
|---|---|
| $T(F2000+IBI | CPT2000+6 |