YTQQI00D ;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,8576,0)
 ;;=2644^2^241
 ;;^UTILITY(U,$J,601.751,8577,0)
 ;;=2645^1^237
 ;;^UTILITY(U,$J,601.751,8578,0)
 ;;=2645^2^241
 ;;^UTILITY(U,$J,601.751,8579,0)
 ;;=2646^1^237
 ;;^UTILITY(U,$J,601.751,8580,0)
 ;;=2646^2^241
 ;;^UTILITY(U,$J,601.751,8581,0)
 ;;=2647^1^237
 ;;^UTILITY(U,$J,601.751,8582,0)
 ;;=2647^2^241
 ;;^UTILITY(U,$J,601.751,8583,0)
 ;;=2648^1^237
 ;;^UTILITY(U,$J,601.751,8584,0)
 ;;=2648^2^241
 ;;^UTILITY(U,$J,601.751,8585,0)
 ;;=2649^1^237
 ;;^UTILITY(U,$J,601.751,8586,0)
 ;;=2649^2^241
 ;;^UTILITY(U,$J,601.751,8587,0)
 ;;=2650^1^237
 ;;^UTILITY(U,$J,601.751,8588,0)
 ;;=2650^2^241
 ;;^UTILITY(U,$J,601.751,8589,0)
 ;;=2651^1^237
 ;;^UTILITY(U,$J,601.751,8590,0)
 ;;=2651^2^241
 ;;^UTILITY(U,$J,601.751,8591,0)
 ;;=2652^1^237
 ;;^UTILITY(U,$J,601.751,8592,0)
 ;;=2652^2^241
 ;;^UTILITY(U,$J,601.751,8593,0)
 ;;=2653^1^237
 ;;^UTILITY(U,$J,601.751,8594,0)
 ;;=2653^2^241
 ;;^UTILITY(U,$J,601.751,8595,0)
 ;;=2654^1^237
 ;;^UTILITY(U,$J,601.751,8596,0)
 ;;=2654^2^241
 ;;^UTILITY(U,$J,601.751,8597,0)
 ;;=2655^1^237
 ;;^UTILITY(U,$J,601.751,8598,0)
 ;;=2655^2^241
 ;;^UTILITY(U,$J,601.751,8599,0)
 ;;=2656^1^100884
 ;;^UTILITY(U,$J,601.751,8600,0)
 ;;=2656^2^100885
 ;;^UTILITY(U,$J,601.751,8601,0)
 ;;=2656^3^100886
 ;;^UTILITY(U,$J,601.751,8602,0)
 ;;=2656^4^100887
 ;;^UTILITY(U,$J,601.751,8603,0)
 ;;=2657^1^100888
 ;;^UTILITY(U,$J,601.751,8604,0)
 ;;=2657^2^100889
 ;;^UTILITY(U,$J,601.751,8605,0)
 ;;=2657^3^100890
 ;;^UTILITY(U,$J,601.751,8606,0)
 ;;=2657^4^100891
 ;;^UTILITY(U,$J,601.751,8607,0)
 ;;=2657^5^100892
 ;;^UTILITY(U,$J,601.751,8608,0)
 ;;=2657^6^100893
 ;;^UTILITY(U,$J,601.751,8609,0)
 ;;=2658^1^100888
 ;;^UTILITY(U,$J,601.751,8610,0)
 ;;=2658^2^100889
 ;;^UTILITY(U,$J,601.751,8611,0)
 ;;=2658^3^100890
 ;;^UTILITY(U,$J,601.751,8612,0)
 ;;=2658^4^100891
 ;;^UTILITY(U,$J,601.751,8613,0)
 ;;=2658^5^100892
 ;;^UTILITY(U,$J,601.751,8614,0)
 ;;=2658^6^100893
 ;;^UTILITY(U,$J,601.751,8615,0)
 ;;=2659^1^856
 ;;^UTILITY(U,$J,601.751,8616,0)
 ;;=2659^2^100947
 ;;^UTILITY(U,$J,601.751,8617,0)
 ;;=2659^3^855
 ;;^UTILITY(U,$J,601.751,8618,0)
 ;;=2659^4^100948
 ;;^UTILITY(U,$J,601.751,8619,0)
 ;;=2659^5^100949
 ;;^UTILITY(U,$J,601.751,8620,0)
 ;;=2660^1^856
 ;;^UTILITY(U,$J,601.751,8621,0)
 ;;=2660^2^100947
 ;;^UTILITY(U,$J,601.751,8622,0)
 ;;=2660^3^855
 ;;^UTILITY(U,$J,601.751,8623,0)
 ;;=2660^4^100948
 ;;^UTILITY(U,$J,601.751,8624,0)
 ;;=2660^5^100949
 ;;^UTILITY(U,$J,601.751,8625,0)
 ;;=2661^1^856
 ;;^UTILITY(U,$J,601.751,8626,0)
 ;;=2661^2^100947
 ;;^UTILITY(U,$J,601.751,8627,0)
 ;;=2661^3^855
 ;;^UTILITY(U,$J,601.751,8628,0)
 ;;=2661^4^100948
 ;;^UTILITY(U,$J,601.751,8629,0)
 ;;=2661^5^100949
 ;;^UTILITY(U,$J,601.751,8630,0)
 ;;=2662^1^856
 ;;^UTILITY(U,$J,601.751,8631,0)
 ;;=2662^2^100947
 ;;^UTILITY(U,$J,601.751,8632,0)
 ;;=2662^3^855
 ;;^UTILITY(U,$J,601.751,8633,0)
 ;;=2662^4^100948
 ;;^UTILITY(U,$J,601.751,8634,0)
 ;;=2662^5^100949
 ;;^UTILITY(U,$J,601.751,8635,0)
 ;;=2663^1^856
 ;;^UTILITY(U,$J,601.751,8636,0)
 ;;=2663^2^100947
 ;;^UTILITY(U,$J,601.751,8637,0)
 ;;=2663^3^855
 ;;^UTILITY(U,$J,601.751,8638,0)
 ;;=2663^4^100948
 ;;^UTILITY(U,$J,601.751,8639,0)
 ;;=2663^5^100949
 ;;^UTILITY(U,$J,601.751,8640,0)
 ;;=2664^1^100888
 ;;^UTILITY(U,$J,601.751,8641,0)
 ;;=2664^2^1404
 ;;^UTILITY(U,$J,601.751,8642,0)
 ;;=2664^3^1405
 ;;^UTILITY(U,$J,601.751,8643,0)
 ;;=2664^4^1406
 ;;^UTILITY(U,$J,601.751,8644,0)
 ;;=2664^5^1407
 ;;^UTILITY(U,$J,601.751,8645,0)
 ;;=2664^6^1408
 ;;^UTILITY(U,$J,601.751,8646,0)
 ;;=2665^1^1409
 ;;^UTILITY(U,$J,601.751,8647,0)
 ;;=2665^2^217
 ;;^UTILITY(U,$J,601.751,8648,0)
 ;;=2665^3^242
 ;;^UTILITY(U,$J,601.751,8649,0)
 ;;=2665^4^290
 ;;^UTILITY(U,$J,601.751,8650,0)
 ;;=2665^5^213
 ;;^UTILITY(U,$J,601.751,8651,0)
 ;;=2665^6^215
 ;;^UTILITY(U,$J,601.751,8652,0)
 ;;=2665^7^291
 ;;^UTILITY(U,$J,601.751,8653,0)
 ;;=2665^8^995
 ;;^UTILITY(U,$J,601.751,8654,0)
 ;;=2666^1^1409
 ;;^UTILITY(U,$J,601.751,8655,0)
 ;;=2666^2^217
 ;;^UTILITY(U,$J,601.751,8656,0)
 ;;=2666^3^242
 ;;^UTILITY(U,$J,601.751,8657,0)
 ;;=2666^4^290
 ;;^UTILITY(U,$J,601.751,8658,0)
 ;;=2666^5^213
 ;;^UTILITY(U,$J,601.751,8659,0)
 ;;=2666^6^215
 ;;^UTILITY(U,$J,601.751,8660,0)
 ;;=2666^7^291
 ;;^UTILITY(U,$J,601.751,8661,0)
 ;;=2666^8^995
 ;;^UTILITY(U,$J,601.751,8662,0)
 ;;=2667^1^1409
 ;;^UTILITY(U,$J,601.751,8663,0)
 ;;=2667^2^217
 ;;^UTILITY(U,$J,601.751,8664,0)
 ;;=2667^3^242
 ;;^UTILITY(U,$J,601.751,8665,0)
 ;;=2667^4^290
 ;;^UTILITY(U,$J,601.751,8666,0)
 ;;=2667^5^213
 ;;^UTILITY(U,$J,601.751,8667,0)
 ;;=2667^6^215
 ;;^UTILITY(U,$J,601.751,8668,0)
 ;;=2667^7^291
 ;;^UTILITY(U,$J,601.751,8669,0)
 ;;=2667^8^995
 ;;^UTILITY(U,$J,601.751,8670,0)
 ;;=2668^1^1409
 ;;^UTILITY(U,$J,601.751,8671,0)
 ;;=2668^2^217
 ;;^UTILITY(U,$J,601.751,8672,0)
 ;;=2668^3^242
 ;;^UTILITY(U,$J,601.751,8673,0)
 ;;=2668^4^290
 ;;^UTILITY(U,$J,601.751,8674,0)
 ;;=2668^5^213
 ;;^UTILITY(U,$J,601.751,8675,0)
 ;;=2668^6^215
 ;;^UTILITY(U,$J,601.751,8676,0)
 ;;=2668^7^291
 ;;^UTILITY(U,$J,601.751,8677,0)
 ;;=2668^8^995
 ;;^UTILITY(U,$J,601.751,8678,0)
 ;;=2669^1^1409
 ;;^UTILITY(U,$J,601.751,8679,0)
 ;;=2669^2^217
 ;;^UTILITY(U,$J,601.751,8680,0)
 ;;=2669^3^242
 ;;^UTILITY(U,$J,601.751,8681,0)
 ;;=2669^4^290
 ;;^UTILITY(U,$J,601.751,8682,0)
 ;;=2669^5^213
 ;;^UTILITY(U,$J,601.751,8683,0)
 ;;=2669^6^215
 ;;^UTILITY(U,$J,601.751,8684,0)
 ;;=2669^7^291
 ;;^UTILITY(U,$J,601.751,8685,0)
 ;;=2669^8^995
 ;;^UTILITY(U,$J,601.751,8686,0)
 ;;=2670^1^1409
 ;;^UTILITY(U,$J,601.751,8687,0)
 ;;=2670^2^217
 ;;^UTILITY(U,$J,601.751,8688,0)
 ;;=2670^3^242
 ;;^UTILITY(U,$J,601.751,8689,0)
 ;;=2670^4^290
 ;;^UTILITY(U,$J,601.751,8690,0)
 ;;=2670^5^213
 ;;^UTILITY(U,$J,601.751,8691,0)
 ;;=2670^6^215
 ;;^UTILITY(U,$J,601.751,8692,0)
 ;;=2670^7^291
 ;;^UTILITY(U,$J,601.751,8693,0)
 ;;=2670^8^995
 ;;^UTILITY(U,$J,601.751,8694,0)
 ;;=2671^1^1410
 ;;^UTILITY(U,$J,601.751,8695,0)
 ;;=2671^2^1411
 ;;^UTILITY(U,$J,601.751,8696,0)
 ;;=2671^3^1063
 ;;^UTILITY(U,$J,601.751,8697,0)
 ;;=2671^4^1062
 ;;^UTILITY(U,$J,601.751,8698,0)
 ;;=2671^5^1061
 ;;^UTILITY(U,$J,601.751,8699,0)
 ;;=2671^6^1059
 ;;^UTILITY(U,$J,601.751,8700,0)
 ;;=2672^1^100884
 ;;^UTILITY(U,$J,601.751,8701,0)
 ;;=2672^2^1412
 ;;^UTILITY(U,$J,601.751,8702,0)
 ;;=2672^3^1413
 ;;^UTILITY(U,$J,601.751,8703,0)
 ;;=2672^4^1414
 ;;^UTILITY(U,$J,601.751,8704,0)
 ;;=2672^5^1415
 ;;^UTILITY(U,$J,601.751,8705,0)
 ;;=2672^6^1416
 ;;^UTILITY(U,$J,601.751,8706,0)
 ;;=2673^1^100884
 ;;^UTILITY(U,$J,601.751,8707,0)
 ;;=2673^2^1412
 ;;^UTILITY(U,$J,601.751,8708,0)
 ;;=2673^3^1413
 ;;^UTILITY(U,$J,601.751,8709,0)
 ;;=2673^4^1414
 ;;^UTILITY(U,$J,601.751,8710,0)
 ;;=2673^5^1415
 ;;^UTILITY(U,$J,601.751,8711,0)
 ;;=2673^6^1416
 ;;^UTILITY(U,$J,601.751,8712,0)
 ;;=2674^1^1417
 ;;^UTILITY(U,$J,601.751,8713,0)
 ;;=2674^2^1418
 ;;^UTILITY(U,$J,601.751,8714,0)
 ;;=2674^3^1419
 ;;^UTILITY(U,$J,601.751,8715,0)
 ;;=2674^4^1420
 ;;^UTILITY(U,$J,601.751,8716,0)
 ;;=2674^5^1421
 ;;^UTILITY(U,$J,601.751,8717,0)
 ;;=2674^6^1422
 ;;^UTILITY(U,$J,601.751,8718,0)
 ;;=2674^7^1423
 ;;^UTILITY(U,$J,601.751,8719,0)
 ;;=2674^8^1424
 ;;^UTILITY(U,$J,601.751,8720,0)
 ;;=2675^1^237
 ;;^UTILITY(U,$J,601.751,8721,0)
 ;;=2675^2^241
 ;;^UTILITY(U,$J,601.751,8722,0)
 ;;=2676^1^237
 ;;^UTILITY(U,$J,601.751,8723,0)
 ;;=2676^2^241
 ;;^UTILITY(U,$J,601.751,8724,0)
 ;;=2677^1^237
 ;;^UTILITY(U,$J,601.751,8725,0)
 ;;=2677^2^241
 ;;^UTILITY(U,$J,601.751,8726,0)
 ;;=2678^1^237
 ;;^UTILITY(U,$J,601.751,8727,0)
 ;;=2678^2^241
 ;;^UTILITY(U,$J,601.751,8728,0)
 ;;=2679^1^237
 ;;^UTILITY(U,$J,601.751,8729,0)
 ;;=2679^2^241
 ;;^UTILITY(U,$J,601.751,8730,0)
 ;;=2680^1^237
 ;;^UTILITY(U,$J,601.751,8731,0)
 ;;=2680^2^241
 ;;^UTILITY(U,$J,601.751,8732,0)
 ;;=2681^1^237
 ;;^UTILITY(U,$J,601.751,8733,0)
 ;;=2681^2^241
 ;;^UTILITY(U,$J,601.751,8734,0)
 ;;=2682^1^237
 ;;^UTILITY(U,$J,601.751,8735,0)
 ;;=2682^2^241
 ;;^UTILITY(U,$J,601.751,8736,0)
 ;;=2683^1^237
 ;;^UTILITY(U,$J,601.751,8737,0)
 ;;=2683^2^241
 ;;^UTILITY(U,$J,601.751,8738,0)
 ;;=2684^1^237
 ;;^UTILITY(U,$J,601.751,8739,0)
 ;;=2684^2^241
 ;;^UTILITY(U,$J,601.751,8740,0)
 ;;=2685^1^237
 ;;^UTILITY(U,$J,601.751,8741,0)
 ;;=2685^2^241
 ;;^UTILITY(U,$J,601.751,8742,0)
 ;;=2686^1^237
 ;;^UTILITY(U,$J,601.751,8743,0)
 ;;=2686^2^241
 ;;^UTILITY(U,$J,601.751,8744,0)
 ;;=2687^1^237
 ;;^UTILITY(U,$J,601.751,8745,0)
 ;;=2687^2^241
 ;;^UTILITY(U,$J,601.751,8746,0)
 ;;=2688^1^237
 ;;^UTILITY(U,$J,601.751,8747,0)
 ;;=2688^2^241
 ;;^UTILITY(U,$J,601.751,8748,0)
 ;;=2689^1^237
 ;;^UTILITY(U,$J,601.751,8749,0)
 ;;=2689^2^241
 ;;^UTILITY(U,$J,601.751,8750,0)
 ;;=2690^1^237
 ;;^UTILITY(U,$J,601.751,8751,0)
 ;;=2690^2^241
 ;;^UTILITY(U,$J,601.751,8752,0)
 ;;=2691^1^237
 ;;^UTILITY(U,$J,601.751,8753,0)
 ;;=2691^2^241
 ;;^UTILITY(U,$J,601.751,8754,0)
 ;;=2692^1^237
 ;;^UTILITY(U,$J,601.751,8755,0)
 ;;=2692^2^241
 ;;^UTILITY(U,$J,601.751,8756,0)
 ;;=2693^1^237