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 Nov 22, 2024@17:29:27 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 ;
