[613] | 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 | ;
|
---|