source: WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YTQQI007.m@ 699

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

initial load of WorldVistAEHR

File size: 8.9 KB
Line 
1YTQQI007 ;ASF/ALB- MH3 PATCH 85 INIT ; 7/27/07 2:16pm
2 ;;5.01;MENTAL HEALTH;**85**;;Build 49
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
4Q 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
Note: See TracBrowser for help on using the repository browser.