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.
  1. BGPM5AW ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 2011;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"1033,58016088436 ",.01)
  1. ;;58016088436
  1. ;;9002226.02101,"1033,58016088436 ",.02)
  1. ;;58016088436
  1. ;;9002226.02101,"1033,58016088440 ",.01)
  1. ;;58016088440
  1. ;;9002226.02101,"1033,58016088440 ",.02)
  1. ;;58016088440
  1. ;;9002226.02101,"1033,58016088442 ",.01)
  1. ;;58016088442
  1. ;;9002226.02101,"1033,58016088442 ",.02)
  1. ;;58016088442
  1. ;;9002226.02101,"1033,58016088444 ",.01)
  1. ;;58016088444
  1. ;;9002226.02101,"1033,58016088444 ",.02)
  1. ;;58016088444
  1. ;;9002226.02101,"1033,58016088445 ",.01)
  1. ;;58016088445
  1. ;;9002226.02101,"1033,58016088445 ",.02)
  1. ;;58016088445
  1. ;;9002226.02101,"1033,58016088448 ",.01)
  1. ;;58016088448
  1. ;;9002226.02101,"1033,58016088448 ",.02)
  1. ;;58016088448
  1. ;;9002226.02101,"1033,58016088450 ",.01)
  1. ;;58016088450
  1. ;;9002226.02101,"1033,58016088450 ",.02)
  1. ;;58016088450
  1. ;;9002226.02101,"1033,58016088456 ",.01)
  1. ;;58016088456
  1. ;;9002226.02101,"1033,58016088456 ",.02)
  1. ;;58016088456
  1. ;;9002226.02101,"1033,58016088460 ",.01)
  1. ;;58016088460
  1. ;;9002226.02101,"1033,58016088460 ",.02)
  1. ;;58016088460
  1. ;;9002226.02101,"1033,58016088467 ",.01)
  1. ;;58016088467
  1. ;;9002226.02101,"1033,58016088467 ",.02)
  1. ;;58016088467
  1. ;;9002226.02101,"1033,58016088469 ",.01)
  1. ;;58016088469
  1. ;;9002226.02101,"1033,58016088469 ",.02)
  1. ;;58016088469
  1. ;;9002226.02101,"1033,58016088470 ",.01)
  1. ;;58016088470
  1. ;;9002226.02101,"1033,58016088470 ",.02)
  1. ;;58016088470
  1. ;;9002226.02101,"1033,58016088471 ",.01)
  1. ;;58016088471
  1. ;;9002226.02101,"1033,58016088471 ",.02)
  1. ;;58016088471
  1. ;;9002226.02101,"1033,58016088472 ",.01)
  1. ;;58016088472
  1. ;;9002226.02101,"1033,58016088472 ",.02)
  1. ;;58016088472
  1. ;;9002226.02101,"1033,58016088473 ",.01)
  1. ;;58016088473
  1. ;;9002226.02101,"1033,58016088473 ",.02)
  1. ;;58016088473
  1. ;;9002226.02101,"1033,58016088475 ",.01)
  1. ;;58016088475
  1. ;;9002226.02101,"1033,58016088475 ",.02)
  1. ;;58016088475
  1. ;;9002226.02101,"1033,58016088476 ",.01)
  1. ;;58016088476
  1. ;;9002226.02101,"1033,58016088476 ",.02)
  1. ;;58016088476
  1. ;;9002226.02101,"1033,58016088479 ",.01)
  1. ;;58016088479
  1. ;;9002226.02101,"1033,58016088479 ",.02)
  1. ;;58016088479
  1. ;;9002226.02101,"1033,58016088480 ",.01)
  1. ;;58016088480
  1. ;;9002226.02101,"1033,58016088480 ",.02)
  1. ;;58016088480
  1. ;;9002226.02101,"1033,58016088481 ",.01)
  1. ;;58016088481
  1. ;;9002226.02101,"1033,58016088481 ",.02)
  1. ;;58016088481
  1. ;;9002226.02101,"1033,58016088482 ",.01)
  1. ;;58016088482
  1. ;;9002226.02101,"1033,58016088482 ",.02)
  1. ;;58016088482
  1. ;;9002226.02101,"1033,58016088483 ",.01)
  1. ;;58016088483
  1. ;;9002226.02101,"1033,58016088483 ",.02)
  1. ;;58016088483
  1. ;;9002226.02101,"1033,58016088484 ",.01)
  1. ;;58016088484
  1. ;;9002226.02101,"1033,58016088484 ",.02)
  1. ;;58016088484
  1. ;;9002226.02101,"1033,58016088487 ",.01)
  1. ;;58016088487
  1. ;;9002226.02101,"1033,58016088487 ",.02)
  1. ;;58016088487
  1. ;;9002226.02101,"1033,58016088489 ",.01)
  1. ;;58016088489
  1. ;;9002226.02101,"1033,58016088489 ",.02)
  1. ;;58016088489
  1. ;;9002226.02101,"1033,58016088490 ",.01)
  1. ;;58016088490
  1. ;;9002226.02101,"1033,58016088490 ",.02)
  1. ;;58016088490
  1. ;;9002226.02101,"1033,58016088491 ",.01)
  1. ;;58016088491
  1. ;;9002226.02101,"1033,58016088491 ",.02)
  1. ;;58016088491
  1. ;;9002226.02101,"1033,58016088492 ",.01)
  1. ;;58016088492
  1. ;;9002226.02101,"1033,58016088492 ",.02)
  1. ;;58016088492
  1. ;;9002226.02101,"1033,58016088493 ",.01)
  1. ;;58016088493
  1. ;;9002226.02101,"1033,58016088493 ",.02)
  1. ;;58016088493
  1. ;;9002226.02101,"1033,58016088496 ",.01)
  1. ;;58016088496
  1. ;;9002226.02101,"1033,58016088496 ",.02)
  1. ;;58016088496
  1. ;;9002226.02101,"1033,58016088497 ",.01)
  1. ;;58016088497
  1. ;;9002226.02101,"1033,58016088497 ",.02)
  1. ;;58016088497
  1. ;;9002226.02101,"1033,58016088498 ",.01)
  1. ;;58016088498
  1. ;;9002226.02101,"1033,58016088498 ",.02)
  1. ;;58016088498
  1. ;;9002226.02101,"1033,58016088499 ",.01)
  1. ;;58016088499
  1. ;;9002226.02101,"1033,58016088499 ",.02)
  1. ;;58016088499
  1. ;;9002226.02101,"1033,58016095300 ",.01)
  1. ;;58016095300
  1. ;;9002226.02101,"1033,58016095300 ",.02)
  1. ;;58016095300
  1. ;;9002226.02101,"1033,58016095301 ",.01)
  1. ;;58016095301
  1. ;;9002226.02101,"1033,58016095301 ",.02)
  1. ;;58016095301
  1. ;;9002226.02101,"1033,58016095302 ",.01)
  1. ;;58016095302
  1. ;;9002226.02101,"1033,58016095302 ",.02)
  1. ;;58016095302
  1. ;;9002226.02101,"1033,58016095303 ",.01)
  1. ;;58016095303
  1. ;;9002226.02101,"1033,58016095303 ",.02)
  1. ;;58016095303
  1. ;;9002226.02101,"1033,58016095304 ",.01)
  1. ;;58016095304
  1. ;;9002226.02101,"1033,58016095304 ",.02)
  1. ;;58016095304
  1. ;;9002226.02101,"1033,58016095305 ",.01)
  1. ;;58016095305
  1. ;;9002226.02101,"1033,58016095305 ",.02)
  1. ;;58016095305
  1. ;;9002226.02101,"1033,58016095306 ",.01)
  1. ;;58016095306
  1. ;;9002226.02101,"1033,58016095306 ",.02)
  1. ;;58016095306
  1. ;;9002226.02101,"1033,58016095307 ",.01)
  1. ;;58016095307
  1. ;;9002226.02101,"1033,58016095307 ",.02)
  1. ;;58016095307
  1. ;;9002226.02101,"1033,58016095308 ",.01)
  1. ;;58016095308
  1. ;;9002226.02101,"1033,58016095308 ",.02)
  1. ;;58016095308
  1. ;;9002226.02101,"1033,58016095309 ",.01)
  1. ;;58016095309
  1. ;;9002226.02101,"1033,58016095309 ",.02)
  1. ;;58016095309
  1. ;;9002226.02101,"1033,58016095310 ",.01)
  1. ;;58016095310
  1. ;;9002226.02101,"1033,58016095310 ",.02)
  1. ;;58016095310
  1. ;;9002226.02101,"1033,58016095312 ",.01)
  1. ;;58016095312
  1. ;;9002226.02101,"1033,58016095312 ",.02)
  1. ;;58016095312
  1. ;;9002226.02101,"1033,58016095314 ",.01)
  1. ;;58016095314
  1. ;;9002226.02101,"1033,58016095314 ",.02)
  1. ;;58016095314
  1. ;;9002226.02101,"1033,58016095315 ",.01)
  1. ;;58016095315
  1. ;;9002226.02101,"1033,58016095315 ",.02)
  1. ;;58016095315
  1. ;;9002226.02101,"1033,58016095316 ",.01)
  1. ;;58016095316
  1. ;;9002226.02101,"1033,58016095316 ",.02)
  1. ;;58016095316
  1. ;;9002226.02101,"1033,58016095318 ",.01)
  1. ;;58016095318
  1. ;;9002226.02101,"1033,58016095318 ",.02)
  1. ;;58016095318
  1. ;;9002226.02101,"1033,58016095320 ",.01)
  1. ;;58016095320
  1. ;;9002226.02101,"1033,58016095320 ",.02)
  1. ;;58016095320
  1. ;;9002226.02101,"1033,58016095321 ",.01)
  1. ;;58016095321
  1. ;;9002226.02101,"1033,58016095321 ",.02)
  1. ;;58016095321
  1. ;;9002226.02101,"1033,58016095324 ",.01)
  1. ;;58016095324
  1. ;;9002226.02101,"1033,58016095324 ",.02)
  1. ;;58016095324
  1. ;;9002226.02101,"1033,58016095325 ",.01)
  1. ;;58016095325
  1. ;;9002226.02101,"1033,58016095325 ",.02)
  1. ;;58016095325
  1. ;;9002226.02101,"1033,58016095326 ",.01)
  1. ;;58016095326
  1. ;;9002226.02101,"1033,58016095326 ",.02)
  1. ;;58016095326
  1. ;;9002226.02101,"1033,58016095327 ",.01)
  1. ;;58016095327
  1. ;;9002226.02101,"1033,58016095327 ",.02)
  1. ;;58016095327
  1. ;;9002226.02101,"1033,58016095328 ",.01)
  1. ;;58016095328
  1. ;;9002226.02101,"1033,58016095328 ",.02)
  1. ;;58016095328
  1. ;;9002226.02101,"1033,58016095330 ",.01)
  1. ;;58016095330
  1. ;;9002226.02101,"1033,58016095330 ",.02)
  1. ;;58016095330
  1. ;;9002226.02101,"1033,58016095332 ",.01)
  1. ;;58016095332
  1. ;;9002226.02101,"1033,58016095332 ",.02)
  1. ;;58016095332
  1. ;;9002226.02101,"1033,58016095335 ",.01)
  1. ;;58016095335
  1. ;;9002226.02101,"1033,58016095335 ",.02)
  1. ;;58016095335
  1. ;;9002226.02101,"1033,58016095336 ",.01)
  1. ;;58016095336
  1. ;;9002226.02101,"1033,58016095336 ",.02)
  1. ;;58016095336
  1. ;;9002226.02101,"1033,58016095340 ",.01)
  1. ;;58016095340
  1. ;;9002226.02101,"1033,58016095340 ",.02)
  1. ;;58016095340
  1. ;;9002226.02101,"1033,58016095342 ",.01)
  1. ;;58016095342
  1. ;;9002226.02101,"1033,58016095342 ",.02)
  1. ;;58016095342
  1. ;;9002226.02101,"1033,58016095344 ",.01)
  1. ;;58016095344
  1. ;;9002226.02101,"1033,58016095344 ",.02)
  1. ;;58016095344
  1. ;;9002226.02101,"1033,58016095345 ",.01)
  1. ;;58016095345
  1. ;;9002226.02101,"1033,58016095345 ",.02)
  1. ;;58016095345
  1. ;;9002226.02101,"1033,58016095348 ",.01)
  1. ;;58016095348
  1. ;;9002226.02101,"1033,58016095348 ",.02)
  1. ;;58016095348
  1. ;;9002226.02101,"1033,58016095350 ",.01)
  1. ;;58016095350
  1. ;;9002226.02101,"1033,58016095350 ",.02)
  1. ;;58016095350
  1. ;;9002226.02101,"1033,58016095356 ",.01)
  1. ;;58016095356
  1. ;;9002226.02101,"1033,58016095356 ",.02)
  1. ;;58016095356
  1. ;;9002226.02101,"1033,58016095360 ",.01)
  1. ;;58016095360
  1. ;;9002226.02101,"1033,58016095360 ",.02)
  1. ;;58016095360
  1. ;;9002226.02101,"1033,58016095367 ",.01)
  1. ;;58016095367
  1. ;;9002226.02101,"1033,58016095367 ",.02)
  1. ;;58016095367
  1. ;;9002226.02101,"1033,58016095369 ",.01)
  1. ;;58016095369
  1. ;;9002226.02101,"1033,58016095369 ",.02)
  1. ;;58016095369
  1. ;;9002226.02101,"1033,58016095370 ",.01)
  1. ;;58016095370
  1. ;;9002226.02101,"1033,58016095370 ",.02)
  1. ;;58016095370
  1. ;;9002226.02101,"1033,58016095371 ",.01)
  1. ;;58016095371
  1. ;;9002226.02101,"1033,58016095371 ",.02)
  1. ;;58016095371
  1. ;;9002226.02101,"1033,58016095372 ",.01)
  1. ;;58016095372
  1. ;;9002226.02101,"1033,58016095372 ",.02)
  1. ;;58016095372
  1. ;;9002226.02101,"1033,58016095373 ",.01)
  1. ;;58016095373
  1. ;;9002226.02101,"1033,58016095373 ",.02)
  1. ;;58016095373
  1. ;;9002226.02101,"1033,58016095375 ",.01)
  1. ;;58016095375
  1. ;;9002226.02101,"1033,58016095375 ",.02)
  1. ;;58016095375
  1. ;;9002226.02101,"1033,58016095376 ",.01)
  1. ;;58016095376
  1. ;;9002226.02101,"1033,58016095376 ",.02)
  1. ;;58016095376
  1. ;;9002226.02101,"1033,58016095377 ",.01)
  1. ;;58016095377
  1. ;;9002226.02101,"1033,58016095377 ",.02)
  1. ;;58016095377
  1. ;;9002226.02101,"1033,58016095379 ",.01)
  1. ;;58016095379
  1. ;;9002226.02101,"1033,58016095379 ",.02)
  1. ;;58016095379
  1. ;;9002226.02101,"1033,58016095380 ",.01)
  1. ;;58016095380
  1. ;;9002226.02101,"1033,58016095380 ",.02)
  1. ;;58016095380
  1. ;;9002226.02101,"1033,58016095381 ",.01)
  1. ;;58016095381
  1. ;;9002226.02101,"1033,58016095381 ",.02)
  1. ;;58016095381
  1. ;;9002226.02101,"1033,58016095382 ",.01)
  1. ;;58016095382
  1. ;;9002226.02101,"1033,58016095382 ",.02)
  1. ;;58016095382
  1. ;;9002226.02101,"1033,58016095383 ",.01)
  1. ;;58016095383
  1. ;;9002226.02101,"1033,58016095383 ",.02)
  1. ;;58016095383
  1. ;;9002226.02101,"1033,58016095384 ",.01)
  1. ;;58016095384
  1. ;;9002226.02101,"1033,58016095384 ",.02)
  1. ;;58016095384
  1. ;;9002226.02101,"1033,58016095387 ",.01)
  1. ;;58016095387
  1. ;;9002226.02101,"1033,58016095387 ",.02)
  1. ;;58016095387
  1. ;;9002226.02101,"1033,58016095389 ",.01)
  1. ;;58016095389
  1. ;;9002226.02101,"1033,58016095389 ",.02)
  1. ;;58016095389
  1. ;;9002226.02101,"1033,58016095390 ",.01)
  1. ;;58016095390
  1. ;;9002226.02101,"1033,58016095390 ",.02)
  1. ;;58016095390
  1. ;;9002226.02101,"1033,58016095391 ",.01)
  1. ;;58016095391
  1. ;;9002226.02101,"1033,58016095391 ",.02)
  1. ;;58016095391
  1. ;;9002226.02101,"1033,58016095392 ",.01)
  1. ;;58016095392
  1. ;;9002226.02101,"1033,58016095392 ",.02)
  1. ;;58016095392
  1. ;;9002226.02101,"1033,58016095393 ",.01)
  1. ;;58016095393
  1. ;;9002226.02101,"1033,58016095393 ",.02)
  1. ;;58016095393
  1. ;;9002226.02101,"1033,58016095396 ",.01)
  1. ;;58016095396
  1. ;;9002226.02101,"1033,58016095396 ",.02)
  1. ;;58016095396
  1. ;;9002226.02101,"1033,58016095397 ",.01)
  1. ;;58016095397
  1. ;;9002226.02101,"1033,58016095397 ",.02)
  1. ;;58016095397
  1. ;;9002226.02101,"1033,58016095398 ",.01)
  1. ;;58016095398
  1. ;;9002226.02101,"1033,58016095398 ",.02)
  1. ;;58016095398
  1. ;;9002226.02101,"1033,58016095399 ",.01)
  1. ;;58016095399
  1. ;;9002226.02101,"1033,58016095399 ",.02)
  1. ;;58016095399
  1. ;;9002226.02101,"1033,58016095700 ",.01)
  1. ;;58016095700
  1. ;;9002226.02101,"1033,58016095700 ",.02)
  1. ;;58016095700
  1. ;;9002226.02101,"1033,58016095701 ",.01)
  1. ;;58016095701
  1. ;;9002226.02101,"1033,58016095701 ",.02)
  1. ;;58016095701
  1. ;;9002226.02101,"1033,58016095702 ",.01)
  1. ;;58016095702
  1. ;;9002226.02101,"1033,58016095702 ",.02)
  1. ;;58016095702
  1. ;;9002226.02101,"1033,58016095703 ",.01)
  1. ;;58016095703
  1. ;;9002226.02101,"1033,58016095703 ",.02)
  1. ;;58016095703
  1. ;;9002226.02101,"1033,58016095704 ",.01)
  1. ;;58016095704
  1. ;;9002226.02101,"1033,58016095704 ",.02)
  1. ;;58016095704
  1. ;;9002226.02101,"1033,58016095705 ",.01)
  1. ;;58016095705
  1. ;;9002226.02101,"1033,58016095705 ",.02)
  1. ;;58016095705
  1. ;;9002226.02101,"1033,58016095706 ",.01)
  1. ;;58016095706
  1. ;;9002226.02101,"1033,58016095706 ",.02)
  1. ;;58016095706
  1. ;;9002226.02101,"1033,58016095707 ",.01)
  1. ;;58016095707