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