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