YTQQI002 ;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)
 ;;=^YTT(601.751,
 ;;^UTILITY(U,$J,601.751,0)
 ;;=MH CHOICETYPES^601.751^^3128
 ;;^UTILITY(U,$J,601.751,1,0)
 ;;=1^1^1
 ;;^UTILITY(U,$J,601.751,2,0)
 ;;=1^2^2
 ;;^UTILITY(U,$J,601.751,3,0)
 ;;=1^3^3
 ;;^UTILITY(U,$J,601.751,4,0)
 ;;=1^4^4
 ;;^UTILITY(U,$J,601.751,5,0)
 ;;=1^5^5
 ;;^UTILITY(U,$J,601.751,6,0)
 ;;=2^1^6
 ;;^UTILITY(U,$J,601.751,7,0)
 ;;=2^2^7
 ;;^UTILITY(U,$J,601.751,8,0)
 ;;=2^3^8
 ;;^UTILITY(U,$J,601.751,9,0)
 ;;=2^4^9
 ;;^UTILITY(U,$J,601.751,10,0)
 ;;=2^5^10
 ;;^UTILITY(U,$J,601.751,11,0)
 ;;=3^1^11
 ;;^UTILITY(U,$J,601.751,12,0)
 ;;=3^2^12
 ;;^UTILITY(U,$J,601.751,13,0)
 ;;=3^3^13
 ;;^UTILITY(U,$J,601.751,14,0)
 ;;=3^4^14
 ;;^UTILITY(U,$J,601.751,15,0)
 ;;=3^5^15
 ;;^UTILITY(U,$J,601.751,16,0)
 ;;=4^1^16
 ;;^UTILITY(U,$J,601.751,17,0)
 ;;=4^2^17
 ;;^UTILITY(U,$J,601.751,18,0)
 ;;=5^1^18
 ;;^UTILITY(U,$J,601.751,19,0)
 ;;=5^2^19
 ;;^UTILITY(U,$J,601.751,20,0)
 ;;=5^3^20
 ;;^UTILITY(U,$J,601.751,21,0)
 ;;=5^4^21
 ;;^UTILITY(U,$J,601.751,22,0)
 ;;=5^5^22
 ;;^UTILITY(U,$J,601.751,23,0)
 ;;=6^1^23
 ;;^UTILITY(U,$J,601.751,24,0)
 ;;=6^2^24
 ;;^UTILITY(U,$J,601.751,25,0)
 ;;=6^3^25
 ;;^UTILITY(U,$J,601.751,26,0)
 ;;=6^4^26
 ;;^UTILITY(U,$J,601.751,27,0)
 ;;=6^5^27
 ;;^UTILITY(U,$J,601.751,28,0)
 ;;=7^1^18
 ;;^UTILITY(U,$J,601.751,29,0)
 ;;=7^2^28
 ;;^UTILITY(U,$J,601.751,30,0)
 ;;=7^3^29
 ;;^UTILITY(U,$J,601.751,31,0)
 ;;=7^4^21
 ;;^UTILITY(U,$J,601.751,32,0)
 ;;=7^5^30
 ;;^UTILITY(U,$J,601.751,33,0)
 ;;=8^1^31
 ;;^UTILITY(U,$J,601.751,34,0)
 ;;=8^2^32
 ;;^UTILITY(U,$J,601.751,35,0)
 ;;=8^3^33
 ;;^UTILITY(U,$J,601.751,36,0)
 ;;=8^4^34
 ;;^UTILITY(U,$J,601.751,37,0)
 ;;=8^5^35
 ;;^UTILITY(U,$J,601.751,38,0)
 ;;=9^1^36
 ;;^UTILITY(U,$J,601.751,39,0)
 ;;=9^2^37
 ;;^UTILITY(U,$J,601.751,40,0)
 ;;=9^3^38
 ;;^UTILITY(U,$J,601.751,41,0)
 ;;=9^4^39
 ;;^UTILITY(U,$J,601.751,42,0)
 ;;=9^5^40
 ;;^UTILITY(U,$J,601.751,43,0)
 ;;=10^1^41
 ;;^UTILITY(U,$J,601.751,44,0)
 ;;=10^2^42
 ;;^UTILITY(U,$J,601.751,45,0)
 ;;=10^3^43
 ;;^UTILITY(U,$J,601.751,46,0)
 ;;=10^4^44
 ;;^UTILITY(U,$J,601.751,47,0)
 ;;=10^5^45
 ;;^UTILITY(U,$J,601.751,48,0)
 ;;=11^1^46
 ;;^UTILITY(U,$J,601.751,49,0)
 ;;=11^2^47
 ;;^UTILITY(U,$J,601.751,50,0)
 ;;=11^3^48
 ;;^UTILITY(U,$J,601.751,51,0)
 ;;=11^4^49
 ;;^UTILITY(U,$J,601.751,52,0)
 ;;=11^5^50
 ;;^UTILITY(U,$J,601.751,53,0)
 ;;=12^1^51
 ;;^UTILITY(U,$J,601.751,54,0)
 ;;=12^2^52
 ;;^UTILITY(U,$J,601.751,55,0)
 ;;=12^3^53
 ;;^UTILITY(U,$J,601.751,56,0)
 ;;=12^4^54
 ;;^UTILITY(U,$J,601.751,57,0)
 ;;=12^5^55
 ;;^UTILITY(U,$J,601.751,58,0)
 ;;=13^1^56
 ;;^UTILITY(U,$J,601.751,59,0)
 ;;=13^2^57
 ;;^UTILITY(U,$J,601.751,60,0)
 ;;=13^3^58
 ;;^UTILITY(U,$J,601.751,61,0)
 ;;=13^4^59
 ;;^UTILITY(U,$J,601.751,62,0)
 ;;=13^5^60
 ;;^UTILITY(U,$J,601.751,63,0)
 ;;=14^1^61
 ;;^UTILITY(U,$J,601.751,64,0)
 ;;=14^2^62
 ;;^UTILITY(U,$J,601.751,65,0)
 ;;=14^3^20
 ;;^UTILITY(U,$J,601.751,66,0)
 ;;=14^4^63
 ;;^UTILITY(U,$J,601.751,67,0)
 ;;=14^5^64
 ;;^UTILITY(U,$J,601.751,68,0)
 ;;=15^1^65
 ;;^UTILITY(U,$J,601.751,69,0)
 ;;=15^2^66
 ;;^UTILITY(U,$J,601.751,70,0)
 ;;=15^3^67
 ;;^UTILITY(U,$J,601.751,71,0)
 ;;=15^4^68
 ;;^UTILITY(U,$J,601.751,72,0)
 ;;=15^5^69
 ;;^UTILITY(U,$J,601.751,73,0)
 ;;=16^1^70
 ;;^UTILITY(U,$J,601.751,74,0)
 ;;=16^2^71
 ;;^UTILITY(U,$J,601.751,75,0)
 ;;=16^3^72
 ;;^UTILITY(U,$J,601.751,76,0)
 ;;=16^4^73
 ;;^UTILITY(U,$J,601.751,77,0)
 ;;=16^5^74
 ;;^UTILITY(U,$J,601.751,78,0)
 ;;=17^1^75
 ;;^UTILITY(U,$J,601.751,79,0)
 ;;=17^2^76
 ;;^UTILITY(U,$J,601.751,80,0)
 ;;=17^3^77
 ;;^UTILITY(U,$J,601.751,81,0)
 ;;=17^4^78
 ;;^UTILITY(U,$J,601.751,82,0)
 ;;=17^5^79
 ;;^UTILITY(U,$J,601.751,83,0)
 ;;=18^1^80
 ;;^UTILITY(U,$J,601.751,84,0)
 ;;=18^2^81
 ;;^UTILITY(U,$J,601.751,85,0)
 ;;=18^3^82
 ;;^UTILITY(U,$J,601.751,86,0)
 ;;=18^4^83
 ;;^UTILITY(U,$J,601.751,87,0)
 ;;=18^5^84
 ;;^UTILITY(U,$J,601.751,88,0)
 ;;=19^1^85
 ;;^UTILITY(U,$J,601.751,89,0)
 ;;=19^2^86
 ;;^UTILITY(U,$J,601.751,90,0)
 ;;=19^3^87
 ;;^UTILITY(U,$J,601.751,91,0)
 ;;=19^4^88
 ;;^UTILITY(U,$J,601.751,92,0)
 ;;=19^5^89
 ;;^UTILITY(U,$J,601.751,93,0)
 ;;=20^1^90
 ;;^UTILITY(U,$J,601.751,94,0)
 ;;=20^2^91
 ;;^UTILITY(U,$J,601.751,95,0)
 ;;=20^3^92
 ;;^UTILITY(U,$J,601.751,96,0)
 ;;=20^4^93
 ;;^UTILITY(U,$J,601.751,97,0)
 ;;=20^5^94
 ;;^UTILITY(U,$J,601.751,98,0)
 ;;=21^1^95
 ;;^UTILITY(U,$J,601.751,99,0)
 ;;=21^2^96
 ;;^UTILITY(U,$J,601.751,100,0)
 ;;=21^3^97
 ;;^UTILITY(U,$J,601.751,101,0)
 ;;=21^4^98
 ;;^UTILITY(U,$J,601.751,102,0)
 ;;=21^5^99
 ;;^UTILITY(U,$J,601.751,103,0)
 ;;=22^1^100
 ;;^UTILITY(U,$J,601.751,104,0)
 ;;=22^2^101
 ;;^UTILITY(U,$J,601.751,105,0)
 ;;=22^3^102
 ;;^UTILITY(U,$J,601.751,106,0)
 ;;=22^4^68
 ;;^UTILITY(U,$J,601.751,107,0)
 ;;=22^5^22
 ;;^UTILITY(U,$J,601.751,108,0)
 ;;=23^1^103
 ;;^UTILITY(U,$J,601.751,109,0)
 ;;=23^2^104
 ;;^UTILITY(U,$J,601.751,110,0)
 ;;=23^3^105
 ;;^UTILITY(U,$J,601.751,111,0)
 ;;=23^4^106
 ;;^UTILITY(U,$J,601.751,112,0)
 ;;=23^5^107
 ;;^UTILITY(U,$J,601.751,113,0)
 ;;=24^1^108
 ;;^UTILITY(U,$J,601.751,114,0)
 ;;=24^2^109
 ;;^UTILITY(U,$J,601.751,115,0)
 ;;=24^3^110
 ;;^UTILITY(U,$J,601.751,116,0)
 ;;=24^4^111
 ;;^UTILITY(U,$J,601.751,117,0)
 ;;=24^5^112
 ;;^UTILITY(U,$J,601.751,118,0)
 ;;=25^1^113
 ;;^UTILITY(U,$J,601.751,119,0)
 ;;=25^2^114
 ;;^UTILITY(U,$J,601.751,120,0)
 ;;=25^3^115
 ;;^UTILITY(U,$J,601.751,121,0)
 ;;=25^4^116
 ;;^UTILITY(U,$J,601.751,122,0)
 ;;=25^5^117
 ;;^UTILITY(U,$J,601.751,123,0)
 ;;=26^1^118
 ;;^UTILITY(U,$J,601.751,124,0)
 ;;=26^2^119
 ;;^UTILITY(U,$J,601.751,125,0)
 ;;=26^3^120
 ;;^UTILITY(U,$J,601.751,126,0)
 ;;=26^4^121
 ;;^UTILITY(U,$J,601.751,127,0)
 ;;=26^5^122
 ;;^UTILITY(U,$J,601.751,128,0)
 ;;=27^1^123
 ;;^UTILITY(U,$J,601.751,129,0)
 ;;=27^2^124
 ;;^UTILITY(U,$J,601.751,130,0)
 ;;=27^3^125
 ;;^UTILITY(U,$J,601.751,131,0)
 ;;=27^4^126
 ;;^UTILITY(U,$J,601.751,132,0)
 ;;=27^5^127
 ;;^UTILITY(U,$J,601.751,133,0)
 ;;=28^1^128
 ;;^UTILITY(U,$J,601.751,134,0)
 ;;=28^2^129
 ;;^UTILITY(U,$J,601.751,135,0)
 ;;=28^3^130
 ;;^UTILITY(U,$J,601.751,136,0)
 ;;=28^4^131
 ;;^UTILITY(U,$J,601.751,137,0)
 ;;=28^5^132
 ;;^UTILITY(U,$J,601.751,138,0)
 ;;=29^1^133
 ;;^UTILITY(U,$J,601.751,139,0)
 ;;=29^2^134
 ;;^UTILITY(U,$J,601.751,140,0)
 ;;=29^3^135
 ;;^UTILITY(U,$J,601.751,141,0)
 ;;=29^4^136
 ;;^UTILITY(U,$J,601.751,142,0)
 ;;=29^5^137
 ;;^UTILITY(U,$J,601.751,143,0)
 ;;=30^1^138
 ;;^UTILITY(U,$J,601.751,144,0)
 ;;=30^2^139
 ;;^UTILITY(U,$J,601.751,145,0)
 ;;=30^3^140
 ;;^UTILITY(U,$J,601.751,146,0)
 ;;=30^4^141
 ;;^UTILITY(U,$J,601.751,147,0)
 ;;=30^5^142
 ;;^UTILITY(U,$J,601.751,148,0)
 ;;=31^1^143
 ;;^UTILITY(U,$J,601.751,149,0)
 ;;=31^2^144
 ;;^UTILITY(U,$J,601.751,150,0)
 ;;=31^3^145
 ;;^UTILITY(U,$J,601.751,151,0)
 ;;=31^4^146
 ;;^UTILITY(U,$J,601.751,152,0)
 ;;=31^5^147
 ;;^UTILITY(U,$J,601.751,153,0)
 ;;=32^1^148
 ;;^UTILITY(U,$J,601.751,154,0)
 ;;=32^2^149
 ;;^UTILITY(U,$J,601.751,155,0)
 ;;=32^3^150
 ;;^UTILITY(U,$J,601.751,156,0)
 ;;=32^4^151
 ;;^UTILITY(U,$J,601.751,157,0)
 ;;=32^5^152
 ;;^UTILITY(U,$J,601.751,158,0)
 ;;=33^1^153
 ;;^UTILITY(U,$J,601.751,159,0)
 ;;=33^2^154
 ;;^UTILITY(U,$J,601.751,160,0)
 ;;=33^3^155
 ;;^UTILITY(U,$J,601.751,161,0)
 ;;=33^4^156
 ;;^UTILITY(U,$J,601.751,162,0)
 ;;=33^5^157
 ;;^UTILITY(U,$J,601.751,163,0)
 ;;=34^1^158
 ;;^UTILITY(U,$J,601.751,164,0)
 ;;=34^2^159
 ;;^UTILITY(U,$J,601.751,165,0)
 ;;=34^3^160
 ;;^UTILITY(U,$J,601.751,166,0)
 ;;=34^4^161
 ;;^UTILITY(U,$J,601.751,167,0)
 ;;=34^5^162
 ;;^UTILITY(U,$J,601.751,168,0)
 ;;=35^1^163
 ;;^UTILITY(U,$J,601.751,169,0)
 ;;=35^2^164
 ;;^UTILITY(U,$J,601.751,170,0)
 ;;=35^3^165
 ;;^UTILITY(U,$J,601.751,171,0)
 ;;=35^4^166
 ;;^UTILITY(U,$J,601.751,172,0)
 ;;=35^5^167
 ;;^UTILITY(U,$J,601.751,173,0)
 ;;=36^1^168
 ;;^UTILITY(U,$J,601.751,174,0)
 ;;=36^2^169
 ;;^UTILITY(U,$J,601.751,175,0)
 ;;=36^3^170
 ;;^UTILITY(U,$J,601.751,176,0)
 ;;=36^4^171
 ;;^UTILITY(U,$J,601.751,177,0)
 ;;=36^5^172
 ;;^UTILITY(U,$J,601.751,178,0)
 ;;=37^1^173
 ;;^UTILITY(U,$J,601.751,179,0)
 ;;=37^2^174
 ;;^UTILITY(U,$J,601.751,180,0)
 ;;=37^3^175
 ;;^UTILITY(U,$J,601.751,181,0)
 ;;=37^4^176
 ;;^UTILITY(U,$J,601.751,182,0)
 ;;=37^5^177
 ;;^UTILITY(U,$J,601.751,183,0)
 ;;=38^1^178
 ;;^UTILITY(U,$J,601.751,184,0)
 ;;=38^2^179
 ;;^UTILITY(U,$J,601.751,185,0)
 ;;=38^3^180
 ;;^UTILITY(U,$J,601.751,186,0)
 ;;=38^4^181
 ;;^UTILITY(U,$J,601.751,187,0)
 ;;=38^5^182
 ;;^UTILITY(U,$J,601.751,188,0)
 ;;=39^1^183
 ;;^UTILITY(U,$J,601.751,189,0)
 ;;=39^2^184
 ;;^UTILITY(U,$J,601.751,190,0)
 ;;=39^3^185
 ;;^UTILITY(U,$J,601.751,191,0)
 ;;=39^4^186
 ;;^UTILITY(U,$J,601.751,192,0)
 ;;=39^5^187
 ;;^UTILITY(U,$J,601.751,193,0)
 ;;=40^1^188
 ;;^UTILITY(U,$J,601.751,194,0)
 ;;=40^2^189
 ;;^UTILITY(U,$J,601.751,195,0)
 ;;=40^3^190
 ;;^UTILITY(U,$J,601.751,196,0)
 ;;=40^4^191
 ;;^UTILITY(U,$J,601.751,197,0)
 ;;=40^5^192
 ;;^UTILITY(U,$J,601.751,198,0)
 ;;=41^1^193
 ;;^UTILITY(U,$J,601.751,199,0)
 ;;=41^2^194
 ;;^UTILITY(U,$J,601.751,200,0)
 ;;=41^3^195