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

BGPM5AVU.m

Go to the documentation of this file.
BGPM5AVU ;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,58016012484 ",.01)
 ;;58016012484
 ;;9002226.02101,"1033,58016012484 ",.02)
 ;;58016012484
 ;;9002226.02101,"1033,58016012487 ",.01)
 ;;58016012487
 ;;9002226.02101,"1033,58016012487 ",.02)
 ;;58016012487
 ;;9002226.02101,"1033,58016012489 ",.01)
 ;;58016012489
 ;;9002226.02101,"1033,58016012489 ",.02)
 ;;58016012489
 ;;9002226.02101,"1033,58016012490 ",.01)
 ;;58016012490
 ;;9002226.02101,"1033,58016012490 ",.02)
 ;;58016012490
 ;;9002226.02101,"1033,58016012491 ",.01)
 ;;58016012491
 ;;9002226.02101,"1033,58016012491 ",.02)
 ;;58016012491
 ;;9002226.02101,"1033,58016012492 ",.01)
 ;;58016012492
 ;;9002226.02101,"1033,58016012492 ",.02)
 ;;58016012492
 ;;9002226.02101,"1033,58016012493 ",.01)
 ;;58016012493
 ;;9002226.02101,"1033,58016012493 ",.02)
 ;;58016012493
 ;;9002226.02101,"1033,58016012496 ",.01)
 ;;58016012496
 ;;9002226.02101,"1033,58016012496 ",.02)
 ;;58016012496
 ;;9002226.02101,"1033,58016012497 ",.01)
 ;;58016012497
 ;;9002226.02101,"1033,58016012497 ",.02)
 ;;58016012497
 ;;9002226.02101,"1033,58016012498 ",.01)
 ;;58016012498
 ;;9002226.02101,"1033,58016012498 ",.02)
 ;;58016012498
 ;;9002226.02101,"1033,58016012499 ",.01)
 ;;58016012499
 ;;9002226.02101,"1033,58016012499 ",.02)
 ;;58016012499
 ;;9002226.02101,"1033,58016012700 ",.01)
 ;;58016012700
 ;;9002226.02101,"1033,58016012700 ",.02)
 ;;58016012700
 ;;9002226.02101,"1033,58016012706 ",.01)
 ;;58016012706
 ;;9002226.02101,"1033,58016012706 ",.02)
 ;;58016012706
 ;;9002226.02101,"1033,58016012708 ",.01)
 ;;58016012708
 ;;9002226.02101,"1033,58016012708 ",.02)
 ;;58016012708
 ;;9002226.02101,"1033,58016012710 ",.01)
 ;;58016012710
 ;;9002226.02101,"1033,58016012710 ",.02)
 ;;58016012710
 ;;9002226.02101,"1033,58016012714 ",.01)
 ;;58016012714
 ;;9002226.02101,"1033,58016012714 ",.02)
 ;;58016012714
 ;;9002226.02101,"1033,58016012720 ",.01)
 ;;58016012720
 ;;9002226.02101,"1033,58016012720 ",.02)
 ;;58016012720
 ;;9002226.02101,"1033,58016012721 ",.01)
 ;;58016012721
 ;;9002226.02101,"1033,58016012721 ",.02)
 ;;58016012721
 ;;9002226.02101,"1033,58016012724 ",.01)
 ;;58016012724
 ;;9002226.02101,"1033,58016012724 ",.02)
 ;;58016012724
 ;;9002226.02101,"1033,58016012728 ",.01)
 ;;58016012728
 ;;9002226.02101,"1033,58016012728 ",.02)
 ;;58016012728
 ;;9002226.02101,"1033,58016012730 ",.01)
 ;;58016012730
 ;;9002226.02101,"1033,58016012730 ",.02)
 ;;58016012730
 ;;9002226.02101,"1033,58016012740 ",.01)
 ;;58016012740
 ;;9002226.02101,"1033,58016012740 ",.02)
 ;;58016012740
 ;;9002226.02101,"1033,58016012742 ",.01)
 ;;58016012742
 ;;9002226.02101,"1033,58016012742 ",.02)
 ;;58016012742
 ;;9002226.02101,"1033,58016012750 ",.01)
 ;;58016012750
 ;;9002226.02101,"1033,58016012750 ",.02)
 ;;58016012750
 ;;9002226.02101,"1033,58016012760 ",.01)
 ;;58016012760
 ;;9002226.02101,"1033,58016012760 ",.02)
 ;;58016012760
 ;;9002226.02101,"1033,58016013700 ",.01)
 ;;58016013700
 ;;9002226.02101,"1033,58016013700 ",.02)
 ;;58016013700
 ;;9002226.02101,"1033,58016013701 ",.01)
 ;;58016013701
 ;;9002226.02101,"1033,58016013701 ",.02)
 ;;58016013701
 ;;9002226.02101,"1033,58016013702 ",.01)
 ;;58016013702
 ;;9002226.02101,"1033,58016013702 ",.02)
 ;;58016013702
 ;;9002226.02101,"1033,58016013703 ",.01)
 ;;58016013703
 ;;9002226.02101,"1033,58016013703 ",.02)
 ;;58016013703
 ;;9002226.02101,"1033,58016013704 ",.01)
 ;;58016013704
 ;;9002226.02101,"1033,58016013704 ",.02)
 ;;58016013704
 ;;9002226.02101,"1033,58016013705 ",.01)
 ;;58016013705
 ;;9002226.02101,"1033,58016013705 ",.02)
 ;;58016013705
 ;;9002226.02101,"1033,58016013706 ",.01)
 ;;58016013706
 ;;9002226.02101,"1033,58016013706 ",.02)
 ;;58016013706
 ;;9002226.02101,"1033,58016013707 ",.01)
 ;;58016013707
 ;;9002226.02101,"1033,58016013707 ",.02)
 ;;58016013707
 ;;9002226.02101,"1033,58016013708 ",.01)
 ;;58016013708
 ;;9002226.02101,"1033,58016013708 ",.02)
 ;;58016013708
 ;;9002226.02101,"1033,58016013709 ",.01)
 ;;58016013709
 ;;9002226.02101,"1033,58016013709 ",.02)
 ;;58016013709
 ;;9002226.02101,"1033,58016013710 ",.01)
 ;;58016013710
 ;;9002226.02101,"1033,58016013710 ",.02)
 ;;58016013710
 ;;9002226.02101,"1033,58016013712 ",.01)
 ;;58016013712
 ;;9002226.02101,"1033,58016013712 ",.02)
 ;;58016013712
 ;;9002226.02101,"1033,58016013714 ",.01)
 ;;58016013714
 ;;9002226.02101,"1033,58016013714 ",.02)
 ;;58016013714
 ;;9002226.02101,"1033,58016013715 ",.01)
 ;;58016013715
 ;;9002226.02101,"1033,58016013715 ",.02)
 ;;58016013715
 ;;9002226.02101,"1033,58016013716 ",.01)
 ;;58016013716
 ;;9002226.02101,"1033,58016013716 ",.02)
 ;;58016013716
 ;;9002226.02101,"1033,58016013718 ",.01)
 ;;58016013718
 ;;9002226.02101,"1033,58016013718 ",.02)
 ;;58016013718
 ;;9002226.02101,"1033,58016013720 ",.01)
 ;;58016013720
 ;;9002226.02101,"1033,58016013720 ",.02)
 ;;58016013720
 ;;9002226.02101,"1033,58016013721 ",.01)
 ;;58016013721
 ;;9002226.02101,"1033,58016013721 ",.02)
 ;;58016013721
 ;;9002226.02101,"1033,58016013724 ",.01)
 ;;58016013724
 ;;9002226.02101,"1033,58016013724 ",.02)
 ;;58016013724
 ;;9002226.02101,"1033,58016013725 ",.01)
 ;;58016013725
 ;;9002226.02101,"1033,58016013725 ",.02)
 ;;58016013725
 ;;9002226.02101,"1033,58016013726 ",.01)
 ;;58016013726
 ;;9002226.02101,"1033,58016013726 ",.02)
 ;;58016013726
 ;;9002226.02101,"1033,58016013727 ",.01)
 ;;58016013727
 ;;9002226.02101,"1033,58016013727 ",.02)
 ;;58016013727
 ;;9002226.02101,"1033,58016013728 ",.01)
 ;;58016013728
 ;;9002226.02101,"1033,58016013728 ",.02)
 ;;58016013728
 ;;9002226.02101,"1033,58016013730 ",.01)
 ;;58016013730
 ;;9002226.02101,"1033,58016013730 ",.02)
 ;;58016013730
 ;;9002226.02101,"1033,58016013732 ",.01)
 ;;58016013732
 ;;9002226.02101,"1033,58016013732 ",.02)
 ;;58016013732
 ;;9002226.02101,"1033,58016013735 ",.01)
 ;;58016013735
 ;;9002226.02101,"1033,58016013735 ",.02)
 ;;58016013735
 ;;9002226.02101,"1033,58016013736 ",.01)
 ;;58016013736
 ;;9002226.02101,"1033,58016013736 ",.02)
 ;;58016013736
 ;;9002226.02101,"1033,58016013740 ",.01)
 ;;58016013740
 ;;9002226.02101,"1033,58016013740 ",.02)
 ;;58016013740
 ;;9002226.02101,"1033,58016013742 ",.01)
 ;;58016013742
 ;;9002226.02101,"1033,58016013742 ",.02)
 ;;58016013742
 ;;9002226.02101,"1033,58016013744 ",.01)
 ;;58016013744
 ;;9002226.02101,"1033,58016013744 ",.02)
 ;;58016013744
 ;;9002226.02101,"1033,58016013745 ",.01)
 ;;58016013745
 ;;9002226.02101,"1033,58016013745 ",.02)
 ;;58016013745
 ;;9002226.02101,"1033,58016013748 ",.01)
 ;;58016013748
 ;;9002226.02101,"1033,58016013748 ",.02)
 ;;58016013748
 ;;9002226.02101,"1033,58016013750 ",.01)
 ;;58016013750
 ;;9002226.02101,"1033,58016013750 ",.02)
 ;;58016013750
 ;;9002226.02101,"1033,58016013756 ",.01)
 ;;58016013756
 ;;9002226.02101,"1033,58016013756 ",.02)
 ;;58016013756
 ;;9002226.02101,"1033,58016013760 ",.01)
 ;;58016013760
 ;;9002226.02101,"1033,58016013760 ",.02)
 ;;58016013760
 ;;9002226.02101,"1033,58016013767 ",.01)
 ;;58016013767
 ;;9002226.02101,"1033,58016013767 ",.02)
 ;;58016013767
 ;;9002226.02101,"1033,58016013769 ",.01)
 ;;58016013769
 ;;9002226.02101,"1033,58016013769 ",.02)
 ;;58016013769
 ;;9002226.02101,"1033,58016013770 ",.01)
 ;;58016013770
 ;;9002226.02101,"1033,58016013770 ",.02)
 ;;58016013770
 ;;9002226.02101,"1033,58016013771 ",.01)
 ;;58016013771
 ;;9002226.02101,"1033,58016013771 ",.02)
 ;;58016013771
 ;;9002226.02101,"1033,58016013772 ",.01)
 ;;58016013772
 ;;9002226.02101,"1033,58016013772 ",.02)
 ;;58016013772
 ;;9002226.02101,"1033,58016013773 ",.01)
 ;;58016013773
 ;;9002226.02101,"1033,58016013773 ",.02)
 ;;58016013773
 ;;9002226.02101,"1033,58016013775 ",.01)
 ;;58016013775
 ;;9002226.02101,"1033,58016013775 ",.02)
 ;;58016013775
 ;;9002226.02101,"1033,58016013776 ",.01)
 ;;58016013776
 ;;9002226.02101,"1033,58016013776 ",.02)
 ;;58016013776
 ;;9002226.02101,"1033,58016013777 ",.01)
 ;;58016013777
 ;;9002226.02101,"1033,58016013777 ",.02)
 ;;58016013777
 ;;9002226.02101,"1033,58016013779 ",.01)
 ;;58016013779
 ;;9002226.02101,"1033,58016013779 ",.02)
 ;;58016013779
 ;;9002226.02101,"1033,58016013780 ",.01)
 ;;58016013780
 ;;9002226.02101,"1033,58016013780 ",.02)
 ;;58016013780
 ;;9002226.02101,"1033,58016013781 ",.01)
 ;;58016013781
 ;;9002226.02101,"1033,58016013781 ",.02)
 ;;58016013781
 ;;9002226.02101,"1033,58016013782 ",.01)
 ;;58016013782
 ;;9002226.02101,"1033,58016013782 ",.02)
 ;;58016013782
 ;;9002226.02101,"1033,58016013783 ",.01)
 ;;58016013783
 ;;9002226.02101,"1033,58016013783 ",.02)
 ;;58016013783
 ;;9002226.02101,"1033,58016013784 ",.01)
 ;;58016013784
 ;;9002226.02101,"1033,58016013784 ",.02)
 ;;58016013784
 ;;9002226.02101,"1033,58016013787 ",.01)
 ;;58016013787
 ;;9002226.02101,"1033,58016013787 ",.02)
 ;;58016013787
 ;;9002226.02101,"1033,58016013789 ",.01)
 ;;58016013789
 ;;9002226.02101,"1033,58016013789 ",.02)
 ;;58016013789
 ;;9002226.02101,"1033,58016013790 ",.01)
 ;;58016013790
 ;;9002226.02101,"1033,58016013790 ",.02)
 ;;58016013790
 ;;9002226.02101,"1033,58016013791 ",.01)
 ;;58016013791
 ;;9002226.02101,"1033,58016013791 ",.02)
 ;;58016013791
 ;;9002226.02101,"1033,58016013792 ",.01)
 ;;58016013792
 ;;9002226.02101,"1033,58016013792 ",.02)
 ;;58016013792
 ;;9002226.02101,"1033,58016013793 ",.01)
 ;;58016013793
 ;;9002226.02101,"1033,58016013793 ",.02)
 ;;58016013793
 ;;9002226.02101,"1033,58016013796 ",.01)
 ;;58016013796
 ;;9002226.02101,"1033,58016013796 ",.02)
 ;;58016013796
 ;;9002226.02101,"1033,58016013797 ",.01)
 ;;58016013797
 ;;9002226.02101,"1033,58016013797 ",.02)
 ;;58016013797
 ;;9002226.02101,"1033,58016013798 ",.01)
 ;;58016013798
 ;;9002226.02101,"1033,58016013798 ",.02)
 ;;58016013798
 ;;9002226.02101,"1033,58016013799 ",.01)
 ;;58016013799
 ;;9002226.02101,"1033,58016013799 ",.02)
 ;;58016013799
 ;;9002226.02101,"1033,58016013800 ",.01)
 ;;58016013800
 ;;9002226.02101,"1033,58016013800 ",.02)
 ;;58016013800
 ;;9002226.02101,"1033,58016013802 ",.01)
 ;;58016013802
 ;;9002226.02101,"1033,58016013802 ",.02)
 ;;58016013802
 ;;9002226.02101,"1033,58016013803 ",.01)
 ;;58016013803
 ;;9002226.02101,"1033,58016013803 ",.02)
 ;;58016013803
 ;;9002226.02101,"1033,58016013812 ",.01)
 ;;58016013812
 ;;9002226.02101,"1033,58016013812 ",.02)
 ;;58016013812
 ;;9002226.02101,"1033,58016013814 ",.01)
 ;;58016013814
 ;;9002226.02101,"1033,58016013814 ",.02)
 ;;58016013814
 ;;9002226.02101,"1033,58016013815 ",.01)
 ;;58016013815
 ;;9002226.02101,"1033,58016013815 ",.02)
 ;;58016013815
 ;;9002226.02101,"1033,58016013820 ",.01)
 ;;58016013820
 ;;9002226.02101,"1033,58016013820 ",.02)
 ;;58016013820
 ;;9002226.02101,"1033,58016013821 ",.01)
 ;;58016013821
 ;;9002226.02101,"1033,58016013821 ",.02)
 ;;58016013821
 ;;9002226.02101,"1033,58016013824 ",.01)
 ;;58016013824
 ;;9002226.02101,"1033,58016013824 ",.02)
 ;;58016013824
 ;;9002226.02101,"1033,58016013828 ",.01)
 ;;58016013828
 ;;9002226.02101,"1033,58016013828 ",.02)
 ;;58016013828
 ;;9002226.02101,"1033,58016013830 ",.01)
 ;;58016013830
 ;;9002226.02101,"1033,58016013830 ",.02)
 ;;58016013830
 ;;9002226.02101,"1033,58016013840 ",.01)
 ;;58016013840
 ;;9002226.02101,"1033,58016013840 ",.02)
 ;;58016013840
 ;;9002226.02101,"1033,58016013856 ",.01)
 ;;58016013856
 ;;9002226.02101,"1033,58016013856 ",.02)
 ;;58016013856
 ;;9002226.02101,"1033,58016013860 ",.01)
 ;;58016013860
 ;;9002226.02101,"1033,58016013860 ",.02)
 ;;58016013860
 ;;9002226.02101,"1033,58016013873 ",.01)
 ;;58016013873
 ;;9002226.02101,"1033,58016013873 ",.02)
 ;;58016013873
 ;;9002226.02101,"1033,58016013889 ",.01)
 ;;58016013889