source: WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YTQQI00K.m@ 1351

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

initial load of WorldVistAEHR
File size: 4.4 KB
Line 
1YTQQI00K ;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,14523,0)
6 ;;=6180^1^1410
7 ;;^UTILITY(U,$J,601.751,14524,0)
8 ;;=6180^2^1411
9 ;;^UTILITY(U,$J,601.751,14525,0)
10 ;;=6180^3^1063
11 ;;^UTILITY(U,$J,601.751,14526,0)
12 ;;=6180^4^1062
13 ;;^UTILITY(U,$J,601.751,14527,0)
14 ;;=6180^5^1061
15 ;;^UTILITY(U,$J,601.751,14528,0)
16 ;;=6180^6^1059
17 ;;^UTILITY(U,$J,601.751,14529,0)
18 ;;=6181^1^100884
19 ;;^UTILITY(U,$J,601.751,14530,0)
20 ;;=6181^2^1412
21 ;;^UTILITY(U,$J,601.751,14531,0)
22 ;;=6181^3^1413
23 ;;^UTILITY(U,$J,601.751,14532,0)
24 ;;=6181^4^1414
25 ;;^UTILITY(U,$J,601.751,14533,0)
26 ;;=6181^5^1415
27 ;;^UTILITY(U,$J,601.751,14534,0)
28 ;;=6181^6^1416
29 ;;^UTILITY(U,$J,601.751,14535,0)
30 ;;=6182^1^100884
31 ;;^UTILITY(U,$J,601.751,14536,0)
32 ;;=6182^2^1412
33 ;;^UTILITY(U,$J,601.751,14537,0)
34 ;;=6182^3^1413
35 ;;^UTILITY(U,$J,601.751,14538,0)
36 ;;=6182^4^1414
37 ;;^UTILITY(U,$J,601.751,14539,0)
38 ;;=6182^5^1415
39 ;;^UTILITY(U,$J,601.751,14540,0)
40 ;;=6182^6^1416
41 ;;^UTILITY(U,$J,601.751,14541,0)
42 ;;=6183^1^237
43 ;;^UTILITY(U,$J,601.751,14542,0)
44 ;;=6183^2^241
45 ;;^UTILITY(U,$J,601.751,14543,0)
46 ;;=6184^1^237
47 ;;^UTILITY(U,$J,601.751,14544,0)
48 ;;=6184^2^241
49 ;;^UTILITY(U,$J,601.751,14545,0)
50 ;;=6185^1^237
51 ;;^UTILITY(U,$J,601.751,14546,0)
52 ;;=6185^2^241
53 ;;^UTILITY(U,$J,601.751,14547,0)
54 ;;=6186^1^237
55 ;;^UTILITY(U,$J,601.751,14548,0)
56 ;;=6186^2^241
57 ;;^UTILITY(U,$J,601.751,14549,0)
58 ;;=6187^1^237
59 ;;^UTILITY(U,$J,601.751,14550,0)
60 ;;=6187^2^241
61 ;;^UTILITY(U,$J,601.751,14551,0)
62 ;;=6188^1^237
63 ;;^UTILITY(U,$J,601.751,14552,0)
64 ;;=6188^2^241
65 ;;^UTILITY(U,$J,601.751,14553,0)
66 ;;=6189^1^237
67 ;;^UTILITY(U,$J,601.751,14554,0)
68 ;;=6189^2^241
69 ;;^UTILITY(U,$J,601.751,14555,0)
70 ;;=6190^1^237
71 ;;^UTILITY(U,$J,601.751,14556,0)
72 ;;=6190^2^241
73 ;;^UTILITY(U,$J,601.751,14557,0)
74 ;;=6191^1^237
75 ;;^UTILITY(U,$J,601.751,14558,0)
76 ;;=6191^2^241
77 ;;^UTILITY(U,$J,601.751,14559,0)
78 ;;=6192^1^237
79 ;;^UTILITY(U,$J,601.751,14560,0)
80 ;;=6192^2^241
81 ;;^UTILITY(U,$J,601.751,14561,0)
82 ;;=6193^1^237
83 ;;^UTILITY(U,$J,601.751,14562,0)
84 ;;=6193^2^241
85 ;;^UTILITY(U,$J,601.751,14563,0)
86 ;;=6194^1^237
87 ;;^UTILITY(U,$J,601.751,14564,0)
88 ;;=6194^2^241
89 ;;^UTILITY(U,$J,601.751,14565,0)
90 ;;=6195^1^237
91 ;;^UTILITY(U,$J,601.751,14566,0)
92 ;;=6195^2^241
93 ;;^UTILITY(U,$J,601.751,14567,0)
94 ;;=6196^1^237
95 ;;^UTILITY(U,$J,601.751,14568,0)
96 ;;=6196^2^241
97 ;;^UTILITY(U,$J,601.751,14569,0)
98 ;;=6197^1^237
99 ;;^UTILITY(U,$J,601.751,14570,0)
100 ;;=6197^2^241
101 ;;^UTILITY(U,$J,601.751,14571,0)
102 ;;=6198^1^237
103 ;;^UTILITY(U,$J,601.751,14572,0)
104 ;;=6198^2^241
105 ;;^UTILITY(U,$J,601.751,14573,0)
106 ;;=6199^1^237
107 ;;^UTILITY(U,$J,601.751,14574,0)
108 ;;=6199^2^241
109 ;;^UTILITY(U,$J,601.751,14575,0)
110 ;;=6200^1^237
111 ;;^UTILITY(U,$J,601.751,14576,0)
112 ;;=6200^2^241
113 ;;^UTILITY(U,$J,601.751,14577,0)
114 ;;=6201^1^237
115 ;;^UTILITY(U,$J,601.751,14578,0)
116 ;;=6201^2^241
117 ;;^UTILITY(U,$J,601.751,14579,0)
118 ;;=6202^1^237
119 ;;^UTILITY(U,$J,601.751,14580,0)
120 ;;=6202^2^241
121 ;;^UTILITY(U,$J,601.751,14581,0)
122 ;;=6203^1^237
123 ;;^UTILITY(U,$J,601.751,14582,0)
124 ;;=6203^2^241
125 ;;^UTILITY(U,$J,601.751,14583,0)
126 ;;=6204^1^237
127 ;;^UTILITY(U,$J,601.751,14584,0)
128 ;;=6204^2^241
129 ;;^UTILITY(U,$J,601.751,14585,0)
130 ;;=6205^1^237
131 ;;^UTILITY(U,$J,601.751,14586,0)
132 ;;=6205^2^241
133 ;;^UTILITY(U,$J,601.751,14587,0)
134 ;;=6206^1^237
135 ;;^UTILITY(U,$J,601.751,14588,0)
136 ;;=6206^2^241
137 ;;^UTILITY(U,$J,601.751,14589,0)
138 ;;=6207^1^237
139 ;;^UTILITY(U,$J,601.751,14590,0)
140 ;;=6207^2^241
141 ;;^UTILITY(U,$J,601.751,14609,0)
142 ;;=6214^1^1833
143 ;;^UTILITY(U,$J,601.751,14610,0)
144 ;;=6214^2^1834
145 ;;^UTILITY(U,$J,601.751,14611,0)
146 ;;=6215^1^1835
147 ;;^UTILITY(U,$J,601.751,14612,0)
148 ;;=6215^2^1836
149 ;;^UTILITY(U,$J,601.751,14613,0)
150 ;;=6216^1^1837
151 ;;^UTILITY(U,$J,601.751,14614,0)
152 ;;=6216^2^1838
153 ;;^UTILITY(U,$J,601.751,14615,0)
154 ;;=6217^1^1839
155 ;;^UTILITY(U,$J,601.751,14616,0)
156 ;;=6217^2^1840
157 ;;^UTILITY(U,$J,601.751,14617,0)
158 ;;=6217^3^1841
159 ;;^UTILITY(U,$J,601.751,14618,0)
160 ;;=6218^1^1839
161 ;;^UTILITY(U,$J,601.751,14619,0)
162 ;;=6218^2^1840
163 ;;^UTILITY(U,$J,601.751,14620,0)
164 ;;=6218^3^1841
165 ;;^UTILITY(U,$J,601.751,14621,0)
166 ;;=6219^1^1842
167 ;;^UTILITY(U,$J,601.751,14622,0)
168 ;;=6219^2^1843
169 ;;^UTILITY(U,$J,601.751,14623,0)
170 ;;=6219^3^1844
171 ;;^UTILITY(U,$J,601.751,14624,0)
172 ;;=6219^4^1845
173 ;;^UTILITY(U,$J,601.751,14625,0)
174 ;;=6219^5^1846
175 ;;^UTILITY(U,$J,601.751,14626,0)
176 ;;=6219^6^1847
Note: See TracBrowser for help on using the repository browser.