- IBCRHBS ;ALB/ARH - RATES: UPLOAD HOST FILES (RC 2+) DRIVER ; 10-OCT-03
- ;;2.0;INTEGRATED BILLING;**245**;21-MAR-94
- ;;Per VHA Directive 10-93-142, this routine should not be modified.
- ;
- ;
- ; called from IBCRHBR to process RC v2.0+ versions
- RC ;
- I IBLOAD=1 S IBLOAD=$$HOSTLOAD^IBCRHBS1(IBVERS) I 'IBLOAD Q
- ;
- S IBSITE=$$SELSITE^IBCRHBS4 I 'IBSITE Q
- ;
- D CALCRC^IBCRHBS5(IBSITE)
- ;
- Q
- ;
- ;
- ; ==============================================================================================
- ;
- 1 ;XTMP version of national files of all charges and area factors
- ;
- ; IBCR RC x,0: delete date ^ create date ^ name, date/time, by ^ ?? ^ count
- ;
- ; IBCR RC A: Inpatient DRG and SNF Per Diem Charges, same format/fields as Host File
- ; IBCR RC B: Facility CPT Charges, same format/fields as Host File
- ; IBCR RC C: Professional CPT Charges, same format/fields as Host File
- ; IBCR RC D: Service Category Codes, same format/fields as Host File
- ; IBCR RC E: Area Factor File, same format/fields as Host File
- ; IBCR RC F: Division/Zip File, same format/fields as Host File
- ;
- ;
- 2 ;site file created from all national area factor files
- ;
- ; IBCR RC SITE: site number ^ site name, state ^ 3-digit zip ^ type (if VA division)
- ; IBCR RC SITE, source file: source ifn
- ; IBCR RC SITE, VERSION: version number
- ; IBCR RC SITE, VERSION INACTIVE: version inactive date
- ;
- 3 ;all XTMP files read by CM utility
- ;
- ; IBCR UPLOAD site, 0: Upload Date + 2 ^ Upload Date ^ Name/Description ^ Item Count
- ; IBCR UPLOAD site, Charge Group: Item Count ^ Billable Item ^ Charge Set
- ; IBCR UPLOAD site, Charge Group, x: item ptr ^ effective date ^ inactive date ^ charge ^ modifier (i) ^ base
- ;
- 4 ;all updates due to a new version are in routine IBCRHBRV
- ;
- ; ==============================================================================================
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBCRHBS 1895 printed Feb 18, 2025@23:45:47 Page 2
- IBCRHBS ;ALB/ARH - RATES: UPLOAD HOST FILES (RC 2+) DRIVER ; 10-OCT-03
- +1 ;;2.0;INTEGRATED BILLING;**245**;21-MAR-94
- +2 ;;Per VHA Directive 10-93-142, this routine should not be modified.
- +3 ;
- +4 ;
- +5 ; called from IBCRHBR to process RC v2.0+ versions
- RC ;
- +1 IF IBLOAD=1
- SET IBLOAD=$$HOSTLOAD^IBCRHBS1(IBVERS)
- IF 'IBLOAD
- QUIT
- +2 ;
- +3 SET IBSITE=$$SELSITE^IBCRHBS4
- IF 'IBSITE
- QUIT
- +4 ;
- +5 DO CALCRC^IBCRHBS5(IBSITE)
- +6 ;
- +7 QUIT
- +8 ;
- +9 ;
- +10 ; ==============================================================================================
- +11 ;
- 1 ;XTMP version of national files of all charges and area factors
- +1 ;
- +2 ; IBCR RC x,0: delete date ^ create date ^ name, date/time, by ^ ?? ^ count
- +3 ;
- +4 ; IBCR RC A: Inpatient DRG and SNF Per Diem Charges, same format/fields as Host File
- +5 ; IBCR RC B: Facility CPT Charges, same format/fields as Host File
- +6 ; IBCR RC C: Professional CPT Charges, same format/fields as Host File
- +7 ; IBCR RC D: Service Category Codes, same format/fields as Host File
- +8 ; IBCR RC E: Area Factor File, same format/fields as Host File
- +9 ; IBCR RC F: Division/Zip File, same format/fields as Host File
- +10 ;
- +11 ;
- 2 ;site file created from all national area factor files
- +1 ;
- +2 ; IBCR RC SITE: site number ^ site name, state ^ 3-digit zip ^ type (if VA division)
- +3 ; IBCR RC SITE, source file: source ifn
- +4 ; IBCR RC SITE, VERSION: version number
- +5 ; IBCR RC SITE, VERSION INACTIVE: version inactive date
- +6 ;
- 3 ;all XTMP files read by CM utility
- +1 ;
- +2 ; IBCR UPLOAD site, 0: Upload Date + 2 ^ Upload Date ^ Name/Description ^ Item Count
- +3 ; IBCR UPLOAD site, Charge Group: Item Count ^ Billable Item ^ Charge Set
- +4 ; IBCR UPLOAD site, Charge Group, x: item ptr ^ effective date ^ inactive date ^ charge ^ modifier (i) ^ base
- +5 ;
- 4 ;all updates due to a new version are in routine IBCRHBRV
- +1 ;
- +2 ; ==============================================================================================
- +3 ;