1 | YTQQI007 ;ASF/ALB- MH3 PATCH 85 INIT ; 7/27/07 2:16pm
|
---|
2 | ;;5.01;MENTAL HEALTH;**85**;;Build 48
|
---|
3 | Q:'DIFQR(601.751) F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
|
---|
4 | Q Q
|
---|
5 | ;;^UTILITY(U,$J,601.751,974,0)
|
---|
6 | ;;=252^1^848
|
---|
7 | ;;^UTILITY(U,$J,601.751,975,0)
|
---|
8 | ;;=252^2^849
|
---|
9 | ;;^UTILITY(U,$J,601.751,976,0)
|
---|
10 | ;;=252^3^850
|
---|
11 | ;;^UTILITY(U,$J,601.751,977,0)
|
---|
12 | ;;=252^4^851
|
---|
13 | ;;^UTILITY(U,$J,601.751,978,0)
|
---|
14 | ;;=253^1^852
|
---|
15 | ;;^UTILITY(U,$J,601.751,979,0)
|
---|
16 | ;;=253^2^853
|
---|
17 | ;;^UTILITY(U,$J,601.751,980,0)
|
---|
18 | ;;=253^3^854
|
---|
19 | ;;^UTILITY(U,$J,601.751,981,0)
|
---|
20 | ;;=253^4^855
|
---|
21 | ;;^UTILITY(U,$J,601.751,982,0)
|
---|
22 | ;;=253^5^856
|
---|
23 | ;;^UTILITY(U,$J,601.751,983,0)
|
---|
24 | ;;=254^1^857
|
---|
25 | ;;^UTILITY(U,$J,601.751,984,0)
|
---|
26 | ;;=254^2^858
|
---|
27 | ;;^UTILITY(U,$J,601.751,985,0)
|
---|
28 | ;;=255^1^859
|
---|
29 | ;;^UTILITY(U,$J,601.751,986,0)
|
---|
30 | ;;=255^2^860
|
---|
31 | ;;^UTILITY(U,$J,601.751,987,0)
|
---|
32 | ;;=255^3^861
|
---|
33 | ;;^UTILITY(U,$J,601.751,988,0)
|
---|
34 | ;;=255^4^862
|
---|
35 | ;;^UTILITY(U,$J,601.751,989,0)
|
---|
36 | ;;=256^1^863
|
---|
37 | ;;^UTILITY(U,$J,601.751,990,0)
|
---|
38 | ;;=256^2^864
|
---|
39 | ;;^UTILITY(U,$J,601.751,991,0)
|
---|
40 | ;;=256^3^865
|
---|
41 | ;;^UTILITY(U,$J,601.751,992,0)
|
---|
42 | ;;=257^1^866
|
---|
43 | ;;^UTILITY(U,$J,601.751,993,0)
|
---|
44 | ;;=257^2^867
|
---|
45 | ;;^UTILITY(U,$J,601.751,994,0)
|
---|
46 | ;;=257^3^868
|
---|
47 | ;;^UTILITY(U,$J,601.751,995,0)
|
---|
48 | ;;=258^1^869
|
---|
49 | ;;^UTILITY(U,$J,601.751,996,0)
|
---|
50 | ;;=258^2^290
|
---|
51 | ;;^UTILITY(U,$J,601.751,997,0)
|
---|
52 | ;;=258^3^870
|
---|
53 | ;;^UTILITY(U,$J,601.751,998,0)
|
---|
54 | ;;=259^1^871
|
---|
55 | ;;^UTILITY(U,$J,601.751,999,0)
|
---|
56 | ;;=259^2^242
|
---|
57 | ;;^UTILITY(U,$J,601.751,1000,0)
|
---|
58 | ;;=259^3^872
|
---|
59 | ;;^UTILITY(U,$J,601.751,1001,0)
|
---|
60 | ;;=260^1^873
|
---|
61 | ;;^UTILITY(U,$J,601.751,1002,0)
|
---|
62 | ;;=260^2^290
|
---|
63 | ;;^UTILITY(U,$J,601.751,1003,0)
|
---|
64 | ;;=260^3^874
|
---|
65 | ;;^UTILITY(U,$J,601.751,1004,0)
|
---|
66 | ;;=261^1^875
|
---|
67 | ;;^UTILITY(U,$J,601.751,1005,0)
|
---|
68 | ;;=261^2^876
|
---|
69 | ;;^UTILITY(U,$J,601.751,1006,0)
|
---|
70 | ;;=261^3^877
|
---|
71 | ;;^UTILITY(U,$J,601.751,1007,0)
|
---|
72 | ;;=261^4^878
|
---|
73 | ;;^UTILITY(U,$J,601.751,1008,0)
|
---|
74 | ;;=262^1^879
|
---|
75 | ;;^UTILITY(U,$J,601.751,1009,0)
|
---|
76 | ;;=262^2^880
|
---|
77 | ;;^UTILITY(U,$J,601.751,1010,0)
|
---|
78 | ;;=262^3^881
|
---|
79 | ;;^UTILITY(U,$J,601.751,1011,0)
|
---|
80 | ;;=262^4^882
|
---|
81 | ;;^UTILITY(U,$J,601.751,1012,0)
|
---|
82 | ;;=263^1^883
|
---|
83 | ;;^UTILITY(U,$J,601.751,1013,0)
|
---|
84 | ;;=263^2^884
|
---|
85 | ;;^UTILITY(U,$J,601.751,1014,0)
|
---|
86 | ;;=263^3^885
|
---|
87 | ;;^UTILITY(U,$J,601.751,1015,0)
|
---|
88 | ;;=263^4^886
|
---|
89 | ;;^UTILITY(U,$J,601.751,1016,0)
|
---|
90 | ;;=264^1^887
|
---|
91 | ;;^UTILITY(U,$J,601.751,1017,0)
|
---|
92 | ;;=264^2^888
|
---|
93 | ;;^UTILITY(U,$J,601.751,1018,0)
|
---|
94 | ;;=264^3^889
|
---|
95 | ;;^UTILITY(U,$J,601.751,1019,0)
|
---|
96 | ;;=264^4^890
|
---|
97 | ;;^UTILITY(U,$J,601.751,1020,0)
|
---|
98 | ;;=265^1^891
|
---|
99 | ;;^UTILITY(U,$J,601.751,1021,0)
|
---|
100 | ;;=265^2^892
|
---|
101 | ;;^UTILITY(U,$J,601.751,1022,0)
|
---|
102 | ;;=265^3^893
|
---|
103 | ;;^UTILITY(U,$J,601.751,1023,0)
|
---|
104 | ;;=265^4^894
|
---|
105 | ;;^UTILITY(U,$J,601.751,1024,0)
|
---|
106 | ;;=266^1^895
|
---|
107 | ;;^UTILITY(U,$J,601.751,1025,0)
|
---|
108 | ;;=266^2^896
|
---|
109 | ;;^UTILITY(U,$J,601.751,1026,0)
|
---|
110 | ;;=266^3^897
|
---|
111 | ;;^UTILITY(U,$J,601.751,1027,0)
|
---|
112 | ;;=267^1^898
|
---|
113 | ;;^UTILITY(U,$J,601.751,1028,0)
|
---|
114 | ;;=267^2^899
|
---|
115 | ;;^UTILITY(U,$J,601.751,1029,0)
|
---|
116 | ;;=267^3^900
|
---|
117 | ;;^UTILITY(U,$J,601.751,1030,0)
|
---|
118 | ;;=267^4^901
|
---|
119 | ;;^UTILITY(U,$J,601.751,1031,0)
|
---|
120 | ;;=268^1^902
|
---|
121 | ;;^UTILITY(U,$J,601.751,1032,0)
|
---|
122 | ;;=268^2^903
|
---|
123 | ;;^UTILITY(U,$J,601.751,1033,0)
|
---|
124 | ;;=268^3^904
|
---|
125 | ;;^UTILITY(U,$J,601.751,1034,0)
|
---|
126 | ;;=268^4^905
|
---|
127 | ;;^UTILITY(U,$J,601.751,1035,0)
|
---|
128 | ;;=269^1^902
|
---|
129 | ;;^UTILITY(U,$J,601.751,1036,0)
|
---|
130 | ;;=269^2^903
|
---|
131 | ;;^UTILITY(U,$J,601.751,1037,0)
|
---|
132 | ;;=269^3^904
|
---|
133 | ;;^UTILITY(U,$J,601.751,1038,0)
|
---|
134 | ;;=269^4^906
|
---|
135 | ;;^UTILITY(U,$J,601.751,1039,0)
|
---|
136 | ;;=270^1^907
|
---|
137 | ;;^UTILITY(U,$J,601.751,1040,0)
|
---|
138 | ;;=270^2^908
|
---|
139 | ;;^UTILITY(U,$J,601.751,1041,0)
|
---|
140 | ;;=270^3^909
|
---|
141 | ;;^UTILITY(U,$J,601.751,1042,0)
|
---|
142 | ;;=271^1^910
|
---|
143 | ;;^UTILITY(U,$J,601.751,1043,0)
|
---|
144 | ;;=271^2^911
|
---|
145 | ;;^UTILITY(U,$J,601.751,1044,0)
|
---|
146 | ;;=271^3^912
|
---|
147 | ;;^UTILITY(U,$J,601.751,1045,0)
|
---|
148 | ;;=271^4^886
|
---|
149 | ;;^UTILITY(U,$J,601.751,1046,0)
|
---|
150 | ;;=272^1^913
|
---|
151 | ;;^UTILITY(U,$J,601.751,1047,0)
|
---|
152 | ;;=272^2^914
|
---|
153 | ;;^UTILITY(U,$J,601.751,1048,0)
|
---|
154 | ;;=273^1^915
|
---|
155 | ;;^UTILITY(U,$J,601.751,1049,0)
|
---|
156 | ;;=273^2^916
|
---|
157 | ;;^UTILITY(U,$J,601.751,1050,0)
|
---|
158 | ;;=273^3^917
|
---|
159 | ;;^UTILITY(U,$J,601.751,1051,0)
|
---|
160 | ;;=274^1^918
|
---|
161 | ;;^UTILITY(U,$J,601.751,1052,0)
|
---|
162 | ;;=274^2^919
|
---|
163 | ;;^UTILITY(U,$J,601.751,1053,0)
|
---|
164 | ;;=274^3^920
|
---|
165 | ;;^UTILITY(U,$J,601.751,1054,0)
|
---|
166 | ;;=275^1^921
|
---|
167 | ;;^UTILITY(U,$J,601.751,1055,0)
|
---|
168 | ;;=275^2^922
|
---|
169 | ;;^UTILITY(U,$J,601.751,1056,0)
|
---|
170 | ;;=275^3^923
|
---|
171 | ;;^UTILITY(U,$J,601.751,1057,0)
|
---|
172 | ;;=276^1^361
|
---|
173 | ;;^UTILITY(U,$J,601.751,1058,0)
|
---|
174 | ;;=276^2^924
|
---|
175 | ;;^UTILITY(U,$J,601.751,1059,0)
|
---|
176 | ;;=276^3^243
|
---|
177 | ;;^UTILITY(U,$J,601.751,1060,0)
|
---|
178 | ;;=277^1^925
|
---|
179 | ;;^UTILITY(U,$J,601.751,1061,0)
|
---|
180 | ;;=277^2^926
|
---|
181 | ;;^UTILITY(U,$J,601.751,1062,0)
|
---|
182 | ;;=277^3^927
|
---|
183 | ;;^UTILITY(U,$J,601.751,1063,0)
|
---|
184 | ;;=278^1^928
|
---|
185 | ;;^UTILITY(U,$J,601.751,1064,0)
|
---|
186 | ;;=278^2^929
|
---|
187 | ;;^UTILITY(U,$J,601.751,1065,0)
|
---|
188 | ;;=278^3^930
|
---|
189 | ;;^UTILITY(U,$J,601.751,1066,0)
|
---|
190 | ;;=278^4^931
|
---|
191 | ;;^UTILITY(U,$J,601.751,1067,0)
|
---|
192 | ;;=279^1^932
|
---|
193 | ;;^UTILITY(U,$J,601.751,1068,0)
|
---|
194 | ;;=279^2^933
|
---|
195 | ;;^UTILITY(U,$J,601.751,1069,0)
|
---|
196 | ;;=280^1^934
|
---|
197 | ;;^UTILITY(U,$J,601.751,1070,0)
|
---|
198 | ;;=280^2^935
|
---|
199 | ;;^UTILITY(U,$J,601.751,1071,0)
|
---|
200 | ;;=280^3^936
|
---|
201 | ;;^UTILITY(U,$J,601.751,1072,0)
|
---|
202 | ;;=281^1^289
|
---|
203 | ;;^UTILITY(U,$J,601.751,1073,0)
|
---|
204 | ;;=281^2^290
|
---|
205 | ;;^UTILITY(U,$J,601.751,1074,0)
|
---|
206 | ;;=281^3^937
|
---|
207 | ;;^UTILITY(U,$J,601.751,1075,0)
|
---|
208 | ;;=282^1^938
|
---|
209 | ;;^UTILITY(U,$J,601.751,1076,0)
|
---|
210 | ;;=282^2^939
|
---|
211 | ;;^UTILITY(U,$J,601.751,1077,0)
|
---|
212 | ;;=282^3^940
|
---|
213 | ;;^UTILITY(U,$J,601.751,1078,0)
|
---|
214 | ;;=282^4^941
|
---|
215 | ;;^UTILITY(U,$J,601.751,1079,0)
|
---|
216 | ;;=283^1^942
|
---|
217 | ;;^UTILITY(U,$J,601.751,1080,0)
|
---|
218 | ;;=283^2^943
|
---|
219 | ;;^UTILITY(U,$J,601.751,1081,0)
|
---|
220 | ;;=283^3^944
|
---|
221 | ;;^UTILITY(U,$J,601.751,1082,0)
|
---|
222 | ;;=283^4^945
|
---|
223 | ;;^UTILITY(U,$J,601.751,1083,0)
|
---|
224 | ;;=284^1^946
|
---|
225 | ;;^UTILITY(U,$J,601.751,1084,0)
|
---|
226 | ;;=284^2^947
|
---|
227 | ;;^UTILITY(U,$J,601.751,1085,0)
|
---|
228 | ;;=284^3^948
|
---|
229 | ;;^UTILITY(U,$J,601.751,1086,0)
|
---|
230 | ;;=284^4^949
|
---|
231 | ;;^UTILITY(U,$J,601.751,1087,0)
|
---|
232 | ;;=285^1^950
|
---|
233 | ;;^UTILITY(U,$J,601.751,1088,0)
|
---|
234 | ;;=285^2^951
|
---|
235 | ;;^UTILITY(U,$J,601.751,1089,0)
|
---|
236 | ;;=285^3^952
|
---|
237 | ;;^UTILITY(U,$J,601.751,1090,0)
|
---|
238 | ;;=285^4^953
|
---|
239 | ;;^UTILITY(U,$J,601.751,1091,0)
|
---|
240 | ;;=286^1^954
|
---|
241 | ;;^UTILITY(U,$J,601.751,1092,0)
|
---|
242 | ;;=286^2^955
|
---|
243 | ;;^UTILITY(U,$J,601.751,1093,0)
|
---|
244 | ;;=286^3^956
|
---|
245 | ;;^UTILITY(U,$J,601.751,1094,0)
|
---|
246 | ;;=286^4^957
|
---|
247 | ;;^UTILITY(U,$J,601.751,1095,0)
|
---|
248 | ;;=287^1^958
|
---|
249 | ;;^UTILITY(U,$J,601.751,1096,0)
|
---|
250 | ;;=287^2^959
|
---|
251 | ;;^UTILITY(U,$J,601.751,1097,0)
|
---|
252 | ;;=287^3^960
|
---|
253 | ;;^UTILITY(U,$J,601.751,1098,0)
|
---|
254 | ;;=287^4^961
|
---|
255 | ;;^UTILITY(U,$J,601.751,1099,0)
|
---|
256 | ;;=287^5^962
|
---|
257 | ;;^UTILITY(U,$J,601.751,1100,0)
|
---|
258 | ;;=287^6^963
|
---|
259 | ;;^UTILITY(U,$J,601.751,1101,0)
|
---|
260 | ;;=288^1^780
|
---|
261 | ;;^UTILITY(U,$J,601.751,1102,0)
|
---|
262 | ;;=288^2^781
|
---|
263 | ;;^UTILITY(U,$J,601.751,1103,0)
|
---|
264 | ;;=288^3^964
|
---|
265 | ;;^UTILITY(U,$J,601.751,1104,0)
|
---|
266 | ;;=288^4^965
|
---|
267 | ;;^UTILITY(U,$J,601.751,1105,0)
|
---|
268 | ;;=288^5^784
|
---|
269 | ;;^UTILITY(U,$J,601.751,1106,0)
|
---|
270 | ;;=288^6^785
|
---|
271 | ;;^UTILITY(U,$J,601.751,1107,0)
|
---|
272 | ;;=289^1^966
|
---|
273 | ;;^UTILITY(U,$J,601.751,1108,0)
|
---|
274 | ;;=290^1^967
|
---|
275 | ;;^UTILITY(U,$J,601.751,1109,0)
|
---|
276 | ;;=290^2^968
|
---|
277 | ;;^UTILITY(U,$J,601.751,1110,0)
|
---|
278 | ;;=290^3^969
|
---|
279 | ;;^UTILITY(U,$J,601.751,1111,0)
|
---|
280 | ;;=290^4^970
|
---|
281 | ;;^UTILITY(U,$J,601.751,1112,0)
|
---|
282 | ;;=290^5^971
|
---|
283 | ;;^UTILITY(U,$J,601.751,1113,0)
|
---|
284 | ;;=291^1^972
|
---|
285 | ;;^UTILITY(U,$J,601.751,1114,0)
|
---|
286 | ;;=291^2^973
|
---|
287 | ;;^UTILITY(U,$J,601.751,1115,0)
|
---|
288 | ;;=291^3^974
|
---|
289 | ;;^UTILITY(U,$J,601.751,1116,0)
|
---|
290 | ;;=291^4^975
|
---|
291 | ;;^UTILITY(U,$J,601.751,1117,0)
|
---|
292 | ;;=291^5^976
|
---|
293 | ;;^UTILITY(U,$J,601.751,1118,0)
|
---|
294 | ;;=292^1^977
|
---|
295 | ;;^UTILITY(U,$J,601.751,1119,0)
|
---|
296 | ;;=292^2^978
|
---|
297 | ;;^UTILITY(U,$J,601.751,1120,0)
|
---|
298 | ;;=292^3^979
|
---|
299 | ;;^UTILITY(U,$J,601.751,1121,0)
|
---|
300 | ;;=292^4^980
|
---|
301 | ;;^UTILITY(U,$J,601.751,1122,0)
|
---|
302 | ;;=292^5^981
|
---|
303 | ;;^UTILITY(U,$J,601.751,1123,0)
|
---|
304 | ;;=293^1^982
|
---|
305 | ;;^UTILITY(U,$J,601.751,1124,0)
|
---|
306 | ;;=293^2^983
|
---|
307 | ;;^UTILITY(U,$J,601.751,1125,0)
|
---|
308 | ;;=293^3^984
|
---|
309 | ;;^UTILITY(U,$J,601.751,1126,0)
|
---|
310 | ;;=293^4^985
|
---|
311 | ;;^UTILITY(U,$J,601.751,1127,0)
|
---|
312 | ;;=293^5^986
|
---|
313 | ;;^UTILITY(U,$J,601.751,1128,0)
|
---|
314 | ;;=294^1^972
|
---|
315 | ;;^UTILITY(U,$J,601.751,1129,0)
|
---|
316 | ;;=294^2^973
|
---|
317 | ;;^UTILITY(U,$J,601.751,1130,0)
|
---|
318 | ;;=294^3^974
|
---|
319 | ;;^UTILITY(U,$J,601.751,1131,0)
|
---|
320 | ;;=294^4^987
|
---|
321 | ;;^UTILITY(U,$J,601.751,1132,0)
|
---|
322 | ;;=294^5^988
|
---|
323 | ;;^UTILITY(U,$J,601.751,1133,0)
|
---|
324 | ;;=295^1^967
|
---|
325 | ;;^UTILITY(U,$J,601.751,1134,0)
|
---|
326 | ;;=295^2^973
|
---|
327 | ;;^UTILITY(U,$J,601.751,1135,0)
|
---|
328 | ;;=295^3^974
|
---|
329 | ;;^UTILITY(U,$J,601.751,1136,0)
|
---|
330 | ;;=295^4^987
|
---|
331 | ;;^UTILITY(U,$J,601.751,1137,0)
|
---|
332 | ;;=295^5^988
|
---|
333 | ;;^UTILITY(U,$J,601.751,1138,0)
|
---|
334 | ;;=296^1^967
|
---|
335 | ;;^UTILITY(U,$J,601.751,1139,0)
|
---|
336 | ;;=296^2^973
|
---|
337 | ;;^UTILITY(U,$J,601.751,1140,0)
|
---|
338 | ;;=296^3^974
|
---|
339 | ;;^UTILITY(U,$J,601.751,1141,0)
|
---|
340 | ;;=296^4^970
|
---|
341 | ;;^UTILITY(U,$J,601.751,1142,0)
|
---|
342 | ;;=296^5^989
|
---|
343 | ;;^UTILITY(U,$J,601.751,1143,0)
|
---|
344 | ;;=297^1^967
|
---|
345 | ;;^UTILITY(U,$J,601.751,1144,0)
|
---|
346 | ;;=297^2^973
|
---|
347 | ;;^UTILITY(U,$J,601.751,1145,0)
|
---|
348 | ;;=297^3^969
|
---|
349 | ;;^UTILITY(U,$J,601.751,1146,0)
|
---|
350 | ;;=297^4^970
|
---|
351 | ;;^UTILITY(U,$J,601.751,1147,0)
|
---|
352 | ;;=297^5^971
|
---|
353 | ;;^UTILITY(U,$J,601.751,1148,0)
|
---|
354 | ;;=298^1^972
|
---|
355 | ;;^UTILITY(U,$J,601.751,1149,0)
|
---|
356 | ;;=298^2^973
|
---|
357 | ;;^UTILITY(U,$J,601.751,1150,0)
|
---|
358 | ;;=298^3^974
|
---|
359 | ;;^UTILITY(U,$J,601.751,1151,0)
|
---|
360 | ;;=298^4^970
|
---|
361 | ;;^UTILITY(U,$J,601.751,1152,0)
|
---|
362 | ;;=298^5^976
|
---|
363 | ;;^UTILITY(U,$J,601.751,1153,0)
|
---|
364 | ;;=299^1^982
|
---|
365 | ;;^UTILITY(U,$J,601.751,1154,0)
|
---|
366 | ;;=299^2^983
|
---|
367 | ;;^UTILITY(U,$J,601.751,1155,0)
|
---|
368 | ;;=299^3^984
|
---|
369 | ;;^UTILITY(U,$J,601.751,1156,0)
|
---|
370 | ;;=299^4^990
|
---|
371 | ;;^UTILITY(U,$J,601.751,1157,0)
|
---|
372 | ;;=299^5^991
|
---|
373 | ;;^UTILITY(U,$J,601.751,1158,0)
|
---|
374 | ;;=300^1^967
|
---|
375 | ;;^UTILITY(U,$J,601.751,1159,0)
|
---|
376 | ;;=300^2^968
|
---|
377 | ;;^UTILITY(U,$J,601.751,1160,0)
|
---|
378 | ;;=300^3^969
|
---|
379 | ;;^UTILITY(U,$J,601.751,1161,0)
|
---|
380 | ;;=300^4^992
|
---|
381 | ;;^UTILITY(U,$J,601.751,1162,0)
|
---|
382 | ;;=300^5^993
|
---|