YTQQI002	;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)
	;;=^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