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 |
Package | Total | Caller Graph |
---|---|---|
Integrated Billing | 1 | IBCRHO |
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 |