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