IBCRHBR ;ALB/ARH - RATES: UPLOAD HOST FILES (RC) DRIVER ; 10-OCT-1998
;;2.0;INTEGRATED BILLING;**106,138,148,245**;21-MAR-94
;;Per VHA Directive 10-93-142, this routine should not be modified.
;
;
RC N IBLOAD,IBSITE,IBVERS
W @IOF,!,"Upload National Reasonable Charges Host Files to Temporary Vista Files (XTMP)"
W !,"-----------------------------------------------------------------------------"
;
I '$$CONT^IBCRHBR5 Q
;
S IBLOAD=$$RELOAD^IBCRHBR1 I IBLOAD<0 Q
;
I IBLOAD=1 S IBVERS=$$SELVERS^IBCRHBRV Q:'IBVERS
;
I ($G(IBVERS)>1.9)!($$VERSION^IBCRHBRV>1.9) G ^IBCRHBS
;
I IBLOAD=1 S IBLOAD=$$HOSTLOAD^IBCRHBR1(IBVERS) I 'IBLOAD Q
;
S IBSITE=$$SELSITE^IBCRHBR4 I 'IBSITE Q
;
D CALCRC^IBCRHBR5(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: DRG ^ surg/non-surg ^ rm&bd ^ anc ^ begin ^ end
; 999 ^ ^ charge ^ ^ begin ^ end
; IBCR RC B: site number ^ surg rm&bd ^ surg anc ^ non-surg rm&bd ^ non-surg anc ^ skilled nursing ^ begin ^end
;
; IBCR RC C: CPT ^ charge ^ begin ^ end ^ site limited
; IBCR RC D: site number ^ area factor ^ begin ^ end ^ site limited
;
; IBCR RC E: CPT ^ modifier ^ work expense ^ practice expense ^ code group ^ conversion factor ^ begin ^ end
;
; IBCR RC F: CPT ^ modifier ^ charge ^ code group ^ begin ^ end
;
; IBCR RC G: CPT ^ modifier ^ unit value ^ code group ^ conversion factor ^ begin ^ end
;
; IBCR RC H: site number ^ work adjuster ^ work expense ^ practice expense ^ begin ^ end
; IBCR RC H, BC: code group area factors
;
; IBCR RC I: site number ^ area factor ^ begin ^ end
;
2 ;site file created from all national area factor files
;
; IBCR RC SITE: site number ^ site name, state ^ 3-digit zip
; IBCR RC SITE, source file: source ifn
; IBCR RC SITE, VERSION: version number
;
3 ;all XTMP files read by CM utility
;
; IBCR RC site: item ptr ^ effective date ^ inactive date ^ charge ^ modifier ^ base (2.0+)
;
4 ;all updates due to a new version are in routine IBCRHBRV
;
; ==============================================================================================
;
;
CGROUP ; set up code group array needed when calculating charges
N IBI,IBLN
F IBI=1:1 S IBLN=$P($T(CGROUPF+IBI),";;",2) Q:IBLN="" I +IBLN D
. S ^TMP($J,"IBCR RC CGROUP",$P(IBLN,U,2))=+IBLN
Q
CGROUPF ; list of valid Code Groups and their corresponding piece in the area factor file (table h)
;;
;;5^Allergy Immunotherapy
;;4^Allergy Testing
;;21^Anesthesia
;;10^Cardiovascular
;;16^Chiropractor
;;8^Consults
;;7^Emer Room Visits and Observation Care
;;14^Hearing/Speech Exams
;;11^Immunizations
;;1^Inpatient Visits
;;23^Maternity - Cesarean Deliveries
;;24^Maternity - Non-Deliveries
;;22^Maternity - Normal Deliveries
;;6^Miscellaneous Medical
;;2^Office/Home/Urgent Care Visits
;;17^Outpatient Psych/Alcohol & Drug Abuse
;;20^Pathology
;;15^Physical Exams
;;9^Physical Medicine
;;19^Radiology
;;18^Surgery
;;3^Therapeutic Injections
;;13^Vision Exams
;;12^Well Baby Exams
;;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBCRHBR 3321 printed Sep 23, 2025@19:55:28 Page 2
IBCRHBR ;ALB/ARH - RATES: UPLOAD HOST FILES (RC) DRIVER ; 10-OCT-1998
+1 ;;2.0;INTEGRATED BILLING;**106,138,148,245**;21-MAR-94
+2 ;;Per VHA Directive 10-93-142, this routine should not be modified.
+3 ;
+4 ;
RC NEW IBLOAD,IBSITE,IBVERS
+1 WRITE @IOF,!,"Upload National Reasonable Charges Host Files to Temporary Vista Files (XTMP)"
+2 WRITE !,"-----------------------------------------------------------------------------"
+3 ;
+4 IF '$$CONT^IBCRHBR5
QUIT
+5 ;
+6 SET IBLOAD=$$RELOAD^IBCRHBR1
IF IBLOAD<0
QUIT
+7 ;
+8 IF IBLOAD=1
SET IBVERS=$$SELVERS^IBCRHBRV
if 'IBVERS
QUIT
+9 ;
+10 IF ($GET(IBVERS)>1.9)!($$VERSION^IBCRHBRV>1.9)
GOTO ^IBCRHBS
+11 ;
+12 IF IBLOAD=1
SET IBLOAD=$$HOSTLOAD^IBCRHBR1(IBVERS)
IF 'IBLOAD
QUIT
+13 ;
+14 SET IBSITE=$$SELSITE^IBCRHBR4
IF 'IBSITE
QUIT
+15 ;
+16 DO CALCRC^IBCRHBR5(IBSITE)
+17 ;
+18 QUIT
+19 ;
+20 ;
+21 ; ==============================================================================================
+22 ;
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: DRG ^ surg/non-surg ^ rm&bd ^ anc ^ begin ^ end
+5 ; 999 ^ ^ charge ^ ^ begin ^ end
+6 ; IBCR RC B: site number ^ surg rm&bd ^ surg anc ^ non-surg rm&bd ^ non-surg anc ^ skilled nursing ^ begin ^end
+7 ;
+8 ; IBCR RC C: CPT ^ charge ^ begin ^ end ^ site limited
+9 ; IBCR RC D: site number ^ area factor ^ begin ^ end ^ site limited
+10 ;
+11 ; IBCR RC E: CPT ^ modifier ^ work expense ^ practice expense ^ code group ^ conversion factor ^ begin ^ end
+12 ;
+13 ; IBCR RC F: CPT ^ modifier ^ charge ^ code group ^ begin ^ end
+14 ;
+15 ; IBCR RC G: CPT ^ modifier ^ unit value ^ code group ^ conversion factor ^ begin ^ end
+16 ;
+17 ; IBCR RC H: site number ^ work adjuster ^ work expense ^ practice expense ^ begin ^ end
+18 ; IBCR RC H, BC: code group area factors
+19 ;
+20 ; IBCR RC I: site number ^ area factor ^ begin ^ end
+21 ;
2 ;site file created from all national area factor files
+1 ;
+2 ; IBCR RC SITE: site number ^ site name, state ^ 3-digit zip
+3 ; IBCR RC SITE, source file: source ifn
+4 ; IBCR RC SITE, VERSION: version number
+5 ;
3 ;all XTMP files read by CM utility
+1 ;
+2 ; IBCR RC site: item ptr ^ effective date ^ inactive date ^ charge ^ modifier ^ base (2.0+)
+3 ;
4 ;all updates due to a new version are in routine IBCRHBRV
+1 ;
+2 ; ==============================================================================================
+3 ;
+4 ;
CGROUP ; set up code group array needed when calculating charges
+1 NEW IBI,IBLN
+2 FOR IBI=1:1
SET IBLN=$PIECE($TEXT(CGROUPF+IBI),";;",2)
if IBLN=""
QUIT
IF +IBLN
Begin DoDot:1
+3 SET ^TMP($JOB,"IBCR RC CGROUP",$PIECE(IBLN,U,2))=+IBLN
End DoDot:1
+4 QUIT
CGROUPF ; list of valid Code Groups and their corresponding piece in the area factor file (table h)
+1 ;;
+2 ;;5^Allergy Immunotherapy
+3 ;;4^Allergy Testing
+4 ;;21^Anesthesia
+5 ;;10^Cardiovascular
+6 ;;16^Chiropractor
+7 ;;8^Consults
+8 ;;7^Emer Room Visits and Observation Care
+9 ;;14^Hearing/Speech Exams
+10 ;;11^Immunizations
+11 ;;1^Inpatient Visits
+12 ;;23^Maternity - Cesarean Deliveries
+13 ;;24^Maternity - Non-Deliveries
+14 ;;22^Maternity - Normal Deliveries
+15 ;;6^Miscellaneous Medical
+16 ;;2^Office/Home/Urgent Care Visits
+17 ;;17^Outpatient Psych/Alcohol & Drug Abuse
+18 ;;20^Pathology
+19 ;;15^Physical Exams
+20 ;;9^Physical Medicine
+21 ;;19^Radiology
+22 ;;18^Surgery
+23 ;;3^Therapeutic Injections
+24 ;;13^Vision Exams
+25 ;;12^Well Baby Exams
+26 ;;
