YTQQI00H ;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,10878,0)
 ;;=3193^1^1308
 ;;^UTILITY(U,$J,601.751,10879,0)
 ;;=3193^2^1309
 ;;^UTILITY(U,$J,601.751,10880,0)
 ;;=3193^3^1310
 ;;^UTILITY(U,$J,601.751,10881,0)
 ;;=3193^4^1311
 ;;^UTILITY(U,$J,601.751,10882,0)
 ;;=3193^5^1312
 ;;^UTILITY(U,$J,601.751,10883,0)
 ;;=3193^6^1280
 ;;^UTILITY(U,$J,601.751,10884,0)
 ;;=3193^7^1281
 ;;^UTILITY(U,$J,601.751,10885,0)
 ;;=3194^1^237
 ;;^UTILITY(U,$J,601.751,10886,0)
 ;;=3194^2^1313
 ;;^UTILITY(U,$J,601.751,10887,0)
 ;;=3194^3^1314
 ;;^UTILITY(U,$J,601.751,10888,0)
 ;;=3194^4^1315
 ;;^UTILITY(U,$J,601.751,10889,0)
 ;;=3194^5^1280
 ;;^UTILITY(U,$J,601.751,10890,0)
 ;;=3194^6^1281
 ;;^UTILITY(U,$J,601.751,10891,0)
 ;;=3195^1^237
 ;;^UTILITY(U,$J,601.751,10892,0)
 ;;=3195^2^241
 ;;^UTILITY(U,$J,601.751,10893,0)
 ;;=3195^3^1280
 ;;^UTILITY(U,$J,601.751,10894,0)
 ;;=3195^4^1281
 ;;^UTILITY(U,$J,601.751,10895,0)
 ;;=3196^1^237
 ;;^UTILITY(U,$J,601.751,10896,0)
 ;;=3196^2^241
 ;;^UTILITY(U,$J,601.751,10897,0)
 ;;=3197^1^237
 ;;^UTILITY(U,$J,601.751,10898,0)
 ;;=3197^2^241
 ;;^UTILITY(U,$J,601.751,10899,0)
 ;;=3197^3^1280
 ;;^UTILITY(U,$J,601.751,10900,0)
 ;;=3197^4^1281
 ;;^UTILITY(U,$J,601.751,10901,0)
 ;;=3198^1^237
 ;;^UTILITY(U,$J,601.751,10902,0)
 ;;=3198^2^241
 ;;^UTILITY(U,$J,601.751,10903,0)
 ;;=3198^3^1280
 ;;^UTILITY(U,$J,601.751,10904,0)
 ;;=3198^4^1281
 ;;^UTILITY(U,$J,601.751,10905,0)
 ;;=3199^1^237
 ;;^UTILITY(U,$J,601.751,10906,0)
 ;;=3199^2^241
 ;;^UTILITY(U,$J,601.751,10907,0)
 ;;=3199^3^1280
 ;;^UTILITY(U,$J,601.751,10908,0)
 ;;=3199^4^1281
 ;;^UTILITY(U,$J,601.751,10909,0)
 ;;=3200^1^1317
 ;;^UTILITY(U,$J,601.751,10910,0)
 ;;=3200^2^1318
 ;;^UTILITY(U,$J,601.751,10911,0)
 ;;=3200^3^1319
 ;;^UTILITY(U,$J,601.751,14021,0)
 ;;=6075^1^1465
 ;;^UTILITY(U,$J,601.751,14022,0)
 ;;=6075^2^1466
 ;;^UTILITY(U,$J,601.751,14023,0)
 ;;=6075^3^1467
 ;;^UTILITY(U,$J,601.751,14024,0)
 ;;=6075^4^745
 ;;^UTILITY(U,$J,601.751,14025,0)
 ;;=6076^1^1468
 ;;^UTILITY(U,$J,601.751,14026,0)
 ;;=6076^2^1469
 ;;^UTILITY(U,$J,601.751,14027,0)
 ;;=6076^3^1470
 ;;^UTILITY(U,$J,601.751,14028,0)
 ;;=6076^4^753
 ;;^UTILITY(U,$J,601.751,14029,0)
 ;;=6076^5^1471
 ;;^UTILITY(U,$J,601.751,14030,0)
 ;;=6077^1^1814
 ;;^UTILITY(U,$J,601.751,14031,0)
 ;;=6077^2^1472
 ;;^UTILITY(U,$J,601.751,14032,0)
 ;;=6077^3^1473
 ;;^UTILITY(U,$J,601.751,14033,0)
 ;;=6077^4^1474
 ;;^UTILITY(U,$J,601.751,14034,0)
 ;;=6077^5^1475
 ;;^UTILITY(U,$J,601.751,14035,0)
 ;;=6077^6^1476
 ;;^UTILITY(U,$J,601.751,14036,0)
 ;;=6077^7^1477
 ;;^UTILITY(U,$J,601.751,14037,0)
 ;;=6078^1^237
 ;;^UTILITY(U,$J,601.751,14038,0)
 ;;=6078^2^1478
 ;;^UTILITY(U,$J,601.751,14039,0)
 ;;=6078^3^1479
 ;;^UTILITY(U,$J,601.751,14040,0)
 ;;=6078^4^1480
 ;;^UTILITY(U,$J,601.751,14041,0)
 ;;=6078^5^1481
 ;;^UTILITY(U,$J,601.751,14042,0)
 ;;=6078^6^1482
 ;;^UTILITY(U,$J,601.751,14043,0)
 ;;=6079^1^237
 ;;^UTILITY(U,$J,601.751,14044,0)
 ;;=6079^2^1478
 ;;^UTILITY(U,$J,601.751,14045,0)
 ;;=6079^3^1479
 ;;^UTILITY(U,$J,601.751,14046,0)
 ;;=6079^4^1480
 ;;^UTILITY(U,$J,601.751,14047,0)
 ;;=6079^5^1481
 ;;^UTILITY(U,$J,601.751,14048,0)
 ;;=6079^6^1482
 ;;^UTILITY(U,$J,601.751,14049,0)
 ;;=6080^1^237
 ;;^UTILITY(U,$J,601.751,14050,0)
 ;;=6080^2^1483
 ;;^UTILITY(U,$J,601.751,14051,0)
 ;;=6080^3^1484
 ;;^UTILITY(U,$J,601.751,14052,0)
 ;;=6080^4^1485
 ;;^UTILITY(U,$J,601.751,14053,0)
 ;;=6080^5^1486
 ;;^UTILITY(U,$J,601.751,14054,0)
 ;;=6080^6^1487
 ;;^UTILITY(U,$J,601.751,14055,0)
 ;;=6081^1^237
 ;;^UTILITY(U,$J,601.751,14056,0)
 ;;=6081^2^1478
 ;;^UTILITY(U,$J,601.751,14057,0)
 ;;=6081^3^1479
 ;;^UTILITY(U,$J,601.751,14058,0)
 ;;=6081^4^1480
 ;;^UTILITY(U,$J,601.751,14059,0)
 ;;=6081^5^1481
 ;;^UTILITY(U,$J,601.751,14060,0)
 ;;=6081^6^1482
 ;;^UTILITY(U,$J,601.751,14061,0)
 ;;=6082^1^237
 ;;^UTILITY(U,$J,601.751,14062,0)
 ;;=6082^2^1478
 ;;^UTILITY(U,$J,601.751,14063,0)
 ;;=6082^3^1479
 ;;^UTILITY(U,$J,601.751,14064,0)
 ;;=6082^4^1480
 ;;^UTILITY(U,$J,601.751,14065,0)
 ;;=6082^5^1481
 ;;^UTILITY(U,$J,601.751,14066,0)
 ;;=6082^6^1482
 ;;^UTILITY(U,$J,601.751,14067,0)
 ;;=6083^1^1488
 ;;^UTILITY(U,$J,601.751,14068,0)
 ;;=6083^2^1489
 ;;^UTILITY(U,$J,601.751,14069,0)
 ;;=6083^3^1490
 ;;^UTILITY(U,$J,601.751,14070,0)
 ;;=6083^4^1491
 ;;^UTILITY(U,$J,601.751,14071,0)
 ;;=6084^1^237
 ;;^UTILITY(U,$J,601.751,14072,0)
 ;;=6084^2^1478
 ;;^UTILITY(U,$J,601.751,14073,0)
 ;;=6084^3^1479
 ;;^UTILITY(U,$J,601.751,14074,0)
 ;;=6084^4^1480
 ;;^UTILITY(U,$J,601.751,14075,0)
 ;;=6084^5^1481
 ;;^UTILITY(U,$J,601.751,14076,0)
 ;;=6084^6^1482
 ;;^UTILITY(U,$J,601.751,14077,0)
 ;;=6085^1^1488
 ;;^UTILITY(U,$J,601.751,14078,0)
 ;;=6085^2^1489
 ;;^UTILITY(U,$J,601.751,14079,0)
 ;;=6085^3^1490
 ;;^UTILITY(U,$J,601.751,14080,0)
 ;;=6085^4^1491
 ;;^UTILITY(U,$J,601.751,14081,0)
 ;;=6086^1^237
 ;;^UTILITY(U,$J,601.751,14082,0)
 ;;=6086^2^1478
 ;;^UTILITY(U,$J,601.751,14083,0)
 ;;=6086^3^1479
 ;;^UTILITY(U,$J,601.751,14084,0)
 ;;=6086^4^1480
 ;;^UTILITY(U,$J,601.751,14085,0)
 ;;=6086^5^1481
 ;;^UTILITY(U,$J,601.751,14086,0)
 ;;=6086^6^1482
 ;;^UTILITY(U,$J,601.751,14087,0)
 ;;=6087^1^1488
 ;;^UTILITY(U,$J,601.751,14088,0)
 ;;=6087^2^1489
 ;;^UTILITY(U,$J,601.751,14089,0)
 ;;=6087^3^1490
 ;;^UTILITY(U,$J,601.751,14090,0)
 ;;=6087^4^1491
 ;;^UTILITY(U,$J,601.751,14091,0)
 ;;=6088^1^237
 ;;^UTILITY(U,$J,601.751,14092,0)
 ;;=6088^2^1478
 ;;^UTILITY(U,$J,601.751,14093,0)
 ;;=6088^3^1479
 ;;^UTILITY(U,$J,601.751,14094,0)
 ;;=6088^4^1480
 ;;^UTILITY(U,$J,601.751,14095,0)
 ;;=6088^5^1481
 ;;^UTILITY(U,$J,601.751,14096,0)
 ;;=6088^6^1482
 ;;^UTILITY(U,$J,601.751,14097,0)
 ;;=6089^1^1488
 ;;^UTILITY(U,$J,601.751,14098,0)
 ;;=6089^2^1489
 ;;^UTILITY(U,$J,601.751,14099,0)
 ;;=6089^3^1490
 ;;^UTILITY(U,$J,601.751,14100,0)
 ;;=6089^4^1491
 ;;^UTILITY(U,$J,601.751,14101,0)
 ;;=6090^1^1492
 ;;^UTILITY(U,$J,601.751,14102,0)
 ;;=6090^2^1493
 ;;^UTILITY(U,$J,601.751,14103,0)
 ;;=6090^3^1664
 ;;^UTILITY(U,$J,601.751,14104,0)
 ;;=6090^4^1495
 ;;^UTILITY(U,$J,601.751,14105,0)
 ;;=6090^5^1496
 ;;^UTILITY(U,$J,601.751,14106,0)
 ;;=6090^6^743
 ;;^UTILITY(U,$J,601.751,14107,0)
 ;;=6090^7^100894
 ;;^UTILITY(U,$J,601.751,14108,0)
 ;;=6091^1^237
 ;;^UTILITY(U,$J,601.751,14109,0)
 ;;=6091^2^1478
 ;;^UTILITY(U,$J,601.751,14110,0)
 ;;=6091^3^1479
 ;;^UTILITY(U,$J,601.751,14111,0)
 ;;=6091^4^1480
 ;;^UTILITY(U,$J,601.751,14112,0)
 ;;=6091^5^1481
 ;;^UTILITY(U,$J,601.751,14113,0)
 ;;=6091^6^1482
 ;;^UTILITY(U,$J,601.751,14114,0)
 ;;=6092^1^1820
 ;;^UTILITY(U,$J,601.751,14115,0)
 ;;=6092^2^1821
 ;;^UTILITY(U,$J,601.751,14116,0)
 ;;=6092^3^1822
 ;;^UTILITY(U,$J,601.751,14117,0)
 ;;=6092^4^1823
 ;;^UTILITY(U,$J,601.751,14118,0)
 ;;=6092^5^1824
 ;;^UTILITY(U,$J,601.751,14119,0)
 ;;=6092^6^1825
 ;;^UTILITY(U,$J,601.751,14120,0)
 ;;=6092^7^1826
 ;;^UTILITY(U,$J,601.751,14121,0)
 ;;=6093^1^237
 ;;^UTILITY(U,$J,601.751,14122,0)
 ;;=6093^2^1478
 ;;^UTILITY(U,$J,601.751,14123,0)
 ;;=6093^3^1479
 ;;^UTILITY(U,$J,601.751,14124,0)
 ;;=6093^4^1480
 ;;^UTILITY(U,$J,601.751,14125,0)
 ;;=6093^5^1481
 ;;^UTILITY(U,$J,601.751,14126,0)
 ;;=6093^6^1482
 ;;^UTILITY(U,$J,601.751,14127,0)
 ;;=6094^1^1827
 ;;^UTILITY(U,$J,601.751,14128,0)
 ;;=6094^2^1503
 ;;^UTILITY(U,$J,601.751,14129,0)
 ;;=6094^3^1828
 ;;^UTILITY(U,$J,601.751,14130,0)
 ;;=6094^4^1825
 ;;^UTILITY(U,$J,601.751,14131,0)
 ;;=6094^5^1829
 ;;^UTILITY(U,$J,601.751,14132,0)
 ;;=6094^6^1830
 ;;^UTILITY(U,$J,601.751,14133,0)
 ;;=6094^7^1831
 ;;^UTILITY(U,$J,601.751,14134,0)
 ;;=6095^1^237
 ;;^UTILITY(U,$J,601.751,14135,0)
 ;;=6095^2^1478
 ;;^UTILITY(U,$J,601.751,14136,0)
 ;;=6095^3^1479
 ;;^UTILITY(U,$J,601.751,14137,0)
 ;;=6095^4^1480
 ;;^UTILITY(U,$J,601.751,14138,0)
 ;;=6095^5^1481
 ;;^UTILITY(U,$J,601.751,14139,0)
 ;;=6095^6^1482
 ;;^UTILITY(U,$J,601.751,14140,0)
 ;;=6096^1^1832
 ;;^UTILITY(U,$J,601.751,14141,0)
 ;;=6096^2^1503
 ;;^UTILITY(U,$J,601.751,14142,0)
 ;;=6096^3^1828
 ;;^UTILITY(U,$J,601.751,14143,0)
 ;;=6096^4^1825
 ;;^UTILITY(U,$J,601.751,14144,0)
 ;;=6096^5^1829
 ;;^UTILITY(U,$J,601.751,14145,0)
 ;;=6096^6^1830
 ;;^UTILITY(U,$J,601.751,14146,0)
 ;;=6096^7^1831
 ;;^UTILITY(U,$J,601.751,14147,0)
 ;;=6097^1^237
 ;;^UTILITY(U,$J,601.751,14148,0)
 ;;=6097^2^241
 ;;^UTILITY(U,$J,601.751,14149,0)
 ;;=6098^1^237
 ;;^UTILITY(U,$J,601.751,14150,0)
 ;;=6098^2^241
 ;;^UTILITY(U,$J,601.751,14151,0)
 ;;=6099^1^237
 ;;^UTILITY(U,$J,601.751,14152,0)
 ;;=6099^2^1508
 ;;^UTILITY(U,$J,601.751,14153,0)
 ;;=6099^3^1509
 ;;^UTILITY(U,$J,601.751,14154,0)
 ;;=6100^1^237
 ;;^UTILITY(U,$J,601.751,14155,0)
 ;;=6100^2^1510
 ;;^UTILITY(U,$J,601.751,14156,0)
 ;;=6100^3^1511
 ;;^UTILITY(U,$J,601.751,14157,0)
 ;;=6101^1^237
 ;;^UTILITY(U,$J,601.751,14158,0)
 ;;=6101^2^1510
 ;;^UTILITY(U,$J,601.751,14159,0)
 ;;=6101^3^1511
 ;;^UTILITY(U,$J,601.751,14160,0)
 ;;=6102^1^237
 ;;^UTILITY(U,$J,601.751,14161,0)
 ;;=6102^2^241
 ;;^UTILITY(U,$J,601.751,14162,0)
 ;;=6102^3^1512
 ;;^UTILITY(U,$J,601.751,14163,0)
 ;;=6102^4^1513