VistA-FOIAVistA/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YTQQI00K.m

YTQQI00K ;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,14523,0)
 ;;=6180^1^1410
 ;;^UTILITY(U,$J,601.751,14524,0)
 ;;=6180^2^1411
 ;;^UTILITY(U,$J,601.751,14525,0)
 ;;=6180^3^1063
 ;;^UTILITY(U,$J,601.751,14526,0)
 ;;=6180^4^1062
 ;;^UTILITY(U,$J,601.751,14527,0)
 ;;=6180^5^1061
 ;;^UTILITY(U,$J,601.751,14528,0)
 ;;=6180^6^1059
 ;;^UTILITY(U,$J,601.751,14529,0)
 ;;=6181^1^100884
 ;;^UTILITY(U,$J,601.751,14530,0)
 ;;=6181^2^1412
 ;;^UTILITY(U,$J,601.751,14531,0)
 ;;=6181^3^1413
 ;;^UTILITY(U,$J,601.751,14532,0)
 ;;=6181^4^1414
 ;;^UTILITY(U,$J,601.751,14533,0)
 ;;=6181^5^1415
 ;;^UTILITY(U,$J,601.751,14534,0)
 ;;=6181^6^1416
 ;;^UTILITY(U,$J,601.751,14535,0)
 ;;=6182^1^100884
 ;;^UTILITY(U,$J,601.751,14536,0)
 ;;=6182^2^1412
 ;;^UTILITY(U,$J,601.751,14537,0)
 ;;=6182^3^1413
 ;;^UTILITY(U,$J,601.751,14538,0)
 ;;=6182^4^1414
 ;;^UTILITY(U,$J,601.751,14539,0)
 ;;=6182^5^1415
 ;;^UTILITY(U,$J,601.751,14540,0)
 ;;=6182^6^1416
 ;;^UTILITY(U,$J,601.751,14541,0)
 ;;=6183^1^237
 ;;^UTILITY(U,$J,601.751,14542,0)
 ;;=6183^2^241
 ;;^UTILITY(U,$J,601.751,14543,0)
 ;;=6184^1^237
 ;;^UTILITY(U,$J,601.751,14544,0)
 ;;=6184^2^241
 ;;^UTILITY(U,$J,601.751,14545,0)
 ;;=6185^1^237
 ;;^UTILITY(U,$J,601.751,14546,0)
 ;;=6185^2^241
 ;;^UTILITY(U,$J,601.751,14547,0)
 ;;=6186^1^237
 ;;^UTILITY(U,$J,601.751,14548,0)
 ;;=6186^2^241
 ;;^UTILITY(U,$J,601.751,14549,0)
 ;;=6187^1^237
 ;;^UTILITY(U,$J,601.751,14550,0)
 ;;=6187^2^241
 ;;^UTILITY(U,$J,601.751,14551,0)
 ;;=6188^1^237
 ;;^UTILITY(U,$J,601.751,14552,0)
 ;;=6188^2^241
 ;;^UTILITY(U,$J,601.751,14553,0)
 ;;=6189^1^237
 ;;^UTILITY(U,$J,601.751,14554,0)
 ;;=6189^2^241
 ;;^UTILITY(U,$J,601.751,14555,0)
 ;;=6190^1^237
 ;;^UTILITY(U,$J,601.751,14556,0)
 ;;=6190^2^241
 ;;^UTILITY(U,$J,601.751,14557,0)
 ;;=6191^1^237
 ;;^UTILITY(U,$J,601.751,14558,0)
 ;;=6191^2^241
 ;;^UTILITY(U,$J,601.751,14559,0)
 ;;=6192^1^237
 ;;^UTILITY(U,$J,601.751,14560,0)
 ;;=6192^2^241
 ;;^UTILITY(U,$J,601.751,14561,0)
 ;;=6193^1^237
 ;;^UTILITY(U,$J,601.751,14562,0)
 ;;=6193^2^241
 ;;^UTILITY(U,$J,601.751,14563,0)
 ;;=6194^1^237
 ;;^UTILITY(U,$J,601.751,14564,0)
 ;;=6194^2^241
 ;;^UTILITY(U,$J,601.751,14565,0)
 ;;=6195^1^237
 ;;^UTILITY(U,$J,601.751,14566,0)
 ;;=6195^2^241
 ;;^UTILITY(U,$J,601.751,14567,0)
 ;;=6196^1^237
 ;;^UTILITY(U,$J,601.751,14568,0)
 ;;=6196^2^241
 ;;^UTILITY(U,$J,601.751,14569,0)
 ;;=6197^1^237
 ;;^UTILITY(U,$J,601.751,14570,0)
 ;;=6197^2^241
 ;;^UTILITY(U,$J,601.751,14571,0)
 ;;=6198^1^237
 ;;^UTILITY(U,$J,601.751,14572,0)
 ;;=6198^2^241
 ;;^UTILITY(U,$J,601.751,14573,0)
 ;;=6199^1^237
 ;;^UTILITY(U,$J,601.751,14574,0)
 ;;=6199^2^241
 ;;^UTILITY(U,$J,601.751,14575,0)
 ;;=6200^1^237
 ;;^UTILITY(U,$J,601.751,14576,0)
 ;;=6200^2^241
 ;;^UTILITY(U,$J,601.751,14577,0)
 ;;=6201^1^237
 ;;^UTILITY(U,$J,601.751,14578,0)
 ;;=6201^2^241
 ;;^UTILITY(U,$J,601.751,14579,0)
 ;;=6202^1^237
 ;;^UTILITY(U,$J,601.751,14580,0)
 ;;=6202^2^241
 ;;^UTILITY(U,$J,601.751,14581,0)
 ;;=6203^1^237
 ;;^UTILITY(U,$J,601.751,14582,0)
 ;;=6203^2^241
 ;;^UTILITY(U,$J,601.751,14583,0)
 ;;=6204^1^237
 ;;^UTILITY(U,$J,601.751,14584,0)
 ;;=6204^2^241
 ;;^UTILITY(U,$J,601.751,14585,0)
 ;;=6205^1^237
 ;;^UTILITY(U,$J,601.751,14586,0)
 ;;=6205^2^241
 ;;^UTILITY(U,$J,601.751,14587,0)
 ;;=6206^1^237
 ;;^UTILITY(U,$J,601.751,14588,0)
 ;;=6206^2^241
 ;;^UTILITY(U,$J,601.751,14589,0)
 ;;=6207^1^237
 ;;^UTILITY(U,$J,601.751,14590,0)
 ;;=6207^2^241
 ;;^UTILITY(U,$J,601.751,14609,0)
 ;;=6214^1^1833
 ;;^UTILITY(U,$J,601.751,14610,0)
 ;;=6214^2^1834
 ;;^UTILITY(U,$J,601.751,14611,0)
 ;;=6215^1^1835
 ;;^UTILITY(U,$J,601.751,14612,0)
 ;;=6215^2^1836
 ;;^UTILITY(U,$J,601.751,14613,0)
 ;;=6216^1^1837
 ;;^UTILITY(U,$J,601.751,14614,0)
 ;;=6216^2^1838
 ;;^UTILITY(U,$J,601.751,14615,0)
 ;;=6217^1^1839
 ;;^UTILITY(U,$J,601.751,14616,0)
 ;;=6217^2^1840
 ;;^UTILITY(U,$J,601.751,14617,0)
 ;;=6217^3^1841
 ;;^UTILITY(U,$J,601.751,14618,0)
 ;;=6218^1^1839
 ;;^UTILITY(U,$J,601.751,14619,0)
 ;;=6218^2^1840
 ;;^UTILITY(U,$J,601.751,14620,0)
 ;;=6218^3^1841
 ;;^UTILITY(U,$J,601.751,14621,0)
 ;;=6219^1^1842
 ;;^UTILITY(U,$J,601.751,14622,0)
 ;;=6219^2^1843
 ;;^UTILITY(U,$J,601.751,14623,0)
 ;;=6219^3^1844
 ;;^UTILITY(U,$J,601.751,14624,0)
 ;;=6219^4^1845
 ;;^UTILITY(U,$J,601.751,14625,0)
 ;;=6219^5^1846
 ;;^UTILITY(U,$J,601.751,14626,0)
 ;;=6219^6^1847