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

BGPM5BEO.m

Go to the documentation of this file.
BGPM5BEO ;IHS/MSC/MMT-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,"64720014111 ")
 ;;145
 ;;21,"64720014150 ")
 ;;146
 ;;21,"64720014210 ")
 ;;147
 ;;21,"64720014211 ")
 ;;148
 ;;21,"64720014250 ")
 ;;149
 ;;21,"64720016410 ")
 ;;3580
 ;;21,"64720016411 ")
 ;;3581
 ;;21,"64720016510 ")
 ;;3582
 ;;21,"64720016511 ")
 ;;3583
 ;;21,"64720016610 ")
 ;;3584
 ;;21,"64720016611 ")
 ;;3585
 ;;21,"64720016710 ")
 ;;150
 ;;21,"64720016711 ")
 ;;151
 ;;21,"64720016750 ")
 ;;152
 ;;21,"64720016810 ")
 ;;153
 ;;21,"64720016811 ")
 ;;154
 ;;21,"64720016850 ")
 ;;155
 ;;21,"64720016910 ")
 ;;156
 ;;21,"64720016911 ")
 ;;157
 ;;21,"64720016950 ")
 ;;158
 ;;21,"64725020703 ")
 ;;1349
 ;;21,"64725020803 ")
 ;;1350
 ;;21,"64725020903 ")
 ;;1351
 ;;21,"64896115001 ")
 ;;4353
 ;;21,"64896115003 ")
 ;;4354
 ;;21,"64896115101 ")
 ;;4355
 ;;21,"64896115103 ")
 ;;4356
 ;;21,"64896115201 ")
 ;;4357
 ;;21,"64896115203 ")
 ;;4358
 ;;21,"65084041618 ")
 ;;1352
 ;;21,"65084041620 ")
 ;;1353
 ;;21,"65162017410 ")
 ;;1354
 ;;21,"65162017411 ")
 ;;1355
 ;;21,"65162017450 ")
 ;;1356
 ;;21,"65162017510 ")
 ;;1357
 ;;21,"65162017511 ")
 ;;1358
 ;;21,"65162017550 ")
 ;;1359
 ;;21,"65162017710 ")
 ;;1360
 ;;21,"65162017711 ")
 ;;1361
 ;;21,"65162017750 ")
 ;;1362
 ;;21,"65243017609 ")
 ;;3595
 ;;21,"65243017618 ")
 ;;3596
 ;;21,"65243017636 ")
 ;;3597
 ;;21,"65243018318 ")
 ;;3598
 ;;21,"65243018509 ")
 ;;3599
 ;;21,"65243018512 ")
 ;;3600
 ;;21,"65243018518 ")
 ;;3601
 ;;21,"65243018527 ")
 ;;3602
 ;;21,"65243018536 ")
 ;;3603
 ;;21,"65243023906 ")
 ;;1363
 ;;21,"65243023909 ")
 ;;1364
 ;;21,"65243023912 ")
 ;;1365
 ;;21,"65243023918 ")
 ;;1366
 ;;21,"65243023927 ")
 ;;1367
 ;;21,"65243028503 ")
 ;;3604
 ;;21,"65243028506 ")
 ;;3605
 ;;21,"65243028509 ")
 ;;3606
 ;;21,"65243028512 ")
 ;;3607
 ;;21,"65243028518 ")
 ;;3608
 ;;21,"65243028803 ")
 ;;1368
 ;;21,"65243028806 ")
 ;;1369
 ;;21,"65243028809 ")
 ;;1370
 ;;21,"65243028812 ")
 ;;1371
 ;;21,"65243028818 ")
 ;;1372
 ;;21,"65243028906 ")
 ;;1373
 ;;21,"65243028909 ")
 ;;1374
 ;;21,"65243028912 ")
 ;;1375
 ;;21,"65243028918 ")
 ;;1376
 ;;21,"65243028927 ")
 ;;1377
 ;;21,"65243032509 ")
 ;;3609
 ;;21,"65243032518 ")
 ;;3610
 ;;21,"65243037103 ")
 ;;1378
 ;;21,"65243037106 ")
 ;;1379
 ;;21,"65243037109 ")
 ;;1380
 ;;21,"65243037112 ")
 ;;1381
 ;;21,"65243037118 ")
 ;;1382
 ;;21,"65243037203 ")
 ;;1383
 ;;21,"65243037206 ")
 ;;1384
 ;;21,"65243037209 ")
 ;;1385
 ;;21,"65243037212 ")
 ;;1386
 ;;21,"65243037218 ")
 ;;1387
 ;;21,"65243037803 ")
 ;;3611
 ;;21,"65243037806 ")
 ;;3612
 ;;21,"65243037809 ")
 ;;3613
 ;;21,"65243037812 ")
 ;;3614
 ;;21,"65243037818 ")
 ;;3615
 ;;21,"65427003101 ")
 ;;3616
 ;;21,"65427003201 ")
 ;;3617
 ;;21,"65427003202 ")
 ;;3618
 ;;21,"65427003301 ")
 ;;3619
 ;;21,"65427003302 ")
 ;;3620
 ;;21,"65427037501 ")
 ;;3621
 ;;21,"65427037603 ")
 ;;3622
 ;;21,"65427037704 ")
 ;;3623
 ;;21,"65427037706 ")
 ;;3624
 ;;21,"65427037707 ")
 ;;3625
 ;;21,"65427087201 ")
 ;;3626
 ;;21,"65427087205 ")
 ;;3627
 ;;21,"65427087301 ")
 ;;3628
 ;;21,"65427087305 ")
 ;;3629
 ;;21,"65841002701 ")
 ;;1388
 ;;21,"65841002705 ")
 ;;1389
 ;;21,"65841002801 ")
 ;;1390
 ;;21,"65841002805 ")
 ;;1391
 ;;21,"65841002810 ")
 ;;1392
 ;;21,"65841002816 ")
 ;;1393
 ;;21,"65841002830 ")
 ;;1394
 ;;21,"65841002861 ")
 ;;1395
 ;;21,"65841002901 ")
 ;;1396
 ;;21,"65841002905 ")
 ;;1397
 ;;21,"65841002910 ")
 ;;1398
 ;;21,"65841002916 ")
 ;;1399
 ;;21,"65841002930 ")
 ;;1400
 ;;21,"65841002961 ")
 ;;1401
 ;;21,"65841003001 ")
 ;;1402
 ;;21,"65841003005 ")
 ;;1403
 ;;21,"65841003010 ")
 ;;1404
 ;;21,"65841003016 ")
 ;;1405
 ;;21,"65841003030 ")
 ;;1406
 ;;21,"65841003061 ")
 ;;1407
 ;;21,"65841003901 ")
 ;;1408
 ;;21,"65841003905 ")
 ;;1409
 ;;21,"65862000801 ")
 ;;1410
 ;;21,"65862000805 ")
 ;;1411
 ;;21,"65862000833 ")
 ;;1412
 ;;21,"65862000845 ")
 ;;1413
 ;;21,"65862000849 ")
 ;;1414
 ;;21,"65862000850 ")
 ;;1415
 ;;21,"65862000860 ")
 ;;1416
 ;;21,"65862000890 ")
 ;;1417
 ;;21,"65862000899 ")
 ;;1418
 ;;21,"65862000901 ")
 ;;1419
 ;;21,"65862000905 ")
 ;;1420
 ;;21,"65862000926 ")
 ;;1421
 ;;21,"65862000933 ")
 ;;1422
 ;;21,"65862000944 ")
 ;;1423
 ;;21,"65862000950 ")
 ;;1424
 ;;21,"65862000960 ")
 ;;1425
 ;;21,"65862000990 ")
 ;;1426
 ;;21,"65862000999 ")
 ;;1427
 ;;21,"65862001001 ")
 ;;1428
 ;;21,"65862001005 ")
 ;;1429
 ;;21,"65862001022 ")
 ;;1430
 ;;21,"65862001033 ")
 ;;1431
 ;;21,"65862001046 ")
 ;;1432
 ;;21,"65862001050 ")
 ;;1433
 ;;21,"65862001060 ")
 ;;1434
 ;;21,"65862001090 ")
 ;;1435
 ;;21,"65862001099 ")
 ;;1436
 ;;21,"65862002801 ")
 ;;3630
 ;;21,"65862002817 ")
 ;;3631
 ;;21,"65862002830 ")
 ;;3632
 ;;21,"65862002850 ")
 ;;3633
 ;;21,"65862002900 ")
 ;;3634
 ;;21,"65862002901 ")
 ;;3635
 ;;21,"65862002905 ")
 ;;3636
 ;;21,"65862002919 ")
 ;;3637
 ;;21,"65862002930 ")
 ;;3638
 ;;21,"65862002999 ")
 ;;3639
 ;;21,"65862003000 ")
 ;;3640
 ;;21,"65862003001 ")
 ;;3641
 ;;21,"65862003005 ")
 ;;3642
 ;;21,"65862003030 ")
 ;;3643
 ;;21,"65862003075 ")
 ;;3644
 ;;21,"65862003099 ")
 ;;3645
 ;;21,"65862008001 ")
 ;;159
 ;;21,"65862008005 ")
 ;;160
 ;;21,"65862008030 ")
 ;;161
 ;;21,"65862008036 ")
 ;;162
 ;;21,"65862008101 ")
 ;;163
 ;;21,"65862008105 ")
 ;;164
 ;;21,"65862008118 ")
 ;;165
 ;;21,"65862008130 ")
 ;;166
 ;;21,"65862008201 ")
 ;;167
 ;;21,"65862008205 ")
 ;;168
 ;;21,"65862008218 ")
 ;;169
 ;;21,"65862008230 ")
 ;;170
 ;;21,"66039015901 ")
 ;;1449
 ;;21,"66039015905 ")
 ;;1450
 ;;21,"66039016001 ")
 ;;1451
 ;;21,"66039016101 ")
 ;;1452
 ;;21,"66105060010 ")
 ;;1453
 ;;21,"66105060110 ")
 ;;1454
 ;;21,"66105063202 ")
 ;;1455
 ;;21,"66105063203 ")
 ;;1456
 ;;21,"66105063206 ")
 ;;1457
 ;;21,"66105063209 ")
 ;;1458
 ;;21,"66105063210 ")
 ;;1459
 ;;21,"66105074323 ")
 ;;1460
 ;;21,"66105074423 ")
 ;;1461
 ;;21,"66105075402 ")
 ;;3658
 ;;21,"66105075403 ")
 ;;3659
 ;;21,"66105075406 ")
 ;;3660
 ;;21,"66105075409 ")
 ;;3661
 ;;21,"66105075410 ")
 ;;3662
 ;;21,"66105075602 ")
 ;;3663
 ;;21,"66105075603 ")
 ;;3664
 ;;21,"66105075606 ")
 ;;3665
 ;;21,"66105075609 ")
 ;;3666
 ;;21,"66105075610 ")
 ;;3667
 ;;21,"66105098402 ")
 ;;3668
 ;;21,"66105098403 ")
 ;;3669
 ;;21,"66105098406 ")
 ;;3670
 ;;21,"66105098409 ")
 ;;3671
 ;;21,"66105098410 ")
 ;;3672
 ;;21,"66105098411 ")
 ;;3673
 ;;21,"66105098450 ")
 ;;3674
 ;;21,"66105098502 ")
 ;;3675
 ;;21,"66105098503 ")
 ;;3676
 ;;21,"66105098506 ")
 ;;3677
 ;;21,"66105098509 ")
 ;;3678
 ;;21,"66105098510 ")
 ;;3679
 ;;21,"66105098511 ")
 ;;3680
 ;;21,"66105098550 ")
 ;;3681
 ;;21,"66105098602 ")
 ;;3682
 ;;21,"66105098603 ")
 ;;3683
 ;;21,"66105098606 ")
 ;;3684
 ;;21,"66105098609 ")
 ;;3685
 ;;21,"66105098610 ")
 ;;3686
 ;;21,"66105098611 ")
 ;;3687
 ;;21,"66105098650 ")
 ;;3688
 ;;21,"66116030530 ")
 ;;1462
 ;;21,"66116030660 ")
 ;;1463
 ;;21,"66116036060 ")
 ;;3689
 ;;21,"66116044030 ")
 ;;3690
 ;;21,"66116044060 ")
 ;;3691
 ;;21,"66116080130 ")
 ;;1464
 ;;21,"66116080560 ")
 ;;3692
 ;;21,"66116080660 ")
 ;;3693
 ;;21,"66116082760 ")
 ;;3694
 ;;21,"66116082860 ")
 ;;3695
 ;;21,"66116087030 ")
 ;;1465
 ;;21,"66143751005 ")
 ;;2000
 ;;21,"66267005460 ")
 ;;3696
 ;;21,"66267010010 ")
 ;;3697
 ;;21,"66267010020 ")
 ;;3698
 ;;21,"66267010030 ")
 ;;3699
 ;;21,"66267010060 ")
 ;;3700
 ;;21,"66267010090 ")
 ;;3701
 ;;21,"66267010205 ")
 ;;3702
 ;;21,"66267010230 ")
 ;;3703
 ;;21,"66267010312 ")
 ;;3704
 ;;21,"66267010330 ")
 ;;3705
 ;;21,"66267010360 ")
 ;;3706
 ;;21,"66267023110 ")
 ;;3707
 ;;21,"66267023115 ")
 ;;3708
 ;;21,"66267023120 ")
 ;;3709
 ;;21,"66267023130 ")
 ;;3710
 ;;21,"66267023140 ")
 ;;3711
 ;;21,"66267031630 ")
 ;;3712
 ;;21,"66267049305 ")
 ;;1466
 ;;21,"66267049312 ")
 ;;1467
 ;;21,"66267049314 ")
 ;;1468
 ;;21,"66267049318 ")
 ;;1469
 ;;21,"66267049320 ")
 ;;1470
 ;;21,"66267049330 ")
 ;;1471
 ;;21,"66267049340 ")
 ;;1472
 ;;21,"66267049360 ")
 ;;1473
 ;;21,"66267049391 ")
 ;;1474
 ;;21,"66267049392 ")
 ;;1475
 ;;21,"66267049720 ")
 ;;1476
 ;;21,"66267049730 ")
 ;;1477
 ;;21,"66267049740 ")
 ;;1478
 ;;21,"66267049745 ")
 ;;1479
 ;;21,"66267049760 ")
 ;;1480
 ;;21,"66267049790 ")
 ;;1481
 ;;21,"66267055300 ")
 ;;1482
 ;;21,"66267055305 ")
 ;;1483
 ;;21,"66267055318 ")
 ;;1484
 ;;21,"66267055320 ")
 ;;1485
 ;;21,"66267055330 ")
 ;;1486
 ;;21,"66267055340 ")
 ;;1487
 ;;21,"66267055360 ")
 ;;1488
 ;;21,"66267055390 ")
 ;;1489
 ;;21,"66267062710 ")
 ;;1490
 ;;21,"66336002830 ")
 ;;3713
 ;;21,"66336026930 ")
 ;;3714
 ;;21,"66336027030 ")
 ;;1491
 ;;21,"66336035830 ")
 ;;1492
 ;;21,"66336035860 ")
 ;;1493
 ;;21,"66336066230 ")
 ;;3715
 ;;21,"66336066260 ")
 ;;3716
 ;;21,"66336066294 ")
 ;;3717
 ;;21,"66336073030 ")
 ;;3718
 ;;21,"66336073060 ")
 ;;3719
 ;;21,"66336078430 ")
 ;;171
 ;;21,"66336088330 ")
 ;;1495
 ;;21,"66336088360 ")
 ;;1496
 ;;21,"66336088414 ")
 ;;1497
 ;;21,"66336088430 ")
 ;;1498
 ;;21,"66336088460 ")
 ;;1499
 ;;21,"66336093830 ")
 ;;3721
 ;;21,"66336093860 ")
 ;;3722
 ;;21,"66993016202 ")
 ;;3723
 ;;21,"66993016247 ")
 ;;3724
 ;;21,"66993016302 ")
 ;;3725
 ;;21,"66993016347 ")
 ;;3726
 ;;21,"66993016402 ")
 ;;3727
 ;;21,"67046023530 ")
 ;;3728
 ;;21,"67046024030 ")
 ;;3729
 ;;21,"67046024060 ")
 ;;3730
 ;;21,"67046046030 ")
 ;;1500
 ;;21,"67046046130 ")
 ;;1501
 ;;21,"67046046230 ")
 ;;1502
 ;;21,"67228024203 ")
 ;;3731
 ;;21,"67228024206 ")
 ;;3732
 ;;21,"67228024303 ")
 ;;3733
 ;;21,"67228024306 ")
 ;;3734
 ;;21,"67228026803 ")
 ;;1503
 ;;21,"67228026806 ")
 ;;1504
 ;;21,"67228028103 ")
 ;;1505
 ;;21,"67228028106 ")
 ;;1506
 ;;21,"67228036803 ")
 ;;1507
 ;;21,"67228036806 ")
 ;;1508
 ;;21,"67228036903 ")
 ;;1509
 ;;21,"67228036906 ")
 ;;1510
 ;;21,"67251046011 ")
 ;;3735
 ;;21,"67251046050 ")
 ;;3736
 ;;21,"67253046010 ")
 ;;3737
 ;;21,"67253046011 ")
 ;;3738
 ;;21,"67253046050 ")
 ;;3739
 ;;21,"67253046110 ")
 ;;3740
 ;;21,"67253046111 ")
 ;;3741
 ;;21,"67253046150 ")
 ;;3742
 ;;21,"67253046210 ")
 ;;3743
 ;;21,"67253046211 ")
 ;;3744
 ;;21,"67253046250 ")
 ;;3745
 ;;21,"67263019301 ")
 ;;3746
 ;;21,"67544004730 ")
 ;;1511
 ;;21,"67544004732 ")
 ;;1512
 ;;21,"67544004753 ")
 ;;1513
 ;;21,"67544004760 ")
 ;;1514
 ;;21,"67544004770 ")
 ;;1515
 ;;21,"67544004775 ")
 ;;1516
 ;;21,"67544004780 ")
 ;;1517
 ;;21,"67544004790 ")
 ;;1518
 ;;21,"67544004792 ")
 ;;1519
 ;;21,"67544004794 ")
 ;;1520
 ;;21,"67544004796 ")
 ;;1521
 ;;21,"67544009732 ")
 ;;3747
 ;;21,"67544009753 ")
 ;;3748
 ;;21,"67544009760 ")
 ;;3749
 ;;21,"67544009770 ")
 ;;3750
 ;;21,"67544009780 ")
 ;;3751
 ;;21,"67544009794 ")
 ;;3752
 ;;21,"67544010753 ")
 ;;1522
 ;;21,"67544010760 ")
 ;;1523
 ;;21,"67544010770 ")
 ;;1524
 ;;21,"67544010780 ")
 ;;1525
 ;;21,"67544010792 ")
 ;;1526
 ;;21,"67544012930 ")
 ;;3753
 ;;21,"67544012953 ")
 ;;3754