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

BGPM5BFO.m

Go to the documentation of this file.
BGPM5BFO ;IHS/MSC/MMT-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,"1084,58016046760 ",.01)
 ;;58016046760
 ;;9002226.02101,"1084,58016046760 ",.02)
 ;;58016046760
 ;;9002226.02101,"1084,58016046790 ",.01)
 ;;58016046790
 ;;9002226.02101,"1084,58016046790 ",.02)
 ;;58016046790
 ;;9002226.02101,"1084,58016053600 ",.01)
 ;;58016053600
 ;;9002226.02101,"1084,58016053600 ",.02)
 ;;58016053600
 ;;9002226.02101,"1084,58016053630 ",.01)
 ;;58016053630
 ;;9002226.02101,"1084,58016053630 ",.02)
 ;;58016053630
 ;;9002226.02101,"1084,58016053660 ",.01)
 ;;58016053660
 ;;9002226.02101,"1084,58016053660 ",.02)
 ;;58016053660
 ;;9002226.02101,"1084,58016053690 ",.01)
 ;;58016053690
 ;;9002226.02101,"1084,58016053690 ",.02)
 ;;58016053690
 ;;9002226.02101,"1084,58016069100 ",.01)
 ;;58016069100
 ;;9002226.02101,"1084,58016069100 ",.02)
 ;;58016069100
 ;;9002226.02101,"1084,58016069101 ",.01)
 ;;58016069101
 ;;9002226.02101,"1084,58016069101 ",.02)
 ;;58016069101
 ;;9002226.02101,"1084,58016069102 ",.01)
 ;;58016069102
 ;;9002226.02101,"1084,58016069102 ",.02)
 ;;58016069102
 ;;9002226.02101,"1084,58016069103 ",.01)
 ;;58016069103
 ;;9002226.02101,"1084,58016069103 ",.02)
 ;;58016069103
 ;;9002226.02101,"1084,58016069104 ",.01)
 ;;58016069104
 ;;9002226.02101,"1084,58016069104 ",.02)
 ;;58016069104
 ;;9002226.02101,"1084,58016069105 ",.01)
 ;;58016069105
 ;;9002226.02101,"1084,58016069105 ",.02)
 ;;58016069105
 ;;9002226.02101,"1084,58016069106 ",.01)
 ;;58016069106
 ;;9002226.02101,"1084,58016069106 ",.02)
 ;;58016069106
 ;;9002226.02101,"1084,58016069107 ",.01)
 ;;58016069107
 ;;9002226.02101,"1084,58016069107 ",.02)
 ;;58016069107
 ;;9002226.02101,"1084,58016069108 ",.01)
 ;;58016069108
 ;;9002226.02101,"1084,58016069108 ",.02)
 ;;58016069108
 ;;9002226.02101,"1084,58016069109 ",.01)
 ;;58016069109
 ;;9002226.02101,"1084,58016069109 ",.02)
 ;;58016069109
 ;;9002226.02101,"1084,58016069110 ",.01)
 ;;58016069110
 ;;9002226.02101,"1084,58016069110 ",.02)
 ;;58016069110
 ;;9002226.02101,"1084,58016069112 ",.01)
 ;;58016069112
 ;;9002226.02101,"1084,58016069112 ",.02)
 ;;58016069112
 ;;9002226.02101,"1084,58016069114 ",.01)
 ;;58016069114
 ;;9002226.02101,"1084,58016069114 ",.02)
 ;;58016069114
 ;;9002226.02101,"1084,58016069115 ",.01)
 ;;58016069115
 ;;9002226.02101,"1084,58016069115 ",.02)
 ;;58016069115
 ;;9002226.02101,"1084,58016069116 ",.01)
 ;;58016069116
 ;;9002226.02101,"1084,58016069116 ",.02)
 ;;58016069116
 ;;9002226.02101,"1084,58016069118 ",.01)
 ;;58016069118
 ;;9002226.02101,"1084,58016069118 ",.02)
 ;;58016069118
 ;;9002226.02101,"1084,58016069120 ",.01)
 ;;58016069120
 ;;9002226.02101,"1084,58016069120 ",.02)
 ;;58016069120
 ;;9002226.02101,"1084,58016069121 ",.01)
 ;;58016069121
 ;;9002226.02101,"1084,58016069121 ",.02)
 ;;58016069121
 ;;9002226.02101,"1084,58016069124 ",.01)
 ;;58016069124
 ;;9002226.02101,"1084,58016069124 ",.02)
 ;;58016069124
 ;;9002226.02101,"1084,58016069125 ",.01)
 ;;58016069125
 ;;9002226.02101,"1084,58016069125 ",.02)
 ;;58016069125
 ;;9002226.02101,"1084,58016069126 ",.01)
 ;;58016069126
 ;;9002226.02101,"1084,58016069126 ",.02)
 ;;58016069126
 ;;9002226.02101,"1084,58016069127 ",.01)
 ;;58016069127
 ;;9002226.02101,"1084,58016069127 ",.02)
 ;;58016069127
 ;;9002226.02101,"1084,58016069128 ",.01)
 ;;58016069128
 ;;9002226.02101,"1084,58016069128 ",.02)
 ;;58016069128
 ;;9002226.02101,"1084,58016069130 ",.01)
 ;;58016069130
 ;;9002226.02101,"1084,58016069130 ",.02)
 ;;58016069130
 ;;9002226.02101,"1084,58016069132 ",.01)
 ;;58016069132
 ;;9002226.02101,"1084,58016069132 ",.02)
 ;;58016069132
 ;;9002226.02101,"1084,58016069135 ",.01)
 ;;58016069135
 ;;9002226.02101,"1084,58016069135 ",.02)
 ;;58016069135
 ;;9002226.02101,"1084,58016069136 ",.01)
 ;;58016069136
 ;;9002226.02101,"1084,58016069136 ",.02)
 ;;58016069136
 ;;9002226.02101,"1084,58016069140 ",.01)
 ;;58016069140
 ;;9002226.02101,"1084,58016069140 ",.02)
 ;;58016069140
 ;;9002226.02101,"1084,58016069142 ",.01)
 ;;58016069142
 ;;9002226.02101,"1084,58016069142 ",.02)
 ;;58016069142
 ;;9002226.02101,"1084,58016069144 ",.01)
 ;;58016069144
 ;;9002226.02101,"1084,58016069144 ",.02)
 ;;58016069144
 ;;9002226.02101,"1084,58016069145 ",.01)
 ;;58016069145
 ;;9002226.02101,"1084,58016069145 ",.02)
 ;;58016069145
 ;;9002226.02101,"1084,58016069148 ",.01)
 ;;58016069148
 ;;9002226.02101,"1084,58016069148 ",.02)
 ;;58016069148
 ;;9002226.02101,"1084,58016069150 ",.01)
 ;;58016069150
 ;;9002226.02101,"1084,58016069150 ",.02)
 ;;58016069150
 ;;9002226.02101,"1084,58016069156 ",.01)
 ;;58016069156
 ;;9002226.02101,"1084,58016069156 ",.02)
 ;;58016069156
 ;;9002226.02101,"1084,58016069160 ",.01)
 ;;58016069160
 ;;9002226.02101,"1084,58016069160 ",.02)
 ;;58016069160
 ;;9002226.02101,"1084,58016069167 ",.01)
 ;;58016069167
 ;;9002226.02101,"1084,58016069167 ",.02)
 ;;58016069167
 ;;9002226.02101,"1084,58016069169 ",.01)
 ;;58016069169
 ;;9002226.02101,"1084,58016069169 ",.02)
 ;;58016069169
 ;;9002226.02101,"1084,58016069170 ",.01)
 ;;58016069170
 ;;9002226.02101,"1084,58016069170 ",.02)
 ;;58016069170
 ;;9002226.02101,"1084,58016069171 ",.01)
 ;;58016069171
 ;;9002226.02101,"1084,58016069171 ",.02)
 ;;58016069171
 ;;9002226.02101,"1084,58016069172 ",.01)
 ;;58016069172
 ;;9002226.02101,"1084,58016069172 ",.02)
 ;;58016069172
 ;;9002226.02101,"1084,58016069173 ",.01)
 ;;58016069173
 ;;9002226.02101,"1084,58016069173 ",.02)
 ;;58016069173
 ;;9002226.02101,"1084,58016069175 ",.01)
 ;;58016069175
 ;;9002226.02101,"1084,58016069175 ",.02)
 ;;58016069175
 ;;9002226.02101,"1084,58016069176 ",.01)
 ;;58016069176
 ;;9002226.02101,"1084,58016069176 ",.02)
 ;;58016069176
 ;;9002226.02101,"1084,58016069177 ",.01)
 ;;58016069177
 ;;9002226.02101,"1084,58016069177 ",.02)
 ;;58016069177
 ;;9002226.02101,"1084,58016069179 ",.01)
 ;;58016069179
 ;;9002226.02101,"1084,58016069179 ",.02)
 ;;58016069179
 ;;9002226.02101,"1084,58016069180 ",.01)
 ;;58016069180
 ;;9002226.02101,"1084,58016069180 ",.02)
 ;;58016069180
 ;;9002226.02101,"1084,58016069181 ",.01)
 ;;58016069181
 ;;9002226.02101,"1084,58016069181 ",.02)
 ;;58016069181
 ;;9002226.02101,"1084,58016069182 ",.01)
 ;;58016069182
 ;;9002226.02101,"1084,58016069182 ",.02)
 ;;58016069182
 ;;9002226.02101,"1084,58016069183 ",.01)
 ;;58016069183
 ;;9002226.02101,"1084,58016069183 ",.02)
 ;;58016069183
 ;;9002226.02101,"1084,58016069184 ",.01)
 ;;58016069184
 ;;9002226.02101,"1084,58016069184 ",.02)
 ;;58016069184
 ;;9002226.02101,"1084,58016069187 ",.01)
 ;;58016069187
 ;;9002226.02101,"1084,58016069187 ",.02)
 ;;58016069187
 ;;9002226.02101,"1084,58016069189 ",.01)
 ;;58016069189
 ;;9002226.02101,"1084,58016069189 ",.02)
 ;;58016069189
 ;;9002226.02101,"1084,58016069190 ",.01)
 ;;58016069190
 ;;9002226.02101,"1084,58016069190 ",.02)
 ;;58016069190
 ;;9002226.02101,"1084,58016069191 ",.01)
 ;;58016069191
 ;;9002226.02101,"1084,58016069191 ",.02)
 ;;58016069191
 ;;9002226.02101,"1084,58016069192 ",.01)
 ;;58016069192
 ;;9002226.02101,"1084,58016069192 ",.02)
 ;;58016069192
 ;;9002226.02101,"1084,58016069193 ",.01)
 ;;58016069193
 ;;9002226.02101,"1084,58016069193 ",.02)
 ;;58016069193
 ;;9002226.02101,"1084,58016069196 ",.01)
 ;;58016069196
 ;;9002226.02101,"1084,58016069196 ",.02)
 ;;58016069196
 ;;9002226.02101,"1084,58016069197 ",.01)
 ;;58016069197
 ;;9002226.02101,"1084,58016069197 ",.02)
 ;;58016069197
 ;;9002226.02101,"1084,58016069198 ",.01)
 ;;58016069198
 ;;9002226.02101,"1084,58016069198 ",.02)
 ;;58016069198
 ;;9002226.02101,"1084,58016069199 ",.01)
 ;;58016069199
 ;;9002226.02101,"1084,58016069199 ",.02)
 ;;58016069199
 ;;9002226.02101,"1084,58016077200 ",.01)
 ;;58016077200
 ;;9002226.02101,"1084,58016077200 ",.02)
 ;;58016077200
 ;;9002226.02101,"1084,58016077201 ",.01)
 ;;58016077201
 ;;9002226.02101,"1084,58016077201 ",.02)
 ;;58016077201
 ;;9002226.02101,"1084,58016077202 ",.01)
 ;;58016077202
 ;;9002226.02101,"1084,58016077202 ",.02)
 ;;58016077202
 ;;9002226.02101,"1084,58016077203 ",.01)
 ;;58016077203
 ;;9002226.02101,"1084,58016077203 ",.02)
 ;;58016077203
 ;;9002226.02101,"1084,58016077204 ",.01)
 ;;58016077204
 ;;9002226.02101,"1084,58016077204 ",.02)
 ;;58016077204
 ;;9002226.02101,"1084,58016077205 ",.01)
 ;;58016077205
 ;;9002226.02101,"1084,58016077205 ",.02)
 ;;58016077205
 ;;9002226.02101,"1084,58016077206 ",.01)
 ;;58016077206
 ;;9002226.02101,"1084,58016077206 ",.02)
 ;;58016077206
 ;;9002226.02101,"1084,58016077207 ",.01)
 ;;58016077207
 ;;9002226.02101,"1084,58016077207 ",.02)
 ;;58016077207
 ;;9002226.02101,"1084,58016077208 ",.01)
 ;;58016077208
 ;;9002226.02101,"1084,58016077208 ",.02)
 ;;58016077208
 ;;9002226.02101,"1084,58016077209 ",.01)
 ;;58016077209
 ;;9002226.02101,"1084,58016077209 ",.02)
 ;;58016077209
 ;;9002226.02101,"1084,58016077210 ",.01)
 ;;58016077210
 ;;9002226.02101,"1084,58016077210 ",.02)
 ;;58016077210
 ;;9002226.02101,"1084,58016077212 ",.01)
 ;;58016077212
 ;;9002226.02101,"1084,58016077212 ",.02)
 ;;58016077212
 ;;9002226.02101,"1084,58016077214 ",.01)
 ;;58016077214
 ;;9002226.02101,"1084,58016077214 ",.02)
 ;;58016077214
 ;;9002226.02101,"1084,58016077215 ",.01)
 ;;58016077215
 ;;9002226.02101,"1084,58016077215 ",.02)
 ;;58016077215
 ;;9002226.02101,"1084,58016077216 ",.01)
 ;;58016077216
 ;;9002226.02101,"1084,58016077216 ",.02)
 ;;58016077216
 ;;9002226.02101,"1084,58016077218 ",.01)
 ;;58016077218
 ;;9002226.02101,"1084,58016077218 ",.02)
 ;;58016077218
 ;;9002226.02101,"1084,58016077220 ",.01)
 ;;58016077220
 ;;9002226.02101,"1084,58016077220 ",.02)
 ;;58016077220
 ;;9002226.02101,"1084,58016077221 ",.01)
 ;;58016077221
 ;;9002226.02101,"1084,58016077221 ",.02)
 ;;58016077221
 ;;9002226.02101,"1084,58016077224 ",.01)
 ;;58016077224
 ;;9002226.02101,"1084,58016077224 ",.02)
 ;;58016077224
 ;;9002226.02101,"1084,58016077225 ",.01)
 ;;58016077225
 ;;9002226.02101,"1084,58016077225 ",.02)
 ;;58016077225
 ;;9002226.02101,"1084,58016077226 ",.01)
 ;;58016077226
 ;;9002226.02101,"1084,58016077226 ",.02)
 ;;58016077226
 ;;9002226.02101,"1084,58016077227 ",.01)
 ;;58016077227
 ;;9002226.02101,"1084,58016077227 ",.02)
 ;;58016077227
 ;;9002226.02101,"1084,58016077228 ",.01)
 ;;58016077228
 ;;9002226.02101,"1084,58016077228 ",.02)
 ;;58016077228
 ;;9002226.02101,"1084,58016077230 ",.01)
 ;;58016077230
 ;;9002226.02101,"1084,58016077230 ",.02)
 ;;58016077230
 ;;9002226.02101,"1084,58016077232 ",.01)
 ;;58016077232
 ;;9002226.02101,"1084,58016077232 ",.02)
 ;;58016077232
 ;;9002226.02101,"1084,58016077235 ",.01)
 ;;58016077235
 ;;9002226.02101,"1084,58016077235 ",.02)
 ;;58016077235
 ;;9002226.02101,"1084,58016077236 ",.01)
 ;;58016077236
 ;;9002226.02101,"1084,58016077236 ",.02)
 ;;58016077236
 ;;9002226.02101,"1084,58016077240 ",.01)
 ;;58016077240
 ;;9002226.02101,"1084,58016077240 ",.02)
 ;;58016077240
 ;;9002226.02101,"1084,58016077242 ",.01)
 ;;58016077242
 ;;9002226.02101,"1084,58016077242 ",.02)
 ;;58016077242
 ;;9002226.02101,"1084,58016077244 ",.01)
 ;;58016077244
 ;;9002226.02101,"1084,58016077244 ",.02)
 ;;58016077244
 ;;9002226.02101,"1084,58016077245 ",.01)
 ;;58016077245
 ;;9002226.02101,"1084,58016077245 ",.02)
 ;;58016077245
 ;;9002226.02101,"1084,58016077248 ",.01)
 ;;58016077248
 ;;9002226.02101,"1084,58016077248 ",.02)
 ;;58016077248
 ;;9002226.02101,"1084,58016077250 ",.01)
 ;;58016077250
 ;;9002226.02101,"1084,58016077250 ",.02)
 ;;58016077250
 ;;9002226.02101,"1084,58016077256 ",.01)
 ;;58016077256
 ;;9002226.02101,"1084,58016077256 ",.02)
 ;;58016077256
 ;;9002226.02101,"1084,58016077260 ",.01)
 ;;58016077260