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