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

BGPM5ATP.m

Go to the documentation of this file.
  1. BGPM5ATP ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 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,"54569030503 ")
  1. ;;437
  1. ;;21,"54569030505 ")
  1. ;;438
  1. ;;21,"54569030506 ")
  1. ;;439
  1. ;;21,"54569030507 ")
  1. ;;440
  1. ;;21,"54569030508 ")
  1. ;;441
  1. ;;21,"54569038400 ")
  1. ;;442
  1. ;;21,"54569038401 ")
  1. ;;443
  1. ;;21,"54569038404 ")
  1. ;;444
  1. ;;21,"54569038405 ")
  1. ;;445
  1. ;;21,"54569102300 ")
  1. ;;446
  1. ;;21,"54569102400 ")
  1. ;;447
  1. ;;21,"54569102500 ")
  1. ;;448
  1. ;;21,"54569171900 ")
  1. ;;449
  1. ;;21,"54569171902 ")
  1. ;;450
  1. ;;21,"54569174600 ")
  1. ;;451
  1. ;;21,"54569174601 ")
  1. ;;452
  1. ;;21,"54569174605 ")
  1. ;;453
  1. ;;21,"54569174608 ")
  1. ;;454
  1. ;;21,"54569174609 ")
  1. ;;455
  1. ;;21,"54569184000 ")
  1. ;;456
  1. ;;21,"54569184001 ")
  1. ;;457
  1. ;;21,"54569184003 ")
  1. ;;458
  1. ;;21,"54569184004 ")
  1. ;;459
  1. ;;21,"54569184007 ")
  1. ;;460
  1. ;;21,"54569186100 ")
  1. ;;461
  1. ;;21,"54569186101 ")
  1. ;;462
  1. ;;21,"54569186102 ")
  1. ;;463
  1. ;;21,"54569186104 ")
  1. ;;464
  1. ;;21,"54569186105 ")
  1. ;;465
  1. ;;21,"54569186108 ")
  1. ;;466
  1. ;;21,"54569186109 ")
  1. ;;467
  1. ;;21,"54569188900 ")
  1. ;;468
  1. ;;21,"54569188901 ")
  1. ;;469
  1. ;;21,"54569188904 ")
  1. ;;470
  1. ;;21,"54569200000 ")
  1. ;;471
  1. ;;21,"54569200200 ")
  1. ;;472
  1. ;;21,"54569218700 ")
  1. ;;473
  1. ;;21,"54569227900 ")
  1. ;;474
  1. ;;21,"54569227901 ")
  1. ;;475
  1. ;;21,"54569227902 ")
  1. ;;476
  1. ;;21,"54569227903 ")
  1. ;;477
  1. ;;21,"54569227905 ")
  1. ;;478
  1. ;;21,"54569227906 ")
  1. ;;479
  1. ;;21,"54569227907 ")
  1. ;;480
  1. ;;21,"54569227908 ")
  1. ;;481
  1. ;;21,"54569241100 ")
  1. ;;482
  1. ;;21,"54569241101 ")
  1. ;;483
  1. ;;21,"54569241106 ")
  1. ;;484
  1. ;;21,"54569250100 ")
  1. ;;485
  1. ;;21,"54569250102 ")
  1. ;;486
  1. ;;21,"54569250103 ")
  1. ;;487
  1. ;;21,"54569250104 ")
  1. ;;488
  1. ;;21,"54569250108 ")
  1. ;;489
  1. ;;21,"54569250200 ")
  1. ;;490
  1. ;;21,"54569250201 ")
  1. ;;491
  1. ;;21,"54569250203 ")
  1. ;;492
  1. ;;21,"54569250205 ")
  1. ;;493
  1. ;;21,"54569250206 ")
  1. ;;494
  1. ;;21,"54569250207 ")
  1. ;;495
  1. ;;21,"54569250702 ")
  1. ;;496
  1. ;;21,"54569250703 ")
  1. ;;497
  1. ;;21,"54569250704 ")
  1. ;;498
  1. ;;21,"54569250705 ")
  1. ;;499
  1. ;;21,"54569250707 ")
  1. ;;500
  1. ;;21,"54569250709 ")
  1. ;;501
  1. ;;21,"54569270200 ")
  1. ;;502
  1. ;;21,"54569270202 ")
  1. ;;503
  1. ;;21,"54569270203 ")
  1. ;;504
  1. ;;21,"54569270204 ")
  1. ;;505
  1. ;;21,"54569270206 ")
  1. ;;506
  1. ;;21,"54569270208 ")
  1. ;;507
  1. ;;21,"54569271001 ")
  1. ;;508
  1. ;;21,"54569271002 ")
  1. ;;509
  1. ;;21,"54569271004 ")
  1. ;;510
  1. ;;21,"54569271005 ")
  1. ;;511
  1. ;;21,"54569271006 ")
  1. ;;512
  1. ;;21,"54569282100 ")
  1. ;;513
  1. ;;21,"54569292800 ")
  1. ;;514
  1. ;;21,"54569292900 ")
  1. ;;515
  1. ;;21,"54569293000 ")
  1. ;;516
  1. ;;21,"54569293100 ")
  1. ;;517
  1. ;;21,"54569293300 ")
  1. ;;518
  1. ;;21,"54569293500 ")
  1. ;;519
  1. ;;21,"54569295300 ")
  1. ;;520
  1. ;;21,"54569295400 ")
  1. ;;521
  1. ;;21,"54569298600 ")
  1. ;;522
  1. ;;21,"54569298604 ")
  1. ;;523
  1. ;;21,"54569298605 ")
  1. ;;524
  1. ;;21,"54569307400 ")
  1. ;;525
  1. ;;21,"54569307401 ")
  1. ;;526
  1. ;;21,"54569307402 ")
  1. ;;527
  1. ;;21,"54569307405 ")
  1. ;;528
  1. ;;21,"54569307406 ")
  1. ;;529
  1. ;;21,"54569307407 ")
  1. ;;530
  1. ;;21,"54569307408 ")
  1. ;;531
  1. ;;21,"54569315300 ")
  1. ;;532
  1. ;;21,"54569315302 ")
  1. ;;533
  1. ;;21,"54569315303 ")
  1. ;;534
  1. ;;21,"54569331500 ")
  1. ;;535
  1. ;;21,"54569332401 ")
  1. ;;536
  1. ;;21,"54569332402 ")
  1. ;;537
  1. ;;21,"54569332403 ")
  1. ;;538
  1. ;;21,"54569332404 ")
  1. ;;539
  1. ;;21,"54569332405 ")
  1. ;;540
  1. ;;21,"54569332406 ")
  1. ;;541
  1. ;;21,"54569333500 ")
  1. ;;542
  1. ;;21,"54569333501 ")
  1. ;;543
  1. ;;21,"54569333502 ")
  1. ;;544
  1. ;;21,"54569333503 ")
  1. ;;545
  1. ;;21,"54569333504 ")
  1. ;;546
  1. ;;21,"54569333505 ")
  1. ;;547
  1. ;;21,"54569333506 ")
  1. ;;548
  1. ;;21,"54569333507 ")
  1. ;;549
  1. ;;21,"54569333509 ")
  1. ;;550
  1. ;;21,"54569345600 ")
  1. ;;551
  1. ;;21,"54569345601 ")
  1. ;;552
  1. ;;21,"54569345602 ")
  1. ;;553
  1. ;;21,"54569345603 ")
  1. ;;554
  1. ;;21,"54569345604 ")
  1. ;;555
  1. ;;21,"54569345606 ")
  1. ;;556
  1. ;;21,"54569350301 ")
  1. ;;557
  1. ;;21,"54569353102 ")
  1. ;;558
  1. ;;21,"54569368900 ")
  1. ;;559
  1. ;;21,"54569368901 ")
  1. ;;560
  1. ;;21,"54569368902 ")
  1. ;;561
  1. ;;21,"54569368903 ")
  1. ;;562
  1. ;;21,"54569368904 ")
  1. ;;563
  1. ;;21,"54569368905 ")
  1. ;;564
  1. ;;21,"54569368906 ")
  1. ;;565
  1. ;;21,"54569368907 ")
  1. ;;566
  1. ;;21,"54569387600 ")
  1. ;;567
  1. ;;21,"54569390100 ")
  1. ;;568
  1. ;;21,"54569390101 ")
  1. ;;569
  1. ;;21,"54569390200 ")
  1. ;;570
  1. ;;21,"54569390201 ")
  1. ;;571
  1. ;;21,"54569390400 ")
  1. ;;572
  1. ;;21,"54569398601 ")
  1. ;;573
  1. ;;21,"54569400300 ")
  1. ;;574
  1. ;;21,"54569400301 ")
  1. ;;575
  1. ;;21,"54569400302 ")
  1. ;;576
  1. ;;21,"54569424100 ")
  1. ;;577
  1. ;;21,"54569429400 ")
  1. ;;578
  1. ;;21,"54569431100 ")
  1. ;;579
  1. ;;21,"54569434900 ")
  1. ;;580
  1. ;;21,"54569439100 ")
  1. ;;581
  1. ;;21,"54569439101 ")
  1. ;;582
  1. ;;21,"54569439102 ")
  1. ;;583
  1. ;;21,"54569439103 ")
  1. ;;584
  1. ;;21,"54569439104 ")
  1. ;;585
  1. ;;21,"54569448700 ")
  1. ;;586
  1. ;;21,"54569471200 ")
  1. ;;587
  1. ;;21,"54569471201 ")
  1. ;;588
  1. ;;21,"54569471300 ")
  1. ;;589
  1. ;;21,"54569471302 ")
  1. ;;590
  1. ;;21,"54569497200 ")
  1. ;;591
  1. ;;21,"54569518200 ")
  1. ;;592
  1. ;;21,"54569519300 ")
  1. ;;593
  1. ;;21,"54569535900 ")
  1. ;;594
  1. ;;21,"54569538600 ")
  1. ;;595
  1. ;;21,"54569538601 ")
  1. ;;596
  1. ;;21,"54569538602 ")
  1. ;;597
  1. ;;21,"54569538603 ")
  1. ;;598
  1. ;;21,"54569541800 ")
  1. ;;599
  1. ;;21,"54569547000 ")
  1. ;;600
  1. ;;21,"54569547001 ")
  1. ;;601
  1. ;;21,"54569547002 ")
  1. ;;602
  1. ;;21,"54569547003 ")
  1. ;;603
  1. ;;21,"54569547100 ")
  1. ;;604
  1. ;;21,"54569547101 ")
  1. ;;605
  1. ;;21,"54569547102 ")
  1. ;;606
  1. ;;21,"54569547103 ")
  1. ;;607
  1. ;;21,"54569547104 ")
  1. ;;608
  1. ;;21,"54569548700 ")
  1. ;;609
  1. ;;21,"54569548800 ")
  1. ;;610
  1. ;;21,"54569555300 ")
  1. ;;611
  1. ;;21,"54569557400 ")
  1. ;;612
  1. ;;21,"54569557401 ")
  1. ;;613
  1. ;;21,"54569557402 ")
  1. ;;614
  1. ;;21,"54569557403 ")
  1. ;;615
  1. ;;21,"54569557404 ")
  1. ;;616
  1. ;;21,"54569557405 ")
  1. ;;617
  1. ;;21,"54569557406 ")
  1. ;;618
  1. ;;21,"54569558300 ")
  1. ;;619
  1. ;;21,"54569558301 ")
  1. ;;620
  1. ;;21,"54569558400 ")
  1. ;;621
  1. ;;21,"54569558401 ")
  1. ;;622
  1. ;;21,"54569558402 ")
  1. ;;623
  1. ;;21,"54569563800 ")
  1. ;;624
  1. ;;21,"54569563801 ")
  1. ;;625
  1. ;;21,"54569568800 ")
  1. ;;626
  1. ;;21,"54569568900 ")
  1. ;;627
  1. ;;21,"54569569000 ")
  1. ;;628
  1. ;;21,"54569569800 ")
  1. ;;629
  1. ;;21,"54569569801 ")
  1. ;;630
  1. ;;21,"54569569802 ")
  1. ;;631
  1. ;;21,"54569572000 ")
  1. ;;632
  1. ;;21,"54569572100 ")
  1. ;;633
  1. ;;21,"54569572200 ")
  1. ;;634
  1. ;;21,"54569572300 ")
  1. ;;635
  1. ;;21,"54569572400 ")
  1. ;;636
  1. ;;21,"54569572500 ")
  1. ;;637
  1. ;;21,"54569572700 ")
  1. ;;638
  1. ;;21,"54569575400 ")
  1. ;;639
  1. ;;21,"54569575500 ")
  1. ;;640
  1. ;;21,"54569577400 ")
  1. ;;641
  1. ;;21,"54569577401 ")
  1. ;;642
  1. ;;21,"54569577402 ")
  1. ;;643
  1. ;;21,"54569577403 ")
  1. ;;644
  1. ;;21,"54569578400 ")
  1. ;;645
  1. ;;21,"54569578500 ")
  1. ;;646
  1. ;;21,"54569580600 ")
  1. ;;647
  1. ;;21,"54569580700 ")
  1. ;;648
  1. ;;21,"54569580800 ")
  1. ;;649
  1. ;;21,"54569580900 ")
  1. ;;650
  1. ;;21,"54569581000 ")
  1. ;;651
  1. ;;21,"54569581300 ")
  1. ;;652
  1. ;;21,"54569582900 ")
  1. ;;653
  1. ;;21,"54569583100 ")
  1. ;;654
  1. ;;21,"54569589900 ")
  1. ;;655
  1. ;;21,"54569591700 ")
  1. ;;656
  1. ;;21,"54569591800 ")
  1. ;;657
  1. ;;21,"54569591900 ")
  1. ;;658
  1. ;;21,"54569592000 ")
  1. ;;659
  1. ;;21,"54569592100 ")
  1. ;;660
  1. ;;21,"54569592101 ")
  1. ;;661
  1. ;;21,"54569603700 ")
  1. ;;662
  1. ;;21,"54569604300 ")
  1. ;;663
  1. ;;21,"54569608300 ")
  1. ;;664
  1. ;;21,"54569608400 ")
  1. ;;665
  1. ;;21,"54569619500 ")
  1. ;;666
  1. ;;21,"54569800400 ")
  1. ;;667
  1. ;;21,"54807025120 ")
  1. ;;668
  1. ;;21,"54868001801 ")
  1. ;;669
  1. ;;21,"54868001803 ")
  1. ;;670
  1. ;;21,"54868001804 ")
  1. ;;671
  1. ;;21,"54868001805 ")
  1. ;;672
  1. ;;21,"54868001806 ")
  1. ;;673
  1. ;;21,"54868001807 ")
  1. ;;674
  1. ;;21,"54868001809 ")
  1. ;;675
  1. ;;21,"54868002100 ")
  1. ;;676
  1. ;;21,"54868002101 ")
  1. ;;677
  1. ;;21,"54868002102 ")
  1. ;;678
  1. ;;21,"54868002104 ")
  1. ;;679
  1. ;;21,"54868002105 ")
  1. ;;680
  1. ;;21,"54868002106 ")
  1. ;;681
  1. ;;21,"54868002107 ")
  1. ;;682
  1. ;;21,"54868002108 ")
  1. ;;683
  1. ;;21,"54868002109 ")
  1. ;;684
  1. ;;21,"54868002300 ")
  1. ;;685
  1. ;;21,"54868002301 ")
  1. ;;686
  1. ;;21,"54868002302 ")
  1. ;;687
  1. ;;21,"54868002303 ")
  1. ;;688
  1. ;;21,"54868002304 ")
  1. ;;689
  1. ;;21,"54868002305 ")
  1. ;;690
  1. ;;21,"54868002306 ")
  1. ;;691
  1. ;;21,"54868002307 ")
  1. ;;692
  1. ;;21,"54868002308 ")
  1. ;;693
  1. ;;21,"54868002309 ")
  1. ;;694
  1. ;;21,"54868002314 ")
  1. ;;695
  1. ;;21,"54868002401 ")
  1. ;;696
  1. ;;21,"54868002403 ")
  1. ;;697
  1. ;;21,"54868002404 ")
  1. ;;698
  1. ;;21,"54868002405 ")
  1. ;;699
  1. ;;21,"54868002407 ")
  1. ;;700
  1. ;;21,"54868002408 ")
  1. ;;701
  1. ;;21,"54868002501 ")
  1. ;;702
  1. ;;21,"54868002503 ")
  1. ;;703
  1. ;;21,"54868002504 ")
  1. ;;704
  1. ;;21,"54868002505 ")
  1. ;;705
  1. ;;21,"54868002507 ")
  1. ;;706
  1. ;;21,"54868002509 ")
  1. ;;707
  1. ;;21,"54868015300 ")
  1. ;;708
  1. ;;21,"54868015301 ")
  1. ;;709
  1. ;;21,"54868015302 ")
  1. ;;710
  1. ;;21,"54868015303 ")
  1. ;;711
  1. ;;21,"54868015304 ")
  1. ;;712
  1. ;;21,"54868015305 ")
  1. ;;713
  1. ;;21,"54868015306 ")
  1. ;;714
  1. ;;21,"54868015307 ")
  1. ;;715
  1. ;;21,"54868015308 ")
  1. ;;716
  1. ;;21,"54868015309 ")
  1. ;;717
  1. ;;21,"54868015400 ")
  1. ;;718
  1. ;;21,"54868015401 ")
  1. ;;719
  1. ;;21,"54868015402 ")
  1. ;;720
  1. ;;21,"54868015403 ")
  1. ;;721
  1. ;;21,"54868015404 ")
  1. ;;722
  1. ;;21,"54868015405 ")
  1. ;;723
  1. ;;21,"54868015406 ")
  1. ;;724
  1. ;;21,"54868015407 ")
  1. ;;725
  1. ;;21,"54868015408 ")
  1. ;;726
  1. ;;21,"54868015409 ")
  1. ;;727
  1. ;;21,"54868015501 ")
  1. ;;728
  1. ;;21,"54868019100 ")
  1. ;;729
  1. ;;21,"54868019101 ")
  1. ;;730
  1. ;;21,"54868019102 ")
  1. ;;731
  1. ;;21,"54868019103 ")
  1. ;;732
  1. ;;21,"54868019104 ")
  1. ;;733
  1. ;;21,"54868019105 ")
  1. ;;734
  1. ;;21,"54868019106 ")
  1. ;;735
  1. ;;21,"54868019107 ")
  1. ;;736
  1. ;;21,"54868022500 ")
  1. ;;737
  1. ;;21,"54868022501 ")
  1. ;;738
  1. ;;21,"54868027600 ")
  1. ;;739
  1. ;;21,"54868027601 ")
  1. ;;740
  1. ;;21,"54868028600 ")
  1. ;;741
  1. ;;21,"54868041300 ")
  1. ;;742
  1. ;;21,"54868041302 ")
  1. ;;743
  1. ;;21,"54868041304 ")
  1. ;;744
  1. ;;21,"54868041306 ")
  1. ;;745
  1. ;;21,"54868041307 ")
  1. ;;746
  1. ;;21,"54868041308 ")
  1. ;;747
  1. ;;21,"54868053801 ")
  1. ;;748
  1. ;;21,"54868053802 ")
  1. ;;749
  1. ;;21,"54868055900 ")
  1. ;;750
  1. ;;21,"54868065400 ")
  1. ;;751
  1. ;;21,"54868093700 ")
  1. ;;752
  1. ;;21,"54868093701 ")
  1. ;;753
  1. ;;21,"54868093702 ")
  1. ;;754
  1. ;;21,"54868097100 ")
  1. ;;755
  1. ;;21,"54868097101 ")
  1. ;;756
  1. ;;21,"54868117100 ")
  1. ;;757
  1. ;;21,"54868117101 ")
  1. ;;758
  1. ;;21,"54868117102 ")
  1. ;;759
  1. ;;21,"54868117103 ")
  1. ;;760
  1. ;;21,"54868117300 ")
  1. ;;761
  1. ;;21,"54868117301 ")
  1. ;;762
  1. ;;21,"54868117302 ")
  1. ;;763
  1. ;;21,"54868117304 ")
  1. ;;764
  1. ;;21,"54868117305 ")
  1. ;;765
  1. ;;21,"54868117306 ")
  1. ;;766
  1. ;;21,"54868138000 ")
  1. ;;767
  1. ;;21,"54868138001 ")
  1. ;;768
  1. ;;21,"54868138002 ")
  1. ;;769
  1. ;;21,"54868138003 ")
  1. ;;770
  1. ;;21,"54868138501 ")
  1. ;;771
  1. ;;21,"54868138502 ")
  1. ;;772
  1. ;;21,"54868138700 ")
  1. ;;773
  1. ;;21,"54868138701 ")
  1. ;;774
  1. ;;21,"54868138702 ")
  1. ;;775
  1. ;;21,"54868138704 ")
  1. ;;776
  1. ;;21,"54868153500 ")
  1. ;;777
  1. ;;21,"54868161600 ")
  1. ;;778
  1. ;;21,"54868161601 ")
  1. ;;779
  1. ;;21,"54868161602 ")
  1. ;;780
  1. ;;21,"54868161603 ")
  1. ;;781
  1. ;;21,"54868178001 ")
  1. ;;782
  1. ;;21,"54868178002 ")
  1. ;;783
  1. ;;21,"54868185700 ")
  1. ;;784
  1. ;;21,"54868185701 ")
  1. ;;785
  1. ;;21,"54868185702 ")
  1. ;;786
  1. ;;21,"54868185705 ")
  1. ;;787
  1. ;;21,"54868185706 ")
  1. ;;788
  1. ;;21,"54868185707 ")
  1. ;;789
  1. ;;21,"54868186501 ")
  1. ;;790
  1. ;;21,"54868186502 ")
  1. ;;791
  1. ;;21,"54868186503 ")
  1. ;;792
  1. ;;21,"54868239000 ")
  1. ;;793
  1. ;;21,"54868239001 ")
  1. ;;794
  1. ;;21,"54868239100 ")
  1. ;;795
  1. ;;21,"54868239101 ")
  1. ;;796
  1. ;;21,"54868239102 ")
  1. ;;797
  1. ;;21,"54868239103 ")
  1. ;;798