Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BGPM5BAT

BGPM5BAT.m

Go to the documentation of this file.
BGPM5BAT ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON SEP 12, 2011;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
 ;
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,"43353041930 ")
 ;;1243
 ;;21,"43353041945 ")
 ;;1244
 ;;21,"43353041953 ")
 ;;1245
 ;;21,"43353041960 ")
 ;;1246
 ;;21,"43353041973 ")
 ;;1247
 ;;21,"43353041980 ")
 ;;1248
 ;;21,"43353042130 ")
 ;;1249
 ;;21,"43353042184 ")
 ;;1250
 ;;21,"43353042915 ")
 ;;1251
 ;;21,"43353043530 ")
 ;;1252
 ;;21,"43353043830 ")
 ;;1253
 ;;21,"43353043832 ")
 ;;1254
 ;;21,"43353044153 ")
 ;;1255
 ;;21,"43353044715 ")
 ;;1256
 ;;21,"43353044730 ")
 ;;1257
 ;;21,"43353044745 ")
 ;;1258
 ;;21,"43353044753 ")
 ;;1259
 ;;21,"43353053515 ")
 ;;1260
 ;;21,"43353053560 ")
 ;;1261
 ;;21,"43353053615 ")
 ;;1262
 ;;21,"43353053645 ")
 ;;1263
 ;;21,"43353053653 ")
 ;;1264
 ;;21,"43353054415 ")
 ;;1265
 ;;21,"43353055415 ")
 ;;1266
 ;;21,"43353057315 ")
 ;;1267
 ;;21,"43353057330 ")
 ;;1268
 ;;21,"43353057345 ")
 ;;1269
 ;;21,"43353057360 ")
 ;;1270
 ;;21,"43353060315 ")
 ;;1271
 ;;21,"43353061430 ")
 ;;1272
 ;;21,"43353063730 ")
 ;;1273
 ;;21,"43353064215 ")
 ;;1274
 ;;21,"43353064245 ")
 ;;1275
 ;;21,"43353065215 ")
 ;;1276
 ;;21,"43353065230 ")
 ;;1277
 ;;21,"43353065245 ")
 ;;1278
 ;;21,"43353065253 ")
 ;;1279
 ;;21,"43353065260 ")
 ;;1280
 ;;21,"43353065270 ")
 ;;1281
 ;;21,"43353065330 ")
 ;;1282
 ;;21,"43353065360 ")
 ;;1283
 ;;21,"43353065380 ")
 ;;1284
 ;;21,"43353068953 ")
 ;;1285
 ;;21,"43353069030 ")
 ;;1286
 ;;21,"43353069053 ")
 ;;1287
 ;;21,"43353069060 ")
 ;;1288
 ;;21,"43353069084 ")
 ;;1289
 ;;21,"43353071315 ")
 ;;1290
 ;;21,"43386036021 ")
 ;;1291
 ;;21,"43683015330 ")
 ;;1292
 ;;21,"43806003140 ")
 ;;1293
 ;;21,"43806003170 ")
 ;;1294
 ;;21,"43806003240 ")
 ;;1295
 ;;21,"43806003270 ")
 ;;1296
 ;;21,"43806003340 ")
 ;;1297
 ;;21,"43806004240 ")
 ;;1298
 ;;21,"43806004241 ")
 ;;1299
 ;;21,"43806004280 ")
 ;;1300
 ;;21,"43806004340 ")
 ;;1301
 ;;21,"43806004370 ")
 ;;1302
 ;;21,"43806004380 ")
 ;;1303
 ;;21,"43806017935 ")
 ;;1304
 ;;21,"43806017940 ")
 ;;1305
 ;;21,"43806017941 ")
 ;;1306
 ;;21,"43806017970 ")
 ;;1307
 ;;21,"43806017980 ")
 ;;1308
 ;;21,"43806019827 ")
 ;;1309
 ;;21,"43806019840 ")
 ;;1310
 ;;21,"43806019841 ")
 ;;1311
 ;;21,"43806019870 ")
 ;;1312
 ;;21,"43806035640 ")
 ;;1313
 ;;21,"43806035641 ")
 ;;1314
 ;;21,"43806035670 ")
 ;;1315
 ;;21,"43806035680 ")
 ;;1316
 ;;21,"43806040627 ")
 ;;1317
 ;;21,"43806040641 ")
 ;;1318
 ;;21,"43806040727 ")
 ;;1319
 ;;21,"43806040741 ")
 ;;1320
 ;;21,"43806040827 ")
 ;;1321
 ;;21,"43806040841 ")
 ;;1322
 ;;21,"43806063740 ")
 ;;1323
 ;;21,"43806063780 ")
 ;;1324
 ;;21,"43806063840 ")
 ;;1325
 ;;21,"43806063880 ")
 ;;1326
 ;;21,"43806064800 ")
 ;;1327
 ;;21,"45802030665 ")
 ;;1328
 ;;21,"45802030678 ")
 ;;1329
 ;;21,"45802059665 ")
 ;;1330
 ;;21,"45802059678 ")
 ;;1331
 ;;21,"45802061665 ")
 ;;1332
 ;;21,"45802061678 ")
 ;;1333
 ;;21,"45865035930 ")
 ;;1334
 ;;21,"45865035951 ")
 ;;1335
 ;;21,"45865035960 ")
 ;;1336
 ;;21,"45865035990 ")
 ;;1337
 ;;21,"45865036100 ")
 ;;1338
 ;;21,"45865036130 ")
 ;;1339
 ;;21,"45865036151 ")
 ;;1340
 ;;21,"45865036160 ")
 ;;1341
 ;;21,"45865036190 ")
 ;;1342
 ;;21,"45865036800 ")
 ;;1343
 ;;21,"45865036830 ")
 ;;1344
 ;;21,"45865036851 ")
 ;;1345
 ;;21,"45865036860 ")
 ;;1346
 ;;21,"45865036890 ")
 ;;1347
 ;;21,"45865037130 ")
 ;;1348
 ;;21,"45865037151 ")
 ;;1349
 ;;21,"45865037160 ")
 ;;1350
 ;;21,"45865037190 ")
 ;;1351
 ;;21,"45865037200 ")
 ;;1352
 ;;21,"45865037230 ")
 ;;1353
 ;;21,"45865037260 ")
 ;;1354
 ;;21,"45865037290 ")
 ;;1355
 ;;21,"45865037830 ")
 ;;1356
 ;;21,"45865037851 ")
 ;;1357
 ;;21,"45865037860 ")
 ;;1358
 ;;21,"45865037890 ")
 ;;1359
 ;;21,"45865038200 ")
 ;;1360
 ;;21,"45865038230 ")
 ;;1361
 ;;21,"45865038251 ")
 ;;1362
 ;;21,"45865038260 ")
 ;;1363
 ;;21,"45865038290 ")
 ;;1364
 ;;21,"45865043130 ")
 ;;1365
 ;;21,"45865043151 ")
 ;;1366
 ;;21,"45865043160 ")
 ;;1367
 ;;21,"45865043190 ")
 ;;1368
 ;;21,"45865043230 ")
 ;;1369
 ;;21,"45865043251 ")
 ;;1370
 ;;21,"45865043260 ")
 ;;1371
 ;;21,"45865043290 ")
 ;;1372
 ;;21,"45865044200 ")
 ;;1373
 ;;21,"45865044230 ")
 ;;1374
 ;;21,"45865044251 ")
 ;;1375
 ;;21,"45865044260 ")
 ;;1376
 ;;21,"45865044290 ")
 ;;1377
 ;;21,"45865045130 ")
 ;;1378
 ;;21,"45865045151 ")
 ;;1379
 ;;21,"45865045160 ")
 ;;1380
 ;;21,"45865045190 ")
 ;;1381
 ;;21,"45865046300 ")
 ;;1382
 ;;21,"45865046330 ")
 ;;1383
 ;;21,"45865046351 ")
 ;;1384
 ;;21,"45865046360 ")
 ;;1385
 ;;21,"45865046390 ")
 ;;1386
 ;;21,"45865049030 ")
 ;;1387
 ;;21,"45865049051 ")
 ;;1388
 ;;21,"45865049060 ")
 ;;1389
 ;;21,"45865049090 ")
 ;;1390
 ;;21,"45865050530 ")
 ;;1391
 ;;21,"45865050551 ")
 ;;1392
 ;;21,"45865050560 ")
 ;;1393
 ;;21,"45865050590 ")
 ;;1394
 ;;21,"45865052430 ")
 ;;1395
 ;;21,"45865052451 ")
 ;;1396
 ;;21,"45865052460 ")
 ;;1397
 ;;21,"45865052490 ")
 ;;1398
 ;;21,"45865053430 ")
 ;;1399
 ;;21,"45865053451 ")
 ;;1400
 ;;21,"45865053460 ")
 ;;1401
 ;;21,"45865053490 ")
 ;;1402
 ;;21,"45865053530 ")
 ;;1403
 ;;21,"45865053551 ")
 ;;1404
 ;;21,"45865053560 ")
 ;;1405
 ;;21,"45865053590 ")
 ;;1406
 ;;21,"46014110002 ")
 ;;1407
 ;;21,"47463001430 ")
 ;;1408
 ;;21,"47463001530 ")
 ;;1409
 ;;21,"47463001630 ")
 ;;1410
 ;;21,"47463001730 ")
 ;;1411
 ;;21,"47463007030 ")
 ;;1412
 ;;21,"47463007045 ")
 ;;1413
 ;;21,"47463007060 ")
 ;;1414
 ;;21,"47463007090 ")
 ;;1415
 ;;21,"47463007130 ")
 ;;1416
 ;;21,"47463007190 ")
 ;;1417
 ;;21,"47463057130 ")
 ;;1418
 ;;21,"47463057145 ")
 ;;1419
 ;;21,"47463057160 ")
 ;;1420
 ;;21,"47463077030 ")
 ;;1421
 ;;21,"47463077060 ")
 ;;1422
 ;;21,"47463077090 ")
 ;;1423
 ;;21,"47463077130 ")
 ;;1424
 ;;21,"47463077230 ")
 ;;1425
 ;;21,"47463077260 ")
 ;;1426
 ;;21,"47463077290 ")
 ;;1427
 ;;21,"47463080330 ")
 ;;1428
 ;;21,"47463080430 ")
 ;;1429
 ;;21,"47463081728 ")
 ;;1430
 ;;21,"47463081730 ")
 ;;1431
 ;;21,"47463081830 ")
 ;;1432
 ;;21,"47463082630 ")
 ;;1433
 ;;21,"47463082660 ")
 ;;1434
 ;;21,"49349001202 ")
 ;;1435
 ;;21,"49349003002 ")
 ;;1436
 ;;21,"49349005302 ")
 ;;1437
 ;;21,"49349006202 ")
 ;;1438
 ;;21,"49349007302 ")
 ;;1439
 ;;21,"49349008902 ")
 ;;1440
 ;;21,"49349017102 ")
 ;;1441
 ;;21,"49349017302 ")
 ;;1442
 ;;21,"49349018402 ")
 ;;1443
 ;;21,"49349019202 ")
 ;;1444
 ;;21,"49349020702 ")
 ;;1445
 ;;21,"49349021302 ")
 ;;1446
 ;;21,"49349023402 ")
 ;;1447
 ;;21,"49349023420 ")
 ;;1448
 ;;21,"49349025502 ")
 ;;1449
 ;;21,"49349025902 ")
 ;;1450
 ;;21,"49349026202 ")
 ;;1451
 ;;21,"49349026302 ")
 ;;1452
 ;;21,"49349028502 ")
 ;;1453
 ;;21,"49349028526 ")
 ;;1454
 ;;21,"49349029402 ")
 ;;1455
 ;;21,"49349030502 ")
 ;;1456
 ;;21,"49349030802 ")
 ;;1457
 ;;21,"49349031002 ")
 ;;1458
 ;;21,"49349035102 ")
 ;;1459
 ;;21,"49349035131 ")
 ;;1460
 ;;21,"49349036402 ")
 ;;1461
 ;;21,"49349036424 ")
 ;;1462
 ;;21,"49349037102 ")
 ;;1463
 ;;21,"49349038802 ")
 ;;1464
 ;;21,"49349038826 ")
 ;;1465
 ;;21,"49349039602 ")
 ;;1466
 ;;21,"49349039628 ")
 ;;1467
 ;;21,"49349040702 ")
 ;;1468
 ;;21,"49349040902 ")
 ;;1469
 ;;21,"49349041302 ")
 ;;1470
 ;;21,"49349041402 ")
 ;;1471
 ;;21,"49349042302 ")
 ;;1472
 ;;21,"49349042502 ")
 ;;1473
 ;;21,"49349042528 ")
 ;;1474
 ;;21,"49349045102 ")
 ;;1475
 ;;21,"49349045202 ")
 ;;1476
 ;;21,"49349045602 ")
 ;;1477
 ;;21,"49349046202 ")
 ;;1478
 ;;21,"49349047202 ")
 ;;1479
 ;;21,"49349047223 ")
 ;;1480
 ;;21,"49349047902 ")
 ;;1481
 ;;21,"49349047920 ")
 ;;1482
 ;;21,"49349060928 ")
 ;;1483
 ;;21,"49349068202 ")
 ;;1484
 ;;21,"49349069702 ")
 ;;1485
 ;;21,"49727015902 ")
 ;;1486
 ;;21,"49727015905 ")
 ;;1487
 ;;21,"49856008301 ")
 ;;1488
 ;;21,"49856008302 ")
 ;;1489
 ;;21,"49856008304 ")
 ;;1490
 ;;21,"49856008401 ")
 ;;1491
 ;;21,"49856008402 ")
 ;;1492
 ;;21,"49856008404 ")
 ;;1493
 ;;21,"49856009701 ")
 ;;1494
 ;;21,"49856009702 ")
 ;;1495
 ;;21,"49856009704 ")
 ;;1496
 ;;21,"49856010101 ")
 ;;1497
 ;;21,"49856010102 ")
 ;;1498
 ;;21,"49856010104 ")
 ;;1499
 ;;21,"49856016401 ")
 ;;1500
 ;;21,"49856016501 ")
 ;;1501
 ;;21,"49856016601 ")
 ;;1502
 ;;21,"49856018002 ")
 ;;1503
 ;;21,"49856018003 ")
 ;;1504
 ;;21,"49856018006 ")
 ;;1505
 ;;21,"49856018007 ")
 ;;1506
 ;;21,"49856018008 ")
 ;;1507
 ;;21,"49856018009 ")
 ;;1508
 ;;21,"49856018102 ")
 ;;1509
 ;;21,"49856018103 ")
 ;;1510
 ;;21,"49856018106 ")
 ;;1511
 ;;21,"49856018107 ")
 ;;1512
 ;;21,"49856018108 ")
 ;;1513
 ;;21,"49856018109 ")
 ;;1514
 ;;21,"49856018202 ")
 ;;1515
 ;;21,"49856018203 ")
 ;;1516
 ;;21,"49856018206 ")
 ;;1517
 ;;21,"49856018207 ")
 ;;1518
 ;;21,"49856018208 ")
 ;;1519
 ;;21,"49856018209 ")
 ;;1520
 ;;21,"49856024701 ")
 ;;1521
 ;;21,"49856024703 ")
 ;;1522
 ;;21,"49856024705 ")
 ;;1523
 ;;21,"49856024708 ")
 ;;1524
 ;;21,"49856024801 ")
 ;;1525
 ;;21,"49856024803 ")
 ;;1526
 ;;21,"49856024805 ")
 ;;1527
 ;;21,"49856024808 ")
 ;;1528
 ;;21,"49856024901 ")
 ;;1529
 ;;21,"49856024903 ")
 ;;1530
 ;;21,"49856024905 ")
 ;;1531
 ;;21,"49856024908 ")
 ;;1532
 ;;21,"49856251801 ")
 ;;1533
 ;;21,"49856251804 ")
 ;;1534
 ;;21,"49856251808 ")
 ;;1535
 ;;21,"49856251901 ")
 ;;1536
 ;;21,"49856251904 ")
 ;;1537
 ;;21,"49856251908 ")
 ;;1538
 ;;21,"49856252001 ")
 ;;1539
 ;;21,"49856252004 ")
 ;;1540
 ;;21,"49856252008 ")
 ;;1541
 ;;21,"49856343803 ")
 ;;1542
 ;;21,"49856343808 ")
 ;;1543
 ;;21,"49884003201 ")
 ;;1544
 ;;21,"49884005401 ")
 ;;1545
 ;;21,"49884005410 ")
 ;;1546
 ;;21,"49884005501 ")
 ;;1547
 ;;21,"49884005510 ")
 ;;1548
 ;;21,"49884005601 ")
 ;;1549
 ;;21,"49884005610 ")
 ;;1550
 ;;21,"49884026501 ")
 ;;1551
 ;;21,"49884026601 ")
 ;;1552
 ;;21,"49884061002 ")
 ;;1553
 ;;21,"49884065501 ")
 ;;1554
 ;;21,"49884065510 ")
 ;;1555
 ;;21,"49884065511 ")
 ;;1556
 ;;21,"49884065601 ")
 ;;1557
 ;;21,"49884065610 ")
 ;;1558
 ;;21,"49884065611 ")
 ;;1559
 ;;21,"49884073401 ")
 ;;1560
 ;;21,"49884073410 ")
 ;;1561
 ;;21,"49884073411 ")
 ;;1562
 ;;21,"49884073482 ")
 ;;1563
 ;;21,"49884073501 ")
 ;;1564
 ;;21,"49884073510 ")
 ;;1565
 ;;21,"49884073511 ")
 ;;1566
 ;;21,"49884073582 ")
 ;;1567
 ;;21,"49884074301 ")
 ;;1568
 ;;21,"49884074305 ")
 ;;1569
 ;;21,"49884074311 ")
 ;;1570
 ;;21,"49884075110 ")
 ;;1571
 ;;21,"49884075111 ")
 ;;1572
 ;;21,"49884087201 ")
 ;;1573
 ;;21,"49884087205 ")
 ;;1574
 ;;21,"49884087211 ")
 ;;1575
 ;;21,"49884087301 ")
 ;;1576
 ;;21,"49884087310 ")
 ;;1577
 ;;21,"49884087311 ")
 ;;1578
 ;;21,"49884087605 ")
 ;;1579
 ;;21,"49884087701 ")
 ;;1580
 ;;21,"49884087705 ")
 ;;1581
 ;;21,"49884087805 ")
 ;;1582
 ;;21,"49884087905 ")
 ;;1583
 ;;21,"49884087911 ")
 ;;1584
 ;;21,"49884096101 ")
 ;;1585
 ;;21,"49884096201 ")
 ;;1586
 ;;21,"49999006300 ")
 ;;1587
 ;;21,"49999006315 ")
 ;;1588
 ;;21,"49999006330 ")
 ;;1589
 ;;21,"49999006350 ")
 ;;1590
 ;;21,"49999006360 ")
 ;;1591
 ;;21,"49999006390 ")
 ;;1592
 ;;21,"49999012800 ")
 ;;1593
 ;;21,"49999012814 ")
 ;;1594