source: FOIAVistA/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBY221P.m@ 1751

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

initial load of FOIAVistA 6/30/08 version

File size: 6.8 KB
Line 
1IBY221P ;ALB/ARH/MAF - OCCURRENCE CODES: FILE IN 399.1 - POST INIT ; 5/1/97
2 ;;2.0;INTEGRATED BILLING;**221**;21-MAR-94
3 ;
4OC ; Add Occurrence Codes to 399.1 (#.11 - p4)
5 D BMES^XPDUTL("Updating file 399.1 MCCR UTILITY with new occurrence codes...")
6 D MES^XPDUTL(" ")
7 N DLAYGO,DIC,DIE,DD,DO,DA,DR,X,Y,IBA,IBFL,IBI,IBLN,IBCNT,IBFN S IBCNT=0
8 ;
9 F IBI=1:1 S IBLN=$P($T(OCF+IBI),";;",2) Q:IBLN="" I $E(IBLN)'=" " S $P(IBLN,U,2)=$S($P(IBLN,U,2)="STATE":"RZD FOR STATE ASSIGNMENT",$P(IBLN,U,2)="NATIONAL":"RZD FOR NATIONAL ASSIGNMENT",1:$P(IBLN,U,2)) D
10 . ;
11 . I +$$MCCRUTL($P(IBLN,U,1),4) S IBFL=0 D SET Q
12 . ;
13 . K DD,DO S DLAYGO=399.1,DIC="^DGCR(399.1,",DIC(0)="L",X=$P(IBLN,U,2) D FILE^DICN K DIC I Y<1 K X,Y Q
14 . S IBFN=+Y,IBCNT=IBCNT+1
15 . ;
16 . S DR=".02////"_$P(IBLN,U,1)_";.11////"_1_";.16////"_$P(IBLN,U,4)_";.17////"_$P(IBLN,U,5)
17 . S DIE="^DGCR(399.1,",DA=+IBFN D ^DIE K DIE,DA,DR,X,Y
18 . S IBFL=1 D SET
19 ;
20BSQ S IBA(1)=" * "_IBCNT_" Occurrence Codes added (#399.1)"
21 D BMES^XPDUTL(.IBA)
22 Q
23 ;
24MCCRUTL(X,P) ; returns IFN of item in 399.1 if Code is found and piece P is true
25 ;
26 N IBX,IBY S IBY=""
27 I $G(X)'="" S IBX=0 F S IBX=$O(^DGCR(399.1,"C",X,IBX)) Q:'IBX I $P($G(^DGCR(399.1,IBX,0)),U,+$G(P)) S IBY=IBX
28 Q IBY
29 ;
30SET ; SET IBA() FOR DISPLAY
31 S IBA(IBI)=" "_$P(IBLN,U,1)_" "_$P(IBLN,U,2)_" "_$S(IBFL=1:"*** Code Added ***",1:"*** Duplicate ***")
32 Q
33 ;
34 ;
35OCF ; occurrence codes (399.1) CODE^CODE NAME^SPAN^10 HCFA^OSC
36 ;;
37 ;;16^DATE OF LAST THERAPY^1^^
38 ;;23^DATE OF CANCELLATION OF HOSPICE ELECTION PERIOD^1^^
39 ;;47^DATE COST OUTLIER STATUS BEGINS^1^^
40 ;;48^PAYER CODES^1^^
41 ;;49^PAYER CODES^1^^
42 ;;M2^PATIENT RESPITE DATES^1^^1
43 ;;50^STATE^1^^
44 ;;51^STATE^1^^
45 ;;52^STATE^1^^
46 ;;53^STATE^1^^
47 ;;54^STATE^1^^
48 ;;55^STATE^1^^
49 ;;56^STATE^1^^
50 ;;57^STATE^1^^
51 ;;58^STATE^1^^
52 ;;59^STATE^1^^
53 ;;60^STATE^1^^
54 ;;61^STATE^1^^
55 ;;62^STATE^1^^
56 ;;63^STATE^1^^
57 ;;64^STATE^1^^
58 ;;65^STATE^1^^
59 ;;66^STATE^1^^
60 ;;67^STATE^1^^
61 ;;68^STATE^1^^
62 ;;69^STATE^1^^
63 ;;80^STATE^1^^1
64 ;;81^STATE^1^^1
65 ;;82^STATE^1^^1
66 ;;83^STATE^1^^1
67 ;;84^STATE^1^^1
68 ;;85^STATE^1^^1
69 ;;86^STATE^1^^1
70 ;;87^STATE^1^^1
71 ;;88^STATE^1^^1
72 ;;89^STATE^1^^1
73 ;;90^STATE^1^^1
74 ;;91^STATE^1^^1
75 ;;92^STATE^1^^1
76 ;;93^STATE^1^^1
77 ;;94^STATE^1^^1
78 ;;95^STATE^1^^1
79 ;;96^STATE^1^^1
80 ;;97^STATE^1^^1
81 ;;98^STATE^1^^1
82 ;;99^STATE^1^^1
83 ;;J0^STATE^1^^
84 ;;J1^STATE^1^^
85 ;;J2^STATE^1^^
86 ;;J3^STATE^1^^
87 ;;J4^STATE^1^^
88 ;;J5^STATE^1^^
89 ;;J6^STATE^1^^
90 ;;J7^STATE^1^^
91 ;;J8^STATE^1^^
92 ;;J9^STATE^1^^
93 ;;K0^STATE^1^^
94 ;;K1^STATE^1^^
95 ;;K2^STATE^1^^
96 ;;K3^STATE^1^^
97 ;;K4^STATE^1^^
98 ;;K5^STATE^1^^
99 ;;K6^STATE^1^^
100 ;;K7^STATE^1^^
101 ;;K8^STATE^1^^
102 ;;K9^STATE^1^^
103 ;;L0^STATE^1^^
104 ;;L1^STATE^1^^
105 ;;L2^STATE^1^^
106 ;;L3^STATE^1^^
107 ;;L4^STATE^1^^
108 ;;L5^STATE^1^^
109 ;;L6^STATE^1^^
110 ;;L7^STATE^1^^
111 ;;L8^STATE^1^^
112 ;;L9^STATE^1^^
113 ;;X0^STATE^1^^1
114 ;;X1^STATE^1^^1
115 ;;X2^STATE^1^^1
116 ;;X3^STATE^1^^1
117 ;;X4^STATE^1^^1
118 ;;X5^STATE^1^^1
119 ;;X6^STATE^1^^1
120 ;;X7^STATE^1^^1
121 ;;X8^STATE^1^^1
122 ;;X9^STATE^1^^1
123 ;;Y0^STATE^1^^1
124 ;;Y1^STATE^1^^1
125 ;;Y2^STATE^1^^1
126 ;;Y3^STATE^1^^1
127 ;;Y4^STATE^1^^1
128 ;;Y5^STATE^1^^1
129 ;;Y6^STATE^1^^1
130 ;;Y7^STATE^1^^1
131 ;;Y8^STATE^1^^1
132 ;;Y9^STATE^1^^1
133 ;;Z0^STATE^1^^1
134 ;;Z1^STATE^1^^1
135 ;;Z2^STATE^1^^1
136 ;;Z3^STATE^1^^1
137 ;;Z4^STATE^1^^1
138 ;;Z5^STATE^1^^1
139 ;;Z6^STATE^1^^1
140 ;;Z7^STATE^1^^1
141 ;;Z8^STATE^1^^1
142 ;;Z9^STATE^1^^1
143 ;;07^NATIONAL^1^^
144 ;;08^NATIONAL^1^^
145 ;;13^NATIONAL^1^^
146 ;;14^NATIONAL^1^^
147 ;;15^NATIONAL^1^^
148 ;;A0^NATIONAL^1^^
149 ;;A4^NATIONAL^1^^
150 ;;A5^NATIONAL^1^^
151 ;;A6^NATIONAL^1^^
152 ;;A7^NATIONAL^1^^
153 ;;A8^NATIONAL^1^^
154 ;;A9^NATIONAL^1^^
155 ;;B0^NATIONAL^1^^
156 ;;B4^NATIONAL^1^^
157 ;;B5^NATIONAL^1^^
158 ;;B6^NATIONAL^1^^
159 ;;B7^NATIONAL^1^^
160 ;;B8^NATIONAL^1^^
161 ;;B9^NATIONAL^1^^
162 ;;C0^NATIONAL^1^^
163 ;;C4^NATIONAL^1^^
164 ;;C5^NATIONAL^1^^
165 ;;C6^NATIONAL^1^^
166 ;;C7^NATIONAL^1^^
167 ;;C8^NATIONAL^1^^
168 ;;C9^NATIONAL^1^^
169 ;;D0^NATIONAL^1^^
170 ;;D1^NATIONAL^1^^
171 ;;D2^NATIONAL^1^^
172 ;;D3^NATIONAL^1^^
173 ;;D4^NATIONAL^1^^
174 ;;D5^NATIONAL^1^^
175 ;;D6^NATIONAL^1^^
176 ;;D7^NATIONAL^1^^
177 ;;D8^NATIONAL^1^^
178 ;;D9^NATIONAL^1^^
179 ;;E0^NATIONAL^1^^
180 ;;E4^NATIONAL^1^^
181 ;;E5^NATIONAL^1^^
182 ;;E6^NATIONAL^1^^
183 ;;E7^NATIONAL^1^^
184 ;;E8^NATIONAL^1^^
185 ;;E9^NATIONAL^1^^
186 ;;F0^NATIONAL^1^^
187 ;;F4^NATIONAL^1^^
188 ;;F5^NATIONAL^1^^
189 ;;F6^NATIONAL^1^^
190 ;;F7^NATIONAL^1^^
191 ;;F8^NATIONAL^1^^
192 ;;F9^NATIONAL^1^^
193 ;;G0^NATIONAL^1^^
194 ;;G4^NATIONAL^1^^
195 ;;G5^NATIONAL^1^^
196 ;;G6^NATIONAL^1^^
197 ;;G7^NATIONAL^1^^
198 ;;G8^NATIONAL^1^^
199 ;;G9^NATIONAL^1^^
200 ;;H0^NATIONAL^1^^
201 ;;H1^NATIONAL^1^^
202 ;;H2^NATIONAL^1^^
203 ;;H3^NATIONAL^1^^
204 ;;H4^NATIONAL^1^^
205 ;;H5^NATIONAL^1^^
206 ;;H6^NATIONAL^1^^
207 ;;H7^NATIONAL^1^^
208 ;;H8^NATIONAL^1^^
209 ;;H9^NATIONAL^1^^
210 ;;I0^NATIONAL^1^^
211 ;;I1^NATIONAL^1^^
212 ;;I2^NATIONAL^1^^
213 ;;I3^NATIONAL^1^^
214 ;;I4^NATIONAL^1^^
215 ;;I5^NATIONAL^1^^
216 ;;I6^NATIONAL^1^^
217 ;;I7^NATIONAL^1^^
218 ;;I8^NATIONAL^1^^
219 ;;I9^NATIONAL^1^^
220 ;;M3^NATIONAL^1^^1
221 ;;M4^NATIONAL^1^^1
222 ;;M5^NATIONAL^1^^1
223 ;;M6^NATIONAL^1^^1
224 ;;M7^NATIONAL^1^^1
225 ;;M8^NATIONAL^1^^1
226 ;;M9^NATIONAL^1^^1
227 ;;N0^NATIONAL^1^^1
228 ;;N1^NATIONAL^1^^1
229 ;;N2^NATIONAL^1^^1
230 ;;N3^NATIONAL^1^^1
231 ;;N4^NATIONAL^1^^1
232 ;;N5^NATIONAL^1^^1
233 ;;N6^NATIONAL^1^^1
234 ;;N7^NATIONAL^1^^1
235 ;;N8^NATIONAL^1^^1
236 ;;N9^NATIONAL^1^^1
237 ;;O0^NATIONAL^1^^1
238 ;;O1^NATIONAL^1^^1
239 ;;O2^NATIONAL^1^^1
240 ;;O3^NATIONAL^1^^1
241 ;;O4^NATIONAL^1^^1
242 ;;O5^NATIONAL^1^^1
243 ;;O6^NATIONAL^1^^1
244 ;;O7^NATIONAL^1^^1
245 ;;O8^NATIONAL^1^^1
246 ;;O9^NATIONAL^1^^1
247 ;;P0^NATIONAL^1^^1
248 ;;P1^NATIONAL^1^^1
249 ;;P2^NATIONAL^1^^1
250 ;;P3^NATIONAL^1^^1
251 ;;P4^NATIONAL^1^^1
252 ;;P5^NATIONAL^1^^1
253 ;;P6^NATIONAL^1^^1
254 ;;P7^NATIONAL^1^^1
255 ;;P8^NATIONAL^1^^1
256 ;;P9^NATIONAL^1^^1
257 ;;Q0^NATIONAL^1^^1
258 ;;Q1^NATIONAL^1^^1
259 ;;Q2^NATIONAL^1^^1
260 ;;Q3^NATIONAL^1^^1
261 ;;Q4^NATIONAL^1^^1
262 ;;Q5^NATIONAL^1^^1
263 ;;Q6^NATIONAL^1^^1
264 ;;Q7^NATIONAL^1^^1
265 ;;Q8^NATIONAL^1^^1
266 ;;Q9^NATIONAL^1^^1
267 ;;R0^NATIONAL^1^^1
268 ;;R1^NATIONAL^1^^1
269 ;;R2^NATIONAL^1^^1
270 ;;R3^NATIONAL^1^^1
271 ;;R4^NATIONAL^1^^1
272 ;;R5^NATIONAL^1^^1
273 ;;R6^NATIONAL^1^^1
274 ;;R7^NATIONAL^1^^1
275 ;;R8^NATIONAL^1^^1
276 ;;R9^NATIONAL^1^^1
277 ;;S0^NATIONAL^1^^1
278 ;;S1^NATIONAL^1^^1
279 ;;S2^NATIONAL^1^^1
280 ;;S3^NATIONAL^1^^1
281 ;;S4^NATIONAL^1^^1
282 ;;S5^NATIONAL^1^^1
283 ;;S6^NATIONAL^1^^1
284 ;;S7^NATIONAL^1^^1
285 ;;S8^NATIONAL^1^^1
286 ;;S9^NATIONAL^1^^1
287 ;;T0^NATIONAL^1^^1
288 ;;T1^NATIONAL^1^^1
289 ;;T2^NATIONAL^1^^1
290 ;;T3^NATIONAL^1^^1
291 ;;T4^NATIONAL^1^^1
292 ;;T5^NATIONAL^1^^1
293 ;;T6^NATIONAL^1^^1
294 ;;T7^NATIONAL^1^^1
295 ;;T8^NATIONAL^1^^1
296 ;;T9^NATIONAL^1^^1
297 ;;U0^NATIONAL^1^^1
298 ;;U1^NATIONAL^1^^1
299 ;;U2^NATIONAL^1^^1
300 ;;U3^NATIONAL^1^^1
301 ;;U4^NATIONAL^1^^1
302 ;;U5^NATIONAL^1^^1
303 ;;U6^NATIONAL^1^^1
304 ;;U7^NATIONAL^1^^1
305 ;;U8^NATIONAL^1^^1
306 ;;U9^NATIONAL^1^^1
307 ;;V0^NATIONAL^1^^1
308 ;;V1^NATIONAL^1^^1
309 ;;V2^NATIONAL^1^^1
310 ;;V3^NATIONAL^1^^1
311 ;;V4^NATIONAL^1^^1
312 ;;V5^NATIONAL^1^^1
313 ;;V6^NATIONAL^1^^1
314 ;;V7^NATIONAL^1^^1
315 ;;V8^NATIONAL^1^^1
316 ;;V9^NATIONAL^1^^1
317 ;;W0^NATIONAL^1^^1
318 ;;W1^NATIONAL^1^^1
319 ;;W2^NATIONAL^1^^1
320 ;;W3^NATIONAL^1^^1
321 ;;W4^NATIONAL^1^^1
322 ;;W5^NATIONAL^1^^1
323 ;;W6^NATIONAL^1^^1
324 ;;W7^NATIONAL^1^^1
325 ;;W8^NATIONAL^1^^1
326 ;;W9^NATIONAL^1^^1
Note: See TracBrowser for help on using the repository browser.