YTQQI00J ;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,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