YTQQI00G ;ASF/ALB- MH3 PATCH 85 INIT ; 7/27/07 2:16pm
 ;;5.01;MENTAL HEALTH;**85**;;Build 48
 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
Q Q
 ;;^UTILITY(U,$J,601.751,10685,0)
 ;;=3142^2^241
 ;;^UTILITY(U,$J,601.751,10686,0)
 ;;=3143^1^237
 ;;^UTILITY(U,$J,601.751,10687,0)
 ;;=3143^2^241
 ;;^UTILITY(U,$J,601.751,10688,0)
 ;;=3144^1^237
 ;;^UTILITY(U,$J,601.751,10689,0)
 ;;=3144^2^241
 ;;^UTILITY(U,$J,601.751,10690,0)
 ;;=3145^1^237
 ;;^UTILITY(U,$J,601.751,10691,0)
 ;;=3145^2^241
 ;;^UTILITY(U,$J,601.751,10692,0)
 ;;=3146^1^237
 ;;^UTILITY(U,$J,601.751,10693,0)
 ;;=3146^2^241
 ;;^UTILITY(U,$J,601.751,10694,0)
 ;;=3147^1^1441
 ;;^UTILITY(U,$J,601.751,10695,0)
 ;;=3147^2^1442
 ;;^UTILITY(U,$J,601.751,10696,0)
 ;;=3148^1^1446
 ;;^UTILITY(U,$J,601.751,10697,0)
 ;;=3148^2^1447
 ;;^UTILITY(U,$J,601.751,10698,0)
 ;;=3149^1^1443
 ;;^UTILITY(U,$J,601.751,10699,0)
 ;;=3149^2^1444
 ;;^UTILITY(U,$J,601.751,10700,0)
 ;;=3149^3^1445
 ;;^UTILITY(U,$J,601.751,10701,0)
 ;;=3150^1^237
 ;;^UTILITY(U,$J,601.751,10702,0)
 ;;=3150^2^241
 ;;^UTILITY(U,$J,601.751,10719,0)
 ;;=3155^1^100098
 ;;^UTILITY(U,$J,601.751,10720,0)
 ;;=3155^2^100099
 ;;^UTILITY(U,$J,601.751,10721,0)
 ;;=3155^3^100100
 ;;^UTILITY(U,$J,601.751,10722,0)
 ;;=3155^4^100101
 ;;^UTILITY(U,$J,601.751,10723,0)
 ;;=3156^1^100098
 ;;^UTILITY(U,$J,601.751,10724,0)
 ;;=3156^2^100099
 ;;^UTILITY(U,$J,601.751,10725,0)
 ;;=3156^3^100100
 ;;^UTILITY(U,$J,601.751,10726,0)
 ;;=3156^4^100101
 ;;^UTILITY(U,$J,601.751,10727,0)
 ;;=3157^1^100098
 ;;^UTILITY(U,$J,601.751,10728,0)
 ;;=3157^2^100099
 ;;^UTILITY(U,$J,601.751,10729,0)
 ;;=3157^3^100100
 ;;^UTILITY(U,$J,601.751,10730,0)
 ;;=3157^4^100101
 ;;^UTILITY(U,$J,601.751,10731,0)
 ;;=3158^1^100098
 ;;^UTILITY(U,$J,601.751,10732,0)
 ;;=3158^2^100099
 ;;^UTILITY(U,$J,601.751,10733,0)
 ;;=3158^3^100100
 ;;^UTILITY(U,$J,601.751,10734,0)
 ;;=3158^4^100101
 ;;^UTILITY(U,$J,601.751,10735,0)
 ;;=3159^1^100165
 ;;^UTILITY(U,$J,601.751,10736,0)
 ;;=3159^2^100166
 ;;^UTILITY(U,$J,601.751,10737,0)
 ;;=3159^3^100752
 ;;^UTILITY(U,$J,601.751,10738,0)
 ;;=3160^1^818
 ;;^UTILITY(U,$J,601.751,10739,0)
 ;;=3160^2^819
 ;;^UTILITY(U,$J,601.751,10740,0)
 ;;=3161^1^744
 ;;^UTILITY(U,$J,601.751,10741,0)
 ;;=3161^2^100092
 ;;^UTILITY(U,$J,601.751,10742,0)
 ;;=3161^3^745
 ;;^UTILITY(U,$J,601.751,10743,0)
 ;;=3161^4^746
 ;;^UTILITY(U,$J,601.751,10744,0)
 ;;=3161^5^747
 ;;^UTILITY(U,$J,601.751,10745,0)
 ;;=3161^6^748
 ;;^UTILITY(U,$J,601.751,10746,0)
 ;;=3161^7^100894
 ;;^UTILITY(U,$J,601.751,10747,0)
 ;;=3162^1^1273
 ;;^UTILITY(U,$J,601.751,10748,0)
 ;;=3162^2^1274
 ;;^UTILITY(U,$J,601.751,10749,0)
 ;;=3162^3^1275
 ;;^UTILITY(U,$J,601.751,10750,0)
 ;;=3162^4^1276
 ;;^UTILITY(U,$J,601.751,10751,0)
 ;;=3162^5^1277
 ;;^UTILITY(U,$J,601.751,10752,0)
 ;;=3162^6^100052
 ;;^UTILITY(U,$J,601.751,10753,0)
 ;;=3162^7^1278
 ;;^UTILITY(U,$J,601.751,10754,0)
 ;;=3162^8^1279
 ;;^UTILITY(U,$J,601.751,10755,0)
 ;;=3163^1^237
 ;;^UTILITY(U,$J,601.751,10756,0)
 ;;=3163^2^241
 ;;^UTILITY(U,$J,601.751,10757,0)
 ;;=3163^3^1280
 ;;^UTILITY(U,$J,601.751,10758,0)
 ;;=3163^4^1281
 ;;^UTILITY(U,$J,601.751,10759,0)
 ;;=3164^1^237
 ;;^UTILITY(U,$J,601.751,10760,0)
 ;;=3164^2^241
 ;;^UTILITY(U,$J,601.751,10761,0)
 ;;=3164^3^1280
 ;;^UTILITY(U,$J,601.751,10762,0)
 ;;=3164^4^1281
 ;;^UTILITY(U,$J,601.751,10763,0)
 ;;=3165^1^237
 ;;^UTILITY(U,$J,601.751,10764,0)
 ;;=3165^2^241
 ;;^UTILITY(U,$J,601.751,10765,0)
 ;;=3165^3^1280
 ;;^UTILITY(U,$J,601.751,10766,0)
 ;;=3165^4^1281
 ;;^UTILITY(U,$J,601.751,10767,0)
 ;;=3166^1^1282
 ;;^UTILITY(U,$J,601.751,10768,0)
 ;;=3166^2^1316
 ;;^UTILITY(U,$J,601.751,10769,0)
 ;;=3166^3^1284
 ;;^UTILITY(U,$J,601.751,10770,0)
 ;;=3166^4^1285
 ;;^UTILITY(U,$J,601.751,10771,0)
 ;;=3166^5^1280
 ;;^UTILITY(U,$J,601.751,10772,0)
 ;;=3166^6^1281
 ;;^UTILITY(U,$J,601.751,10773,0)
 ;;=3167^1^1286
 ;;^UTILITY(U,$J,601.751,10774,0)
 ;;=3167^2^1287
 ;;^UTILITY(U,$J,601.751,10775,0)
 ;;=3167^3^1288
 ;;^UTILITY(U,$J,601.751,10776,0)
 ;;=3167^4^1289
 ;;^UTILITY(U,$J,601.751,10777,0)
 ;;=3167^5^1290
 ;;^UTILITY(U,$J,601.751,10778,0)
 ;;=3167^6^1291
 ;;^UTILITY(U,$J,601.751,10779,0)
 ;;=3167^7^1292
 ;;^UTILITY(U,$J,601.751,10780,0)
 ;;=3167^8^1293
 ;;^UTILITY(U,$J,601.751,10781,0)
 ;;=3168^1^237
 ;;^UTILITY(U,$J,601.751,10782,0)
 ;;=3168^2^241
 ;;^UTILITY(U,$J,601.751,10783,0)
 ;;=3168^3^1280
 ;;^UTILITY(U,$J,601.751,10784,0)
 ;;=3168^4^1281
 ;;^UTILITY(U,$J,601.751,10785,0)
 ;;=3169^1^237
 ;;^UTILITY(U,$J,601.751,10786,0)
 ;;=3169^2^241
 ;;^UTILITY(U,$J,601.751,10787,0)
 ;;=3169^3^1280
 ;;^UTILITY(U,$J,601.751,10788,0)
 ;;=3169^4^1281
 ;;^UTILITY(U,$J,601.751,10789,0)
 ;;=3170^1^237
 ;;^UTILITY(U,$J,601.751,10790,0)
 ;;=3170^2^241
 ;;^UTILITY(U,$J,601.751,10791,0)
 ;;=3170^3^1280
 ;;^UTILITY(U,$J,601.751,10792,0)
 ;;=3170^4^1281
 ;;^UTILITY(U,$J,601.751,10793,0)
 ;;=3171^1^237
 ;;^UTILITY(U,$J,601.751,10794,0)
 ;;=3171^2^241
 ;;^UTILITY(U,$J,601.751,10795,0)
 ;;=3171^3^1280
 ;;^UTILITY(U,$J,601.751,10796,0)
 ;;=3171^4^1281
 ;;^UTILITY(U,$J,601.751,10797,0)
 ;;=3172^1^237
 ;;^UTILITY(U,$J,601.751,10798,0)
 ;;=3172^2^241
 ;;^UTILITY(U,$J,601.751,10799,0)
 ;;=3172^3^1280
 ;;^UTILITY(U,$J,601.751,10800,0)
 ;;=3172^4^1281
 ;;^UTILITY(U,$J,601.751,10801,0)
 ;;=3173^1^237
 ;;^UTILITY(U,$J,601.751,10802,0)
 ;;=3173^2^241
 ;;^UTILITY(U,$J,601.751,10803,0)
 ;;=3173^3^1280
 ;;^UTILITY(U,$J,601.751,10804,0)
 ;;=3173^4^1281
 ;;^UTILITY(U,$J,601.751,10805,0)
 ;;=3174^1^237
 ;;^UTILITY(U,$J,601.751,10806,0)
 ;;=3174^2^1294
 ;;^UTILITY(U,$J,601.751,10807,0)
 ;;=3174^3^1295
 ;;^UTILITY(U,$J,601.751,10808,0)
 ;;=3174^4^1280
 ;;^UTILITY(U,$J,601.751,10809,0)
 ;;=3174^5^1281
 ;;^UTILITY(U,$J,601.751,10810,0)
 ;;=3175^1^237
 ;;^UTILITY(U,$J,601.751,10811,0)
 ;;=3175^2^1296
 ;;^UTILITY(U,$J,601.751,10812,0)
 ;;=3175^3^1297
 ;;^UTILITY(U,$J,601.751,10813,0)
 ;;=3175^4^1298
 ;;^UTILITY(U,$J,601.751,10814,0)
 ;;=3175^5^1280
 ;;^UTILITY(U,$J,601.751,10815,0)
 ;;=3175^6^1281
 ;;^UTILITY(U,$J,601.751,10816,0)
 ;;=3176^1^237
 ;;^UTILITY(U,$J,601.751,10817,0)
 ;;=3176^2^1296
 ;;^UTILITY(U,$J,601.751,10818,0)
 ;;=3176^3^1297
 ;;^UTILITY(U,$J,601.751,10819,0)
 ;;=3176^4^1298
 ;;^UTILITY(U,$J,601.751,10820,0)
 ;;=3176^5^1280
 ;;^UTILITY(U,$J,601.751,10821,0)
 ;;=3176^6^1281
 ;;^UTILITY(U,$J,601.751,10822,0)
 ;;=3177^1^237
 ;;^UTILITY(U,$J,601.751,10823,0)
 ;;=3177^2^241
 ;;^UTILITY(U,$J,601.751,10824,0)
 ;;=3177^3^1280
 ;;^UTILITY(U,$J,601.751,10825,0)
 ;;=3177^4^1281
 ;;^UTILITY(U,$J,601.751,10826,0)
 ;;=3178^1^237
 ;;^UTILITY(U,$J,601.751,10827,0)
 ;;=3178^2^241
 ;;^UTILITY(U,$J,601.751,10828,0)
 ;;=3178^3^1280
 ;;^UTILITY(U,$J,601.751,10829,0)
 ;;=3178^4^1281
 ;;^UTILITY(U,$J,601.751,10830,0)
 ;;=3179^1^237
 ;;^UTILITY(U,$J,601.751,10831,0)
 ;;=3179^2^241
 ;;^UTILITY(U,$J,601.751,10832,0)
 ;;=3179^3^1280
 ;;^UTILITY(U,$J,601.751,10833,0)
 ;;=3179^4^1281
 ;;^UTILITY(U,$J,601.751,10834,0)
 ;;=3180^1^1301
 ;;^UTILITY(U,$J,601.751,10835,0)
 ;;=3180^2^1302
 ;;^UTILITY(U,$J,601.751,10836,0)
 ;;=3180^3^1305
 ;;^UTILITY(U,$J,601.751,10837,0)
 ;;=3180^4^1304
 ;;^UTILITY(U,$J,601.751,10838,0)
 ;;=3180^5^1280
 ;;^UTILITY(U,$J,601.751,10839,0)
 ;;=3180^6^1281
 ;;^UTILITY(U,$J,601.751,10840,0)
 ;;=3181^1^237
 ;;^UTILITY(U,$J,601.751,10841,0)
 ;;=3181^2^1306
 ;;^UTILITY(U,$J,601.751,10842,0)
 ;;=3181^3^1307
 ;;^UTILITY(U,$J,601.751,10843,0)
 ;;=3181^4^1280
 ;;^UTILITY(U,$J,601.751,10844,0)
 ;;=3181^5^1281
 ;;^UTILITY(U,$J,601.751,10845,0)
 ;;=3182^1^237
 ;;^UTILITY(U,$J,601.751,10846,0)
 ;;=3182^2^241
 ;;^UTILITY(U,$J,601.751,10847,0)
 ;;=3182^3^1281
 ;;^UTILITY(U,$J,601.751,10848,0)
 ;;=3183^1^237
 ;;^UTILITY(U,$J,601.751,10849,0)
 ;;=3183^2^241
 ;;^UTILITY(U,$J,601.751,10850,0)
 ;;=3183^3^1281
 ;;^UTILITY(U,$J,601.751,10851,0)
 ;;=3184^1^237
 ;;^UTILITY(U,$J,601.751,10852,0)
 ;;=3184^2^241
 ;;^UTILITY(U,$J,601.751,10853,0)
 ;;=3184^3^1281
 ;;^UTILITY(U,$J,601.751,10854,0)
 ;;=3185^1^237
 ;;^UTILITY(U,$J,601.751,10855,0)
 ;;=3185^2^241
 ;;^UTILITY(U,$J,601.751,10856,0)
 ;;=3185^3^1281
 ;;^UTILITY(U,$J,601.751,10857,0)
 ;;=3186^1^237
 ;;^UTILITY(U,$J,601.751,10858,0)
 ;;=3186^2^241
 ;;^UTILITY(U,$J,601.751,10859,0)
 ;;=3186^3^1281
 ;;^UTILITY(U,$J,601.751,10860,0)
 ;;=3187^1^237
 ;;^UTILITY(U,$J,601.751,10861,0)
 ;;=3187^2^241
 ;;^UTILITY(U,$J,601.751,10862,0)
 ;;=3187^3^1281
 ;;^UTILITY(U,$J,601.751,10863,0)
 ;;=3188^1^237
 ;;^UTILITY(U,$J,601.751,10864,0)
 ;;=3188^2^241
 ;;^UTILITY(U,$J,601.751,10865,0)
 ;;=3188^3^1281
 ;;^UTILITY(U,$J,601.751,10866,0)
 ;;=3189^1^237
 ;;^UTILITY(U,$J,601.751,10867,0)
 ;;=3189^2^241
 ;;^UTILITY(U,$J,601.751,10868,0)
 ;;=3189^3^1281
 ;;^UTILITY(U,$J,601.751,10869,0)
 ;;=3190^1^237
 ;;^UTILITY(U,$J,601.751,10870,0)
 ;;=3190^2^241
 ;;^UTILITY(U,$J,601.751,10871,0)
 ;;=3190^3^1281
 ;;^UTILITY(U,$J,601.751,10872,0)
 ;;=3191^1^237
 ;;^UTILITY(U,$J,601.751,10873,0)
 ;;=3191^2^241
 ;;^UTILITY(U,$J,601.751,10874,0)
 ;;=3191^3^1281
 ;;^UTILITY(U,$J,601.751,10875,0)
 ;;=3192^1^237
 ;;^UTILITY(U,$J,601.751,10876,0)
 ;;=3192^2^241
 ;;^UTILITY(U,$J,601.751,10877,0)
 ;;=3192^3^1281