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

BGPM5AW.m

Go to the documentation of this file.
BGPM5AW ;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,58016088436 ",.01)
 ;;58016088436
 ;;9002226.02101,"1033,58016088436 ",.02)
 ;;58016088436
 ;;9002226.02101,"1033,58016088440 ",.01)
 ;;58016088440
 ;;9002226.02101,"1033,58016088440 ",.02)
 ;;58016088440
 ;;9002226.02101,"1033,58016088442 ",.01)
 ;;58016088442
 ;;9002226.02101,"1033,58016088442 ",.02)
 ;;58016088442
 ;;9002226.02101,"1033,58016088444 ",.01)
 ;;58016088444
 ;;9002226.02101,"1033,58016088444 ",.02)
 ;;58016088444
 ;;9002226.02101,"1033,58016088445 ",.01)
 ;;58016088445
 ;;9002226.02101,"1033,58016088445 ",.02)
 ;;58016088445
 ;;9002226.02101,"1033,58016088448 ",.01)
 ;;58016088448
 ;;9002226.02101,"1033,58016088448 ",.02)
 ;;58016088448
 ;;9002226.02101,"1033,58016088450 ",.01)
 ;;58016088450
 ;;9002226.02101,"1033,58016088450 ",.02)
 ;;58016088450
 ;;9002226.02101,"1033,58016088456 ",.01)
 ;;58016088456
 ;;9002226.02101,"1033,58016088456 ",.02)
 ;;58016088456
 ;;9002226.02101,"1033,58016088460 ",.01)
 ;;58016088460
 ;;9002226.02101,"1033,58016088460 ",.02)
 ;;58016088460
 ;;9002226.02101,"1033,58016088467 ",.01)
 ;;58016088467
 ;;9002226.02101,"1033,58016088467 ",.02)
 ;;58016088467
 ;;9002226.02101,"1033,58016088469 ",.01)
 ;;58016088469
 ;;9002226.02101,"1033,58016088469 ",.02)
 ;;58016088469
 ;;9002226.02101,"1033,58016088470 ",.01)
 ;;58016088470
 ;;9002226.02101,"1033,58016088470 ",.02)
 ;;58016088470
 ;;9002226.02101,"1033,58016088471 ",.01)
 ;;58016088471
 ;;9002226.02101,"1033,58016088471 ",.02)
 ;;58016088471
 ;;9002226.02101,"1033,58016088472 ",.01)
 ;;58016088472
 ;;9002226.02101,"1033,58016088472 ",.02)
 ;;58016088472
 ;;9002226.02101,"1033,58016088473 ",.01)
 ;;58016088473
 ;;9002226.02101,"1033,58016088473 ",.02)
 ;;58016088473
 ;;9002226.02101,"1033,58016088475 ",.01)
 ;;58016088475
 ;;9002226.02101,"1033,58016088475 ",.02)
 ;;58016088475
 ;;9002226.02101,"1033,58016088476 ",.01)
 ;;58016088476
 ;;9002226.02101,"1033,58016088476 ",.02)
 ;;58016088476
 ;;9002226.02101,"1033,58016088479 ",.01)
 ;;58016088479
 ;;9002226.02101,"1033,58016088479 ",.02)
 ;;58016088479
 ;;9002226.02101,"1033,58016088480 ",.01)
 ;;58016088480
 ;;9002226.02101,"1033,58016088480 ",.02)
 ;;58016088480
 ;;9002226.02101,"1033,58016088481 ",.01)
 ;;58016088481
 ;;9002226.02101,"1033,58016088481 ",.02)
 ;;58016088481
 ;;9002226.02101,"1033,58016088482 ",.01)
 ;;58016088482
 ;;9002226.02101,"1033,58016088482 ",.02)
 ;;58016088482
 ;;9002226.02101,"1033,58016088483 ",.01)
 ;;58016088483
 ;;9002226.02101,"1033,58016088483 ",.02)
 ;;58016088483
 ;;9002226.02101,"1033,58016088484 ",.01)
 ;;58016088484
 ;;9002226.02101,"1033,58016088484 ",.02)
 ;;58016088484
 ;;9002226.02101,"1033,58016088487 ",.01)
 ;;58016088487
 ;;9002226.02101,"1033,58016088487 ",.02)
 ;;58016088487
 ;;9002226.02101,"1033,58016088489 ",.01)
 ;;58016088489
 ;;9002226.02101,"1033,58016088489 ",.02)
 ;;58016088489
 ;;9002226.02101,"1033,58016088490 ",.01)
 ;;58016088490
 ;;9002226.02101,"1033,58016088490 ",.02)
 ;;58016088490
 ;;9002226.02101,"1033,58016088491 ",.01)
 ;;58016088491
 ;;9002226.02101,"1033,58016088491 ",.02)
 ;;58016088491
 ;;9002226.02101,"1033,58016088492 ",.01)
 ;;58016088492
 ;;9002226.02101,"1033,58016088492 ",.02)
 ;;58016088492
 ;;9002226.02101,"1033,58016088493 ",.01)
 ;;58016088493
 ;;9002226.02101,"1033,58016088493 ",.02)
 ;;58016088493
 ;;9002226.02101,"1033,58016088496 ",.01)
 ;;58016088496
 ;;9002226.02101,"1033,58016088496 ",.02)
 ;;58016088496
 ;;9002226.02101,"1033,58016088497 ",.01)
 ;;58016088497
 ;;9002226.02101,"1033,58016088497 ",.02)
 ;;58016088497
 ;;9002226.02101,"1033,58016088498 ",.01)
 ;;58016088498
 ;;9002226.02101,"1033,58016088498 ",.02)
 ;;58016088498
 ;;9002226.02101,"1033,58016088499 ",.01)
 ;;58016088499
 ;;9002226.02101,"1033,58016088499 ",.02)
 ;;58016088499
 ;;9002226.02101,"1033,58016095300 ",.01)
 ;;58016095300
 ;;9002226.02101,"1033,58016095300 ",.02)
 ;;58016095300
 ;;9002226.02101,"1033,58016095301 ",.01)
 ;;58016095301
 ;;9002226.02101,"1033,58016095301 ",.02)
 ;;58016095301
 ;;9002226.02101,"1033,58016095302 ",.01)
 ;;58016095302
 ;;9002226.02101,"1033,58016095302 ",.02)
 ;;58016095302
 ;;9002226.02101,"1033,58016095303 ",.01)
 ;;58016095303
 ;;9002226.02101,"1033,58016095303 ",.02)
 ;;58016095303
 ;;9002226.02101,"1033,58016095304 ",.01)
 ;;58016095304
 ;;9002226.02101,"1033,58016095304 ",.02)
 ;;58016095304
 ;;9002226.02101,"1033,58016095305 ",.01)
 ;;58016095305
 ;;9002226.02101,"1033,58016095305 ",.02)
 ;;58016095305
 ;;9002226.02101,"1033,58016095306 ",.01)
 ;;58016095306
 ;;9002226.02101,"1033,58016095306 ",.02)
 ;;58016095306
 ;;9002226.02101,"1033,58016095307 ",.01)
 ;;58016095307
 ;;9002226.02101,"1033,58016095307 ",.02)
 ;;58016095307
 ;;9002226.02101,"1033,58016095308 ",.01)
 ;;58016095308
 ;;9002226.02101,"1033,58016095308 ",.02)
 ;;58016095308
 ;;9002226.02101,"1033,58016095309 ",.01)
 ;;58016095309
 ;;9002226.02101,"1033,58016095309 ",.02)
 ;;58016095309
 ;;9002226.02101,"1033,58016095310 ",.01)
 ;;58016095310
 ;;9002226.02101,"1033,58016095310 ",.02)
 ;;58016095310
 ;;9002226.02101,"1033,58016095312 ",.01)
 ;;58016095312
 ;;9002226.02101,"1033,58016095312 ",.02)
 ;;58016095312
 ;;9002226.02101,"1033,58016095314 ",.01)
 ;;58016095314
 ;;9002226.02101,"1033,58016095314 ",.02)
 ;;58016095314
 ;;9002226.02101,"1033,58016095315 ",.01)
 ;;58016095315
 ;;9002226.02101,"1033,58016095315 ",.02)
 ;;58016095315
 ;;9002226.02101,"1033,58016095316 ",.01)
 ;;58016095316
 ;;9002226.02101,"1033,58016095316 ",.02)
 ;;58016095316
 ;;9002226.02101,"1033,58016095318 ",.01)
 ;;58016095318
 ;;9002226.02101,"1033,58016095318 ",.02)
 ;;58016095318
 ;;9002226.02101,"1033,58016095320 ",.01)
 ;;58016095320
 ;;9002226.02101,"1033,58016095320 ",.02)
 ;;58016095320
 ;;9002226.02101,"1033,58016095321 ",.01)
 ;;58016095321
 ;;9002226.02101,"1033,58016095321 ",.02)
 ;;58016095321
 ;;9002226.02101,"1033,58016095324 ",.01)
 ;;58016095324
 ;;9002226.02101,"1033,58016095324 ",.02)
 ;;58016095324
 ;;9002226.02101,"1033,58016095325 ",.01)
 ;;58016095325
 ;;9002226.02101,"1033,58016095325 ",.02)
 ;;58016095325
 ;;9002226.02101,"1033,58016095326 ",.01)
 ;;58016095326
 ;;9002226.02101,"1033,58016095326 ",.02)
 ;;58016095326
 ;;9002226.02101,"1033,58016095327 ",.01)
 ;;58016095327
 ;;9002226.02101,"1033,58016095327 ",.02)
 ;;58016095327
 ;;9002226.02101,"1033,58016095328 ",.01)
 ;;58016095328
 ;;9002226.02101,"1033,58016095328 ",.02)
 ;;58016095328
 ;;9002226.02101,"1033,58016095330 ",.01)
 ;;58016095330
 ;;9002226.02101,"1033,58016095330 ",.02)
 ;;58016095330
 ;;9002226.02101,"1033,58016095332 ",.01)
 ;;58016095332
 ;;9002226.02101,"1033,58016095332 ",.02)
 ;;58016095332
 ;;9002226.02101,"1033,58016095335 ",.01)
 ;;58016095335
 ;;9002226.02101,"1033,58016095335 ",.02)
 ;;58016095335
 ;;9002226.02101,"1033,58016095336 ",.01)
 ;;58016095336
 ;;9002226.02101,"1033,58016095336 ",.02)
 ;;58016095336
 ;;9002226.02101,"1033,58016095340 ",.01)
 ;;58016095340
 ;;9002226.02101,"1033,58016095340 ",.02)
 ;;58016095340
 ;;9002226.02101,"1033,58016095342 ",.01)
 ;;58016095342
 ;;9002226.02101,"1033,58016095342 ",.02)
 ;;58016095342
 ;;9002226.02101,"1033,58016095344 ",.01)
 ;;58016095344
 ;;9002226.02101,"1033,58016095344 ",.02)
 ;;58016095344
 ;;9002226.02101,"1033,58016095345 ",.01)
 ;;58016095345
 ;;9002226.02101,"1033,58016095345 ",.02)
 ;;58016095345
 ;;9002226.02101,"1033,58016095348 ",.01)
 ;;58016095348
 ;;9002226.02101,"1033,58016095348 ",.02)
 ;;58016095348
 ;;9002226.02101,"1033,58016095350 ",.01)
 ;;58016095350
 ;;9002226.02101,"1033,58016095350 ",.02)
 ;;58016095350
 ;;9002226.02101,"1033,58016095356 ",.01)
 ;;58016095356
 ;;9002226.02101,"1033,58016095356 ",.02)
 ;;58016095356
 ;;9002226.02101,"1033,58016095360 ",.01)
 ;;58016095360
 ;;9002226.02101,"1033,58016095360 ",.02)
 ;;58016095360
 ;;9002226.02101,"1033,58016095367 ",.01)
 ;;58016095367
 ;;9002226.02101,"1033,58016095367 ",.02)
 ;;58016095367
 ;;9002226.02101,"1033,58016095369 ",.01)
 ;;58016095369
 ;;9002226.02101,"1033,58016095369 ",.02)
 ;;58016095369
 ;;9002226.02101,"1033,58016095370 ",.01)
 ;;58016095370
 ;;9002226.02101,"1033,58016095370 ",.02)
 ;;58016095370
 ;;9002226.02101,"1033,58016095371 ",.01)
 ;;58016095371
 ;;9002226.02101,"1033,58016095371 ",.02)
 ;;58016095371
 ;;9002226.02101,"1033,58016095372 ",.01)
 ;;58016095372
 ;;9002226.02101,"1033,58016095372 ",.02)
 ;;58016095372
 ;;9002226.02101,"1033,58016095373 ",.01)
 ;;58016095373
 ;;9002226.02101,"1033,58016095373 ",.02)
 ;;58016095373
 ;;9002226.02101,"1033,58016095375 ",.01)
 ;;58016095375
 ;;9002226.02101,"1033,58016095375 ",.02)
 ;;58016095375
 ;;9002226.02101,"1033,58016095376 ",.01)
 ;;58016095376
 ;;9002226.02101,"1033,58016095376 ",.02)
 ;;58016095376
 ;;9002226.02101,"1033,58016095377 ",.01)
 ;;58016095377
 ;;9002226.02101,"1033,58016095377 ",.02)
 ;;58016095377
 ;;9002226.02101,"1033,58016095379 ",.01)
 ;;58016095379
 ;;9002226.02101,"1033,58016095379 ",.02)
 ;;58016095379
 ;;9002226.02101,"1033,58016095380 ",.01)
 ;;58016095380
 ;;9002226.02101,"1033,58016095380 ",.02)
 ;;58016095380
 ;;9002226.02101,"1033,58016095381 ",.01)
 ;;58016095381
 ;;9002226.02101,"1033,58016095381 ",.02)
 ;;58016095381
 ;;9002226.02101,"1033,58016095382 ",.01)
 ;;58016095382
 ;;9002226.02101,"1033,58016095382 ",.02)
 ;;58016095382
 ;;9002226.02101,"1033,58016095383 ",.01)
 ;;58016095383
 ;;9002226.02101,"1033,58016095383 ",.02)
 ;;58016095383
 ;;9002226.02101,"1033,58016095384 ",.01)
 ;;58016095384
 ;;9002226.02101,"1033,58016095384 ",.02)
 ;;58016095384
 ;;9002226.02101,"1033,58016095387 ",.01)
 ;;58016095387
 ;;9002226.02101,"1033,58016095387 ",.02)
 ;;58016095387
 ;;9002226.02101,"1033,58016095389 ",.01)
 ;;58016095389
 ;;9002226.02101,"1033,58016095389 ",.02)
 ;;58016095389
 ;;9002226.02101,"1033,58016095390 ",.01)
 ;;58016095390
 ;;9002226.02101,"1033,58016095390 ",.02)
 ;;58016095390
 ;;9002226.02101,"1033,58016095391 ",.01)
 ;;58016095391
 ;;9002226.02101,"1033,58016095391 ",.02)
 ;;58016095391
 ;;9002226.02101,"1033,58016095392 ",.01)
 ;;58016095392
 ;;9002226.02101,"1033,58016095392 ",.02)
 ;;58016095392
 ;;9002226.02101,"1033,58016095393 ",.01)
 ;;58016095393
 ;;9002226.02101,"1033,58016095393 ",.02)
 ;;58016095393
 ;;9002226.02101,"1033,58016095396 ",.01)
 ;;58016095396
 ;;9002226.02101,"1033,58016095396 ",.02)
 ;;58016095396
 ;;9002226.02101,"1033,58016095397 ",.01)
 ;;58016095397
 ;;9002226.02101,"1033,58016095397 ",.02)
 ;;58016095397
 ;;9002226.02101,"1033,58016095398 ",.01)
 ;;58016095398
 ;;9002226.02101,"1033,58016095398 ",.02)
 ;;58016095398
 ;;9002226.02101,"1033,58016095399 ",.01)
 ;;58016095399
 ;;9002226.02101,"1033,58016095399 ",.02)
 ;;58016095399
 ;;9002226.02101,"1033,58016095700 ",.01)
 ;;58016095700
 ;;9002226.02101,"1033,58016095700 ",.02)
 ;;58016095700
 ;;9002226.02101,"1033,58016095701 ",.01)
 ;;58016095701
 ;;9002226.02101,"1033,58016095701 ",.02)
 ;;58016095701
 ;;9002226.02101,"1033,58016095702 ",.01)
 ;;58016095702
 ;;9002226.02101,"1033,58016095702 ",.02)
 ;;58016095702
 ;;9002226.02101,"1033,58016095703 ",.01)
 ;;58016095703
 ;;9002226.02101,"1033,58016095703 ",.02)
 ;;58016095703
 ;;9002226.02101,"1033,58016095704 ",.01)
 ;;58016095704
 ;;9002226.02101,"1033,58016095704 ",.02)
 ;;58016095704
 ;;9002226.02101,"1033,58016095705 ",.01)
 ;;58016095705
 ;;9002226.02101,"1033,58016095705 ",.02)
 ;;58016095705
 ;;9002226.02101,"1033,58016095706 ",.01)
 ;;58016095706
 ;;9002226.02101,"1033,58016095706 ",.02)
 ;;58016095706
 ;;9002226.02101,"1033,58016095707 ",.01)
 ;;58016095707