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

BGPM5AYR.m

Go to the documentation of this file.
  1. BGPM5AYR ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON AUG 31, 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. ;;9002226.02101,"1027,74425 ",.01)
  1. ;;74425
  1. ;;9002226.02101,"1027,74425 ",.02)
  1. ;;74425
  1. ;;9002226.02101,"1027,74430 ",.01)
  1. ;;74430
  1. ;;9002226.02101,"1027,74430 ",.02)
  1. ;;74430
  1. ;;9002226.02101,"1027,74440 ",.01)
  1. ;;74440
  1. ;;9002226.02101,"1027,74440 ",.02)
  1. ;;74440
  1. ;;9002226.02101,"1027,74445 ",.01)
  1. ;;74445
  1. ;;9002226.02101,"1027,74445 ",.02)
  1. ;;74445
  1. ;;9002226.02101,"1027,74450 ",.01)
  1. ;;74450
  1. ;;9002226.02101,"1027,74450 ",.02)
  1. ;;74450
  1. ;;9002226.02101,"1027,74455 ",.01)
  1. ;;74455
  1. ;;9002226.02101,"1027,74455 ",.02)
  1. ;;74455
  1. ;;9002226.02101,"1027,74470 ",.01)
  1. ;;74470
  1. ;;9002226.02101,"1027,74470 ",.02)
  1. ;;74470
  1. ;;9002226.02101,"1027,74475 ",.01)
  1. ;;74475
  1. ;;9002226.02101,"1027,74475 ",.02)
  1. ;;74475
  1. ;;9002226.02101,"1027,74480 ",.01)
  1. ;;74480
  1. ;;9002226.02101,"1027,74480 ",.02)
  1. ;;74480
  1. ;;9002226.02101,"1027,74485 ",.01)
  1. ;;74485
  1. ;;9002226.02101,"1027,74485 ",.02)
  1. ;;74485
  1. ;;9002226.02101,"1027,74710 ",.01)
  1. ;;74710
  1. ;;9002226.02101,"1027,74710 ",.02)
  1. ;;74710
  1. ;;9002226.02101,"1027,74740 ",.01)
  1. ;;74740
  1. ;;9002226.02101,"1027,74740 ",.02)
  1. ;;74740
  1. ;;9002226.02101,"1027,74742 ",.01)
  1. ;;74742
  1. ;;9002226.02101,"1027,74742 ",.02)
  1. ;;74742
  1. ;;9002226.02101,"1027,74775 ",.01)
  1. ;;74775
  1. ;;9002226.02101,"1027,74775 ",.02)
  1. ;;74775
  1. ;;9002226.02101,"1027,75557 ",.01)
  1. ;;75557
  1. ;;9002226.02101,"1027,75557 ",.02)
  1. ;;75557
  1. ;;9002226.02101,"1027,75558 ",.01)
  1. ;;75558
  1. ;;9002226.02101,"1027,75558 ",.02)
  1. ;;75558
  1. ;;9002226.02101,"1027,75559 ",.01)
  1. ;;75559
  1. ;;9002226.02101,"1027,75559 ",.02)
  1. ;;75559
  1. ;;9002226.02101,"1027,75560 ",.01)
  1. ;;75560
  1. ;;9002226.02101,"1027,75560 ",.02)
  1. ;;75560
  1. ;;9002226.02101,"1027,75561 ",.01)
  1. ;;75561
  1. ;;9002226.02101,"1027,75561 ",.02)
  1. ;;75561
  1. ;;9002226.02101,"1027,75562 ",.01)
  1. ;;75562
  1. ;;9002226.02101,"1027,75562 ",.02)
  1. ;;75562
  1. ;;9002226.02101,"1027,75563 ",.01)
  1. ;;75563
  1. ;;9002226.02101,"1027,75563 ",.02)
  1. ;;75563
  1. ;;9002226.02101,"1027,75564 ",.01)
  1. ;;75564
  1. ;;9002226.02101,"1027,75564 ",.02)
  1. ;;75564
  1. ;;9002226.02101,"1027,75600 ",.01)
  1. ;;75600
  1. ;;9002226.02101,"1027,75600 ",.02)
  1. ;;75600
  1. ;;9002226.02101,"1027,75605 ",.01)
  1. ;;75605
  1. ;;9002226.02101,"1027,75605 ",.02)
  1. ;;75605
  1. ;;9002226.02101,"1027,75625 ",.01)
  1. ;;75625
  1. ;;9002226.02101,"1027,75625 ",.02)
  1. ;;75625
  1. ;;9002226.02101,"1027,75630 ",.01)
  1. ;;75630
  1. ;;9002226.02101,"1027,75630 ",.02)
  1. ;;75630
  1. ;;9002226.02101,"1027,75635 ",.01)
  1. ;;75635
  1. ;;9002226.02101,"1027,75635 ",.02)
  1. ;;75635
  1. ;;9002226.02101,"1027,75650 ",.01)
  1. ;;75650
  1. ;;9002226.02101,"1027,75650 ",.02)
  1. ;;75650
  1. ;;9002226.02101,"1027,75658 ",.01)
  1. ;;75658
  1. ;;9002226.02101,"1027,75658 ",.02)
  1. ;;75658
  1. ;;9002226.02101,"1027,75660 ",.01)
  1. ;;75660
  1. ;;9002226.02101,"1027,75660 ",.02)
  1. ;;75660
  1. ;;9002226.02101,"1027,75662 ",.01)
  1. ;;75662
  1. ;;9002226.02101,"1027,75662 ",.02)
  1. ;;75662
  1. ;;9002226.02101,"1027,75665 ",.01)
  1. ;;75665
  1. ;;9002226.02101,"1027,75665 ",.02)
  1. ;;75665
  1. ;;9002226.02101,"1027,75671 ",.01)
  1. ;;75671
  1. ;;9002226.02101,"1027,75671 ",.02)
  1. ;;75671
  1. ;;9002226.02101,"1027,75676 ",.01)
  1. ;;75676
  1. ;;9002226.02101,"1027,75676 ",.02)
  1. ;;75676
  1. ;;9002226.02101,"1027,75680 ",.01)
  1. ;;75680
  1. ;;9002226.02101,"1027,75680 ",.02)
  1. ;;75680
  1. ;;9002226.02101,"1027,75685 ",.01)
  1. ;;75685
  1. ;;9002226.02101,"1027,75685 ",.02)
  1. ;;75685
  1. ;;9002226.02101,"1027,75705 ",.01)
  1. ;;75705
  1. ;;9002226.02101,"1027,75705 ",.02)
  1. ;;75705
  1. ;;9002226.02101,"1027,75710 ",.01)
  1. ;;75710
  1. ;;9002226.02101,"1027,75710 ",.02)
  1. ;;75710
  1. ;;9002226.02101,"1027,75716 ",.01)
  1. ;;75716
  1. ;;9002226.02101,"1027,75716 ",.02)
  1. ;;75716
  1. ;;9002226.02101,"1027,75722 ",.01)
  1. ;;75722
  1. ;;9002226.02101,"1027,75722 ",.02)
  1. ;;75722
  1. ;;9002226.02101,"1027,75724 ",.01)
  1. ;;75724
  1. ;;9002226.02101,"1027,75724 ",.02)
  1. ;;75724
  1. ;;9002226.02101,"1027,75726 ",.01)
  1. ;;75726
  1. ;;9002226.02101,"1027,75726 ",.02)
  1. ;;75726
  1. ;;9002226.02101,"1027,75731 ",.01)
  1. ;;75731
  1. ;;9002226.02101,"1027,75731 ",.02)
  1. ;;75731
  1. ;;9002226.02101,"1027,75733 ",.01)
  1. ;;75733
  1. ;;9002226.02101,"1027,75733 ",.02)
  1. ;;75733
  1. ;;9002226.02101,"1027,75736 ",.01)
  1. ;;75736
  1. ;;9002226.02101,"1027,75736 ",.02)
  1. ;;75736
  1. ;;9002226.02101,"1027,75741 ",.01)
  1. ;;75741
  1. ;;9002226.02101,"1027,75741 ",.02)
  1. ;;75741
  1. ;;9002226.02101,"1027,75743 ",.01)
  1. ;;75743
  1. ;;9002226.02101,"1027,75743 ",.02)
  1. ;;75743
  1. ;;9002226.02101,"1027,75746 ",.01)
  1. ;;75746
  1. ;;9002226.02101,"1027,75746 ",.02)
  1. ;;75746
  1. ;;9002226.02101,"1027,75756 ",.01)
  1. ;;75756
  1. ;;9002226.02101,"1027,75756 ",.02)
  1. ;;75756
  1. ;;9002226.02101,"1027,75774 ",.01)
  1. ;;75774
  1. ;;9002226.02101,"1027,75774 ",.02)
  1. ;;75774
  1. ;;9002226.02101,"1027,75790 ",.01)
  1. ;;75790
  1. ;;9002226.02101,"1027,75790 ",.02)
  1. ;;75790
  1. ;;9002226.02101,"1027,75801 ",.01)
  1. ;;75801
  1. ;;9002226.02101,"1027,75801 ",.02)
  1. ;;75801
  1. ;;9002226.02101,"1027,75803 ",.01)
  1. ;;75803
  1. ;;9002226.02101,"1027,75803 ",.02)
  1. ;;75803
  1. ;;9002226.02101,"1027,75805 ",.01)
  1. ;;75805
  1. ;;9002226.02101,"1027,75805 ",.02)
  1. ;;75805
  1. ;;9002226.02101,"1027,75807 ",.01)
  1. ;;75807
  1. ;;9002226.02101,"1027,75807 ",.02)
  1. ;;75807
  1. ;;9002226.02101,"1027,75809 ",.01)
  1. ;;75809
  1. ;;9002226.02101,"1027,75809 ",.02)
  1. ;;75809
  1. ;;9002226.02101,"1027,75810 ",.01)
  1. ;;75810
  1. ;;9002226.02101,"1027,75810 ",.02)
  1. ;;75810
  1. ;;9002226.02101,"1027,75820 ",.01)
  1. ;;75820
  1. ;;9002226.02101,"1027,75820 ",.02)
  1. ;;75820
  1. ;;9002226.02101,"1027,75822 ",.01)
  1. ;;75822
  1. ;;9002226.02101,"1027,75822 ",.02)
  1. ;;75822
  1. ;;9002226.02101,"1027,75825 ",.01)
  1. ;;75825
  1. ;;9002226.02101,"1027,75825 ",.02)
  1. ;;75825
  1. ;;9002226.02101,"1027,75827 ",.01)
  1. ;;75827
  1. ;;9002226.02101,"1027,75827 ",.02)
  1. ;;75827
  1. ;;9002226.02101,"1027,75831 ",.01)
  1. ;;75831
  1. ;;9002226.02101,"1027,75831 ",.02)
  1. ;;75831
  1. ;;9002226.02101,"1027,75833 ",.01)
  1. ;;75833
  1. ;;9002226.02101,"1027,75833 ",.02)
  1. ;;75833
  1. ;;9002226.02101,"1027,75840 ",.01)
  1. ;;75840
  1. ;;9002226.02101,"1027,75840 ",.02)
  1. ;;75840
  1. ;;9002226.02101,"1027,75842 ",.01)
  1. ;;75842
  1. ;;9002226.02101,"1027,75842 ",.02)
  1. ;;75842
  1. ;;9002226.02101,"1027,75860 ",.01)
  1. ;;75860
  1. ;;9002226.02101,"1027,75860 ",.02)
  1. ;;75860
  1. ;;9002226.02101,"1027,75870 ",.01)
  1. ;;75870
  1. ;;9002226.02101,"1027,75870 ",.02)
  1. ;;75870
  1. ;;9002226.02101,"1027,75872 ",.01)
  1. ;;75872
  1. ;;9002226.02101,"1027,75872 ",.02)
  1. ;;75872
  1. ;;9002226.02101,"1027,75880 ",.01)
  1. ;;75880
  1. ;;9002226.02101,"1027,75880 ",.02)
  1. ;;75880
  1. ;;9002226.02101,"1027,75885 ",.01)
  1. ;;75885
  1. ;;9002226.02101,"1027,75885 ",.02)
  1. ;;75885
  1. ;;9002226.02101,"1027,75887 ",.01)
  1. ;;75887
  1. ;;9002226.02101,"1027,75887 ",.02)
  1. ;;75887
  1. ;;9002226.02101,"1027,75889 ",.01)
  1. ;;75889
  1. ;;9002226.02101,"1027,75889 ",.02)
  1. ;;75889
  1. ;;9002226.02101,"1027,75891 ",.01)
  1. ;;75891
  1. ;;9002226.02101,"1027,75891 ",.02)
  1. ;;75891
  1. ;;9002226.02101,"1027,75893 ",.01)
  1. ;;75893
  1. ;;9002226.02101,"1027,75893 ",.02)
  1. ;;75893
  1. ;;9002226.02101,"1027,75894 ",.01)
  1. ;;75894
  1. ;;9002226.02101,"1027,75894 ",.02)
  1. ;;75894
  1. ;;9002226.02101,"1027,75896 ",.01)
  1. ;;75896
  1. ;;9002226.02101,"1027,75896 ",.02)
  1. ;;75896
  1. ;;9002226.02101,"1027,75898 ",.01)
  1. ;;75898
  1. ;;9002226.02101,"1027,75898 ",.02)
  1. ;;75898
  1. ;;9002226.02101,"1027,75900 ",.01)
  1. ;;75900
  1. ;;9002226.02101,"1027,75900 ",.02)
  1. ;;75900
  1. ;;9002226.02101,"1027,75901 ",.01)
  1. ;;75901
  1. ;;9002226.02101,"1027,75901 ",.02)
  1. ;;75901
  1. ;;9002226.02101,"1027,75902 ",.01)
  1. ;;75902
  1. ;;9002226.02101,"1027,75902 ",.02)
  1. ;;75902
  1. ;;9002226.02101,"1027,75940 ",.01)
  1. ;;75940
  1. ;;9002226.02101,"1027,75940 ",.02)
  1. ;;75940
  1. ;;9002226.02101,"1027,75945 ",.01)
  1. ;;75945
  1. ;;9002226.02101,"1027,75945 ",.02)
  1. ;;75945
  1. ;;9002226.02101,"1027,75946 ",.01)
  1. ;;75946
  1. ;;9002226.02101,"1027,75946 ",.02)
  1. ;;75946
  1. ;;9002226.02101,"1027,75952 ",.01)
  1. ;;75952
  1. ;;9002226.02101,"1027,75952 ",.02)
  1. ;;75952
  1. ;;9002226.02101,"1027,75953 ",.01)
  1. ;;75953
  1. ;;9002226.02101,"1027,75953 ",.02)
  1. ;;75953
  1. ;;9002226.02101,"1027,75954 ",.01)
  1. ;;75954
  1. ;;9002226.02101,"1027,75954 ",.02)
  1. ;;75954
  1. ;;9002226.02101,"1027,75956 ",.01)
  1. ;;75956
  1. ;;9002226.02101,"1027,75956 ",.02)
  1. ;;75956
  1. ;;9002226.02101,"1027,75957 ",.01)
  1. ;;75957
  1. ;;9002226.02101,"1027,75957 ",.02)
  1. ;;75957
  1. ;;9002226.02101,"1027,75958 ",.01)
  1. ;;75958
  1. ;;9002226.02101,"1027,75958 ",.02)
  1. ;;75958
  1. ;;9002226.02101,"1027,75959 ",.01)
  1. ;;75959
  1. ;;9002226.02101,"1027,75959 ",.02)
  1. ;;75959
  1. ;;9002226.02101,"1027,75960 ",.01)
  1. ;;75960
  1. ;;9002226.02101,"1027,75960 ",.02)
  1. ;;75960
  1. ;;9002226.02101,"1027,75961 ",.01)
  1. ;;75961
  1. ;;9002226.02101,"1027,75961 ",.02)
  1. ;;75961
  1. ;;9002226.02101,"1027,75962 ",.01)
  1. ;;75962
  1. ;;9002226.02101,"1027,75962 ",.02)
  1. ;;75962
  1. ;;9002226.02101,"1027,75964 ",.01)
  1. ;;75964
  1. ;;9002226.02101,"1027,75964 ",.02)
  1. ;;75964
  1. ;;9002226.02101,"1027,75966 ",.01)
  1. ;;75966
  1. ;;9002226.02101,"1027,75966 ",.02)
  1. ;;75966
  1. ;;9002226.02101,"1027,75968 ",.01)
  1. ;;75968
  1. ;;9002226.02101,"1027,75968 ",.02)
  1. ;;75968
  1. ;;9002226.02101,"1027,75970 ",.01)
  1. ;;75970
  1. ;;9002226.02101,"1027,75970 ",.02)
  1. ;;75970
  1. ;;9002226.02101,"1027,75978 ",.01)
  1. ;;75978
  1. ;;9002226.02101,"1027,75978 ",.02)
  1. ;;75978
  1. ;;9002226.02101,"1027,75980 ",.01)
  1. ;;75980
  1. ;;9002226.02101,"1027,75980 ",.02)
  1. ;;75980
  1. ;;9002226.02101,"1027,75982 ",.01)
  1. ;;75982
  1. ;;9002226.02101,"1027,75982 ",.02)
  1. ;;75982
  1. ;;9002226.02101,"1027,75984 ",.01)
  1. ;;75984
  1. ;;9002226.02101,"1027,75984 ",.02)
  1. ;;75984
  1. ;;9002226.02101,"1027,75989 ",.01)
  1. ;;75989
  1. ;;9002226.02101,"1027,75989 ",.02)
  1. ;;75989
  1. ;;9002226.02101,"1027,75992 ",.01)
  1. ;;75992
  1. ;;9002226.02101,"1027,75992 ",.02)
  1. ;;75992
  1. ;;9002226.02101,"1027,75993 ",.01)
  1. ;;75993
  1. ;;9002226.02101,"1027,75993 ",.02)
  1. ;;75993
  1. ;;9002226.02101,"1027,75994 ",.01)
  1. ;;75994
  1. ;;9002226.02101,"1027,75994 ",.02)
  1. ;;75994
  1. ;;9002226.02101,"1027,75995 ",.01)
  1. ;;75995
  1. ;;9002226.02101,"1027,75995 ",.02)
  1. ;;75995
  1. ;;9002226.02101,"1027,75996 ",.01)
  1. ;;75996
  1. ;;9002226.02101,"1027,75996 ",.02)
  1. ;;75996
  1. ;;9002226.02101,"1027,76000 ",.01)
  1. ;;76000
  1. ;;9002226.02101,"1027,76000 ",.02)
  1. ;;76000
  1. ;;9002226.02101,"1027,76001 ",.01)
  1. ;;76001
  1. ;;9002226.02101,"1027,76001 ",.02)
  1. ;;76001
  1. ;;9002226.02101,"1027,76010 ",.01)
  1. ;;76010
  1. ;;9002226.02101,"1027,76010 ",.02)
  1. ;;76010
  1. ;;9002226.02101,"1027,76080 ",.01)
  1. ;;76080
  1. ;;9002226.02101,"1027,76080 ",.02)
  1. ;;76080
  1. ;;9002226.02101,"1027,76098 ",.01)
  1. ;;76098
  1. ;;9002226.02101,"1027,76098 ",.02)
  1. ;;76098
  1. ;;9002226.02101,"1027,76100 ",.01)
  1. ;;76100
  1. ;;9002226.02101,"1027,76100 ",.02)
  1. ;;76100
  1. ;;9002226.02101,"1027,76101 ",.01)
  1. ;;76101
  1. ;;9002226.02101,"1027,76101 ",.02)
  1. ;;76101
  1. ;;9002226.02101,"1027,76102 ",.01)
  1. ;;76102
  1. ;;9002226.02101,"1027,76102 ",.02)
  1. ;;76102
  1. ;;9002226.02101,"1027,76120 ",.01)
  1. ;;76120
  1. ;;9002226.02101,"1027,76120 ",.02)
  1. ;;76120
  1. ;;9002226.02101,"1027,76125 ",.01)
  1. ;;76125
  1. ;;9002226.02101,"1027,76125 ",.02)
  1. ;;76125
  1. ;;9002226.02101,"1027,76140 ",.01)
  1. ;;76140
  1. ;;9002226.02101,"1027,76140 ",.02)
  1. ;;76140
  1. ;;9002226.02101,"1027,76150 ",.01)
  1. ;;76150
  1. ;;9002226.02101,"1027,76150 ",.02)
  1. ;;76150
  1. ;;9002226.02101,"1027,76376 ",.01)
  1. ;;76376
  1. ;;9002226.02101,"1027,76376 ",.02)
  1. ;;76376
  1. ;;9002226.02101,"1027,76377 ",.01)
  1. ;;76377
  1. ;;9002226.02101,"1027,76377 ",.02)
  1. ;;76377
  1. ;;9002226.02101,"1027,76380 ",.01)
  1. ;;76380
  1. ;;9002226.02101,"1027,76380 ",.02)
  1. ;;76380
  1. ;;9002226.02101,"1027,76390 ",.01)
  1. ;;76390
  1. ;;9002226.02101,"1027,76390 ",.02)
  1. ;;76390
  1. ;;9002226.02101,"1027,76496 ",.01)
  1. ;;76496
  1. ;;9002226.02101,"1027,76496 ",.02)
  1. ;;76496