ATXXA19 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON APR 29, 2014;
;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48
;
START ;
K:'$G(ATXPGMC) ^TMP("ATX",$J)
S ATXPGMC=$G(ATXPGMC)+1
F ATXI=1:1 S X=$P($T(TMP+ATXI),";;",2,99) Q:X="" S X="^TMP(""ATX"",$J,"_X,ATXI=ATXI+1,Y=$P($T(TMP+ATXI),";;",2,99) S @X=Y
Q
;
TMP ;;TAXONOMY (WITH BULLETIN)
;;21,"S83.201A ")
;;6940
;;21,"S83.202A ")
;;6941
;;21,"S83.203A ")
;;6942
;;21,"S83.204A ")
;;6943
;;21,"S83.205A ")
;;6944
;;21,"S83.206A ")
;;6945
;;21,"S83.207A ")
;;6946
;;21,"S83.209A ")
;;6947
;;21,"S83.211A ")
;;6948
;;21,"S83.212A ")
;;6949
;;21,"S83.219A ")
;;6950
;;21,"S83.221A ")
;;6951
;;21,"S83.222A ")
;;6952
;;21,"S83.229A ")
;;6953
;;21,"S83.231A ")
;;6954
;;21,"S83.232A ")
;;6955
;;21,"S83.239A ")
;;6956
;;21,"S83.241A ")
;;6957
;;21,"S83.242A ")
;;6958
;;21,"S83.249A ")
;;6959
;;21,"S83.251A ")
;;6960
;;21,"S83.252A ")
;;6961
;;21,"S83.259A ")
;;6962
;;21,"S83.261A ")
;;6963
;;21,"S83.262A ")
;;6964
;;21,"S83.269A ")
;;6965
;;21,"S83.271A ")
;;6966
;;21,"S83.272A ")
;;6967
;;21,"S83.279A ")
;;6968
;;21,"S83.281A ")
;;6969
;;21,"S83.282A ")
;;6970
;;21,"S83.289A ")
;;6971
;;21,"S83.30XA ")
;;6972
;;21,"S83.31XA ")
;;6973
;;21,"S83.32XA ")
;;6974
;;21,"S83.401A ")
;;6975
;;21,"S83.402A ")
;;6976
;;21,"S83.409A ")
;;6977
;;21,"S83.411A ")
;;6978
;;21,"S83.412A ")
;;6979
;;21,"S83.419A ")
;;6980
;;21,"S83.421A ")
;;6981
;;21,"S83.422A ")
;;6982
;;21,"S83.429A ")
;;6983
;;21,"S83.501A ")
;;6984
;;21,"S83.502A ")
;;6985
;;21,"S83.509A ")
;;6986
;;21,"S83.511A ")
;;6987
;;21,"S83.512A ")
;;6988
;;21,"S83.519A ")
;;6989
;;21,"S83.521A ")
;;6990
;;21,"S83.522A ")
;;6991
;;21,"S83.529A ")
;;6992
;;21,"S83.60XA ")
;;6993
;;21,"S83.61XA ")
;;6994
;;21,"S83.62XA ")
;;6995
;;21,"S83.8X1A ")
;;6996
;;21,"S83.8X2A ")
;;6997
;;21,"S83.8X9A ")
;;6998
;;21,"S83.90XA ")
;;6999
;;21,"S83.91XA ")
;;7000
;;21,"S83.92XA ")
;;7001
;;21,"S84.00XA ")
;;7002
;;21,"S84.01XA ")
;;7003
;;21,"S84.02XA ")
;;7004
;;21,"S84.10XA ")
;;7005
;;21,"S84.11XA ")
;;7006
;;21,"S84.12XA ")
;;7007
;;21,"S84.20XA ")
;;7008
;;21,"S84.21XA ")
;;7009
;;21,"S84.22XA ")
;;7010
;;21,"S84.801A ")
;;7011
;;21,"S84.802A ")
;;7012
;;21,"S84.809A ")
;;7013
;;21,"S84.90XA ")
;;7014
;;21,"S84.91XA ")
;;7015
;;21,"S84.92XA ")
;;7016
;;21,"S85.001A ")
;;7017
;;21,"S85.002A ")
;;7018
;;21,"S85.009A ")
;;7019
;;21,"S85.011A ")
;;7020
;;21,"S85.012A ")
;;7021
;;21,"S85.019A ")
;;7022
;;21,"S85.091A ")
;;7023
;;21,"S85.092A ")
;;7024
;;21,"S85.099A ")
;;7025
;;21,"S85.101A ")
;;7026
;;21,"S85.102A ")
;;7027
;;21,"S85.109A ")
;;7028
;;21,"S85.111A ")
;;7029
;;21,"S85.112A ")
;;7030
;;21,"S85.119A ")
;;7031
;;21,"S85.121A ")
;;7032
;;21,"S85.122A ")
;;7033
;;21,"S85.129A ")
;;7034
;;21,"S85.131A ")
;;7035
;;21,"S85.132A ")
;;7036
;;21,"S85.139A ")
;;7037
;;21,"S85.141A ")
;;7038
;;21,"S85.142A ")
;;7039
;;21,"S85.149A ")
;;7040
;;21,"S85.151A ")
;;7041
;;21,"S85.152A ")
;;7042
;;21,"S85.159A ")
;;7043
;;21,"S85.161A ")
;;7044
;;21,"S85.162A ")
;;7045
;;21,"S85.169A ")
;;7046
;;21,"S85.171A ")
;;7047
;;21,"S85.172A ")
;;7048
;;21,"S85.179A ")
;;7049
;;21,"S85.181A ")
;;7050
;;21,"S85.182A ")
;;7051
;;21,"S85.189A ")
;;7052
;;21,"S85.201A ")
;;7053
;;21,"S85.202A ")
;;7054
;;21,"S85.209A ")
;;7055
;;21,"S85.211A ")
;;7056
;;21,"S85.212A ")
;;7057
;;21,"S85.219A ")
;;7058
;;21,"S85.291A ")
;;7059
;;21,"S85.292A ")
;;7060
;;21,"S85.299A ")
;;7061
;;21,"S85.301A ")
;;7062
;;21,"S85.302A ")
;;7063
;;21,"S85.309A ")
;;7064
;;21,"S85.311A ")
;;7065
;;21,"S85.312A ")
;;7066
;;21,"S85.319A ")
;;7067
;;21,"S85.391A ")
;;7068
;;21,"S85.392A ")
;;7069
;;21,"S85.399A ")
;;7070
;;21,"S85.401A ")
;;7071
;;21,"S85.402A ")
;;7072
;;21,"S85.409A ")
;;7073
;;21,"S85.411A ")
;;7074
;;21,"S85.412A ")
;;7075
;;21,"S85.419A ")
;;7076
;;21,"S85.491A ")
;;7077
;;21,"S85.492A ")
;;7078
;;21,"S85.499A ")
;;7079
;;21,"S85.501A ")
;;7080
;;21,"S85.502A ")
;;7081
;;21,"S85.509A ")
;;7082
;;21,"S85.511A ")
;;7083
;;21,"S85.512A ")
;;7084
;;21,"S85.519A ")
;;7085
;;21,"S85.591A ")
;;7086
;;21,"S85.592A ")
;;7087
;;21,"S85.599A ")
;;7088
;;21,"S85.801A ")
;;7089
;;21,"S85.802A ")
;;7090
;;21,"S85.809A ")
;;7091
;;21,"S85.811A ")
;;7092
;;21,"S85.812A ")
;;7093
;;21,"S85.819A ")
;;7094
;;21,"S85.891A ")
;;7095
;;21,"S85.892A ")
;;7096
;;21,"S85.899A ")
;;7097
;;21,"S85.901A ")
;;7098
;;21,"S85.902A ")
;;7099
;;21,"S85.909A ")
;;7100
;;21,"S85.911A ")
;;7101
;;21,"S85.912A ")
;;7102
;;21,"S85.919A ")
;;7103
;;21,"S85.991A ")
;;7104
;;21,"S85.992A ")
;;7105
;;21,"S85.999A ")
;;7106
;;21,"S86.001A ")
;;7107
;;21,"S86.002A ")
;;7108
;;21,"S86.009A ")
;;7109
;;21,"S86.011A ")
;;7110
;;21,"S86.012A ")
;;7111
;;21,"S86.019A ")
;;7112
;;21,"S86.021A ")
;;7113
;;21,"S86.022A ")
;;7114
;;21,"S86.029A ")
;;7115
;;21,"S86.091A ")
;;7116
;;21,"S86.092A ")
;;7117
;;21,"S86.099A ")
;;7118
;;21,"S86.101A ")
;;7119
;;21,"S86.102A ")
;;7120
;;21,"S86.109A ")
;;7121
;;21,"S86.111A ")
;;7122
;;21,"S86.112A ")
;;7123
;;21,"S86.119A ")
;;7124
;;21,"S86.121A ")
;;7125
;;21,"S86.122A ")
;;7126
;;21,"S86.129A ")
;;7127
;;21,"S86.191A ")
;;7128
;;21,"S86.192A ")
;;7129
;;21,"S86.199A ")
;;7130
;;21,"S86.201A ")
;;7131
;;21,"S86.202A ")
;;7132
;;21,"S86.209A ")
;;7133
;;21,"S86.211A ")
;;7134
;;21,"S86.212A ")
;;7135
;;21,"S86.219A ")
;;7136
;;21,"S86.221A ")
;;7137
;;21,"S86.222A ")
;;7138
;;21,"S86.229A ")
;;7139
;;21,"S86.291A ")
;;7140
;;21,"S86.292A ")
;;7141
;;21,"S86.299A ")
;;7142
;;21,"S86.301A ")
;;7143
;;21,"S86.302A ")
;;7144
;;21,"S86.309A ")
;;7145
;;21,"S86.311A ")
;;7146
;;21,"S86.312A ")
;;7147
;;21,"S86.319A ")
;;7148
;;21,"S86.321A ")
;;7149
;;21,"S86.322A ")
;;7150
;;21,"S86.329A ")
;;7151
;;21,"S86.391A ")
;;7152
;;21,"S86.392A ")
;;7153
;;21,"S86.399A ")
;;7154
;;21,"S86.801A ")
;;7155
;;21,"S86.802A ")
;;7156
;;21,"S86.809A ")
;;7157
;;21,"S86.811A ")
;;7158
;;21,"S86.812A ")
;;7159
;;21,"S86.819A ")
;;7160
;;21,"S86.821A ")
;;7161
;;21,"S86.822A ")
;;7162
;;21,"S86.829A ")
;;7163
;;21,"S86.891A ")
;;7164
;;21,"S86.892A ")
;;7165
;;21,"S86.899A ")
;;7166
;;21,"S86.901A ")
;;7167
;;21,"S86.902A ")
;;7168
;;21,"S86.909A ")
;;7169
;;21,"S86.911A ")
;;7170
;;21,"S86.912A ")
;;7171
;;21,"S86.919A ")
;;7172
;;21,"S86.921A ")
;;7173
;;21,"S86.922A ")
;;7174
;;21,"S86.929A ")
;;7175
;;21,"S86.991A ")
;;7176
;;21,"S86.992A ")
;;7177
;;21,"S86.999A ")
;;7178
;;21,"S87.00XA ")
;;7179
;;21,"S87.01XA ")
;;7180
;;21,"S87.02XA ")
;;7181
;;21,"S87.80XA ")
;;7182
;;21,"S87.81XA ")
;;7183
;;21,"S87.82XA ")
;;7184
;;21,"S88.011A ")
;;7185
;;21,"S88.012A ")
;;7186
;;21,"S88.019A ")
;;7187
;;21,"S88.021A ")
;;7188
;;21,"S88.022A ")
;;7189
;;21,"S88.029A ")
;;7190
;;21,"S88.111A ")
;;7191
;;21,"S88.112A ")
;;7192
;;21,"S88.119A ")
;;7193
;;21,"S88.121A ")
;;7194
;;21,"S88.122A ")
;;7195
;;21,"S88.129A ")
;;7196
;;21,"S88.911A ")
;;7197
;;21,"S88.912A ")
;;7198
;;21,"S88.919A ")
;;7199
;;21,"S88.921A ")
;;7200
;;21,"S88.922A ")
;;7201
;;21,"S88.929A ")
;;7202
;;21,"S89.001A ")
;;7203
;;21,"S89.002A ")
;;7204
;;21,"S89.009A ")
;;7205
;;21,"S89.011A ")
;;7206
;;21,"S89.012A ")
;;7207
;;21,"S89.019A ")
;;7208
;;21,"S89.021A ")
;;7209
;;21,"S89.022A ")
;;7210
;;21,"S89.029A ")
;;7211
;;21,"S89.031A ")
;;7212
;;21,"S89.032A ")
;;7213
;;21,"S89.039A ")
;;7214
;;21,"S89.041A ")
;;7215
;;21,"S89.042A ")
;;7216
;;21,"S89.049A ")
;;7217
;;21,"S89.091A ")
;;7218
;;21,"S89.092A ")
;;7219
;;21,"S89.099A ")
;;7220
;;21,"S89.101A ")
;;7221
;;21,"S89.102A ")
;;7222
;;21,"S89.109A ")
;;7223
;;21,"S89.111A ")
;;7224
;;21,"S89.112A ")
;;7225
;;21,"S89.119A ")
;;7226
;;21,"S89.121A ")
;;7227
;;21,"S89.122A ")
;;7228
;;21,"S89.129A ")
;;7229
;;21,"S89.131A ")
;;7230
;;21,"S89.132A ")
;;7231
;;21,"S89.139A ")
;;7232
;;21,"S89.141A ")
;;7233
;;21,"S89.142A ")
;;7234
;;21,"S89.149A ")
;;7235
;;21,"S89.191A ")
;;7236
;;21,"S89.192A ")
;;7237
;;21,"S89.199A ")
;;7238
;;21,"S89.201A ")
;;7239
;;21,"S89.202A ")
;;7240
;;21,"S89.209A ")
;;7241
;;21,"S89.211A ")
;;7242
;;21,"S89.212A ")
;;7243
;;21,"S89.219A ")
;;7244
;;21,"S89.221A ")
;;7245
;;21,"S89.222A ")
;;7246
;;21,"S89.229A ")
;;7247
;;21,"S89.291A ")
;;7248
;;21,"S89.292A ")
;;7249
;;21,"S89.299A ")
;;7250
;;21,"S89.301A ")
;;7251
;;21,"S89.302A ")
;;7252
;;21,"S89.309A ")
;;7253
;;21,"S89.311A ")
;;7254
;;21,"S89.312A ")
;;7255
;;21,"S89.319A ")
;;7256
;;21,"S89.321A ")
;;7257
;;21,"S89.322A ")
;;7258
;;21,"S89.329A ")
;;7259
;;21,"S89.391A ")
;;7260
;;21,"S89.392A ")
;;7261
;;21,"S89.399A ")
;;7262
;;21,"S89.80XA ")
;;7263
;;21,"S89.81XA ")
;;7264
;;21,"S89.82XA ")
;;7265
;;21,"S89.90XA ")
;;7266
;;21,"S89.91XA ")
;;7267
;;21,"S89.92XA ")
;;7268
;;21,"S90.00XA ")
;;7269
;;21,"S90.01XA ")
;;7270
;;21,"S90.02XA ")
;;7271
;;21,"S90.111A ")
;;7272
;;21,"S90.112A ")
;;7273
;;21,"S90.119A ")
;;7274
;;21,"S90.121A ")
;;7275
;;21,"S90.122A ")
;;7276
;;21,"S90.129A ")
;;7277
;;21,"S90.211A ")
;;7278
;;21,"S90.212A ")
;;7279
;;21,"S90.219A ")
;;7280
;;21,"S90.221A ")
;;7281
;;21,"S90.222A ")
;;7282
;;21,"S90.229A ")
;;7283
;;21,"S90.30XA ")
;;7284
;;21,"S90.31XA ")
;;7285
;;21,"S90.32XA ")
;;7286
;;21,"S90.411A ")
;;7287
;;21,"S90.412A ")
;;7288
;;21,"S90.413A ")
;;7289
;;21,"S90.414A ")
;;7290
;;21,"S90.415A ")
;;7291
;;21,"S90.416A ")
;;7292
;;21,"S90.441A ")
;;7293
;;21,"S90.442A ")
;;7294
;;21,"S90.443A ")
;;7295
;;21,"S90.444A ")
;;7296
;;21,"S90.445A ")
;;7297
;;21,"S90.446A ")
;;7298
;;21,"S90.451A ")
;;7299
;;21,"S90.452A ")
;;7300
;;21,"S90.453A ")
;;7301
;;21,"S90.454A ")
;;7302
;;21,"S90.455A ")
;;7303
;;21,"S90.456A ")
;;7304
;;21,"S90.471A ")
;;7305
;;21,"S90.472A ")
;;7306
;;21,"S90.473A ")
;;7307
;;21,"S90.474A ")
;;7308
;;21,"S90.475A ")
;;7309
;;21,"S90.476A ")
;;7310
;;21,"S90.511A ")
;;7311
;;21,"S90.512A ")
;;7312
;;21,"S90.519A ")
;;7313
;;21,"S90.541A ")
;;7314
;;21,"S90.542A ")
;;7315
;;21,"S90.549A ")
;;7316
;;21,"S90.551A ")
;;7317
;;21,"S90.552A ")
;;7318
;;21,"S90.559A ")
;;7319
;;21,"S90.571A ")
;;7320
;;21,"S90.572A ")
;;7321
;;21,"S90.579A ")
;;7322
;;21,"S90.811A ")
;;7323
ATXXA19 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON APR 29, 2014;
+1 ;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48
+2 ;
START ;
+1 IF '$GET(ATXPGMC)
KILL ^TMP("ATX",$JOB)
+2 SET ATXPGMC=$GET(ATXPGMC)+1
+3 FOR ATXI=1:1
SET X=$PIECE($TEXT(TMP+ATXI),";;",2,99)
IF X=""
QUIT
SET X="^TMP(""ATX"",$J,"_X
SET ATXI=ATXI+1
SET Y=$PIECE($TEXT(TMP+ATXI),";;",2,99)
SET @X=Y
+4 QUIT
+5 ;
TMP ;;TAXONOMY (WITH BULLETIN)
+1 ;;21,"S83.201A ")
+2 ;;6940
+3 ;;21,"S83.202A ")
+4 ;;6941
+5 ;;21,"S83.203A ")
+6 ;;6942
+7 ;;21,"S83.204A ")
+8 ;;6943
+9 ;;21,"S83.205A ")
+10 ;;6944
+11 ;;21,"S83.206A ")
+12 ;;6945
+13 ;;21,"S83.207A ")
+14 ;;6946
+15 ;;21,"S83.209A ")
+16 ;;6947
+17 ;;21,"S83.211A ")
+18 ;;6948
+19 ;;21,"S83.212A ")
+20 ;;6949
+21 ;;21,"S83.219A ")
+22 ;;6950
+23 ;;21,"S83.221A ")
+24 ;;6951
+25 ;;21,"S83.222A ")
+26 ;;6952
+27 ;;21,"S83.229A ")
+28 ;;6953
+29 ;;21,"S83.231A ")
+30 ;;6954
+31 ;;21,"S83.232A ")
+32 ;;6955
+33 ;;21,"S83.239A ")
+34 ;;6956
+35 ;;21,"S83.241A ")
+36 ;;6957
+37 ;;21,"S83.242A ")
+38 ;;6958
+39 ;;21,"S83.249A ")
+40 ;;6959
+41 ;;21,"S83.251A ")
+42 ;;6960
+43 ;;21,"S83.252A ")
+44 ;;6961
+45 ;;21,"S83.259A ")
+46 ;;6962
+47 ;;21,"S83.261A ")
+48 ;;6963
+49 ;;21,"S83.262A ")
+50 ;;6964
+51 ;;21,"S83.269A ")
+52 ;;6965
+53 ;;21,"S83.271A ")
+54 ;;6966
+55 ;;21,"S83.272A ")
+56 ;;6967
+57 ;;21,"S83.279A ")
+58 ;;6968
+59 ;;21,"S83.281A ")
+60 ;;6969
+61 ;;21,"S83.282A ")
+62 ;;6970
+63 ;;21,"S83.289A ")
+64 ;;6971
+65 ;;21,"S83.30XA ")
+66 ;;6972
+67 ;;21,"S83.31XA ")
+68 ;;6973
+69 ;;21,"S83.32XA ")
+70 ;;6974
+71 ;;21,"S83.401A ")
+72 ;;6975
+73 ;;21,"S83.402A ")
+74 ;;6976
+75 ;;21,"S83.409A ")
+76 ;;6977
+77 ;;21,"S83.411A ")
+78 ;;6978
+79 ;;21,"S83.412A ")
+80 ;;6979
+81 ;;21,"S83.419A ")
+82 ;;6980
+83 ;;21,"S83.421A ")
+84 ;;6981
+85 ;;21,"S83.422A ")
+86 ;;6982
+87 ;;21,"S83.429A ")
+88 ;;6983
+89 ;;21,"S83.501A ")
+90 ;;6984
+91 ;;21,"S83.502A ")
+92 ;;6985
+93 ;;21,"S83.509A ")
+94 ;;6986
+95 ;;21,"S83.511A ")
+96 ;;6987
+97 ;;21,"S83.512A ")
+98 ;;6988
+99 ;;21,"S83.519A ")
+100 ;;6989
+101 ;;21,"S83.521A ")
+102 ;;6990
+103 ;;21,"S83.522A ")
+104 ;;6991
+105 ;;21,"S83.529A ")
+106 ;;6992
+107 ;;21,"S83.60XA ")
+108 ;;6993
+109 ;;21,"S83.61XA ")
+110 ;;6994
+111 ;;21,"S83.62XA ")
+112 ;;6995
+113 ;;21,"S83.8X1A ")
+114 ;;6996
+115 ;;21,"S83.8X2A ")
+116 ;;6997
+117 ;;21,"S83.8X9A ")
+118 ;;6998
+119 ;;21,"S83.90XA ")
+120 ;;6999
+121 ;;21,"S83.91XA ")
+122 ;;7000
+123 ;;21,"S83.92XA ")
+124 ;;7001
+125 ;;21,"S84.00XA ")
+126 ;;7002
+127 ;;21,"S84.01XA ")
+128 ;;7003
+129 ;;21,"S84.02XA ")
+130 ;;7004
+131 ;;21,"S84.10XA ")
+132 ;;7005
+133 ;;21,"S84.11XA ")
+134 ;;7006
+135 ;;21,"S84.12XA ")
+136 ;;7007
+137 ;;21,"S84.20XA ")
+138 ;;7008
+139 ;;21,"S84.21XA ")
+140 ;;7009
+141 ;;21,"S84.22XA ")
+142 ;;7010
+143 ;;21,"S84.801A ")
+144 ;;7011
+145 ;;21,"S84.802A ")
+146 ;;7012
+147 ;;21,"S84.809A ")
+148 ;;7013
+149 ;;21,"S84.90XA ")
+150 ;;7014
+151 ;;21,"S84.91XA ")
+152 ;;7015
+153 ;;21,"S84.92XA ")
+154 ;;7016
+155 ;;21,"S85.001A ")
+156 ;;7017
+157 ;;21,"S85.002A ")
+158 ;;7018
+159 ;;21,"S85.009A ")
+160 ;;7019
+161 ;;21,"S85.011A ")
+162 ;;7020
+163 ;;21,"S85.012A ")
+164 ;;7021
+165 ;;21,"S85.019A ")
+166 ;;7022
+167 ;;21,"S85.091A ")
+168 ;;7023
+169 ;;21,"S85.092A ")
+170 ;;7024
+171 ;;21,"S85.099A ")
+172 ;;7025
+173 ;;21,"S85.101A ")
+174 ;;7026
+175 ;;21,"S85.102A ")
+176 ;;7027
+177 ;;21,"S85.109A ")
+178 ;;7028
+179 ;;21,"S85.111A ")
+180 ;;7029
+181 ;;21,"S85.112A ")
+182 ;;7030
+183 ;;21,"S85.119A ")
+184 ;;7031
+185 ;;21,"S85.121A ")
+186 ;;7032
+187 ;;21,"S85.122A ")
+188 ;;7033
+189 ;;21,"S85.129A ")
+190 ;;7034
+191 ;;21,"S85.131A ")
+192 ;;7035
+193 ;;21,"S85.132A ")
+194 ;;7036
+195 ;;21,"S85.139A ")
+196 ;;7037
+197 ;;21,"S85.141A ")
+198 ;;7038
+199 ;;21,"S85.142A ")
+200 ;;7039
+201 ;;21,"S85.149A ")
+202 ;;7040
+203 ;;21,"S85.151A ")
+204 ;;7041
+205 ;;21,"S85.152A ")
+206 ;;7042
+207 ;;21,"S85.159A ")
+208 ;;7043
+209 ;;21,"S85.161A ")
+210 ;;7044
+211 ;;21,"S85.162A ")
+212 ;;7045
+213 ;;21,"S85.169A ")
+214 ;;7046
+215 ;;21,"S85.171A ")
+216 ;;7047
+217 ;;21,"S85.172A ")
+218 ;;7048
+219 ;;21,"S85.179A ")
+220 ;;7049
+221 ;;21,"S85.181A ")
+222 ;;7050
+223 ;;21,"S85.182A ")
+224 ;;7051
+225 ;;21,"S85.189A ")
+226 ;;7052
+227 ;;21,"S85.201A ")
+228 ;;7053
+229 ;;21,"S85.202A ")
+230 ;;7054
+231 ;;21,"S85.209A ")
+232 ;;7055
+233 ;;21,"S85.211A ")
+234 ;;7056
+235 ;;21,"S85.212A ")
+236 ;;7057
+237 ;;21,"S85.219A ")
+238 ;;7058
+239 ;;21,"S85.291A ")
+240 ;;7059
+241 ;;21,"S85.292A ")
+242 ;;7060
+243 ;;21,"S85.299A ")
+244 ;;7061
+245 ;;21,"S85.301A ")
+246 ;;7062
+247 ;;21,"S85.302A ")
+248 ;;7063
+249 ;;21,"S85.309A ")
+250 ;;7064
+251 ;;21,"S85.311A ")
+252 ;;7065
+253 ;;21,"S85.312A ")
+254 ;;7066
+255 ;;21,"S85.319A ")
+256 ;;7067
+257 ;;21,"S85.391A ")
+258 ;;7068
+259 ;;21,"S85.392A ")
+260 ;;7069
+261 ;;21,"S85.399A ")
+262 ;;7070
+263 ;;21,"S85.401A ")
+264 ;;7071
+265 ;;21,"S85.402A ")
+266 ;;7072
+267 ;;21,"S85.409A ")
+268 ;;7073
+269 ;;21,"S85.411A ")
+270 ;;7074
+271 ;;21,"S85.412A ")
+272 ;;7075
+273 ;;21,"S85.419A ")
+274 ;;7076
+275 ;;21,"S85.491A ")
+276 ;;7077
+277 ;;21,"S85.492A ")
+278 ;;7078
+279 ;;21,"S85.499A ")
+280 ;;7079
+281 ;;21,"S85.501A ")
+282 ;;7080
+283 ;;21,"S85.502A ")
+284 ;;7081
+285 ;;21,"S85.509A ")
+286 ;;7082
+287 ;;21,"S85.511A ")
+288 ;;7083
+289 ;;21,"S85.512A ")
+290 ;;7084
+291 ;;21,"S85.519A ")
+292 ;;7085
+293 ;;21,"S85.591A ")
+294 ;;7086
+295 ;;21,"S85.592A ")
+296 ;;7087
+297 ;;21,"S85.599A ")
+298 ;;7088
+299 ;;21,"S85.801A ")
+300 ;;7089
+301 ;;21,"S85.802A ")
+302 ;;7090
+303 ;;21,"S85.809A ")
+304 ;;7091
+305 ;;21,"S85.811A ")
+306 ;;7092
+307 ;;21,"S85.812A ")
+308 ;;7093
+309 ;;21,"S85.819A ")
+310 ;;7094
+311 ;;21,"S85.891A ")
+312 ;;7095
+313 ;;21,"S85.892A ")
+314 ;;7096
+315 ;;21,"S85.899A ")
+316 ;;7097
+317 ;;21,"S85.901A ")
+318 ;;7098
+319 ;;21,"S85.902A ")
+320 ;;7099
+321 ;;21,"S85.909A ")
+322 ;;7100
+323 ;;21,"S85.911A ")
+324 ;;7101
+325 ;;21,"S85.912A ")
+326 ;;7102
+327 ;;21,"S85.919A ")
+328 ;;7103
+329 ;;21,"S85.991A ")
+330 ;;7104
+331 ;;21,"S85.992A ")
+332 ;;7105
+333 ;;21,"S85.999A ")
+334 ;;7106
+335 ;;21,"S86.001A ")
+336 ;;7107
+337 ;;21,"S86.002A ")
+338 ;;7108
+339 ;;21,"S86.009A ")
+340 ;;7109
+341 ;;21,"S86.011A ")
+342 ;;7110
+343 ;;21,"S86.012A ")
+344 ;;7111
+345 ;;21,"S86.019A ")
+346 ;;7112
+347 ;;21,"S86.021A ")
+348 ;;7113
+349 ;;21,"S86.022A ")
+350 ;;7114
+351 ;;21,"S86.029A ")
+352 ;;7115
+353 ;;21,"S86.091A ")
+354 ;;7116
+355 ;;21,"S86.092A ")
+356 ;;7117
+357 ;;21,"S86.099A ")
+358 ;;7118
+359 ;;21,"S86.101A ")
+360 ;;7119
+361 ;;21,"S86.102A ")
+362 ;;7120
+363 ;;21,"S86.109A ")
+364 ;;7121
+365 ;;21,"S86.111A ")
+366 ;;7122
+367 ;;21,"S86.112A ")
+368 ;;7123
+369 ;;21,"S86.119A ")
+370 ;;7124
+371 ;;21,"S86.121A ")
+372 ;;7125
+373 ;;21,"S86.122A ")
+374 ;;7126
+375 ;;21,"S86.129A ")
+376 ;;7127
+377 ;;21,"S86.191A ")
+378 ;;7128
+379 ;;21,"S86.192A ")
+380 ;;7129
+381 ;;21,"S86.199A ")
+382 ;;7130
+383 ;;21,"S86.201A ")
+384 ;;7131
+385 ;;21,"S86.202A ")
+386 ;;7132
+387 ;;21,"S86.209A ")
+388 ;;7133
+389 ;;21,"S86.211A ")
+390 ;;7134
+391 ;;21,"S86.212A ")
+392 ;;7135
+393 ;;21,"S86.219A ")
+394 ;;7136
+395 ;;21,"S86.221A ")
+396 ;;7137
+397 ;;21,"S86.222A ")
+398 ;;7138
+399 ;;21,"S86.229A ")
+400 ;;7139
+401 ;;21,"S86.291A ")
+402 ;;7140
+403 ;;21,"S86.292A ")
+404 ;;7141
+405 ;;21,"S86.299A ")
+406 ;;7142
+407 ;;21,"S86.301A ")
+408 ;;7143
+409 ;;21,"S86.302A ")
+410 ;;7144
+411 ;;21,"S86.309A ")
+412 ;;7145
+413 ;;21,"S86.311A ")
+414 ;;7146
+415 ;;21,"S86.312A ")
+416 ;;7147
+417 ;;21,"S86.319A ")
+418 ;;7148
+419 ;;21,"S86.321A ")
+420 ;;7149
+421 ;;21,"S86.322A ")
+422 ;;7150
+423 ;;21,"S86.329A ")
+424 ;;7151
+425 ;;21,"S86.391A ")
+426 ;;7152
+427 ;;21,"S86.392A ")
+428 ;;7153
+429 ;;21,"S86.399A ")
+430 ;;7154
+431 ;;21,"S86.801A ")
+432 ;;7155
+433 ;;21,"S86.802A ")
+434 ;;7156
+435 ;;21,"S86.809A ")
+436 ;;7157
+437 ;;21,"S86.811A ")
+438 ;;7158
+439 ;;21,"S86.812A ")
+440 ;;7159
+441 ;;21,"S86.819A ")
+442 ;;7160
+443 ;;21,"S86.821A ")
+444 ;;7161
+445 ;;21,"S86.822A ")
+446 ;;7162
+447 ;;21,"S86.829A ")
+448 ;;7163
+449 ;;21,"S86.891A ")
+450 ;;7164
+451 ;;21,"S86.892A ")
+452 ;;7165
+453 ;;21,"S86.899A ")
+454 ;;7166
+455 ;;21,"S86.901A ")
+456 ;;7167
+457 ;;21,"S86.902A ")
+458 ;;7168
+459 ;;21,"S86.909A ")
+460 ;;7169
+461 ;;21,"S86.911A ")
+462 ;;7170
+463 ;;21,"S86.912A ")
+464 ;;7171
+465 ;;21,"S86.919A ")
+466 ;;7172
+467 ;;21,"S86.921A ")
+468 ;;7173
+469 ;;21,"S86.922A ")
+470 ;;7174
+471 ;;21,"S86.929A ")
+472 ;;7175
+473 ;;21,"S86.991A ")
+474 ;;7176
+475 ;;21,"S86.992A ")
+476 ;;7177
+477 ;;21,"S86.999A ")
+478 ;;7178
+479 ;;21,"S87.00XA ")
+480 ;;7179
+481 ;;21,"S87.01XA ")
+482 ;;7180
+483 ;;21,"S87.02XA ")
+484 ;;7181
+485 ;;21,"S87.80XA ")
+486 ;;7182
+487 ;;21,"S87.81XA ")
+488 ;;7183
+489 ;;21,"S87.82XA ")
+490 ;;7184
+491 ;;21,"S88.011A ")
+492 ;;7185
+493 ;;21,"S88.012A ")
+494 ;;7186
+495 ;;21,"S88.019A ")
+496 ;;7187
+497 ;;21,"S88.021A ")
+498 ;;7188
+499 ;;21,"S88.022A ")
+500 ;;7189
+501 ;;21,"S88.029A ")
+502 ;;7190
+503 ;;21,"S88.111A ")
+504 ;;7191
+505 ;;21,"S88.112A ")
+506 ;;7192
+507 ;;21,"S88.119A ")
+508 ;;7193
+509 ;;21,"S88.121A ")
+510 ;;7194
+511 ;;21,"S88.122A ")
+512 ;;7195
+513 ;;21,"S88.129A ")
+514 ;;7196
+515 ;;21,"S88.911A ")
+516 ;;7197
+517 ;;21,"S88.912A ")
+518 ;;7198
+519 ;;21,"S88.919A ")
+520 ;;7199
+521 ;;21,"S88.921A ")
+522 ;;7200
+523 ;;21,"S88.922A ")
+524 ;;7201
+525 ;;21,"S88.929A ")
+526 ;;7202
+527 ;;21,"S89.001A ")
+528 ;;7203
+529 ;;21,"S89.002A ")
+530 ;;7204
+531 ;;21,"S89.009A ")
+532 ;;7205
+533 ;;21,"S89.011A ")
+534 ;;7206
+535 ;;21,"S89.012A ")
+536 ;;7207
+537 ;;21,"S89.019A ")
+538 ;;7208
+539 ;;21,"S89.021A ")
+540 ;;7209
+541 ;;21,"S89.022A ")
+542 ;;7210
+543 ;;21,"S89.029A ")
+544 ;;7211
+545 ;;21,"S89.031A ")
+546 ;;7212
+547 ;;21,"S89.032A ")
+548 ;;7213
+549 ;;21,"S89.039A ")
+550 ;;7214
+551 ;;21,"S89.041A ")
+552 ;;7215
+553 ;;21,"S89.042A ")
+554 ;;7216
+555 ;;21,"S89.049A ")
+556 ;;7217
+557 ;;21,"S89.091A ")
+558 ;;7218
+559 ;;21,"S89.092A ")
+560 ;;7219
+561 ;;21,"S89.099A ")
+562 ;;7220
+563 ;;21,"S89.101A ")
+564 ;;7221
+565 ;;21,"S89.102A ")
+566 ;;7222
+567 ;;21,"S89.109A ")
+568 ;;7223
+569 ;;21,"S89.111A ")
+570 ;;7224
+571 ;;21,"S89.112A ")
+572 ;;7225
+573 ;;21,"S89.119A ")
+574 ;;7226
+575 ;;21,"S89.121A ")
+576 ;;7227
+577 ;;21,"S89.122A ")
+578 ;;7228
+579 ;;21,"S89.129A ")
+580 ;;7229
+581 ;;21,"S89.131A ")
+582 ;;7230
+583 ;;21,"S89.132A ")
+584 ;;7231
+585 ;;21,"S89.139A ")
+586 ;;7232
+587 ;;21,"S89.141A ")
+588 ;;7233
+589 ;;21,"S89.142A ")
+590 ;;7234
+591 ;;21,"S89.149A ")
+592 ;;7235
+593 ;;21,"S89.191A ")
+594 ;;7236
+595 ;;21,"S89.192A ")
+596 ;;7237
+597 ;;21,"S89.199A ")
+598 ;;7238
+599 ;;21,"S89.201A ")
+600 ;;7239
+601 ;;21,"S89.202A ")
+602 ;;7240
+603 ;;21,"S89.209A ")
+604 ;;7241
+605 ;;21,"S89.211A ")
+606 ;;7242
+607 ;;21,"S89.212A ")
+608 ;;7243
+609 ;;21,"S89.219A ")
+610 ;;7244
+611 ;;21,"S89.221A ")
+612 ;;7245
+613 ;;21,"S89.222A ")
+614 ;;7246
+615 ;;21,"S89.229A ")
+616 ;;7247
+617 ;;21,"S89.291A ")
+618 ;;7248
+619 ;;21,"S89.292A ")
+620 ;;7249
+621 ;;21,"S89.299A ")
+622 ;;7250
+623 ;;21,"S89.301A ")
+624 ;;7251
+625 ;;21,"S89.302A ")
+626 ;;7252
+627 ;;21,"S89.309A ")
+628 ;;7253
+629 ;;21,"S89.311A ")
+630 ;;7254
+631 ;;21,"S89.312A ")
+632 ;;7255
+633 ;;21,"S89.319A ")
+634 ;;7256
+635 ;;21,"S89.321A ")
+636 ;;7257
+637 ;;21,"S89.322A ")
+638 ;;7258
+639 ;;21,"S89.329A ")
+640 ;;7259
+641 ;;21,"S89.391A ")
+642 ;;7260
+643 ;;21,"S89.392A ")
+644 ;;7261
+645 ;;21,"S89.399A ")
+646 ;;7262
+647 ;;21,"S89.80XA ")
+648 ;;7263
+649 ;;21,"S89.81XA ")
+650 ;;7264
+651 ;;21,"S89.82XA ")
+652 ;;7265
+653 ;;21,"S89.90XA ")
+654 ;;7266
+655 ;;21,"S89.91XA ")
+656 ;;7267
+657 ;;21,"S89.92XA ")
+658 ;;7268
+659 ;;21,"S90.00XA ")
+660 ;;7269
+661 ;;21,"S90.01XA ")
+662 ;;7270
+663 ;;21,"S90.02XA ")
+664 ;;7271
+665 ;;21,"S90.111A ")
+666 ;;7272
+667 ;;21,"S90.112A ")
+668 ;;7273
+669 ;;21,"S90.119A ")
+670 ;;7274
+671 ;;21,"S90.121A ")
+672 ;;7275
+673 ;;21,"S90.122A ")
+674 ;;7276
+675 ;;21,"S90.129A ")
+676 ;;7277
+677 ;;21,"S90.211A ")
+678 ;;7278
+679 ;;21,"S90.212A ")
+680 ;;7279
+681 ;;21,"S90.219A ")
+682 ;;7280
+683 ;;21,"S90.221A ")
+684 ;;7281
+685 ;;21,"S90.222A ")
+686 ;;7282
+687 ;;21,"S90.229A ")
+688 ;;7283
+689 ;;21,"S90.30XA ")
+690 ;;7284
+691 ;;21,"S90.31XA ")
+692 ;;7285
+693 ;;21,"S90.32XA ")
+694 ;;7286
+695 ;;21,"S90.411A ")
+696 ;;7287
+697 ;;21,"S90.412A ")
+698 ;;7288
+699 ;;21,"S90.413A ")
+700 ;;7289
+701 ;;21,"S90.414A ")
+702 ;;7290
+703 ;;21,"S90.415A ")
+704 ;;7291
+705 ;;21,"S90.416A ")
+706 ;;7292
+707 ;;21,"S90.441A ")
+708 ;;7293
+709 ;;21,"S90.442A ")
+710 ;;7294
+711 ;;21,"S90.443A ")
+712 ;;7295
+713 ;;21,"S90.444A ")
+714 ;;7296
+715 ;;21,"S90.445A ")
+716 ;;7297
+717 ;;21,"S90.446A ")
+718 ;;7298
+719 ;;21,"S90.451A ")
+720 ;;7299
+721 ;;21,"S90.452A ")
+722 ;;7300
+723 ;;21,"S90.453A ")
+724 ;;7301
+725 ;;21,"S90.454A ")
+726 ;;7302
+727 ;;21,"S90.455A ")
+728 ;;7303
+729 ;;21,"S90.456A ")
+730 ;;7304
+731 ;;21,"S90.471A ")
+732 ;;7305
+733 ;;21,"S90.472A ")
+734 ;;7306
+735 ;;21,"S90.473A ")
+736 ;;7307
+737 ;;21,"S90.474A ")
+738 ;;7308
+739 ;;21,"S90.475A ")
+740 ;;7309
+741 ;;21,"S90.476A ")
+742 ;;7310
+743 ;;21,"S90.511A ")
+744 ;;7311
+745 ;;21,"S90.512A ")
+746 ;;7312
+747 ;;21,"S90.519A ")
+748 ;;7313
+749 ;;21,"S90.541A ")
+750 ;;7314
+751 ;;21,"S90.542A ")
+752 ;;7315
+753 ;;21,"S90.549A ")
+754 ;;7316
+755 ;;21,"S90.551A ")
+756 ;;7317
+757 ;;21,"S90.552A ")
+758 ;;7318
+759 ;;21,"S90.559A ")
+760 ;;7319
+761 ;;21,"S90.571A ")
+762 ;;7320
+763 ;;21,"S90.572A ")
+764 ;;7321
+765 ;;21,"S90.579A ")
+766 ;;7322
+767 ;;21,"S90.811A ")
+768 ;;7323
