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

BGPM5BDC.m

Go to the documentation of this file.
BGPM5BDC ;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,58016056750 ",.02)
 ;;58016056750
 ;;9002226.02101,"1044,58016056756 ",.01)
 ;;58016056756
 ;;9002226.02101,"1044,58016056756 ",.02)
 ;;58016056756
 ;;9002226.02101,"1044,58016056760 ",.01)
 ;;58016056760
 ;;9002226.02101,"1044,58016056760 ",.02)
 ;;58016056760
 ;;9002226.02101,"1044,58016056767 ",.01)
 ;;58016056767
 ;;9002226.02101,"1044,58016056767 ",.02)
 ;;58016056767
 ;;9002226.02101,"1044,58016056769 ",.01)
 ;;58016056769
 ;;9002226.02101,"1044,58016056769 ",.02)
 ;;58016056769
 ;;9002226.02101,"1044,58016056770 ",.01)
 ;;58016056770
 ;;9002226.02101,"1044,58016056770 ",.02)
 ;;58016056770
 ;;9002226.02101,"1044,58016056771 ",.01)
 ;;58016056771
 ;;9002226.02101,"1044,58016056771 ",.02)
 ;;58016056771
 ;;9002226.02101,"1044,58016056772 ",.01)
 ;;58016056772
 ;;9002226.02101,"1044,58016056772 ",.02)
 ;;58016056772
 ;;9002226.02101,"1044,58016056773 ",.01)
 ;;58016056773
 ;;9002226.02101,"1044,58016056773 ",.02)
 ;;58016056773
 ;;9002226.02101,"1044,58016056775 ",.01)
 ;;58016056775
 ;;9002226.02101,"1044,58016056775 ",.02)
 ;;58016056775
 ;;9002226.02101,"1044,58016056776 ",.01)
 ;;58016056776
 ;;9002226.02101,"1044,58016056776 ",.02)
 ;;58016056776
 ;;9002226.02101,"1044,58016056777 ",.01)
 ;;58016056777
 ;;9002226.02101,"1044,58016056777 ",.02)
 ;;58016056777
 ;;9002226.02101,"1044,58016056779 ",.01)
 ;;58016056779
 ;;9002226.02101,"1044,58016056779 ",.02)
 ;;58016056779
 ;;9002226.02101,"1044,58016056780 ",.01)
 ;;58016056780
 ;;9002226.02101,"1044,58016056780 ",.02)
 ;;58016056780
 ;;9002226.02101,"1044,58016056781 ",.01)
 ;;58016056781
 ;;9002226.02101,"1044,58016056781 ",.02)
 ;;58016056781
 ;;9002226.02101,"1044,58016056782 ",.01)
 ;;58016056782
 ;;9002226.02101,"1044,58016056782 ",.02)
 ;;58016056782
 ;;9002226.02101,"1044,58016056783 ",.01)
 ;;58016056783
 ;;9002226.02101,"1044,58016056783 ",.02)
 ;;58016056783
 ;;9002226.02101,"1044,58016056784 ",.01)
 ;;58016056784
 ;;9002226.02101,"1044,58016056784 ",.02)
 ;;58016056784
 ;;9002226.02101,"1044,58016056787 ",.01)
 ;;58016056787
 ;;9002226.02101,"1044,58016056787 ",.02)
 ;;58016056787
 ;;9002226.02101,"1044,58016056789 ",.01)
 ;;58016056789
 ;;9002226.02101,"1044,58016056789 ",.02)
 ;;58016056789
 ;;9002226.02101,"1044,58016056790 ",.01)
 ;;58016056790
 ;;9002226.02101,"1044,58016056790 ",.02)
 ;;58016056790
 ;;9002226.02101,"1044,58016056791 ",.01)
 ;;58016056791
 ;;9002226.02101,"1044,58016056791 ",.02)
 ;;58016056791
 ;;9002226.02101,"1044,58016056792 ",.01)
 ;;58016056792
 ;;9002226.02101,"1044,58016056792 ",.02)
 ;;58016056792
 ;;9002226.02101,"1044,58016056793 ",.01)
 ;;58016056793
 ;;9002226.02101,"1044,58016056793 ",.02)
 ;;58016056793
 ;;9002226.02101,"1044,58016056796 ",.01)
 ;;58016056796
 ;;9002226.02101,"1044,58016056796 ",.02)
 ;;58016056796
 ;;9002226.02101,"1044,58016056797 ",.01)
 ;;58016056797
 ;;9002226.02101,"1044,58016056797 ",.02)
 ;;58016056797
 ;;9002226.02101,"1044,58016056798 ",.01)
 ;;58016056798
 ;;9002226.02101,"1044,58016056798 ",.02)
 ;;58016056798
 ;;9002226.02101,"1044,58016056799 ",.01)
 ;;58016056799
 ;;9002226.02101,"1044,58016056799 ",.02)
 ;;58016056799
 ;;9002226.02101,"1044,58016070100 ",.01)
 ;;58016070100
 ;;9002226.02101,"1044,58016070100 ",.02)
 ;;58016070100
 ;;9002226.02101,"1044,58016070101 ",.01)
 ;;58016070101
 ;;9002226.02101,"1044,58016070101 ",.02)
 ;;58016070101
 ;;9002226.02101,"1044,58016070102 ",.01)
 ;;58016070102
 ;;9002226.02101,"1044,58016070102 ",.02)
 ;;58016070102
 ;;9002226.02101,"1044,58016070103 ",.01)
 ;;58016070103
 ;;9002226.02101,"1044,58016070103 ",.02)
 ;;58016070103
 ;;9002226.02101,"1044,58016070104 ",.01)
 ;;58016070104
 ;;9002226.02101,"1044,58016070104 ",.02)
 ;;58016070104
 ;;9002226.02101,"1044,58016070105 ",.01)
 ;;58016070105
 ;;9002226.02101,"1044,58016070105 ",.02)
 ;;58016070105
 ;;9002226.02101,"1044,58016070106 ",.01)
 ;;58016070106
 ;;9002226.02101,"1044,58016070106 ",.02)
 ;;58016070106
 ;;9002226.02101,"1044,58016070108 ",.01)
 ;;58016070108
 ;;9002226.02101,"1044,58016070108 ",.02)
 ;;58016070108
 ;;9002226.02101,"1044,58016070109 ",.01)
 ;;58016070109
 ;;9002226.02101,"1044,58016070109 ",.02)
 ;;58016070109
 ;;9002226.02101,"1044,58016070110 ",.01)
 ;;58016070110
 ;;9002226.02101,"1044,58016070110 ",.02)
 ;;58016070110
 ;;9002226.02101,"1044,58016070112 ",.01)
 ;;58016070112
 ;;9002226.02101,"1044,58016070112 ",.02)
 ;;58016070112
 ;;9002226.02101,"1044,58016070114 ",.01)
 ;;58016070114
 ;;9002226.02101,"1044,58016070114 ",.02)
 ;;58016070114
 ;;9002226.02101,"1044,58016070115 ",.01)
 ;;58016070115
 ;;9002226.02101,"1044,58016070115 ",.02)
 ;;58016070115
 ;;9002226.02101,"1044,58016070116 ",.01)
 ;;58016070116
 ;;9002226.02101,"1044,58016070116 ",.02)
 ;;58016070116
 ;;9002226.02101,"1044,58016070118 ",.01)
 ;;58016070118
 ;;9002226.02101,"1044,58016070118 ",.02)
 ;;58016070118
 ;;9002226.02101,"1044,58016070120 ",.01)
 ;;58016070120
 ;;9002226.02101,"1044,58016070120 ",.02)
 ;;58016070120
 ;;9002226.02101,"1044,58016070121 ",.01)
 ;;58016070121
 ;;9002226.02101,"1044,58016070121 ",.02)
 ;;58016070121
 ;;9002226.02101,"1044,58016070124 ",.01)
 ;;58016070124
 ;;9002226.02101,"1044,58016070124 ",.02)
 ;;58016070124
 ;;9002226.02101,"1044,58016070125 ",.01)
 ;;58016070125
 ;;9002226.02101,"1044,58016070125 ",.02)
 ;;58016070125
 ;;9002226.02101,"1044,58016070126 ",.01)
 ;;58016070126
 ;;9002226.02101,"1044,58016070126 ",.02)
 ;;58016070126
 ;;9002226.02101,"1044,58016070127 ",.01)
 ;;58016070127
 ;;9002226.02101,"1044,58016070127 ",.02)
 ;;58016070127
 ;;9002226.02101,"1044,58016070128 ",.01)
 ;;58016070128
 ;;9002226.02101,"1044,58016070128 ",.02)
 ;;58016070128
 ;;9002226.02101,"1044,58016070130 ",.01)
 ;;58016070130
 ;;9002226.02101,"1044,58016070130 ",.02)
 ;;58016070130
 ;;9002226.02101,"1044,58016070132 ",.01)
 ;;58016070132
 ;;9002226.02101,"1044,58016070132 ",.02)
 ;;58016070132
 ;;9002226.02101,"1044,58016070135 ",.01)
 ;;58016070135
 ;;9002226.02101,"1044,58016070135 ",.02)
 ;;58016070135
 ;;9002226.02101,"1044,58016070136 ",.01)
 ;;58016070136
 ;;9002226.02101,"1044,58016070136 ",.02)
 ;;58016070136
 ;;9002226.02101,"1044,58016070140 ",.01)
 ;;58016070140
 ;;9002226.02101,"1044,58016070140 ",.02)
 ;;58016070140
 ;;9002226.02101,"1044,58016070142 ",.01)
 ;;58016070142
 ;;9002226.02101,"1044,58016070142 ",.02)
 ;;58016070142
 ;;9002226.02101,"1044,58016070144 ",.01)
 ;;58016070144
 ;;9002226.02101,"1044,58016070144 ",.02)
 ;;58016070144
 ;;9002226.02101,"1044,58016070145 ",.01)
 ;;58016070145
 ;;9002226.02101,"1044,58016070145 ",.02)
 ;;58016070145
 ;;9002226.02101,"1044,58016070148 ",.01)
 ;;58016070148
 ;;9002226.02101,"1044,58016070148 ",.02)
 ;;58016070148
 ;;9002226.02101,"1044,58016070150 ",.01)
 ;;58016070150
 ;;9002226.02101,"1044,58016070150 ",.02)
 ;;58016070150
 ;;9002226.02101,"1044,58016070156 ",.01)
 ;;58016070156
 ;;9002226.02101,"1044,58016070156 ",.02)
 ;;58016070156
 ;;9002226.02101,"1044,58016070160 ",.01)
 ;;58016070160
 ;;9002226.02101,"1044,58016070160 ",.02)
 ;;58016070160
 ;;9002226.02101,"1044,58016070167 ",.01)
 ;;58016070167
 ;;9002226.02101,"1044,58016070167 ",.02)
 ;;58016070167
 ;;9002226.02101,"1044,58016070169 ",.01)
 ;;58016070169
 ;;9002226.02101,"1044,58016070169 ",.02)
 ;;58016070169
 ;;9002226.02101,"1044,58016070170 ",.01)
 ;;58016070170
 ;;9002226.02101,"1044,58016070170 ",.02)
 ;;58016070170
 ;;9002226.02101,"1044,58016070171 ",.01)
 ;;58016070171
 ;;9002226.02101,"1044,58016070171 ",.02)
 ;;58016070171
 ;;9002226.02101,"1044,58016070172 ",.01)
 ;;58016070172
 ;;9002226.02101,"1044,58016070172 ",.02)
 ;;58016070172
 ;;9002226.02101,"1044,58016070173 ",.01)
 ;;58016070173
 ;;9002226.02101,"1044,58016070173 ",.02)
 ;;58016070173
 ;;9002226.02101,"1044,58016070175 ",.01)
 ;;58016070175
 ;;9002226.02101,"1044,58016070175 ",.02)
 ;;58016070175
 ;;9002226.02101,"1044,58016070176 ",.01)
 ;;58016070176
 ;;9002226.02101,"1044,58016070176 ",.02)
 ;;58016070176
 ;;9002226.02101,"1044,58016070179 ",.01)
 ;;58016070179
 ;;9002226.02101,"1044,58016070179 ",.02)
 ;;58016070179
 ;;9002226.02101,"1044,58016070180 ",.01)
 ;;58016070180
 ;;9002226.02101,"1044,58016070180 ",.02)
 ;;58016070180
 ;;9002226.02101,"1044,58016070181 ",.01)
 ;;58016070181
 ;;9002226.02101,"1044,58016070181 ",.02)
 ;;58016070181
 ;;9002226.02101,"1044,58016070182 ",.01)
 ;;58016070182
 ;;9002226.02101,"1044,58016070182 ",.02)
 ;;58016070182
 ;;9002226.02101,"1044,58016070183 ",.01)
 ;;58016070183
 ;;9002226.02101,"1044,58016070183 ",.02)
 ;;58016070183
 ;;9002226.02101,"1044,58016070184 ",.01)
 ;;58016070184
 ;;9002226.02101,"1044,58016070184 ",.02)
 ;;58016070184
 ;;9002226.02101,"1044,58016070187 ",.01)
 ;;58016070187
 ;;9002226.02101,"1044,58016070187 ",.02)
 ;;58016070187
 ;;9002226.02101,"1044,58016070189 ",.01)
 ;;58016070189
 ;;9002226.02101,"1044,58016070189 ",.02)
 ;;58016070189
 ;;9002226.02101,"1044,58016070190 ",.01)
 ;;58016070190
 ;;9002226.02101,"1044,58016070190 ",.02)
 ;;58016070190
 ;;9002226.02101,"1044,58016070191 ",.01)
 ;;58016070191
 ;;9002226.02101,"1044,58016070191 ",.02)
 ;;58016070191
 ;;9002226.02101,"1044,58016070192 ",.01)
 ;;58016070192
 ;;9002226.02101,"1044,58016070192 ",.02)
 ;;58016070192
 ;;9002226.02101,"1044,58016070193 ",.01)
 ;;58016070193
 ;;9002226.02101,"1044,58016070193 ",.02)
 ;;58016070193
 ;;9002226.02101,"1044,58016070196 ",.01)
 ;;58016070196
 ;;9002226.02101,"1044,58016070196 ",.02)
 ;;58016070196
 ;;9002226.02101,"1044,58016070197 ",.01)
 ;;58016070197
 ;;9002226.02101,"1044,58016070197 ",.02)
 ;;58016070197
 ;;9002226.02101,"1044,58016070198 ",.01)
 ;;58016070198
 ;;9002226.02101,"1044,58016070198 ",.02)
 ;;58016070198
 ;;9002226.02101,"1044,58016070199 ",.01)
 ;;58016070199
 ;;9002226.02101,"1044,58016070199 ",.02)
 ;;58016070199
 ;;9002226.02101,"1044,58016070400 ",.01)
 ;;58016070400
 ;;9002226.02101,"1044,58016070400 ",.02)
 ;;58016070400
 ;;9002226.02101,"1044,58016070401 ",.01)
 ;;58016070401
 ;;9002226.02101,"1044,58016070401 ",.02)
 ;;58016070401
 ;;9002226.02101,"1044,58016070402 ",.01)
 ;;58016070402
 ;;9002226.02101,"1044,58016070402 ",.02)
 ;;58016070402
 ;;9002226.02101,"1044,58016070403 ",.01)
 ;;58016070403
 ;;9002226.02101,"1044,58016070403 ",.02)
 ;;58016070403
 ;;9002226.02101,"1044,58016070404 ",.01)
 ;;58016070404
 ;;9002226.02101,"1044,58016070404 ",.02)
 ;;58016070404
 ;;9002226.02101,"1044,58016070405 ",.01)
 ;;58016070405
 ;;9002226.02101,"1044,58016070405 ",.02)
 ;;58016070405
 ;;9002226.02101,"1044,58016070406 ",.01)
 ;;58016070406
 ;;9002226.02101,"1044,58016070406 ",.02)
 ;;58016070406
 ;;9002226.02101,"1044,58016070407 ",.01)
 ;;58016070407
 ;;9002226.02101,"1044,58016070407 ",.02)
 ;;58016070407
 ;;9002226.02101,"1044,58016070408 ",.01)
 ;;58016070408
 ;;9002226.02101,"1044,58016070408 ",.02)
 ;;58016070408
 ;;9002226.02101,"1044,58016070409 ",.01)
 ;;58016070409
 ;;9002226.02101,"1044,58016070409 ",.02)
 ;;58016070409
 ;;9002226.02101,"1044,58016070410 ",.01)
 ;;58016070410
 ;;9002226.02101,"1044,58016070410 ",.02)
 ;;58016070410
 ;;9002226.02101,"1044,58016070412 ",.01)
 ;;58016070412
 ;;9002226.02101,"1044,58016070412 ",.02)
 ;;58016070412
 ;;9002226.02101,"1044,58016070414 ",.01)
 ;;58016070414
 ;;9002226.02101,"1044,58016070414 ",.02)
 ;;58016070414
 ;;9002226.02101,"1044,58016070415 ",.01)
 ;;58016070415
 ;;9002226.02101,"1044,58016070415 ",.02)
 ;;58016070415
 ;;9002226.02101,"1044,58016070416 ",.01)
 ;;58016070416
 ;;9002226.02101,"1044,58016070416 ",.02)
 ;;58016070416