409 lines
8.9 KiB
Mathematica
409 lines
8.9 KiB
Mathematica
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
|