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

BGPM5AJZ.m

Go to the documentation of this file.
BGPM5AJZ ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 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,"889,58016053180 ",.01)
 ;;58016053180
 ;;9002226.02101,"889,58016053180 ",.02)
 ;;58016053180
 ;;9002226.02101,"889,58016053181 ",.01)
 ;;58016053181
 ;;9002226.02101,"889,58016053181 ",.02)
 ;;58016053181
 ;;9002226.02101,"889,58016053182 ",.01)
 ;;58016053182
 ;;9002226.02101,"889,58016053182 ",.02)
 ;;58016053182
 ;;9002226.02101,"889,58016053183 ",.01)
 ;;58016053183
 ;;9002226.02101,"889,58016053183 ",.02)
 ;;58016053183
 ;;9002226.02101,"889,58016053184 ",.01)
 ;;58016053184
 ;;9002226.02101,"889,58016053184 ",.02)
 ;;58016053184
 ;;9002226.02101,"889,58016053187 ",.01)
 ;;58016053187
 ;;9002226.02101,"889,58016053187 ",.02)
 ;;58016053187
 ;;9002226.02101,"889,58016053189 ",.01)
 ;;58016053189
 ;;9002226.02101,"889,58016053189 ",.02)
 ;;58016053189
 ;;9002226.02101,"889,58016053190 ",.01)
 ;;58016053190
 ;;9002226.02101,"889,58016053190 ",.02)
 ;;58016053190
 ;;9002226.02101,"889,58016053191 ",.01)
 ;;58016053191
 ;;9002226.02101,"889,58016053191 ",.02)
 ;;58016053191
 ;;9002226.02101,"889,58016053192 ",.01)
 ;;58016053192
 ;;9002226.02101,"889,58016053192 ",.02)
 ;;58016053192
 ;;9002226.02101,"889,58016053193 ",.01)
 ;;58016053193
 ;;9002226.02101,"889,58016053193 ",.02)
 ;;58016053193
 ;;9002226.02101,"889,58016053196 ",.01)
 ;;58016053196
 ;;9002226.02101,"889,58016053196 ",.02)
 ;;58016053196
 ;;9002226.02101,"889,58016053197 ",.01)
 ;;58016053197
 ;;9002226.02101,"889,58016053197 ",.02)
 ;;58016053197
 ;;9002226.02101,"889,58016053198 ",.01)
 ;;58016053198
 ;;9002226.02101,"889,58016053198 ",.02)
 ;;58016053198
 ;;9002226.02101,"889,58016053199 ",.01)
 ;;58016053199
 ;;9002226.02101,"889,58016053199 ",.02)
 ;;58016053199
 ;;9002226.02101,"889,58016053200 ",.01)
 ;;58016053200
 ;;9002226.02101,"889,58016053200 ",.02)
 ;;58016053200
 ;;9002226.02101,"889,58016053201 ",.01)
 ;;58016053201
 ;;9002226.02101,"889,58016053201 ",.02)
 ;;58016053201
 ;;9002226.02101,"889,58016053202 ",.01)
 ;;58016053202
 ;;9002226.02101,"889,58016053202 ",.02)
 ;;58016053202
 ;;9002226.02101,"889,58016053203 ",.01)
 ;;58016053203
 ;;9002226.02101,"889,58016053203 ",.02)
 ;;58016053203
 ;;9002226.02101,"889,58016053204 ",.01)
 ;;58016053204
 ;;9002226.02101,"889,58016053204 ",.02)
 ;;58016053204
 ;;9002226.02101,"889,58016053205 ",.01)
 ;;58016053205
 ;;9002226.02101,"889,58016053205 ",.02)
 ;;58016053205
 ;;9002226.02101,"889,58016053206 ",.01)
 ;;58016053206
 ;;9002226.02101,"889,58016053206 ",.02)
 ;;58016053206
 ;;9002226.02101,"889,58016053207 ",.01)
 ;;58016053207
 ;;9002226.02101,"889,58016053207 ",.02)
 ;;58016053207
 ;;9002226.02101,"889,58016053208 ",.01)
 ;;58016053208
 ;;9002226.02101,"889,58016053208 ",.02)
 ;;58016053208
 ;;9002226.02101,"889,58016053209 ",.01)
 ;;58016053209
 ;;9002226.02101,"889,58016053209 ",.02)
 ;;58016053209
 ;;9002226.02101,"889,58016053210 ",.01)
 ;;58016053210
 ;;9002226.02101,"889,58016053210 ",.02)
 ;;58016053210
 ;;9002226.02101,"889,58016053212 ",.01)
 ;;58016053212
 ;;9002226.02101,"889,58016053212 ",.02)
 ;;58016053212
 ;;9002226.02101,"889,58016053214 ",.01)
 ;;58016053214
 ;;9002226.02101,"889,58016053214 ",.02)
 ;;58016053214
 ;;9002226.02101,"889,58016053215 ",.01)
 ;;58016053215
 ;;9002226.02101,"889,58016053215 ",.02)
 ;;58016053215
 ;;9002226.02101,"889,58016053216 ",.01)
 ;;58016053216
 ;;9002226.02101,"889,58016053216 ",.02)
 ;;58016053216
 ;;9002226.02101,"889,58016053218 ",.01)
 ;;58016053218
 ;;9002226.02101,"889,58016053218 ",.02)
 ;;58016053218
 ;;9002226.02101,"889,58016053220 ",.01)
 ;;58016053220
 ;;9002226.02101,"889,58016053220 ",.02)
 ;;58016053220
 ;;9002226.02101,"889,58016053221 ",.01)
 ;;58016053221
 ;;9002226.02101,"889,58016053221 ",.02)
 ;;58016053221
 ;;9002226.02101,"889,58016053224 ",.01)
 ;;58016053224
 ;;9002226.02101,"889,58016053224 ",.02)
 ;;58016053224
 ;;9002226.02101,"889,58016053225 ",.01)
 ;;58016053225
 ;;9002226.02101,"889,58016053225 ",.02)
 ;;58016053225
 ;;9002226.02101,"889,58016053226 ",.01)
 ;;58016053226
 ;;9002226.02101,"889,58016053226 ",.02)
 ;;58016053226
 ;;9002226.02101,"889,58016053227 ",.01)
 ;;58016053227
 ;;9002226.02101,"889,58016053227 ",.02)
 ;;58016053227
 ;;9002226.02101,"889,58016053228 ",.01)
 ;;58016053228
 ;;9002226.02101,"889,58016053228 ",.02)
 ;;58016053228
 ;;9002226.02101,"889,58016053230 ",.01)
 ;;58016053230
 ;;9002226.02101,"889,58016053230 ",.02)
 ;;58016053230
 ;;9002226.02101,"889,58016053232 ",.01)
 ;;58016053232
 ;;9002226.02101,"889,58016053232 ",.02)
 ;;58016053232
 ;;9002226.02101,"889,58016053235 ",.01)
 ;;58016053235
 ;;9002226.02101,"889,58016053235 ",.02)
 ;;58016053235
 ;;9002226.02101,"889,58016053236 ",.01)
 ;;58016053236
 ;;9002226.02101,"889,58016053236 ",.02)
 ;;58016053236
 ;;9002226.02101,"889,58016053240 ",.01)
 ;;58016053240
 ;;9002226.02101,"889,58016053240 ",.02)
 ;;58016053240
 ;;9002226.02101,"889,58016053242 ",.01)
 ;;58016053242
 ;;9002226.02101,"889,58016053242 ",.02)
 ;;58016053242
 ;;9002226.02101,"889,58016053244 ",.01)
 ;;58016053244
 ;;9002226.02101,"889,58016053244 ",.02)
 ;;58016053244
 ;;9002226.02101,"889,58016053245 ",.01)
 ;;58016053245
 ;;9002226.02101,"889,58016053245 ",.02)
 ;;58016053245
 ;;9002226.02101,"889,58016053248 ",.01)
 ;;58016053248
 ;;9002226.02101,"889,58016053248 ",.02)
 ;;58016053248
 ;;9002226.02101,"889,58016053250 ",.01)
 ;;58016053250
 ;;9002226.02101,"889,58016053250 ",.02)
 ;;58016053250
 ;;9002226.02101,"889,58016053256 ",.01)
 ;;58016053256
 ;;9002226.02101,"889,58016053256 ",.02)
 ;;58016053256
 ;;9002226.02101,"889,58016053260 ",.01)
 ;;58016053260
 ;;9002226.02101,"889,58016053260 ",.02)
 ;;58016053260
 ;;9002226.02101,"889,58016053267 ",.01)
 ;;58016053267
 ;;9002226.02101,"889,58016053267 ",.02)
 ;;58016053267
 ;;9002226.02101,"889,58016053269 ",.01)
 ;;58016053269
 ;;9002226.02101,"889,58016053269 ",.02)
 ;;58016053269
 ;;9002226.02101,"889,58016053270 ",.01)
 ;;58016053270
 ;;9002226.02101,"889,58016053270 ",.02)
 ;;58016053270
 ;;9002226.02101,"889,58016053271 ",.01)
 ;;58016053271
 ;;9002226.02101,"889,58016053271 ",.02)
 ;;58016053271
 ;;9002226.02101,"889,58016053272 ",.01)
 ;;58016053272
 ;;9002226.02101,"889,58016053272 ",.02)
 ;;58016053272
 ;;9002226.02101,"889,58016053273 ",.01)
 ;;58016053273
 ;;9002226.02101,"889,58016053273 ",.02)
 ;;58016053273
 ;;9002226.02101,"889,58016053275 ",.01)
 ;;58016053275
 ;;9002226.02101,"889,58016053275 ",.02)
 ;;58016053275
 ;;9002226.02101,"889,58016053276 ",.01)
 ;;58016053276
 ;;9002226.02101,"889,58016053276 ",.02)
 ;;58016053276
 ;;9002226.02101,"889,58016053277 ",.01)
 ;;58016053277
 ;;9002226.02101,"889,58016053277 ",.02)
 ;;58016053277
 ;;9002226.02101,"889,58016053279 ",.01)
 ;;58016053279
 ;;9002226.02101,"889,58016053279 ",.02)
 ;;58016053279
 ;;9002226.02101,"889,58016053280 ",.01)
 ;;58016053280
 ;;9002226.02101,"889,58016053280 ",.02)
 ;;58016053280
 ;;9002226.02101,"889,58016053281 ",.01)
 ;;58016053281
 ;;9002226.02101,"889,58016053281 ",.02)
 ;;58016053281
 ;;9002226.02101,"889,58016053282 ",.01)
 ;;58016053282
 ;;9002226.02101,"889,58016053282 ",.02)
 ;;58016053282
 ;;9002226.02101,"889,58016053283 ",.01)
 ;;58016053283
 ;;9002226.02101,"889,58016053283 ",.02)
 ;;58016053283
 ;;9002226.02101,"889,58016053284 ",.01)
 ;;58016053284
 ;;9002226.02101,"889,58016053284 ",.02)
 ;;58016053284
 ;;9002226.02101,"889,58016053287 ",.01)
 ;;58016053287
 ;;9002226.02101,"889,58016053287 ",.02)
 ;;58016053287
 ;;9002226.02101,"889,58016053289 ",.01)
 ;;58016053289
 ;;9002226.02101,"889,58016053289 ",.02)
 ;;58016053289
 ;;9002226.02101,"889,58016053290 ",.01)
 ;;58016053290
 ;;9002226.02101,"889,58016053290 ",.02)
 ;;58016053290
 ;;9002226.02101,"889,58016053291 ",.01)
 ;;58016053291
 ;;9002226.02101,"889,58016053291 ",.02)
 ;;58016053291
 ;;9002226.02101,"889,58016053292 ",.01)
 ;;58016053292
 ;;9002226.02101,"889,58016053292 ",.02)
 ;;58016053292
 ;;9002226.02101,"889,58016053293 ",.01)
 ;;58016053293
 ;;9002226.02101,"889,58016053293 ",.02)
 ;;58016053293
 ;;9002226.02101,"889,58016053296 ",.01)
 ;;58016053296
 ;;9002226.02101,"889,58016053296 ",.02)
 ;;58016053296
 ;;9002226.02101,"889,58016053297 ",.01)
 ;;58016053297
 ;;9002226.02101,"889,58016053297 ",.02)
 ;;58016053297
 ;;9002226.02101,"889,58016053298 ",.01)
 ;;58016053298
 ;;9002226.02101,"889,58016053298 ",.02)
 ;;58016053298
 ;;9002226.02101,"889,58016053299 ",.01)
 ;;58016053299
 ;;9002226.02101,"889,58016053299 ",.02)
 ;;58016053299
 ;;9002226.02101,"889,58016058200 ",.01)
 ;;58016058200
 ;;9002226.02101,"889,58016058200 ",.02)
 ;;58016058200
 ;;9002226.02101,"889,58016058215 ",.01)
 ;;58016058215
 ;;9002226.02101,"889,58016058215 ",.02)
 ;;58016058215
 ;;9002226.02101,"889,58016058220 ",.01)
 ;;58016058220
 ;;9002226.02101,"889,58016058220 ",.02)
 ;;58016058220
 ;;9002226.02101,"889,58016058230 ",.01)
 ;;58016058230
 ;;9002226.02101,"889,58016058230 ",.02)
 ;;58016058230
 ;;9002226.02101,"889,58016058260 ",.01)
 ;;58016058260
 ;;9002226.02101,"889,58016058260 ",.02)
 ;;58016058260
 ;;9002226.02101,"889,58016060400 ",.01)
 ;;58016060400
 ;;9002226.02101,"889,58016060400 ",.02)
 ;;58016060400
 ;;9002226.02101,"889,58016060430 ",.01)
 ;;58016060430
 ;;9002226.02101,"889,58016060430 ",.02)
 ;;58016060430
 ;;9002226.02101,"889,58016060460 ",.01)
 ;;58016060460
 ;;9002226.02101,"889,58016060460 ",.02)
 ;;58016060460
 ;;9002226.02101,"889,58016060490 ",.01)
 ;;58016060490
 ;;9002226.02101,"889,58016060490 ",.02)
 ;;58016060490
 ;;9002226.02101,"889,58016077100 ",.01)
 ;;58016077100
 ;;9002226.02101,"889,58016077100 ",.02)
 ;;58016077100
 ;;9002226.02101,"889,58016077112 ",.01)
 ;;58016077112
 ;;9002226.02101,"889,58016077112 ",.02)
 ;;58016077112
 ;;9002226.02101,"889,58016077115 ",.01)
 ;;58016077115
 ;;9002226.02101,"889,58016077115 ",.02)
 ;;58016077115
 ;;9002226.02101,"889,58016077120 ",.01)
 ;;58016077120
 ;;9002226.02101,"889,58016077120 ",.02)
 ;;58016077120
 ;;9002226.02101,"889,58016077130 ",.01)
 ;;58016077130
 ;;9002226.02101,"889,58016077130 ",.02)
 ;;58016077130
 ;;9002226.02101,"889,58016077160 ",.01)
 ;;58016077160
 ;;9002226.02101,"889,58016077160 ",.02)
 ;;58016077160
 ;;9002226.02101,"889,58016082000 ",.01)
 ;;58016082000
 ;;9002226.02101,"889,58016082000 ",.02)
 ;;58016082000
 ;;9002226.02101,"889,58016082001 ",.01)
 ;;58016082001
 ;;9002226.02101,"889,58016082001 ",.02)
 ;;58016082001
 ;;9002226.02101,"889,58016082002 ",.01)
 ;;58016082002
 ;;9002226.02101,"889,58016082002 ",.02)
 ;;58016082002
 ;;9002226.02101,"889,58016082003 ",.01)
 ;;58016082003
 ;;9002226.02101,"889,58016082003 ",.02)
 ;;58016082003
 ;;9002226.02101,"889,58016082004 ",.01)
 ;;58016082004
 ;;9002226.02101,"889,58016082004 ",.02)
 ;;58016082004
 ;;9002226.02101,"889,58016082005 ",.01)
 ;;58016082005
 ;;9002226.02101,"889,58016082005 ",.02)
 ;;58016082005
 ;;9002226.02101,"889,58016082006 ",.01)
 ;;58016082006
 ;;9002226.02101,"889,58016082006 ",.02)
 ;;58016082006
 ;;9002226.02101,"889,58016082007 ",.01)
 ;;58016082007
 ;;9002226.02101,"889,58016082007 ",.02)
 ;;58016082007
 ;;9002226.02101,"889,58016082008 ",.01)
 ;;58016082008
 ;;9002226.02101,"889,58016082008 ",.02)
 ;;58016082008
 ;;9002226.02101,"889,58016082009 ",.01)
 ;;58016082009
 ;;9002226.02101,"889,58016082009 ",.02)
 ;;58016082009
 ;;9002226.02101,"889,58016082010 ",.01)
 ;;58016082010
 ;;9002226.02101,"889,58016082010 ",.02)
 ;;58016082010
 ;;9002226.02101,"889,58016082012 ",.01)
 ;;58016082012
 ;;9002226.02101,"889,58016082012 ",.02)
 ;;58016082012