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