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

BGPM5AJY.m

Go to the documentation of this file.
  1. BGPM5AJY ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 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,"889,58016052807 ",.01)
  1. ;;58016052807
  1. ;;9002226.02101,"889,58016052807 ",.02)
  1. ;;58016052807
  1. ;;9002226.02101,"889,58016052808 ",.01)
  1. ;;58016052808
  1. ;;9002226.02101,"889,58016052808 ",.02)
  1. ;;58016052808
  1. ;;9002226.02101,"889,58016052809 ",.01)
  1. ;;58016052809
  1. ;;9002226.02101,"889,58016052809 ",.02)
  1. ;;58016052809
  1. ;;9002226.02101,"889,58016052810 ",.01)
  1. ;;58016052810
  1. ;;9002226.02101,"889,58016052810 ",.02)
  1. ;;58016052810
  1. ;;9002226.02101,"889,58016052812 ",.01)
  1. ;;58016052812
  1. ;;9002226.02101,"889,58016052812 ",.02)
  1. ;;58016052812
  1. ;;9002226.02101,"889,58016052814 ",.01)
  1. ;;58016052814
  1. ;;9002226.02101,"889,58016052814 ",.02)
  1. ;;58016052814
  1. ;;9002226.02101,"889,58016052815 ",.01)
  1. ;;58016052815
  1. ;;9002226.02101,"889,58016052815 ",.02)
  1. ;;58016052815
  1. ;;9002226.02101,"889,58016052816 ",.01)
  1. ;;58016052816
  1. ;;9002226.02101,"889,58016052816 ",.02)
  1. ;;58016052816
  1. ;;9002226.02101,"889,58016052818 ",.01)
  1. ;;58016052818
  1. ;;9002226.02101,"889,58016052818 ",.02)
  1. ;;58016052818
  1. ;;9002226.02101,"889,58016052820 ",.01)
  1. ;;58016052820
  1. ;;9002226.02101,"889,58016052820 ",.02)
  1. ;;58016052820
  1. ;;9002226.02101,"889,58016052821 ",.01)
  1. ;;58016052821
  1. ;;9002226.02101,"889,58016052821 ",.02)
  1. ;;58016052821
  1. ;;9002226.02101,"889,58016052824 ",.01)
  1. ;;58016052824
  1. ;;9002226.02101,"889,58016052824 ",.02)
  1. ;;58016052824
  1. ;;9002226.02101,"889,58016052825 ",.01)
  1. ;;58016052825
  1. ;;9002226.02101,"889,58016052825 ",.02)
  1. ;;58016052825
  1. ;;9002226.02101,"889,58016052826 ",.01)
  1. ;;58016052826
  1. ;;9002226.02101,"889,58016052826 ",.02)
  1. ;;58016052826
  1. ;;9002226.02101,"889,58016052827 ",.01)
  1. ;;58016052827
  1. ;;9002226.02101,"889,58016052827 ",.02)
  1. ;;58016052827
  1. ;;9002226.02101,"889,58016052828 ",.01)
  1. ;;58016052828
  1. ;;9002226.02101,"889,58016052828 ",.02)
  1. ;;58016052828
  1. ;;9002226.02101,"889,58016052830 ",.01)
  1. ;;58016052830
  1. ;;9002226.02101,"889,58016052830 ",.02)
  1. ;;58016052830
  1. ;;9002226.02101,"889,58016052832 ",.01)
  1. ;;58016052832
  1. ;;9002226.02101,"889,58016052832 ",.02)
  1. ;;58016052832
  1. ;;9002226.02101,"889,58016052835 ",.01)
  1. ;;58016052835
  1. ;;9002226.02101,"889,58016052835 ",.02)
  1. ;;58016052835
  1. ;;9002226.02101,"889,58016052836 ",.01)
  1. ;;58016052836
  1. ;;9002226.02101,"889,58016052836 ",.02)
  1. ;;58016052836
  1. ;;9002226.02101,"889,58016052840 ",.01)
  1. ;;58016052840
  1. ;;9002226.02101,"889,58016052840 ",.02)
  1. ;;58016052840
  1. ;;9002226.02101,"889,58016052842 ",.01)
  1. ;;58016052842
  1. ;;9002226.02101,"889,58016052842 ",.02)
  1. ;;58016052842
  1. ;;9002226.02101,"889,58016052844 ",.01)
  1. ;;58016052844
  1. ;;9002226.02101,"889,58016052844 ",.02)
  1. ;;58016052844
  1. ;;9002226.02101,"889,58016052845 ",.01)
  1. ;;58016052845
  1. ;;9002226.02101,"889,58016052845 ",.02)
  1. ;;58016052845
  1. ;;9002226.02101,"889,58016052848 ",.01)
  1. ;;58016052848
  1. ;;9002226.02101,"889,58016052848 ",.02)
  1. ;;58016052848
  1. ;;9002226.02101,"889,58016052850 ",.01)
  1. ;;58016052850
  1. ;;9002226.02101,"889,58016052850 ",.02)
  1. ;;58016052850
  1. ;;9002226.02101,"889,58016052856 ",.01)
  1. ;;58016052856
  1. ;;9002226.02101,"889,58016052856 ",.02)
  1. ;;58016052856
  1. ;;9002226.02101,"889,58016052860 ",.01)
  1. ;;58016052860
  1. ;;9002226.02101,"889,58016052860 ",.02)
  1. ;;58016052860
  1. ;;9002226.02101,"889,58016052867 ",.01)
  1. ;;58016052867
  1. ;;9002226.02101,"889,58016052867 ",.02)
  1. ;;58016052867
  1. ;;9002226.02101,"889,58016052869 ",.01)
  1. ;;58016052869
  1. ;;9002226.02101,"889,58016052869 ",.02)
  1. ;;58016052869
  1. ;;9002226.02101,"889,58016052870 ",.01)
  1. ;;58016052870
  1. ;;9002226.02101,"889,58016052870 ",.02)
  1. ;;58016052870
  1. ;;9002226.02101,"889,58016052871 ",.01)
  1. ;;58016052871
  1. ;;9002226.02101,"889,58016052871 ",.02)
  1. ;;58016052871
  1. ;;9002226.02101,"889,58016052872 ",.01)
  1. ;;58016052872
  1. ;;9002226.02101,"889,58016052872 ",.02)
  1. ;;58016052872
  1. ;;9002226.02101,"889,58016052873 ",.01)
  1. ;;58016052873
  1. ;;9002226.02101,"889,58016052873 ",.02)
  1. ;;58016052873
  1. ;;9002226.02101,"889,58016052875 ",.01)
  1. ;;58016052875
  1. ;;9002226.02101,"889,58016052875 ",.02)
  1. ;;58016052875
  1. ;;9002226.02101,"889,58016052876 ",.01)
  1. ;;58016052876
  1. ;;9002226.02101,"889,58016052876 ",.02)
  1. ;;58016052876
  1. ;;9002226.02101,"889,58016052877 ",.01)
  1. ;;58016052877
  1. ;;9002226.02101,"889,58016052877 ",.02)
  1. ;;58016052877
  1. ;;9002226.02101,"889,58016052879 ",.01)
  1. ;;58016052879
  1. ;;9002226.02101,"889,58016052879 ",.02)
  1. ;;58016052879
  1. ;;9002226.02101,"889,58016052880 ",.01)
  1. ;;58016052880
  1. ;;9002226.02101,"889,58016052880 ",.02)
  1. ;;58016052880
  1. ;;9002226.02101,"889,58016052881 ",.01)
  1. ;;58016052881
  1. ;;9002226.02101,"889,58016052881 ",.02)
  1. ;;58016052881
  1. ;;9002226.02101,"889,58016052882 ",.01)
  1. ;;58016052882
  1. ;;9002226.02101,"889,58016052882 ",.02)
  1. ;;58016052882
  1. ;;9002226.02101,"889,58016052883 ",.01)
  1. ;;58016052883
  1. ;;9002226.02101,"889,58016052883 ",.02)
  1. ;;58016052883
  1. ;;9002226.02101,"889,58016052884 ",.01)
  1. ;;58016052884
  1. ;;9002226.02101,"889,58016052884 ",.02)
  1. ;;58016052884
  1. ;;9002226.02101,"889,58016052887 ",.01)
  1. ;;58016052887
  1. ;;9002226.02101,"889,58016052887 ",.02)
  1. ;;58016052887
  1. ;;9002226.02101,"889,58016052889 ",.01)
  1. ;;58016052889
  1. ;;9002226.02101,"889,58016052889 ",.02)
  1. ;;58016052889
  1. ;;9002226.02101,"889,58016052890 ",.01)
  1. ;;58016052890
  1. ;;9002226.02101,"889,58016052890 ",.02)
  1. ;;58016052890
  1. ;;9002226.02101,"889,58016052891 ",.01)
  1. ;;58016052891
  1. ;;9002226.02101,"889,58016052891 ",.02)
  1. ;;58016052891
  1. ;;9002226.02101,"889,58016052892 ",.01)
  1. ;;58016052892
  1. ;;9002226.02101,"889,58016052892 ",.02)
  1. ;;58016052892
  1. ;;9002226.02101,"889,58016052893 ",.01)
  1. ;;58016052893
  1. ;;9002226.02101,"889,58016052893 ",.02)
  1. ;;58016052893
  1. ;;9002226.02101,"889,58016052896 ",.01)
  1. ;;58016052896
  1. ;;9002226.02101,"889,58016052896 ",.02)
  1. ;;58016052896
  1. ;;9002226.02101,"889,58016052897 ",.01)
  1. ;;58016052897
  1. ;;9002226.02101,"889,58016052897 ",.02)
  1. ;;58016052897
  1. ;;9002226.02101,"889,58016052898 ",.01)
  1. ;;58016052898
  1. ;;9002226.02101,"889,58016052898 ",.02)
  1. ;;58016052898
  1. ;;9002226.02101,"889,58016052899 ",.01)
  1. ;;58016052899
  1. ;;9002226.02101,"889,58016052899 ",.02)
  1. ;;58016052899
  1. ;;9002226.02101,"889,58016052900 ",.01)
  1. ;;58016052900
  1. ;;9002226.02101,"889,58016052900 ",.02)
  1. ;;58016052900
  1. ;;9002226.02101,"889,58016052910 ",.01)
  1. ;;58016052910
  1. ;;9002226.02101,"889,58016052910 ",.02)
  1. ;;58016052910
  1. ;;9002226.02101,"889,58016052930 ",.01)
  1. ;;58016052930
  1. ;;9002226.02101,"889,58016052930 ",.02)
  1. ;;58016052930
  1. ;;9002226.02101,"889,58016052950 ",.01)
  1. ;;58016052950
  1. ;;9002226.02101,"889,58016052950 ",.02)
  1. ;;58016052950
  1. ;;9002226.02101,"889,58016053100 ",.01)
  1. ;;58016053100
  1. ;;9002226.02101,"889,58016053100 ",.02)
  1. ;;58016053100
  1. ;;9002226.02101,"889,58016053101 ",.01)
  1. ;;58016053101
  1. ;;9002226.02101,"889,58016053101 ",.02)
  1. ;;58016053101
  1. ;;9002226.02101,"889,58016053102 ",.01)
  1. ;;58016053102
  1. ;;9002226.02101,"889,58016053102 ",.02)
  1. ;;58016053102
  1. ;;9002226.02101,"889,58016053103 ",.01)
  1. ;;58016053103
  1. ;;9002226.02101,"889,58016053103 ",.02)
  1. ;;58016053103
  1. ;;9002226.02101,"889,58016053104 ",.01)
  1. ;;58016053104
  1. ;;9002226.02101,"889,58016053104 ",.02)
  1. ;;58016053104
  1. ;;9002226.02101,"889,58016053105 ",.01)
  1. ;;58016053105
  1. ;;9002226.02101,"889,58016053105 ",.02)
  1. ;;58016053105
  1. ;;9002226.02101,"889,58016053106 ",.01)
  1. ;;58016053106
  1. ;;9002226.02101,"889,58016053106 ",.02)
  1. ;;58016053106
  1. ;;9002226.02101,"889,58016053107 ",.01)
  1. ;;58016053107
  1. ;;9002226.02101,"889,58016053107 ",.02)
  1. ;;58016053107
  1. ;;9002226.02101,"889,58016053108 ",.01)
  1. ;;58016053108
  1. ;;9002226.02101,"889,58016053108 ",.02)
  1. ;;58016053108
  1. ;;9002226.02101,"889,58016053109 ",.01)
  1. ;;58016053109
  1. ;;9002226.02101,"889,58016053109 ",.02)
  1. ;;58016053109
  1. ;;9002226.02101,"889,58016053110 ",.01)
  1. ;;58016053110
  1. ;;9002226.02101,"889,58016053110 ",.02)
  1. ;;58016053110
  1. ;;9002226.02101,"889,58016053112 ",.01)
  1. ;;58016053112
  1. ;;9002226.02101,"889,58016053112 ",.02)
  1. ;;58016053112
  1. ;;9002226.02101,"889,58016053114 ",.01)
  1. ;;58016053114
  1. ;;9002226.02101,"889,58016053114 ",.02)
  1. ;;58016053114
  1. ;;9002226.02101,"889,58016053115 ",.01)
  1. ;;58016053115
  1. ;;9002226.02101,"889,58016053115 ",.02)
  1. ;;58016053115
  1. ;;9002226.02101,"889,58016053116 ",.01)
  1. ;;58016053116
  1. ;;9002226.02101,"889,58016053116 ",.02)
  1. ;;58016053116
  1. ;;9002226.02101,"889,58016053118 ",.01)
  1. ;;58016053118
  1. ;;9002226.02101,"889,58016053118 ",.02)
  1. ;;58016053118
  1. ;;9002226.02101,"889,58016053120 ",.01)
  1. ;;58016053120
  1. ;;9002226.02101,"889,58016053120 ",.02)
  1. ;;58016053120
  1. ;;9002226.02101,"889,58016053121 ",.01)
  1. ;;58016053121
  1. ;;9002226.02101,"889,58016053121 ",.02)
  1. ;;58016053121
  1. ;;9002226.02101,"889,58016053124 ",.01)
  1. ;;58016053124
  1. ;;9002226.02101,"889,58016053124 ",.02)
  1. ;;58016053124
  1. ;;9002226.02101,"889,58016053125 ",.01)
  1. ;;58016053125
  1. ;;9002226.02101,"889,58016053125 ",.02)
  1. ;;58016053125
  1. ;;9002226.02101,"889,58016053126 ",.01)
  1. ;;58016053126
  1. ;;9002226.02101,"889,58016053126 ",.02)
  1. ;;58016053126
  1. ;;9002226.02101,"889,58016053127 ",.01)
  1. ;;58016053127
  1. ;;9002226.02101,"889,58016053127 ",.02)
  1. ;;58016053127
  1. ;;9002226.02101,"889,58016053128 ",.01)
  1. ;;58016053128
  1. ;;9002226.02101,"889,58016053128 ",.02)
  1. ;;58016053128
  1. ;;9002226.02101,"889,58016053130 ",.01)
  1. ;;58016053130
  1. ;;9002226.02101,"889,58016053130 ",.02)
  1. ;;58016053130
  1. ;;9002226.02101,"889,58016053132 ",.01)
  1. ;;58016053132
  1. ;;9002226.02101,"889,58016053132 ",.02)
  1. ;;58016053132
  1. ;;9002226.02101,"889,58016053135 ",.01)
  1. ;;58016053135
  1. ;;9002226.02101,"889,58016053135 ",.02)
  1. ;;58016053135
  1. ;;9002226.02101,"889,58016053136 ",.01)
  1. ;;58016053136
  1. ;;9002226.02101,"889,58016053136 ",.02)
  1. ;;58016053136
  1. ;;9002226.02101,"889,58016053140 ",.01)
  1. ;;58016053140
  1. ;;9002226.02101,"889,58016053140 ",.02)
  1. ;;58016053140
  1. ;;9002226.02101,"889,58016053142 ",.01)
  1. ;;58016053142
  1. ;;9002226.02101,"889,58016053142 ",.02)
  1. ;;58016053142
  1. ;;9002226.02101,"889,58016053144 ",.01)
  1. ;;58016053144
  1. ;;9002226.02101,"889,58016053144 ",.02)
  1. ;;58016053144
  1. ;;9002226.02101,"889,58016053145 ",.01)
  1. ;;58016053145
  1. ;;9002226.02101,"889,58016053145 ",.02)
  1. ;;58016053145
  1. ;;9002226.02101,"889,58016053148 ",.01)
  1. ;;58016053148
  1. ;;9002226.02101,"889,58016053148 ",.02)
  1. ;;58016053148
  1. ;;9002226.02101,"889,58016053150 ",.01)
  1. ;;58016053150
  1. ;;9002226.02101,"889,58016053150 ",.02)
  1. ;;58016053150
  1. ;;9002226.02101,"889,58016053156 ",.01)
  1. ;;58016053156
  1. ;;9002226.02101,"889,58016053156 ",.02)
  1. ;;58016053156
  1. ;;9002226.02101,"889,58016053160 ",.01)
  1. ;;58016053160
  1. ;;9002226.02101,"889,58016053160 ",.02)
  1. ;;58016053160
  1. ;;9002226.02101,"889,58016053167 ",.01)
  1. ;;58016053167
  1. ;;9002226.02101,"889,58016053167 ",.02)
  1. ;;58016053167
  1. ;;9002226.02101,"889,58016053169 ",.01)
  1. ;;58016053169
  1. ;;9002226.02101,"889,58016053169 ",.02)
  1. ;;58016053169
  1. ;;9002226.02101,"889,58016053170 ",.01)
  1. ;;58016053170
  1. ;;9002226.02101,"889,58016053170 ",.02)
  1. ;;58016053170
  1. ;;9002226.02101,"889,58016053171 ",.01)
  1. ;;58016053171
  1. ;;9002226.02101,"889,58016053171 ",.02)
  1. ;;58016053171
  1. ;;9002226.02101,"889,58016053172 ",.01)
  1. ;;58016053172
  1. ;;9002226.02101,"889,58016053172 ",.02)
  1. ;;58016053172
  1. ;;9002226.02101,"889,58016053173 ",.01)
  1. ;;58016053173
  1. ;;9002226.02101,"889,58016053173 ",.02)
  1. ;;58016053173
  1. ;;9002226.02101,"889,58016053175 ",.01)
  1. ;;58016053175
  1. ;;9002226.02101,"889,58016053175 ",.02)
  1. ;;58016053175
  1. ;;9002226.02101,"889,58016053176 ",.01)
  1. ;;58016053176
  1. ;;9002226.02101,"889,58016053176 ",.02)
  1. ;;58016053176
  1. ;;9002226.02101,"889,58016053177 ",.01)
  1. ;;58016053177
  1. ;;9002226.02101,"889,58016053177 ",.02)
  1. ;;58016053177
  1. ;;9002226.02101,"889,58016053179 ",.01)
  1. ;;58016053179
  1. ;;9002226.02101,"889,58016053179 ",.02)
  1. ;;58016053179