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