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

BGPM5AVV.m

Go to the documentation of this file.
  1. BGPM5AVV ;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,58016013889 ",.02)
  1. ;;58016013889
  1. ;;9002226.02101,"1033,58016013900 ",.01)
  1. ;;58016013900
  1. ;;9002226.02101,"1033,58016013900 ",.02)
  1. ;;58016013900
  1. ;;9002226.02101,"1033,58016013902 ",.01)
  1. ;;58016013902
  1. ;;9002226.02101,"1033,58016013902 ",.02)
  1. ;;58016013902
  1. ;;9002226.02101,"1033,58016013903 ",.01)
  1. ;;58016013903
  1. ;;9002226.02101,"1033,58016013903 ",.02)
  1. ;;58016013903
  1. ;;9002226.02101,"1033,58016013904 ",.01)
  1. ;;58016013904
  1. ;;9002226.02101,"1033,58016013904 ",.02)
  1. ;;58016013904
  1. ;;9002226.02101,"1033,58016013905 ",.01)
  1. ;;58016013905
  1. ;;9002226.02101,"1033,58016013905 ",.02)
  1. ;;58016013905
  1. ;;9002226.02101,"1033,58016013906 ",.01)
  1. ;;58016013906
  1. ;;9002226.02101,"1033,58016013906 ",.02)
  1. ;;58016013906
  1. ;;9002226.02101,"1033,58016013908 ",.01)
  1. ;;58016013908
  1. ;;9002226.02101,"1033,58016013908 ",.02)
  1. ;;58016013908
  1. ;;9002226.02101,"1033,58016013910 ",.01)
  1. ;;58016013910
  1. ;;9002226.02101,"1033,58016013910 ",.02)
  1. ;;58016013910
  1. ;;9002226.02101,"1033,58016013912 ",.01)
  1. ;;58016013912
  1. ;;9002226.02101,"1033,58016013912 ",.02)
  1. ;;58016013912
  1. ;;9002226.02101,"1033,58016013914 ",.01)
  1. ;;58016013914
  1. ;;9002226.02101,"1033,58016013914 ",.02)
  1. ;;58016013914
  1. ;;9002226.02101,"1033,58016013915 ",.01)
  1. ;;58016013915
  1. ;;9002226.02101,"1033,58016013915 ",.02)
  1. ;;58016013915
  1. ;;9002226.02101,"1033,58016013918 ",.01)
  1. ;;58016013918
  1. ;;9002226.02101,"1033,58016013918 ",.02)
  1. ;;58016013918
  1. ;;9002226.02101,"1033,58016013920 ",.01)
  1. ;;58016013920
  1. ;;9002226.02101,"1033,58016013920 ",.02)
  1. ;;58016013920
  1. ;;9002226.02101,"1033,58016013921 ",.01)
  1. ;;58016013921
  1. ;;9002226.02101,"1033,58016013921 ",.02)
  1. ;;58016013921
  1. ;;9002226.02101,"1033,58016013924 ",.01)
  1. ;;58016013924
  1. ;;9002226.02101,"1033,58016013924 ",.02)
  1. ;;58016013924
  1. ;;9002226.02101,"1033,58016013928 ",.01)
  1. ;;58016013928
  1. ;;9002226.02101,"1033,58016013928 ",.02)
  1. ;;58016013928
  1. ;;9002226.02101,"1033,58016013930 ",.01)
  1. ;;58016013930
  1. ;;9002226.02101,"1033,58016013930 ",.02)
  1. ;;58016013930
  1. ;;9002226.02101,"1033,58016013940 ",.01)
  1. ;;58016013940
  1. ;;9002226.02101,"1033,58016013940 ",.02)
  1. ;;58016013940
  1. ;;9002226.02101,"1033,58016013950 ",.01)
  1. ;;58016013950
  1. ;;9002226.02101,"1033,58016013950 ",.02)
  1. ;;58016013950
  1. ;;9002226.02101,"1033,58016013956 ",.01)
  1. ;;58016013956
  1. ;;9002226.02101,"1033,58016013956 ",.02)
  1. ;;58016013956
  1. ;;9002226.02101,"1033,58016013960 ",.01)
  1. ;;58016013960
  1. ;;9002226.02101,"1033,58016013960 ",.02)
  1. ;;58016013960
  1. ;;9002226.02101,"1033,58016013973 ",.01)
  1. ;;58016013973
  1. ;;9002226.02101,"1033,58016013973 ",.02)
  1. ;;58016013973
  1. ;;9002226.02101,"1033,58016013989 ",.01)
  1. ;;58016013989
  1. ;;9002226.02101,"1033,58016013989 ",.02)
  1. ;;58016013989
  1. ;;9002226.02101,"1033,58016014600 ",.01)
  1. ;;58016014600
  1. ;;9002226.02101,"1033,58016014600 ",.02)
  1. ;;58016014600
  1. ;;9002226.02101,"1033,58016014602 ",.01)
  1. ;;58016014602
  1. ;;9002226.02101,"1033,58016014602 ",.02)
  1. ;;58016014602
  1. ;;9002226.02101,"1033,58016014603 ",.01)
  1. ;;58016014603
  1. ;;9002226.02101,"1033,58016014603 ",.02)
  1. ;;58016014603
  1. ;;9002226.02101,"1033,58016014610 ",.01)
  1. ;;58016014610
  1. ;;9002226.02101,"1033,58016014610 ",.02)
  1. ;;58016014610
  1. ;;9002226.02101,"1033,58016014612 ",.01)
  1. ;;58016014612
  1. ;;9002226.02101,"1033,58016014612 ",.02)
  1. ;;58016014612
  1. ;;9002226.02101,"1033,58016014616 ",.01)
  1. ;;58016014616
  1. ;;9002226.02101,"1033,58016014616 ",.02)
  1. ;;58016014616
  1. ;;9002226.02101,"1033,58016014620 ",.01)
  1. ;;58016014620
  1. ;;9002226.02101,"1033,58016014620 ",.02)
  1. ;;58016014620
  1. ;;9002226.02101,"1033,58016014621 ",.01)
  1. ;;58016014621
  1. ;;9002226.02101,"1033,58016014621 ",.02)
  1. ;;58016014621
  1. ;;9002226.02101,"1033,58016014624 ",.01)
  1. ;;58016014624
  1. ;;9002226.02101,"1033,58016014624 ",.02)
  1. ;;58016014624
  1. ;;9002226.02101,"1033,58016014628 ",.01)
  1. ;;58016014628
  1. ;;9002226.02101,"1033,58016014628 ",.02)
  1. ;;58016014628
  1. ;;9002226.02101,"1033,58016014630 ",.01)
  1. ;;58016014630
  1. ;;9002226.02101,"1033,58016014630 ",.02)
  1. ;;58016014630
  1. ;;9002226.02101,"1033,58016014640 ",.01)
  1. ;;58016014640
  1. ;;9002226.02101,"1033,58016014640 ",.02)
  1. ;;58016014640
  1. ;;9002226.02101,"1033,58016014660 ",.01)
  1. ;;58016014660
  1. ;;9002226.02101,"1033,58016014660 ",.02)
  1. ;;58016014660
  1. ;;9002226.02101,"1033,58016014673 ",.01)
  1. ;;58016014673
  1. ;;9002226.02101,"1033,58016014673 ",.02)
  1. ;;58016014673
  1. ;;9002226.02101,"1033,58016014689 ",.01)
  1. ;;58016014689
  1. ;;9002226.02101,"1033,58016014689 ",.02)
  1. ;;58016014689
  1. ;;9002226.02101,"1033,58016014690 ",.01)
  1. ;;58016014690
  1. ;;9002226.02101,"1033,58016014690 ",.02)
  1. ;;58016014690
  1. ;;9002226.02101,"1033,58016014700 ",.01)
  1. ;;58016014700
  1. ;;9002226.02101,"1033,58016014700 ",.02)
  1. ;;58016014700
  1. ;;9002226.02101,"1033,58016014701 ",.01)
  1. ;;58016014701
  1. ;;9002226.02101,"1033,58016014701 ",.02)
  1. ;;58016014701
  1. ;;9002226.02101,"1033,58016014702 ",.01)
  1. ;;58016014702
  1. ;;9002226.02101,"1033,58016014702 ",.02)
  1. ;;58016014702
  1. ;;9002226.02101,"1033,58016014703 ",.01)
  1. ;;58016014703
  1. ;;9002226.02101,"1033,58016014703 ",.02)
  1. ;;58016014703
  1. ;;9002226.02101,"1033,58016014704 ",.01)
  1. ;;58016014704
  1. ;;9002226.02101,"1033,58016014704 ",.02)
  1. ;;58016014704
  1. ;;9002226.02101,"1033,58016014705 ",.01)
  1. ;;58016014705
  1. ;;9002226.02101,"1033,58016014705 ",.02)
  1. ;;58016014705
  1. ;;9002226.02101,"1033,58016014706 ",.01)
  1. ;;58016014706
  1. ;;9002226.02101,"1033,58016014706 ",.02)
  1. ;;58016014706
  1. ;;9002226.02101,"1033,58016014707 ",.01)
  1. ;;58016014707
  1. ;;9002226.02101,"1033,58016014707 ",.02)
  1. ;;58016014707
  1. ;;9002226.02101,"1033,58016014708 ",.01)
  1. ;;58016014708
  1. ;;9002226.02101,"1033,58016014708 ",.02)
  1. ;;58016014708
  1. ;;9002226.02101,"1033,58016014709 ",.01)
  1. ;;58016014709
  1. ;;9002226.02101,"1033,58016014709 ",.02)
  1. ;;58016014709
  1. ;;9002226.02101,"1033,58016014710 ",.01)
  1. ;;58016014710
  1. ;;9002226.02101,"1033,58016014710 ",.02)
  1. ;;58016014710
  1. ;;9002226.02101,"1033,58016014712 ",.01)
  1. ;;58016014712
  1. ;;9002226.02101,"1033,58016014712 ",.02)
  1. ;;58016014712
  1. ;;9002226.02101,"1033,58016014714 ",.01)
  1. ;;58016014714
  1. ;;9002226.02101,"1033,58016014714 ",.02)
  1. ;;58016014714
  1. ;;9002226.02101,"1033,58016014715 ",.01)
  1. ;;58016014715
  1. ;;9002226.02101,"1033,58016014715 ",.02)
  1. ;;58016014715
  1. ;;9002226.02101,"1033,58016014716 ",.01)
  1. ;;58016014716
  1. ;;9002226.02101,"1033,58016014716 ",.02)
  1. ;;58016014716
  1. ;;9002226.02101,"1033,58016014718 ",.01)
  1. ;;58016014718
  1. ;;9002226.02101,"1033,58016014718 ",.02)
  1. ;;58016014718
  1. ;;9002226.02101,"1033,58016014720 ",.01)
  1. ;;58016014720
  1. ;;9002226.02101,"1033,58016014720 ",.02)
  1. ;;58016014720
  1. ;;9002226.02101,"1033,58016014721 ",.01)
  1. ;;58016014721
  1. ;;9002226.02101,"1033,58016014721 ",.02)
  1. ;;58016014721
  1. ;;9002226.02101,"1033,58016014724 ",.01)
  1. ;;58016014724
  1. ;;9002226.02101,"1033,58016014724 ",.02)
  1. ;;58016014724
  1. ;;9002226.02101,"1033,58016014725 ",.01)
  1. ;;58016014725
  1. ;;9002226.02101,"1033,58016014725 ",.02)
  1. ;;58016014725
  1. ;;9002226.02101,"1033,58016014726 ",.01)
  1. ;;58016014726
  1. ;;9002226.02101,"1033,58016014726 ",.02)
  1. ;;58016014726
  1. ;;9002226.02101,"1033,58016014727 ",.01)
  1. ;;58016014727
  1. ;;9002226.02101,"1033,58016014727 ",.02)
  1. ;;58016014727
  1. ;;9002226.02101,"1033,58016014728 ",.01)
  1. ;;58016014728
  1. ;;9002226.02101,"1033,58016014728 ",.02)
  1. ;;58016014728
  1. ;;9002226.02101,"1033,58016014730 ",.01)
  1. ;;58016014730
  1. ;;9002226.02101,"1033,58016014730 ",.02)
  1. ;;58016014730
  1. ;;9002226.02101,"1033,58016014732 ",.01)
  1. ;;58016014732
  1. ;;9002226.02101,"1033,58016014732 ",.02)
  1. ;;58016014732
  1. ;;9002226.02101,"1033,58016014735 ",.01)
  1. ;;58016014735
  1. ;;9002226.02101,"1033,58016014735 ",.02)
  1. ;;58016014735
  1. ;;9002226.02101,"1033,58016014736 ",.01)
  1. ;;58016014736
  1. ;;9002226.02101,"1033,58016014736 ",.02)
  1. ;;58016014736
  1. ;;9002226.02101,"1033,58016014740 ",.01)
  1. ;;58016014740
  1. ;;9002226.02101,"1033,58016014740 ",.02)
  1. ;;58016014740
  1. ;;9002226.02101,"1033,58016014742 ",.01)
  1. ;;58016014742
  1. ;;9002226.02101,"1033,58016014742 ",.02)
  1. ;;58016014742
  1. ;;9002226.02101,"1033,58016014744 ",.01)
  1. ;;58016014744
  1. ;;9002226.02101,"1033,58016014744 ",.02)
  1. ;;58016014744
  1. ;;9002226.02101,"1033,58016014745 ",.01)
  1. ;;58016014745
  1. ;;9002226.02101,"1033,58016014745 ",.02)
  1. ;;58016014745
  1. ;;9002226.02101,"1033,58016014746 ",.01)
  1. ;;58016014746
  1. ;;9002226.02101,"1033,58016014746 ",.02)
  1. ;;58016014746
  1. ;;9002226.02101,"1033,58016014750 ",.01)
  1. ;;58016014750
  1. ;;9002226.02101,"1033,58016014750 ",.02)
  1. ;;58016014750
  1. ;;9002226.02101,"1033,58016014756 ",.01)
  1. ;;58016014756
  1. ;;9002226.02101,"1033,58016014756 ",.02)
  1. ;;58016014756
  1. ;;9002226.02101,"1033,58016014760 ",.01)
  1. ;;58016014760
  1. ;;9002226.02101,"1033,58016014760 ",.02)
  1. ;;58016014760
  1. ;;9002226.02101,"1033,58016014767 ",.01)
  1. ;;58016014767
  1. ;;9002226.02101,"1033,58016014767 ",.02)
  1. ;;58016014767
  1. ;;9002226.02101,"1033,58016014769 ",.01)
  1. ;;58016014769
  1. ;;9002226.02101,"1033,58016014769 ",.02)
  1. ;;58016014769
  1. ;;9002226.02101,"1033,58016014770 ",.01)
  1. ;;58016014770
  1. ;;9002226.02101,"1033,58016014770 ",.02)
  1. ;;58016014770
  1. ;;9002226.02101,"1033,58016014771 ",.01)
  1. ;;58016014771
  1. ;;9002226.02101,"1033,58016014771 ",.02)
  1. ;;58016014771
  1. ;;9002226.02101,"1033,58016014772 ",.01)
  1. ;;58016014772
  1. ;;9002226.02101,"1033,58016014772 ",.02)
  1. ;;58016014772
  1. ;;9002226.02101,"1033,58016014773 ",.01)
  1. ;;58016014773
  1. ;;9002226.02101,"1033,58016014773 ",.02)
  1. ;;58016014773
  1. ;;9002226.02101,"1033,58016014775 ",.01)
  1. ;;58016014775
  1. ;;9002226.02101,"1033,58016014775 ",.02)
  1. ;;58016014775
  1. ;;9002226.02101,"1033,58016014776 ",.01)
  1. ;;58016014776
  1. ;;9002226.02101,"1033,58016014776 ",.02)
  1. ;;58016014776
  1. ;;9002226.02101,"1033,58016014777 ",.01)
  1. ;;58016014777
  1. ;;9002226.02101,"1033,58016014777 ",.02)
  1. ;;58016014777
  1. ;;9002226.02101,"1033,58016014779 ",.01)
  1. ;;58016014779
  1. ;;9002226.02101,"1033,58016014779 ",.02)
  1. ;;58016014779
  1. ;;9002226.02101,"1033,58016014780 ",.01)
  1. ;;58016014780
  1. ;;9002226.02101,"1033,58016014780 ",.02)
  1. ;;58016014780
  1. ;;9002226.02101,"1033,58016014781 ",.01)
  1. ;;58016014781
  1. ;;9002226.02101,"1033,58016014781 ",.02)
  1. ;;58016014781
  1. ;;9002226.02101,"1033,58016014782 ",.01)
  1. ;;58016014782
  1. ;;9002226.02101,"1033,58016014782 ",.02)
  1. ;;58016014782
  1. ;;9002226.02101,"1033,58016014783 ",.01)
  1. ;;58016014783
  1. ;;9002226.02101,"1033,58016014783 ",.02)
  1. ;;58016014783
  1. ;;9002226.02101,"1033,58016014784 ",.01)
  1. ;;58016014784
  1. ;;9002226.02101,"1033,58016014784 ",.02)
  1. ;;58016014784
  1. ;;9002226.02101,"1033,58016014787 ",.01)
  1. ;;58016014787
  1. ;;9002226.02101,"1033,58016014787 ",.02)
  1. ;;58016014787
  1. ;;9002226.02101,"1033,58016014789 ",.01)
  1. ;;58016014789
  1. ;;9002226.02101,"1033,58016014789 ",.02)
  1. ;;58016014789
  1. ;;9002226.02101,"1033,58016014790 ",.01)
  1. ;;58016014790
  1. ;;9002226.02101,"1033,58016014790 ",.02)
  1. ;;58016014790
  1. ;;9002226.02101,"1033,58016014791 ",.01)
  1. ;;58016014791
  1. ;;9002226.02101,"1033,58016014791 ",.02)
  1. ;;58016014791
  1. ;;9002226.02101,"1033,58016014792 ",.01)
  1. ;;58016014792
  1. ;;9002226.02101,"1033,58016014792 ",.02)
  1. ;;58016014792
  1. ;;9002226.02101,"1033,58016014793 ",.01)
  1. ;;58016014793
  1. ;;9002226.02101,"1033,58016014793 ",.02)
  1. ;;58016014793
  1. ;;9002226.02101,"1033,58016014796 ",.01)
  1. ;;58016014796
  1. ;;9002226.02101,"1033,58016014796 ",.02)
  1. ;;58016014796
  1. ;;9002226.02101,"1033,58016014798 ",.01)
  1. ;;58016014798
  1. ;;9002226.02101,"1033,58016014798 ",.02)
  1. ;;58016014798
  1. ;;9002226.02101,"1033,58016014799 ",.01)
  1. ;;58016014799
  1. ;;9002226.02101,"1033,58016014799 ",.02)
  1. ;;58016014799
  1. ;;9002226.02101,"1033,58016014800 ",.01)
  1. ;;58016014800
  1. ;;9002226.02101,"1033,58016014800 ",.02)
  1. ;;58016014800
  1. ;;9002226.02101,"1033,58016014808 ",.01)
  1. ;;58016014808
  1. ;;9002226.02101,"1033,58016014808 ",.02)
  1. ;;58016014808