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

BGPM5ARQ.m

Go to the documentation of this file.
BGPM5ARQ ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON AUG 16, 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,"1005,58016076000 ",.02)
 ;;58016076000
 ;;9002226.02101,"1005,58016076030 ",.01)
 ;;58016076030
 ;;9002226.02101,"1005,58016076030 ",.02)
 ;;58016076030
 ;;9002226.02101,"1005,58016076060 ",.01)
 ;;58016076060
 ;;9002226.02101,"1005,58016076060 ",.02)
 ;;58016076060
 ;;9002226.02101,"1005,58016076090 ",.01)
 ;;58016076090
 ;;9002226.02101,"1005,58016076090 ",.02)
 ;;58016076090
 ;;9002226.02101,"1005,58016077700 ",.01)
 ;;58016077700
 ;;9002226.02101,"1005,58016077700 ",.02)
 ;;58016077700
 ;;9002226.02101,"1005,58016077701 ",.01)
 ;;58016077701
 ;;9002226.02101,"1005,58016077701 ",.02)
 ;;58016077701
 ;;9002226.02101,"1005,58016077702 ",.01)
 ;;58016077702
 ;;9002226.02101,"1005,58016077702 ",.02)
 ;;58016077702
 ;;9002226.02101,"1005,58016077703 ",.01)
 ;;58016077703
 ;;9002226.02101,"1005,58016077703 ",.02)
 ;;58016077703
 ;;9002226.02101,"1005,58016077704 ",.01)
 ;;58016077704
 ;;9002226.02101,"1005,58016077704 ",.02)
 ;;58016077704
 ;;9002226.02101,"1005,58016077705 ",.01)
 ;;58016077705
 ;;9002226.02101,"1005,58016077705 ",.02)
 ;;58016077705
 ;;9002226.02101,"1005,58016077706 ",.01)
 ;;58016077706
 ;;9002226.02101,"1005,58016077706 ",.02)
 ;;58016077706
 ;;9002226.02101,"1005,58016077707 ",.01)
 ;;58016077707
 ;;9002226.02101,"1005,58016077707 ",.02)
 ;;58016077707
 ;;9002226.02101,"1005,58016077708 ",.01)
 ;;58016077708
 ;;9002226.02101,"1005,58016077708 ",.02)
 ;;58016077708
 ;;9002226.02101,"1005,58016077709 ",.01)
 ;;58016077709
 ;;9002226.02101,"1005,58016077709 ",.02)
 ;;58016077709
 ;;9002226.02101,"1005,58016077710 ",.01)
 ;;58016077710
 ;;9002226.02101,"1005,58016077710 ",.02)
 ;;58016077710
 ;;9002226.02101,"1005,58016077712 ",.01)
 ;;58016077712
 ;;9002226.02101,"1005,58016077712 ",.02)
 ;;58016077712
 ;;9002226.02101,"1005,58016077714 ",.01)
 ;;58016077714
 ;;9002226.02101,"1005,58016077714 ",.02)
 ;;58016077714
 ;;9002226.02101,"1005,58016077715 ",.01)
 ;;58016077715
 ;;9002226.02101,"1005,58016077715 ",.02)
 ;;58016077715
 ;;9002226.02101,"1005,58016077716 ",.01)
 ;;58016077716
 ;;9002226.02101,"1005,58016077716 ",.02)
 ;;58016077716
 ;;9002226.02101,"1005,58016077718 ",.01)
 ;;58016077718
 ;;9002226.02101,"1005,58016077718 ",.02)
 ;;58016077718
 ;;9002226.02101,"1005,58016077720 ",.01)
 ;;58016077720
 ;;9002226.02101,"1005,58016077720 ",.02)
 ;;58016077720
 ;;9002226.02101,"1005,58016077721 ",.01)
 ;;58016077721
 ;;9002226.02101,"1005,58016077721 ",.02)
 ;;58016077721
 ;;9002226.02101,"1005,58016077724 ",.01)
 ;;58016077724
 ;;9002226.02101,"1005,58016077724 ",.02)
 ;;58016077724
 ;;9002226.02101,"1005,58016077725 ",.01)
 ;;58016077725
 ;;9002226.02101,"1005,58016077725 ",.02)
 ;;58016077725
 ;;9002226.02101,"1005,58016077726 ",.01)
 ;;58016077726
 ;;9002226.02101,"1005,58016077726 ",.02)
 ;;58016077726
 ;;9002226.02101,"1005,58016077727 ",.01)
 ;;58016077727
 ;;9002226.02101,"1005,58016077727 ",.02)
 ;;58016077727
 ;;9002226.02101,"1005,58016077728 ",.01)
 ;;58016077728
 ;;9002226.02101,"1005,58016077728 ",.02)
 ;;58016077728
 ;;9002226.02101,"1005,58016077730 ",.01)
 ;;58016077730
 ;;9002226.02101,"1005,58016077730 ",.02)
 ;;58016077730
 ;;9002226.02101,"1005,58016077732 ",.01)
 ;;58016077732
 ;;9002226.02101,"1005,58016077732 ",.02)
 ;;58016077732
 ;;9002226.02101,"1005,58016077735 ",.01)
 ;;58016077735
 ;;9002226.02101,"1005,58016077735 ",.02)
 ;;58016077735
 ;;9002226.02101,"1005,58016077736 ",.01)
 ;;58016077736
 ;;9002226.02101,"1005,58016077736 ",.02)
 ;;58016077736
 ;;9002226.02101,"1005,58016077740 ",.01)
 ;;58016077740
 ;;9002226.02101,"1005,58016077740 ",.02)
 ;;58016077740
 ;;9002226.02101,"1005,58016077742 ",.01)
 ;;58016077742
 ;;9002226.02101,"1005,58016077742 ",.02)
 ;;58016077742
 ;;9002226.02101,"1005,58016077744 ",.01)
 ;;58016077744
 ;;9002226.02101,"1005,58016077744 ",.02)
 ;;58016077744
 ;;9002226.02101,"1005,58016077745 ",.01)
 ;;58016077745
 ;;9002226.02101,"1005,58016077745 ",.02)
 ;;58016077745
 ;;9002226.02101,"1005,58016077748 ",.01)
 ;;58016077748
 ;;9002226.02101,"1005,58016077748 ",.02)
 ;;58016077748
 ;;9002226.02101,"1005,58016077750 ",.01)
 ;;58016077750
 ;;9002226.02101,"1005,58016077750 ",.02)
 ;;58016077750
 ;;9002226.02101,"1005,58016077756 ",.01)
 ;;58016077756
 ;;9002226.02101,"1005,58016077756 ",.02)
 ;;58016077756
 ;;9002226.02101,"1005,58016077760 ",.01)
 ;;58016077760
 ;;9002226.02101,"1005,58016077760 ",.02)
 ;;58016077760
 ;;9002226.02101,"1005,58016077767 ",.01)
 ;;58016077767
 ;;9002226.02101,"1005,58016077767 ",.02)
 ;;58016077767
 ;;9002226.02101,"1005,58016077769 ",.01)
 ;;58016077769
 ;;9002226.02101,"1005,58016077769 ",.02)
 ;;58016077769
 ;;9002226.02101,"1005,58016077770 ",.01)
 ;;58016077770
 ;;9002226.02101,"1005,58016077770 ",.02)
 ;;58016077770
 ;;9002226.02101,"1005,58016077771 ",.01)
 ;;58016077771
 ;;9002226.02101,"1005,58016077771 ",.02)
 ;;58016077771
 ;;9002226.02101,"1005,58016077772 ",.01)
 ;;58016077772
 ;;9002226.02101,"1005,58016077772 ",.02)
 ;;58016077772
 ;;9002226.02101,"1005,58016077773 ",.01)
 ;;58016077773
 ;;9002226.02101,"1005,58016077773 ",.02)
 ;;58016077773
 ;;9002226.02101,"1005,58016077775 ",.01)
 ;;58016077775
 ;;9002226.02101,"1005,58016077775 ",.02)
 ;;58016077775
 ;;9002226.02101,"1005,58016077776 ",.01)
 ;;58016077776
 ;;9002226.02101,"1005,58016077776 ",.02)
 ;;58016077776
 ;;9002226.02101,"1005,58016077777 ",.01)
 ;;58016077777
 ;;9002226.02101,"1005,58016077777 ",.02)
 ;;58016077777
 ;;9002226.02101,"1005,58016077779 ",.01)
 ;;58016077779
 ;;9002226.02101,"1005,58016077779 ",.02)
 ;;58016077779
 ;;9002226.02101,"1005,58016077780 ",.01)
 ;;58016077780
 ;;9002226.02101,"1005,58016077780 ",.02)
 ;;58016077780
 ;;9002226.02101,"1005,58016077781 ",.01)
 ;;58016077781
 ;;9002226.02101,"1005,58016077781 ",.02)
 ;;58016077781
 ;;9002226.02101,"1005,58016077782 ",.01)
 ;;58016077782
 ;;9002226.02101,"1005,58016077782 ",.02)
 ;;58016077782
 ;;9002226.02101,"1005,58016077783 ",.01)
 ;;58016077783
 ;;9002226.02101,"1005,58016077783 ",.02)
 ;;58016077783
 ;;9002226.02101,"1005,58016077784 ",.01)
 ;;58016077784
 ;;9002226.02101,"1005,58016077784 ",.02)
 ;;58016077784
 ;;9002226.02101,"1005,58016077787 ",.01)
 ;;58016077787
 ;;9002226.02101,"1005,58016077787 ",.02)
 ;;58016077787
 ;;9002226.02101,"1005,58016077789 ",.01)
 ;;58016077789
 ;;9002226.02101,"1005,58016077789 ",.02)
 ;;58016077789
 ;;9002226.02101,"1005,58016077790 ",.01)
 ;;58016077790
 ;;9002226.02101,"1005,58016077790 ",.02)
 ;;58016077790
 ;;9002226.02101,"1005,58016077791 ",.01)
 ;;58016077791
 ;;9002226.02101,"1005,58016077791 ",.02)
 ;;58016077791
 ;;9002226.02101,"1005,58016077792 ",.01)
 ;;58016077792
 ;;9002226.02101,"1005,58016077792 ",.02)
 ;;58016077792
 ;;9002226.02101,"1005,58016077793 ",.01)
 ;;58016077793
 ;;9002226.02101,"1005,58016077793 ",.02)
 ;;58016077793
 ;;9002226.02101,"1005,58016077796 ",.01)
 ;;58016077796
 ;;9002226.02101,"1005,58016077796 ",.02)
 ;;58016077796
 ;;9002226.02101,"1005,58016077797 ",.01)
 ;;58016077797
 ;;9002226.02101,"1005,58016077797 ",.02)
 ;;58016077797
 ;;9002226.02101,"1005,58016077798 ",.01)
 ;;58016077798
 ;;9002226.02101,"1005,58016077798 ",.02)
 ;;58016077798
 ;;9002226.02101,"1005,58016077799 ",.01)
 ;;58016077799
 ;;9002226.02101,"1005,58016077799 ",.02)
 ;;58016077799
 ;;9002226.02101,"1005,58016078000 ",.01)
 ;;58016078000
 ;;9002226.02101,"1005,58016078000 ",.02)
 ;;58016078000
 ;;9002226.02101,"1005,58016078001 ",.01)
 ;;58016078001
 ;;9002226.02101,"1005,58016078001 ",.02)
 ;;58016078001
 ;;9002226.02101,"1005,58016078002 ",.01)
 ;;58016078002
 ;;9002226.02101,"1005,58016078002 ",.02)
 ;;58016078002
 ;;9002226.02101,"1005,58016078003 ",.01)
 ;;58016078003
 ;;9002226.02101,"1005,58016078003 ",.02)
 ;;58016078003
 ;;9002226.02101,"1005,58016078004 ",.01)
 ;;58016078004
 ;;9002226.02101,"1005,58016078004 ",.02)
 ;;58016078004
 ;;9002226.02101,"1005,58016078005 ",.01)
 ;;58016078005
 ;;9002226.02101,"1005,58016078005 ",.02)
 ;;58016078005
 ;;9002226.02101,"1005,58016078006 ",.01)
 ;;58016078006
 ;;9002226.02101,"1005,58016078006 ",.02)
 ;;58016078006
 ;;9002226.02101,"1005,58016078007 ",.01)
 ;;58016078007
 ;;9002226.02101,"1005,58016078007 ",.02)
 ;;58016078007
 ;;9002226.02101,"1005,58016078008 ",.01)
 ;;58016078008
 ;;9002226.02101,"1005,58016078008 ",.02)
 ;;58016078008
 ;;9002226.02101,"1005,58016078009 ",.01)
 ;;58016078009
 ;;9002226.02101,"1005,58016078009 ",.02)
 ;;58016078009
 ;;9002226.02101,"1005,58016078010 ",.01)
 ;;58016078010
 ;;9002226.02101,"1005,58016078010 ",.02)
 ;;58016078010
 ;;9002226.02101,"1005,58016078012 ",.01)
 ;;58016078012
 ;;9002226.02101,"1005,58016078012 ",.02)
 ;;58016078012
 ;;9002226.02101,"1005,58016078014 ",.01)
 ;;58016078014
 ;;9002226.02101,"1005,58016078014 ",.02)
 ;;58016078014
 ;;9002226.02101,"1005,58016078015 ",.01)
 ;;58016078015
 ;;9002226.02101,"1005,58016078015 ",.02)
 ;;58016078015
 ;;9002226.02101,"1005,58016078016 ",.01)
 ;;58016078016
 ;;9002226.02101,"1005,58016078016 ",.02)
 ;;58016078016
 ;;9002226.02101,"1005,58016078018 ",.01)
 ;;58016078018
 ;;9002226.02101,"1005,58016078018 ",.02)
 ;;58016078018
 ;;9002226.02101,"1005,58016078020 ",.01)
 ;;58016078020
 ;;9002226.02101,"1005,58016078020 ",.02)
 ;;58016078020
 ;;9002226.02101,"1005,58016078021 ",.01)
 ;;58016078021
 ;;9002226.02101,"1005,58016078021 ",.02)
 ;;58016078021
 ;;9002226.02101,"1005,58016078024 ",.01)
 ;;58016078024
 ;;9002226.02101,"1005,58016078024 ",.02)
 ;;58016078024
 ;;9002226.02101,"1005,58016078025 ",.01)
 ;;58016078025
 ;;9002226.02101,"1005,58016078025 ",.02)
 ;;58016078025
 ;;9002226.02101,"1005,58016078026 ",.01)
 ;;58016078026
 ;;9002226.02101,"1005,58016078026 ",.02)
 ;;58016078026
 ;;9002226.02101,"1005,58016078027 ",.01)
 ;;58016078027
 ;;9002226.02101,"1005,58016078027 ",.02)
 ;;58016078027
 ;;9002226.02101,"1005,58016078028 ",.01)
 ;;58016078028
 ;;9002226.02101,"1005,58016078028 ",.02)
 ;;58016078028
 ;;9002226.02101,"1005,58016078030 ",.01)
 ;;58016078030
 ;;9002226.02101,"1005,58016078030 ",.02)
 ;;58016078030
 ;;9002226.02101,"1005,58016078032 ",.01)
 ;;58016078032
 ;;9002226.02101,"1005,58016078032 ",.02)
 ;;58016078032
 ;;9002226.02101,"1005,58016078035 ",.01)
 ;;58016078035
 ;;9002226.02101,"1005,58016078035 ",.02)
 ;;58016078035
 ;;9002226.02101,"1005,58016078036 ",.01)
 ;;58016078036
 ;;9002226.02101,"1005,58016078036 ",.02)
 ;;58016078036
 ;;9002226.02101,"1005,58016078040 ",.01)
 ;;58016078040
 ;;9002226.02101,"1005,58016078040 ",.02)
 ;;58016078040
 ;;9002226.02101,"1005,58016078042 ",.01)
 ;;58016078042
 ;;9002226.02101,"1005,58016078042 ",.02)
 ;;58016078042
 ;;9002226.02101,"1005,58016078044 ",.01)
 ;;58016078044
 ;;9002226.02101,"1005,58016078044 ",.02)
 ;;58016078044
 ;;9002226.02101,"1005,58016078045 ",.01)
 ;;58016078045
 ;;9002226.02101,"1005,58016078045 ",.02)
 ;;58016078045
 ;;9002226.02101,"1005,58016078048 ",.01)
 ;;58016078048
 ;;9002226.02101,"1005,58016078048 ",.02)
 ;;58016078048
 ;;9002226.02101,"1005,58016078050 ",.01)
 ;;58016078050
 ;;9002226.02101,"1005,58016078050 ",.02)
 ;;58016078050
 ;;9002226.02101,"1005,58016078056 ",.01)
 ;;58016078056
 ;;9002226.02101,"1005,58016078056 ",.02)
 ;;58016078056
 ;;9002226.02101,"1005,58016078060 ",.01)
 ;;58016078060
 ;;9002226.02101,"1005,58016078060 ",.02)
 ;;58016078060
 ;;9002226.02101,"1005,58016078067 ",.01)
 ;;58016078067
 ;;9002226.02101,"1005,58016078067 ",.02)
 ;;58016078067
 ;;9002226.02101,"1005,58016078069 ",.01)
 ;;58016078069
 ;;9002226.02101,"1005,58016078069 ",.02)
 ;;58016078069