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

BGPM5AVT.m

Go to the documentation of this file.
BGPM5AVT ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 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,"1033,58016012208 ",.02)
 ;;58016012208
 ;;9002226.02101,"1033,58016012209 ",.01)
 ;;58016012209
 ;;9002226.02101,"1033,58016012209 ",.02)
 ;;58016012209
 ;;9002226.02101,"1033,58016012210 ",.01)
 ;;58016012210
 ;;9002226.02101,"1033,58016012210 ",.02)
 ;;58016012210
 ;;9002226.02101,"1033,58016012212 ",.01)
 ;;58016012212
 ;;9002226.02101,"1033,58016012212 ",.02)
 ;;58016012212
 ;;9002226.02101,"1033,58016012214 ",.01)
 ;;58016012214
 ;;9002226.02101,"1033,58016012214 ",.02)
 ;;58016012214
 ;;9002226.02101,"1033,58016012215 ",.01)
 ;;58016012215
 ;;9002226.02101,"1033,58016012215 ",.02)
 ;;58016012215
 ;;9002226.02101,"1033,58016012216 ",.01)
 ;;58016012216
 ;;9002226.02101,"1033,58016012216 ",.02)
 ;;58016012216
 ;;9002226.02101,"1033,58016012218 ",.01)
 ;;58016012218
 ;;9002226.02101,"1033,58016012218 ",.02)
 ;;58016012218
 ;;9002226.02101,"1033,58016012220 ",.01)
 ;;58016012220
 ;;9002226.02101,"1033,58016012220 ",.02)
 ;;58016012220
 ;;9002226.02101,"1033,58016012221 ",.01)
 ;;58016012221
 ;;9002226.02101,"1033,58016012221 ",.02)
 ;;58016012221
 ;;9002226.02101,"1033,58016012224 ",.01)
 ;;58016012224
 ;;9002226.02101,"1033,58016012224 ",.02)
 ;;58016012224
 ;;9002226.02101,"1033,58016012225 ",.01)
 ;;58016012225
 ;;9002226.02101,"1033,58016012225 ",.02)
 ;;58016012225
 ;;9002226.02101,"1033,58016012226 ",.01)
 ;;58016012226
 ;;9002226.02101,"1033,58016012226 ",.02)
 ;;58016012226
 ;;9002226.02101,"1033,58016012227 ",.01)
 ;;58016012227
 ;;9002226.02101,"1033,58016012227 ",.02)
 ;;58016012227
 ;;9002226.02101,"1033,58016012228 ",.01)
 ;;58016012228
 ;;9002226.02101,"1033,58016012228 ",.02)
 ;;58016012228
 ;;9002226.02101,"1033,58016012230 ",.01)
 ;;58016012230
 ;;9002226.02101,"1033,58016012230 ",.02)
 ;;58016012230
 ;;9002226.02101,"1033,58016012232 ",.01)
 ;;58016012232
 ;;9002226.02101,"1033,58016012232 ",.02)
 ;;58016012232
 ;;9002226.02101,"1033,58016012235 ",.01)
 ;;58016012235
 ;;9002226.02101,"1033,58016012235 ",.02)
 ;;58016012235
 ;;9002226.02101,"1033,58016012236 ",.01)
 ;;58016012236
 ;;9002226.02101,"1033,58016012236 ",.02)
 ;;58016012236
 ;;9002226.02101,"1033,58016012240 ",.01)
 ;;58016012240
 ;;9002226.02101,"1033,58016012240 ",.02)
 ;;58016012240
 ;;9002226.02101,"1033,58016012242 ",.01)
 ;;58016012242
 ;;9002226.02101,"1033,58016012242 ",.02)
 ;;58016012242
 ;;9002226.02101,"1033,58016012244 ",.01)
 ;;58016012244
 ;;9002226.02101,"1033,58016012244 ",.02)
 ;;58016012244
 ;;9002226.02101,"1033,58016012245 ",.01)
 ;;58016012245
 ;;9002226.02101,"1033,58016012245 ",.02)
 ;;58016012245
 ;;9002226.02101,"1033,58016012248 ",.01)
 ;;58016012248
 ;;9002226.02101,"1033,58016012248 ",.02)
 ;;58016012248
 ;;9002226.02101,"1033,58016012250 ",.01)
 ;;58016012250
 ;;9002226.02101,"1033,58016012250 ",.02)
 ;;58016012250
 ;;9002226.02101,"1033,58016012256 ",.01)
 ;;58016012256
 ;;9002226.02101,"1033,58016012256 ",.02)
 ;;58016012256
 ;;9002226.02101,"1033,58016012260 ",.01)
 ;;58016012260
 ;;9002226.02101,"1033,58016012260 ",.02)
 ;;58016012260
 ;;9002226.02101,"1033,58016012267 ",.01)
 ;;58016012267
 ;;9002226.02101,"1033,58016012267 ",.02)
 ;;58016012267
 ;;9002226.02101,"1033,58016012269 ",.01)
 ;;58016012269
 ;;9002226.02101,"1033,58016012269 ",.02)
 ;;58016012269
 ;;9002226.02101,"1033,58016012270 ",.01)
 ;;58016012270
 ;;9002226.02101,"1033,58016012270 ",.02)
 ;;58016012270
 ;;9002226.02101,"1033,58016012271 ",.01)
 ;;58016012271
 ;;9002226.02101,"1033,58016012271 ",.02)
 ;;58016012271
 ;;9002226.02101,"1033,58016012272 ",.01)
 ;;58016012272
 ;;9002226.02101,"1033,58016012272 ",.02)
 ;;58016012272
 ;;9002226.02101,"1033,58016012273 ",.01)
 ;;58016012273
 ;;9002226.02101,"1033,58016012273 ",.02)
 ;;58016012273
 ;;9002226.02101,"1033,58016012275 ",.01)
 ;;58016012275
 ;;9002226.02101,"1033,58016012275 ",.02)
 ;;58016012275
 ;;9002226.02101,"1033,58016012276 ",.01)
 ;;58016012276
 ;;9002226.02101,"1033,58016012276 ",.02)
 ;;58016012276
 ;;9002226.02101,"1033,58016012277 ",.01)
 ;;58016012277
 ;;9002226.02101,"1033,58016012277 ",.02)
 ;;58016012277
 ;;9002226.02101,"1033,58016012279 ",.01)
 ;;58016012279
 ;;9002226.02101,"1033,58016012279 ",.02)
 ;;58016012279
 ;;9002226.02101,"1033,58016012280 ",.01)
 ;;58016012280
 ;;9002226.02101,"1033,58016012280 ",.02)
 ;;58016012280
 ;;9002226.02101,"1033,58016012281 ",.01)
 ;;58016012281
 ;;9002226.02101,"1033,58016012281 ",.02)
 ;;58016012281
 ;;9002226.02101,"1033,58016012282 ",.01)
 ;;58016012282
 ;;9002226.02101,"1033,58016012282 ",.02)
 ;;58016012282
 ;;9002226.02101,"1033,58016012283 ",.01)
 ;;58016012283
 ;;9002226.02101,"1033,58016012283 ",.02)
 ;;58016012283
 ;;9002226.02101,"1033,58016012284 ",.01)
 ;;58016012284
 ;;9002226.02101,"1033,58016012284 ",.02)
 ;;58016012284
 ;;9002226.02101,"1033,58016012287 ",.01)
 ;;58016012287
 ;;9002226.02101,"1033,58016012287 ",.02)
 ;;58016012287
 ;;9002226.02101,"1033,58016012289 ",.01)
 ;;58016012289
 ;;9002226.02101,"1033,58016012289 ",.02)
 ;;58016012289
 ;;9002226.02101,"1033,58016012290 ",.01)
 ;;58016012290
 ;;9002226.02101,"1033,58016012290 ",.02)
 ;;58016012290
 ;;9002226.02101,"1033,58016012291 ",.01)
 ;;58016012291
 ;;9002226.02101,"1033,58016012291 ",.02)
 ;;58016012291
 ;;9002226.02101,"1033,58016012292 ",.01)
 ;;58016012292
 ;;9002226.02101,"1033,58016012292 ",.02)
 ;;58016012292
 ;;9002226.02101,"1033,58016012293 ",.01)
 ;;58016012293
 ;;9002226.02101,"1033,58016012293 ",.02)
 ;;58016012293
 ;;9002226.02101,"1033,58016012296 ",.01)
 ;;58016012296
 ;;9002226.02101,"1033,58016012296 ",.02)
 ;;58016012296
 ;;9002226.02101,"1033,58016012297 ",.01)
 ;;58016012297
 ;;9002226.02101,"1033,58016012297 ",.02)
 ;;58016012297
 ;;9002226.02101,"1033,58016012298 ",.01)
 ;;58016012298
 ;;9002226.02101,"1033,58016012298 ",.02)
 ;;58016012298
 ;;9002226.02101,"1033,58016012299 ",.01)
 ;;58016012299
 ;;9002226.02101,"1033,58016012299 ",.02)
 ;;58016012299
 ;;9002226.02101,"1033,58016012400 ",.01)
 ;;58016012400
 ;;9002226.02101,"1033,58016012400 ",.02)
 ;;58016012400
 ;;9002226.02101,"1033,58016012401 ",.01)
 ;;58016012401
 ;;9002226.02101,"1033,58016012401 ",.02)
 ;;58016012401
 ;;9002226.02101,"1033,58016012402 ",.01)
 ;;58016012402
 ;;9002226.02101,"1033,58016012402 ",.02)
 ;;58016012402
 ;;9002226.02101,"1033,58016012403 ",.01)
 ;;58016012403
 ;;9002226.02101,"1033,58016012403 ",.02)
 ;;58016012403
 ;;9002226.02101,"1033,58016012404 ",.01)
 ;;58016012404
 ;;9002226.02101,"1033,58016012404 ",.02)
 ;;58016012404
 ;;9002226.02101,"1033,58016012405 ",.01)
 ;;58016012405
 ;;9002226.02101,"1033,58016012405 ",.02)
 ;;58016012405
 ;;9002226.02101,"1033,58016012406 ",.01)
 ;;58016012406
 ;;9002226.02101,"1033,58016012406 ",.02)
 ;;58016012406
 ;;9002226.02101,"1033,58016012407 ",.01)
 ;;58016012407
 ;;9002226.02101,"1033,58016012407 ",.02)
 ;;58016012407
 ;;9002226.02101,"1033,58016012408 ",.01)
 ;;58016012408
 ;;9002226.02101,"1033,58016012408 ",.02)
 ;;58016012408
 ;;9002226.02101,"1033,58016012409 ",.01)
 ;;58016012409
 ;;9002226.02101,"1033,58016012409 ",.02)
 ;;58016012409
 ;;9002226.02101,"1033,58016012410 ",.01)
 ;;58016012410
 ;;9002226.02101,"1033,58016012410 ",.02)
 ;;58016012410
 ;;9002226.02101,"1033,58016012412 ",.01)
 ;;58016012412
 ;;9002226.02101,"1033,58016012412 ",.02)
 ;;58016012412
 ;;9002226.02101,"1033,58016012414 ",.01)
 ;;58016012414
 ;;9002226.02101,"1033,58016012414 ",.02)
 ;;58016012414
 ;;9002226.02101,"1033,58016012415 ",.01)
 ;;58016012415
 ;;9002226.02101,"1033,58016012415 ",.02)
 ;;58016012415
 ;;9002226.02101,"1033,58016012416 ",.01)
 ;;58016012416
 ;;9002226.02101,"1033,58016012416 ",.02)
 ;;58016012416
 ;;9002226.02101,"1033,58016012418 ",.01)
 ;;58016012418
 ;;9002226.02101,"1033,58016012418 ",.02)
 ;;58016012418
 ;;9002226.02101,"1033,58016012420 ",.01)
 ;;58016012420
 ;;9002226.02101,"1033,58016012420 ",.02)
 ;;58016012420
 ;;9002226.02101,"1033,58016012421 ",.01)
 ;;58016012421
 ;;9002226.02101,"1033,58016012421 ",.02)
 ;;58016012421
 ;;9002226.02101,"1033,58016012424 ",.01)
 ;;58016012424
 ;;9002226.02101,"1033,58016012424 ",.02)
 ;;58016012424
 ;;9002226.02101,"1033,58016012425 ",.01)
 ;;58016012425
 ;;9002226.02101,"1033,58016012425 ",.02)
 ;;58016012425
 ;;9002226.02101,"1033,58016012426 ",.01)
 ;;58016012426
 ;;9002226.02101,"1033,58016012426 ",.02)
 ;;58016012426
 ;;9002226.02101,"1033,58016012427 ",.01)
 ;;58016012427
 ;;9002226.02101,"1033,58016012427 ",.02)
 ;;58016012427
 ;;9002226.02101,"1033,58016012428 ",.01)
 ;;58016012428
 ;;9002226.02101,"1033,58016012428 ",.02)
 ;;58016012428
 ;;9002226.02101,"1033,58016012430 ",.01)
 ;;58016012430
 ;;9002226.02101,"1033,58016012430 ",.02)
 ;;58016012430
 ;;9002226.02101,"1033,58016012432 ",.01)
 ;;58016012432
 ;;9002226.02101,"1033,58016012432 ",.02)
 ;;58016012432
 ;;9002226.02101,"1033,58016012435 ",.01)
 ;;58016012435
 ;;9002226.02101,"1033,58016012435 ",.02)
 ;;58016012435
 ;;9002226.02101,"1033,58016012436 ",.01)
 ;;58016012436
 ;;9002226.02101,"1033,58016012436 ",.02)
 ;;58016012436
 ;;9002226.02101,"1033,58016012440 ",.01)
 ;;58016012440
 ;;9002226.02101,"1033,58016012440 ",.02)
 ;;58016012440
 ;;9002226.02101,"1033,58016012442 ",.01)
 ;;58016012442
 ;;9002226.02101,"1033,58016012442 ",.02)
 ;;58016012442
 ;;9002226.02101,"1033,58016012444 ",.01)
 ;;58016012444
 ;;9002226.02101,"1033,58016012444 ",.02)
 ;;58016012444
 ;;9002226.02101,"1033,58016012445 ",.01)
 ;;58016012445
 ;;9002226.02101,"1033,58016012445 ",.02)
 ;;58016012445
 ;;9002226.02101,"1033,58016012448 ",.01)
 ;;58016012448
 ;;9002226.02101,"1033,58016012448 ",.02)
 ;;58016012448
 ;;9002226.02101,"1033,58016012450 ",.01)
 ;;58016012450
 ;;9002226.02101,"1033,58016012450 ",.02)
 ;;58016012450
 ;;9002226.02101,"1033,58016012456 ",.01)
 ;;58016012456
 ;;9002226.02101,"1033,58016012456 ",.02)
 ;;58016012456
 ;;9002226.02101,"1033,58016012460 ",.01)
 ;;58016012460
 ;;9002226.02101,"1033,58016012460 ",.02)
 ;;58016012460
 ;;9002226.02101,"1033,58016012467 ",.01)
 ;;58016012467
 ;;9002226.02101,"1033,58016012467 ",.02)
 ;;58016012467
 ;;9002226.02101,"1033,58016012469 ",.01)
 ;;58016012469
 ;;9002226.02101,"1033,58016012469 ",.02)
 ;;58016012469
 ;;9002226.02101,"1033,58016012470 ",.01)
 ;;58016012470
 ;;9002226.02101,"1033,58016012470 ",.02)
 ;;58016012470
 ;;9002226.02101,"1033,58016012471 ",.01)
 ;;58016012471
 ;;9002226.02101,"1033,58016012471 ",.02)
 ;;58016012471
 ;;9002226.02101,"1033,58016012472 ",.01)
 ;;58016012472
 ;;9002226.02101,"1033,58016012472 ",.02)
 ;;58016012472
 ;;9002226.02101,"1033,58016012473 ",.01)
 ;;58016012473
 ;;9002226.02101,"1033,58016012473 ",.02)
 ;;58016012473
 ;;9002226.02101,"1033,58016012475 ",.01)
 ;;58016012475
 ;;9002226.02101,"1033,58016012475 ",.02)
 ;;58016012475
 ;;9002226.02101,"1033,58016012476 ",.01)
 ;;58016012476
 ;;9002226.02101,"1033,58016012476 ",.02)
 ;;58016012476
 ;;9002226.02101,"1033,58016012477 ",.01)
 ;;58016012477
 ;;9002226.02101,"1033,58016012477 ",.02)
 ;;58016012477
 ;;9002226.02101,"1033,58016012479 ",.01)
 ;;58016012479
 ;;9002226.02101,"1033,58016012479 ",.02)
 ;;58016012479
 ;;9002226.02101,"1033,58016012480 ",.01)
 ;;58016012480
 ;;9002226.02101,"1033,58016012480 ",.02)
 ;;58016012480
 ;;9002226.02101,"1033,58016012481 ",.01)
 ;;58016012481
 ;;9002226.02101,"1033,58016012481 ",.02)
 ;;58016012481
 ;;9002226.02101,"1033,58016012482 ",.01)
 ;;58016012482
 ;;9002226.02101,"1033,58016012482 ",.02)
 ;;58016012482
 ;;9002226.02101,"1033,58016012483 ",.01)
 ;;58016012483
 ;;9002226.02101,"1033,58016012483 ",.02)
 ;;58016012483