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

BGPM5AEW.m

Go to the documentation of this file.
  1. BGPM5AEW ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 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,"881,57866685901 ",.01)
  1. ;;57866685901
  1. ;;9002226.02101,"881,57866685901 ",.02)
  1. ;;57866685901
  1. ;;9002226.02101,"881,57866685902 ",.01)
  1. ;;57866685902
  1. ;;9002226.02101,"881,57866685902 ",.02)
  1. ;;57866685902
  1. ;;9002226.02101,"881,57866685903 ",.01)
  1. ;;57866685903
  1. ;;9002226.02101,"881,57866685903 ",.02)
  1. ;;57866685903
  1. ;;9002226.02101,"881,57866685904 ",.01)
  1. ;;57866685904
  1. ;;9002226.02101,"881,57866685904 ",.02)
  1. ;;57866685904
  1. ;;9002226.02101,"881,57866870001 ",.01)
  1. ;;57866870001
  1. ;;9002226.02101,"881,57866870001 ",.02)
  1. ;;57866870001
  1. ;;9002226.02101,"881,58016006900 ",.01)
  1. ;;58016006900
  1. ;;9002226.02101,"881,58016006900 ",.02)
  1. ;;58016006900
  1. ;;9002226.02101,"881,58016006901 ",.01)
  1. ;;58016006901
  1. ;;9002226.02101,"881,58016006901 ",.02)
  1. ;;58016006901
  1. ;;9002226.02101,"881,58016006902 ",.01)
  1. ;;58016006902
  1. ;;9002226.02101,"881,58016006902 ",.02)
  1. ;;58016006902
  1. ;;9002226.02101,"881,58016006903 ",.01)
  1. ;;58016006903
  1. ;;9002226.02101,"881,58016006903 ",.02)
  1. ;;58016006903
  1. ;;9002226.02101,"881,58016006904 ",.01)
  1. ;;58016006904
  1. ;;9002226.02101,"881,58016006904 ",.02)
  1. ;;58016006904
  1. ;;9002226.02101,"881,58016006905 ",.01)
  1. ;;58016006905
  1. ;;9002226.02101,"881,58016006905 ",.02)
  1. ;;58016006905
  1. ;;9002226.02101,"881,58016006906 ",.01)
  1. ;;58016006906
  1. ;;9002226.02101,"881,58016006906 ",.02)
  1. ;;58016006906
  1. ;;9002226.02101,"881,58016006907 ",.01)
  1. ;;58016006907
  1. ;;9002226.02101,"881,58016006907 ",.02)
  1. ;;58016006907
  1. ;;9002226.02101,"881,58016006908 ",.01)
  1. ;;58016006908
  1. ;;9002226.02101,"881,58016006908 ",.02)
  1. ;;58016006908
  1. ;;9002226.02101,"881,58016006909 ",.01)
  1. ;;58016006909
  1. ;;9002226.02101,"881,58016006909 ",.02)
  1. ;;58016006909
  1. ;;9002226.02101,"881,58016006910 ",.01)
  1. ;;58016006910
  1. ;;9002226.02101,"881,58016006910 ",.02)
  1. ;;58016006910
  1. ;;9002226.02101,"881,58016006912 ",.01)
  1. ;;58016006912
  1. ;;9002226.02101,"881,58016006912 ",.02)
  1. ;;58016006912
  1. ;;9002226.02101,"881,58016006914 ",.01)
  1. ;;58016006914
  1. ;;9002226.02101,"881,58016006914 ",.02)
  1. ;;58016006914
  1. ;;9002226.02101,"881,58016006915 ",.01)
  1. ;;58016006915
  1. ;;9002226.02101,"881,58016006915 ",.02)
  1. ;;58016006915
  1. ;;9002226.02101,"881,58016006916 ",.01)
  1. ;;58016006916
  1. ;;9002226.02101,"881,58016006916 ",.02)
  1. ;;58016006916
  1. ;;9002226.02101,"881,58016006918 ",.01)
  1. ;;58016006918
  1. ;;9002226.02101,"881,58016006918 ",.02)
  1. ;;58016006918
  1. ;;9002226.02101,"881,58016006920 ",.01)
  1. ;;58016006920
  1. ;;9002226.02101,"881,58016006920 ",.02)
  1. ;;58016006920
  1. ;;9002226.02101,"881,58016006921 ",.01)
  1. ;;58016006921
  1. ;;9002226.02101,"881,58016006921 ",.02)
  1. ;;58016006921
  1. ;;9002226.02101,"881,58016006924 ",.01)
  1. ;;58016006924
  1. ;;9002226.02101,"881,58016006924 ",.02)
  1. ;;58016006924
  1. ;;9002226.02101,"881,58016006925 ",.01)
  1. ;;58016006925
  1. ;;9002226.02101,"881,58016006925 ",.02)
  1. ;;58016006925
  1. ;;9002226.02101,"881,58016006926 ",.01)
  1. ;;58016006926
  1. ;;9002226.02101,"881,58016006926 ",.02)
  1. ;;58016006926
  1. ;;9002226.02101,"881,58016006927 ",.01)
  1. ;;58016006927
  1. ;;9002226.02101,"881,58016006927 ",.02)
  1. ;;58016006927
  1. ;;9002226.02101,"881,58016006928 ",.01)
  1. ;;58016006928
  1. ;;9002226.02101,"881,58016006928 ",.02)
  1. ;;58016006928
  1. ;;9002226.02101,"881,58016006930 ",.01)
  1. ;;58016006930
  1. ;;9002226.02101,"881,58016006930 ",.02)
  1. ;;58016006930
  1. ;;9002226.02101,"881,58016006932 ",.01)
  1. ;;58016006932
  1. ;;9002226.02101,"881,58016006932 ",.02)
  1. ;;58016006932
  1. ;;9002226.02101,"881,58016006935 ",.01)
  1. ;;58016006935
  1. ;;9002226.02101,"881,58016006935 ",.02)
  1. ;;58016006935
  1. ;;9002226.02101,"881,58016006936 ",.01)
  1. ;;58016006936
  1. ;;9002226.02101,"881,58016006936 ",.02)
  1. ;;58016006936
  1. ;;9002226.02101,"881,58016006940 ",.01)
  1. ;;58016006940
  1. ;;9002226.02101,"881,58016006940 ",.02)
  1. ;;58016006940
  1. ;;9002226.02101,"881,58016006942 ",.01)
  1. ;;58016006942
  1. ;;9002226.02101,"881,58016006942 ",.02)
  1. ;;58016006942
  1. ;;9002226.02101,"881,58016006944 ",.01)
  1. ;;58016006944
  1. ;;9002226.02101,"881,58016006944 ",.02)
  1. ;;58016006944
  1. ;;9002226.02101,"881,58016006945 ",.01)
  1. ;;58016006945
  1. ;;9002226.02101,"881,58016006945 ",.02)
  1. ;;58016006945
  1. ;;9002226.02101,"881,58016006948 ",.01)
  1. ;;58016006948
  1. ;;9002226.02101,"881,58016006948 ",.02)
  1. ;;58016006948
  1. ;;9002226.02101,"881,58016006950 ",.01)
  1. ;;58016006950
  1. ;;9002226.02101,"881,58016006950 ",.02)
  1. ;;58016006950
  1. ;;9002226.02101,"881,58016006956 ",.01)
  1. ;;58016006956
  1. ;;9002226.02101,"881,58016006956 ",.02)
  1. ;;58016006956
  1. ;;9002226.02101,"881,58016006960 ",.01)
  1. ;;58016006960
  1. ;;9002226.02101,"881,58016006960 ",.02)
  1. ;;58016006960
  1. ;;9002226.02101,"881,58016006967 ",.01)
  1. ;;58016006967
  1. ;;9002226.02101,"881,58016006967 ",.02)
  1. ;;58016006967
  1. ;;9002226.02101,"881,58016006969 ",.01)
  1. ;;58016006969
  1. ;;9002226.02101,"881,58016006969 ",.02)
  1. ;;58016006969
  1. ;;9002226.02101,"881,58016006970 ",.01)
  1. ;;58016006970
  1. ;;9002226.02101,"881,58016006970 ",.02)
  1. ;;58016006970
  1. ;;9002226.02101,"881,58016006971 ",.01)
  1. ;;58016006971
  1. ;;9002226.02101,"881,58016006971 ",.02)
  1. ;;58016006971
  1. ;;9002226.02101,"881,58016006972 ",.01)
  1. ;;58016006972
  1. ;;9002226.02101,"881,58016006972 ",.02)
  1. ;;58016006972
  1. ;;9002226.02101,"881,58016006973 ",.01)
  1. ;;58016006973
  1. ;;9002226.02101,"881,58016006973 ",.02)
  1. ;;58016006973
  1. ;;9002226.02101,"881,58016006975 ",.01)
  1. ;;58016006975
  1. ;;9002226.02101,"881,58016006975 ",.02)
  1. ;;58016006975
  1. ;;9002226.02101,"881,58016006976 ",.01)
  1. ;;58016006976
  1. ;;9002226.02101,"881,58016006976 ",.02)
  1. ;;58016006976
  1. ;;9002226.02101,"881,58016006977 ",.01)
  1. ;;58016006977
  1. ;;9002226.02101,"881,58016006977 ",.02)
  1. ;;58016006977
  1. ;;9002226.02101,"881,58016006979 ",.01)
  1. ;;58016006979
  1. ;;9002226.02101,"881,58016006979 ",.02)
  1. ;;58016006979
  1. ;;9002226.02101,"881,58016006980 ",.01)
  1. ;;58016006980
  1. ;;9002226.02101,"881,58016006980 ",.02)
  1. ;;58016006980
  1. ;;9002226.02101,"881,58016006981 ",.01)
  1. ;;58016006981
  1. ;;9002226.02101,"881,58016006981 ",.02)
  1. ;;58016006981
  1. ;;9002226.02101,"881,58016006982 ",.01)
  1. ;;58016006982
  1. ;;9002226.02101,"881,58016006982 ",.02)
  1. ;;58016006982
  1. ;;9002226.02101,"881,58016006983 ",.01)
  1. ;;58016006983
  1. ;;9002226.02101,"881,58016006983 ",.02)
  1. ;;58016006983
  1. ;;9002226.02101,"881,58016006984 ",.01)
  1. ;;58016006984
  1. ;;9002226.02101,"881,58016006984 ",.02)
  1. ;;58016006984
  1. ;;9002226.02101,"881,58016006987 ",.01)
  1. ;;58016006987
  1. ;;9002226.02101,"881,58016006987 ",.02)
  1. ;;58016006987
  1. ;;9002226.02101,"881,58016006989 ",.01)
  1. ;;58016006989
  1. ;;9002226.02101,"881,58016006989 ",.02)
  1. ;;58016006989
  1. ;;9002226.02101,"881,58016006990 ",.01)
  1. ;;58016006990
  1. ;;9002226.02101,"881,58016006990 ",.02)
  1. ;;58016006990
  1. ;;9002226.02101,"881,58016006991 ",.01)
  1. ;;58016006991
  1. ;;9002226.02101,"881,58016006991 ",.02)
  1. ;;58016006991
  1. ;;9002226.02101,"881,58016006992 ",.01)
  1. ;;58016006992
  1. ;;9002226.02101,"881,58016006992 ",.02)
  1. ;;58016006992
  1. ;;9002226.02101,"881,58016006993 ",.01)
  1. ;;58016006993
  1. ;;9002226.02101,"881,58016006993 ",.02)
  1. ;;58016006993
  1. ;;9002226.02101,"881,58016006996 ",.01)
  1. ;;58016006996
  1. ;;9002226.02101,"881,58016006996 ",.02)
  1. ;;58016006996
  1. ;;9002226.02101,"881,58016006997 ",.01)
  1. ;;58016006997
  1. ;;9002226.02101,"881,58016006997 ",.02)
  1. ;;58016006997
  1. ;;9002226.02101,"881,58016006998 ",.01)
  1. ;;58016006998
  1. ;;9002226.02101,"881,58016006998 ",.02)
  1. ;;58016006998
  1. ;;9002226.02101,"881,58016006999 ",.01)
  1. ;;58016006999
  1. ;;9002226.02101,"881,58016006999 ",.02)
  1. ;;58016006999
  1. ;;9002226.02101,"881,58016016500 ",.01)
  1. ;;58016016500
  1. ;;9002226.02101,"881,58016016500 ",.02)
  1. ;;58016016500
  1. ;;9002226.02101,"881,58016016600 ",.01)
  1. ;;58016016600
  1. ;;9002226.02101,"881,58016016600 ",.02)
  1. ;;58016016600
  1. ;;9002226.02101,"881,58016022800 ",.01)
  1. ;;58016022800
  1. ;;9002226.02101,"881,58016022800 ",.02)
  1. ;;58016022800
  1. ;;9002226.02101,"881,58016022802 ",.01)
  1. ;;58016022802
  1. ;;9002226.02101,"881,58016022802 ",.02)
  1. ;;58016022802
  1. ;;9002226.02101,"881,58016022830 ",.01)
  1. ;;58016022830
  1. ;;9002226.02101,"881,58016022830 ",.02)
  1. ;;58016022830
  1. ;;9002226.02101,"881,58016022860 ",.01)
  1. ;;58016022860
  1. ;;9002226.02101,"881,58016022860 ",.02)
  1. ;;58016022860
  1. ;;9002226.02101,"881,58016022890 ",.01)
  1. ;;58016022890
  1. ;;9002226.02101,"881,58016022890 ",.02)
  1. ;;58016022890
  1. ;;9002226.02101,"881,58016034001 ",.01)
  1. ;;58016034001
  1. ;;9002226.02101,"881,58016034001 ",.02)
  1. ;;58016034001
  1. ;;9002226.02101,"881,58016034004 ",.01)
  1. ;;58016034004
  1. ;;9002226.02101,"881,58016034004 ",.02)
  1. ;;58016034004
  1. ;;9002226.02101,"881,58016034005 ",.01)
  1. ;;58016034005
  1. ;;9002226.02101,"881,58016034005 ",.02)
  1. ;;58016034005
  1. ;;9002226.02101,"881,58016034006 ",.01)
  1. ;;58016034006
  1. ;;9002226.02101,"881,58016034006 ",.02)
  1. ;;58016034006
  1. ;;9002226.02101,"881,58016034007 ",.01)
  1. ;;58016034007
  1. ;;9002226.02101,"881,58016034007 ",.02)
  1. ;;58016034007
  1. ;;9002226.02101,"881,58016034008 ",.01)
  1. ;;58016034008
  1. ;;9002226.02101,"881,58016034008 ",.02)
  1. ;;58016034008
  1. ;;9002226.02101,"881,58016034009 ",.01)
  1. ;;58016034009
  1. ;;9002226.02101,"881,58016034009 ",.02)
  1. ;;58016034009
  1. ;;9002226.02101,"881,58016034012 ",.01)
  1. ;;58016034012
  1. ;;9002226.02101,"881,58016034012 ",.02)
  1. ;;58016034012
  1. ;;9002226.02101,"881,58016034014 ",.01)
  1. ;;58016034014
  1. ;;9002226.02101,"881,58016034014 ",.02)
  1. ;;58016034014
  1. ;;9002226.02101,"881,58016034016 ",.01)
  1. ;;58016034016
  1. ;;9002226.02101,"881,58016034016 ",.02)
  1. ;;58016034016
  1. ;;9002226.02101,"881,58016034018 ",.01)
  1. ;;58016034018
  1. ;;9002226.02101,"881,58016034018 ",.02)
  1. ;;58016034018
  1. ;;9002226.02101,"881,58016034021 ",.01)
  1. ;;58016034021
  1. ;;9002226.02101,"881,58016034021 ",.02)
  1. ;;58016034021
  1. ;;9002226.02101,"881,58016034024 ",.01)
  1. ;;58016034024
  1. ;;9002226.02101,"881,58016034024 ",.02)
  1. ;;58016034024
  1. ;;9002226.02101,"881,58016034025 ",.01)
  1. ;;58016034025
  1. ;;9002226.02101,"881,58016034025 ",.02)
  1. ;;58016034025
  1. ;;9002226.02101,"881,58016034026 ",.01)
  1. ;;58016034026
  1. ;;9002226.02101,"881,58016034026 ",.02)
  1. ;;58016034026
  1. ;;9002226.02101,"881,58016034027 ",.01)
  1. ;;58016034027
  1. ;;9002226.02101,"881,58016034027 ",.02)
  1. ;;58016034027
  1. ;;9002226.02101,"881,58016034032 ",.01)
  1. ;;58016034032
  1. ;;9002226.02101,"881,58016034032 ",.02)
  1. ;;58016034032
  1. ;;9002226.02101,"881,58016034035 ",.01)
  1. ;;58016034035
  1. ;;9002226.02101,"881,58016034035 ",.02)
  1. ;;58016034035
  1. ;;9002226.02101,"881,58016034036 ",.01)
  1. ;;58016034036
  1. ;;9002226.02101,"881,58016034036 ",.02)
  1. ;;58016034036
  1. ;;9002226.02101,"881,58016034042 ",.01)
  1. ;;58016034042
  1. ;;9002226.02101,"881,58016034042 ",.02)
  1. ;;58016034042
  1. ;;9002226.02101,"881,58016034044 ",.01)
  1. ;;58016034044
  1. ;;9002226.02101,"881,58016034044 ",.02)
  1. ;;58016034044
  1. ;;9002226.02101,"881,58016034045 ",.01)
  1. ;;58016034045
  1. ;;9002226.02101,"881,58016034045 ",.02)
  1. ;;58016034045
  1. ;;9002226.02101,"881,58016034048 ",.01)
  1. ;;58016034048
  1. ;;9002226.02101,"881,58016034048 ",.02)
  1. ;;58016034048
  1. ;;9002226.02101,"881,58016034050 ",.01)
  1. ;;58016034050
  1. ;;9002226.02101,"881,58016034050 ",.02)
  1. ;;58016034050
  1. ;;9002226.02101,"881,58016034056 ",.01)
  1. ;;58016034056
  1. ;;9002226.02101,"881,58016034056 ",.02)
  1. ;;58016034056
  1. ;;9002226.02101,"881,58016034060 ",.01)
  1. ;;58016034060
  1. ;;9002226.02101,"881,58016034060 ",.02)
  1. ;;58016034060
  1. ;;9002226.02101,"881,58016034067 ",.01)
  1. ;;58016034067
  1. ;;9002226.02101,"881,58016034067 ",.02)
  1. ;;58016034067
  1. ;;9002226.02101,"881,58016034069 ",.01)
  1. ;;58016034069
  1. ;;9002226.02101,"881,58016034069 ",.02)
  1. ;;58016034069
  1. ;;9002226.02101,"881,58016034070 ",.01)
  1. ;;58016034070
  1. ;;9002226.02101,"881,58016034070 ",.02)
  1. ;;58016034070
  1. ;;9002226.02101,"881,58016034071 ",.01)
  1. ;;58016034071
  1. ;;9002226.02101,"881,58016034071 ",.02)
  1. ;;58016034071