YTQQI00J	;ASF/ALB- MH3 PATCH 85 INIT ; 7/27/07 2:16pm
	;;5.01;MENTAL HEALTH;**85**;;Build 49
	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,14347,0)
	;;=6140^10^1554
	;;^UTILITY(U,$J,601.751,14348,0)
	;;=6140^11^1555
	;;^UTILITY(U,$J,601.751,14349,0)
	;;=6140^12^1556
	;;^UTILITY(U,$J,601.751,14350,0)
	;;=6140^13^1557
	;;^UTILITY(U,$J,601.751,14351,0)
	;;=6141^1^1562
	;;^UTILITY(U,$J,601.751,14352,0)
	;;=6141^2^1563
	;;^UTILITY(U,$J,601.751,14353,0)
	;;=6141^3^1564
	;;^UTILITY(U,$J,601.751,14354,0)
	;;=6141^4^1565
	;;^UTILITY(U,$J,601.751,14355,0)
	;;=6141^5^1566
	;;^UTILITY(U,$J,601.751,14356,0)
	;;=6141^6^1614
	;;^UTILITY(U,$J,601.751,14357,0)
	;;=6141^7^1567
	;;^UTILITY(U,$J,601.751,14358,0)
	;;=6141^8^1622
	;;^UTILITY(U,$J,601.751,14359,0)
	;;=6141^9^1568
	;;^UTILITY(U,$J,601.751,14360,0)
	;;=6141^10^1569
	;;^UTILITY(U,$J,601.751,14361,0)
	;;=6141^11^1570
	;;^UTILITY(U,$J,601.751,14362,0)
	;;=6141^12^1571
	;;^UTILITY(U,$J,601.751,14363,0)
	;;=6141^13^1819
	;;^UTILITY(U,$J,601.751,14364,0)
	;;=6141^14^1573
	;;^UTILITY(U,$J,601.751,14365,0)
	;;=6141^15^1574
	;;^UTILITY(U,$J,601.751,14366,0)
	;;=6141^16^1575
	;;^UTILITY(U,$J,601.751,14367,0)
	;;=6141^17^1576
	;;^UTILITY(U,$J,601.751,14368,0)
	;;=6141^18^1577
	;;^UTILITY(U,$J,601.751,14369,0)
	;;=6141^19^1653
	;;^UTILITY(U,$J,601.751,14370,0)
	;;=6141^20^1655
	;;^UTILITY(U,$J,601.751,14371,0)
	;;=6141^21^1659
	;;^UTILITY(U,$J,601.751,14372,0)
	;;=6142^1^237
	;;^UTILITY(U,$J,601.751,14373,0)
	;;=6142^2^241
	;;^UTILITY(U,$J,601.751,14374,0)
	;;=6143^1^1
	;;^UTILITY(U,$J,601.751,14375,0)
	;;=6143^2^1579
	;;^UTILITY(U,$J,601.751,14376,0)
	;;=6143^3^1580
	;;^UTILITY(U,$J,601.751,14377,0)
	;;=6143^4^743
	;;^UTILITY(U,$J,601.751,14378,0)
	;;=6144^1^237
	;;^UTILITY(U,$J,601.751,14379,0)
	;;=6144^2^241
	;;^UTILITY(U,$J,601.751,14380,0)
	;;=6145^1^237
	;;^UTILITY(U,$J,601.751,14381,0)
	;;=6145^2^241
	;;^UTILITY(U,$J,601.751,14382,0)
	;;=6146^1^237
	;;^UTILITY(U,$J,601.751,14383,0)
	;;=6146^2^241
	;;^UTILITY(U,$J,601.751,14384,0)
	;;=6147^1^1581
	;;^UTILITY(U,$J,601.751,14385,0)
	;;=6147^2^1582
	;;^UTILITY(U,$J,601.751,14386,0)
	;;=6147^3^1583
	;;^UTILITY(U,$J,601.751,14387,0)
	;;=6147^4^1584
	;;^UTILITY(U,$J,601.751,14388,0)
	;;=6147^5^1585
	;;^UTILITY(U,$J,601.751,14389,0)
	;;=6147^6^1525
	;;^UTILITY(U,$J,601.751,14390,0)
	;;=6147^7^1586
	;;^UTILITY(U,$J,601.751,14391,0)
	;;=6147^8^1587
	;;^UTILITY(U,$J,601.751,14392,0)
	;;=6147^9^1588
	;;^UTILITY(U,$J,601.751,14393,0)
	;;=6147^10^743
	;;^UTILITY(U,$J,601.751,14394,0)
	;;=6148^1^100924
	;;^UTILITY(U,$J,601.751,14395,0)
	;;=6148^2^100925
	;;^UTILITY(U,$J,601.751,14396,0)
	;;=6149^1^237
	;;^UTILITY(U,$J,601.751,14397,0)
	;;=6149^2^241
	;;^UTILITY(U,$J,601.751,14398,0)
	;;=6150^1^237
	;;^UTILITY(U,$J,601.751,14399,0)
	;;=6150^2^241
	;;^UTILITY(U,$J,601.751,14400,0)
	;;=6151^1^237
	;;^UTILITY(U,$J,601.751,14401,0)
	;;=6151^2^241
	;;^UTILITY(U,$J,601.751,14402,0)
	;;=6152^1^237
	;;^UTILITY(U,$J,601.751,14403,0)
	;;=6152^2^241
	;;^UTILITY(U,$J,601.751,14404,0)
	;;=6153^1^237
	;;^UTILITY(U,$J,601.751,14405,0)
	;;=6153^2^241
	;;^UTILITY(U,$J,601.751,14406,0)
	;;=6154^1^237
	;;^UTILITY(U,$J,601.751,14407,0)
	;;=6154^2^241
	;;^UTILITY(U,$J,601.751,14408,0)
	;;=6155^1^237
	;;^UTILITY(U,$J,601.751,14409,0)
	;;=6155^2^241
	;;^UTILITY(U,$J,601.751,14410,0)
	;;=6156^1^237
	;;^UTILITY(U,$J,601.751,14411,0)
	;;=6156^2^241
	;;^UTILITY(U,$J,601.751,14412,0)
	;;=6157^1^237
	;;^UTILITY(U,$J,601.751,14413,0)
	;;=6157^2^241
	;;^UTILITY(U,$J,601.751,14414,0)
	;;=6158^1^237
	;;^UTILITY(U,$J,601.751,14415,0)
	;;=6158^2^241
	;;^UTILITY(U,$J,601.751,14416,0)
	;;=6159^1^237
	;;^UTILITY(U,$J,601.751,14417,0)
	;;=6159^2^241
	;;^UTILITY(U,$J,601.751,14418,0)
	;;=6160^1^237
	;;^UTILITY(U,$J,601.751,14419,0)
	;;=6160^2^241
	;;^UTILITY(U,$J,601.751,14420,0)
	;;=6161^1^237
	;;^UTILITY(U,$J,601.751,14421,0)
	;;=6161^2^241
	;;^UTILITY(U,$J,601.751,14422,0)
	;;=6162^1^237
	;;^UTILITY(U,$J,601.751,14423,0)
	;;=6162^2^241
	;;^UTILITY(U,$J,601.751,14424,0)
	;;=6163^1^237
	;;^UTILITY(U,$J,601.751,14425,0)
	;;=6163^2^241
	;;^UTILITY(U,$J,601.751,14426,0)
	;;=6164^1^237
	;;^UTILITY(U,$J,601.751,14427,0)
	;;=6164^2^241
	;;^UTILITY(U,$J,601.751,14428,0)
	;;=6165^1^100884
	;;^UTILITY(U,$J,601.751,14429,0)
	;;=6165^2^100885
	;;^UTILITY(U,$J,601.751,14430,0)
	;;=6165^3^100886
	;;^UTILITY(U,$J,601.751,14431,0)
	;;=6165^4^100887
	;;^UTILITY(U,$J,601.751,14432,0)
	;;=6166^1^100888
	;;^UTILITY(U,$J,601.751,14433,0)
	;;=6166^2^100889
	;;^UTILITY(U,$J,601.751,14434,0)
	;;=6166^3^100890
	;;^UTILITY(U,$J,601.751,14435,0)
	;;=6166^4^100891
	;;^UTILITY(U,$J,601.751,14436,0)
	;;=6166^5^100892
	;;^UTILITY(U,$J,601.751,14437,0)
	;;=6166^6^100893
	;;^UTILITY(U,$J,601.751,14438,0)
	;;=6167^1^100888
	;;^UTILITY(U,$J,601.751,14439,0)
	;;=6167^2^100889
	;;^UTILITY(U,$J,601.751,14440,0)
	;;=6167^3^100890
	;;^UTILITY(U,$J,601.751,14441,0)
	;;=6167^4^100891
	;;^UTILITY(U,$J,601.751,14442,0)
	;;=6167^5^100892
	;;^UTILITY(U,$J,601.751,14443,0)
	;;=6167^6^100893
	;;^UTILITY(U,$J,601.751,14444,0)
	;;=6168^1^856
	;;^UTILITY(U,$J,601.751,14445,0)
	;;=6168^2^100947
	;;^UTILITY(U,$J,601.751,14446,0)
	;;=6168^3^855
	;;^UTILITY(U,$J,601.751,14447,0)
	;;=6168^4^100948
	;;^UTILITY(U,$J,601.751,14448,0)
	;;=6168^5^100949
	;;^UTILITY(U,$J,601.751,14449,0)
	;;=6169^1^856
	;;^UTILITY(U,$J,601.751,14450,0)
	;;=6169^2^100947
	;;^UTILITY(U,$J,601.751,14451,0)
	;;=6169^3^855
	;;^UTILITY(U,$J,601.751,14452,0)
	;;=6169^4^100948
	;;^UTILITY(U,$J,601.751,14453,0)
	;;=6169^5^100949
	;;^UTILITY(U,$J,601.751,14454,0)
	;;=6170^1^856
	;;^UTILITY(U,$J,601.751,14455,0)
	;;=6170^2^100947
	;;^UTILITY(U,$J,601.751,14456,0)
	;;=6170^3^855
	;;^UTILITY(U,$J,601.751,14457,0)
	;;=6170^4^100948
	;;^UTILITY(U,$J,601.751,14458,0)
	;;=6170^5^100949
	;;^UTILITY(U,$J,601.751,14459,0)
	;;=6171^1^856
	;;^UTILITY(U,$J,601.751,14460,0)
	;;=6171^2^100947
	;;^UTILITY(U,$J,601.751,14461,0)
	;;=6171^3^855
	;;^UTILITY(U,$J,601.751,14462,0)
	;;=6171^4^100948
	;;^UTILITY(U,$J,601.751,14463,0)
	;;=6171^5^100949
	;;^UTILITY(U,$J,601.751,14464,0)
	;;=6172^1^856
	;;^UTILITY(U,$J,601.751,14465,0)
	;;=6172^2^100947
	;;^UTILITY(U,$J,601.751,14466,0)
	;;=6172^3^855
	;;^UTILITY(U,$J,601.751,14467,0)
	;;=6172^4^100948
	;;^UTILITY(U,$J,601.751,14468,0)
	;;=6172^5^100949
	;;^UTILITY(U,$J,601.751,14469,0)
	;;=6173^1^100888
	;;^UTILITY(U,$J,601.751,14470,0)
	;;=6173^2^1404
	;;^UTILITY(U,$J,601.751,14471,0)
	;;=6173^3^1405
	;;^UTILITY(U,$J,601.751,14472,0)
	;;=6173^4^1406
	;;^UTILITY(U,$J,601.751,14473,0)
	;;=6173^5^1407
	;;^UTILITY(U,$J,601.751,14474,0)
	;;=6173^6^1408
	;;^UTILITY(U,$J,601.751,14475,0)
	;;=6174^1^1409
	;;^UTILITY(U,$J,601.751,14476,0)
	;;=6174^2^217
	;;^UTILITY(U,$J,601.751,14477,0)
	;;=6174^3^242
	;;^UTILITY(U,$J,601.751,14478,0)
	;;=6174^4^290
	;;^UTILITY(U,$J,601.751,14479,0)
	;;=6174^5^213
	;;^UTILITY(U,$J,601.751,14480,0)
	;;=6174^6^215
	;;^UTILITY(U,$J,601.751,14481,0)
	;;=6174^7^291
	;;^UTILITY(U,$J,601.751,14482,0)
	;;=6174^8^995
	;;^UTILITY(U,$J,601.751,14483,0)
	;;=6175^1^1409
	;;^UTILITY(U,$J,601.751,14484,0)
	;;=6175^2^217
	;;^UTILITY(U,$J,601.751,14485,0)
	;;=6175^3^242
	;;^UTILITY(U,$J,601.751,14486,0)
	;;=6175^4^290
	;;^UTILITY(U,$J,601.751,14487,0)
	;;=6175^5^213
	;;^UTILITY(U,$J,601.751,14488,0)
	;;=6175^6^215
	;;^UTILITY(U,$J,601.751,14489,0)
	;;=6175^7^291
	;;^UTILITY(U,$J,601.751,14490,0)
	;;=6175^8^995
	;;^UTILITY(U,$J,601.751,14491,0)
	;;=6176^1^1409
	;;^UTILITY(U,$J,601.751,14492,0)
	;;=6176^2^217
	;;^UTILITY(U,$J,601.751,14493,0)
	;;=6176^3^242
	;;^UTILITY(U,$J,601.751,14494,0)
	;;=6176^4^290
	;;^UTILITY(U,$J,601.751,14495,0)
	;;=6176^5^213
	;;^UTILITY(U,$J,601.751,14496,0)
	;;=6176^6^215
	;;^UTILITY(U,$J,601.751,14497,0)
	;;=6176^7^291
	;;^UTILITY(U,$J,601.751,14498,0)
	;;=6176^8^995
	;;^UTILITY(U,$J,601.751,14499,0)
	;;=6177^1^1409
	;;^UTILITY(U,$J,601.751,14500,0)
	;;=6177^2^217
	;;^UTILITY(U,$J,601.751,14501,0)
	;;=6177^3^242
	;;^UTILITY(U,$J,601.751,14502,0)
	;;=6177^4^290
	;;^UTILITY(U,$J,601.751,14503,0)
	;;=6177^5^213
	;;^UTILITY(U,$J,601.751,14504,0)
	;;=6177^6^215
	;;^UTILITY(U,$J,601.751,14505,0)
	;;=6177^7^291
	;;^UTILITY(U,$J,601.751,14506,0)
	;;=6177^8^995
	;;^UTILITY(U,$J,601.751,14507,0)
	;;=6178^1^1409
	;;^UTILITY(U,$J,601.751,14508,0)
	;;=6178^2^217
	;;^UTILITY(U,$J,601.751,14509,0)
	;;=6178^3^242
	;;^UTILITY(U,$J,601.751,14510,0)
	;;=6178^4^290
	;;^UTILITY(U,$J,601.751,14511,0)
	;;=6178^5^213
	;;^UTILITY(U,$J,601.751,14512,0)
	;;=6178^6^215
	;;^UTILITY(U,$J,601.751,14513,0)
	;;=6178^7^291
	;;^UTILITY(U,$J,601.751,14514,0)
	;;=6178^8^995
	;;^UTILITY(U,$J,601.751,14515,0)
	;;=6179^1^1409
	;;^UTILITY(U,$J,601.751,14516,0)
	;;=6179^2^217
	;;^UTILITY(U,$J,601.751,14517,0)
	;;=6179^3^242
	;;^UTILITY(U,$J,601.751,14518,0)
	;;=6179^4^290
	;;^UTILITY(U,$J,601.751,14519,0)
	;;=6179^5^213
	;;^UTILITY(U,$J,601.751,14520,0)
	;;=6179^6^215
	;;^UTILITY(U,$J,601.751,14521,0)
	;;=6179^7^291
	;;^UTILITY(U,$J,601.751,14522,0)
	;;=6179^8^995