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

BGP8CXRJ.m

Go to the documentation of this file.
BGP8CXRJ ; 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,81.44 ",.02)
 ;;81.44 
 ;;9002226.02101,"301,81.45 ",.01)
 ;;81.45 
 ;;9002226.02101,"301,81.45 ",.02)
 ;;81.45 
 ;;9002226.02101,"301,81.46 ",.01)
 ;;81.46 
 ;;9002226.02101,"301,81.46 ",.02)
 ;;81.46 
 ;;9002226.02101,"301,81.47 ",.01)
 ;;81.47 
 ;;9002226.02101,"301,81.47 ",.02)
 ;;81.47 
 ;;9002226.02101,"301,81.49 ",.01)
 ;;81.49 
 ;;9002226.02101,"301,81.49 ",.02)
 ;;81.49 
 ;;9002226.02101,"301,81.51 ",.01)
 ;;81.51 
 ;;9002226.02101,"301,81.51 ",.02)
 ;;81.51 
 ;;9002226.02101,"301,81.52 ",.01)
 ;;81.52 
 ;;9002226.02101,"301,81.52 ",.02)
 ;;81.52 
 ;;9002226.02101,"301,81.53 ",.01)
 ;;81.53 
 ;;9002226.02101,"301,81.53 ",.02)
 ;;81.53 
 ;;9002226.02101,"301,81.54 ",.01)
 ;;81.54 
 ;;9002226.02101,"301,81.54 ",.02)
 ;;81.54 
 ;;9002226.02101,"301,81.55 ",.01)
 ;;81.55 
 ;;9002226.02101,"301,81.55 ",.02)
 ;;81.55 
 ;;9002226.02101,"301,81.56 ",.01)
 ;;81.56 
 ;;9002226.02101,"301,81.56 ",.02)
 ;;81.56 
 ;;9002226.02101,"301,81.57 ",.01)
 ;;81.57 
 ;;9002226.02101,"301,81.57 ",.02)
 ;;81.57 
 ;;9002226.02101,"301,81.59 ",.01)
 ;;81.59 
 ;;9002226.02101,"301,81.59 ",.02)
 ;;81.59 
 ;;9002226.02101,"301,81.80 ",.01)
 ;;81.80 
 ;;9002226.02101,"301,81.80 ",.02)
 ;;81.80 
 ;;9002226.02101,"301,81.81 ",.01)
 ;;81.81 
 ;;9002226.02101,"301,81.81 ",.02)
 ;;81.81 
 ;;9002226.02101,"301,81.82 ",.01)
 ;;81.82 
 ;;9002226.02101,"301,81.82 ",.02)
 ;;81.82 
 ;;9002226.02101,"301,81.83 ",.01)
 ;;81.83 
 ;;9002226.02101,"301,81.83 ",.02)
 ;;81.83 
 ;;9002226.02101,"301,81.84 ",.01)
 ;;81.84 
 ;;9002226.02101,"301,81.84 ",.02)
 ;;81.84 
 ;;9002226.02101,"301,81.85 ",.01)
 ;;81.85 
 ;;9002226.02101,"301,81.85 ",.02)
 ;;81.85 
 ;;9002226.02101,"301,81.93 ",.01)
 ;;81.93 
 ;;9002226.02101,"301,81.93 ",.02)
 ;;81.93 
 ;;9002226.02101,"301,81.94 ",.01)
 ;;81.94 
 ;;9002226.02101,"301,81.94 ",.02)
 ;;81.94 
 ;;9002226.02101,"301,81.95 ",.01)
 ;;81.95 
 ;;9002226.02101,"301,81.95 ",.02)
 ;;81.95 
 ;;9002226.02101,"301,81.96 ",.01)
 ;;81.96 
 ;;9002226.02101,"301,81.96 ",.02)
 ;;81.96 
 ;;9002226.02101,"301,81.97 ",.01)
 ;;81.97 
 ;;9002226.02101,"301,81.97 ",.02)
 ;;81.97 
 ;;9002226.02101,"301,81.98 ",.01)
 ;;81.98 
 ;;9002226.02101,"301,81.98 ",.02)
 ;;81.98 
 ;;9002226.02101,"301,81.99 ",.01)
 ;;81.99 
 ;;9002226.02101,"301,81.99 ",.02)
 ;;81.99 
 ;;9002226.02101,"301,82.61 ",.01)
 ;;82.61 
 ;;9002226.02101,"301,82.61 ",.02)
 ;;82.61 
 ;;9002226.02101,"301,82.81 ",.01)
 ;;82.81 
 ;;9002226.02101,"301,82.81 ",.02)
 ;;82.81 
 ;;9002226.02101,"301,83.32 ",.01)
 ;;83.32 
 ;;9002226.02101,"301,83.32 ",.02)
 ;;83.32 
 ;;9002226.02101,"301,83.39 ",.01)
 ;;83.39 
 ;;9002226.02101,"301,83.39 ",.02)
 ;;83.39 
 ;;9002226.02101,"301,83.5 ",.01)
 ;;83.5 
 ;;9002226.02101,"301,83.5 ",.02)
 ;;83.5 
 ;;9002226.02101,"301,83.61 ",.01)
 ;;83.61 
 ;;9002226.02101,"301,83.61 ",.02)
 ;;83.61 
 ;;9002226.02101,"301,83.62 ",.01)
 ;;83.62 
 ;;9002226.02101,"301,83.62 ",.02)
 ;;83.62 
 ;;9002226.02101,"301,83.63 ",.01)
 ;;83.63 
 ;;9002226.02101,"301,83.63 ",.02)
 ;;83.63 
 ;;9002226.02101,"301,83.64 ",.01)
 ;;83.64 
 ;;9002226.02101,"301,83.64 ",.02)
 ;;83.64 
 ;;9002226.02101,"301,83.65 ",.01)
 ;;83.65 
 ;;9002226.02101,"301,83.65 ",.02)
 ;;83.65 
 ;;9002226.02101,"301,83.71 ",.01)
 ;;83.71 
 ;;9002226.02101,"301,83.71 ",.02)
 ;;83.71 
 ;;9002226.02101,"301,83.72 ",.01)
 ;;83.72 
 ;;9002226.02101,"301,83.72 ",.02)
 ;;83.72 
 ;;9002226.02101,"301,83.73 ",.01)
 ;;83.73 
 ;;9002226.02101,"301,83.73 ",.02)
 ;;83.73 
 ;;9002226.02101,"301,83.74 ",.01)
 ;;83.74 
 ;;9002226.02101,"301,83.74 ",.02)
 ;;83.74 
 ;;9002226.02101,"301,83.75 ",.01)
 ;;83.75 
 ;;9002226.02101,"301,83.75 ",.02)
 ;;83.75 
 ;;9002226.02101,"301,83.76 ",.01)
 ;;83.76 
 ;;9002226.02101,"301,83.76 ",.02)
 ;;83.76 
 ;;9002226.02101,"301,83.77 ",.01)
 ;;83.77 
 ;;9002226.02101,"301,83.77 ",.02)
 ;;83.77 
 ;;9002226.02101,"301,83.79 ",.01)
 ;;83.79 
 ;;9002226.02101,"301,83.79 ",.02)
 ;;83.79 
 ;;9002226.02101,"301,83.81 ",.01)
 ;;83.81 
 ;;9002226.02101,"301,83.81 ",.02)
 ;;83.81 
 ;;9002226.02101,"301,83.82 ",.01)
 ;;83.82 
 ;;9002226.02101,"301,83.82 ",.02)
 ;;83.82 
 ;;9002226.02101,"301,83.83 ",.01)
 ;;83.83 
 ;;9002226.02101,"301,83.83 ",.02)
 ;;83.83 
 ;;9002226.02101,"301,83.84 ",.01)
 ;;83.84 
 ;;9002226.02101,"301,83.84 ",.02)
 ;;83.84 
 ;;9002226.02101,"301,83.85 ",.01)
 ;;83.85 
 ;;9002226.02101,"301,83.85 ",.02)
 ;;83.85 
 ;;9002226.02101,"301,83.86 ",.01)
 ;;83.86 
 ;;9002226.02101,"301,83.86 ",.02)
 ;;83.86 
 ;;9002226.02101,"301,83.87 ",.01)
 ;;83.87 
 ;;9002226.02101,"301,83.87 ",.02)
 ;;83.87 
 ;;9002226.02101,"301,83.88 ",.01)
 ;;83.88 
 ;;9002226.02101,"301,83.88 ",.02)
 ;;83.88 
 ;;9002226.02101,"301,83.89 ",.01)
 ;;83.89 
 ;;9002226.02101,"301,83.89 ",.02)
 ;;83.89 
 ;;9002226.02101,"301,83.91 ",.01)
 ;;83.91 
 ;;9002226.02101,"301,83.91 ",.02)
 ;;83.91 
 ;;9002226.02101,"301,83.99 ",.01)
 ;;83.99 
 ;;9002226.02101,"301,83.99 ",.02)
 ;;83.99 
 ;;9002226.02101,"301,84.00 ",.01)
 ;;84.00 
 ;;9002226.02101,"301,84.00 ",.02)
 ;;84.00 
 ;;9002226.02101,"301,84.03 ",.01)
 ;;84.03 
 ;;9002226.02101,"301,84.03 ",.02)
 ;;84.03 
 ;;9002226.02101,"301,84.04 ",.01)
 ;;84.04 
 ;;9002226.02101,"301,84.04 ",.02)
 ;;84.04 
 ;;9002226.02101,"301,84.05 ",.01)
 ;;84.05 
 ;;9002226.02101,"301,84.05 ",.02)
 ;;84.05 
 ;;9002226.02101,"301,84.06 ",.01)
 ;;84.06 
 ;;9002226.02101,"301,84.06 ",.02)
 ;;84.06 
 ;;9002226.02101,"301,84.07 ",.01)
 ;;84.07 
 ;;9002226.02101,"301,84.07 ",.02)
 ;;84.07 
 ;;9002226.02101,"301,84.08 ",.01)
 ;;84.08 
 ;;9002226.02101,"301,84.08 ",.02)
 ;;84.08 
 ;;9002226.02101,"301,84.09 ",.01)
 ;;84.09 
 ;;9002226.02101,"301,84.09 ",.02)
 ;;84.09 
 ;;9002226.02101,"301,84.10 ",.01)
 ;;84.10 
 ;;9002226.02101,"301,84.10 ",.02)
 ;;84.10 
 ;;9002226.02101,"301,84.12 ",.01)
 ;;84.12 
 ;;9002226.02101,"301,84.12 ",.02)
 ;;84.12 
 ;;9002226.02101,"301,84.13 ",.01)
 ;;84.13 
 ;;9002226.02101,"301,84.13 ",.02)
 ;;84.13 
 ;;9002226.02101,"301,84.14 ",.01)
 ;;84.14 
 ;;9002226.02101,"301,84.14 ",.02)
 ;;84.14 
 ;;9002226.02101,"301,84.15 ",.01)
 ;;84.15 
 ;;9002226.02101,"301,84.15 ",.02)
 ;;84.15 
 ;;9002226.02101,"301,84.16 ",.01)
 ;;84.16 
 ;;9002226.02101,"301,84.16 ",.02)
 ;;84.16 
 ;;9002226.02101,"301,84.17 ",.01)
 ;;84.17 
 ;;9002226.02101,"301,84.17 ",.02)
 ;;84.17 
 ;;9002226.02101,"301,84.18 ",.01)
 ;;84.18 
 ;;9002226.02101,"301,84.18 ",.02)
 ;;84.18 
 ;;9002226.02101,"301,84.19 ",.01)
 ;;84.19 
 ;;9002226.02101,"301,84.19 ",.02)
 ;;84.19 
 ;;9002226.02101,"301,84.22 ",.01)
 ;;84.22 
 ;;9002226.02101,"301,84.22 ",.02)
 ;;84.22 
 ;;9002226.02101,"301,84.23 ",.01)
 ;;84.23 
 ;;9002226.02101,"301,84.23 ",.02)
 ;;84.23 
 ;;9002226.02101,"301,84.24 ",.01)
 ;;84.24 
 ;;9002226.02101,"301,84.24 ",.02)
 ;;84.24 
 ;;9002226.02101,"301,84.25 ",.01)
 ;;84.25 
 ;;9002226.02101,"301,84.25 ",.02)
 ;;84.25 
 ;;9002226.02101,"301,84.26 ",.01)
 ;;84.26 
 ;;9002226.02101,"301,84.26 ",.02)
 ;;84.26 
 ;;9002226.02101,"301,84.27 ",.01)
 ;;84.27 
 ;;9002226.02101,"301,84.27 ",.02)
 ;;84.27 
 ;;9002226.02101,"301,84.28 ",.01)
 ;;84.28 
 ;;9002226.02101,"301,84.28 ",.02)
 ;;84.28 
 ;;9002226.02101,"301,84.29 ",.01)
 ;;84.29 
 ;;9002226.02101,"301,84.29 ",.02)
 ;;84.29 
 ;;9002226.02101,"301,84.3 ",.01)
 ;;84.3 
 ;;9002226.02101,"301,84.3 ",.02)
 ;;84.3 
 ;;9002226.02101,"301,84.58 ",.01)
 ;;84.58 
 ;;9002226.02101,"301,84.58 ",.02)
 ;;84.58 
 ;;9002226.02101,"301,85.22 ",.01)
 ;;85.22 
 ;;9002226.02101,"301,85.22 ",.02)
 ;;85.22 
 ;;9002226.02101,"301,85.23 ",.01)
 ;;85.23 
 ;;9002226.02101,"301,85.23 ",.02)
 ;;85.23 
 ;;9002226.02101,"301,85.31 ",.01)
 ;;85.31 
 ;;9002226.02101,"301,85.31 ",.02)
 ;;85.31 
 ;;9002226.02101,"301,85.32 ",.01)
 ;;85.32 
 ;;9002226.02101,"301,85.32 ",.02)
 ;;85.32 
 ;;9002226.02101,"301,85.33 ",.01)
 ;;85.33 
 ;;9002226.02101,"301,85.33 ",.02)
 ;;85.33 
 ;;9002226.02101,"301,85.34 ",.01)
 ;;85.34 
 ;;9002226.02101,"301,85.34 ",.02)
 ;;85.34 
 ;;9002226.02101,"301,85.35 ",.01)
 ;;85.35 
 ;;9002226.02101,"301,85.35 ",.02)
 ;;85.35 
 ;;9002226.02101,"301,85.36 ",.01)
 ;;85.36 
 ;;9002226.02101,"301,85.36 ",.02)
 ;;85.36 
 ;;9002226.02101,"301,85.41 ",.01)
 ;;85.41 
 ;;9002226.02101,"301,85.41 ",.02)
 ;;85.41 
 ;;9002226.02101,"301,85.42 ",.01)
 ;;85.42 
 ;;9002226.02101,"301,85.42 ",.02)
 ;;85.42 
 ;;9002226.02101,"301,85.43 ",.01)
 ;;85.43 
 ;;9002226.02101,"301,85.43 ",.02)
 ;;85.43 
 ;;9002226.02101,"301,85.44 ",.01)
 ;;85.44 
 ;;9002226.02101,"301,85.44 ",.02)
 ;;85.44 
 ;;9002226.02101,"301,85.45 ",.01)
 ;;85.45 
 ;;9002226.02101,"301,85.45 ",.02)
 ;;85.45 
 ;;9002226.02101,"301,85.46 ",.01)
 ;;85.46 
 ;;9002226.02101,"301,85.46 ",.02)
 ;;85.46 
 ;;9002226.02101,"301,85.47 ",.01)
 ;;85.47 
 ;;9002226.02101,"301,85.47 ",.02)
 ;;85.47 
 ;;9002226.02101,"301,85.48 ",.01)
 ;;85.48 
 ;;9002226.02101,"301,85.48 ",.02)
 ;;85.48 
 ;;9002226.02101,"301,85.50 ",.01)
 ;;85.50 
 ;;9002226.02101,"301,85.50 ",.02)
 ;;85.50 
 ;;9002226.02101,"301,85.53 ",.01)
 ;;85.53 
 ;;9002226.02101,"301,85.53 ",.02)
 ;;85.53 
 ;;9002226.02101,"301,85.54 ",.01)
 ;;85.54 
 ;;9002226.02101,"301,85.54 ",.02)
 ;;85.54 
 ;;9002226.02101,"301,85.6 ",.01)
 ;;85.6 
 ;;9002226.02101,"301,85.6 ",.02)
 ;;85.6 
 ;;9002226.02101,"301,85.7 ",.01)
 ;;85.7 
 ;;9002226.02101,"301,85.7 ",.02)
 ;;85.7 
 ;;9002226.02101,"301,85.93 ",.01)
 ;;85.93 
 ;;9002226.02101,"301,85.93 ",.02)
 ;;85.93 
 ;;9002226.02101,"301,85.94 ",.01)
 ;;85.94 
 ;;9002226.02101,"301,85.94 ",.02)
 ;;85.94 
 ;;9002226.02101,"301,85.95 ",.01)
 ;;85.95 
 ;;9002226.02101,"301,85.95 ",.02)
 ;;85.95 
 ;;9002226.02101,"301,85.96 ",.01)
 ;;85.96 
 ;;9002226.02101,"301,85.96 ",.02)
 ;;85.96 
 ;;9002226.02101,"301,86.4 ",.01)
 ;;86.4 
 ;;9002226.02101,"301,86.4 ",.02)
 ;;86.4 
 ;;9002226.02101,"301,86.70 ",.01)
 ;;86.70 
 ;;9002226.02101,"301,86.70 ",.02)
 ;;86.70 
 ;;9002226.02101,"301,86.71 ",.01)
 ;;86.71 
 ;;9002226.02101,"301,86.71 ",.02)
 ;;86.71 
 ;;9002226.02101,"301,86.72 ",.01)
 ;;86.72 
 ;;9002226.02101,"301,86.72 ",.02)
 ;;86.72 
 ;;9002226.02101,"301,86.73 ",.01)
 ;;86.73 
 ;;9002226.02101,"301,86.73 ",.02)
 ;;86.73 
 ;;9002226.02101,"301,86.74 ",.01)
 ;;86.74 
 ;;9002226.02101,"301,86.74 ",.02)
 ;;86.74 
 ;;9002226.02101,"301,86.75 ",.01)
 ;;86.75 
 ;;9002226.02101,"301,86.75 ",.02)
 ;;86.75