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 | ;
|
---|