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