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

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

initial load of WorldVistAEHR
File size: 9.1 KB
RevLine 
[613]1IBY371PR ;ALB/ESG - Pre-Installation for IB patch 371 ;3-May-2006
2 ;;2.0;INTEGRATED BILLING;**371**;21-MAR-94;Build 57
3 ;
4 D DELOF ; delete all data elements included in build
5 D DELXREFS ; delete a trigger that was added on a previous version of the build
6 ;
7 Q
8 ;
9 ;
10 ;
11DELOF ; Delete included output formatter entries
12 NEW FILE,DIK,LN,TAG,DATA,PCE,DA,Y
13 F FILE=5,6,7 S DIK="^IBA(364."_FILE_"," F LN=2:1 S TAG="ENT"_FILE_"+"_LN,DATA=$P($T(@TAG),";;",2) Q:DATA="" D
14 . F PCE=2:1 S DA=$P(DATA,U,PCE) Q:'DA I $D(^IBA("364."_FILE,DA,0)) D ^DIK
15 . Q
16 ;
17 ; Also delete output formatter entries which are not going to be
18 ; re-added later. These are non-functioning entries in file 364.6.
19 S DIK="^IBA(364.6,",TAG="DEL6+2",DATA=$P($T(@TAG),";;",2)
20 I DATA'="" D
21 . F PCE=2:1 S DA=$P(DATA,U,PCE) Q:'DA I $D(^IBA(364.6,DA,0)) D ^DIK
22 . Q
23 ;
24 ; Also delete output formatter entries which are not going to be
25 ; re-added later. These are non-functioning entries in file 364.7.
26 S DIK="^IBA(364.7,",TAG="DEL7+2",DATA=$P($T(@TAG),";;",2)
27 I DATA'="" D
28 . F PCE=2:1 S DA=$P(DATA,U,PCE) Q:'DA I $D(^IBA(364.7,DA,0)) D ^DIK
29 . Q
30 ;
31DELOFX ;
32 Q
33 ;
34INCLUDE(FILE,Y) ; function to determine if output formatter entry should be
35 ; included in the build
36 ; FILE=5,6,7 indicating file 364.x
37 ; Y=ien to file
38 ;
39 NEW OK,LN,TAG,DATA
40 S OK=0
41 F LN=2:1 S TAG="ENT"_FILE_"+"_LN,DATA=$P($T(@TAG),";;",2) Q:DATA="" I $F(DATA,U_Y_U) S OK=1 Q
42INCLUDEX ;
43 Q OK
44 ;
45INC3508(Y) ; function to determine if entry in IB ERROR file (350.8) should be included in the build
46 ; Y - ien to file
47 N DATA,ENTRY,LN,OK,TAG
48 S OK=0,ENTRY=U_$P($G(^IBE(350.8,Y,0)),U,3)_U
49 F LN=2:1 S TAG="ENT3508+"_LN,DATA=$P($T(@TAG),";;",2) Q:DATA="" I $F(DATA,ENTRY) S OK=1 Q
50 Q OK
51 ;
52 ;-----------------------------------------------------------------------
53 ; 350.8 entries modified:
54 ; IB137: new error for missing Initial Treatment date
55 ; IB138: new error for missing Patient Condition code
56 ; IB139: new error for missing Acute Manifestation Date
57 ; IB146: 3 payers - MRA secondary claim
58 ; IB147: 3 payers - payer sequence >1
59 ; IB150: Occurrence Code End Date can not be before the start date.
60 ; IB151: Referring provider must have SSN or EIN defined.
61 ; IB152: Operating provider must have SSN or EIN defined.
62 ; IB153: Supervising provider must have SSN or EIN defined.
63 ; IB154: Other provider must have SSN or EIN defined.
64 ; IB155: End dates are required for occurrence spans.
65 ; IB157: One or more Value Codes has no associated Value.
66 ; IB158: One or more of the value codes has an improper format.
67 ; IB205: ICN/DCN required - MRA replacement claim.
68 ; IB206: FL-80 remarks required - MRA replacement claim.
69 ; IB269: Patient address is incomplete. Address Line 1 is required.
70 ; IB270: Patient address is incomplete. City is required.
71 ; IB271: Patient address is incomplete. State is required.
72 ; IB272: Patient address is incomplete. ZIP is required.
73 ; IB273: Primary insurance subscriber's name is missing or invalid
74 ; IB274: Secondary insurance subscriber's name is missing or invalid
75 ; IB275: Tertiary insurance subscriber's name is missing or invalid
76 ; IB276: Primary insurance subscriber's ID number is missing
77 ; IB277: Secondary insurance subscriber's ID number is missing
78 ; IB278: Tertiary insurance subscriber's ID number is missing
79 ; IB279: Primary insurance missing PT. RELATIONSHIP TO INSURED
80 ; IB280: Secondary insurance missing PT. RELATIONSHIP TO INSURED
81 ; IB281: Tertiary insurance missing PT. RELATIONSHIP TO INSURED
82 ; IB282: Primary insurance subscriber's address line 1 is missing
83 ; IB283: Secondary insurance subscriber's address line 1 is missing
84 ; IB284: Tertiary insurance subscriber's address line 1 is missing
85 ; IB285: Primary insurance subscriber's CITY is missing
86 ; IB286: Secondary insurance subscriber's CITY is missing
87 ; IB287: Tertiary insurance subscriber's CITY is missing
88 ; IB288: Primary insurance subscriber's STATE is missing
89 ; IB289: Secondary insurance subscriber's STATE is missing
90 ; IB290: Tertiary insurance subscriber's STATE is missing
91 ; IB291: Primary insurance subscriber's ZIPCODE is missing
92 ; IB292: Secondary insurance subscriber's ZIPCODE is missing
93 ; IB293: Tertiary insurance subscriber's ZIPCODE is missing
94 ;
95ENT3508 ; entries in file 350.8 to be included
96 ;
97 ;;^IB137^IB138^IB139^IB146^IB147^IB150^IB151^IB152^IB153^IB154^IB155^IB157^IB158^IB269^
98 ;;^IB205^IB206^IB270^IB271^IB272^IB273^IB274^IB275^IB276^IB277^IB278^IB279^IB280^IB281^
99 ;;^IB282^IB283^IB284^IB285^IB286^IB287^IB288^IB289^IB290^IB291^IB292^IB293^
100 ;;
101 ;
102 ;-----------------------------------------------------------------------
103 ; 364.5 entries modified:
104 ; 12: N-VALUE CODES (added internal number as 4th piece of return array)
105 ; 20: N-CMS-1500 PURCH SVC TOTAL - new one for Box 20 and SUB-7
106 ; 21: N-INITIAL TREATMENT - new one for CL1A-2
107 ; 22: N-ACUTE MANIFESTATION - new one for CL1A-8
108 ; 29: N-LAST XRAY - new one for CL1A-3
109 ; 34: N-OTH INSURED ID - updated description
110 ; 36: N-PATIENT CONDITION CODE - new one for CL1A-7
111 ; 55: N-CURR INS FORM LOC 64 - removed blank out for Medicare
112 ; 198: N-ALL INSURANCE NUMBER - removed default of patient SSN
113 ; 282: N-PURCHASED SERVICE TOTAL - bug fix
114 ;
115ENT5 ; output formatter entries in file 364.5 to be included
116 ;
117 ;;^12^20^21^22^29^34^36^55^198^282^
118 ;;
119 ;
120 ;-----------------------------------------------------------------------
121 ; 364.6 entries modified:
122 ; 5: CI2-6
123 ; 41: PT1-15
124 ; 107: OI1-9
125 ; 191: CI3-4
126 ; 195: OI1-12
127 ; 196: CI1-8
128 ; 783: SUB-7
129 ; 804: OI1-13
130 ; 806: OI1-15
131 ; 935: OPR-16
132 ; 951: OPR-17
133 ; 958: INS-14
134 ; 977: PRF-23
135 ; 979: PRF-25
136 ; 980: PRF-27
137 ; 981: PRF-28
138 ; 1000: CI3-10
139 ; 1002: UB1-19
140 ; 1004: CI1-11
141 ; 1010: PRF-26
142 ; 1194: SUB-11
143 ; 1315: CI1-9
144 ; 1316: CI1-7
145 ; 1471: CMS-1500, Box 20 charges
146 ; 1472: CMS-1500, Box 20 blank part
147 ; 1800 thru 1899 are allocated for new entries for this patch
148 ;
149ENT6 ; output formatter entries in file 364.6 to be included
150 ;
151 ;;^5^41^107^191^195^196^783^804^806^935^951^958^977^979^980^981^1000^1002^1004^1010^1194^1315^1316^1471^1472^
152 ;;^1800^1801^1802^1803^1804^1805^1806^1807^1808^1809^1810^1811^1812^1813^1814^1815^1816^1817^1818^1819^1820^1821^
153 ;;^1822^1823^1824^1825^1826^1827^1828^1829^1830^1831^1832^1833^1834^1835^1836^1837^1838^1839^1840^1841^1842^1843^
154 ;;^1844^1845^1846^1847^1848^1849^1850^1851^1852^
155 ;;
156 ;
157 ;
158 ;-----------------------------------------------------------------------
159 ; 364.7 entries modified:
160 ; 3: CI2-6
161 ; 4: CI2-6.9
162 ; 5: CI2-8
163 ; 7: CI2-10
164 ; 14: CI2-7
165 ; 62: PT1-15
166 ; 88: PT1-17
167 ; 107: VC1-3
168 ; 117: OI2-3
169 ; 125: OI1-9
170 ; 130: OI1-10 (desc only)
171 ; 133: CI3-4
172 ; 135: CI2-14
173 ; 144: CL1A-2
174 ; 186: CL1A-3
175 ; 188: OI1-12
176 ; 195: CI1-8
177 ; 197: CL1A-7
178 ; 198: CL1A-8
179 ; 205: SUB2-2
180 ; 366: OI3-6
181 ; 368: OI3-7
182 ; 369: OI3-8
183 ; 370: OI3-9
184 ; 371: OI3-10
185 ; 372: OI3-11
186 ; 373: OI3-12
187 ; 391: SUB-11
188 ; 460: OI5-9
189 ; 461: OI5-10
190 ; 462: OI5-11
191 ; 463: OI5-12
192 ; 464: OI5-13
193 ; 465: OI5-14
194 ; 800: CI2-9
195 ; 892: SUB-7
196 ; 900: OI1-13
197 ; 902: OI1-15
198 ; 933: INS-14
199 ; 939: PRF-23
200 ; 941: PRF-25
201 ; 942: PRF-27
202 ; 943: PRF-28
203 ; 1001: CI3-10
204 ; 1003: UB1-19
205 ; 1005: CI1-11
206 ; 1011: PRF-26
207 ; 1015: GEN-7 - added patch 371
208 ; 1026: OI3-5
209 ; 1031: CI1-9
210 ; 1032: CI1-7
211 ; 1038: OI5-99.9
212 ; 1054: NPI-14
213 ; 1055: NPI-15
214 ; 1056: NPI-16
215 ; 1057: NPI-17
216 ; 1170: CMS-1500, Box 20, Yes
217 ; 1171: CMS-1500, Box 20, Charges
218 ; 1172: CMS-1500, Box 20, Blank part
219 ; 1220: CMS-1500, Box 20, No
220 ; 1276: UB04/FL-8a
221 ; 1307: UB04/FL-14
222 ; 1362: UB04/FL-59A:C
223 ; 1457: UB04/Creation Date
224 ; 1500 thru 1599 are allocated for new entries for this patch
225 ;
226ENT7 ; output formatter entries in file 364.7 to be included
227 ;
228 ;;^3^4^5^7^14^62^88^107^117^125^130^133^135^144^186^188^195^197^198^205^366^368^369^370^371^372^373^391^
229 ;;^460^461^462^463^464^465^800^892^900^902^933^939^941^942^943^1001^1003^1005^1011^1015^1026^1031^1032^1038^
230 ;;^1054^1055^1056^1057^1170^1171^1172^1220^1276^1307^1362^1457^
231 ;;^1500^1501^1502^1503^1504^1505^1506^1507^1508^1509^1510^1511^1512^1513^1514^1515^1516^1517^1518^1519^1520^1521^
232 ;;^1522^1523^1524^1525^1526^1527^1528^1529^1530^1531^1532^1533^1534^1535^1536^1537^1538^1539^1540^1541^1542^1543^
233 ;;^1544^1545^1546^1547^1548^1549^1550^1551^1552^
234 ;;
235 ;
236 ;
237 ;-----------------------------------------------------------------------
238DEL6 ; remove output formatter entries in file 364.6 (not re-added)
239 ;
240 ;;^90^208^969^984^1021^1022^1023^1024^1025^1026^1027^1028^1078^1080^1092^
241 ;;
242 ;
243 ;-----------------------------------------------------------------------
244DEL7 ; remove output formatter entries in file 364.7 (not re-added)
245 ;
246 ;;^108^361^362^374^
247 ;;
248 ;
249 Q
250 ;
251DELXREFS ;
252 D BMES^XPDUTL("Removing triggers")
253 D DELIX^DDMOD(399.047,.01,2)
254 D MES^XPDUTL("Done")
255 ;
Note: See TracBrowser for help on using the repository browser.