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

BGPM5AKO.m

Go to the documentation of this file.
BGPM5AKO ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 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,"36800046768 ")
 ;;310
 ;;21,"37205014519 ")
 ;;311
 ;;21,"37205014578 ")
 ;;312
 ;;21,"37205014587 ")
 ;;313
 ;;21,"37205015078 ")
 ;;314
 ;;21,"37205021807 ")
 ;;315
 ;;21,"37205021823 ")
 ;;316
 ;;21,"37205028062 ")
 ;;317
 ;;21,"37205028078 ")
 ;;318
 ;;21,"37205036968 ")
 ;;319
 ;;21,"37205042978 ")
 ;;320
 ;;21,"37205042990 ")
 ;;321
 ;;21,"37205042996 ")
 ;;322
 ;;21,"37205046768 ")
 ;;323
 ;;21,"37205049378 ")
 ;;324
 ;;21,"37205051076 ")
 ;;325
 ;;21,"37205051087 ")
 ;;326
 ;;21,"37205051172 ")
 ;;327
 ;;21,"37205070378 ")
 ;;328
 ;;21,"37205070868 ")
 ;;329
 ;;21,"37808027748 ")
 ;;330
 ;;21,"37808046768 ")
 ;;331
 ;;21,"37808053576 ")
 ;;332
 ;;21,"41100000240 ")
 ;;333
 ;;21,"41100000375 ")
 ;;334
 ;;21,"41163027468 ")
 ;;335
 ;;21,"41163037478 ")
 ;;336
 ;;21,"41163041412 ")
 ;;337
 ;;21,"41163041460 ")
 ;;338
 ;;21,"41163041678 ")
 ;;339
 ;;21,"41163041687 ")
 ;;340
 ;;21,"41163041690 ")
 ;;341
 ;;21,"41163041693 ")
 ;;342
 ;;21,"41163042978 ")
 ;;343
 ;;21,"41163042990 ")
 ;;344
 ;;21,"41163043071 ")
 ;;345
 ;;21,"41163043078 ")
 ;;346
 ;;21,"41163046768 ")
 ;;347
 ;;21,"41163053576 ")
 ;;348
 ;;21,"41163053587 ")
 ;;349
 ;;21,"41163056306 ")
 ;;350
 ;;21,"41163056317 ")
 ;;351
 ;;21,"41163056332 ")
 ;;352
 ;;21,"41163064281 ")
 ;;353
 ;;21,"41167009301 ")
 ;;354
 ;;21,"41167009311 ")
 ;;355
 ;;21,"41167009325 ")
 ;;356
 ;;21,"41167010815 ")
 ;;357
 ;;21,"41226041182 ")
 ;;358
 ;;21,"41250027408 ")
 ;;359
 ;;21,"41250027468 ")
 ;;360
 ;;21,"41250027715 ")
 ;;361
 ;;21,"41250027748 ")
 ;;362
 ;;21,"41250053576 ")
 ;;363
 ;;21,"41250096634 ")
 ;;364
 ;;21,"41268053576 ")
 ;;365
 ;;21,"41520046768 ")
 ;;366
 ;;21,"42507027468 ")
 ;;367
 ;;21,"42507043078 ")
 ;;368
 ;;21,"42507046768 ")
 ;;369
 ;;21,"42507053576 ")
 ;;370
 ;;21,"43063027890 ")
 ;;371
 ;;21,"43353071630 ")
 ;;372
 ;;21,"43353071660 ")
 ;;373
 ;;21,"44514008818 ")
 ;;374
 ;;21,"45802064287 ")
 ;;375
 ;;21,"45802070614 ")
 ;;376
 ;;21,"45802070630 ")
 ;;377
 ;;21,"45802070633 ")
 ;;378
 ;;21,"47682001133 ")
 ;;379
 ;;21,"47682001148 ")
 ;;380
 ;;21,"47682001199 ")
 ;;381
 ;;21,"47682008513 ")
 ;;382
 ;;21,"47682008533 ")
 ;;383
 ;;21,"47682009533 ")
 ;;384
 ;;21,"47682009613 ")
 ;;385
 ;;21,"47682009633 ")
 ;;386
 ;;21,"47682009713 ")
 ;;387
 ;;21,"47682009747 ")
 ;;388
 ;;21,"47682009764 ")
 ;;389
 ;;21,"47682009799 ")
 ;;390
 ;;21,"47682009813 ")
 ;;391
 ;;21,"47682009833 ")
 ;;392
 ;;21,"47682009848 ")
 ;;393
 ;;21,"47682009899 ")
 ;;394
 ;;21,"47682009933 ")
 ;;395
 ;;21,"47682009948 ")
 ;;396
 ;;21,"47682010433 ")
 ;;397
 ;;21,"47682010613 ")
 ;;398
 ;;21,"47682010633 ")
 ;;399
 ;;21,"47682011613 ")
 ;;400
 ;;21,"47682011647 ")
 ;;401
 ;;21,"47682011664 ")
 ;;402
 ;;21,"47682011699 ")
 ;;403
 ;;21,"47682011913 ")
 ;;404
 ;;21,"47682011936 ")
 ;;405
 ;;21,"47682011948 ")
 ;;406
 ;;21,"47682011999 ")
 ;;407
 ;;21,"47682015113 ")
 ;;408
 ;;21,"47682015213 ")
 ;;409
 ;;21,"47682022813 ")
 ;;410
 ;;21,"47682022833 ")
 ;;411
 ;;21,"47682022847 ")
 ;;412
 ;;21,"47682022864 ")
 ;;413
 ;;21,"47682022869 ")
 ;;414
 ;;21,"47682022899 ")
 ;;415
 ;;21,"47682080513 ")
 ;;416
 ;;21,"47682080533 ")
 ;;417
 ;;21,"47682080548 ")
 ;;418
 ;;21,"47682080599 ")
 ;;419
 ;;21,"47682080613 ")
 ;;420
 ;;21,"47682080633 ")
 ;;421
 ;;21,"47682080648 ")
 ;;422
 ;;21,"47682080699 ")
 ;;423
 ;;21,"47682090533 ")
 ;;424
 ;;21,"47682090548 ")
 ;;425
 ;;21,"47682090633 ")
 ;;426
 ;;21,"47682090648 ")
 ;;427
 ;;21,"47862045544 ")
 ;;428
 ;;21,"49035015908 ")
 ;;429
 ;;21,"49035015912 ")
 ;;430
 ;;21,"49035027423 ")
 ;;431
 ;;21,"49035027468 ")
 ;;432
 ;;21,"49035041412 ")
 ;;433
 ;;21,"49035053587 ")
 ;;434
 ;;21,"49035056317 ")
 ;;435
 ;;21,"49035056332 ")
 ;;436
 ;;21,"49348000110 ")
 ;;437
 ;;21,"49348000114 ")
 ;;438
 ;;21,"49348000119 ")
 ;;439
 ;;21,"49348000123 ")
 ;;440
 ;;21,"49348000645 ")
 ;;441
 ;;21,"49348003410 ")
 ;;442
 ;;21,"49348003414 ")
 ;;443
 ;;21,"49348003419 ")
 ;;444
 ;;21,"49348003423 ")
 ;;445
 ;;21,"49348003453 ")
 ;;446
 ;;21,"49348003482 ")
 ;;447
 ;;21,"49348019107 ")
 ;;448
 ;;21,"49348028314 ")
 ;;449
 ;;21,"49348028423 ")
 ;;450
 ;;21,"49348049807 ")
 ;;451
 ;;21,"49348050610 ")
 ;;452
 ;;21,"49348065315 ")
 ;;453
 ;;21,"49348071010 ")
 ;;454
 ;;21,"49348072210 ")
 ;;455
 ;;21,"49348075615 ")
 ;;456
 ;;21,"49348075623 ")
 ;;457
 ;;21,"49348075653 ")
 ;;458
 ;;21,"49348075707 ")
 ;;459
 ;;21,"49348093714 ")
 ;;460
 ;;21,"49348093782 ")
 ;;461
 ;;21,"49483000201 ")
 ;;462
 ;;21,"49483000210 ")
 ;;463
 ;;21,"49483001101 ")
 ;;464
 ;;21,"49483001110 ")
 ;;465
 ;;21,"49483002510 ")
 ;;466
 ;;21,"49483002512 ")
 ;;467
 ;;21,"49483003201 ")
 ;;468
 ;;21,"49483003210 ")
 ;;469
 ;;21,"49483005201 ")
 ;;470
 ;;21,"49483005210 ")
 ;;471
 ;;21,"49483022401 ")
 ;;472
 ;;21,"49483022405 ")
 ;;473
 ;;21,"49483022410 ")
 ;;474
 ;;21,"49483032801 ")
 ;;475
 ;;21,"49483032810 ")
 ;;476
 ;;21,"49483033100 ")
 ;;477
 ;;21,"49483033101 ")
 ;;478
 ;;21,"49483033400 ")
 ;;479
 ;;21,"49483033463 ")
 ;;480
 ;;21,"49483034900 ")
 ;;481
 ;;21,"49483038110 ")
 ;;482
 ;;21,"49483038112 ")
 ;;483
 ;;21,"49483038700 ")
 ;;484
 ;;21,"49483038710 ")
 ;;485
 ;;21,"49483038712 ")
 ;;486
 ;;21,"49483039000 ")
 ;;487
 ;;21,"49614011378 ")
 ;;488
 ;;21,"49614011385 ")
 ;;489
 ;;21,"49614046768 ")
 ;;490
 ;;21,"49692090120 ")
 ;;491
 ;;21,"49692090123 ")
 ;;492
 ;;21,"49692090350 ")
 ;;493
 ;;21,"49692090360 ")
 ;;494
 ;;21,"49692090378 ")
 ;;495
 ;;21,"49692090380 ")
 ;;496
 ;;21,"49692090950 ")
 ;;497
 ;;21,"49738046768 ")
 ;;498
 ;;21,"49848000190 ")
 ;;499
 ;;21,"49848000260 ")
 ;;500
 ;;21,"49884065701 ")
 ;;501
 ;;21,"49999011520 ")
 ;;502
 ;;21,"49999011530 ")
 ;;503
 ;;21,"49999011560 ")
 ;;504
 ;;21,"49999035930 ")
 ;;505
 ;;21,"49999040230 ")
 ;;506
 ;;21,"49999040290 ")
 ;;507
 ;;21,"49999081300 ")
 ;;508
 ;;21,"49999081330 ")
 ;;509
 ;;21,"49999091960 ")
 ;;510
 ;;21,"50428126148 ")
 ;;511
 ;;21,"50428140897 ")
 ;;512
 ;;21,"50428152314 ")
 ;;513
 ;;21,"50428218859 ")
 ;;514
 ;;21,"50428230268 ")
 ;;515
 ;;21,"50428271255 ")
 ;;516
 ;;21,"50428458871 ")
 ;;517
 ;;21,"50580012603 ")
 ;;518
 ;;21,"50580012610 ")
 ;;519
 ;;21,"50580012618 ")
 ;;520
 ;;21,"50580012619 ")
 ;;521
 ;;21,"50580012620 ")
 ;;522
 ;;21,"50580012636 ")
 ;;523
 ;;21,"50580012639 ")
 ;;524
 ;;21,"50580017308 ")
 ;;525
 ;;21,"50580017325 ")
 ;;526
 ;;21,"50580017336 ")
 ;;527
 ;;21,"51138024630 ")
 ;;528
 ;;21,"51469030101 ")
 ;;529
 ;;21,"51645071236 ")
 ;;530
 ;;21,"51645071308 ")
 ;;531
 ;;21,"51645071310 ")
 ;;532
 ;;21,"51645071401 ")
 ;;533
 ;;21,"51645071410 ")
 ;;534
 ;;21,"51645071601 ")
 ;;535
 ;;21,"51645071610 ")
 ;;536
 ;;21,"51824016436 ")
 ;;537
 ;;21,"51824054701 ")
 ;;538
 ;;21,"52124001101 ")
 ;;539
 ;;21,"52124001201 ")
 ;;540
 ;;21,"52204010399 ")
 ;;541
 ;;21,"52204011199 ")
 ;;542
 ;;21,"52297013378 ")
 ;;543
 ;;21,"52297013778 ")
 ;;544
 ;;21,"52297013978 ")
 ;;545
 ;;21,"52297014668 ")
 ;;546
 ;;21,"52297026072 ")
 ;;547
 ;;21,"52297026672 ")
 ;;548
 ;;21,"52297029287 ")
 ;;549
 ;;21,"52297041187 ")
 ;;550
 ;;21,"52297041578 ")
 ;;551
 ;;21,"52297041660 ")
 ;;552
 ;;21,"52297041678 ")
 ;;553
 ;;21,"52297042974 ")
 ;;554
 ;;21,"52297042978 ")
 ;;555
 ;;21,"52297044878 ")
 ;;556
 ;;21,"52297046768 ")
 ;;557
 ;;21,"52297050776 ")
 ;;558
 ;;21,"52297050876 ")
 ;;559
 ;;21,"52297083568 ")
 ;;560
 ;;21,"52297091885 ")
 ;;561
 ;;21,"52544095501 ")
 ;;562
 ;;21,"52735070201 ")
 ;;563
 ;;21,"52735070209 ")
 ;;564
 ;;21,"52735070301 ")
 ;;565
 ;;21,"52735070370 ")
 ;;566
 ;;21,"52735076123 ")
 ;;567
 ;;21,"52959001800 ")
 ;;568
 ;;21,"52959001814 ")
 ;;569
 ;;21,"52959001820 ")
 ;;570
 ;;21,"52959001824 ")
 ;;571
 ;;21,"52959001830 ")
 ;;572
 ;;21,"52959001840 ")
 ;;573
 ;;21,"52959001860 ")
 ;;574
 ;;21,"52959001880 ")
 ;;575
 ;;21,"52959039900 ")
 ;;576
 ;;21,"52959039902 ")
 ;;577
 ;;21,"52959039920 ")
 ;;578
 ;;21,"52959039930 ")
 ;;579
 ;;21,"52959039950 ")
 ;;580
 ;;21,"52959039960 ")
 ;;581
 ;;21,"52959039990 ")
 ;;582
 ;;21,"52959072400 ")
 ;;583
 ;;21,"52959072410 ")
 ;;584
 ;;21,"52959072414 ")
 ;;585
 ;;21,"52959072415 ")
 ;;586
 ;;21,"52959072420 ")
 ;;587
 ;;21,"52959072424 ")
 ;;588
 ;;21,"52959072430 ")
 ;;589
 ;;21,"52959076730 ")
 ;;590
 ;;21,"52959076760 ")
 ;;591
 ;;21,"52959077830 ")
 ;;592
 ;;21,"53076010213 ")
 ;;593
 ;;21,"53076010914 ")
 ;;594
 ;;21,"53360117100 ")
 ;;595
 ;;21,"53489062201 ")
 ;;596
 ;;21,"53489062203 ")
 ;;597
 ;;21,"53489062205 ")
 ;;598
 ;;21,"53489062206 ")
 ;;599
 ;;21,"53489062207 ")
 ;;600
 ;;21,"53489062210 ")
 ;;601
 ;;21,"53808076301 ")
 ;;602
 ;;21,"53978316405 ")
 ;;603
 ;;21,"53978316409 ")
 ;;604
 ;;21,"53978339507 ")
 ;;605
 ;;21,"53978339509 ")
 ;;606
 ;;21,"54257076917 ")
 ;;607
 ;;21,"54257076918 ")
 ;;608
 ;;21,"54569000504 ")
 ;;609
 ;;21,"54569000508 ")
 ;;610
 ;;21,"54569001401 ")
 ;;611
 ;;21,"54569001403 ")
 ;;612
 ;;21,"54569033904 ")
 ;;613
 ;;21,"54569423301 ")
 ;;614
 ;;21,"54569470000 ")
 ;;615
 ;;21,"54569470002 ")
 ;;616
 ;;21,"54569565900 ")
 ;;617
 ;;21,"54629080101 ")
 ;;618
 ;;21,"54629080303 ")
 ;;619
 ;;21,"54738011103 ")
 ;;620
 ;;21,"54868103100 ")
 ;;621
 ;;21,"54868103102 ")
 ;;622
 ;;21,"54868107500 ")
 ;;623
 ;;21,"54868107501 ")
 ;;624
 ;;21,"54868107502 ")
 ;;625
 ;;21,"54868107503 ")
 ;;626
 ;;21,"54868107504 ")
 ;;627
 ;;21,"54868119800 ")
 ;;628
 ;;21,"54868119802 ")
 ;;629
 ;;21,"54868141200 ")
 ;;630
 ;;21,"54868199601 ")
 ;;631
 ;;21,"54868240501 ")
 ;;632
 ;;21,"54868240502 ")
 ;;633
 ;;21,"54868240503 ")
 ;;634
 ;;21,"54868244001 ")
 ;;635
 ;;21,"54868407000 ")
 ;;636
 ;;21,"54868407001 ")
 ;;637
 ;;21,"54868407002 ")
 ;;638
 ;;21,"54868409400 ")
 ;;639
 ;;21,"54868453000 ")
 ;;640
 ;;21,"54868495500 ")
 ;;641
 ;;21,"54868514300 ")
 ;;642
 ;;21,"55045120800 ")
 ;;643
 ;;21,"55045120802 ")
 ;;644
 ;;21,"55045120803 ")
 ;;645
 ;;21,"55045120806 ")
 ;;646
 ;;21,"55045120807 ")
 ;;647
 ;;21,"55045120808 ")
 ;;648
 ;;21,"55045120809 ")
 ;;649
 ;;21,"55045310100 ")
 ;;650
 ;;21,"55045312901 ")
 ;;651
 ;;21,"55154040800 ")
 ;;652
 ;;21,"55154040804 ")
 ;;653
 ;;21,"55154040806 ")
 ;;654
 ;;21,"55154074709 ")
 ;;655
 ;;21,"55154074809 ")
 ;;656
 ;;21,"55154147300 ")
 ;;657
 ;;21,"55154147600 ")
 ;;658
 ;;21,"55154201600 ")
 ;;659
 ;;21,"55154201607 ")
 ;;660
 ;;21,"55154675200 ")
 ;;661
 ;;21,"55154675500 ")
 ;;662
 ;;21,"55154680809 ")
 ;;663
 ;;21,"55289004015 ")
 ;;664
 ;;21,"55289004020 ")
 ;;665
 ;;21,"55289004030 ")
 ;;666
 ;;21,"55289019101 ")
 ;;667
 ;;21,"55289019130 ")
 ;;668
 ;;21,"55289019135 ")
 ;;669
 ;;21,"55289019190 ")
 ;;670
 ;;21,"55289035601 ")
 ;;671