| 1 | IBCRHBS ;ALB/ARH - RATES: UPLOAD HOST FILES (RC 2+) DRIVER ; 10-OCT-03 | 
|---|
| 2 | ;;2.0;INTEGRATED BILLING;**245**;21-MAR-94 | 
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified. | 
|---|
| 4 | ; | 
|---|
| 5 | ; | 
|---|
| 6 | ; called from IBCRHBR to process RC v2.0+ versions | 
|---|
| 7 | RC ; | 
|---|
| 8 | I IBLOAD=1 S IBLOAD=$$HOSTLOAD^IBCRHBS1(IBVERS) I 'IBLOAD Q | 
|---|
| 9 | ; | 
|---|
| 10 | S IBSITE=$$SELSITE^IBCRHBS4 I 'IBSITE Q | 
|---|
| 11 | ; | 
|---|
| 12 | D CALCRC^IBCRHBS5(IBSITE) | 
|---|
| 13 | ; | 
|---|
| 14 | Q | 
|---|
| 15 | ; | 
|---|
| 16 | ; | 
|---|
| 17 | ; ============================================================================================== | 
|---|
| 18 | ; | 
|---|
| 19 | 1 ;XTMP version of national files of all charges and area factors | 
|---|
| 20 | ; | 
|---|
| 21 | ; IBCR RC x,0: delete date ^ create date ^ name, date/time, by ^ ?? ^ count | 
|---|
| 22 | ; | 
|---|
| 23 | ; IBCR RC A:  Inpatient DRG and SNF Per Diem Charges, same format/fields as Host File | 
|---|
| 24 | ; IBCR RC B:  Facility CPT Charges, same format/fields as Host File | 
|---|
| 25 | ; IBCR RC C:  Professional CPT Charges, same format/fields as Host File | 
|---|
| 26 | ; IBCR RC D:  Service Category Codes, same format/fields as Host File | 
|---|
| 27 | ; IBCR RC E:  Area Factor File, same format/fields as Host File | 
|---|
| 28 | ; IBCR RC F:  Division/Zip File, same format/fields as Host File | 
|---|
| 29 | ; | 
|---|
| 30 | ; | 
|---|
| 31 | 2 ;site file created from all national area factor files | 
|---|
| 32 | ; | 
|---|
| 33 | ; IBCR RC SITE: site number ^ site name, state ^ 3-digit zip ^ type (if VA division) | 
|---|
| 34 | ; IBCR RC SITE, source file: source ifn | 
|---|
| 35 | ; IBCR RC SITE, VERSION: version number | 
|---|
| 36 | ; IBCR RC SITE, VERSION INACTIVE: version inactive date | 
|---|
| 37 | ; | 
|---|
| 38 | 3 ;all XTMP files read by CM utility | 
|---|
| 39 | ; | 
|---|
| 40 | ; IBCR UPLOAD site, 0: Upload Date + 2 ^ Upload Date ^ Name/Description ^ Item Count | 
|---|
| 41 | ; IBCR UPLOAD site, Charge Group: Item Count ^ Billable Item ^ Charge Set | 
|---|
| 42 | ; IBCR UPLOAD site, Charge Group, x: item ptr ^ effective date ^ inactive date ^ charge ^ modifier (i) ^ base | 
|---|
| 43 | ; | 
|---|
| 44 | 4 ;all updates due to a new version are in routine IBCRHBRV | 
|---|
| 45 | ; | 
|---|
| 46 | ; ============================================================================================== | 
|---|
| 47 | ; | 
|---|