source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBCRHBR.m@ 949

Last change on this file since 949 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 3.1 KB
RevLine 
[613]1IBCRHBR ;ALB/ARH - RATES: UPLOAD HOST FILES (RC) DRIVER ; 10-OCT-1998
2 ;;2.0;INTEGRATED BILLING;**106,138,148,245**;21-MAR-94
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5 ;
6RC N IBLOAD,IBSITE,IBVERS
7 W @IOF,!,"Upload National Reasonable Charges Host Files to Temporary Vista Files (XTMP)"
8 W !,"-----------------------------------------------------------------------------"
9 ;
10 I '$$CONT^IBCRHBR5 Q
11 ;
12 S IBLOAD=$$RELOAD^IBCRHBR1 I IBLOAD<0 Q
13 ;
14 I IBLOAD=1 S IBVERS=$$SELVERS^IBCRHBRV Q:'IBVERS
15 ;
16 I ($G(IBVERS)>1.9)!($$VERSION^IBCRHBRV>1.9) G ^IBCRHBS
17 ;
18 I IBLOAD=1 S IBLOAD=$$HOSTLOAD^IBCRHBR1(IBVERS) I 'IBLOAD Q
19 ;
20 S IBSITE=$$SELSITE^IBCRHBR4 I 'IBSITE Q
21 ;
22 D CALCRC^IBCRHBR5(IBSITE)
23 ;
24 Q
25 ;
26 ;
27 ; ==============================================================================================
28 ;
291 ;XTMP version of national files of all charges and area factors
30 ;
31 ; IBCR RC x,0: delete date ^ create date ^ name, date/time, by ^ ?? ^ count
32 ;
33 ; IBCR RC A: DRG ^ surg/non-surg ^ rm&bd ^ anc ^ begin ^ end
34 ; 999 ^ ^ charge ^ ^ begin ^ end
35 ; IBCR RC B: site number ^ surg rm&bd ^ surg anc ^ non-surg rm&bd ^ non-surg anc ^ skilled nursing ^ begin ^end
36 ;
37 ; IBCR RC C: CPT ^ charge ^ begin ^ end ^ site limited
38 ; IBCR RC D: site number ^ area factor ^ begin ^ end ^ site limited
39 ;
40 ; IBCR RC E: CPT ^ modifier ^ work expense ^ practice expense ^ code group ^ conversion factor ^ begin ^ end
41 ;
42 ; IBCR RC F: CPT ^ modifier ^ charge ^ code group ^ begin ^ end
43 ;
44 ; IBCR RC G: CPT ^ modifier ^ unit value ^ code group ^ conversion factor ^ begin ^ end
45 ;
46 ; IBCR RC H: site number ^ work adjuster ^ work expense ^ practice expense ^ begin ^ end
47 ; IBCR RC H, BC: code group area factors
48 ;
49 ; IBCR RC I: site number ^ area factor ^ begin ^ end
50 ;
512 ;site file created from all national area factor files
52 ;
53 ; IBCR RC SITE: site number ^ site name, state ^ 3-digit zip
54 ; IBCR RC SITE, source file: source ifn
55 ; IBCR RC SITE, VERSION: version number
56 ;
573 ;all XTMP files read by CM utility
58 ;
59 ; IBCR RC site: item ptr ^ effective date ^ inactive date ^ charge ^ modifier ^ base (2.0+)
60 ;
614 ;all updates due to a new version are in routine IBCRHBRV
62 ;
63 ; ==============================================================================================
64 ;
65 ;
66CGROUP ; set up code group array needed when calculating charges
67 N IBI,IBLN
68 F IBI=1:1 S IBLN=$P($T(CGROUPF+IBI),";;",2) Q:IBLN="" I +IBLN D
69 . S ^TMP($J,"IBCR RC CGROUP",$P(IBLN,U,2))=+IBLN
70 Q
71CGROUPF ; list of valid Code Groups and their corresponding piece in the area factor file (table h)
72 ;;
73 ;;5^Allergy Immunotherapy
74 ;;4^Allergy Testing
75 ;;21^Anesthesia
76 ;;10^Cardiovascular
77 ;;16^Chiropractor
78 ;;8^Consults
79 ;;7^Emer Room Visits and Observation Care
80 ;;14^Hearing/Speech Exams
81 ;;11^Immunizations
82 ;;1^Inpatient Visits
83 ;;23^Maternity - Cesarean Deliveries
84 ;;24^Maternity - Non-Deliveries
85 ;;22^Maternity - Normal Deliveries
86 ;;6^Miscellaneous Medical
87 ;;2^Office/Home/Urgent Care Visits
88 ;;17^Outpatient Psych/Alcohol & Drug Abuse
89 ;;20^Pathology
90 ;;15^Physical Exams
91 ;;9^Physical Medicine
92 ;;19^Radiology
93 ;;18^Surgery
94 ;;3^Therapeutic Injections
95 ;;13^Vision Exams
96 ;;12^Well Baby Exams
97 ;;
Note: See TracBrowser for help on using the repository browser.