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

BGPM5BDF.m

Go to the documentation of this file.
BGPM5BDF ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON SEP 12, 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,"1044,58016081784 ",.01)
 ;;58016081784
 ;;9002226.02101,"1044,58016081784 ",.02)
 ;;58016081784
 ;;9002226.02101,"1044,58016081787 ",.01)
 ;;58016081787
 ;;9002226.02101,"1044,58016081787 ",.02)
 ;;58016081787
 ;;9002226.02101,"1044,58016081789 ",.01)
 ;;58016081789
 ;;9002226.02101,"1044,58016081789 ",.02)
 ;;58016081789
 ;;9002226.02101,"1044,58016081790 ",.01)
 ;;58016081790
 ;;9002226.02101,"1044,58016081790 ",.02)
 ;;58016081790
 ;;9002226.02101,"1044,58016081791 ",.01)
 ;;58016081791
 ;;9002226.02101,"1044,58016081791 ",.02)
 ;;58016081791
 ;;9002226.02101,"1044,58016081792 ",.01)
 ;;58016081792
 ;;9002226.02101,"1044,58016081792 ",.02)
 ;;58016081792
 ;;9002226.02101,"1044,58016081793 ",.01)
 ;;58016081793
 ;;9002226.02101,"1044,58016081793 ",.02)
 ;;58016081793
 ;;9002226.02101,"1044,58016081796 ",.01)
 ;;58016081796
 ;;9002226.02101,"1044,58016081796 ",.02)
 ;;58016081796
 ;;9002226.02101,"1044,58016081797 ",.01)
 ;;58016081797
 ;;9002226.02101,"1044,58016081797 ",.02)
 ;;58016081797
 ;;9002226.02101,"1044,58016081798 ",.01)
 ;;58016081798
 ;;9002226.02101,"1044,58016081798 ",.02)
 ;;58016081798
 ;;9002226.02101,"1044,58016081799 ",.01)
 ;;58016081799
 ;;9002226.02101,"1044,58016081799 ",.02)
 ;;58016081799
 ;;9002226.02101,"1044,58016081800 ",.01)
 ;;58016081800
 ;;9002226.02101,"1044,58016081800 ",.02)
 ;;58016081800
 ;;9002226.02101,"1044,58016081801 ",.01)
 ;;58016081801
 ;;9002226.02101,"1044,58016081801 ",.02)
 ;;58016081801
 ;;9002226.02101,"1044,58016081802 ",.01)
 ;;58016081802
 ;;9002226.02101,"1044,58016081802 ",.02)
 ;;58016081802
 ;;9002226.02101,"1044,58016081803 ",.01)
 ;;58016081803
 ;;9002226.02101,"1044,58016081803 ",.02)
 ;;58016081803
 ;;9002226.02101,"1044,58016081804 ",.01)
 ;;58016081804
 ;;9002226.02101,"1044,58016081804 ",.02)
 ;;58016081804
 ;;9002226.02101,"1044,58016081805 ",.01)
 ;;58016081805
 ;;9002226.02101,"1044,58016081805 ",.02)
 ;;58016081805
 ;;9002226.02101,"1044,58016081806 ",.01)
 ;;58016081806
 ;;9002226.02101,"1044,58016081806 ",.02)
 ;;58016081806
 ;;9002226.02101,"1044,58016081807 ",.01)
 ;;58016081807
 ;;9002226.02101,"1044,58016081807 ",.02)
 ;;58016081807
 ;;9002226.02101,"1044,58016081808 ",.01)
 ;;58016081808
 ;;9002226.02101,"1044,58016081808 ",.02)
 ;;58016081808
 ;;9002226.02101,"1044,58016081809 ",.01)
 ;;58016081809
 ;;9002226.02101,"1044,58016081809 ",.02)
 ;;58016081809
 ;;9002226.02101,"1044,58016081810 ",.01)
 ;;58016081810
 ;;9002226.02101,"1044,58016081810 ",.02)
 ;;58016081810
 ;;9002226.02101,"1044,58016081812 ",.01)
 ;;58016081812
 ;;9002226.02101,"1044,58016081812 ",.02)
 ;;58016081812
 ;;9002226.02101,"1044,58016081814 ",.01)
 ;;58016081814
 ;;9002226.02101,"1044,58016081814 ",.02)
 ;;58016081814
 ;;9002226.02101,"1044,58016081815 ",.01)
 ;;58016081815
 ;;9002226.02101,"1044,58016081815 ",.02)
 ;;58016081815
 ;;9002226.02101,"1044,58016081816 ",.01)
 ;;58016081816
 ;;9002226.02101,"1044,58016081816 ",.02)
 ;;58016081816
 ;;9002226.02101,"1044,58016081818 ",.01)
 ;;58016081818
 ;;9002226.02101,"1044,58016081818 ",.02)
 ;;58016081818
 ;;9002226.02101,"1044,58016081820 ",.01)
 ;;58016081820
 ;;9002226.02101,"1044,58016081820 ",.02)
 ;;58016081820
 ;;9002226.02101,"1044,58016081821 ",.01)
 ;;58016081821
 ;;9002226.02101,"1044,58016081821 ",.02)
 ;;58016081821
 ;;9002226.02101,"1044,58016081824 ",.01)
 ;;58016081824
 ;;9002226.02101,"1044,58016081824 ",.02)
 ;;58016081824
 ;;9002226.02101,"1044,58016081825 ",.01)
 ;;58016081825
 ;;9002226.02101,"1044,58016081825 ",.02)
 ;;58016081825
 ;;9002226.02101,"1044,58016081826 ",.01)
 ;;58016081826
 ;;9002226.02101,"1044,58016081826 ",.02)
 ;;58016081826
 ;;9002226.02101,"1044,58016081827 ",.01)
 ;;58016081827
 ;;9002226.02101,"1044,58016081827 ",.02)
 ;;58016081827
 ;;9002226.02101,"1044,58016081828 ",.01)
 ;;58016081828
 ;;9002226.02101,"1044,58016081828 ",.02)
 ;;58016081828
 ;;9002226.02101,"1044,58016081830 ",.01)
 ;;58016081830
 ;;9002226.02101,"1044,58016081830 ",.02)
 ;;58016081830
 ;;9002226.02101,"1044,58016081832 ",.01)
 ;;58016081832
 ;;9002226.02101,"1044,58016081832 ",.02)
 ;;58016081832
 ;;9002226.02101,"1044,58016081835 ",.01)
 ;;58016081835
 ;;9002226.02101,"1044,58016081835 ",.02)
 ;;58016081835
 ;;9002226.02101,"1044,58016081836 ",.01)
 ;;58016081836
 ;;9002226.02101,"1044,58016081836 ",.02)
 ;;58016081836
 ;;9002226.02101,"1044,58016081840 ",.01)
 ;;58016081840
 ;;9002226.02101,"1044,58016081840 ",.02)
 ;;58016081840
 ;;9002226.02101,"1044,58016081842 ",.01)
 ;;58016081842
 ;;9002226.02101,"1044,58016081842 ",.02)
 ;;58016081842
 ;;9002226.02101,"1044,58016081844 ",.01)
 ;;58016081844
 ;;9002226.02101,"1044,58016081844 ",.02)
 ;;58016081844
 ;;9002226.02101,"1044,58016081845 ",.01)
 ;;58016081845
 ;;9002226.02101,"1044,58016081845 ",.02)
 ;;58016081845
 ;;9002226.02101,"1044,58016081848 ",.01)
 ;;58016081848
 ;;9002226.02101,"1044,58016081848 ",.02)
 ;;58016081848
 ;;9002226.02101,"1044,58016081850 ",.01)
 ;;58016081850
 ;;9002226.02101,"1044,58016081850 ",.02)
 ;;58016081850
 ;;9002226.02101,"1044,58016081856 ",.01)
 ;;58016081856
 ;;9002226.02101,"1044,58016081856 ",.02)
 ;;58016081856
 ;;9002226.02101,"1044,58016081860 ",.01)
 ;;58016081860
 ;;9002226.02101,"1044,58016081860 ",.02)
 ;;58016081860
 ;;9002226.02101,"1044,58016081867 ",.01)
 ;;58016081867
 ;;9002226.02101,"1044,58016081867 ",.02)
 ;;58016081867
 ;;9002226.02101,"1044,58016081869 ",.01)
 ;;58016081869
 ;;9002226.02101,"1044,58016081869 ",.02)
 ;;58016081869
 ;;9002226.02101,"1044,58016081870 ",.01)
 ;;58016081870
 ;;9002226.02101,"1044,58016081870 ",.02)
 ;;58016081870
 ;;9002226.02101,"1044,58016081871 ",.01)
 ;;58016081871
 ;;9002226.02101,"1044,58016081871 ",.02)
 ;;58016081871
 ;;9002226.02101,"1044,58016081872 ",.01)
 ;;58016081872
 ;;9002226.02101,"1044,58016081872 ",.02)
 ;;58016081872
 ;;9002226.02101,"1044,58016081873 ",.01)
 ;;58016081873
 ;;9002226.02101,"1044,58016081873 ",.02)
 ;;58016081873
 ;;9002226.02101,"1044,58016081875 ",.01)
 ;;58016081875
 ;;9002226.02101,"1044,58016081875 ",.02)
 ;;58016081875
 ;;9002226.02101,"1044,58016081876 ",.01)
 ;;58016081876
 ;;9002226.02101,"1044,58016081876 ",.02)
 ;;58016081876
 ;;9002226.02101,"1044,58016081877 ",.01)
 ;;58016081877
 ;;9002226.02101,"1044,58016081877 ",.02)
 ;;58016081877
 ;;9002226.02101,"1044,58016081879 ",.01)
 ;;58016081879
 ;;9002226.02101,"1044,58016081879 ",.02)
 ;;58016081879
 ;;9002226.02101,"1044,58016081880 ",.01)
 ;;58016081880
 ;;9002226.02101,"1044,58016081880 ",.02)
 ;;58016081880
 ;;9002226.02101,"1044,58016081881 ",.01)
 ;;58016081881
 ;;9002226.02101,"1044,58016081881 ",.02)
 ;;58016081881
 ;;9002226.02101,"1044,58016081882 ",.01)
 ;;58016081882
 ;;9002226.02101,"1044,58016081882 ",.02)
 ;;58016081882
 ;;9002226.02101,"1044,58016081883 ",.01)
 ;;58016081883
 ;;9002226.02101,"1044,58016081883 ",.02)
 ;;58016081883
 ;;9002226.02101,"1044,58016081884 ",.01)
 ;;58016081884
 ;;9002226.02101,"1044,58016081884 ",.02)
 ;;58016081884
 ;;9002226.02101,"1044,58016081887 ",.01)
 ;;58016081887
 ;;9002226.02101,"1044,58016081887 ",.02)
 ;;58016081887
 ;;9002226.02101,"1044,58016081889 ",.01)
 ;;58016081889
 ;;9002226.02101,"1044,58016081889 ",.02)
 ;;58016081889
 ;;9002226.02101,"1044,58016081890 ",.01)
 ;;58016081890
 ;;9002226.02101,"1044,58016081890 ",.02)
 ;;58016081890
 ;;9002226.02101,"1044,58016081891 ",.01)
 ;;58016081891
 ;;9002226.02101,"1044,58016081891 ",.02)
 ;;58016081891
 ;;9002226.02101,"1044,58016081892 ",.01)
 ;;58016081892
 ;;9002226.02101,"1044,58016081892 ",.02)
 ;;58016081892
 ;;9002226.02101,"1044,58016081893 ",.01)
 ;;58016081893
 ;;9002226.02101,"1044,58016081893 ",.02)
 ;;58016081893
 ;;9002226.02101,"1044,58016081896 ",.01)
 ;;58016081896
 ;;9002226.02101,"1044,58016081896 ",.02)
 ;;58016081896
 ;;9002226.02101,"1044,58016081897 ",.01)
 ;;58016081897
 ;;9002226.02101,"1044,58016081897 ",.02)
 ;;58016081897
 ;;9002226.02101,"1044,58016081898 ",.01)
 ;;58016081898
 ;;9002226.02101,"1044,58016081898 ",.02)
 ;;58016081898
 ;;9002226.02101,"1044,58016081899 ",.01)
 ;;58016081899
 ;;9002226.02101,"1044,58016081899 ",.02)
 ;;58016081899
 ;;9002226.02101,"1044,58016083900 ",.01)
 ;;58016083900
 ;;9002226.02101,"1044,58016083900 ",.02)
 ;;58016083900
 ;;9002226.02101,"1044,58016083902 ",.01)
 ;;58016083902
 ;;9002226.02101,"1044,58016083902 ",.02)
 ;;58016083902
 ;;9002226.02101,"1044,58016083912 ",.01)
 ;;58016083912
 ;;9002226.02101,"1044,58016083912 ",.02)
 ;;58016083912
 ;;9002226.02101,"1044,58016083915 ",.01)
 ;;58016083915
 ;;9002226.02101,"1044,58016083915 ",.02)
 ;;58016083915
 ;;9002226.02101,"1044,58016083920 ",.01)
 ;;58016083920
 ;;9002226.02101,"1044,58016083920 ",.02)
 ;;58016083920
 ;;9002226.02101,"1044,58016083930 ",.01)
 ;;58016083930
 ;;9002226.02101,"1044,58016083930 ",.02)
 ;;58016083930
 ;;9002226.02101,"1044,58016083960 ",.01)
 ;;58016083960
 ;;9002226.02101,"1044,58016083960 ",.02)
 ;;58016083960
 ;;9002226.02101,"1044,58016083990 ",.01)
 ;;58016083990
 ;;9002226.02101,"1044,58016083990 ",.02)
 ;;58016083990
 ;;9002226.02101,"1044,58016084100 ",.01)
 ;;58016084100
 ;;9002226.02101,"1044,58016084100 ",.02)
 ;;58016084100
 ;;9002226.02101,"1044,58016084102 ",.01)
 ;;58016084102
 ;;9002226.02101,"1044,58016084102 ",.02)
 ;;58016084102
 ;;9002226.02101,"1044,58016084110 ",.01)
 ;;58016084110
 ;;9002226.02101,"1044,58016084110 ",.02)
 ;;58016084110
 ;;9002226.02101,"1044,58016084112 ",.01)
 ;;58016084112
 ;;9002226.02101,"1044,58016084112 ",.02)
 ;;58016084112
 ;;9002226.02101,"1044,58016084115 ",.01)
 ;;58016084115
 ;;9002226.02101,"1044,58016084115 ",.02)
 ;;58016084115
 ;;9002226.02101,"1044,58016084120 ",.01)
 ;;58016084120
 ;;9002226.02101,"1044,58016084120 ",.02)
 ;;58016084120
 ;;9002226.02101,"1044,58016084130 ",.01)
 ;;58016084130
 ;;9002226.02101,"1044,58016084130 ",.02)
 ;;58016084130
 ;;9002226.02101,"1044,58016084160 ",.01)
 ;;58016084160
 ;;9002226.02101,"1044,58016084160 ",.02)
 ;;58016084160
 ;;9002226.02101,"1044,58016084190 ",.01)
 ;;58016084190
 ;;9002226.02101,"1044,58016084190 ",.02)
 ;;58016084190
 ;;9002226.02101,"1044,58016085800 ",.01)
 ;;58016085800
 ;;9002226.02101,"1044,58016085800 ",.02)
 ;;58016085800
 ;;9002226.02101,"1044,58016085814 ",.01)
 ;;58016085814
 ;;9002226.02101,"1044,58016085814 ",.02)
 ;;58016085814
 ;;9002226.02101,"1044,58016085821 ",.01)
 ;;58016085821
 ;;9002226.02101,"1044,58016085821 ",.02)
 ;;58016085821
 ;;9002226.02101,"1044,58016085828 ",.01)
 ;;58016085828
 ;;9002226.02101,"1044,58016085828 ",.02)
 ;;58016085828
 ;;9002226.02101,"1044,58016085830 ",.01)
 ;;58016085830
 ;;9002226.02101,"1044,58016085830 ",.02)
 ;;58016085830
 ;;9002226.02101,"1044,58016085840 ",.01)
 ;;58016085840
 ;;9002226.02101,"1044,58016085840 ",.02)
 ;;58016085840
 ;;9002226.02101,"1044,58016085850 ",.01)
 ;;58016085850
 ;;9002226.02101,"1044,58016085850 ",.02)
 ;;58016085850
 ;;9002226.02101,"1044,58016085860 ",.01)
 ;;58016085860
 ;;9002226.02101,"1044,58016085860 ",.02)
 ;;58016085860
 ;;9002226.02101,"1044,58016085899 ",.01)
 ;;58016085899
 ;;9002226.02101,"1044,58016085899 ",.02)
 ;;58016085899
 ;;9002226.02101,"1044,58016086200 ",.01)
 ;;58016086200
 ;;9002226.02101,"1044,58016086200 ",.02)
 ;;58016086200
 ;;9002226.02101,"1044,58016086202 ",.01)
 ;;58016086202
 ;;9002226.02101,"1044,58016086202 ",.02)
 ;;58016086202
 ;;9002226.02101,"1044,58016086203 ",.01)
 ;;58016086203
 ;;9002226.02101,"1044,58016086203 ",.02)
 ;;58016086203
 ;;9002226.02101,"1044,58016086212 ",.01)
 ;;58016086212