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

BGP8CXRI.m

Go to the documentation of this file.
BGP8CXRI ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON SEP 28, 2007 ;
 ;;8.0;IHS CLINICAL REPORTING;;MAR 12, 2008
 ;;;BGP6;;SEP 28, 2007
 ;
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,"301,78.39 ",.02)
 ;;78.39 
 ;;9002226.02101,"301,78.40 ",.01)
 ;;78.40 
 ;;9002226.02101,"301,78.40 ",.02)
 ;;78.40 
 ;;9002226.02101,"301,78.41 ",.01)
 ;;78.41 
 ;;9002226.02101,"301,78.41 ",.02)
 ;;78.41 
 ;;9002226.02101,"301,78.42 ",.01)
 ;;78.42 
 ;;9002226.02101,"301,78.42 ",.02)
 ;;78.42 
 ;;9002226.02101,"301,78.43 ",.01)
 ;;78.43 
 ;;9002226.02101,"301,78.43 ",.02)
 ;;78.43 
 ;;9002226.02101,"301,78.44 ",.01)
 ;;78.44 
 ;;9002226.02101,"301,78.44 ",.02)
 ;;78.44 
 ;;9002226.02101,"301,78.45 ",.01)
 ;;78.45 
 ;;9002226.02101,"301,78.45 ",.02)
 ;;78.45 
 ;;9002226.02101,"301,78.46 ",.01)
 ;;78.46 
 ;;9002226.02101,"301,78.46 ",.02)
 ;;78.46 
 ;;9002226.02101,"301,78.47 ",.01)
 ;;78.47 
 ;;9002226.02101,"301,78.47 ",.02)
 ;;78.47 
 ;;9002226.02101,"301,78.48 ",.01)
 ;;78.48 
 ;;9002226.02101,"301,78.48 ",.02)
 ;;78.48 
 ;;9002226.02101,"301,78.49 ",.01)
 ;;78.49 
 ;;9002226.02101,"301,78.49 ",.02)
 ;;78.49 
 ;;9002226.02101,"301,78.60 ",.01)
 ;;78.60 
 ;;9002226.02101,"301,78.60 ",.02)
 ;;78.60 
 ;;9002226.02101,"301,78.61 ",.01)
 ;;78.61 
 ;;9002226.02101,"301,78.61 ",.02)
 ;;78.61 
 ;;9002226.02101,"301,78.62 ",.01)
 ;;78.62 
 ;;9002226.02101,"301,78.62 ",.02)
 ;;78.62 
 ;;9002226.02101,"301,78.63 ",.01)
 ;;78.63 
 ;;9002226.02101,"301,78.63 ",.02)
 ;;78.63 
 ;;9002226.02101,"301,78.65 ",.01)
 ;;78.65 
 ;;9002226.02101,"301,78.65 ",.02)
 ;;78.65 
 ;;9002226.02101,"301,78.67 ",.01)
 ;;78.67 
 ;;9002226.02101,"301,78.67 ",.02)
 ;;78.67 
 ;;9002226.02101,"301,78.69 ",.01)
 ;;78.69 
 ;;9002226.02101,"301,78.69 ",.02)
 ;;78.69 
 ;;9002226.02101,"301,78.70 ",.01)
 ;;78.70 
 ;;9002226.02101,"301,78.70 ",.02)
 ;;78.70 
 ;;9002226.02101,"301,78.71 ",.01)
 ;;78.71 
 ;;9002226.02101,"301,78.71 ",.02)
 ;;78.71 
 ;;9002226.02101,"301,78.72 ",.01)
 ;;78.72 
 ;;9002226.02101,"301,78.72 ",.02)
 ;;78.72 
 ;;9002226.02101,"301,78.73 ",.01)
 ;;78.73 
 ;;9002226.02101,"301,78.73 ",.02)
 ;;78.73 
 ;;9002226.02101,"301,78.74 ",.01)
 ;;78.74 
 ;;9002226.02101,"301,78.74 ",.02)
 ;;78.74 
 ;;9002226.02101,"301,78.75 ",.01)
 ;;78.75 
 ;;9002226.02101,"301,78.75 ",.02)
 ;;78.75 
 ;;9002226.02101,"301,78.76 ",.01)
 ;;78.76 
 ;;9002226.02101,"301,78.76 ",.02)
 ;;78.76 
 ;;9002226.02101,"301,78.77 ",.01)
 ;;78.77 
 ;;9002226.02101,"301,78.77 ",.02)
 ;;78.77 
 ;;9002226.02101,"301,78.78 ",.01)
 ;;78.78 
 ;;9002226.02101,"301,78.78 ",.02)
 ;;78.78 
 ;;9002226.02101,"301,78.79 ",.01)
 ;;78.79 
 ;;9002226.02101,"301,78.79 ",.02)
 ;;78.79 
 ;;9002226.02101,"301,79.20 ",.01)
 ;;79.20 
 ;;9002226.02101,"301,79.20 ",.02)
 ;;79.20 
 ;;9002226.02101,"301,79.21 ",.01)
 ;;79.21 
 ;;9002226.02101,"301,79.21 ",.02)
 ;;79.21 
 ;;9002226.02101,"301,79.22 ",.01)
 ;;79.22 
 ;;9002226.02101,"301,79.22 ",.02)
 ;;79.22 
 ;;9002226.02101,"301,79.23 ",.01)
 ;;79.23 
 ;;9002226.02101,"301,79.23 ",.02)
 ;;79.23 
 ;;9002226.02101,"301,79.25 ",.01)
 ;;79.25 
 ;;9002226.02101,"301,79.25 ",.02)
 ;;79.25 
 ;;9002226.02101,"301,79.26 ",.01)
 ;;79.26 
 ;;9002226.02101,"301,79.26 ",.02)
 ;;79.26 
 ;;9002226.02101,"301,79.27 ",.01)
 ;;79.27 
 ;;9002226.02101,"301,79.27 ",.02)
 ;;79.27 
 ;;9002226.02101,"301,79.29 ",.01)
 ;;79.29 
 ;;9002226.02101,"301,79.29 ",.02)
 ;;79.29 
 ;;9002226.02101,"301,79.30 ",.01)
 ;;79.30 
 ;;9002226.02101,"301,79.30 ",.02)
 ;;79.30 
 ;;9002226.02101,"301,79.31 ",.01)
 ;;79.31 
 ;;9002226.02101,"301,79.31 ",.02)
 ;;79.31 
 ;;9002226.02101,"301,79.32 ",.01)
 ;;79.32 
 ;;9002226.02101,"301,79.32 ",.02)
 ;;79.32 
 ;;9002226.02101,"301,79.33 ",.01)
 ;;79.33 
 ;;9002226.02101,"301,79.33 ",.02)
 ;;79.33 
 ;;9002226.02101,"301,79.35 ",.01)
 ;;79.35 
 ;;9002226.02101,"301,79.35 ",.02)
 ;;79.35 
 ;;9002226.02101,"301,79.36 ",.01)
 ;;79.36 
 ;;9002226.02101,"301,79.36 ",.02)
 ;;79.36 
 ;;9002226.02101,"301,79.37 ",.01)
 ;;79.37 
 ;;9002226.02101,"301,79.37 ",.02)
 ;;79.37 
 ;;9002226.02101,"301,79.39 ",.01)
 ;;79.39 
 ;;9002226.02101,"301,79.39 ",.02)
 ;;79.39 
 ;;9002226.02101,"301,79.50 ",.01)
 ;;79.50 
 ;;9002226.02101,"301,79.50 ",.02)
 ;;79.50 
 ;;9002226.02101,"301,79.51 ",.01)
 ;;79.51 
 ;;9002226.02101,"301,79.51 ",.02)
 ;;79.51 
 ;;9002226.02101,"301,79.52 ",.01)
 ;;79.52 
 ;;9002226.02101,"301,79.52 ",.02)
 ;;79.52 
 ;;9002226.02101,"301,79.55 ",.01)
 ;;79.55 
 ;;9002226.02101,"301,79.55 ",.02)
 ;;79.55 
 ;;9002226.02101,"301,79.56 ",.01)
 ;;79.56 
 ;;9002226.02101,"301,79.56 ",.02)
 ;;79.56 
 ;;9002226.02101,"301,79.59 ",.01)
 ;;79.59 
 ;;9002226.02101,"301,79.59 ",.02)
 ;;79.59 
 ;;9002226.02101,"301,79.60 ",.01)
 ;;79.60 
 ;;9002226.02101,"301,79.60 ",.02)
 ;;79.60 
 ;;9002226.02101,"301,79.61 ",.01)
 ;;79.61 
 ;;9002226.02101,"301,79.61 ",.02)
 ;;79.61 
 ;;9002226.02101,"301,79.62 ",.01)
 ;;79.62 
 ;;9002226.02101,"301,79.62 ",.02)
 ;;79.62 
 ;;9002226.02101,"301,79.63 ",.01)
 ;;79.63 
 ;;9002226.02101,"301,79.63 ",.02)
 ;;79.63 
 ;;9002226.02101,"301,79.65 ",.01)
 ;;79.65 
 ;;9002226.02101,"301,79.65 ",.02)
 ;;79.65 
 ;;9002226.02101,"301,79.66 ",.01)
 ;;79.66 
 ;;9002226.02101,"301,79.66 ",.02)
 ;;79.66 
 ;;9002226.02101,"301,79.67 ",.01)
 ;;79.67 
 ;;9002226.02101,"301,79.67 ",.02)
 ;;79.67 
 ;;9002226.02101,"301,79.69 ",.01)
 ;;79.69 
 ;;9002226.02101,"301,79.69 ",.02)
 ;;79.69 
 ;;9002226.02101,"301,79.80 ",.01)
 ;;79.80 
 ;;9002226.02101,"301,79.80 ",.02)
 ;;79.80 
 ;;9002226.02101,"301,79.81 ",.01)
 ;;79.81 
 ;;9002226.02101,"301,79.81 ",.02)
 ;;79.81 
 ;;9002226.02101,"301,79.82 ",.01)
 ;;79.82 
 ;;9002226.02101,"301,79.82 ",.02)
 ;;79.82 
 ;;9002226.02101,"301,79.83 ",.01)
 ;;79.83 
 ;;9002226.02101,"301,79.83 ",.02)
 ;;79.83 
 ;;9002226.02101,"301,79.85 ",.01)
 ;;79.85 
 ;;9002226.02101,"301,79.85 ",.02)
 ;;79.85 
 ;;9002226.02101,"301,79.86 ",.01)
 ;;79.86 
 ;;9002226.02101,"301,79.86 ",.02)
 ;;79.86 
 ;;9002226.02101,"301,79.87 ",.01)
 ;;79.87 
 ;;9002226.02101,"301,79.87 ",.02)
 ;;79.87 
 ;;9002226.02101,"301,79.88 ",.01)
 ;;79.88 
 ;;9002226.02101,"301,79.88 ",.02)
 ;;79.88 
 ;;9002226.02101,"301,79.89 ",.01)
 ;;79.89 
 ;;9002226.02101,"301,79.89 ",.02)
 ;;79.89 
 ;;9002226.02101,"301,80.00 ",.01)
 ;;80.00 
 ;;9002226.02101,"301,80.00 ",.02)
 ;;80.00 
 ;;9002226.02101,"301,80.01 ",.01)
 ;;80.01 
 ;;9002226.02101,"301,80.01 ",.02)
 ;;80.01 
 ;;9002226.02101,"301,80.02 ",.01)
 ;;80.02 
 ;;9002226.02101,"301,80.02 ",.02)
 ;;80.02 
 ;;9002226.02101,"301,80.03 ",.01)
 ;;80.03 
 ;;9002226.02101,"301,80.03 ",.02)
 ;;80.03 
 ;;9002226.02101,"301,80.04 ",.01)
 ;;80.04 
 ;;9002226.02101,"301,80.04 ",.02)
 ;;80.04 
 ;;9002226.02101,"301,80.05 ",.01)
 ;;80.05 
 ;;9002226.02101,"301,80.05 ",.02)
 ;;80.05 
 ;;9002226.02101,"301,80.06 ",.01)
 ;;80.06 
 ;;9002226.02101,"301,80.06 ",.02)
 ;;80.06 
 ;;9002226.02101,"301,80.07 ",.01)
 ;;80.07 
 ;;9002226.02101,"301,80.07 ",.02)
 ;;80.07 
 ;;9002226.02101,"301,80.09 ",.01)
 ;;80.09 
 ;;9002226.02101,"301,80.09 ",.02)
 ;;80.09 
 ;;9002226.02101,"301,80.10 ",.01)
 ;;80.10 
 ;;9002226.02101,"301,80.10 ",.02)
 ;;80.10 
 ;;9002226.02101,"301,80.11 ",.01)
 ;;80.11 
 ;;9002226.02101,"301,80.11 ",.02)
 ;;80.11 
 ;;9002226.02101,"301,80.12 ",.01)
 ;;80.12 
 ;;9002226.02101,"301,80.12 ",.02)
 ;;80.12 
 ;;9002226.02101,"301,80.13 ",.01)
 ;;80.13 
 ;;9002226.02101,"301,80.13 ",.02)
 ;;80.13 
 ;;9002226.02101,"301,80.15 ",.01)
 ;;80.15 
 ;;9002226.02101,"301,80.15 ",.02)
 ;;80.15 
 ;;9002226.02101,"301,80.16 ",.01)
 ;;80.16 
 ;;9002226.02101,"301,80.16 ",.02)
 ;;80.16 
 ;;9002226.02101,"301,80.17 ",.01)
 ;;80.17 
 ;;9002226.02101,"301,80.17 ",.02)
 ;;80.17 
 ;;9002226.02101,"301,80.19 ",.01)
 ;;80.19 
 ;;9002226.02101,"301,80.19 ",.02)
 ;;80.19 
 ;;9002226.02101,"301,80.6 ",.01)
 ;;80.6 
 ;;9002226.02101,"301,80.6 ",.02)
 ;;80.6 
 ;;9002226.02101,"301,80.80 ",.01)
 ;;80.80 
 ;;9002226.02101,"301,80.80 ",.02)
 ;;80.80 
 ;;9002226.02101,"301,80.81 ",.01)
 ;;80.81 
 ;;9002226.02101,"301,80.81 ",.02)
 ;;80.81 
 ;;9002226.02101,"301,80.82 ",.01)
 ;;80.82 
 ;;9002226.02101,"301,80.82 ",.02)
 ;;80.82 
 ;;9002226.02101,"301,80.83 ",.01)
 ;;80.83 
 ;;9002226.02101,"301,80.83 ",.02)
 ;;80.83 
 ;;9002226.02101,"301,80.84 ",.01)
 ;;80.84 
 ;;9002226.02101,"301,80.84 ",.02)
 ;;80.84 
 ;;9002226.02101,"301,80.85 ",.01)
 ;;80.85 
 ;;9002226.02101,"301,80.85 ",.02)
 ;;80.85 
 ;;9002226.02101,"301,80.86 ",.01)
 ;;80.86 
 ;;9002226.02101,"301,80.86 ",.02)
 ;;80.86 
 ;;9002226.02101,"301,80.87 ",.01)
 ;;80.87 
 ;;9002226.02101,"301,80.87 ",.02)
 ;;80.87 
 ;;9002226.02101,"301,80.88 ",.01)
 ;;80.88 
 ;;9002226.02101,"301,80.88 ",.02)
 ;;80.88 
 ;;9002226.02101,"301,80.89 ",.01)
 ;;80.89 
 ;;9002226.02101,"301,80.89 ",.02)
 ;;80.89 
 ;;9002226.02101,"301,80.90 ",.01)
 ;;80.90 
 ;;9002226.02101,"301,80.90 ",.02)
 ;;80.90 
 ;;9002226.02101,"301,80.91 ",.01)
 ;;80.91 
 ;;9002226.02101,"301,80.91 ",.02)
 ;;80.91 
 ;;9002226.02101,"301,80.92 ",.01)
 ;;80.92 
 ;;9002226.02101,"301,80.92 ",.02)
 ;;80.92 
 ;;9002226.02101,"301,80.93 ",.01)
 ;;80.93 
 ;;9002226.02101,"301,80.93 ",.02)
 ;;80.93 
 ;;9002226.02101,"301,80.94 ",.01)
 ;;80.94 
 ;;9002226.02101,"301,80.94 ",.02)
 ;;80.94 
 ;;9002226.02101,"301,80.95 ",.01)
 ;;80.95 
 ;;9002226.02101,"301,80.95 ",.02)
 ;;80.95 
 ;;9002226.02101,"301,80.96 ",.01)
 ;;80.96 
 ;;9002226.02101,"301,80.96 ",.02)
 ;;80.96 
 ;;9002226.02101,"301,80.97 ",.01)
 ;;80.97 
 ;;9002226.02101,"301,80.97 ",.02)
 ;;80.97 
 ;;9002226.02101,"301,80.98 ",.01)
 ;;80.98 
 ;;9002226.02101,"301,80.98 ",.02)
 ;;80.98 
 ;;9002226.02101,"301,80.99 ",.01)
 ;;80.99 
 ;;9002226.02101,"301,80.99 ",.02)
 ;;80.99 
 ;;9002226.02101,"301,81.00 ",.01)
 ;;81.00 
 ;;9002226.02101,"301,81.00 ",.02)
 ;;81.00 
 ;;9002226.02101,"301,81.01 ",.01)
 ;;81.01 
 ;;9002226.02101,"301,81.01 ",.02)
 ;;81.01 
 ;;9002226.02101,"301,81.02 ",.01)
 ;;81.02 
 ;;9002226.02101,"301,81.02 ",.02)
 ;;81.02 
 ;;9002226.02101,"301,81.03 ",.01)
 ;;81.03 
 ;;9002226.02101,"301,81.03 ",.02)
 ;;81.03 
 ;;9002226.02101,"301,81.04 ",.01)
 ;;81.04 
 ;;9002226.02101,"301,81.04 ",.02)
 ;;81.04 
 ;;9002226.02101,"301,81.05 ",.01)
 ;;81.05 
 ;;9002226.02101,"301,81.05 ",.02)
 ;;81.05 
 ;;9002226.02101,"301,81.06 ",.01)
 ;;81.06 
 ;;9002226.02101,"301,81.06 ",.02)
 ;;81.06 
 ;;9002226.02101,"301,81.07 ",.01)
 ;;81.07 
 ;;9002226.02101,"301,81.07 ",.02)
 ;;81.07 
 ;;9002226.02101,"301,81.08 ",.01)
 ;;81.08 
 ;;9002226.02101,"301,81.08 ",.02)
 ;;81.08 
 ;;9002226.02101,"301,81.11 ",.01)
 ;;81.11 
 ;;9002226.02101,"301,81.11 ",.02)
 ;;81.11 
 ;;9002226.02101,"301,81.12 ",.01)
 ;;81.12 
 ;;9002226.02101,"301,81.12 ",.02)
 ;;81.12 
 ;;9002226.02101,"301,81.13 ",.01)
 ;;81.13 
 ;;9002226.02101,"301,81.13 ",.02)
 ;;81.13 
 ;;9002226.02101,"301,81.14 ",.01)
 ;;81.14 
 ;;9002226.02101,"301,81.14 ",.02)
 ;;81.14 
 ;;9002226.02101,"301,81.15 ",.01)
 ;;81.15 
 ;;9002226.02101,"301,81.15 ",.02)
 ;;81.15 
 ;;9002226.02101,"301,81.16 ",.01)
 ;;81.16 
 ;;9002226.02101,"301,81.16 ",.02)
 ;;81.16 
 ;;9002226.02101,"301,81.17 ",.01)
 ;;81.17 
 ;;9002226.02101,"301,81.17 ",.02)
 ;;81.17 
 ;;9002226.02101,"301,81.20 ",.01)
 ;;81.20 
 ;;9002226.02101,"301,81.20 ",.02)
 ;;81.20 
 ;;9002226.02101,"301,81.21 ",.01)
 ;;81.21 
 ;;9002226.02101,"301,81.21 ",.02)
 ;;81.21 
 ;;9002226.02101,"301,81.22 ",.01)
 ;;81.22 
 ;;9002226.02101,"301,81.22 ",.02)
 ;;81.22 
 ;;9002226.02101,"301,81.23 ",.01)
 ;;81.23 
 ;;9002226.02101,"301,81.23 ",.02)
 ;;81.23 
 ;;9002226.02101,"301,81.24 ",.01)
 ;;81.24 
 ;;9002226.02101,"301,81.24 ",.02)
 ;;81.24 
 ;;9002226.02101,"301,81.25 ",.01)
 ;;81.25 
 ;;9002226.02101,"301,81.25 ",.02)
 ;;81.25 
 ;;9002226.02101,"301,81.26 ",.01)
 ;;81.26 
 ;;9002226.02101,"301,81.26 ",.02)
 ;;81.26 
 ;;9002226.02101,"301,81.27 ",.01)
 ;;81.27 
 ;;9002226.02101,"301,81.27 ",.02)
 ;;81.27 
 ;;9002226.02101,"301,81.28 ",.01)
 ;;81.28 
 ;;9002226.02101,"301,81.28 ",.02)
 ;;81.28 
 ;;9002226.02101,"301,81.29 ",.01)
 ;;81.29 
 ;;9002226.02101,"301,81.29 ",.02)
 ;;81.29 
 ;;9002226.02101,"301,81.30 ",.01)
 ;;81.30 
 ;;9002226.02101,"301,81.30 ",.02)
 ;;81.30 
 ;;9002226.02101,"301,81.31 ",.01)
 ;;81.31 
 ;;9002226.02101,"301,81.31 ",.02)
 ;;81.31 
 ;;9002226.02101,"301,81.32 ",.01)
 ;;81.32 
 ;;9002226.02101,"301,81.32 ",.02)
 ;;81.32 
 ;;9002226.02101,"301,81.33 ",.01)
 ;;81.33 
 ;;9002226.02101,"301,81.33 ",.02)
 ;;81.33 
 ;;9002226.02101,"301,81.34 ",.01)
 ;;81.34 
 ;;9002226.02101,"301,81.34 ",.02)
 ;;81.34 
 ;;9002226.02101,"301,81.35 ",.01)
 ;;81.35 
 ;;9002226.02101,"301,81.35 ",.02)
 ;;81.35 
 ;;9002226.02101,"301,81.36 ",.01)
 ;;81.36 
 ;;9002226.02101,"301,81.36 ",.02)
 ;;81.36 
 ;;9002226.02101,"301,81.37 ",.01)
 ;;81.37 
 ;;9002226.02101,"301,81.37 ",.02)
 ;;81.37 
 ;;9002226.02101,"301,81.38 ",.01)
 ;;81.38 
 ;;9002226.02101,"301,81.38 ",.02)
 ;;81.38 
 ;;9002226.02101,"301,81.39 ",.01)
 ;;81.39 
 ;;9002226.02101,"301,81.39 ",.02)
 ;;81.39 
 ;;9002226.02101,"301,81.40 ",.01)
 ;;81.40 
 ;;9002226.02101,"301,81.40 ",.02)
 ;;81.40 
 ;;9002226.02101,"301,81.42 ",.01)
 ;;81.42 
 ;;9002226.02101,"301,81.42 ",.02)
 ;;81.42 
 ;;9002226.02101,"301,81.43 ",.01)
 ;;81.43 
 ;;9002226.02101,"301,81.43 ",.02)
 ;;81.43 
 ;;9002226.02101,"301,81.44 ",.01)
 ;;81.44