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

BGP03B6.m

Go to the documentation of this file.
BGP03B6 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
 ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
 ;
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,"843,032.83 ",.02)
 ;;032.83 
 ;;9002226.02101,"843,032.84 ",.01)
 ;;032.84 
 ;;9002226.02101,"843,032.84 ",.02)
 ;;032.84 
 ;;9002226.02101,"843,032.85 ",.01)
 ;;032.85 
 ;;9002226.02101,"843,032.85 ",.02)
 ;;032.85 
 ;;9002226.02101,"843,032.89 ",.01)
 ;;032.89 
 ;;9002226.02101,"843,032.89 ",.02)
 ;;032.89 
 ;;9002226.02101,"843,032.9 ",.01)
 ;;032.9 
 ;;9002226.02101,"843,032.9 ",.02)
 ;;032.9 
 ;;9002226.02101,"843,033.0 ",.01)
 ;;033.0 
 ;;9002226.02101,"843,033.0 ",.02)
 ;;033.0 
 ;;9002226.02101,"843,033.1 ",.01)
 ;;033.1 
 ;;9002226.02101,"843,033.1 ",.02)
 ;;033.1 
 ;;9002226.02101,"843,033.8 ",.01)
 ;;033.8 
 ;;9002226.02101,"843,033.8 ",.02)
 ;;033.8 
 ;;9002226.02101,"843,033.9 ",.01)
 ;;033.9 
 ;;9002226.02101,"843,033.9 ",.02)
 ;;033.9 
 ;;9002226.02101,"843,034.0 ",.01)
 ;;034.0 
 ;;9002226.02101,"843,034.0 ",.02)
 ;;034.0 
 ;;9002226.02101,"843,034.1 ",.01)
 ;;034.1 
 ;;9002226.02101,"843,034.1 ",.02)
 ;;034.1 
 ;;9002226.02101,"843,035 ",.01)
 ;;035 
 ;;9002226.02101,"843,035 ",.02)
 ;;035 
 ;;9002226.02101,"843,036.0 ",.01)
 ;;036.0 
 ;;9002226.02101,"843,036.0 ",.02)
 ;;036.0 
 ;;9002226.02101,"843,036.1 ",.01)
 ;;036.1 
 ;;9002226.02101,"843,036.1 ",.02)
 ;;036.1 
 ;;9002226.02101,"843,036.2 ",.01)
 ;;036.2 
 ;;9002226.02101,"843,036.2 ",.02)
 ;;036.2 
 ;;9002226.02101,"843,036.3 ",.01)
 ;;036.3 
 ;;9002226.02101,"843,036.3 ",.02)
 ;;036.3 
 ;;9002226.02101,"843,036.40 ",.01)
 ;;036.40 
 ;;9002226.02101,"843,036.40 ",.02)
 ;;036.40 
 ;;9002226.02101,"843,036.41 ",.01)
 ;;036.41 
 ;;9002226.02101,"843,036.41 ",.02)
 ;;036.41 
 ;;9002226.02101,"843,036.42 ",.01)
 ;;036.42 
 ;;9002226.02101,"843,036.42 ",.02)
 ;;036.42 
 ;;9002226.02101,"843,036.43 ",.01)
 ;;036.43 
 ;;9002226.02101,"843,036.43 ",.02)
 ;;036.43 
 ;;9002226.02101,"843,036.81 ",.01)
 ;;036.81 
 ;;9002226.02101,"843,036.81 ",.02)
 ;;036.81 
 ;;9002226.02101,"843,036.82 ",.01)
 ;;036.82 
 ;;9002226.02101,"843,036.82 ",.02)
 ;;036.82 
 ;;9002226.02101,"843,036.89 ",.01)
 ;;036.89 
 ;;9002226.02101,"843,036.89 ",.02)
 ;;036.89 
 ;;9002226.02101,"843,036.9 ",.01)
 ;;036.9 
 ;;9002226.02101,"843,036.9 ",.02)
 ;;036.9 
 ;;9002226.02101,"843,037 ",.01)
 ;;037 
 ;;9002226.02101,"843,037 ",.02)
 ;;037 
 ;;9002226.02101,"843,038.0 ",.01)
 ;;038.0 
 ;;9002226.02101,"843,038.0 ",.02)
 ;;038.0 
 ;;9002226.02101,"843,038.10 ",.01)
 ;;038.10 
 ;;9002226.02101,"843,038.10 ",.02)
 ;;038.10 
 ;;9002226.02101,"843,038.11 ",.01)
 ;;038.11 
 ;;9002226.02101,"843,038.11 ",.02)
 ;;038.11 
 ;;9002226.02101,"843,038.19 ",.01)
 ;;038.19 
 ;;9002226.02101,"843,038.19 ",.02)
 ;;038.19 
 ;;9002226.02101,"843,038.2 ",.01)
 ;;038.2 
 ;;9002226.02101,"843,038.2 ",.02)
 ;;038.2 
 ;;9002226.02101,"843,038.3 ",.01)
 ;;038.3 
 ;;9002226.02101,"843,038.3 ",.02)
 ;;038.3 
 ;;9002226.02101,"843,038.40 ",.01)
 ;;038.40 
 ;;9002226.02101,"843,038.40 ",.02)
 ;;038.40 
 ;;9002226.02101,"843,038.41 ",.01)
 ;;038.41 
 ;;9002226.02101,"843,038.41 ",.02)
 ;;038.41 
 ;;9002226.02101,"843,038.42 ",.01)
 ;;038.42 
 ;;9002226.02101,"843,038.42 ",.02)
 ;;038.42 
 ;;9002226.02101,"843,038.43 ",.01)
 ;;038.43 
 ;;9002226.02101,"843,038.43 ",.02)
 ;;038.43 
 ;;9002226.02101,"843,038.44 ",.01)
 ;;038.44 
 ;;9002226.02101,"843,038.44 ",.02)
 ;;038.44 
 ;;9002226.02101,"843,038.49 ",.01)
 ;;038.49 
 ;;9002226.02101,"843,038.49 ",.02)
 ;;038.49 
 ;;9002226.02101,"843,038.8 ",.01)
 ;;038.8 
 ;;9002226.02101,"843,038.8 ",.02)
 ;;038.8 
 ;;9002226.02101,"843,038.9 ",.01)
 ;;038.9 
 ;;9002226.02101,"843,038.9 ",.02)
 ;;038.9 
 ;;9002226.02101,"843,039.0 ",.01)
 ;;039.0 
 ;;9002226.02101,"843,039.0 ",.02)
 ;;039.0 
 ;;9002226.02101,"843,039.1 ",.01)
 ;;039.1 
 ;;9002226.02101,"843,039.1 ",.02)
 ;;039.1 
 ;;9002226.02101,"843,039.2 ",.01)
 ;;039.2 
 ;;9002226.02101,"843,039.2 ",.02)
 ;;039.2 
 ;;9002226.02101,"843,039.3 ",.01)
 ;;039.3 
 ;;9002226.02101,"843,039.3 ",.02)
 ;;039.3 
 ;;9002226.02101,"843,039.4 ",.01)
 ;;039.4 
 ;;9002226.02101,"843,039.4 ",.02)
 ;;039.4 
 ;;9002226.02101,"843,039.8 ",.01)
 ;;039.8 
 ;;9002226.02101,"843,039.8 ",.02)
 ;;039.8 
 ;;9002226.02101,"843,039.9 ",.01)
 ;;039.9 
 ;;9002226.02101,"843,039.9 ",.02)
 ;;039.9 
 ;;9002226.02101,"843,040.0 ",.01)
 ;;040.0 
 ;;9002226.02101,"843,040.0 ",.02)
 ;;040.0 
 ;;9002226.02101,"843,040.1 ",.01)
 ;;040.1 
 ;;9002226.02101,"843,040.1 ",.02)
 ;;040.1 
 ;;9002226.02101,"843,040.2 ",.01)
 ;;040.2 
 ;;9002226.02101,"843,040.2 ",.02)
 ;;040.2 
 ;;9002226.02101,"843,040.3 ",.01)
 ;;040.3 
 ;;9002226.02101,"843,040.3 ",.02)
 ;;040.3 
 ;;9002226.02101,"843,040.81 ",.01)
 ;;040.81 
 ;;9002226.02101,"843,040.81 ",.02)
 ;;040.81 
 ;;9002226.02101,"843,040.82 ",.01)
 ;;040.82 
 ;;9002226.02101,"843,040.82 ",.02)
 ;;040.82 
 ;;9002226.02101,"843,040.89 ",.01)
 ;;040.89 
 ;;9002226.02101,"843,040.89 ",.02)
 ;;040.89 
 ;;9002226.02101,"843,041.00 ",.01)
 ;;041.00 
 ;;9002226.02101,"843,041.00 ",.02)
 ;;041.00 
 ;;9002226.02101,"843,041.01 ",.01)
 ;;041.01 
 ;;9002226.02101,"843,041.01 ",.02)
 ;;041.01 
 ;;9002226.02101,"843,041.02 ",.01)
 ;;041.02 
 ;;9002226.02101,"843,041.02 ",.02)
 ;;041.02 
 ;;9002226.02101,"843,041.03 ",.01)
 ;;041.03 
 ;;9002226.02101,"843,041.03 ",.02)
 ;;041.03 
 ;;9002226.02101,"843,041.04 ",.01)
 ;;041.04 
 ;;9002226.02101,"843,041.04 ",.02)
 ;;041.04 
 ;;9002226.02101,"843,041.05 ",.01)
 ;;041.05 
 ;;9002226.02101,"843,041.05 ",.02)
 ;;041.05 
 ;;9002226.02101,"843,041.09 ",.01)
 ;;041.09 
 ;;9002226.02101,"843,041.09 ",.02)
 ;;041.09 
 ;;9002226.02101,"843,041.10 ",.01)
 ;;041.10 
 ;;9002226.02101,"843,041.10 ",.02)
 ;;041.10 
 ;;9002226.02101,"843,041.11 ",.01)
 ;;041.11 
 ;;9002226.02101,"843,041.11 ",.02)
 ;;041.11 
 ;;9002226.02101,"843,041.19 ",.01)
 ;;041.19 
 ;;9002226.02101,"843,041.19 ",.02)
 ;;041.19 
 ;;9002226.02101,"843,041.2 ",.01)
 ;;041.2 
 ;;9002226.02101,"843,041.2 ",.02)
 ;;041.2 
 ;;9002226.02101,"843,041.3 ",.01)
 ;;041.3 
 ;;9002226.02101,"843,041.3 ",.02)
 ;;041.3 
 ;;9002226.02101,"843,041.4 ",.01)
 ;;041.4 
 ;;9002226.02101,"843,041.4 ",.02)
 ;;041.4 
 ;;9002226.02101,"843,041.5 ",.01)
 ;;041.5 
 ;;9002226.02101,"843,041.5 ",.02)
 ;;041.5 
 ;;9002226.02101,"843,041.6 ",.01)
 ;;041.6 
 ;;9002226.02101,"843,041.6 ",.02)
 ;;041.6 
 ;;9002226.02101,"843,041.7 ",.01)
 ;;041.7 
 ;;9002226.02101,"843,041.7 ",.02)
 ;;041.7 
 ;;9002226.02101,"843,041.81 ",.01)
 ;;041.81 
 ;;9002226.02101,"843,041.81 ",.02)
 ;;041.81 
 ;;9002226.02101,"843,041.82 ",.01)
 ;;041.82 
 ;;9002226.02101,"843,041.82 ",.02)
 ;;041.82 
 ;;9002226.02101,"843,041.83 ",.01)
 ;;041.83 
 ;;9002226.02101,"843,041.83 ",.02)
 ;;041.83 
 ;;9002226.02101,"843,041.84 ",.01)
 ;;041.84 
 ;;9002226.02101,"843,041.84 ",.02)
 ;;041.84 
 ;;9002226.02101,"843,041.85 ",.01)
 ;;041.85 
 ;;9002226.02101,"843,041.85 ",.02)
 ;;041.85 
 ;;9002226.02101,"843,041.86 ",.01)
 ;;041.86 
 ;;9002226.02101,"843,041.86 ",.02)
 ;;041.86 
 ;;9002226.02101,"843,041.89 ",.01)
 ;;041.89 
 ;;9002226.02101,"843,041.89 ",.02)
 ;;041.89 
 ;;9002226.02101,"843,041.9 ",.01)
 ;;041.9 
 ;;9002226.02101,"843,041.9 ",.02)
 ;;041.9 
 ;;9002226.02101,"843,050.1 ",.01)
 ;;050.1 
 ;;9002226.02101,"843,050.1 ",.02)
 ;;050.1 
 ;;9002226.02101,"843,051.2 ",.01)
 ;;051.2 
 ;;9002226.02101,"843,051.2 ",.02)
 ;;051.2 
 ;;9002226.02101,"843,053.12 ",.01)
 ;;053.12 
 ;;9002226.02101,"843,053.12 ",.02)
 ;;053.12 
 ;;9002226.02101,"843,053.13 ",.01)
 ;;053.13 
 ;;9002226.02101,"843,053.13 ",.02)
 ;;053.13 
 ;;9002226.02101,"843,053.79 ",.01)
 ;;053.79 
 ;;9002226.02101,"843,053.79 ",.02)
 ;;053.79 
 ;;9002226.02101,"843,054.0 ",.01)
 ;;054.0 
 ;;9002226.02101,"843,054.0 ",.02)
 ;;054.0 
 ;;9002226.02101,"843,060.0 ",.01)
 ;;060.0 
 ;;9002226.02101,"843,060.0 ",.02)
 ;;060.0 
 ;;9002226.02101,"843,060.1 ",.01)
 ;;060.1 
 ;;9002226.02101,"843,060.1 ",.02)
 ;;060.1 
 ;;9002226.02101,"843,060.9 ",.01)
 ;;060.9 
 ;;9002226.02101,"843,060.9 ",.02)
 ;;060.9 
 ;;9002226.02101,"843,061 ",.01)
 ;;061 
 ;;9002226.02101,"843,061 ",.02)
 ;;061 
 ;;9002226.02101,"843,063.1 ",.01)
 ;;063.1 
 ;;9002226.02101,"843,063.1 ",.02)
 ;;063.1 
 ;;9002226.02101,"843,065.1 ",.01)
 ;;065.1 
 ;;9002226.02101,"843,065.1 ",.02)
 ;;065.1 
 ;;9002226.02101,"843,065.2 ",.01)
 ;;065.2 
 ;;9002226.02101,"843,065.2 ",.02)
 ;;065.2 
 ;;9002226.02101,"843,065.3 ",.01)
 ;;065.3 
 ;;9002226.02101,"843,065.3 ",.02)
 ;;065.3 
 ;;9002226.02101,"843,065.4 ",.01)
 ;;065.4 
 ;;9002226.02101,"843,065.4 ",.02)
 ;;065.4 
 ;;9002226.02101,"843,065.8 ",.01)
 ;;065.8 
 ;;9002226.02101,"843,065.8 ",.02)
 ;;065.8 
 ;;9002226.02101,"843,065.9 ",.01)
 ;;065.9 
 ;;9002226.02101,"843,065.9 ",.02)
 ;;065.9 
 ;;9002226.02101,"843,066.0 ",.01)
 ;;066.0 
 ;;9002226.02101,"843,066.0 ",.02)
 ;;066.0 
 ;;9002226.02101,"843,066.1 ",.01)
 ;;066.1 
 ;;9002226.02101,"843,066.1 ",.02)
 ;;066.1 
 ;;9002226.02101,"843,066.2 ",.01)
 ;;066.2 
 ;;9002226.02101,"843,066.2 ",.02)
 ;;066.2 
 ;;9002226.02101,"843,066.3 ",.01)
 ;;066.3 
 ;;9002226.02101,"843,066.3 ",.02)
 ;;066.3 
 ;;9002226.02101,"843,066.40 ",.01)
 ;;066.40 
 ;;9002226.02101,"843,066.40 ",.02)
 ;;066.40 
 ;;9002226.02101,"843,066.41 ",.01)
 ;;066.41 
 ;;9002226.02101,"843,066.41 ",.02)
 ;;066.41 
 ;;9002226.02101,"843,066.42 ",.01)
 ;;066.42 
 ;;9002226.02101,"843,066.42 ",.02)
 ;;066.42 
 ;;9002226.02101,"843,066.49 ",.01)
 ;;066.49 
 ;;9002226.02101,"843,066.49 ",.02)
 ;;066.49 
 ;;9002226.02101,"843,071 ",.01)
 ;;071 
 ;;9002226.02101,"843,071 ",.02)
 ;;071 
 ;;9002226.02101,"843,073.0 ",.01)
 ;;073.0 
 ;;9002226.02101,"843,073.0 ",.02)
 ;;073.0 
 ;;9002226.02101,"843,073.7 ",.01)
 ;;073.7 
 ;;9002226.02101,"843,073.7 ",.02)
 ;;073.7 
 ;;9002226.02101,"843,073.8 ",.01)
 ;;073.8 
 ;;9002226.02101,"843,073.8 ",.02)
 ;;073.8 
 ;;9002226.02101,"843,073.9 ",.01)
 ;;073.9 
 ;;9002226.02101,"843,073.9 ",.02)
 ;;073.9 
 ;;9002226.02101,"843,074.0 ",.01)
 ;;074.0 
 ;;9002226.02101,"843,074.0 ",.02)
 ;;074.0 
 ;;9002226.02101,"843,074.1 ",.01)
 ;;074.1 
 ;;9002226.02101,"843,074.1 ",.02)
 ;;074.1 
 ;;9002226.02101,"843,074.3 ",.01)
 ;;074.3 
 ;;9002226.02101,"843,074.3 ",.02)
 ;;074.3 
 ;;9002226.02101,"843,075 ",.01)
 ;;075 
 ;;9002226.02101,"843,075 ",.02)
 ;;075 
 ;;9002226.02101,"843,076.0 ",.01)
 ;;076.0 
 ;;9002226.02101,"843,076.0 ",.02)
 ;;076.0 
 ;;9002226.02101,"843,076.1 ",.01)
 ;;076.1 
 ;;9002226.02101,"843,076.1 ",.02)
 ;;076.1 
 ;;9002226.02101,"843,076.9 ",.01)
 ;;076.9 
 ;;9002226.02101,"843,076.9 ",.02)
 ;;076.9 
 ;;9002226.02101,"843,077.0 ",.01)
 ;;077.0 
 ;;9002226.02101,"843,077.0 ",.02)
 ;;077.0 
 ;;9002226.02101,"843,077.1 ",.01)
 ;;077.1 
 ;;9002226.02101,"843,077.1 ",.02)
 ;;077.1 
 ;;9002226.02101,"843,077.2 ",.01)
 ;;077.2 
 ;;9002226.02101,"843,077.2 ",.02)
 ;;077.2 
 ;;9002226.02101,"843,077.4 ",.01)
 ;;077.4 
 ;;9002226.02101,"843,077.4 ",.02)
 ;;077.4 
 ;;9002226.02101,"843,077.98 ",.01)
 ;;077.98 
 ;;9002226.02101,"843,077.98 ",.02)
 ;;077.98 
 ;;9002226.02101,"843,077.99 ",.01)
 ;;077.99 
 ;;9002226.02101,"843,077.99 ",.02)
 ;;077.99 
 ;;9002226.02101,"843,078.2 ",.01)
 ;;078.2 
 ;;9002226.02101,"843,078.2 ",.02)
 ;;078.2 
 ;;9002226.02101,"843,078.3 ",.01)
 ;;078.3 
 ;;9002226.02101,"843,078.3 ",.02)
 ;;078.3 
 ;;9002226.02101,"843,078.4 ",.01)
 ;;078.4 
 ;;9002226.02101,"843,078.4 ",.02)
 ;;078.4 
 ;;9002226.02101,"843,078.6 ",.01)
 ;;078.6 
 ;;9002226.02101,"843,078.6 ",.02)
 ;;078.6 
 ;;9002226.02101,"843,078.81 ",.01)
 ;;078.81 
 ;;9002226.02101,"843,078.81 ",.02)
 ;;078.81 
 ;;9002226.02101,"843,078.82 ",.01)
 ;;078.82 
 ;;9002226.02101,"843,078.82 ",.02)
 ;;078.82 
 ;;9002226.02101,"843,078.88 ",.01)
 ;;078.88 
 ;;9002226.02101,"843,078.88 ",.02)
 ;;078.88 
 ;;9002226.02101,"843,079.88 ",.01)
 ;;079.88 
 ;;9002226.02101,"843,079.88 ",.02)
 ;;079.88 
 ;;9002226.02101,"843,079.98 ",.01)
 ;;079.98 
 ;;9002226.02101,"843,079.98 ",.02)
 ;;079.98 
 ;;9002226.02101,"843,080 ",.01)
 ;;080 
 ;;9002226.02101,"843,080 ",.02)
 ;;080 
 ;;9002226.02101,"843,081.0 ",.01)
 ;;081.0 
 ;;9002226.02101,"843,081.0 ",.02)
 ;;081.0 
 ;;9002226.02101,"843,081.1 ",.01)
 ;;081.1 
 ;;9002226.02101,"843,081.1 ",.02)
 ;;081.1 
 ;;9002226.02101,"843,081.2 ",.01)
 ;;081.2 
 ;;9002226.02101,"843,081.2 ",.02)
 ;;081.2 
 ;;9002226.02101,"843,081.9 ",.01)
 ;;081.9 
 ;;9002226.02101,"843,081.9 ",.02)
 ;;081.9 
 ;;9002226.02101,"843,082.0 ",.01)
 ;;082.0 
 ;;9002226.02101,"843,082.0 ",.02)
 ;;082.0 
 ;;9002226.02101,"843,082.1 ",.01)
 ;;082.1 
 ;;9002226.02101,"843,082.1 ",.02)
 ;;082.1 
 ;;9002226.02101,"843,082.2 ",.01)
 ;;082.2 
 ;;9002226.02101,"843,082.2 ",.02)
 ;;082.2 
 ;;9002226.02101,"843,082.3 ",.01)
 ;;082.3 
 ;;9002226.02101,"843,082.3 ",.02)
 ;;082.3 
 ;;9002226.02101,"843,082.40 ",.01)
 ;;082.40 
 ;;9002226.02101,"843,082.40 ",.02)
 ;;082.40 
 ;;9002226.02101,"843,082.41 ",.01)
 ;;082.41 
 ;;9002226.02101,"843,082.41 ",.02)
 ;;082.41 
 ;;9002226.02101,"843,082.49 ",.01)
 ;;082.49 
 ;;9002226.02101,"843,082.49 ",.02)
 ;;082.49 
 ;;9002226.02101,"843,082.8 ",.01)
 ;;082.8 
 ;;9002226.02101,"843,082.8 ",.02)
 ;;082.8 
 ;;9002226.02101,"843,082.9 ",.01)
 ;;082.9