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