YTQQI00I ;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,14164,0)
 ;;=6103^1^237
 ;;^UTILITY(U,$J,601.751,14165,0)
 ;;=6103^2^241
 ;;^UTILITY(U,$J,601.751,14166,0)
 ;;=6103^3^1512
 ;;^UTILITY(U,$J,601.751,14167,0)
 ;;=6103^4^1513
 ;;^UTILITY(U,$J,601.751,14168,0)
 ;;=6104^1^237
 ;;^UTILITY(U,$J,601.751,14169,0)
 ;;=6104^2^241
 ;;^UTILITY(U,$J,601.751,14170,0)
 ;;=6105^1^1
 ;;^UTILITY(U,$J,601.751,14171,0)
 ;;=6105^2^3
 ;;^UTILITY(U,$J,601.751,14172,0)
 ;;=6105^3^4
 ;;^UTILITY(U,$J,601.751,14173,0)
 ;;=6105^4^5
 ;;^UTILITY(U,$J,601.751,14174,0)
 ;;=6105^5^1457
 ;;^UTILITY(U,$J,601.751,14175,0)
 ;;=6106^1^1
 ;;^UTILITY(U,$J,601.751,14176,0)
 ;;=6106^2^3
 ;;^UTILITY(U,$J,601.751,14177,0)
 ;;=6106^3^4
 ;;^UTILITY(U,$J,601.751,14178,0)
 ;;=6106^4^5
 ;;^UTILITY(U,$J,601.751,14179,0)
 ;;=6106^5^1457
 ;;^UTILITY(U,$J,601.751,14180,0)
 ;;=6107^1^1
 ;;^UTILITY(U,$J,601.751,14181,0)
 ;;=6107^2^3
 ;;^UTILITY(U,$J,601.751,14182,0)
 ;;=6107^3^4
 ;;^UTILITY(U,$J,601.751,14183,0)
 ;;=6107^4^5
 ;;^UTILITY(U,$J,601.751,14184,0)
 ;;=6107^5^1457
 ;;^UTILITY(U,$J,601.751,14185,0)
 ;;=6108^1^1
 ;;^UTILITY(U,$J,601.751,14186,0)
 ;;=6108^2^3
 ;;^UTILITY(U,$J,601.751,14187,0)
 ;;=6108^3^4
 ;;^UTILITY(U,$J,601.751,14188,0)
 ;;=6108^4^5
 ;;^UTILITY(U,$J,601.751,14189,0)
 ;;=6108^5^1457
 ;;^UTILITY(U,$J,601.751,14190,0)
 ;;=6109^1^1
 ;;^UTILITY(U,$J,601.751,14191,0)
 ;;=6109^2^3
 ;;^UTILITY(U,$J,601.751,14192,0)
 ;;=6109^3^4
 ;;^UTILITY(U,$J,601.751,14193,0)
 ;;=6109^4^5
 ;;^UTILITY(U,$J,601.751,14194,0)
 ;;=6109^5^1457
 ;;^UTILITY(U,$J,601.751,14195,0)
 ;;=6110^1^1
 ;;^UTILITY(U,$J,601.751,14196,0)
 ;;=6110^2^3
 ;;^UTILITY(U,$J,601.751,14197,0)
 ;;=6110^3^4
 ;;^UTILITY(U,$J,601.751,14198,0)
 ;;=6110^4^5
 ;;^UTILITY(U,$J,601.751,14199,0)
 ;;=6110^5^1457
 ;;^UTILITY(U,$J,601.751,14200,0)
 ;;=6111^1^1
 ;;^UTILITY(U,$J,601.751,14201,0)
 ;;=6111^2^3
 ;;^UTILITY(U,$J,601.751,14202,0)
 ;;=6111^3^4
 ;;^UTILITY(U,$J,601.751,14203,0)
 ;;=6111^4^5
 ;;^UTILITY(U,$J,601.751,14204,0)
 ;;=6111^5^1457
 ;;^UTILITY(U,$J,601.751,14205,0)
 ;;=6112^1^1
 ;;^UTILITY(U,$J,601.751,14206,0)
 ;;=6112^2^3
 ;;^UTILITY(U,$J,601.751,14207,0)
 ;;=6112^3^4
 ;;^UTILITY(U,$J,601.751,14208,0)
 ;;=6112^4^5
 ;;^UTILITY(U,$J,601.751,14209,0)
 ;;=6112^5^1457
 ;;^UTILITY(U,$J,601.751,14210,0)
 ;;=6113^1^1
 ;;^UTILITY(U,$J,601.751,14211,0)
 ;;=6113^2^3
 ;;^UTILITY(U,$J,601.751,14212,0)
 ;;=6113^3^4
 ;;^UTILITY(U,$J,601.751,14213,0)
 ;;=6113^4^5
 ;;^UTILITY(U,$J,601.751,14214,0)
 ;;=6113^5^1457
 ;;^UTILITY(U,$J,601.751,14215,0)
 ;;=6114^1^1
 ;;^UTILITY(U,$J,601.751,14216,0)
 ;;=6114^2^3
 ;;^UTILITY(U,$J,601.751,14217,0)
 ;;=6114^3^4
 ;;^UTILITY(U,$J,601.751,14218,0)
 ;;=6114^4^5
 ;;^UTILITY(U,$J,601.751,14219,0)
 ;;=6114^5^1457
 ;;^UTILITY(U,$J,601.751,14220,0)
 ;;=6115^1^1
 ;;^UTILITY(U,$J,601.751,14221,0)
 ;;=6115^2^3
 ;;^UTILITY(U,$J,601.751,14222,0)
 ;;=6115^3^4
 ;;^UTILITY(U,$J,601.751,14223,0)
 ;;=6115^4^5
 ;;^UTILITY(U,$J,601.751,14224,0)
 ;;=6115^5^1457
 ;;^UTILITY(U,$J,601.751,14225,0)
 ;;=6116^1^1
 ;;^UTILITY(U,$J,601.751,14226,0)
 ;;=6116^2^3
 ;;^UTILITY(U,$J,601.751,14227,0)
 ;;=6116^3^4
 ;;^UTILITY(U,$J,601.751,14228,0)
 ;;=6116^4^5
 ;;^UTILITY(U,$J,601.751,14229,0)
 ;;=6116^5^1457
 ;;^UTILITY(U,$J,601.751,14230,0)
 ;;=6117^1^1
 ;;^UTILITY(U,$J,601.751,14231,0)
 ;;=6117^2^3
 ;;^UTILITY(U,$J,601.751,14232,0)
 ;;=6117^3^4
 ;;^UTILITY(U,$J,601.751,14233,0)
 ;;=6117^4^5
 ;;^UTILITY(U,$J,601.751,14234,0)
 ;;=6117^5^1457
 ;;^UTILITY(U,$J,601.751,14235,0)
 ;;=6118^1^1
 ;;^UTILITY(U,$J,601.751,14236,0)
 ;;=6118^2^3
 ;;^UTILITY(U,$J,601.751,14237,0)
 ;;=6118^3^4
 ;;^UTILITY(U,$J,601.751,14238,0)
 ;;=6118^4^5
 ;;^UTILITY(U,$J,601.751,14239,0)
 ;;=6118^5^1457
 ;;^UTILITY(U,$J,601.751,14240,0)
 ;;=6119^1^1
 ;;^UTILITY(U,$J,601.751,14241,0)
 ;;=6119^2^3
 ;;^UTILITY(U,$J,601.751,14242,0)
 ;;=6119^3^4
 ;;^UTILITY(U,$J,601.751,14243,0)
 ;;=6119^4^5
 ;;^UTILITY(U,$J,601.751,14244,0)
 ;;=6119^5^1457
 ;;^UTILITY(U,$J,601.751,14245,0)
 ;;=6120^1^1
 ;;^UTILITY(U,$J,601.751,14246,0)
 ;;=6120^2^3
 ;;^UTILITY(U,$J,601.751,14247,0)
 ;;=6120^3^4
 ;;^UTILITY(U,$J,601.751,14248,0)
 ;;=6120^4^5
 ;;^UTILITY(U,$J,601.751,14249,0)
 ;;=6120^5^1457
 ;;^UTILITY(U,$J,601.751,14250,0)
 ;;=6121^1^1
 ;;^UTILITY(U,$J,601.751,14251,0)
 ;;=6121^2^3
 ;;^UTILITY(U,$J,601.751,14252,0)
 ;;=6121^3^4
 ;;^UTILITY(U,$J,601.751,14253,0)
 ;;=6121^4^5
 ;;^UTILITY(U,$J,601.751,14254,0)
 ;;=6121^5^1457
 ;;^UTILITY(U,$J,601.751,14255,0)
 ;;=6122^1^1
 ;;^UTILITY(U,$J,601.751,14256,0)
 ;;=6122^2^3
 ;;^UTILITY(U,$J,601.751,14257,0)
 ;;=6122^3^4
 ;;^UTILITY(U,$J,601.751,14258,0)
 ;;=6122^4^5
 ;;^UTILITY(U,$J,601.751,14259,0)
 ;;=6122^5^1457
 ;;^UTILITY(U,$J,601.751,14260,0)
 ;;=6123^1^1
 ;;^UTILITY(U,$J,601.751,14261,0)
 ;;=6123^2^3
 ;;^UTILITY(U,$J,601.751,14262,0)
 ;;=6123^3^4
 ;;^UTILITY(U,$J,601.751,14263,0)
 ;;=6123^4^5
 ;;^UTILITY(U,$J,601.751,14264,0)
 ;;=6123^5^1457
 ;;^UTILITY(U,$J,601.751,14265,0)
 ;;=6124^1^1
 ;;^UTILITY(U,$J,601.751,14266,0)
 ;;=6124^2^3
 ;;^UTILITY(U,$J,601.751,14267,0)
 ;;=6124^3^4
 ;;^UTILITY(U,$J,601.751,14268,0)
 ;;=6124^4^5
 ;;^UTILITY(U,$J,601.751,14269,0)
 ;;=6124^5^1457
 ;;^UTILITY(U,$J,601.751,14270,0)
 ;;=6125^1^1
 ;;^UTILITY(U,$J,601.751,14271,0)
 ;;=6125^2^3
 ;;^UTILITY(U,$J,601.751,14272,0)
 ;;=6125^3^4
 ;;^UTILITY(U,$J,601.751,14273,0)
 ;;=6125^4^5
 ;;^UTILITY(U,$J,601.751,14274,0)
 ;;=6125^5^1457
 ;;^UTILITY(U,$J,601.751,14275,0)
 ;;=6126^1^1
 ;;^UTILITY(U,$J,601.751,14276,0)
 ;;=6126^2^3
 ;;^UTILITY(U,$J,601.751,14277,0)
 ;;=6126^3^4
 ;;^UTILITY(U,$J,601.751,14278,0)
 ;;=6126^4^5
 ;;^UTILITY(U,$J,601.751,14279,0)
 ;;=6126^5^1457
 ;;^UTILITY(U,$J,601.751,14280,0)
 ;;=6127^1^1
 ;;^UTILITY(U,$J,601.751,14281,0)
 ;;=6127^2^3
 ;;^UTILITY(U,$J,601.751,14282,0)
 ;;=6127^3^4
 ;;^UTILITY(U,$J,601.751,14283,0)
 ;;=6127^4^5
 ;;^UTILITY(U,$J,601.751,14284,0)
 ;;=6127^5^1457
 ;;^UTILITY(U,$J,601.751,14285,0)
 ;;=6128^1^237
 ;;^UTILITY(U,$J,601.751,14286,0)
 ;;=6128^2^241
 ;;^UTILITY(U,$J,601.751,14287,0)
 ;;=6129^1^1514
 ;;^UTILITY(U,$J,601.751,14288,0)
 ;;=6129^2^1515
 ;;^UTILITY(U,$J,601.751,14289,0)
 ;;=6129^3^1516
 ;;^UTILITY(U,$J,601.751,14290,0)
 ;;=6129^4^1517
 ;;^UTILITY(U,$J,601.751,14291,0)
 ;;=6129^5^1518
 ;;^UTILITY(U,$J,601.751,14292,0)
 ;;=6129^6^1519
 ;;^UTILITY(U,$J,601.751,14293,0)
 ;;=6129^7^1520
 ;;^UTILITY(U,$J,601.751,14294,0)
 ;;=6129^8^743
 ;;^UTILITY(U,$J,601.751,14295,0)
 ;;=6130^1^1
 ;;^UTILITY(U,$J,601.751,14296,0)
 ;;=6130^2^3
 ;;^UTILITY(U,$J,601.751,14297,0)
 ;;=6130^3^4
 ;;^UTILITY(U,$J,601.751,14298,0)
 ;;=6130^4^5
 ;;^UTILITY(U,$J,601.751,14299,0)
 ;;=6130^5^1457
 ;;^UTILITY(U,$J,601.751,14300,0)
 ;;=6131^1^1521
 ;;^UTILITY(U,$J,601.751,14301,0)
 ;;=6131^2^1522
 ;;^UTILITY(U,$J,601.751,14302,0)
 ;;=6131^3^1523
 ;;^UTILITY(U,$J,601.751,14303,0)
 ;;=6132^1^237
 ;;^UTILITY(U,$J,601.751,14304,0)
 ;;=6132^2^1513
 ;;^UTILITY(U,$J,601.751,14305,0)
 ;;=6132^3^1524
 ;;^UTILITY(U,$J,601.751,14306,0)
 ;;=6132^4^241
 ;;^UTILITY(U,$J,601.751,14307,0)
 ;;=6133^1^1525
 ;;^UTILITY(U,$J,601.751,14308,0)
 ;;=6133^2^1526
 ;;^UTILITY(U,$J,601.751,14309,0)
 ;;=6133^3^1527
 ;;^UTILITY(U,$J,601.751,14310,0)
 ;;=6133^4^1528
 ;;^UTILITY(U,$J,601.751,14311,0)
 ;;=6133^5^1665
 ;;^UTILITY(U,$J,601.751,14312,0)
 ;;=6133^6^1530
 ;;^UTILITY(U,$J,601.751,14313,0)
 ;;=6133^7^1531
 ;;^UTILITY(U,$J,601.751,14314,0)
 ;;=6133^8^1532
 ;;^UTILITY(U,$J,601.751,14315,0)
 ;;=6134^1^237
 ;;^UTILITY(U,$J,601.751,14316,0)
 ;;=6134^2^241
 ;;^UTILITY(U,$J,601.751,14317,0)
 ;;=6135^1^1
 ;;^UTILITY(U,$J,601.751,14318,0)
 ;;=6135^2^1533
 ;;^UTILITY(U,$J,601.751,14319,0)
 ;;=6135^3^1534
 ;;^UTILITY(U,$J,601.751,14320,0)
 ;;=6135^4^1535
 ;;^UTILITY(U,$J,601.751,14321,0)
 ;;=6135^5^1536
 ;;^UTILITY(U,$J,601.751,14322,0)
 ;;=6135^6^1537
 ;;^UTILITY(U,$J,601.751,14323,0)
 ;;=6135^7^1538
 ;;^UTILITY(U,$J,601.751,14324,0)
 ;;=6135^8^1539
 ;;^UTILITY(U,$J,601.751,14325,0)
 ;;=6135^9^1540
 ;;^UTILITY(U,$J,601.751,14326,0)
 ;;=6136^1^237
 ;;^UTILITY(U,$J,601.751,14327,0)
 ;;=6136^2^241
 ;;^UTILITY(U,$J,601.751,14328,0)
 ;;=6136^3^1513
 ;;^UTILITY(U,$J,601.751,14329,0)
 ;;=6137^1^237
 ;;^UTILITY(U,$J,601.751,14330,0)
 ;;=6137^2^241
 ;;^UTILITY(U,$J,601.751,14331,0)
 ;;=6137^3^1512
 ;;^UTILITY(U,$J,601.751,14332,0)
 ;;=6138^1^1541
 ;;^UTILITY(U,$J,601.751,14333,0)
 ;;=6138^2^1542
 ;;^UTILITY(U,$J,601.751,14334,0)
 ;;=6138^3^1543
 ;;^UTILITY(U,$J,601.751,14335,0)
 ;;=6138^4^1544
 ;;^UTILITY(U,$J,601.751,14336,0)
 ;;=6139^1^237
 ;;^UTILITY(U,$J,601.751,14337,0)
 ;;=6139^2^241
 ;;^UTILITY(U,$J,601.751,14338,0)
 ;;=6140^1^1545
 ;;^UTILITY(U,$J,601.751,14339,0)
 ;;=6140^2^1546
 ;;^UTILITY(U,$J,601.751,14340,0)
 ;;=6140^3^1547
 ;;^UTILITY(U,$J,601.751,14341,0)
 ;;=6140^4^1548
 ;;^UTILITY(U,$J,601.751,14342,0)
 ;;=6140^5^1549
 ;;^UTILITY(U,$J,601.751,14343,0)
 ;;=6140^6^1550
 ;;^UTILITY(U,$J,601.751,14344,0)
 ;;=6140^7^1551
 ;;^UTILITY(U,$J,601.751,14345,0)
 ;;=6140^8^1552
 ;;^UTILITY(U,$J,601.751,14346,0)
 ;;=6140^9^1553