BGP71N4 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 30, 2016 ;
+1 ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
+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,"52959-0348-15 ")
+2 ;;1041
+3 ;;21,"52959-0348-20 ")
+4 ;;1042
+5 ;;21,"52959-0348-30 ")
+6 ;;1043
+7 ;;21,"52959-0348-50 ")
+8 ;;1044
+9 ;;21,"52959-0348-60 ")
+10 ;;1045
+11 ;;21,"52959-0348-90 ")
+12 ;;1046
+13 ;;21,"52959-0362-10 ")
+14 ;;912
+15 ;;21,"52959-0362-15 ")
+16 ;;913
+17 ;;21,"52959-0362-20 ")
+18 ;;914
+19 ;;21,"52959-0362-30 ")
+20 ;;915
+21 ;;21,"52959-0362-60 ")
+22 ;;916
+23 ;;21,"52959-0363-10 ")
+24 ;;930
+25 ;;21,"52959-0363-15 ")
+26 ;;931
+27 ;;21,"52959-0363-20 ")
+28 ;;932
+29 ;;21,"52959-0363-21 ")
+30 ;;933
+31 ;;21,"52959-0363-25 ")
+32 ;;934
+33 ;;21,"52959-0363-30 ")
+34 ;;949
+35 ;;21,"52959-0363-60 ")
+36 ;;950
+37 ;;21,"52959-0370-00 ")
+38 ;;1059
+39 ;;21,"52959-0370-02 ")
+40 ;;1060
+41 ;;21,"52959-0370-12 ")
+42 ;;1061
+43 ;;21,"52959-0370-20 ")
+44 ;;1062
+45 ;;21,"52959-0370-25 ")
+46 ;;1063
+47 ;;21,"52959-0370-30 ")
+48 ;;1064
+49 ;;21,"52959-0370-50 ")
+50 ;;1065
+51 ;;21,"52959-0370-60 ")
+52 ;;1066
+53 ;;21,"52959-0370-90 ")
+54 ;;1067
+55 ;;21,"52959-0514-00 ")
+56 ;;1068
+57 ;;21,"52959-0514-01 ")
+58 ;;1069
+59 ;;21,"52959-0514-10 ")
+60 ;;1070
+61 ;;21,"52959-0514-20 ")
+62 ;;1071
+63 ;;21,"52959-0514-21 ")
+64 ;;1072
+65 ;;21,"52959-0514-30 ")
+66 ;;1073
+67 ;;21,"52959-0514-60 ")
+68 ;;1074
+69 ;;21,"52959-0514-90 ")
+70 ;;1075
+71 ;;21,"52959-0537-30 ")
+72 ;;1076
+73 ;;21,"52959-0537-90 ")
+74 ;;1077
+75 ;;21,"52959-0541-10 ")
+76 ;;1078
+77 ;;21,"52959-0541-20 ")
+78 ;;1079
+79 ;;21,"52959-0541-30 ")
+80 ;;1080
+81 ;;21,"52959-0541-60 ")
+82 ;;1081
+83 ;;21,"52959-0542-14 ")
+84 ;;1082
+85 ;;21,"52959-0542-15 ")
+86 ;;1083
+87 ;;21,"52959-0542-21 ")
+88 ;;1084
+89 ;;21,"52959-0542-28 ")
+90 ;;1085
+91 ;;21,"52959-0542-30 ")
+92 ;;1086
+93 ;;21,"52959-0542-40 ")
+94 ;;1087
+95 ;;21,"52959-0542-42 ")
+96 ;;1088
+97 ;;21,"52959-0662-30 ")
+98 ;;1089
+99 ;;21,"52959-0727-00 ")
+100 ;;951
+101 ;;21,"52959-0727-10 ")
+102 ;;952
+103 ;;21,"52959-0727-30 ")
+104 ;;971
+105 ;;21,"52959-0767-30 ")
+106 ;;1093
+107 ;;21,"52959-0767-60 ")
+108 ;;1094
+109 ;;21,"52959-0791-30 ")
+110 ;;1095
+111 ;;21,"52959-0852-00 ")
+112 ;;972
+113 ;;21,"52959-0852-10 ")
+114 ;;973
+115 ;;21,"52959-0852-12 ")
+116 ;;974
+117 ;;21,"52959-0852-30 ")
+118 ;;1047
+119 ;;21,"52959-0852-60 ")
+120 ;;1048
+121 ;;21,"52959-0865-00 ")
+122 ;;1101
+123 ;;21,"52959-0865-30 ")
+124 ;;1102
+125 ;;21,"52959-0870-30 ")
+126 ;;1049
+127 ;;21,"52959-0879-02 ")
+128 ;;1050
+129 ;;21,"52959-0879-10 ")
+130 ;;1051
+131 ;;21,"52959-0879-14 ")
+132 ;;1052
+133 ;;21,"52959-0879-15 ")
+134 ;;1053
+135 ;;21,"52959-0879-20 ")
+136 ;;1054
+137 ;;21,"52959-0879-28 ")
+138 ;;1055
+139 ;;21,"52959-0879-30 ")
+140 ;;1056
+141 ;;21,"52959-0879-42 ")
+142 ;;1057
+143 ;;21,"52959-0879-60 ")
+144 ;;1058
+145 ;;21,"52959-0879-90 ")
+146 ;;1090
+147 ;;21,"52959-0880-00 ")
+148 ;;1091
+149 ;;21,"52959-0880-02 ")
+150 ;;1092
+151 ;;21,"52959-0880-10 ")
+152 ;;1096
+153 ;;21,"52959-0880-14 ")
+154 ;;1097
+155 ;;21,"52959-0880-15 ")
+156 ;;1098
+157 ;;21,"52959-0880-20 ")
+158 ;;1099
+159 ;;21,"52959-0880-28 ")
+160 ;;1100
+161 ;;21,"52959-0880-30 ")
+162 ;;1103
+163 ;;21,"52959-0880-45 ")
+164 ;;1104
+165 ;;21,"52959-0880-60 ")
+166 ;;1105
+167 ;;21,"52959-0880-90 ")
+168 ;;1106
+169 ;;21,"52959-0881-30 ")
+170 ;;1107
+171 ;;21,"52959-0900-30 ")
+172 ;;1126
+173 ;;21,"52959-0912-60 ")
+174 ;;1127
+175 ;;21,"52959-0913-02 ")
+176 ;;1128
+177 ;;21,"52959-0913-30 ")
+178 ;;1129
+179 ;;21,"52959-0913-90 ")
+180 ;;1130
+181 ;;21,"52959-0919-00 ")
+182 ;;1108
+183 ;;21,"52959-0919-30 ")
+184 ;;1109
+185 ;;21,"52959-0919-60 ")
+186 ;;1110
+187 ;;21,"52959-0957-30 ")
+188 ;;1111
+189 ;;21,"52959-0971-30 ")
+190 ;;1112
+191 ;;21,"53002-0339-00 ")
+192 ;;1136
+193 ;;21,"53002-0339-30 ")
+194 ;;1137
+195 ;;21,"53002-0339-60 ")
+196 ;;1138
+197 ;;21,"53002-0491-00 ")
+198 ;;1139
+199 ;;21,"53002-0491-30 ")
+200 ;;1140
+201 ;;21,"53002-0491-60 ")
+202 ;;1141
+203 ;;21,"53002-0502-05 ")
+204 ;;1113
+205 ;;21,"53002-0502-10 ")
+206 ;;1114
+207 ;;21,"53002-0502-20 ")
+208 ;;1115
+209 ;;21,"53002-0502-30 ")
+210 ;;1116
+211 ;;21,"53002-1292-01 ")
+212 ;;1117
+213 ;;21,"53002-1292-02 ")
+214 ;;1118
+215 ;;21,"53002-1292-03 ")
+216 ;;1119
+217 ;;21,"53002-1594-01 ")
+218 ;;1120
+219 ;;21,"53217-0070-20 ")
+220 ;;1150
+221 ;;21,"53217-0070-30 ")
+222 ;;1151
+223 ;;21,"53217-0070-60 ")
+224 ;;1152
+225 ;;21,"53217-0075-30 ")
+226 ;;1153
+227 ;;21,"53217-0075-60 ")
+228 ;;1154
+229 ;;21,"53217-0125-02 ")
+230 ;;1155
+231 ;;21,"53217-0125-28 ")
+232 ;;1156
+233 ;;21,"53217-0125-30 ")
+234 ;;1157
+235 ;;21,"53217-0125-40 ")
+236 ;;1158
+237 ;;21,"53217-0125-56 ")
+238 ;;1159
+239 ;;21,"53217-0125-60 ")
+240 ;;1160
+241 ;;21,"53217-0125-84 ")
+242 ;;1161
+243 ;;21,"53217-0125-90 ")
+244 ;;1162
+245 ;;21,"53217-0149-30 ")
+246 ;;1121
+247 ;;21,"53217-0149-60 ")
+248 ;;1122
+249 ;;21,"53217-0150-30 ")
+250 ;;1123
+251 ;;21,"53217-0150-60 ")
+252 ;;1124
+253 ;;21,"53217-0151-30 ")
+254 ;;1125
+255 ;;21,"53217-0151-60 ")
+256 ;;1131
+257 ;;21,"53489-0148-01 ")
+258 ;;1169
+259 ;;21,"53489-0148-10 ")
+260 ;;1170
+261 ;;21,"53489-0149-01 ")
+262 ;;1171
+263 ;;21,"53489-0149-10 ")
+264 ;;1172
+265 ;;21,"53489-0150-01 ")
+266 ;;1173
+267 ;;21,"53489-0150-10 ")
+268 ;;1174
+269 ;;21,"53489-0281-01 ")
+270 ;;1175
+271 ;;21,"53489-0330-01 ")
+272 ;;1176
+273 ;;21,"53489-0331-01 ")
+274 ;;1177
+275 ;;21,"53489-0332-01 ")
+276 ;;1178
+277 ;;21,"53489-0500-01 ")
+278 ;;1179
+279 ;;21,"54348-0507-30 ")
+280 ;;1180
+281 ;;21,"54348-0987-16 ")
+282 ;;1181
+283 ;;21,"54569-0172-00 ")
+284 ;;1182
+285 ;;21,"54569-0172-01 ")
+286 ;;1183
+287 ;;21,"54569-0172-04 ")
+288 ;;1184
+289 ;;21,"54569-0172-06 ")
+290 ;;1185
+291 ;;21,"54569-0172-07 ")
+292 ;;1186
+293 ;;21,"54569-0172-08 ")
+294 ;;1187
+295 ;;21,"54569-0175-00 ")
+296 ;;1188
+297 ;;21,"54569-0175-01 ")
+298 ;;1189
+299 ;;21,"54569-0175-02 ")
+300 ;;1190
+301 ;;21,"54569-0175-04 ")
+302 ;;1191
+303 ;;21,"54569-0175-08 ")
+304 ;;1192
+305 ;;21,"54569-0194-00 ")
+306 ;;1193
+307 ;;21,"54569-0337-02 ")
+308 ;;1194
+309 ;;21,"54569-0339-04 ")
+310 ;;1195
+311 ;;21,"54569-1519-00 ")
+312 ;;1196
+313 ;;21,"54569-1519-01 ")
+314 ;;1197
+315 ;;21,"54569-1519-02 ")
+316 ;;1198
+317 ;;21,"54569-1519-05 ")
+318 ;;1199
+319 ;;21,"54569-1696-01 ")
+320 ;;1200
+321 ;;21,"54569-2146-01 ")
+322 ;;1201
+323 ;;21,"54569-2146-02 ")
+324 ;;1202
+325 ;;21,"54569-2146-03 ")
+326 ;;1203
+327 ;;21,"54569-2538-00 ")
+328 ;;1204
+329 ;;21,"54569-2538-03 ")
+330 ;;1205
+331 ;;21,"54569-2538-05 ")
+332 ;;1206
+333 ;;21,"54569-3827-03 ")
+334 ;;1132
+335 ;;21,"54569-3828-01 ")
+336 ;;1133
+337 ;;21,"54569-4837-00 ")
+338 ;;1134
+339 ;;21,"54569-5684-00 ")
+340 ;;1135
+341 ;;21,"54569-5696-00 ")
+342 ;;1142
+343 ;;21,"54569-5760-00 ")
+344 ;;1143
+345 ;;21,"54569-5760-01 ")
+346 ;;1144
+347 ;;21,"54569-5906-00 ")
+348 ;;1145
+349 ;;21,"54569-5906-01 ")
+350 ;;1146
+351 ;;21,"54569-5906-02 ")
+352 ;;1147
+353 ;;21,"54569-5906-03 ")
+354 ;;1148
+355 ;;21,"54569-5906-04 ")
+356 ;;1149
+357 ;;21,"54569-5907-00 ")
+358 ;;1163
+359 ;;21,"54569-5907-01 ")
+360 ;;1164
+361 ;;21,"54569-6118-00 ")
+362 ;;1165
+363 ;;21,"54569-6118-01 ")
+364 ;;1166
+365 ;;21,"54569-6231-00 ")
+366 ;;1167
+367 ;;21,"54569-6231-01 ")
+368 ;;1168
+369 ;;21,"54569-6378-00 ")
+370 ;;1207
+371 ;;21,"54569-6543-00 ")
+372 ;;1208
+373 ;;21,"54569-6544-00 ")
+374 ;;1209
+375 ;;21,"54569-6554-00 ")
+376 ;;1228
+377 ;;21,"54569-6609-00 ")
+378 ;;1210
+379 ;;21,"54569-8372-00 ")
+380 ;;1230
+381 ;;21,"54569-8804-00 ")
+382 ;;1211
+383 ;;21,"54738-0912-01 ")
+384 ;;1232
+385 ;;21,"54738-0913-01 ")
+386 ;;1233
+387 ;;21,"54738-0914-01 ")
+388 ;;1234
+389 ;;21,"54838-0512-40 ")
+390 ;;1235
+391 ;;21,"54868-0031-00 ")
+392 ;;1236
+393 ;;21,"54868-0031-02 ")
+394 ;;1237
+395 ;;21,"54868-0031-04 ")
+396 ;;1238
+397 ;;21,"54868-0062-00 ")
+398 ;;1239
+399 ;;21,"54868-0062-02 ")
+400 ;;1240
+401 ;;21,"54868-0062-04 ")
+402 ;;1241
+403 ;;21,"54868-0064-02 ")
+404 ;;1242
+405 ;;21,"54868-0064-05 ")
+406 ;;1243
+407 ;;21,"54868-0064-06 ")
+408 ;;1244
+409 ;;21,"54868-0064-07 ")
+410 ;;1245
+411 ;;21,"54868-0065-00 ")
+412 ;;1246
+413 ;;21,"54868-0065-02 ")
+414 ;;1247
+415 ;;21,"54868-0065-03 ")
+416 ;;1248
+417 ;;21,"54868-0065-04 ")
+418 ;;1249
+419 ;;21,"54868-0065-05 ")
+420 ;;1250
+421 ;;21,"54868-0065-08 ")
+422 ;;1251
+423 ;;21,"54868-0066-02 ")
+424 ;;1252
+425 ;;21,"54868-0066-05 ")
+426 ;;1253
+427 ;;21,"54868-0066-06 ")
+428 ;;1254
+429 ;;21,"54868-0066-07 ")
+430 ;;1255
+431 ;;21,"54868-0845-00 ")
+432 ;;1212
+433 ;;21,"54868-0845-01 ")
+434 ;;1213
+435 ;;21,"54868-0845-02 ")
+436 ;;1214
+437 ;;21,"54868-0845-03 ")
+438 ;;1215
+439 ;;21,"54868-0846-00 ")
+440 ;;1216
+441 ;;21,"54868-0846-01 ")
+442 ;;1217
+443 ;;21,"54868-0846-02 ")
+444 ;;1218
+445 ;;21,"54868-0846-03 ")
+446 ;;1219
+447 ;;21,"54868-0846-04 ")
+448 ;;1220
+449 ;;21,"54868-0846-05 ")
+450 ;;1221
+451 ;;21,"54868-0846-06 ")
+452 ;;1222
+453 ;;21,"54868-0899-00 ")
+454 ;;1267
+455 ;;21,"54868-0899-01 ")
+456 ;;1268
+457 ;;21,"54868-1036-00 ")
+458 ;;1269
+459 ;;21,"54868-1036-01 ")
+460 ;;1270
+461 ;;21,"54868-1036-02 ")
+462 ;;1271
+463 ;;21,"54868-1036-03 ")
+464 ;;1272
+465 ;;21,"54868-1036-04 ")
+466 ;;1273
+467 ;;21,"54868-1036-05 ")
+468 ;;1274
+469 ;;21,"54868-1036-06 ")
+470 ;;1275
+471 ;;21,"54868-1036-07 ")
+472 ;;1276
+473 ;;21,"54868-1036-08 ")
+474 ;;1277
+475 ;;21,"54868-1037-01 ")
+476 ;;1278
+477 ;;21,"54868-1037-03 ")
+478 ;;1279
+479 ;;21,"54868-1037-04 ")
+480 ;;1280
+481 ;;21,"54868-1037-05 ")
+482 ;;1281
+483 ;;21,"54868-1219-01 ")
+484 ;;1282
+485 ;;21,"54868-1219-02 ")
+486 ;;1283
+487 ;;21,"54868-1219-03 ")
+488 ;;1284
+489 ;;21,"54868-1219-04 ")
+490 ;;1285
+491 ;;21,"54868-1237-01 ")
+492 ;;1286
+493 ;;21,"54868-1254-00 ")
+494 ;;1287
+495 ;;21,"54868-1344-00 ")
+496 ;;1288
+497 ;;21,"54868-1344-02 ")
+498 ;;1289
+499 ;;21,"54868-1344-03 ")
+500 ;;1290
+501 ;;21,"54868-1344-04 ")
+502 ;;1291
+503 ;;21,"54868-1447-00 ")
+504 ;;1292
+505 ;;21,"54868-1698-02 ")
+506 ;;1293
+507 ;;21,"54868-1698-03 ")
+508 ;;1294
+509 ;;21,"54868-1964-02 ")
+510 ;;1295
+511 ;;21,"54868-1964-03 ")
+512 ;;1296
+513 ;;21,"54868-2221-00 ")
+514 ;;1297
+515 ;;21,"54868-2221-01 ")
+516 ;;1298
+517 ;;21,"54868-2221-03 ")
+518 ;;1299
+519 ;;21,"54868-2221-04 ")
+520 ;;1300
+521 ;;21,"54868-2221-05 ")
+522 ;;1301
+523 ;;21,"54868-2284-02 ")
+524 ;;1302
+525 ;;21,"54868-2284-06 ")
+526 ;;1303
+527 ;;21,"54868-2317-00 ")
+528 ;;1304
+529 ;;21,"54868-2317-02 ")
+530 ;;1305
+531 ;;21,"54868-2317-03 ")
+532 ;;1306
+533 ;;21,"54868-2317-04 ")
+534 ;;1307
+535 ;;21,"54868-2357-00 ")
+536 ;;1308
+537 ;;21,"54868-2357-02 ")
+538 ;;1309
+539 ;;21,"54868-2357-03 ")
+540 ;;1310
+541 ;;21,"54868-2433-00 ")
+542 ;;1311
+543 ;;21,"54868-2433-02 ")
+544 ;;1312
+545 ;;21,"54868-2434-00 ")
+546 ;;1313
+547 ;;21,"54868-2434-02 ")
+548 ;;1314
+549 ;;21,"54868-2552-00 ")
+550 ;;1315
+551 ;;21,"54868-2571-00 ")
+552 ;;1316
+553 ;;21,"54868-2571-01 ")
+554 ;;1317
+555 ;;21,"54868-2642-00 ")
+556 ;;1223
+557 ;;21,"54868-2642-01 ")
+558 ;;1224
+559 ;;21,"54868-2642-02 ")
+560 ;;1225
+561 ;;21,"54868-2642-03 ")
+562 ;;1226
+563 ;;21,"54868-2642-04 ")
+564 ;;1227
+565 ;;21,"54868-2643-00 ")
+566 ;;1229
+567 ;;21,"54868-2643-01 ")
+568 ;;1231
+569 ;;21,"54868-2643-02 ")
+570 ;;1256
+571 ;;21,"54868-2643-04 ")
+572 ;;1257
+573 ;;21,"54868-2643-05 ")
+574 ;;1258
+575 ;;21,"54868-2643-06 ")
+576 ;;1259
+577 ;;21,"54868-2643-07 ")
+578 ;;1260
+579 ;;21,"54868-2643-08 ")
+580 ;;1261
+581 ;;21,"54868-3317-00 ")
+582 ;;1331
+583 ;;21,"54868-3381-00 ")
+584 ;;1332
+585 ;;21,"54868-3533-00 ")
+586 ;;1333
+587 ;;21,"54868-3533-01 ")
+588 ;;1334
+589 ;;21,"54868-3927-00 ")
+590 ;;1335
+591 ;;21,"54868-4023-00 ")
+592 ;;1336
+593 ;;21,"54868-4023-01 ")
+594 ;;1337
+595 ;;21,"54868-4431-00 ")
+596 ;;1262
+597 ;;21,"54868-4431-01 ")
+598 ;;1263
+599 ;;21,"54868-4431-02 ")
+600 ;;1264
+601 ;;21,"54868-4431-03 ")
+602 ;;1265
+603 ;;21,"54868-5139-00 ")
+604 ;;1266
+605 ;;21,"54868-5139-01 ")
+606 ;;1318
+607 ;;21,"54868-5162-00 ")
+608 ;;1344
+609 ;;21,"54868-5162-01 ")
+610 ;;1345
+611 ;;21,"54868-5162-02 ")
+612 ;;1346
+613 ;;21,"54868-5162-03 ")
+614 ;;1347
+615 ;;21,"54868-5273-00 ")
+616 ;;1319
+617 ;;21,"54868-5273-01 ")
+618 ;;1320
+619 ;;21,"54868-5273-02 ")
+620 ;;1321
+621 ;;21,"54868-5394-00 ")
+622 ;;1322
+623 ;;21,"54868-5394-01 ")
+624 ;;1323
+625 ;;21,"54868-5394-02 ")
+626 ;;1324
+627 ;;21,"54868-5394-03 ")
+628 ;;1325
+629 ;;21,"54868-5426-00 ")
+630 ;;1326
+631 ;;21,"54868-5426-01 ")
+632 ;;1327
+633 ;;21,"54868-5426-02 ")
+634 ;;1328
+635 ;;21,"54868-5426-03 ")
+636 ;;1329
+637 ;;21,"54868-5426-04 ")
+638 ;;1330
+639 ;;21,"54868-5439-00 ")
+640 ;;1338
+641 ;;21,"54868-5439-01 ")
+642 ;;1339
+643 ;;21,"54868-5461-00 ")
+644 ;;1340
+645 ;;21,"54868-5461-01 ")
+646 ;;1341
+647 ;;21,"54868-5461-02 ")
+648 ;;1342
+649 ;;21,"54868-5766-00 ")
+650 ;;1365
+651 ;;21,"54868-5908-00 ")
+652 ;;1343
+653 ;;21,"54868-5908-01 ")
+654 ;;1348
+655 ;;21,"54868-5909-00 ")
+656 ;;1349
+657 ;;21,"54868-5909-01 ")
+658 ;;1350
+659 ;;21,"54868-6189-00 ")
+660 ;;1351
+661 ;;21,"54868-6189-01 ")
+662 ;;1352
+663 ;;21,"54868-6215-00 ")
+664 ;;1353
+665 ;;21,"54868-6215-01 ")
+666 ;;1354
+667 ;;21,"54868-6215-02 ")
+668 ;;1355