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

BGPM5BDI.m

Go to the documentation of this file.
BGPM5BDI ;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,58016090597 ",.02)
 ;;58016090597
 ;;9002226.02101,"1044,58016090598 ",.01)
 ;;58016090598
 ;;9002226.02101,"1044,58016090598 ",.02)
 ;;58016090598
 ;;9002226.02101,"1044,58016090599 ",.01)
 ;;58016090599
 ;;9002226.02101,"1044,58016090599 ",.02)
 ;;58016090599
 ;;9002226.02101,"1044,58016090600 ",.01)
 ;;58016090600
 ;;9002226.02101,"1044,58016090600 ",.02)
 ;;58016090600
 ;;9002226.02101,"1044,58016090601 ",.01)
 ;;58016090601
 ;;9002226.02101,"1044,58016090601 ",.02)
 ;;58016090601
 ;;9002226.02101,"1044,58016090602 ",.01)
 ;;58016090602
 ;;9002226.02101,"1044,58016090602 ",.02)
 ;;58016090602
 ;;9002226.02101,"1044,58016090603 ",.01)
 ;;58016090603
 ;;9002226.02101,"1044,58016090603 ",.02)
 ;;58016090603
 ;;9002226.02101,"1044,58016090604 ",.01)
 ;;58016090604
 ;;9002226.02101,"1044,58016090604 ",.02)
 ;;58016090604
 ;;9002226.02101,"1044,58016090605 ",.01)
 ;;58016090605
 ;;9002226.02101,"1044,58016090605 ",.02)
 ;;58016090605
 ;;9002226.02101,"1044,58016090606 ",.01)
 ;;58016090606
 ;;9002226.02101,"1044,58016090606 ",.02)
 ;;58016090606
 ;;9002226.02101,"1044,58016090607 ",.01)
 ;;58016090607
 ;;9002226.02101,"1044,58016090607 ",.02)
 ;;58016090607
 ;;9002226.02101,"1044,58016090608 ",.01)
 ;;58016090608
 ;;9002226.02101,"1044,58016090608 ",.02)
 ;;58016090608
 ;;9002226.02101,"1044,58016090609 ",.01)
 ;;58016090609
 ;;9002226.02101,"1044,58016090609 ",.02)
 ;;58016090609
 ;;9002226.02101,"1044,58016090610 ",.01)
 ;;58016090610
 ;;9002226.02101,"1044,58016090610 ",.02)
 ;;58016090610
 ;;9002226.02101,"1044,58016090612 ",.01)
 ;;58016090612
 ;;9002226.02101,"1044,58016090612 ",.02)
 ;;58016090612
 ;;9002226.02101,"1044,58016090614 ",.01)
 ;;58016090614
 ;;9002226.02101,"1044,58016090614 ",.02)
 ;;58016090614
 ;;9002226.02101,"1044,58016090615 ",.01)
 ;;58016090615
 ;;9002226.02101,"1044,58016090615 ",.02)
 ;;58016090615
 ;;9002226.02101,"1044,58016090616 ",.01)
 ;;58016090616
 ;;9002226.02101,"1044,58016090616 ",.02)
 ;;58016090616
 ;;9002226.02101,"1044,58016090618 ",.01)
 ;;58016090618
 ;;9002226.02101,"1044,58016090618 ",.02)
 ;;58016090618
 ;;9002226.02101,"1044,58016090620 ",.01)
 ;;58016090620
 ;;9002226.02101,"1044,58016090620 ",.02)
 ;;58016090620
 ;;9002226.02101,"1044,58016090621 ",.01)
 ;;58016090621
 ;;9002226.02101,"1044,58016090621 ",.02)
 ;;58016090621
 ;;9002226.02101,"1044,58016090624 ",.01)
 ;;58016090624
 ;;9002226.02101,"1044,58016090624 ",.02)
 ;;58016090624
 ;;9002226.02101,"1044,58016090625 ",.01)
 ;;58016090625
 ;;9002226.02101,"1044,58016090625 ",.02)
 ;;58016090625
 ;;9002226.02101,"1044,58016090626 ",.01)
 ;;58016090626
 ;;9002226.02101,"1044,58016090626 ",.02)
 ;;58016090626
 ;;9002226.02101,"1044,58016090627 ",.01)
 ;;58016090627
 ;;9002226.02101,"1044,58016090627 ",.02)
 ;;58016090627
 ;;9002226.02101,"1044,58016090628 ",.01)
 ;;58016090628
 ;;9002226.02101,"1044,58016090628 ",.02)
 ;;58016090628
 ;;9002226.02101,"1044,58016090630 ",.01)
 ;;58016090630
 ;;9002226.02101,"1044,58016090630 ",.02)
 ;;58016090630
 ;;9002226.02101,"1044,58016090632 ",.01)
 ;;58016090632
 ;;9002226.02101,"1044,58016090632 ",.02)
 ;;58016090632
 ;;9002226.02101,"1044,58016090635 ",.01)
 ;;58016090635
 ;;9002226.02101,"1044,58016090635 ",.02)
 ;;58016090635
 ;;9002226.02101,"1044,58016090636 ",.01)
 ;;58016090636
 ;;9002226.02101,"1044,58016090636 ",.02)
 ;;58016090636
 ;;9002226.02101,"1044,58016090640 ",.01)
 ;;58016090640
 ;;9002226.02101,"1044,58016090640 ",.02)
 ;;58016090640
 ;;9002226.02101,"1044,58016090642 ",.01)
 ;;58016090642
 ;;9002226.02101,"1044,58016090642 ",.02)
 ;;58016090642
 ;;9002226.02101,"1044,58016090644 ",.01)
 ;;58016090644
 ;;9002226.02101,"1044,58016090644 ",.02)
 ;;58016090644
 ;;9002226.02101,"1044,58016090645 ",.01)
 ;;58016090645
 ;;9002226.02101,"1044,58016090645 ",.02)
 ;;58016090645
 ;;9002226.02101,"1044,58016090648 ",.01)
 ;;58016090648
 ;;9002226.02101,"1044,58016090648 ",.02)
 ;;58016090648
 ;;9002226.02101,"1044,58016090650 ",.01)
 ;;58016090650
 ;;9002226.02101,"1044,58016090650 ",.02)
 ;;58016090650
 ;;9002226.02101,"1044,58016090656 ",.01)
 ;;58016090656
 ;;9002226.02101,"1044,58016090656 ",.02)
 ;;58016090656
 ;;9002226.02101,"1044,58016090660 ",.01)
 ;;58016090660
 ;;9002226.02101,"1044,58016090660 ",.02)
 ;;58016090660
 ;;9002226.02101,"1044,58016090667 ",.01)
 ;;58016090667
 ;;9002226.02101,"1044,58016090667 ",.02)
 ;;58016090667
 ;;9002226.02101,"1044,58016090669 ",.01)
 ;;58016090669
 ;;9002226.02101,"1044,58016090669 ",.02)
 ;;58016090669
 ;;9002226.02101,"1044,58016090670 ",.01)
 ;;58016090670
 ;;9002226.02101,"1044,58016090670 ",.02)
 ;;58016090670
 ;;9002226.02101,"1044,58016090671 ",.01)
 ;;58016090671
 ;;9002226.02101,"1044,58016090671 ",.02)
 ;;58016090671
 ;;9002226.02101,"1044,58016090672 ",.01)
 ;;58016090672
 ;;9002226.02101,"1044,58016090672 ",.02)
 ;;58016090672
 ;;9002226.02101,"1044,58016090673 ",.01)
 ;;58016090673
 ;;9002226.02101,"1044,58016090673 ",.02)
 ;;58016090673
 ;;9002226.02101,"1044,58016090675 ",.01)
 ;;58016090675
 ;;9002226.02101,"1044,58016090675 ",.02)
 ;;58016090675
 ;;9002226.02101,"1044,58016090676 ",.01)
 ;;58016090676
 ;;9002226.02101,"1044,58016090676 ",.02)
 ;;58016090676
 ;;9002226.02101,"1044,58016090677 ",.01)
 ;;58016090677
 ;;9002226.02101,"1044,58016090677 ",.02)
 ;;58016090677
 ;;9002226.02101,"1044,58016090679 ",.01)
 ;;58016090679
 ;;9002226.02101,"1044,58016090679 ",.02)
 ;;58016090679
 ;;9002226.02101,"1044,58016090680 ",.01)
 ;;58016090680
 ;;9002226.02101,"1044,58016090680 ",.02)
 ;;58016090680
 ;;9002226.02101,"1044,58016090681 ",.01)
 ;;58016090681
 ;;9002226.02101,"1044,58016090681 ",.02)
 ;;58016090681
 ;;9002226.02101,"1044,58016090682 ",.01)
 ;;58016090682
 ;;9002226.02101,"1044,58016090682 ",.02)
 ;;58016090682
 ;;9002226.02101,"1044,58016090683 ",.01)
 ;;58016090683
 ;;9002226.02101,"1044,58016090683 ",.02)
 ;;58016090683
 ;;9002226.02101,"1044,58016090684 ",.01)
 ;;58016090684
 ;;9002226.02101,"1044,58016090684 ",.02)
 ;;58016090684
 ;;9002226.02101,"1044,58016090687 ",.01)
 ;;58016090687
 ;;9002226.02101,"1044,58016090687 ",.02)
 ;;58016090687
 ;;9002226.02101,"1044,58016090689 ",.01)
 ;;58016090689
 ;;9002226.02101,"1044,58016090689 ",.02)
 ;;58016090689
 ;;9002226.02101,"1044,58016090690 ",.01)
 ;;58016090690
 ;;9002226.02101,"1044,58016090690 ",.02)
 ;;58016090690
 ;;9002226.02101,"1044,58016090691 ",.01)
 ;;58016090691
 ;;9002226.02101,"1044,58016090691 ",.02)
 ;;58016090691
 ;;9002226.02101,"1044,58016090692 ",.01)
 ;;58016090692
 ;;9002226.02101,"1044,58016090692 ",.02)
 ;;58016090692
 ;;9002226.02101,"1044,58016090693 ",.01)
 ;;58016090693
 ;;9002226.02101,"1044,58016090693 ",.02)
 ;;58016090693
 ;;9002226.02101,"1044,58016090696 ",.01)
 ;;58016090696
 ;;9002226.02101,"1044,58016090696 ",.02)
 ;;58016090696
 ;;9002226.02101,"1044,58016090697 ",.01)
 ;;58016090697
 ;;9002226.02101,"1044,58016090697 ",.02)
 ;;58016090697
 ;;9002226.02101,"1044,58016090698 ",.01)
 ;;58016090698
 ;;9002226.02101,"1044,58016090698 ",.02)
 ;;58016090698
 ;;9002226.02101,"1044,58016090699 ",.01)
 ;;58016090699
 ;;9002226.02101,"1044,58016090699 ",.02)
 ;;58016090699
 ;;9002226.02101,"1044,58016094500 ",.01)
 ;;58016094500
 ;;9002226.02101,"1044,58016094500 ",.02)
 ;;58016094500
 ;;9002226.02101,"1044,58016094512 ",.01)
 ;;58016094512
 ;;9002226.02101,"1044,58016094512 ",.02)
 ;;58016094512
 ;;9002226.02101,"1044,58016094515 ",.01)
 ;;58016094515
 ;;9002226.02101,"1044,58016094515 ",.02)
 ;;58016094515
 ;;9002226.02101,"1044,58016094520 ",.01)
 ;;58016094520
 ;;9002226.02101,"1044,58016094520 ",.02)
 ;;58016094520
 ;;9002226.02101,"1044,58016094530 ",.01)
 ;;58016094530
 ;;9002226.02101,"1044,58016094530 ",.02)
 ;;58016094530
 ;;9002226.02101,"1044,58016098600 ",.01)
 ;;58016098600
 ;;9002226.02101,"1044,58016098600 ",.02)
 ;;58016098600
 ;;9002226.02101,"1044,58016098601 ",.01)
 ;;58016098601
 ;;9002226.02101,"1044,58016098601 ",.02)
 ;;58016098601
 ;;9002226.02101,"1044,58016098602 ",.01)
 ;;58016098602
 ;;9002226.02101,"1044,58016098602 ",.02)
 ;;58016098602
 ;;9002226.02101,"1044,58016098603 ",.01)
 ;;58016098603
 ;;9002226.02101,"1044,58016098603 ",.02)
 ;;58016098603
 ;;9002226.02101,"1044,58016098604 ",.01)
 ;;58016098604
 ;;9002226.02101,"1044,58016098604 ",.02)
 ;;58016098604
 ;;9002226.02101,"1044,58016098605 ",.01)
 ;;58016098605
 ;;9002226.02101,"1044,58016098605 ",.02)
 ;;58016098605
 ;;9002226.02101,"1044,58016098606 ",.01)
 ;;58016098606
 ;;9002226.02101,"1044,58016098606 ",.02)
 ;;58016098606
 ;;9002226.02101,"1044,58016098607 ",.01)
 ;;58016098607
 ;;9002226.02101,"1044,58016098607 ",.02)
 ;;58016098607
 ;;9002226.02101,"1044,58016098608 ",.01)
 ;;58016098608
 ;;9002226.02101,"1044,58016098608 ",.02)
 ;;58016098608
 ;;9002226.02101,"1044,58016098609 ",.01)
 ;;58016098609
 ;;9002226.02101,"1044,58016098609 ",.02)
 ;;58016098609
 ;;9002226.02101,"1044,58016098610 ",.01)
 ;;58016098610
 ;;9002226.02101,"1044,58016098610 ",.02)
 ;;58016098610
 ;;9002226.02101,"1044,58016098612 ",.01)
 ;;58016098612
 ;;9002226.02101,"1044,58016098612 ",.02)
 ;;58016098612
 ;;9002226.02101,"1044,58016098614 ",.01)
 ;;58016098614
 ;;9002226.02101,"1044,58016098614 ",.02)
 ;;58016098614
 ;;9002226.02101,"1044,58016098615 ",.01)
 ;;58016098615
 ;;9002226.02101,"1044,58016098615 ",.02)
 ;;58016098615
 ;;9002226.02101,"1044,58016098616 ",.01)
 ;;58016098616
 ;;9002226.02101,"1044,58016098616 ",.02)
 ;;58016098616
 ;;9002226.02101,"1044,58016098618 ",.01)
 ;;58016098618
 ;;9002226.02101,"1044,58016098618 ",.02)
 ;;58016098618
 ;;9002226.02101,"1044,58016098620 ",.01)
 ;;58016098620
 ;;9002226.02101,"1044,58016098620 ",.02)
 ;;58016098620
 ;;9002226.02101,"1044,58016098621 ",.01)
 ;;58016098621
 ;;9002226.02101,"1044,58016098621 ",.02)
 ;;58016098621
 ;;9002226.02101,"1044,58016098624 ",.01)
 ;;58016098624
 ;;9002226.02101,"1044,58016098624 ",.02)
 ;;58016098624
 ;;9002226.02101,"1044,58016098625 ",.01)
 ;;58016098625
 ;;9002226.02101,"1044,58016098625 ",.02)
 ;;58016098625
 ;;9002226.02101,"1044,58016098626 ",.01)
 ;;58016098626
 ;;9002226.02101,"1044,58016098626 ",.02)
 ;;58016098626
 ;;9002226.02101,"1044,58016098627 ",.01)
 ;;58016098627
 ;;9002226.02101,"1044,58016098627 ",.02)
 ;;58016098627
 ;;9002226.02101,"1044,58016098628 ",.01)
 ;;58016098628
 ;;9002226.02101,"1044,58016098628 ",.02)
 ;;58016098628
 ;;9002226.02101,"1044,58016098630 ",.01)
 ;;58016098630
 ;;9002226.02101,"1044,58016098630 ",.02)
 ;;58016098630
 ;;9002226.02101,"1044,58016098632 ",.01)
 ;;58016098632
 ;;9002226.02101,"1044,58016098632 ",.02)
 ;;58016098632
 ;;9002226.02101,"1044,58016098635 ",.01)
 ;;58016098635
 ;;9002226.02101,"1044,58016098635 ",.02)
 ;;58016098635
 ;;9002226.02101,"1044,58016098636 ",.01)
 ;;58016098636
 ;;9002226.02101,"1044,58016098636 ",.02)
 ;;58016098636
 ;;9002226.02101,"1044,58016098640 ",.01)
 ;;58016098640
 ;;9002226.02101,"1044,58016098640 ",.02)
 ;;58016098640
 ;;9002226.02101,"1044,58016098642 ",.01)
 ;;58016098642
 ;;9002226.02101,"1044,58016098642 ",.02)
 ;;58016098642
 ;;9002226.02101,"1044,58016098644 ",.01)
 ;;58016098644
 ;;9002226.02101,"1044,58016098644 ",.02)
 ;;58016098644
 ;;9002226.02101,"1044,58016098645 ",.01)
 ;;58016098645
 ;;9002226.02101,"1044,58016098645 ",.02)
 ;;58016098645
 ;;9002226.02101,"1044,58016098648 ",.01)
 ;;58016098648
 ;;9002226.02101,"1044,58016098648 ",.02)
 ;;58016098648
 ;;9002226.02101,"1044,58016098650 ",.01)
 ;;58016098650
 ;;9002226.02101,"1044,58016098650 ",.02)
 ;;58016098650