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

BGPM5BDA.m

Go to the documentation of this file.
BGPM5BDA ;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,58016049110 ",.02)
 ;;58016049110
 ;;9002226.02101,"1044,58016049112 ",.01)
 ;;58016049112
 ;;9002226.02101,"1044,58016049112 ",.02)
 ;;58016049112
 ;;9002226.02101,"1044,58016049114 ",.01)
 ;;58016049114
 ;;9002226.02101,"1044,58016049114 ",.02)
 ;;58016049114
 ;;9002226.02101,"1044,58016049115 ",.01)
 ;;58016049115
 ;;9002226.02101,"1044,58016049115 ",.02)
 ;;58016049115
 ;;9002226.02101,"1044,58016049116 ",.01)
 ;;58016049116
 ;;9002226.02101,"1044,58016049116 ",.02)
 ;;58016049116
 ;;9002226.02101,"1044,58016049118 ",.01)
 ;;58016049118
 ;;9002226.02101,"1044,58016049118 ",.02)
 ;;58016049118
 ;;9002226.02101,"1044,58016049120 ",.01)
 ;;58016049120
 ;;9002226.02101,"1044,58016049120 ",.02)
 ;;58016049120
 ;;9002226.02101,"1044,58016049121 ",.01)
 ;;58016049121
 ;;9002226.02101,"1044,58016049121 ",.02)
 ;;58016049121
 ;;9002226.02101,"1044,58016049125 ",.01)
 ;;58016049125
 ;;9002226.02101,"1044,58016049125 ",.02)
 ;;58016049125
 ;;9002226.02101,"1044,58016049126 ",.01)
 ;;58016049126
 ;;9002226.02101,"1044,58016049126 ",.02)
 ;;58016049126
 ;;9002226.02101,"1044,58016049127 ",.01)
 ;;58016049127
 ;;9002226.02101,"1044,58016049127 ",.02)
 ;;58016049127
 ;;9002226.02101,"1044,58016049128 ",.01)
 ;;58016049128
 ;;9002226.02101,"1044,58016049128 ",.02)
 ;;58016049128
 ;;9002226.02101,"1044,58016049130 ",.01)
 ;;58016049130
 ;;9002226.02101,"1044,58016049130 ",.02)
 ;;58016049130
 ;;9002226.02101,"1044,58016049132 ",.01)
 ;;58016049132
 ;;9002226.02101,"1044,58016049132 ",.02)
 ;;58016049132
 ;;9002226.02101,"1044,58016049134 ",.01)
 ;;58016049134
 ;;9002226.02101,"1044,58016049134 ",.02)
 ;;58016049134
 ;;9002226.02101,"1044,58016049135 ",.01)
 ;;58016049135
 ;;9002226.02101,"1044,58016049135 ",.02)
 ;;58016049135
 ;;9002226.02101,"1044,58016049136 ",.01)
 ;;58016049136
 ;;9002226.02101,"1044,58016049136 ",.02)
 ;;58016049136
 ;;9002226.02101,"1044,58016049140 ",.01)
 ;;58016049140
 ;;9002226.02101,"1044,58016049140 ",.02)
 ;;58016049140
 ;;9002226.02101,"1044,58016049142 ",.01)
 ;;58016049142
 ;;9002226.02101,"1044,58016049142 ",.02)
 ;;58016049142
 ;;9002226.02101,"1044,58016049144 ",.01)
 ;;58016049144
 ;;9002226.02101,"1044,58016049144 ",.02)
 ;;58016049144
 ;;9002226.02101,"1044,58016049145 ",.01)
 ;;58016049145
 ;;9002226.02101,"1044,58016049145 ",.02)
 ;;58016049145
 ;;9002226.02101,"1044,58016049150 ",.01)
 ;;58016049150
 ;;9002226.02101,"1044,58016049150 ",.02)
 ;;58016049150
 ;;9002226.02101,"1044,58016049156 ",.01)
 ;;58016049156
 ;;9002226.02101,"1044,58016049156 ",.02)
 ;;58016049156
 ;;9002226.02101,"1044,58016049160 ",.01)
 ;;58016049160
 ;;9002226.02101,"1044,58016049160 ",.02)
 ;;58016049160
 ;;9002226.02101,"1044,58016049167 ",.01)
 ;;58016049167
 ;;9002226.02101,"1044,58016049167 ",.02)
 ;;58016049167
 ;;9002226.02101,"1044,58016049169 ",.01)
 ;;58016049169
 ;;9002226.02101,"1044,58016049169 ",.02)
 ;;58016049169
 ;;9002226.02101,"1044,58016049170 ",.01)
 ;;58016049170
 ;;9002226.02101,"1044,58016049170 ",.02)
 ;;58016049170
 ;;9002226.02101,"1044,58016049171 ",.01)
 ;;58016049171
 ;;9002226.02101,"1044,58016049171 ",.02)
 ;;58016049171
 ;;9002226.02101,"1044,58016049172 ",.01)
 ;;58016049172
 ;;9002226.02101,"1044,58016049172 ",.02)
 ;;58016049172
 ;;9002226.02101,"1044,58016049173 ",.01)
 ;;58016049173
 ;;9002226.02101,"1044,58016049173 ",.02)
 ;;58016049173
 ;;9002226.02101,"1044,58016049175 ",.01)
 ;;58016049175
 ;;9002226.02101,"1044,58016049175 ",.02)
 ;;58016049175
 ;;9002226.02101,"1044,58016049176 ",.01)
 ;;58016049176
 ;;9002226.02101,"1044,58016049176 ",.02)
 ;;58016049176
 ;;9002226.02101,"1044,58016049177 ",.01)
 ;;58016049177
 ;;9002226.02101,"1044,58016049177 ",.02)
 ;;58016049177
 ;;9002226.02101,"1044,58016049179 ",.01)
 ;;58016049179
 ;;9002226.02101,"1044,58016049179 ",.02)
 ;;58016049179
 ;;9002226.02101,"1044,58016049180 ",.01)
 ;;58016049180
 ;;9002226.02101,"1044,58016049180 ",.02)
 ;;58016049180
 ;;9002226.02101,"1044,58016049181 ",.01)
 ;;58016049181
 ;;9002226.02101,"1044,58016049181 ",.02)
 ;;58016049181
 ;;9002226.02101,"1044,58016049182 ",.01)
 ;;58016049182
 ;;9002226.02101,"1044,58016049182 ",.02)
 ;;58016049182
 ;;9002226.02101,"1044,58016049183 ",.01)
 ;;58016049183
 ;;9002226.02101,"1044,58016049183 ",.02)
 ;;58016049183
 ;;9002226.02101,"1044,58016049184 ",.01)
 ;;58016049184
 ;;9002226.02101,"1044,58016049184 ",.02)
 ;;58016049184
 ;;9002226.02101,"1044,58016049187 ",.01)
 ;;58016049187
 ;;9002226.02101,"1044,58016049187 ",.02)
 ;;58016049187
 ;;9002226.02101,"1044,58016049189 ",.01)
 ;;58016049189
 ;;9002226.02101,"1044,58016049189 ",.02)
 ;;58016049189
 ;;9002226.02101,"1044,58016049190 ",.01)
 ;;58016049190
 ;;9002226.02101,"1044,58016049190 ",.02)
 ;;58016049190
 ;;9002226.02101,"1044,58016049191 ",.01)
 ;;58016049191
 ;;9002226.02101,"1044,58016049191 ",.02)
 ;;58016049191
 ;;9002226.02101,"1044,58016049192 ",.01)
 ;;58016049192
 ;;9002226.02101,"1044,58016049192 ",.02)
 ;;58016049192
 ;;9002226.02101,"1044,58016049193 ",.01)
 ;;58016049193
 ;;9002226.02101,"1044,58016049193 ",.02)
 ;;58016049193
 ;;9002226.02101,"1044,58016049196 ",.01)
 ;;58016049196
 ;;9002226.02101,"1044,58016049196 ",.02)
 ;;58016049196
 ;;9002226.02101,"1044,58016049197 ",.01)
 ;;58016049197
 ;;9002226.02101,"1044,58016049197 ",.02)
 ;;58016049197
 ;;9002226.02101,"1044,58016049198 ",.01)
 ;;58016049198
 ;;9002226.02101,"1044,58016049198 ",.02)
 ;;58016049198
 ;;9002226.02101,"1044,58016049199 ",.01)
 ;;58016049199
 ;;9002226.02101,"1044,58016049199 ",.02)
 ;;58016049199
 ;;9002226.02101,"1044,58016050800 ",.01)
 ;;58016050800
 ;;9002226.02101,"1044,58016050800 ",.02)
 ;;58016050800
 ;;9002226.02101,"1044,58016050801 ",.01)
 ;;58016050801
 ;;9002226.02101,"1044,58016050801 ",.02)
 ;;58016050801
 ;;9002226.02101,"1044,58016050802 ",.01)
 ;;58016050802
 ;;9002226.02101,"1044,58016050802 ",.02)
 ;;58016050802
 ;;9002226.02101,"1044,58016050803 ",.01)
 ;;58016050803
 ;;9002226.02101,"1044,58016050803 ",.02)
 ;;58016050803
 ;;9002226.02101,"1044,58016050804 ",.01)
 ;;58016050804
 ;;9002226.02101,"1044,58016050804 ",.02)
 ;;58016050804
 ;;9002226.02101,"1044,58016050805 ",.01)
 ;;58016050805
 ;;9002226.02101,"1044,58016050805 ",.02)
 ;;58016050805
 ;;9002226.02101,"1044,58016050806 ",.01)
 ;;58016050806
 ;;9002226.02101,"1044,58016050806 ",.02)
 ;;58016050806
 ;;9002226.02101,"1044,58016050807 ",.01)
 ;;58016050807
 ;;9002226.02101,"1044,58016050807 ",.02)
 ;;58016050807
 ;;9002226.02101,"1044,58016050808 ",.01)
 ;;58016050808
 ;;9002226.02101,"1044,58016050808 ",.02)
 ;;58016050808
 ;;9002226.02101,"1044,58016050809 ",.01)
 ;;58016050809
 ;;9002226.02101,"1044,58016050809 ",.02)
 ;;58016050809
 ;;9002226.02101,"1044,58016050810 ",.01)
 ;;58016050810
 ;;9002226.02101,"1044,58016050810 ",.02)
 ;;58016050810
 ;;9002226.02101,"1044,58016050812 ",.01)
 ;;58016050812
 ;;9002226.02101,"1044,58016050812 ",.02)
 ;;58016050812
 ;;9002226.02101,"1044,58016050814 ",.01)
 ;;58016050814
 ;;9002226.02101,"1044,58016050814 ",.02)
 ;;58016050814
 ;;9002226.02101,"1044,58016050815 ",.01)
 ;;58016050815
 ;;9002226.02101,"1044,58016050815 ",.02)
 ;;58016050815
 ;;9002226.02101,"1044,58016050816 ",.01)
 ;;58016050816
 ;;9002226.02101,"1044,58016050816 ",.02)
 ;;58016050816
 ;;9002226.02101,"1044,58016050818 ",.01)
 ;;58016050818
 ;;9002226.02101,"1044,58016050818 ",.02)
 ;;58016050818
 ;;9002226.02101,"1044,58016050820 ",.01)
 ;;58016050820
 ;;9002226.02101,"1044,58016050820 ",.02)
 ;;58016050820
 ;;9002226.02101,"1044,58016050821 ",.01)
 ;;58016050821
 ;;9002226.02101,"1044,58016050821 ",.02)
 ;;58016050821
 ;;9002226.02101,"1044,58016050824 ",.01)
 ;;58016050824
 ;;9002226.02101,"1044,58016050824 ",.02)
 ;;58016050824
 ;;9002226.02101,"1044,58016050825 ",.01)
 ;;58016050825
 ;;9002226.02101,"1044,58016050825 ",.02)
 ;;58016050825
 ;;9002226.02101,"1044,58016050826 ",.01)
 ;;58016050826
 ;;9002226.02101,"1044,58016050826 ",.02)
 ;;58016050826
 ;;9002226.02101,"1044,58016050827 ",.01)
 ;;58016050827
 ;;9002226.02101,"1044,58016050827 ",.02)
 ;;58016050827
 ;;9002226.02101,"1044,58016050828 ",.01)
 ;;58016050828
 ;;9002226.02101,"1044,58016050828 ",.02)
 ;;58016050828
 ;;9002226.02101,"1044,58016050830 ",.01)
 ;;58016050830
 ;;9002226.02101,"1044,58016050830 ",.02)
 ;;58016050830
 ;;9002226.02101,"1044,58016050832 ",.01)
 ;;58016050832
 ;;9002226.02101,"1044,58016050832 ",.02)
 ;;58016050832
 ;;9002226.02101,"1044,58016050835 ",.01)
 ;;58016050835
 ;;9002226.02101,"1044,58016050835 ",.02)
 ;;58016050835
 ;;9002226.02101,"1044,58016050836 ",.01)
 ;;58016050836
 ;;9002226.02101,"1044,58016050836 ",.02)
 ;;58016050836
 ;;9002226.02101,"1044,58016050840 ",.01)
 ;;58016050840
 ;;9002226.02101,"1044,58016050840 ",.02)
 ;;58016050840
 ;;9002226.02101,"1044,58016050842 ",.01)
 ;;58016050842
 ;;9002226.02101,"1044,58016050842 ",.02)
 ;;58016050842
 ;;9002226.02101,"1044,58016050844 ",.01)
 ;;58016050844
 ;;9002226.02101,"1044,58016050844 ",.02)
 ;;58016050844
 ;;9002226.02101,"1044,58016050845 ",.01)
 ;;58016050845
 ;;9002226.02101,"1044,58016050845 ",.02)
 ;;58016050845
 ;;9002226.02101,"1044,58016050848 ",.01)
 ;;58016050848
 ;;9002226.02101,"1044,58016050848 ",.02)
 ;;58016050848
 ;;9002226.02101,"1044,58016050850 ",.01)
 ;;58016050850
 ;;9002226.02101,"1044,58016050850 ",.02)
 ;;58016050850
 ;;9002226.02101,"1044,58016050856 ",.01)
 ;;58016050856
 ;;9002226.02101,"1044,58016050856 ",.02)
 ;;58016050856
 ;;9002226.02101,"1044,58016050860 ",.01)
 ;;58016050860
 ;;9002226.02101,"1044,58016050860 ",.02)
 ;;58016050860
 ;;9002226.02101,"1044,58016050867 ",.01)
 ;;58016050867
 ;;9002226.02101,"1044,58016050867 ",.02)
 ;;58016050867
 ;;9002226.02101,"1044,58016050869 ",.01)
 ;;58016050869
 ;;9002226.02101,"1044,58016050869 ",.02)
 ;;58016050869
 ;;9002226.02101,"1044,58016050870 ",.01)
 ;;58016050870
 ;;9002226.02101,"1044,58016050870 ",.02)
 ;;58016050870
 ;;9002226.02101,"1044,58016050871 ",.01)
 ;;58016050871
 ;;9002226.02101,"1044,58016050871 ",.02)
 ;;58016050871
 ;;9002226.02101,"1044,58016050872 ",.01)
 ;;58016050872
 ;;9002226.02101,"1044,58016050872 ",.02)
 ;;58016050872
 ;;9002226.02101,"1044,58016050873 ",.01)
 ;;58016050873
 ;;9002226.02101,"1044,58016050873 ",.02)
 ;;58016050873
 ;;9002226.02101,"1044,58016050875 ",.01)
 ;;58016050875
 ;;9002226.02101,"1044,58016050875 ",.02)
 ;;58016050875
 ;;9002226.02101,"1044,58016050876 ",.01)
 ;;58016050876
 ;;9002226.02101,"1044,58016050876 ",.02)
 ;;58016050876
 ;;9002226.02101,"1044,58016050877 ",.01)
 ;;58016050877
 ;;9002226.02101,"1044,58016050877 ",.02)
 ;;58016050877
 ;;9002226.02101,"1044,58016050879 ",.01)
 ;;58016050879
 ;;9002226.02101,"1044,58016050879 ",.02)
 ;;58016050879
 ;;9002226.02101,"1044,58016050880 ",.01)
 ;;58016050880
 ;;9002226.02101,"1044,58016050880 ",.02)
 ;;58016050880
 ;;9002226.02101,"1044,58016050881 ",.01)
 ;;58016050881
 ;;9002226.02101,"1044,58016050881 ",.02)
 ;;58016050881
 ;;9002226.02101,"1044,58016050882 ",.01)
 ;;58016050882
 ;;9002226.02101,"1044,58016050882 ",.02)
 ;;58016050882
 ;;9002226.02101,"1044,58016050883 ",.01)
 ;;58016050883
 ;;9002226.02101,"1044,58016050883 ",.02)
 ;;58016050883
 ;;9002226.02101,"1044,58016050884 ",.01)
 ;;58016050884
 ;;9002226.02101,"1044,58016050884 ",.02)
 ;;58016050884
 ;;9002226.02101,"1044,58016050887 ",.01)
 ;;58016050887
 ;;9002226.02101,"1044,58016050887 ",.02)
 ;;58016050887
 ;;9002226.02101,"1044,58016050889 ",.01)
 ;;58016050889
 ;;9002226.02101,"1044,58016050889 ",.02)
 ;;58016050889