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

BGP8CXME.m

Go to the documentation of this file.
BGP8CXME ; 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,"692,012.11 ",.01)
 ;;012.11 
 ;;9002226.02101,"692,012.11 ",.02)
 ;;012.11 
 ;;9002226.02101,"692,012.12 ",.01)
 ;;012.12 
 ;;9002226.02101,"692,012.12 ",.02)
 ;;012.12 
 ;;9002226.02101,"692,012.13 ",.01)
 ;;012.13 
 ;;9002226.02101,"692,012.13 ",.02)
 ;;012.13 
 ;;9002226.02101,"692,012.14 ",.01)
 ;;012.14 
 ;;9002226.02101,"692,012.14 ",.02)
 ;;012.14 
 ;;9002226.02101,"692,012.15 ",.01)
 ;;012.15 
 ;;9002226.02101,"692,012.15 ",.02)
 ;;012.15 
 ;;9002226.02101,"692,012.16 ",.01)
 ;;012.16 
 ;;9002226.02101,"692,012.16 ",.02)
 ;;012.16 
 ;;9002226.02101,"692,012.20 ",.01)
 ;;012.20 
 ;;9002226.02101,"692,012.20 ",.02)
 ;;012.20 
 ;;9002226.02101,"692,012.21 ",.01)
 ;;012.21 
 ;;9002226.02101,"692,012.21 ",.02)
 ;;012.21 
 ;;9002226.02101,"692,012.22 ",.01)
 ;;012.22 
 ;;9002226.02101,"692,012.22 ",.02)
 ;;012.22 
 ;;9002226.02101,"692,012.23 ",.01)
 ;;012.23 
 ;;9002226.02101,"692,012.23 ",.02)
 ;;012.23 
 ;;9002226.02101,"692,012.24 ",.01)
 ;;012.24 
 ;;9002226.02101,"692,012.24 ",.02)
 ;;012.24 
 ;;9002226.02101,"692,012.25 ",.01)
 ;;012.25 
 ;;9002226.02101,"692,012.25 ",.02)
 ;;012.25 
 ;;9002226.02101,"692,012.26 ",.01)
 ;;012.26 
 ;;9002226.02101,"692,012.26 ",.02)
 ;;012.26 
 ;;9002226.02101,"692,012.30 ",.01)
 ;;012.30 
 ;;9002226.02101,"692,012.30 ",.02)
 ;;012.30 
 ;;9002226.02101,"692,012.31 ",.01)
 ;;012.31 
 ;;9002226.02101,"692,012.31 ",.02)
 ;;012.31 
 ;;9002226.02101,"692,012.32 ",.01)
 ;;012.32 
 ;;9002226.02101,"692,012.32 ",.02)
 ;;012.32 
 ;;9002226.02101,"692,012.33 ",.01)
 ;;012.33 
 ;;9002226.02101,"692,012.33 ",.02)
 ;;012.33 
 ;;9002226.02101,"692,012.34 ",.01)
 ;;012.34 
 ;;9002226.02101,"692,012.34 ",.02)
 ;;012.34 
 ;;9002226.02101,"692,012.35 ",.01)
 ;;012.35 
 ;;9002226.02101,"692,012.35 ",.02)
 ;;012.35 
 ;;9002226.02101,"692,012.36 ",.01)
 ;;012.36 
 ;;9002226.02101,"692,012.36 ",.02)
 ;;012.36 
 ;;9002226.02101,"692,012.80 ",.01)
 ;;012.80 
 ;;9002226.02101,"692,012.80 ",.02)
 ;;012.80 
 ;;9002226.02101,"692,012.81 ",.01)
 ;;012.81 
 ;;9002226.02101,"692,012.81 ",.02)
 ;;012.81 
 ;;9002226.02101,"692,012.82 ",.01)
 ;;012.82 
 ;;9002226.02101,"692,012.82 ",.02)
 ;;012.82 
 ;;9002226.02101,"692,012.83 ",.01)
 ;;012.83 
 ;;9002226.02101,"692,012.83 ",.02)
 ;;012.83 
 ;;9002226.02101,"692,012.84 ",.01)
 ;;012.84 
 ;;9002226.02101,"692,012.84 ",.02)
 ;;012.84 
 ;;9002226.02101,"692,012.85 ",.01)
 ;;012.85 
 ;;9002226.02101,"692,012.85 ",.02)
 ;;012.85 
 ;;9002226.02101,"692,012.86 ",.01)
 ;;012.86 
 ;;9002226.02101,"692,012.86 ",.02)
 ;;012.86 
 ;;9002226.02101,"692,013.00 ",.01)
 ;;013.00 
 ;;9002226.02101,"692,013.00 ",.02)
 ;;013.00 
 ;;9002226.02101,"692,013.01 ",.01)
 ;;013.01 
 ;;9002226.02101,"692,013.01 ",.02)
 ;;013.01 
 ;;9002226.02101,"692,013.02 ",.01)
 ;;013.02 
 ;;9002226.02101,"692,013.02 ",.02)
 ;;013.02 
 ;;9002226.02101,"692,013.03 ",.01)
 ;;013.03 
 ;;9002226.02101,"692,013.03 ",.02)
 ;;013.03 
 ;;9002226.02101,"692,013.04 ",.01)
 ;;013.04 
 ;;9002226.02101,"692,013.04 ",.02)
 ;;013.04 
 ;;9002226.02101,"692,013.05 ",.01)
 ;;013.05 
 ;;9002226.02101,"692,013.05 ",.02)
 ;;013.05 
 ;;9002226.02101,"692,013.06 ",.01)
 ;;013.06 
 ;;9002226.02101,"692,013.06 ",.02)
 ;;013.06 
 ;;9002226.02101,"692,013.10 ",.01)
 ;;013.10 
 ;;9002226.02101,"692,013.10 ",.02)
 ;;013.10 
 ;;9002226.02101,"692,013.11 ",.01)
 ;;013.11 
 ;;9002226.02101,"692,013.11 ",.02)
 ;;013.11 
 ;;9002226.02101,"692,013.12 ",.01)
 ;;013.12 
 ;;9002226.02101,"692,013.12 ",.02)
 ;;013.12 
 ;;9002226.02101,"692,013.13 ",.01)
 ;;013.13 
 ;;9002226.02101,"692,013.13 ",.02)
 ;;013.13 
 ;;9002226.02101,"692,013.14 ",.01)
 ;;013.14 
 ;;9002226.02101,"692,013.14 ",.02)
 ;;013.14 
 ;;9002226.02101,"692,013.15 ",.01)
 ;;013.15 
 ;;9002226.02101,"692,013.15 ",.02)
 ;;013.15 
 ;;9002226.02101,"692,013.16 ",.01)
 ;;013.16 
 ;;9002226.02101,"692,013.16 ",.02)
 ;;013.16 
 ;;9002226.02101,"692,013.20 ",.01)
 ;;013.20 
 ;;9002226.02101,"692,013.20 ",.02)
 ;;013.20 
 ;;9002226.02101,"692,013.21 ",.01)
 ;;013.21 
 ;;9002226.02101,"692,013.21 ",.02)
 ;;013.21 
 ;;9002226.02101,"692,013.22 ",.01)
 ;;013.22 
 ;;9002226.02101,"692,013.22 ",.02)
 ;;013.22 
 ;;9002226.02101,"692,013.23 ",.01)
 ;;013.23 
 ;;9002226.02101,"692,013.23 ",.02)
 ;;013.23 
 ;;9002226.02101,"692,013.24 ",.01)
 ;;013.24 
 ;;9002226.02101,"692,013.24 ",.02)
 ;;013.24 
 ;;9002226.02101,"692,013.25 ",.01)
 ;;013.25 
 ;;9002226.02101,"692,013.25 ",.02)
 ;;013.25 
 ;;9002226.02101,"692,013.26 ",.01)
 ;;013.26 
 ;;9002226.02101,"692,013.26 ",.02)
 ;;013.26 
 ;;9002226.02101,"692,013.30 ",.01)
 ;;013.30 
 ;;9002226.02101,"692,013.30 ",.02)
 ;;013.30 
 ;;9002226.02101,"692,013.31 ",.01)
 ;;013.31 
 ;;9002226.02101,"692,013.31 ",.02)
 ;;013.31 
 ;;9002226.02101,"692,013.32 ",.01)
 ;;013.32 
 ;;9002226.02101,"692,013.32 ",.02)
 ;;013.32 
 ;;9002226.02101,"692,013.33 ",.01)
 ;;013.33 
 ;;9002226.02101,"692,013.33 ",.02)
 ;;013.33 
 ;;9002226.02101,"692,013.34 ",.01)
 ;;013.34 
 ;;9002226.02101,"692,013.34 ",.02)
 ;;013.34 
 ;;9002226.02101,"692,013.35 ",.01)
 ;;013.35 
 ;;9002226.02101,"692,013.35 ",.02)
 ;;013.35 
 ;;9002226.02101,"692,013.36 ",.01)
 ;;013.36 
 ;;9002226.02101,"692,013.36 ",.02)
 ;;013.36 
 ;;9002226.02101,"692,013.40 ",.01)
 ;;013.40 
 ;;9002226.02101,"692,013.40 ",.02)
 ;;013.40 
 ;;9002226.02101,"692,013.41 ",.01)
 ;;013.41 
 ;;9002226.02101,"692,013.41 ",.02)
 ;;013.41 
 ;;9002226.02101,"692,013.42 ",.01)
 ;;013.42 
 ;;9002226.02101,"692,013.42 ",.02)
 ;;013.42 
 ;;9002226.02101,"692,013.43 ",.01)
 ;;013.43 
 ;;9002226.02101,"692,013.43 ",.02)
 ;;013.43 
 ;;9002226.02101,"692,013.44 ",.01)
 ;;013.44 
 ;;9002226.02101,"692,013.44 ",.02)
 ;;013.44 
 ;;9002226.02101,"692,013.45 ",.01)
 ;;013.45 
 ;;9002226.02101,"692,013.45 ",.02)
 ;;013.45 
 ;;9002226.02101,"692,013.46 ",.01)
 ;;013.46 
 ;;9002226.02101,"692,013.46 ",.02)
 ;;013.46 
 ;;9002226.02101,"692,013.50 ",.01)
 ;;013.50 
 ;;9002226.02101,"692,013.50 ",.02)
 ;;013.50 
 ;;9002226.02101,"692,013.51 ",.01)
 ;;013.51 
 ;;9002226.02101,"692,013.51 ",.02)
 ;;013.51 
 ;;9002226.02101,"692,013.52 ",.01)
 ;;013.52 
 ;;9002226.02101,"692,013.52 ",.02)
 ;;013.52 
 ;;9002226.02101,"692,013.53 ",.01)
 ;;013.53 
 ;;9002226.02101,"692,013.53 ",.02)
 ;;013.53 
 ;;9002226.02101,"692,013.54 ",.01)
 ;;013.54 
 ;;9002226.02101,"692,013.54 ",.02)
 ;;013.54 
 ;;9002226.02101,"692,013.55 ",.01)
 ;;013.55 
 ;;9002226.02101,"692,013.55 ",.02)
 ;;013.55 
 ;;9002226.02101,"692,013.56 ",.01)
 ;;013.56 
 ;;9002226.02101,"692,013.56 ",.02)
 ;;013.56 
 ;;9002226.02101,"692,013.60 ",.01)
 ;;013.60 
 ;;9002226.02101,"692,013.60 ",.02)
 ;;013.60 
 ;;9002226.02101,"692,013.61 ",.01)
 ;;013.61 
 ;;9002226.02101,"692,013.61 ",.02)
 ;;013.61 
 ;;9002226.02101,"692,013.62 ",.01)
 ;;013.62 
 ;;9002226.02101,"692,013.62 ",.02)
 ;;013.62 
 ;;9002226.02101,"692,013.63 ",.01)
 ;;013.63 
 ;;9002226.02101,"692,013.63 ",.02)
 ;;013.63 
 ;;9002226.02101,"692,013.64 ",.01)
 ;;013.64 
 ;;9002226.02101,"692,013.64 ",.02)
 ;;013.64 
 ;;9002226.02101,"692,013.65 ",.01)
 ;;013.65 
 ;;9002226.02101,"692,013.65 ",.02)
 ;;013.65 
 ;;9002226.02101,"692,013.66 ",.01)
 ;;013.66 
 ;;9002226.02101,"692,013.66 ",.02)
 ;;013.66 
 ;;9002226.02101,"692,013.80 ",.01)
 ;;013.80 
 ;;9002226.02101,"692,013.80 ",.02)
 ;;013.80 
 ;;9002226.02101,"692,013.81 ",.01)
 ;;013.81 
 ;;9002226.02101,"692,013.81 ",.02)
 ;;013.81 
 ;;9002226.02101,"692,013.82 ",.01)
 ;;013.82 
 ;;9002226.02101,"692,013.82 ",.02)
 ;;013.82 
 ;;9002226.02101,"692,013.83 ",.01)
 ;;013.83 
 ;;9002226.02101,"692,013.83 ",.02)
 ;;013.83 
 ;;9002226.02101,"692,013.84 ",.01)
 ;;013.84 
 ;;9002226.02101,"692,013.84 ",.02)
 ;;013.84 
 ;;9002226.02101,"692,013.85 ",.01)
 ;;013.85 
 ;;9002226.02101,"692,013.85 ",.02)
 ;;013.85 
 ;;9002226.02101,"692,013.86 ",.01)
 ;;013.86 
 ;;9002226.02101,"692,013.86 ",.02)
 ;;013.86 
 ;;9002226.02101,"692,013.90 ",.01)
 ;;013.90 
 ;;9002226.02101,"692,013.90 ",.02)
 ;;013.90 
 ;;9002226.02101,"692,013.91 ",.01)
 ;;013.91 
 ;;9002226.02101,"692,013.91 ",.02)
 ;;013.91 
 ;;9002226.02101,"692,013.92 ",.01)
 ;;013.92 
 ;;9002226.02101,"692,013.92 ",.02)
 ;;013.92 
 ;;9002226.02101,"692,013.93 ",.01)
 ;;013.93 
 ;;9002226.02101,"692,013.93 ",.02)
 ;;013.93 
 ;;9002226.02101,"692,013.94 ",.01)
 ;;013.94 
 ;;9002226.02101,"692,013.94 ",.02)
 ;;013.94 
 ;;9002226.02101,"692,013.95 ",.01)
 ;;013.95 
 ;;9002226.02101,"692,013.95 ",.02)
 ;;013.95 
 ;;9002226.02101,"692,013.96 ",.01)
 ;;013.96 
 ;;9002226.02101,"692,013.96 ",.02)
 ;;013.96 
 ;;9002226.02101,"692,014.00 ",.01)
 ;;014.00 
 ;;9002226.02101,"692,014.00 ",.02)
 ;;014.00 
 ;;9002226.02101,"692,014.01 ",.01)
 ;;014.01 
 ;;9002226.02101,"692,014.01 ",.02)
 ;;014.01 
 ;;9002226.02101,"692,014.02 ",.01)
 ;;014.02 
 ;;9002226.02101,"692,014.02 ",.02)
 ;;014.02 
 ;;9002226.02101,"692,014.03 ",.01)
 ;;014.03 
 ;;9002226.02101,"692,014.03 ",.02)
 ;;014.03 
 ;;9002226.02101,"692,014.04 ",.01)
 ;;014.04 
 ;;9002226.02101,"692,014.04 ",.02)
 ;;014.04 
 ;;9002226.02101,"692,014.05 ",.01)
 ;;014.05 
 ;;9002226.02101,"692,014.05 ",.02)
 ;;014.05 
 ;;9002226.02101,"692,014.06 ",.01)
 ;;014.06 
 ;;9002226.02101,"692,014.06 ",.02)
 ;;014.06 
 ;;9002226.02101,"692,014.80 ",.01)
 ;;014.80 
 ;;9002226.02101,"692,014.80 ",.02)
 ;;014.80 
 ;;9002226.02101,"692,014.81 ",.01)
 ;;014.81 
 ;;9002226.02101,"692,014.81 ",.02)
 ;;014.81 
 ;;9002226.02101,"692,014.82 ",.01)
 ;;014.82 
 ;;9002226.02101,"692,014.82 ",.02)
 ;;014.82 
 ;;9002226.02101,"692,014.83 ",.01)
 ;;014.83 
 ;;9002226.02101,"692,014.83 ",.02)
 ;;014.83 
 ;;9002226.02101,"692,014.84 ",.01)
 ;;014.84 
 ;;9002226.02101,"692,014.84 ",.02)
 ;;014.84 
 ;;9002226.02101,"692,014.85 ",.01)
 ;;014.85 
 ;;9002226.02101,"692,014.85 ",.02)
 ;;014.85 
 ;;9002226.02101,"692,014.86 ",.01)
 ;;014.86 
 ;;9002226.02101,"692,014.86 ",.02)
 ;;014.86 
 ;;9002226.02101,"692,015.00 ",.01)
 ;;015.00 
 ;;9002226.02101,"692,015.00 ",.02)
 ;;015.00 
 ;;9002226.02101,"692,015.01 ",.01)
 ;;015.01 
 ;;9002226.02101,"692,015.01 ",.02)
 ;;015.01 
 ;;9002226.02101,"692,015.02 ",.01)
 ;;015.02 
 ;;9002226.02101,"692,015.02 ",.02)
 ;;015.02 
 ;;9002226.02101,"692,015.03 ",.01)
 ;;015.03 
 ;;9002226.02101,"692,015.03 ",.02)
 ;;015.03 
 ;;9002226.02101,"692,015.04 ",.01)
 ;;015.04 
 ;;9002226.02101,"692,015.04 ",.02)
 ;;015.04 
 ;;9002226.02101,"692,015.05 ",.01)
 ;;015.05 
 ;;9002226.02101,"692,015.05 ",.02)
 ;;015.05 
 ;;9002226.02101,"692,015.06 ",.01)
 ;;015.06 
 ;;9002226.02101,"692,015.06 ",.02)
 ;;015.06 
 ;;9002226.02101,"692,015.10 ",.01)
 ;;015.10 
 ;;9002226.02101,"692,015.10 ",.02)
 ;;015.10 
 ;;9002226.02101,"692,015.11 ",.01)
 ;;015.11 
 ;;9002226.02101,"692,015.11 ",.02)
 ;;015.11 
 ;;9002226.02101,"692,015.12 ",.01)
 ;;015.12 
 ;;9002226.02101,"692,015.12 ",.02)
 ;;015.12 
 ;;9002226.02101,"692,015.13 ",.01)
 ;;015.13 
 ;;9002226.02101,"692,015.13 ",.02)
 ;;015.13 
 ;;9002226.02101,"692,015.14 ",.01)
 ;;015.14 
 ;;9002226.02101,"692,015.14 ",.02)
 ;;015.14 
 ;;9002226.02101,"692,015.15 ",.01)
 ;;015.15 
 ;;9002226.02101,"692,015.15 ",.02)
 ;;015.15 
 ;;9002226.02101,"692,015.16 ",.01)
 ;;015.16 
 ;;9002226.02101,"692,015.16 ",.02)
 ;;015.16 
 ;;9002226.02101,"692,015.20 ",.01)
 ;;015.20 
 ;;9002226.02101,"692,015.20 ",.02)
 ;;015.20 
 ;;9002226.02101,"692,015.21 ",.01)
 ;;015.21 
 ;;9002226.02101,"692,015.21 ",.02)
 ;;015.21 
 ;;9002226.02101,"692,015.22 ",.01)
 ;;015.22 
 ;;9002226.02101,"692,015.22 ",.02)
 ;;015.22 
 ;;9002226.02101,"692,015.23 ",.01)
 ;;015.23 
 ;;9002226.02101,"692,015.23 ",.02)
 ;;015.23 
 ;;9002226.02101,"692,015.24 ",.01)
 ;;015.24 
 ;;9002226.02101,"692,015.24 ",.02)
 ;;015.24 
 ;;9002226.02101,"692,015.25 ",.01)
 ;;015.25 
 ;;9002226.02101,"692,015.25 ",.02)
 ;;015.25 
 ;;9002226.02101,"692,015.26 ",.01)
 ;;015.26 
 ;;9002226.02101,"692,015.26 ",.02)
 ;;015.26 
 ;;9002226.02101,"692,015.50 ",.01)
 ;;015.50 
 ;;9002226.02101,"692,015.50 ",.02)
 ;;015.50 
 ;;9002226.02101,"692,015.51 ",.01)
 ;;015.51 
 ;;9002226.02101,"692,015.51 ",.02)
 ;;015.51 
 ;;9002226.02101,"692,015.52 ",.01)
 ;;015.52 
 ;;9002226.02101,"692,015.52 ",.02)
 ;;015.52 
 ;;9002226.02101,"692,015.53 ",.01)
 ;;015.53 
 ;;9002226.02101,"692,015.53 ",.02)
 ;;015.53 
 ;;9002226.02101,"692,015.54 ",.01)
 ;;015.54 
 ;;9002226.02101,"692,015.54 ",.02)
 ;;015.54 
 ;;9002226.02101,"692,015.55 ",.01)
 ;;015.55 
 ;;9002226.02101,"692,015.55 ",.02)
 ;;015.55 
 ;;9002226.02101,"692,015.56 ",.01)
 ;;015.56 
 ;;9002226.02101,"692,015.56 ",.02)
 ;;015.56 
 ;;9002226.02101,"692,015.60 ",.01)
 ;;015.60 
 ;;9002226.02101,"692,015.60 ",.02)
 ;;015.60 
 ;;9002226.02101,"692,015.61 ",.01)
 ;;015.61 
 ;;9002226.02101,"692,015.61 ",.02)
 ;;015.61 
 ;;9002226.02101,"692,015.62 ",.01)
 ;;015.62 
 ;;9002226.02101,"692,015.62 ",.02)
 ;;015.62 
 ;;9002226.02101,"692,015.63 ",.01)
 ;;015.63 
 ;;9002226.02101,"692,015.63 ",.02)
 ;;015.63 
 ;;9002226.02101,"692,015.64 ",.01)
 ;;015.64 
 ;;9002226.02101,"692,015.64 ",.02)
 ;;015.64 
 ;;9002226.02101,"692,015.65 ",.01)
 ;;015.65 
 ;;9002226.02101,"692,015.65 ",.02)
 ;;015.65 
 ;;9002226.02101,"692,015.66 ",.01)
 ;;015.66