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

BGPM5ARR.m

Go to the documentation of this file.
BGPM5ARR ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON AUG 16, 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,"1005,58016078070 ",.01)
 ;;58016078070
 ;;9002226.02101,"1005,58016078070 ",.02)
 ;;58016078070
 ;;9002226.02101,"1005,58016078071 ",.01)
 ;;58016078071
 ;;9002226.02101,"1005,58016078071 ",.02)
 ;;58016078071
 ;;9002226.02101,"1005,58016078072 ",.01)
 ;;58016078072
 ;;9002226.02101,"1005,58016078072 ",.02)
 ;;58016078072
 ;;9002226.02101,"1005,58016078073 ",.01)
 ;;58016078073
 ;;9002226.02101,"1005,58016078073 ",.02)
 ;;58016078073
 ;;9002226.02101,"1005,58016078075 ",.01)
 ;;58016078075
 ;;9002226.02101,"1005,58016078075 ",.02)
 ;;58016078075
 ;;9002226.02101,"1005,58016078076 ",.01)
 ;;58016078076
 ;;9002226.02101,"1005,58016078076 ",.02)
 ;;58016078076
 ;;9002226.02101,"1005,58016078077 ",.01)
 ;;58016078077
 ;;9002226.02101,"1005,58016078077 ",.02)
 ;;58016078077
 ;;9002226.02101,"1005,58016078079 ",.01)
 ;;58016078079
 ;;9002226.02101,"1005,58016078079 ",.02)
 ;;58016078079
 ;;9002226.02101,"1005,58016078080 ",.01)
 ;;58016078080
 ;;9002226.02101,"1005,58016078080 ",.02)
 ;;58016078080
 ;;9002226.02101,"1005,58016078081 ",.01)
 ;;58016078081
 ;;9002226.02101,"1005,58016078081 ",.02)
 ;;58016078081
 ;;9002226.02101,"1005,58016078082 ",.01)
 ;;58016078082
 ;;9002226.02101,"1005,58016078082 ",.02)
 ;;58016078082
 ;;9002226.02101,"1005,58016078083 ",.01)
 ;;58016078083
 ;;9002226.02101,"1005,58016078083 ",.02)
 ;;58016078083
 ;;9002226.02101,"1005,58016078084 ",.01)
 ;;58016078084
 ;;9002226.02101,"1005,58016078084 ",.02)
 ;;58016078084
 ;;9002226.02101,"1005,58016078087 ",.01)
 ;;58016078087
 ;;9002226.02101,"1005,58016078087 ",.02)
 ;;58016078087
 ;;9002226.02101,"1005,58016078089 ",.01)
 ;;58016078089
 ;;9002226.02101,"1005,58016078089 ",.02)
 ;;58016078089
 ;;9002226.02101,"1005,58016078090 ",.01)
 ;;58016078090
 ;;9002226.02101,"1005,58016078090 ",.02)
 ;;58016078090
 ;;9002226.02101,"1005,58016078091 ",.01)
 ;;58016078091
 ;;9002226.02101,"1005,58016078091 ",.02)
 ;;58016078091
 ;;9002226.02101,"1005,58016078092 ",.01)
 ;;58016078092
 ;;9002226.02101,"1005,58016078092 ",.02)
 ;;58016078092
 ;;9002226.02101,"1005,58016078093 ",.01)
 ;;58016078093
 ;;9002226.02101,"1005,58016078093 ",.02)
 ;;58016078093
 ;;9002226.02101,"1005,58016078096 ",.01)
 ;;58016078096
 ;;9002226.02101,"1005,58016078096 ",.02)
 ;;58016078096
 ;;9002226.02101,"1005,58016078097 ",.01)
 ;;58016078097
 ;;9002226.02101,"1005,58016078097 ",.02)
 ;;58016078097
 ;;9002226.02101,"1005,58016078098 ",.01)
 ;;58016078098
 ;;9002226.02101,"1005,58016078098 ",.02)
 ;;58016078098
 ;;9002226.02101,"1005,58016078099 ",.01)
 ;;58016078099
 ;;9002226.02101,"1005,58016078099 ",.02)
 ;;58016078099
 ;;9002226.02101,"1005,58016079801 ",.01)
 ;;58016079801
 ;;9002226.02101,"1005,58016079801 ",.02)
 ;;58016079801
 ;;9002226.02101,"1005,58016079802 ",.01)
 ;;58016079802
 ;;9002226.02101,"1005,58016079802 ",.02)
 ;;58016079802
 ;;9002226.02101,"1005,58016079803 ",.01)
 ;;58016079803
 ;;9002226.02101,"1005,58016079803 ",.02)
 ;;58016079803
 ;;9002226.02101,"1005,58016079804 ",.01)
 ;;58016079804
 ;;9002226.02101,"1005,58016079804 ",.02)
 ;;58016079804
 ;;9002226.02101,"1005,58016079805 ",.01)
 ;;58016079805
 ;;9002226.02101,"1005,58016079805 ",.02)
 ;;58016079805
 ;;9002226.02101,"1005,58016079806 ",.01)
 ;;58016079806
 ;;9002226.02101,"1005,58016079806 ",.02)
 ;;58016079806
 ;;9002226.02101,"1005,58016079807 ",.01)
 ;;58016079807
 ;;9002226.02101,"1005,58016079807 ",.02)
 ;;58016079807
 ;;9002226.02101,"1005,58016079808 ",.01)
 ;;58016079808
 ;;9002226.02101,"1005,58016079808 ",.02)
 ;;58016079808
 ;;9002226.02101,"1005,58016079809 ",.01)
 ;;58016079809
 ;;9002226.02101,"1005,58016079809 ",.02)
 ;;58016079809
 ;;9002226.02101,"1005,58016079810 ",.01)
 ;;58016079810
 ;;9002226.02101,"1005,58016079810 ",.02)
 ;;58016079810
 ;;9002226.02101,"1005,58016079812 ",.01)
 ;;58016079812
 ;;9002226.02101,"1005,58016079812 ",.02)
 ;;58016079812
 ;;9002226.02101,"1005,58016079814 ",.01)
 ;;58016079814
 ;;9002226.02101,"1005,58016079814 ",.02)
 ;;58016079814
 ;;9002226.02101,"1005,58016079815 ",.01)
 ;;58016079815
 ;;9002226.02101,"1005,58016079815 ",.02)
 ;;58016079815
 ;;9002226.02101,"1005,58016079816 ",.01)
 ;;58016079816
 ;;9002226.02101,"1005,58016079816 ",.02)
 ;;58016079816
 ;;9002226.02101,"1005,58016079818 ",.01)
 ;;58016079818
 ;;9002226.02101,"1005,58016079818 ",.02)
 ;;58016079818
 ;;9002226.02101,"1005,58016079820 ",.01)
 ;;58016079820
 ;;9002226.02101,"1005,58016079820 ",.02)
 ;;58016079820
 ;;9002226.02101,"1005,58016079821 ",.01)
 ;;58016079821
 ;;9002226.02101,"1005,58016079821 ",.02)
 ;;58016079821
 ;;9002226.02101,"1005,58016079824 ",.01)
 ;;58016079824
 ;;9002226.02101,"1005,58016079824 ",.02)
 ;;58016079824
 ;;9002226.02101,"1005,58016079825 ",.01)
 ;;58016079825
 ;;9002226.02101,"1005,58016079825 ",.02)
 ;;58016079825
 ;;9002226.02101,"1005,58016079826 ",.01)
 ;;58016079826
 ;;9002226.02101,"1005,58016079826 ",.02)
 ;;58016079826
 ;;9002226.02101,"1005,58016079827 ",.01)
 ;;58016079827
 ;;9002226.02101,"1005,58016079827 ",.02)
 ;;58016079827
 ;;9002226.02101,"1005,58016079828 ",.01)
 ;;58016079828
 ;;9002226.02101,"1005,58016079828 ",.02)
 ;;58016079828
 ;;9002226.02101,"1005,58016079832 ",.01)
 ;;58016079832
 ;;9002226.02101,"1005,58016079832 ",.02)
 ;;58016079832
 ;;9002226.02101,"1005,58016079835 ",.01)
 ;;58016079835
 ;;9002226.02101,"1005,58016079835 ",.02)
 ;;58016079835
 ;;9002226.02101,"1005,58016079836 ",.01)
 ;;58016079836
 ;;9002226.02101,"1005,58016079836 ",.02)
 ;;58016079836
 ;;9002226.02101,"1005,58016079840 ",.01)
 ;;58016079840
 ;;9002226.02101,"1005,58016079840 ",.02)
 ;;58016079840
 ;;9002226.02101,"1005,58016079842 ",.01)
 ;;58016079842
 ;;9002226.02101,"1005,58016079842 ",.02)
 ;;58016079842
 ;;9002226.02101,"1005,58016079844 ",.01)
 ;;58016079844
 ;;9002226.02101,"1005,58016079844 ",.02)
 ;;58016079844
 ;;9002226.02101,"1005,58016079845 ",.01)
 ;;58016079845
 ;;9002226.02101,"1005,58016079845 ",.02)
 ;;58016079845
 ;;9002226.02101,"1005,58016079848 ",.01)
 ;;58016079848
 ;;9002226.02101,"1005,58016079848 ",.02)
 ;;58016079848
 ;;9002226.02101,"1005,58016079850 ",.01)
 ;;58016079850
 ;;9002226.02101,"1005,58016079850 ",.02)
 ;;58016079850
 ;;9002226.02101,"1005,58016079867 ",.01)
 ;;58016079867
 ;;9002226.02101,"1005,58016079867 ",.02)
 ;;58016079867
 ;;9002226.02101,"1005,58016079869 ",.01)
 ;;58016079869
 ;;9002226.02101,"1005,58016079869 ",.02)
 ;;58016079869
 ;;9002226.02101,"1005,58016079870 ",.01)
 ;;58016079870
 ;;9002226.02101,"1005,58016079870 ",.02)
 ;;58016079870
 ;;9002226.02101,"1005,58016079871 ",.01)
 ;;58016079871
 ;;9002226.02101,"1005,58016079871 ",.02)
 ;;58016079871
 ;;9002226.02101,"1005,58016079872 ",.01)
 ;;58016079872
 ;;9002226.02101,"1005,58016079872 ",.02)
 ;;58016079872
 ;;9002226.02101,"1005,58016079873 ",.01)
 ;;58016079873
 ;;9002226.02101,"1005,58016079873 ",.02)
 ;;58016079873
 ;;9002226.02101,"1005,58016079875 ",.01)
 ;;58016079875
 ;;9002226.02101,"1005,58016079875 ",.02)
 ;;58016079875
 ;;9002226.02101,"1005,58016079876 ",.01)
 ;;58016079876
 ;;9002226.02101,"1005,58016079876 ",.02)
 ;;58016079876
 ;;9002226.02101,"1005,58016079877 ",.01)
 ;;58016079877
 ;;9002226.02101,"1005,58016079877 ",.02)
 ;;58016079877
 ;;9002226.02101,"1005,58016079879 ",.01)
 ;;58016079879
 ;;9002226.02101,"1005,58016079879 ",.02)
 ;;58016079879
 ;;9002226.02101,"1005,58016079880 ",.01)
 ;;58016079880
 ;;9002226.02101,"1005,58016079880 ",.02)
 ;;58016079880
 ;;9002226.02101,"1005,58016079881 ",.01)
 ;;58016079881
 ;;9002226.02101,"1005,58016079881 ",.02)
 ;;58016079881
 ;;9002226.02101,"1005,58016079882 ",.01)
 ;;58016079882
 ;;9002226.02101,"1005,58016079882 ",.02)
 ;;58016079882
 ;;9002226.02101,"1005,58016079883 ",.01)
 ;;58016079883
 ;;9002226.02101,"1005,58016079883 ",.02)
 ;;58016079883
 ;;9002226.02101,"1005,58016079884 ",.01)
 ;;58016079884
 ;;9002226.02101,"1005,58016079884 ",.02)
 ;;58016079884
 ;;9002226.02101,"1005,58016079887 ",.01)
 ;;58016079887
 ;;9002226.02101,"1005,58016079887 ",.02)
 ;;58016079887
 ;;9002226.02101,"1005,58016079889 ",.01)
 ;;58016079889
 ;;9002226.02101,"1005,58016079889 ",.02)
 ;;58016079889
 ;;9002226.02101,"1005,58016079890 ",.01)
 ;;58016079890
 ;;9002226.02101,"1005,58016079890 ",.02)
 ;;58016079890
 ;;9002226.02101,"1005,58016079891 ",.01)
 ;;58016079891
 ;;9002226.02101,"1005,58016079891 ",.02)
 ;;58016079891
 ;;9002226.02101,"1005,58016079892 ",.01)
 ;;58016079892
 ;;9002226.02101,"1005,58016079892 ",.02)
 ;;58016079892
 ;;9002226.02101,"1005,58016079893 ",.01)
 ;;58016079893
 ;;9002226.02101,"1005,58016079893 ",.02)
 ;;58016079893
 ;;9002226.02101,"1005,58016079896 ",.01)
 ;;58016079896
 ;;9002226.02101,"1005,58016079896 ",.02)
 ;;58016079896
 ;;9002226.02101,"1005,58016079897 ",.01)
 ;;58016079897
 ;;9002226.02101,"1005,58016079897 ",.02)
 ;;58016079897
 ;;9002226.02101,"1005,58016079898 ",.01)
 ;;58016079898
 ;;9002226.02101,"1005,58016079898 ",.02)
 ;;58016079898
 ;;9002226.02101,"1005,58016079899 ",.01)
 ;;58016079899
 ;;9002226.02101,"1005,58016079899 ",.02)
 ;;58016079899
 ;;9002226.02101,"1005,5801608 ",.01)
 ;;5801608
 ;;9002226.02101,"1005,5801608 ",.02)
 ;;5801608
 ;;9002226.02101,"1005,58016088700 ",.01)
 ;;58016088700
 ;;9002226.02101,"1005,58016088700 ",.02)
 ;;58016088700
 ;;9002226.02101,"1005,58016088701 ",.01)
 ;;58016088701
 ;;9002226.02101,"1005,58016088701 ",.02)
 ;;58016088701
 ;;9002226.02101,"1005,58016088702 ",.01)
 ;;58016088702
 ;;9002226.02101,"1005,58016088702 ",.02)
 ;;58016088702
 ;;9002226.02101,"1005,58016088703 ",.01)
 ;;58016088703
 ;;9002226.02101,"1005,58016088703 ",.02)
 ;;58016088703
 ;;9002226.02101,"1005,58016088704 ",.01)
 ;;58016088704
 ;;9002226.02101,"1005,58016088704 ",.02)
 ;;58016088704
 ;;9002226.02101,"1005,58016088705 ",.01)
 ;;58016088705
 ;;9002226.02101,"1005,58016088705 ",.02)
 ;;58016088705
 ;;9002226.02101,"1005,58016088706 ",.01)
 ;;58016088706
 ;;9002226.02101,"1005,58016088706 ",.02)
 ;;58016088706
 ;;9002226.02101,"1005,58016088707 ",.01)
 ;;58016088707
 ;;9002226.02101,"1005,58016088707 ",.02)
 ;;58016088707
 ;;9002226.02101,"1005,58016088708 ",.01)
 ;;58016088708
 ;;9002226.02101,"1005,58016088708 ",.02)
 ;;58016088708
 ;;9002226.02101,"1005,58016088709 ",.01)
 ;;58016088709
 ;;9002226.02101,"1005,58016088709 ",.02)
 ;;58016088709
 ;;9002226.02101,"1005,58016088710 ",.01)
 ;;58016088710
 ;;9002226.02101,"1005,58016088710 ",.02)
 ;;58016088710
 ;;9002226.02101,"1005,58016088712 ",.01)
 ;;58016088712
 ;;9002226.02101,"1005,58016088712 ",.02)
 ;;58016088712
 ;;9002226.02101,"1005,58016088714 ",.01)
 ;;58016088714
 ;;9002226.02101,"1005,58016088714 ",.02)
 ;;58016088714
 ;;9002226.02101,"1005,58016088715 ",.01)
 ;;58016088715
 ;;9002226.02101,"1005,58016088715 ",.02)
 ;;58016088715
 ;;9002226.02101,"1005,58016088716 ",.01)
 ;;58016088716
 ;;9002226.02101,"1005,58016088716 ",.02)
 ;;58016088716
 ;;9002226.02101,"1005,58016088718 ",.01)
 ;;58016088718
 ;;9002226.02101,"1005,58016088718 ",.02)
 ;;58016088718
 ;;9002226.02101,"1005,58016088720 ",.01)
 ;;58016088720
 ;;9002226.02101,"1005,58016088720 ",.02)
 ;;58016088720
 ;;9002226.02101,"1005,58016088721 ",.01)
 ;;58016088721
 ;;9002226.02101,"1005,58016088721 ",.02)
 ;;58016088721
 ;;9002226.02101,"1005,58016088724 ",.01)
 ;;58016088724
 ;;9002226.02101,"1005,58016088724 ",.02)
 ;;58016088724
 ;;9002226.02101,"1005,58016088725 ",.01)
 ;;58016088725
 ;;9002226.02101,"1005,58016088725 ",.02)
 ;;58016088725
 ;;9002226.02101,"1005,58016088726 ",.01)
 ;;58016088726