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

BGPM5BDH.m

Go to the documentation of this file.
  1. BGPM5BDH ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON SEP 12, 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,"1044,58016089421 ",.01)
  1. ;;58016089421
  1. ;;9002226.02101,"1044,58016089421 ",.02)
  1. ;;58016089421
  1. ;;9002226.02101,"1044,58016089424 ",.01)
  1. ;;58016089424
  1. ;;9002226.02101,"1044,58016089424 ",.02)
  1. ;;58016089424
  1. ;;9002226.02101,"1044,58016089425 ",.01)
  1. ;;58016089425
  1. ;;9002226.02101,"1044,58016089425 ",.02)
  1. ;;58016089425
  1. ;;9002226.02101,"1044,58016089426 ",.01)
  1. ;;58016089426
  1. ;;9002226.02101,"1044,58016089426 ",.02)
  1. ;;58016089426
  1. ;;9002226.02101,"1044,58016089427 ",.01)
  1. ;;58016089427
  1. ;;9002226.02101,"1044,58016089427 ",.02)
  1. ;;58016089427
  1. ;;9002226.02101,"1044,58016089428 ",.01)
  1. ;;58016089428
  1. ;;9002226.02101,"1044,58016089428 ",.02)
  1. ;;58016089428
  1. ;;9002226.02101,"1044,58016089430 ",.01)
  1. ;;58016089430
  1. ;;9002226.02101,"1044,58016089430 ",.02)
  1. ;;58016089430
  1. ;;9002226.02101,"1044,58016089432 ",.01)
  1. ;;58016089432
  1. ;;9002226.02101,"1044,58016089432 ",.02)
  1. ;;58016089432
  1. ;;9002226.02101,"1044,58016089435 ",.01)
  1. ;;58016089435
  1. ;;9002226.02101,"1044,58016089435 ",.02)
  1. ;;58016089435
  1. ;;9002226.02101,"1044,58016089436 ",.01)
  1. ;;58016089436
  1. ;;9002226.02101,"1044,58016089436 ",.02)
  1. ;;58016089436
  1. ;;9002226.02101,"1044,58016089440 ",.01)
  1. ;;58016089440
  1. ;;9002226.02101,"1044,58016089440 ",.02)
  1. ;;58016089440
  1. ;;9002226.02101,"1044,58016089442 ",.01)
  1. ;;58016089442
  1. ;;9002226.02101,"1044,58016089442 ",.02)
  1. ;;58016089442
  1. ;;9002226.02101,"1044,58016089444 ",.01)
  1. ;;58016089444
  1. ;;9002226.02101,"1044,58016089444 ",.02)
  1. ;;58016089444
  1. ;;9002226.02101,"1044,58016089445 ",.01)
  1. ;;58016089445
  1. ;;9002226.02101,"1044,58016089445 ",.02)
  1. ;;58016089445
  1. ;;9002226.02101,"1044,58016089448 ",.01)
  1. ;;58016089448
  1. ;;9002226.02101,"1044,58016089448 ",.02)
  1. ;;58016089448
  1. ;;9002226.02101,"1044,58016089450 ",.01)
  1. ;;58016089450
  1. ;;9002226.02101,"1044,58016089450 ",.02)
  1. ;;58016089450
  1. ;;9002226.02101,"1044,58016089456 ",.01)
  1. ;;58016089456
  1. ;;9002226.02101,"1044,58016089456 ",.02)
  1. ;;58016089456
  1. ;;9002226.02101,"1044,58016089460 ",.01)
  1. ;;58016089460
  1. ;;9002226.02101,"1044,58016089460 ",.02)
  1. ;;58016089460
  1. ;;9002226.02101,"1044,58016089467 ",.01)
  1. ;;58016089467
  1. ;;9002226.02101,"1044,58016089467 ",.02)
  1. ;;58016089467
  1. ;;9002226.02101,"1044,58016089469 ",.01)
  1. ;;58016089469
  1. ;;9002226.02101,"1044,58016089469 ",.02)
  1. ;;58016089469
  1. ;;9002226.02101,"1044,58016089470 ",.01)
  1. ;;58016089470
  1. ;;9002226.02101,"1044,58016089470 ",.02)
  1. ;;58016089470
  1. ;;9002226.02101,"1044,58016089471 ",.01)
  1. ;;58016089471
  1. ;;9002226.02101,"1044,58016089471 ",.02)
  1. ;;58016089471
  1. ;;9002226.02101,"1044,58016089472 ",.01)
  1. ;;58016089472
  1. ;;9002226.02101,"1044,58016089472 ",.02)
  1. ;;58016089472
  1. ;;9002226.02101,"1044,58016089473 ",.01)
  1. ;;58016089473
  1. ;;9002226.02101,"1044,58016089473 ",.02)
  1. ;;58016089473
  1. ;;9002226.02101,"1044,58016089475 ",.01)
  1. ;;58016089475
  1. ;;9002226.02101,"1044,58016089475 ",.02)
  1. ;;58016089475
  1. ;;9002226.02101,"1044,58016089476 ",.01)
  1. ;;58016089476
  1. ;;9002226.02101,"1044,58016089476 ",.02)
  1. ;;58016089476
  1. ;;9002226.02101,"1044,58016089477 ",.01)
  1. ;;58016089477
  1. ;;9002226.02101,"1044,58016089477 ",.02)
  1. ;;58016089477
  1. ;;9002226.02101,"1044,58016089479 ",.01)
  1. ;;58016089479
  1. ;;9002226.02101,"1044,58016089479 ",.02)
  1. ;;58016089479
  1. ;;9002226.02101,"1044,58016089480 ",.01)
  1. ;;58016089480
  1. ;;9002226.02101,"1044,58016089480 ",.02)
  1. ;;58016089480
  1. ;;9002226.02101,"1044,58016089481 ",.01)
  1. ;;58016089481
  1. ;;9002226.02101,"1044,58016089481 ",.02)
  1. ;;58016089481
  1. ;;9002226.02101,"1044,58016089482 ",.01)
  1. ;;58016089482
  1. ;;9002226.02101,"1044,58016089482 ",.02)
  1. ;;58016089482
  1. ;;9002226.02101,"1044,58016089483 ",.01)
  1. ;;58016089483
  1. ;;9002226.02101,"1044,58016089483 ",.02)
  1. ;;58016089483
  1. ;;9002226.02101,"1044,58016089484 ",.01)
  1. ;;58016089484
  1. ;;9002226.02101,"1044,58016089484 ",.02)
  1. ;;58016089484
  1. ;;9002226.02101,"1044,58016089487 ",.01)
  1. ;;58016089487
  1. ;;9002226.02101,"1044,58016089487 ",.02)
  1. ;;58016089487
  1. ;;9002226.02101,"1044,58016089489 ",.01)
  1. ;;58016089489
  1. ;;9002226.02101,"1044,58016089489 ",.02)
  1. ;;58016089489
  1. ;;9002226.02101,"1044,58016089490 ",.01)
  1. ;;58016089490
  1. ;;9002226.02101,"1044,58016089490 ",.02)
  1. ;;58016089490
  1. ;;9002226.02101,"1044,58016089491 ",.01)
  1. ;;58016089491
  1. ;;9002226.02101,"1044,58016089491 ",.02)
  1. ;;58016089491
  1. ;;9002226.02101,"1044,58016089492 ",.01)
  1. ;;58016089492
  1. ;;9002226.02101,"1044,58016089492 ",.02)
  1. ;;58016089492
  1. ;;9002226.02101,"1044,58016089493 ",.01)
  1. ;;58016089493
  1. ;;9002226.02101,"1044,58016089493 ",.02)
  1. ;;58016089493
  1. ;;9002226.02101,"1044,58016089496 ",.01)
  1. ;;58016089496
  1. ;;9002226.02101,"1044,58016089496 ",.02)
  1. ;;58016089496
  1. ;;9002226.02101,"1044,58016089497 ",.01)
  1. ;;58016089497
  1. ;;9002226.02101,"1044,58016089497 ",.02)
  1. ;;58016089497
  1. ;;9002226.02101,"1044,58016089498 ",.01)
  1. ;;58016089498
  1. ;;9002226.02101,"1044,58016089498 ",.02)
  1. ;;58016089498
  1. ;;9002226.02101,"1044,58016089499 ",.01)
  1. ;;58016089499
  1. ;;9002226.02101,"1044,58016089499 ",.02)
  1. ;;58016089499
  1. ;;9002226.02101,"1044,58016090500 ",.01)
  1. ;;58016090500
  1. ;;9002226.02101,"1044,58016090500 ",.02)
  1. ;;58016090500
  1. ;;9002226.02101,"1044,58016090501 ",.01)
  1. ;;58016090501
  1. ;;9002226.02101,"1044,58016090501 ",.02)
  1. ;;58016090501
  1. ;;9002226.02101,"1044,58016090502 ",.01)
  1. ;;58016090502
  1. ;;9002226.02101,"1044,58016090502 ",.02)
  1. ;;58016090502
  1. ;;9002226.02101,"1044,58016090503 ",.01)
  1. ;;58016090503
  1. ;;9002226.02101,"1044,58016090503 ",.02)
  1. ;;58016090503
  1. ;;9002226.02101,"1044,58016090504 ",.01)
  1. ;;58016090504
  1. ;;9002226.02101,"1044,58016090504 ",.02)
  1. ;;58016090504
  1. ;;9002226.02101,"1044,58016090505 ",.01)
  1. ;;58016090505
  1. ;;9002226.02101,"1044,58016090505 ",.02)
  1. ;;58016090505
  1. ;;9002226.02101,"1044,58016090506 ",.01)
  1. ;;58016090506
  1. ;;9002226.02101,"1044,58016090506 ",.02)
  1. ;;58016090506
  1. ;;9002226.02101,"1044,58016090507 ",.01)
  1. ;;58016090507
  1. ;;9002226.02101,"1044,58016090507 ",.02)
  1. ;;58016090507
  1. ;;9002226.02101,"1044,58016090508 ",.01)
  1. ;;58016090508
  1. ;;9002226.02101,"1044,58016090508 ",.02)
  1. ;;58016090508
  1. ;;9002226.02101,"1044,58016090509 ",.01)
  1. ;;58016090509
  1. ;;9002226.02101,"1044,58016090509 ",.02)
  1. ;;58016090509
  1. ;;9002226.02101,"1044,58016090510 ",.01)
  1. ;;58016090510
  1. ;;9002226.02101,"1044,58016090510 ",.02)
  1. ;;58016090510
  1. ;;9002226.02101,"1044,58016090512 ",.01)
  1. ;;58016090512
  1. ;;9002226.02101,"1044,58016090512 ",.02)
  1. ;;58016090512
  1. ;;9002226.02101,"1044,58016090514 ",.01)
  1. ;;58016090514
  1. ;;9002226.02101,"1044,58016090514 ",.02)
  1. ;;58016090514
  1. ;;9002226.02101,"1044,58016090515 ",.01)
  1. ;;58016090515
  1. ;;9002226.02101,"1044,58016090515 ",.02)
  1. ;;58016090515
  1. ;;9002226.02101,"1044,58016090516 ",.01)
  1. ;;58016090516
  1. ;;9002226.02101,"1044,58016090516 ",.02)
  1. ;;58016090516
  1. ;;9002226.02101,"1044,58016090518 ",.01)
  1. ;;58016090518
  1. ;;9002226.02101,"1044,58016090518 ",.02)
  1. ;;58016090518
  1. ;;9002226.02101,"1044,58016090520 ",.01)
  1. ;;58016090520
  1. ;;9002226.02101,"1044,58016090520 ",.02)
  1. ;;58016090520
  1. ;;9002226.02101,"1044,58016090521 ",.01)
  1. ;;58016090521
  1. ;;9002226.02101,"1044,58016090521 ",.02)
  1. ;;58016090521
  1. ;;9002226.02101,"1044,58016090524 ",.01)
  1. ;;58016090524
  1. ;;9002226.02101,"1044,58016090524 ",.02)
  1. ;;58016090524
  1. ;;9002226.02101,"1044,58016090525 ",.01)
  1. ;;58016090525
  1. ;;9002226.02101,"1044,58016090525 ",.02)
  1. ;;58016090525
  1. ;;9002226.02101,"1044,58016090526 ",.01)
  1. ;;58016090526
  1. ;;9002226.02101,"1044,58016090526 ",.02)
  1. ;;58016090526
  1. ;;9002226.02101,"1044,58016090527 ",.01)
  1. ;;58016090527
  1. ;;9002226.02101,"1044,58016090527 ",.02)
  1. ;;58016090527
  1. ;;9002226.02101,"1044,58016090528 ",.01)
  1. ;;58016090528
  1. ;;9002226.02101,"1044,58016090528 ",.02)
  1. ;;58016090528
  1. ;;9002226.02101,"1044,58016090530 ",.01)
  1. ;;58016090530
  1. ;;9002226.02101,"1044,58016090530 ",.02)
  1. ;;58016090530
  1. ;;9002226.02101,"1044,58016090532 ",.01)
  1. ;;58016090532
  1. ;;9002226.02101,"1044,58016090532 ",.02)
  1. ;;58016090532
  1. ;;9002226.02101,"1044,58016090535 ",.01)
  1. ;;58016090535
  1. ;;9002226.02101,"1044,58016090535 ",.02)
  1. ;;58016090535
  1. ;;9002226.02101,"1044,58016090536 ",.01)
  1. ;;58016090536
  1. ;;9002226.02101,"1044,58016090536 ",.02)
  1. ;;58016090536
  1. ;;9002226.02101,"1044,58016090540 ",.01)
  1. ;;58016090540
  1. ;;9002226.02101,"1044,58016090540 ",.02)
  1. ;;58016090540
  1. ;;9002226.02101,"1044,58016090542 ",.01)
  1. ;;58016090542
  1. ;;9002226.02101,"1044,58016090542 ",.02)
  1. ;;58016090542
  1. ;;9002226.02101,"1044,58016090544 ",.01)
  1. ;;58016090544
  1. ;;9002226.02101,"1044,58016090544 ",.02)
  1. ;;58016090544
  1. ;;9002226.02101,"1044,58016090545 ",.01)
  1. ;;58016090545
  1. ;;9002226.02101,"1044,58016090545 ",.02)
  1. ;;58016090545
  1. ;;9002226.02101,"1044,58016090548 ",.01)
  1. ;;58016090548
  1. ;;9002226.02101,"1044,58016090548 ",.02)
  1. ;;58016090548
  1. ;;9002226.02101,"1044,58016090550 ",.01)
  1. ;;58016090550
  1. ;;9002226.02101,"1044,58016090550 ",.02)
  1. ;;58016090550
  1. ;;9002226.02101,"1044,58016090556 ",.01)
  1. ;;58016090556
  1. ;;9002226.02101,"1044,58016090556 ",.02)
  1. ;;58016090556
  1. ;;9002226.02101,"1044,58016090560 ",.01)
  1. ;;58016090560
  1. ;;9002226.02101,"1044,58016090560 ",.02)
  1. ;;58016090560
  1. ;;9002226.02101,"1044,58016090567 ",.01)
  1. ;;58016090567
  1. ;;9002226.02101,"1044,58016090567 ",.02)
  1. ;;58016090567
  1. ;;9002226.02101,"1044,58016090569 ",.01)
  1. ;;58016090569
  1. ;;9002226.02101,"1044,58016090569 ",.02)
  1. ;;58016090569
  1. ;;9002226.02101,"1044,58016090570 ",.01)
  1. ;;58016090570
  1. ;;9002226.02101,"1044,58016090570 ",.02)
  1. ;;58016090570
  1. ;;9002226.02101,"1044,58016090571 ",.01)
  1. ;;58016090571
  1. ;;9002226.02101,"1044,58016090571 ",.02)
  1. ;;58016090571
  1. ;;9002226.02101,"1044,58016090572 ",.01)
  1. ;;58016090572
  1. ;;9002226.02101,"1044,58016090572 ",.02)
  1. ;;58016090572
  1. ;;9002226.02101,"1044,58016090573 ",.01)
  1. ;;58016090573
  1. ;;9002226.02101,"1044,58016090573 ",.02)
  1. ;;58016090573
  1. ;;9002226.02101,"1044,58016090575 ",.01)
  1. ;;58016090575
  1. ;;9002226.02101,"1044,58016090575 ",.02)
  1. ;;58016090575
  1. ;;9002226.02101,"1044,58016090576 ",.01)
  1. ;;58016090576
  1. ;;9002226.02101,"1044,58016090576 ",.02)
  1. ;;58016090576
  1. ;;9002226.02101,"1044,58016090577 ",.01)
  1. ;;58016090577
  1. ;;9002226.02101,"1044,58016090577 ",.02)
  1. ;;58016090577
  1. ;;9002226.02101,"1044,58016090579 ",.01)
  1. ;;58016090579
  1. ;;9002226.02101,"1044,58016090579 ",.02)
  1. ;;58016090579
  1. ;;9002226.02101,"1044,58016090580 ",.01)
  1. ;;58016090580
  1. ;;9002226.02101,"1044,58016090580 ",.02)
  1. ;;58016090580
  1. ;;9002226.02101,"1044,58016090581 ",.01)
  1. ;;58016090581
  1. ;;9002226.02101,"1044,58016090581 ",.02)
  1. ;;58016090581
  1. ;;9002226.02101,"1044,58016090582 ",.01)
  1. ;;58016090582
  1. ;;9002226.02101,"1044,58016090582 ",.02)
  1. ;;58016090582
  1. ;;9002226.02101,"1044,58016090583 ",.01)
  1. ;;58016090583
  1. ;;9002226.02101,"1044,58016090583 ",.02)
  1. ;;58016090583
  1. ;;9002226.02101,"1044,58016090584 ",.01)
  1. ;;58016090584
  1. ;;9002226.02101,"1044,58016090584 ",.02)
  1. ;;58016090584
  1. ;;9002226.02101,"1044,58016090587 ",.01)
  1. ;;58016090587
  1. ;;9002226.02101,"1044,58016090587 ",.02)
  1. ;;58016090587
  1. ;;9002226.02101,"1044,58016090589 ",.01)
  1. ;;58016090589
  1. ;;9002226.02101,"1044,58016090589 ",.02)
  1. ;;58016090589
  1. ;;9002226.02101,"1044,58016090590 ",.01)
  1. ;;58016090590
  1. ;;9002226.02101,"1044,58016090590 ",.02)
  1. ;;58016090590
  1. ;;9002226.02101,"1044,58016090591 ",.01)
  1. ;;58016090591
  1. ;;9002226.02101,"1044,58016090591 ",.02)
  1. ;;58016090591
  1. ;;9002226.02101,"1044,58016090592 ",.01)
  1. ;;58016090592
  1. ;;9002226.02101,"1044,58016090592 ",.02)
  1. ;;58016090592
  1. ;;9002226.02101,"1044,58016090593 ",.01)
  1. ;;58016090593
  1. ;;9002226.02101,"1044,58016090593 ",.02)
  1. ;;58016090593
  1. ;;9002226.02101,"1044,58016090596 ",.01)
  1. ;;58016090596
  1. ;;9002226.02101,"1044,58016090596 ",.02)
  1. ;;58016090596
  1. ;;9002226.02101,"1044,58016090597 ",.01)
  1. ;;58016090597