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

BGPM5AVW.m

Go to the documentation of this file.
  1. BGPM5AVW ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 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,"1033,58016014809 ",.01)
  1. ;;58016014809
  1. ;;9002226.02101,"1033,58016014809 ",.02)
  1. ;;58016014809
  1. ;;9002226.02101,"1033,58016014810 ",.01)
  1. ;;58016014810
  1. ;;9002226.02101,"1033,58016014810 ",.02)
  1. ;;58016014810
  1. ;;9002226.02101,"1033,58016014812 ",.01)
  1. ;;58016014812
  1. ;;9002226.02101,"1033,58016014812 ",.02)
  1. ;;58016014812
  1. ;;9002226.02101,"1033,58016014814 ",.01)
  1. ;;58016014814
  1. ;;9002226.02101,"1033,58016014814 ",.02)
  1. ;;58016014814
  1. ;;9002226.02101,"1033,58016014815 ",.01)
  1. ;;58016014815
  1. ;;9002226.02101,"1033,58016014815 ",.02)
  1. ;;58016014815
  1. ;;9002226.02101,"1033,58016014820 ",.01)
  1. ;;58016014820
  1. ;;9002226.02101,"1033,58016014820 ",.02)
  1. ;;58016014820
  1. ;;9002226.02101,"1033,58016014824 ",.01)
  1. ;;58016014824
  1. ;;9002226.02101,"1033,58016014824 ",.02)
  1. ;;58016014824
  1. ;;9002226.02101,"1033,58016014828 ",.01)
  1. ;;58016014828
  1. ;;9002226.02101,"1033,58016014828 ",.02)
  1. ;;58016014828
  1. ;;9002226.02101,"1033,58016014830 ",.01)
  1. ;;58016014830
  1. ;;9002226.02101,"1033,58016014830 ",.02)
  1. ;;58016014830
  1. ;;9002226.02101,"1033,58016014840 ",.01)
  1. ;;58016014840
  1. ;;9002226.02101,"1033,58016014840 ",.02)
  1. ;;58016014840
  1. ;;9002226.02101,"1033,58016014850 ",.01)
  1. ;;58016014850
  1. ;;9002226.02101,"1033,58016014850 ",.02)
  1. ;;58016014850
  1. ;;9002226.02101,"1033,58016014900 ",.01)
  1. ;;58016014900
  1. ;;9002226.02101,"1033,58016014900 ",.02)
  1. ;;58016014900
  1. ;;9002226.02101,"1033,58016014907 ",.01)
  1. ;;58016014907
  1. ;;9002226.02101,"1033,58016014907 ",.02)
  1. ;;58016014907
  1. ;;9002226.02101,"1033,58016014910 ",.01)
  1. ;;58016014910
  1. ;;9002226.02101,"1033,58016014910 ",.02)
  1. ;;58016014910
  1. ;;9002226.02101,"1033,58016014920 ",.01)
  1. ;;58016014920
  1. ;;9002226.02101,"1033,58016014920 ",.02)
  1. ;;58016014920
  1. ;;9002226.02101,"1033,58016014921 ",.01)
  1. ;;58016014921
  1. ;;9002226.02101,"1033,58016014921 ",.02)
  1. ;;58016014921
  1. ;;9002226.02101,"1033,58016014924 ",.01)
  1. ;;58016014924
  1. ;;9002226.02101,"1033,58016014924 ",.02)
  1. ;;58016014924
  1. ;;9002226.02101,"1033,58016014925 ",.01)
  1. ;;58016014925
  1. ;;9002226.02101,"1033,58016014925 ",.02)
  1. ;;58016014925
  1. ;;9002226.02101,"1033,58016014928 ",.01)
  1. ;;58016014928
  1. ;;9002226.02101,"1033,58016014928 ",.02)
  1. ;;58016014928
  1. ;;9002226.02101,"1033,58016014930 ",.01)
  1. ;;58016014930
  1. ;;9002226.02101,"1033,58016014930 ",.02)
  1. ;;58016014930
  1. ;;9002226.02101,"1033,58016014940 ",.01)
  1. ;;58016014940
  1. ;;9002226.02101,"1033,58016014940 ",.02)
  1. ;;58016014940
  1. ;;9002226.02101,"1033,58016015600 ",.01)
  1. ;;58016015600
  1. ;;9002226.02101,"1033,58016015600 ",.02)
  1. ;;58016015600
  1. ;;9002226.02101,"1033,58016015602 ",.01)
  1. ;;58016015602
  1. ;;9002226.02101,"1033,58016015602 ",.02)
  1. ;;58016015602
  1. ;;9002226.02101,"1033,58016015603 ",.01)
  1. ;;58016015603
  1. ;;9002226.02101,"1033,58016015603 ",.02)
  1. ;;58016015603
  1. ;;9002226.02101,"1033,58016015606 ",.01)
  1. ;;58016015606
  1. ;;9002226.02101,"1033,58016015606 ",.02)
  1. ;;58016015606
  1. ;;9002226.02101,"1033,58016015607 ",.01)
  1. ;;58016015607
  1. ;;9002226.02101,"1033,58016015607 ",.02)
  1. ;;58016015607
  1. ;;9002226.02101,"1033,58016015610 ",.01)
  1. ;;58016015610
  1. ;;9002226.02101,"1033,58016015610 ",.02)
  1. ;;58016015610
  1. ;;9002226.02101,"1033,58016015612 ",.01)
  1. ;;58016015612
  1. ;;9002226.02101,"1033,58016015612 ",.02)
  1. ;;58016015612
  1. ;;9002226.02101,"1033,58016015614 ",.01)
  1. ;;58016015614
  1. ;;9002226.02101,"1033,58016015614 ",.02)
  1. ;;58016015614
  1. ;;9002226.02101,"1033,58016015615 ",.01)
  1. ;;58016015615
  1. ;;9002226.02101,"1033,58016015615 ",.02)
  1. ;;58016015615
  1. ;;9002226.02101,"1033,58016015616 ",.01)
  1. ;;58016015616
  1. ;;9002226.02101,"1033,58016015616 ",.02)
  1. ;;58016015616
  1. ;;9002226.02101,"1033,58016015620 ",.01)
  1. ;;58016015620
  1. ;;9002226.02101,"1033,58016015620 ",.02)
  1. ;;58016015620
  1. ;;9002226.02101,"1033,58016015621 ",.01)
  1. ;;58016015621
  1. ;;9002226.02101,"1033,58016015621 ",.02)
  1. ;;58016015621
  1. ;;9002226.02101,"1033,58016015624 ",.01)
  1. ;;58016015624
  1. ;;9002226.02101,"1033,58016015624 ",.02)
  1. ;;58016015624
  1. ;;9002226.02101,"1033,58016015628 ",.01)
  1. ;;58016015628
  1. ;;9002226.02101,"1033,58016015628 ",.02)
  1. ;;58016015628
  1. ;;9002226.02101,"1033,58016015630 ",.01)
  1. ;;58016015630
  1. ;;9002226.02101,"1033,58016015630 ",.02)
  1. ;;58016015630
  1. ;;9002226.02101,"1033,58016015640 ",.01)
  1. ;;58016015640
  1. ;;9002226.02101,"1033,58016015640 ",.02)
  1. ;;58016015640
  1. ;;9002226.02101,"1033,58016015660 ",.01)
  1. ;;58016015660
  1. ;;9002226.02101,"1033,58016015660 ",.02)
  1. ;;58016015660
  1. ;;9002226.02101,"1033,58016015673 ",.01)
  1. ;;58016015673
  1. ;;9002226.02101,"1033,58016015673 ",.02)
  1. ;;58016015673
  1. ;;9002226.02101,"1033,58016015689 ",.01)
  1. ;;58016015689
  1. ;;9002226.02101,"1033,58016015689 ",.02)
  1. ;;58016015689
  1. ;;9002226.02101,"1033,58016016100 ",.01)
  1. ;;58016016100
  1. ;;9002226.02101,"1033,58016016100 ",.02)
  1. ;;58016016100
  1. ;;9002226.02101,"1033,58016016110 ",.01)
  1. ;;58016016110
  1. ;;9002226.02101,"1033,58016016110 ",.02)
  1. ;;58016016110
  1. ;;9002226.02101,"1033,58016016112 ",.01)
  1. ;;58016016112
  1. ;;9002226.02101,"1033,58016016112 ",.02)
  1. ;;58016016112
  1. ;;9002226.02101,"1033,58016016114 ",.01)
  1. ;;58016016114
  1. ;;9002226.02101,"1033,58016016114 ",.02)
  1. ;;58016016114
  1. ;;9002226.02101,"1033,58016016115 ",.01)
  1. ;;58016016115
  1. ;;9002226.02101,"1033,58016016115 ",.02)
  1. ;;58016016115
  1. ;;9002226.02101,"1033,58016016116 ",.01)
  1. ;;58016016116
  1. ;;9002226.02101,"1033,58016016116 ",.02)
  1. ;;58016016116
  1. ;;9002226.02101,"1033,58016016118 ",.01)
  1. ;;58016016118
  1. ;;9002226.02101,"1033,58016016118 ",.02)
  1. ;;58016016118
  1. ;;9002226.02101,"1033,58016016120 ",.01)
  1. ;;58016016120
  1. ;;9002226.02101,"1033,58016016120 ",.02)
  1. ;;58016016120
  1. ;;9002226.02101,"1033,58016016121 ",.01)
  1. ;;58016016121
  1. ;;9002226.02101,"1033,58016016121 ",.02)
  1. ;;58016016121
  1. ;;9002226.02101,"1033,58016016124 ",.01)
  1. ;;58016016124
  1. ;;9002226.02101,"1033,58016016124 ",.02)
  1. ;;58016016124
  1. ;;9002226.02101,"1033,58016016128 ",.01)
  1. ;;58016016128
  1. ;;9002226.02101,"1033,58016016128 ",.02)
  1. ;;58016016128
  1. ;;9002226.02101,"1033,58016016130 ",.01)
  1. ;;58016016130
  1. ;;9002226.02101,"1033,58016016130 ",.02)
  1. ;;58016016130
  1. ;;9002226.02101,"1033,58016016140 ",.01)
  1. ;;58016016140
  1. ;;9002226.02101,"1033,58016016140 ",.02)
  1. ;;58016016140
  1. ;;9002226.02101,"1033,58016016150 ",.01)
  1. ;;58016016150
  1. ;;9002226.02101,"1033,58016016150 ",.02)
  1. ;;58016016150
  1. ;;9002226.02101,"1033,58016016160 ",.01)
  1. ;;58016016160
  1. ;;9002226.02101,"1033,58016016160 ",.02)
  1. ;;58016016160
  1. ;;9002226.02101,"1033,58016017100 ",.01)
  1. ;;58016017100
  1. ;;9002226.02101,"1033,58016017100 ",.02)
  1. ;;58016017100
  1. ;;9002226.02101,"1033,58016017120 ",.01)
  1. ;;58016017120
  1. ;;9002226.02101,"1033,58016017120 ",.02)
  1. ;;58016017120
  1. ;;9002226.02101,"1033,58016017130 ",.01)
  1. ;;58016017130
  1. ;;9002226.02101,"1033,58016017130 ",.02)
  1. ;;58016017130
  1. ;;9002226.02101,"1033,58016020400 ",.01)
  1. ;;58016020400
  1. ;;9002226.02101,"1033,58016020400 ",.02)
  1. ;;58016020400
  1. ;;9002226.02101,"1033,58016020420 ",.01)
  1. ;;58016020420
  1. ;;9002226.02101,"1033,58016020420 ",.02)
  1. ;;58016020420
  1. ;;9002226.02101,"1033,58016020430 ",.01)
  1. ;;58016020430
  1. ;;9002226.02101,"1033,58016020430 ",.02)
  1. ;;58016020430
  1. ;;9002226.02101,"1033,58016020460 ",.01)
  1. ;;58016020460
  1. ;;9002226.02101,"1033,58016020460 ",.02)
  1. ;;58016020460
  1. ;;9002226.02101,"1033,58016020490 ",.01)
  1. ;;58016020490
  1. ;;9002226.02101,"1033,58016020490 ",.02)
  1. ;;58016020490
  1. ;;9002226.02101,"1033,58016028415 ",.01)
  1. ;;58016028415
  1. ;;9002226.02101,"1033,58016028415 ",.02)
  1. ;;58016028415
  1. ;;9002226.02101,"1033,58016028420 ",.01)
  1. ;;58016028420
  1. ;;9002226.02101,"1033,58016028420 ",.02)
  1. ;;58016028420
  1. ;;9002226.02101,"1033,58016028430 ",.01)
  1. ;;58016028430
  1. ;;9002226.02101,"1033,58016028430 ",.02)
  1. ;;58016028430
  1. ;;9002226.02101,"1033,58016028450 ",.01)
  1. ;;58016028450
  1. ;;9002226.02101,"1033,58016028450 ",.02)
  1. ;;58016028450
  1. ;;9002226.02101,"1033,58016029900 ",.01)
  1. ;;58016029900
  1. ;;9002226.02101,"1033,58016029900 ",.02)
  1. ;;58016029900
  1. ;;9002226.02101,"1033,58016029930 ",.01)
  1. ;;58016029930
  1. ;;9002226.02101,"1033,58016029930 ",.02)
  1. ;;58016029930
  1. ;;9002226.02101,"1033,58016029960 ",.01)
  1. ;;58016029960
  1. ;;9002226.02101,"1033,58016029960 ",.02)
  1. ;;58016029960
  1. ;;9002226.02101,"1033,58016029990 ",.01)
  1. ;;58016029990
  1. ;;9002226.02101,"1033,58016029990 ",.02)
  1. ;;58016029990
  1. ;;9002226.02101,"1033,58016033900 ",.01)
  1. ;;58016033900
  1. ;;9002226.02101,"1033,58016033900 ",.02)
  1. ;;58016033900
  1. ;;9002226.02101,"1033,58016033901 ",.01)
  1. ;;58016033901
  1. ;;9002226.02101,"1033,58016033901 ",.02)
  1. ;;58016033901
  1. ;;9002226.02101,"1033,58016033902 ",.01)
  1. ;;58016033902
  1. ;;9002226.02101,"1033,58016033902 ",.02)
  1. ;;58016033902
  1. ;;9002226.02101,"1033,58016033903 ",.01)
  1. ;;58016033903
  1. ;;9002226.02101,"1033,58016033903 ",.02)
  1. ;;58016033903
  1. ;;9002226.02101,"1033,58016033904 ",.01)
  1. ;;58016033904
  1. ;;9002226.02101,"1033,58016033904 ",.02)
  1. ;;58016033904
  1. ;;9002226.02101,"1033,58016033905 ",.01)
  1. ;;58016033905
  1. ;;9002226.02101,"1033,58016033905 ",.02)
  1. ;;58016033905
  1. ;;9002226.02101,"1033,58016033906 ",.01)
  1. ;;58016033906
  1. ;;9002226.02101,"1033,58016033906 ",.02)
  1. ;;58016033906
  1. ;;9002226.02101,"1033,58016033907 ",.01)
  1. ;;58016033907
  1. ;;9002226.02101,"1033,58016033907 ",.02)
  1. ;;58016033907
  1. ;;9002226.02101,"1033,58016033908 ",.01)
  1. ;;58016033908
  1. ;;9002226.02101,"1033,58016033908 ",.02)
  1. ;;58016033908
  1. ;;9002226.02101,"1033,58016033909 ",.01)
  1. ;;58016033909
  1. ;;9002226.02101,"1033,58016033909 ",.02)
  1. ;;58016033909
  1. ;;9002226.02101,"1033,58016033910 ",.01)
  1. ;;58016033910
  1. ;;9002226.02101,"1033,58016033910 ",.02)
  1. ;;58016033910
  1. ;;9002226.02101,"1033,58016033912 ",.01)
  1. ;;58016033912
  1. ;;9002226.02101,"1033,58016033912 ",.02)
  1. ;;58016033912
  1. ;;9002226.02101,"1033,58016033914 ",.01)
  1. ;;58016033914
  1. ;;9002226.02101,"1033,58016033914 ",.02)
  1. ;;58016033914
  1. ;;9002226.02101,"1033,58016033915 ",.01)
  1. ;;58016033915
  1. ;;9002226.02101,"1033,58016033915 ",.02)
  1. ;;58016033915
  1. ;;9002226.02101,"1033,58016033916 ",.01)
  1. ;;58016033916
  1. ;;9002226.02101,"1033,58016033916 ",.02)
  1. ;;58016033916
  1. ;;9002226.02101,"1033,58016033918 ",.01)
  1. ;;58016033918
  1. ;;9002226.02101,"1033,58016033918 ",.02)
  1. ;;58016033918
  1. ;;9002226.02101,"1033,58016033920 ",.01)
  1. ;;58016033920
  1. ;;9002226.02101,"1033,58016033920 ",.02)
  1. ;;58016033920
  1. ;;9002226.02101,"1033,58016033921 ",.01)
  1. ;;58016033921
  1. ;;9002226.02101,"1033,58016033921 ",.02)
  1. ;;58016033921
  1. ;;9002226.02101,"1033,58016033924 ",.01)
  1. ;;58016033924
  1. ;;9002226.02101,"1033,58016033924 ",.02)
  1. ;;58016033924
  1. ;;9002226.02101,"1033,58016033925 ",.01)
  1. ;;58016033925
  1. ;;9002226.02101,"1033,58016033925 ",.02)
  1. ;;58016033925
  1. ;;9002226.02101,"1033,58016033926 ",.01)
  1. ;;58016033926
  1. ;;9002226.02101,"1033,58016033926 ",.02)
  1. ;;58016033926
  1. ;;9002226.02101,"1033,58016033927 ",.01)
  1. ;;58016033927
  1. ;;9002226.02101,"1033,58016033927 ",.02)
  1. ;;58016033927
  1. ;;9002226.02101,"1033,58016033928 ",.01)
  1. ;;58016033928
  1. ;;9002226.02101,"1033,58016033928 ",.02)
  1. ;;58016033928
  1. ;;9002226.02101,"1033,58016033930 ",.01)
  1. ;;58016033930
  1. ;;9002226.02101,"1033,58016033930 ",.02)
  1. ;;58016033930
  1. ;;9002226.02101,"1033,58016033932 ",.01)
  1. ;;58016033932
  1. ;;9002226.02101,"1033,58016033932 ",.02)
  1. ;;58016033932
  1. ;;9002226.02101,"1033,58016033935 ",.01)
  1. ;;58016033935
  1. ;;9002226.02101,"1033,58016033935 ",.02)
  1. ;;58016033935
  1. ;;9002226.02101,"1033,58016033936 ",.01)
  1. ;;58016033936
  1. ;;9002226.02101,"1033,58016033936 ",.02)
  1. ;;58016033936
  1. ;;9002226.02101,"1033,58016033940 ",.01)
  1. ;;58016033940
  1. ;;9002226.02101,"1033,58016033940 ",.02)
  1. ;;58016033940
  1. ;;9002226.02101,"1033,58016033942 ",.01)
  1. ;;58016033942
  1. ;;9002226.02101,"1033,58016033942 ",.02)
  1. ;;58016033942
  1. ;;9002226.02101,"1033,58016033944 ",.01)
  1. ;;58016033944