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

BGP03B4.m

Go to the documentation of this file.
BGP03B4 ;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,011.70 ",.02)
 ;;011.70 
 ;;9002226.02101,"843,011.71 ",.01)
 ;;011.71 
 ;;9002226.02101,"843,011.71 ",.02)
 ;;011.71 
 ;;9002226.02101,"843,011.72 ",.01)
 ;;011.72 
 ;;9002226.02101,"843,011.72 ",.02)
 ;;011.72 
 ;;9002226.02101,"843,011.73 ",.01)
 ;;011.73 
 ;;9002226.02101,"843,011.73 ",.02)
 ;;011.73 
 ;;9002226.02101,"843,011.74 ",.01)
 ;;011.74 
 ;;9002226.02101,"843,011.74 ",.02)
 ;;011.74 
 ;;9002226.02101,"843,011.75 ",.01)
 ;;011.75 
 ;;9002226.02101,"843,011.75 ",.02)
 ;;011.75 
 ;;9002226.02101,"843,011.76 ",.01)
 ;;011.76 
 ;;9002226.02101,"843,011.76 ",.02)
 ;;011.76 
 ;;9002226.02101,"843,011.80 ",.01)
 ;;011.80 
 ;;9002226.02101,"843,011.80 ",.02)
 ;;011.80 
 ;;9002226.02101,"843,011.81 ",.01)
 ;;011.81 
 ;;9002226.02101,"843,011.81 ",.02)
 ;;011.81 
 ;;9002226.02101,"843,011.82 ",.01)
 ;;011.82 
 ;;9002226.02101,"843,011.82 ",.02)
 ;;011.82 
 ;;9002226.02101,"843,011.83 ",.01)
 ;;011.83 
 ;;9002226.02101,"843,011.83 ",.02)
 ;;011.83 
 ;;9002226.02101,"843,011.84 ",.01)
 ;;011.84 
 ;;9002226.02101,"843,011.84 ",.02)
 ;;011.84 
 ;;9002226.02101,"843,011.85 ",.01)
 ;;011.85 
 ;;9002226.02101,"843,011.85 ",.02)
 ;;011.85 
 ;;9002226.02101,"843,011.86 ",.01)
 ;;011.86 
 ;;9002226.02101,"843,011.86 ",.02)
 ;;011.86 
 ;;9002226.02101,"843,011.90 ",.01)
 ;;011.90 
 ;;9002226.02101,"843,011.90 ",.02)
 ;;011.90 
 ;;9002226.02101,"843,011.91 ",.01)
 ;;011.91 
 ;;9002226.02101,"843,011.91 ",.02)
 ;;011.91 
 ;;9002226.02101,"843,011.92 ",.01)
 ;;011.92 
 ;;9002226.02101,"843,011.92 ",.02)
 ;;011.92 
 ;;9002226.02101,"843,011.93 ",.01)
 ;;011.93 
 ;;9002226.02101,"843,011.93 ",.02)
 ;;011.93 
 ;;9002226.02101,"843,011.94 ",.01)
 ;;011.94 
 ;;9002226.02101,"843,011.94 ",.02)
 ;;011.94 
 ;;9002226.02101,"843,011.95 ",.01)
 ;;011.95 
 ;;9002226.02101,"843,011.95 ",.02)
 ;;011.95 
 ;;9002226.02101,"843,011.96 ",.01)
 ;;011.96 
 ;;9002226.02101,"843,011.96 ",.02)
 ;;011.96 
 ;;9002226.02101,"843,012.00 ",.01)
 ;;012.00 
 ;;9002226.02101,"843,012.00 ",.02)
 ;;012.00 
 ;;9002226.02101,"843,012.01 ",.01)
 ;;012.01 
 ;;9002226.02101,"843,012.01 ",.02)
 ;;012.01 
 ;;9002226.02101,"843,012.02 ",.01)
 ;;012.02 
 ;;9002226.02101,"843,012.02 ",.02)
 ;;012.02 
 ;;9002226.02101,"843,012.03 ",.01)
 ;;012.03 
 ;;9002226.02101,"843,012.03 ",.02)
 ;;012.03 
 ;;9002226.02101,"843,012.04 ",.01)
 ;;012.04 
 ;;9002226.02101,"843,012.04 ",.02)
 ;;012.04 
 ;;9002226.02101,"843,012.05 ",.01)
 ;;012.05 
 ;;9002226.02101,"843,012.05 ",.02)
 ;;012.05 
 ;;9002226.02101,"843,012.06 ",.01)
 ;;012.06 
 ;;9002226.02101,"843,012.06 ",.02)
 ;;012.06 
 ;;9002226.02101,"843,012.10 ",.01)
 ;;012.10 
 ;;9002226.02101,"843,012.10 ",.02)
 ;;012.10 
 ;;9002226.02101,"843,012.11 ",.01)
 ;;012.11 
 ;;9002226.02101,"843,012.11 ",.02)
 ;;012.11 
 ;;9002226.02101,"843,012.12 ",.01)
 ;;012.12 
 ;;9002226.02101,"843,012.12 ",.02)
 ;;012.12 
 ;;9002226.02101,"843,012.13 ",.01)
 ;;012.13 
 ;;9002226.02101,"843,012.13 ",.02)
 ;;012.13 
 ;;9002226.02101,"843,012.14 ",.01)
 ;;012.14 
 ;;9002226.02101,"843,012.14 ",.02)
 ;;012.14 
 ;;9002226.02101,"843,012.15 ",.01)
 ;;012.15 
 ;;9002226.02101,"843,012.15 ",.02)
 ;;012.15 
 ;;9002226.02101,"843,012.16 ",.01)
 ;;012.16 
 ;;9002226.02101,"843,012.16 ",.02)
 ;;012.16 
 ;;9002226.02101,"843,012.20 ",.01)
 ;;012.20 
 ;;9002226.02101,"843,012.20 ",.02)
 ;;012.20 
 ;;9002226.02101,"843,012.21 ",.01)
 ;;012.21 
 ;;9002226.02101,"843,012.21 ",.02)
 ;;012.21 
 ;;9002226.02101,"843,012.22 ",.01)
 ;;012.22 
 ;;9002226.02101,"843,012.22 ",.02)
 ;;012.22 
 ;;9002226.02101,"843,012.23 ",.01)
 ;;012.23 
 ;;9002226.02101,"843,012.23 ",.02)
 ;;012.23 
 ;;9002226.02101,"843,012.24 ",.01)
 ;;012.24 
 ;;9002226.02101,"843,012.24 ",.02)
 ;;012.24 
 ;;9002226.02101,"843,012.25 ",.01)
 ;;012.25 
 ;;9002226.02101,"843,012.25 ",.02)
 ;;012.25 
 ;;9002226.02101,"843,012.26 ",.01)
 ;;012.26 
 ;;9002226.02101,"843,012.26 ",.02)
 ;;012.26 
 ;;9002226.02101,"843,012.30 ",.01)
 ;;012.30 
 ;;9002226.02101,"843,012.30 ",.02)
 ;;012.30 
 ;;9002226.02101,"843,012.31 ",.01)
 ;;012.31 
 ;;9002226.02101,"843,012.31 ",.02)
 ;;012.31 
 ;;9002226.02101,"843,012.32 ",.01)
 ;;012.32 
 ;;9002226.02101,"843,012.32 ",.02)
 ;;012.32 
 ;;9002226.02101,"843,012.33 ",.01)
 ;;012.33 
 ;;9002226.02101,"843,012.33 ",.02)
 ;;012.33 
 ;;9002226.02101,"843,012.34 ",.01)
 ;;012.34 
 ;;9002226.02101,"843,012.34 ",.02)
 ;;012.34 
 ;;9002226.02101,"843,012.35 ",.01)
 ;;012.35 
 ;;9002226.02101,"843,012.35 ",.02)
 ;;012.35 
 ;;9002226.02101,"843,012.36 ",.01)
 ;;012.36 
 ;;9002226.02101,"843,012.36 ",.02)
 ;;012.36 
 ;;9002226.02101,"843,012.80 ",.01)
 ;;012.80 
 ;;9002226.02101,"843,012.80 ",.02)
 ;;012.80 
 ;;9002226.02101,"843,012.81 ",.01)
 ;;012.81 
 ;;9002226.02101,"843,012.81 ",.02)
 ;;012.81 
 ;;9002226.02101,"843,012.82 ",.01)
 ;;012.82 
 ;;9002226.02101,"843,012.82 ",.02)
 ;;012.82 
 ;;9002226.02101,"843,012.83 ",.01)
 ;;012.83 
 ;;9002226.02101,"843,012.83 ",.02)
 ;;012.83 
 ;;9002226.02101,"843,012.84 ",.01)
 ;;012.84 
 ;;9002226.02101,"843,012.84 ",.02)
 ;;012.84 
 ;;9002226.02101,"843,012.85 ",.01)
 ;;012.85 
 ;;9002226.02101,"843,012.85 ",.02)
 ;;012.85 
 ;;9002226.02101,"843,012.86 ",.01)
 ;;012.86 
 ;;9002226.02101,"843,012.86 ",.02)
 ;;012.86 
 ;;9002226.02101,"843,013.00 ",.01)
 ;;013.00 
 ;;9002226.02101,"843,013.00 ",.02)
 ;;013.96 
 ;;9002226.02101,"843,014.00 ",.01)
 ;;014.00 
 ;;9002226.02101,"843,014.00 ",.02)
 ;;014.00 
 ;;9002226.02101,"843,014.01 ",.01)
 ;;014.01 
 ;;9002226.02101,"843,014.01 ",.02)
 ;;014.01 
 ;;9002226.02101,"843,014.02 ",.01)
 ;;014.02 
 ;;9002226.02101,"843,014.02 ",.02)
 ;;014.02 
 ;;9002226.02101,"843,014.03 ",.01)
 ;;014.03 
 ;;9002226.02101,"843,014.03 ",.02)
 ;;014.03 
 ;;9002226.02101,"843,014.04 ",.01)
 ;;014.04 
 ;;9002226.02101,"843,014.04 ",.02)
 ;;014.04 
 ;;9002226.02101,"843,014.05 ",.01)
 ;;014.05 
 ;;9002226.02101,"843,014.05 ",.02)
 ;;014.05 
 ;;9002226.02101,"843,014.06 ",.01)
 ;;014.06 
 ;;9002226.02101,"843,014.06 ",.02)
 ;;014.06 
 ;;9002226.02101,"843,014.80 ",.01)
 ;;014.80 
 ;;9002226.02101,"843,014.80 ",.02)
 ;;014.80 
 ;;9002226.02101,"843,014.81 ",.01)
 ;;014.81 
 ;;9002226.02101,"843,014.81 ",.02)
 ;;014.81 
 ;;9002226.02101,"843,014.82 ",.01)
 ;;014.82 
 ;;9002226.02101,"843,014.82 ",.02)
 ;;014.82 
 ;;9002226.02101,"843,014.83 ",.01)
 ;;014.83 
 ;;9002226.02101,"843,014.83 ",.02)
 ;;014.83 
 ;;9002226.02101,"843,014.84 ",.01)
 ;;014.84 
 ;;9002226.02101,"843,014.84 ",.02)
 ;;014.84 
 ;;9002226.02101,"843,014.85 ",.01)
 ;;014.85 
 ;;9002226.02101,"843,014.85 ",.02)
 ;;014.85 
 ;;9002226.02101,"843,014.86 ",.01)
 ;;014.86 
 ;;9002226.02101,"843,014.86 ",.02)
 ;;014.86 
 ;;9002226.02101,"843,015.00 ",.01)
 ;;015.00 
 ;;9002226.02101,"843,015.00 ",.02)
 ;;015.96 
 ;;9002226.02101,"843,016.00 ",.01)
 ;;016.00 
 ;;9002226.02101,"843,016.00 ",.02)
 ;;016.00 
 ;;9002226.02101,"843,016.01 ",.01)
 ;;016.01 
 ;;9002226.02101,"843,016.01 ",.02)
 ;;016.01 
 ;;9002226.02101,"843,016.02 ",.01)
 ;;016.02 
 ;;9002226.02101,"843,016.02 ",.02)
 ;;016.02 
 ;;9002226.02101,"843,016.03 ",.01)
 ;;016.03 
 ;;9002226.02101,"843,016.03 ",.02)
 ;;016.03 
 ;;9002226.02101,"843,016.04 ",.01)
 ;;016.04 
 ;;9002226.02101,"843,016.04 ",.02)
 ;;016.04 
 ;;9002226.02101,"843,016.05 ",.01)
 ;;016.05 
 ;;9002226.02101,"843,016.05 ",.02)
 ;;016.05 
 ;;9002226.02101,"843,016.06 ",.01)
 ;;016.06 
 ;;9002226.02101,"843,016.06 ",.02)
 ;;016.06 
 ;;9002226.02101,"843,016.10 ",.01)
 ;;016.10 
 ;;9002226.02101,"843,016.10 ",.02)
 ;;016.10 
 ;;9002226.02101,"843,016.11 ",.01)
 ;;016.11 
 ;;9002226.02101,"843,016.11 ",.02)
 ;;016.11 
 ;;9002226.02101,"843,016.12 ",.01)
 ;;016.12 
 ;;9002226.02101,"843,016.12 ",.02)
 ;;016.12 
 ;;9002226.02101,"843,016.13 ",.01)
 ;;016.13 
 ;;9002226.02101,"843,016.13 ",.02)
 ;;016.13 
 ;;9002226.02101,"843,016.14 ",.01)
 ;;016.14 
 ;;9002226.02101,"843,016.14 ",.02)
 ;;016.14 
 ;;9002226.02101,"843,016.15 ",.01)
 ;;016.15 
 ;;9002226.02101,"843,016.15 ",.02)
 ;;016.15 
 ;;9002226.02101,"843,016.16 ",.01)
 ;;016.16 
 ;;9002226.02101,"843,016.16 ",.02)
 ;;016.16 
 ;;9002226.02101,"843,016.20 ",.01)
 ;;016.20 
 ;;9002226.02101,"843,016.20 ",.02)
 ;;016.20 
 ;;9002226.02101,"843,016.21 ",.01)
 ;;016.21 
 ;;9002226.02101,"843,016.21 ",.02)
 ;;016.21 
 ;;9002226.02101,"843,016.22 ",.01)
 ;;016.22 
 ;;9002226.02101,"843,016.22 ",.02)
 ;;016.22 
 ;;9002226.02101,"843,016.23 ",.01)
 ;;016.23 
 ;;9002226.02101,"843,016.23 ",.02)
 ;;016.23 
 ;;9002226.02101,"843,016.24 ",.01)
 ;;016.24 
 ;;9002226.02101,"843,016.24 ",.02)
 ;;016.24 
 ;;9002226.02101,"843,016.25 ",.01)
 ;;016.25 
 ;;9002226.02101,"843,016.25 ",.02)
 ;;016.25 
 ;;9002226.02101,"843,016.26 ",.01)
 ;;016.26 
 ;;9002226.02101,"843,016.26 ",.02)
 ;;016.26 
 ;;9002226.02101,"843,016.30 ",.01)
 ;;016.30 
 ;;9002226.02101,"843,016.30 ",.02)
 ;;016.30 
 ;;9002226.02101,"843,016.31 ",.01)
 ;;016.31 
 ;;9002226.02101,"843,016.31 ",.02)
 ;;016.31 
 ;;9002226.02101,"843,016.32 ",.01)
 ;;016.32 
 ;;9002226.02101,"843,016.32 ",.02)
 ;;016.32 
 ;;9002226.02101,"843,016.33 ",.01)
 ;;016.33 
 ;;9002226.02101,"843,016.33 ",.02)
 ;;016.33 
 ;;9002226.02101,"843,016.34 ",.01)
 ;;016.34 
 ;;9002226.02101,"843,016.34 ",.02)
 ;;016.34 
 ;;9002226.02101,"843,016.35 ",.01)
 ;;016.35 
 ;;9002226.02101,"843,016.35 ",.02)
 ;;016.35 
 ;;9002226.02101,"843,016.36 ",.01)
 ;;016.36 
 ;;9002226.02101,"843,016.36 ",.02)
 ;;016.36 
 ;;9002226.02101,"843,016.40 ",.01)
 ;;016.40 
 ;;9002226.02101,"843,016.40 ",.02)
 ;;016.40 
 ;;9002226.02101,"843,016.41 ",.01)
 ;;016.41 
 ;;9002226.02101,"843,016.41 ",.02)
 ;;016.41 
 ;;9002226.02101,"843,016.42 ",.01)
 ;;016.42 
 ;;9002226.02101,"843,016.42 ",.02)
 ;;016.42 
 ;;9002226.02101,"843,016.43 ",.01)
 ;;016.43 
 ;;9002226.02101,"843,016.43 ",.02)
 ;;016.43 
 ;;9002226.02101,"843,016.44 ",.01)
 ;;016.44 
 ;;9002226.02101,"843,016.44 ",.02)
 ;;016.44 
 ;;9002226.02101,"843,016.45 ",.01)
 ;;016.45 
 ;;9002226.02101,"843,016.45 ",.02)
 ;;016.45 
 ;;9002226.02101,"843,016.46 ",.01)
 ;;016.46 
 ;;9002226.02101,"843,016.46 ",.02)
 ;;016.46 
 ;;9002226.02101,"843,016.50 ",.01)
 ;;016.50 
 ;;9002226.02101,"843,016.50 ",.02)
 ;;016.50 
 ;;9002226.02101,"843,016.51 ",.01)
 ;;016.51 
 ;;9002226.02101,"843,016.51 ",.02)
 ;;016.51 
 ;;9002226.02101,"843,016.52 ",.01)
 ;;016.52 
 ;;9002226.02101,"843,016.52 ",.02)
 ;;016.52 
 ;;9002226.02101,"843,016.53 ",.01)
 ;;016.53 
 ;;9002226.02101,"843,016.53 ",.02)
 ;;016.53 
 ;;9002226.02101,"843,016.54 ",.01)
 ;;016.54 
 ;;9002226.02101,"843,016.54 ",.02)
 ;;016.54 
 ;;9002226.02101,"843,016.55 ",.01)
 ;;016.55 
 ;;9002226.02101,"843,016.55 ",.02)
 ;;016.55 
 ;;9002226.02101,"843,016.56 ",.01)
 ;;016.56 
 ;;9002226.02101,"843,016.56 ",.02)
 ;;016.56 
 ;;9002226.02101,"843,016.60 ",.01)
 ;;016.60 
 ;;9002226.02101,"843,016.60 ",.02)
 ;;016.60 
 ;;9002226.02101,"843,016.61 ",.01)
 ;;016.61 
 ;;9002226.02101,"843,016.61 ",.02)
 ;;016.61 
 ;;9002226.02101,"843,016.62 ",.01)
 ;;016.62 
 ;;9002226.02101,"843,016.62 ",.02)
 ;;016.62 
 ;;9002226.02101,"843,016.63 ",.01)
 ;;016.63 
 ;;9002226.02101,"843,016.63 ",.02)
 ;;016.63 
 ;;9002226.02101,"843,016.64 ",.01)
 ;;016.64 
 ;;9002226.02101,"843,016.64 ",.02)
 ;;016.64 
 ;;9002226.02101,"843,016.65 ",.01)
 ;;016.65 
 ;;9002226.02101,"843,016.65 ",.02)
 ;;016.65 
 ;;9002226.02101,"843,016.66 ",.01)
 ;;016.66 
 ;;9002226.02101,"843,016.66 ",.02)
 ;;016.66 
 ;;9002226.02101,"843,016.70 ",.01)
 ;;016.70 
 ;;9002226.02101,"843,016.70 ",.02)
 ;;016.70 
 ;;9002226.02101,"843,016.71 ",.01)
 ;;016.71 
 ;;9002226.02101,"843,016.71 ",.02)
 ;;016.71 
 ;;9002226.02101,"843,016.72 ",.01)
 ;;016.72 
 ;;9002226.02101,"843,016.72 ",.02)
 ;;016.72 
 ;;9002226.02101,"843,016.73 ",.01)
 ;;016.73 
 ;;9002226.02101,"843,016.73 ",.02)
 ;;016.73 
 ;;9002226.02101,"843,016.74 ",.01)
 ;;016.74 
 ;;9002226.02101,"843,016.74 ",.02)
 ;;016.74 
 ;;9002226.02101,"843,016.75 ",.01)
 ;;016.75 
 ;;9002226.02101,"843,016.75 ",.02)
 ;;016.75 
 ;;9002226.02101,"843,016.76 ",.01)
 ;;016.76 
 ;;9002226.02101,"843,016.76 ",.02)
 ;;016.76 
 ;;9002226.02101,"843,016.90 ",.01)
 ;;016.90 
 ;;9002226.02101,"843,016.90 ",.02)
 ;;016.90 
 ;;9002226.02101,"843,016.91 ",.01)
 ;;016.91 
 ;;9002226.02101,"843,016.91 ",.02)
 ;;016.91 
 ;;9002226.02101,"843,016.92 ",.01)
 ;;016.92 
 ;;9002226.02101,"843,016.92 ",.02)
 ;;016.92 
 ;;9002226.02101,"843,016.93 ",.01)
 ;;016.93 
 ;;9002226.02101,"843,016.93 ",.02)
 ;;016.93 
 ;;9002226.02101,"843,016.94 ",.01)
 ;;016.94 
 ;;9002226.02101,"843,016.94 ",.02)
 ;;016.94 
 ;;9002226.02101,"843,016.95 ",.01)
 ;;016.95 
 ;;9002226.02101,"843,016.95 ",.02)
 ;;016.95 
 ;;9002226.02101,"843,016.96 ",.01)
 ;;016.96 
 ;;9002226.02101,"843,016.96 ",.02)
 ;;016.96 
 ;;9002226.02101,"843,017.00 ",.01)
 ;;017.00 
 ;;9002226.02101,"843,017.00 ",.02)
 ;;017.00 
 ;;9002226.02101,"843,017.01 ",.01)
 ;;017.01 
 ;;9002226.02101,"843,017.01 ",.02)
 ;;017.01 
 ;;9002226.02101,"843,017.02 ",.01)
 ;;017.02 
 ;;9002226.02101,"843,017.02 ",.02)
 ;;017.02 
 ;;9002226.02101,"843,017.03 ",.01)
 ;;017.03 
 ;;9002226.02101,"843,017.03 ",.02)
 ;;017.03