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