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

BGPM5BDB.m

Go to the documentation of this file.
  1. BGPM5BDB ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON SEP 12, 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,"1044,58016050890 ",.01)
  1. ;;58016050890
  1. ;;9002226.02101,"1044,58016050890 ",.02)
  1. ;;58016050890
  1. ;;9002226.02101,"1044,58016050891 ",.01)
  1. ;;58016050891
  1. ;;9002226.02101,"1044,58016050891 ",.02)
  1. ;;58016050891
  1. ;;9002226.02101,"1044,58016050892 ",.01)
  1. ;;58016050892
  1. ;;9002226.02101,"1044,58016050892 ",.02)
  1. ;;58016050892
  1. ;;9002226.02101,"1044,58016050893 ",.01)
  1. ;;58016050893
  1. ;;9002226.02101,"1044,58016050893 ",.02)
  1. ;;58016050893
  1. ;;9002226.02101,"1044,58016050896 ",.01)
  1. ;;58016050896
  1. ;;9002226.02101,"1044,58016050896 ",.02)
  1. ;;58016050896
  1. ;;9002226.02101,"1044,58016050897 ",.01)
  1. ;;58016050897
  1. ;;9002226.02101,"1044,58016050897 ",.02)
  1. ;;58016050897
  1. ;;9002226.02101,"1044,58016050898 ",.01)
  1. ;;58016050898
  1. ;;9002226.02101,"1044,58016050898 ",.02)
  1. ;;58016050898
  1. ;;9002226.02101,"1044,58016050899 ",.01)
  1. ;;58016050899
  1. ;;9002226.02101,"1044,58016050899 ",.02)
  1. ;;58016050899
  1. ;;9002226.02101,"1044,58016051900 ",.01)
  1. ;;58016051900
  1. ;;9002226.02101,"1044,58016051900 ",.02)
  1. ;;58016051900
  1. ;;9002226.02101,"1044,58016051901 ",.01)
  1. ;;58016051901
  1. ;;9002226.02101,"1044,58016051901 ",.02)
  1. ;;58016051901
  1. ;;9002226.02101,"1044,58016051902 ",.01)
  1. ;;58016051902
  1. ;;9002226.02101,"1044,58016051902 ",.02)
  1. ;;58016051902
  1. ;;9002226.02101,"1044,58016051903 ",.01)
  1. ;;58016051903
  1. ;;9002226.02101,"1044,58016051903 ",.02)
  1. ;;58016051903
  1. ;;9002226.02101,"1044,58016051904 ",.01)
  1. ;;58016051904
  1. ;;9002226.02101,"1044,58016051904 ",.02)
  1. ;;58016051904
  1. ;;9002226.02101,"1044,58016051905 ",.01)
  1. ;;58016051905
  1. ;;9002226.02101,"1044,58016051905 ",.02)
  1. ;;58016051905
  1. ;;9002226.02101,"1044,58016051906 ",.01)
  1. ;;58016051906
  1. ;;9002226.02101,"1044,58016051906 ",.02)
  1. ;;58016051906
  1. ;;9002226.02101,"1044,58016051907 ",.01)
  1. ;;58016051907
  1. ;;9002226.02101,"1044,58016051907 ",.02)
  1. ;;58016051907
  1. ;;9002226.02101,"1044,58016051908 ",.01)
  1. ;;58016051908
  1. ;;9002226.02101,"1044,58016051908 ",.02)
  1. ;;58016051908
  1. ;;9002226.02101,"1044,58016051909 ",.01)
  1. ;;58016051909
  1. ;;9002226.02101,"1044,58016051909 ",.02)
  1. ;;58016051909
  1. ;;9002226.02101,"1044,58016051910 ",.01)
  1. ;;58016051910
  1. ;;9002226.02101,"1044,58016051910 ",.02)
  1. ;;58016051910
  1. ;;9002226.02101,"1044,58016051912 ",.01)
  1. ;;58016051912
  1. ;;9002226.02101,"1044,58016051912 ",.02)
  1. ;;58016051912
  1. ;;9002226.02101,"1044,58016051914 ",.01)
  1. ;;58016051914
  1. ;;9002226.02101,"1044,58016051914 ",.02)
  1. ;;58016051914
  1. ;;9002226.02101,"1044,58016051915 ",.01)
  1. ;;58016051915
  1. ;;9002226.02101,"1044,58016051915 ",.02)
  1. ;;58016051915
  1. ;;9002226.02101,"1044,58016051916 ",.01)
  1. ;;58016051916
  1. ;;9002226.02101,"1044,58016051916 ",.02)
  1. ;;58016051916
  1. ;;9002226.02101,"1044,58016051918 ",.01)
  1. ;;58016051918
  1. ;;9002226.02101,"1044,58016051918 ",.02)
  1. ;;58016051918
  1. ;;9002226.02101,"1044,58016051920 ",.01)
  1. ;;58016051920
  1. ;;9002226.02101,"1044,58016051920 ",.02)
  1. ;;58016051920
  1. ;;9002226.02101,"1044,58016051921 ",.01)
  1. ;;58016051921
  1. ;;9002226.02101,"1044,58016051921 ",.02)
  1. ;;58016051921
  1. ;;9002226.02101,"1044,58016051924 ",.01)
  1. ;;58016051924
  1. ;;9002226.02101,"1044,58016051924 ",.02)
  1. ;;58016051924
  1. ;;9002226.02101,"1044,58016051925 ",.01)
  1. ;;58016051925
  1. ;;9002226.02101,"1044,58016051925 ",.02)
  1. ;;58016051925
  1. ;;9002226.02101,"1044,58016051926 ",.01)
  1. ;;58016051926
  1. ;;9002226.02101,"1044,58016051926 ",.02)
  1. ;;58016051926
  1. ;;9002226.02101,"1044,58016051927 ",.01)
  1. ;;58016051927
  1. ;;9002226.02101,"1044,58016051927 ",.02)
  1. ;;58016051927
  1. ;;9002226.02101,"1044,58016051928 ",.01)
  1. ;;58016051928
  1. ;;9002226.02101,"1044,58016051928 ",.02)
  1. ;;58016051928
  1. ;;9002226.02101,"1044,58016051930 ",.01)
  1. ;;58016051930
  1. ;;9002226.02101,"1044,58016051930 ",.02)
  1. ;;58016051930
  1. ;;9002226.02101,"1044,58016051932 ",.01)
  1. ;;58016051932
  1. ;;9002226.02101,"1044,58016051932 ",.02)
  1. ;;58016051932
  1. ;;9002226.02101,"1044,58016051935 ",.01)
  1. ;;58016051935
  1. ;;9002226.02101,"1044,58016051935 ",.02)
  1. ;;58016051935
  1. ;;9002226.02101,"1044,58016051936 ",.01)
  1. ;;58016051936
  1. ;;9002226.02101,"1044,58016051936 ",.02)
  1. ;;58016051936
  1. ;;9002226.02101,"1044,58016051940 ",.01)
  1. ;;58016051940
  1. ;;9002226.02101,"1044,58016051940 ",.02)
  1. ;;58016051940
  1. ;;9002226.02101,"1044,58016051942 ",.01)
  1. ;;58016051942
  1. ;;9002226.02101,"1044,58016051942 ",.02)
  1. ;;58016051942
  1. ;;9002226.02101,"1044,58016051944 ",.01)
  1. ;;58016051944
  1. ;;9002226.02101,"1044,58016051944 ",.02)
  1. ;;58016051944
  1. ;;9002226.02101,"1044,58016051945 ",.01)
  1. ;;58016051945
  1. ;;9002226.02101,"1044,58016051945 ",.02)
  1. ;;58016051945
  1. ;;9002226.02101,"1044,58016051948 ",.01)
  1. ;;58016051948
  1. ;;9002226.02101,"1044,58016051948 ",.02)
  1. ;;58016051948
  1. ;;9002226.02101,"1044,58016051950 ",.01)
  1. ;;58016051950
  1. ;;9002226.02101,"1044,58016051950 ",.02)
  1. ;;58016051950
  1. ;;9002226.02101,"1044,58016051956 ",.01)
  1. ;;58016051956
  1. ;;9002226.02101,"1044,58016051956 ",.02)
  1. ;;58016051956
  1. ;;9002226.02101,"1044,58016051960 ",.01)
  1. ;;58016051960
  1. ;;9002226.02101,"1044,58016051960 ",.02)
  1. ;;58016051960
  1. ;;9002226.02101,"1044,58016051967 ",.01)
  1. ;;58016051967
  1. ;;9002226.02101,"1044,58016051967 ",.02)
  1. ;;58016051967
  1. ;;9002226.02101,"1044,58016051969 ",.01)
  1. ;;58016051969
  1. ;;9002226.02101,"1044,58016051969 ",.02)
  1. ;;58016051969
  1. ;;9002226.02101,"1044,58016051970 ",.01)
  1. ;;58016051970
  1. ;;9002226.02101,"1044,58016051970 ",.02)
  1. ;;58016051970
  1. ;;9002226.02101,"1044,58016051971 ",.01)
  1. ;;58016051971
  1. ;;9002226.02101,"1044,58016051971 ",.02)
  1. ;;58016051971
  1. ;;9002226.02101,"1044,58016051972 ",.01)
  1. ;;58016051972
  1. ;;9002226.02101,"1044,58016051972 ",.02)
  1. ;;58016051972
  1. ;;9002226.02101,"1044,58016051973 ",.01)
  1. ;;58016051973
  1. ;;9002226.02101,"1044,58016051973 ",.02)
  1. ;;58016051973
  1. ;;9002226.02101,"1044,58016051975 ",.01)
  1. ;;58016051975
  1. ;;9002226.02101,"1044,58016051975 ",.02)
  1. ;;58016051975
  1. ;;9002226.02101,"1044,58016051976 ",.01)
  1. ;;58016051976
  1. ;;9002226.02101,"1044,58016051976 ",.02)
  1. ;;58016051976
  1. ;;9002226.02101,"1044,58016051977 ",.01)
  1. ;;58016051977
  1. ;;9002226.02101,"1044,58016051977 ",.02)
  1. ;;58016051977
  1. ;;9002226.02101,"1044,58016051979 ",.01)
  1. ;;58016051979
  1. ;;9002226.02101,"1044,58016051979 ",.02)
  1. ;;58016051979
  1. ;;9002226.02101,"1044,58016051980 ",.01)
  1. ;;58016051980
  1. ;;9002226.02101,"1044,58016051980 ",.02)
  1. ;;58016051980
  1. ;;9002226.02101,"1044,58016051981 ",.01)
  1. ;;58016051981
  1. ;;9002226.02101,"1044,58016051981 ",.02)
  1. ;;58016051981
  1. ;;9002226.02101,"1044,58016051982 ",.01)
  1. ;;58016051982
  1. ;;9002226.02101,"1044,58016051982 ",.02)
  1. ;;58016051982
  1. ;;9002226.02101,"1044,58016051983 ",.01)
  1. ;;58016051983
  1. ;;9002226.02101,"1044,58016051983 ",.02)
  1. ;;58016051983
  1. ;;9002226.02101,"1044,58016051984 ",.01)
  1. ;;58016051984
  1. ;;9002226.02101,"1044,58016051984 ",.02)
  1. ;;58016051984
  1. ;;9002226.02101,"1044,58016051987 ",.01)
  1. ;;58016051987
  1. ;;9002226.02101,"1044,58016051987 ",.02)
  1. ;;58016051987
  1. ;;9002226.02101,"1044,58016051989 ",.01)
  1. ;;58016051989
  1. ;;9002226.02101,"1044,58016051989 ",.02)
  1. ;;58016051989
  1. ;;9002226.02101,"1044,58016051990 ",.01)
  1. ;;58016051990
  1. ;;9002226.02101,"1044,58016051990 ",.02)
  1. ;;58016051990
  1. ;;9002226.02101,"1044,58016051991 ",.01)
  1. ;;58016051991
  1. ;;9002226.02101,"1044,58016051991 ",.02)
  1. ;;58016051991
  1. ;;9002226.02101,"1044,58016051992 ",.01)
  1. ;;58016051992
  1. ;;9002226.02101,"1044,58016051992 ",.02)
  1. ;;58016051992
  1. ;;9002226.02101,"1044,58016051993 ",.01)
  1. ;;58016051993
  1. ;;9002226.02101,"1044,58016051993 ",.02)
  1. ;;58016051993
  1. ;;9002226.02101,"1044,58016051996 ",.01)
  1. ;;58016051996
  1. ;;9002226.02101,"1044,58016051996 ",.02)
  1. ;;58016051996
  1. ;;9002226.02101,"1044,58016051997 ",.01)
  1. ;;58016051997
  1. ;;9002226.02101,"1044,58016051997 ",.02)
  1. ;;58016051997
  1. ;;9002226.02101,"1044,58016051998 ",.01)
  1. ;;58016051998
  1. ;;9002226.02101,"1044,58016051998 ",.02)
  1. ;;58016051998
  1. ;;9002226.02101,"1044,58016051999 ",.01)
  1. ;;58016051999
  1. ;;9002226.02101,"1044,58016051999 ",.02)
  1. ;;58016051999
  1. ;;9002226.02101,"1044,58016056700 ",.01)
  1. ;;58016056700
  1. ;;9002226.02101,"1044,58016056700 ",.02)
  1. ;;58016056700
  1. ;;9002226.02101,"1044,58016056701 ",.01)
  1. ;;58016056701
  1. ;;9002226.02101,"1044,58016056701 ",.02)
  1. ;;58016056701
  1. ;;9002226.02101,"1044,58016056702 ",.01)
  1. ;;58016056702
  1. ;;9002226.02101,"1044,58016056702 ",.02)
  1. ;;58016056702
  1. ;;9002226.02101,"1044,58016056703 ",.01)
  1. ;;58016056703
  1. ;;9002226.02101,"1044,58016056703 ",.02)
  1. ;;58016056703
  1. ;;9002226.02101,"1044,58016056704 ",.01)
  1. ;;58016056704
  1. ;;9002226.02101,"1044,58016056704 ",.02)
  1. ;;58016056704
  1. ;;9002226.02101,"1044,58016056705 ",.01)
  1. ;;58016056705
  1. ;;9002226.02101,"1044,58016056705 ",.02)
  1. ;;58016056705
  1. ;;9002226.02101,"1044,58016056706 ",.01)
  1. ;;58016056706
  1. ;;9002226.02101,"1044,58016056706 ",.02)
  1. ;;58016056706
  1. ;;9002226.02101,"1044,58016056707 ",.01)
  1. ;;58016056707
  1. ;;9002226.02101,"1044,58016056707 ",.02)
  1. ;;58016056707
  1. ;;9002226.02101,"1044,58016056708 ",.01)
  1. ;;58016056708
  1. ;;9002226.02101,"1044,58016056708 ",.02)
  1. ;;58016056708
  1. ;;9002226.02101,"1044,58016056709 ",.01)
  1. ;;58016056709
  1. ;;9002226.02101,"1044,58016056709 ",.02)
  1. ;;58016056709
  1. ;;9002226.02101,"1044,58016056710 ",.01)
  1. ;;58016056710
  1. ;;9002226.02101,"1044,58016056710 ",.02)
  1. ;;58016056710
  1. ;;9002226.02101,"1044,58016056712 ",.01)
  1. ;;58016056712
  1. ;;9002226.02101,"1044,58016056712 ",.02)
  1. ;;58016056712
  1. ;;9002226.02101,"1044,58016056714 ",.01)
  1. ;;58016056714
  1. ;;9002226.02101,"1044,58016056714 ",.02)
  1. ;;58016056714
  1. ;;9002226.02101,"1044,58016056715 ",.01)
  1. ;;58016056715
  1. ;;9002226.02101,"1044,58016056715 ",.02)
  1. ;;58016056715
  1. ;;9002226.02101,"1044,58016056716 ",.01)
  1. ;;58016056716
  1. ;;9002226.02101,"1044,58016056716 ",.02)
  1. ;;58016056716
  1. ;;9002226.02101,"1044,58016056718 ",.01)
  1. ;;58016056718
  1. ;;9002226.02101,"1044,58016056718 ",.02)
  1. ;;58016056718
  1. ;;9002226.02101,"1044,58016056720 ",.01)
  1. ;;58016056720
  1. ;;9002226.02101,"1044,58016056720 ",.02)
  1. ;;58016056720
  1. ;;9002226.02101,"1044,58016056721 ",.01)
  1. ;;58016056721
  1. ;;9002226.02101,"1044,58016056721 ",.02)
  1. ;;58016056721
  1. ;;9002226.02101,"1044,58016056724 ",.01)
  1. ;;58016056724
  1. ;;9002226.02101,"1044,58016056724 ",.02)
  1. ;;58016056724
  1. ;;9002226.02101,"1044,58016056725 ",.01)
  1. ;;58016056725
  1. ;;9002226.02101,"1044,58016056725 ",.02)
  1. ;;58016056725
  1. ;;9002226.02101,"1044,58016056726 ",.01)
  1. ;;58016056726
  1. ;;9002226.02101,"1044,58016056726 ",.02)
  1. ;;58016056726
  1. ;;9002226.02101,"1044,58016056727 ",.01)
  1. ;;58016056727
  1. ;;9002226.02101,"1044,58016056727 ",.02)
  1. ;;58016056727
  1. ;;9002226.02101,"1044,58016056728 ",.01)
  1. ;;58016056728
  1. ;;9002226.02101,"1044,58016056728 ",.02)
  1. ;;58016056728
  1. ;;9002226.02101,"1044,58016056730 ",.01)
  1. ;;58016056730
  1. ;;9002226.02101,"1044,58016056730 ",.02)
  1. ;;58016056730
  1. ;;9002226.02101,"1044,58016056732 ",.01)
  1. ;;58016056732
  1. ;;9002226.02101,"1044,58016056732 ",.02)
  1. ;;58016056732
  1. ;;9002226.02101,"1044,58016056735 ",.01)
  1. ;;58016056735
  1. ;;9002226.02101,"1044,58016056735 ",.02)
  1. ;;58016056735
  1. ;;9002226.02101,"1044,58016056736 ",.01)
  1. ;;58016056736
  1. ;;9002226.02101,"1044,58016056736 ",.02)
  1. ;;58016056736
  1. ;;9002226.02101,"1044,58016056740 ",.01)
  1. ;;58016056740
  1. ;;9002226.02101,"1044,58016056740 ",.02)
  1. ;;58016056740
  1. ;;9002226.02101,"1044,58016056742 ",.01)
  1. ;;58016056742
  1. ;;9002226.02101,"1044,58016056742 ",.02)
  1. ;;58016056742
  1. ;;9002226.02101,"1044,58016056744 ",.01)
  1. ;;58016056744
  1. ;;9002226.02101,"1044,58016056744 ",.02)
  1. ;;58016056744
  1. ;;9002226.02101,"1044,58016056745 ",.01)
  1. ;;58016056745
  1. ;;9002226.02101,"1044,58016056745 ",.02)
  1. ;;58016056745
  1. ;;9002226.02101,"1044,58016056748 ",.01)
  1. ;;58016056748
  1. ;;9002226.02101,"1044,58016056748 ",.02)
  1. ;;58016056748
  1. ;;9002226.02101,"1044,58016056750 ",.01)
  1. ;;58016056750