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

BGP8CXMF.m

Go to the documentation of this file.
BGP8CXMF ; 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,015.66 ",.02)
 ;;015.66 
 ;;9002226.02101,"692,015.70 ",.01)
 ;;015.70 
 ;;9002226.02101,"692,015.70 ",.02)
 ;;015.70 
 ;;9002226.02101,"692,015.71 ",.01)
 ;;015.71 
 ;;9002226.02101,"692,015.71 ",.02)
 ;;015.71 
 ;;9002226.02101,"692,015.72 ",.01)
 ;;015.72 
 ;;9002226.02101,"692,015.72 ",.02)
 ;;015.72 
 ;;9002226.02101,"692,015.73 ",.01)
 ;;015.73 
 ;;9002226.02101,"692,015.73 ",.02)
 ;;015.73 
 ;;9002226.02101,"692,015.74 ",.01)
 ;;015.74 
 ;;9002226.02101,"692,015.74 ",.02)
 ;;015.74 
 ;;9002226.02101,"692,015.75 ",.01)
 ;;015.75 
 ;;9002226.02101,"692,015.75 ",.02)
 ;;015.75 
 ;;9002226.02101,"692,015.76 ",.01)
 ;;015.76 
 ;;9002226.02101,"692,015.76 ",.02)
 ;;015.76 
 ;;9002226.02101,"692,015.80 ",.01)
 ;;015.80 
 ;;9002226.02101,"692,015.80 ",.02)
 ;;015.80 
 ;;9002226.02101,"692,015.81 ",.01)
 ;;015.81 
 ;;9002226.02101,"692,015.81 ",.02)
 ;;015.81 
 ;;9002226.02101,"692,015.82 ",.01)
 ;;015.82 
 ;;9002226.02101,"692,015.82 ",.02)
 ;;015.82 
 ;;9002226.02101,"692,015.83 ",.01)
 ;;015.83 
 ;;9002226.02101,"692,015.83 ",.02)
 ;;015.83 
 ;;9002226.02101,"692,015.84 ",.01)
 ;;015.84 
 ;;9002226.02101,"692,015.84 ",.02)
 ;;015.84 
 ;;9002226.02101,"692,015.85 ",.01)
 ;;015.85 
 ;;9002226.02101,"692,015.85 ",.02)
 ;;015.85 
 ;;9002226.02101,"692,015.86 ",.01)
 ;;015.86 
 ;;9002226.02101,"692,015.86 ",.02)
 ;;015.86 
 ;;9002226.02101,"692,015.90 ",.01)
 ;;015.90 
 ;;9002226.02101,"692,015.90 ",.02)
 ;;015.90 
 ;;9002226.02101,"692,015.91 ",.01)
 ;;015.91 
 ;;9002226.02101,"692,015.91 ",.02)
 ;;015.91 
 ;;9002226.02101,"692,015.92 ",.01)
 ;;015.92 
 ;;9002226.02101,"692,015.92 ",.02)
 ;;015.92 
 ;;9002226.02101,"692,015.93 ",.01)
 ;;015.93 
 ;;9002226.02101,"692,015.93 ",.02)
 ;;015.93 
 ;;9002226.02101,"692,015.94 ",.01)
 ;;015.94 
 ;;9002226.02101,"692,015.94 ",.02)
 ;;015.94 
 ;;9002226.02101,"692,015.95 ",.01)
 ;;015.95 
 ;;9002226.02101,"692,015.95 ",.02)
 ;;015.95 
 ;;9002226.02101,"692,015.96 ",.01)
 ;;015.96 
 ;;9002226.02101,"692,015.96 ",.02)
 ;;015.96 
 ;;9002226.02101,"692,016.00 ",.01)
 ;;016.00 
 ;;9002226.02101,"692,016.00 ",.02)
 ;;016.00 
 ;;9002226.02101,"692,016.01 ",.01)
 ;;016.01 
 ;;9002226.02101,"692,016.01 ",.02)
 ;;016.01 
 ;;9002226.02101,"692,016.02 ",.01)
 ;;016.02 
 ;;9002226.02101,"692,016.02 ",.02)
 ;;016.02 
 ;;9002226.02101,"692,016.03 ",.01)
 ;;016.03 
 ;;9002226.02101,"692,016.03 ",.02)
 ;;016.03 
 ;;9002226.02101,"692,016.04 ",.01)
 ;;016.04 
 ;;9002226.02101,"692,016.04 ",.02)
 ;;016.04 
 ;;9002226.02101,"692,016.05 ",.01)
 ;;016.05 
 ;;9002226.02101,"692,016.05 ",.02)
 ;;016.05 
 ;;9002226.02101,"692,016.06 ",.01)
 ;;016.06 
 ;;9002226.02101,"692,016.06 ",.02)
 ;;016.06 
 ;;9002226.02101,"692,016.10 ",.01)
 ;;016.10 
 ;;9002226.02101,"692,016.10 ",.02)
 ;;016.10 
 ;;9002226.02101,"692,016.11 ",.01)
 ;;016.11 
 ;;9002226.02101,"692,016.11 ",.02)
 ;;016.11 
 ;;9002226.02101,"692,016.12 ",.01)
 ;;016.12 
 ;;9002226.02101,"692,016.12 ",.02)
 ;;016.12 
 ;;9002226.02101,"692,016.13 ",.01)
 ;;016.13 
 ;;9002226.02101,"692,016.13 ",.02)
 ;;016.13 
 ;;9002226.02101,"692,016.14 ",.01)
 ;;016.14 
 ;;9002226.02101,"692,016.14 ",.02)
 ;;016.14 
 ;;9002226.02101,"692,016.15 ",.01)
 ;;016.15 
 ;;9002226.02101,"692,016.15 ",.02)
 ;;016.15 
 ;;9002226.02101,"692,016.16 ",.01)
 ;;016.16 
 ;;9002226.02101,"692,016.16 ",.02)
 ;;016.16 
 ;;9002226.02101,"692,016.20 ",.01)
 ;;016.20 
 ;;9002226.02101,"692,016.20 ",.02)
 ;;016.20 
 ;;9002226.02101,"692,016.21 ",.01)
 ;;016.21 
 ;;9002226.02101,"692,016.21 ",.02)
 ;;016.21 
 ;;9002226.02101,"692,016.22 ",.01)
 ;;016.22 
 ;;9002226.02101,"692,016.22 ",.02)
 ;;016.22 
 ;;9002226.02101,"692,016.23 ",.01)
 ;;016.23 
 ;;9002226.02101,"692,016.23 ",.02)
 ;;016.23 
 ;;9002226.02101,"692,016.24 ",.01)
 ;;016.24 
 ;;9002226.02101,"692,016.24 ",.02)
 ;;016.24 
 ;;9002226.02101,"692,016.25 ",.01)
 ;;016.25 
 ;;9002226.02101,"692,016.25 ",.02)
 ;;016.25 
 ;;9002226.02101,"692,016.26 ",.01)
 ;;016.26 
 ;;9002226.02101,"692,016.26 ",.02)
 ;;016.26 
 ;;9002226.02101,"692,016.30 ",.01)
 ;;016.30 
 ;;9002226.02101,"692,016.30 ",.02)
 ;;016.30 
 ;;9002226.02101,"692,016.31 ",.01)
 ;;016.31 
 ;;9002226.02101,"692,016.31 ",.02)
 ;;016.31 
 ;;9002226.02101,"692,016.32 ",.01)
 ;;016.32 
 ;;9002226.02101,"692,016.32 ",.02)
 ;;016.32 
 ;;9002226.02101,"692,016.33 ",.01)
 ;;016.33 
 ;;9002226.02101,"692,016.33 ",.02)
 ;;016.33 
 ;;9002226.02101,"692,016.34 ",.01)
 ;;016.34 
 ;;9002226.02101,"692,016.34 ",.02)
 ;;016.34 
 ;;9002226.02101,"692,016.35 ",.01)
 ;;016.35 
 ;;9002226.02101,"692,016.35 ",.02)
 ;;016.35 
 ;;9002226.02101,"692,016.36 ",.01)
 ;;016.36 
 ;;9002226.02101,"692,016.36 ",.02)
 ;;016.36 
 ;;9002226.02101,"692,016.40 ",.01)
 ;;016.40 
 ;;9002226.02101,"692,016.40 ",.02)
 ;;016.40 
 ;;9002226.02101,"692,016.41 ",.01)
 ;;016.41 
 ;;9002226.02101,"692,016.41 ",.02)
 ;;016.41 
 ;;9002226.02101,"692,016.42 ",.01)
 ;;016.42 
 ;;9002226.02101,"692,016.42 ",.02)
 ;;016.42 
 ;;9002226.02101,"692,016.43 ",.01)
 ;;016.43 
 ;;9002226.02101,"692,016.43 ",.02)
 ;;016.43 
 ;;9002226.02101,"692,016.44 ",.01)
 ;;016.44 
 ;;9002226.02101,"692,016.44 ",.02)
 ;;016.44 
 ;;9002226.02101,"692,016.45 ",.01)
 ;;016.45 
 ;;9002226.02101,"692,016.45 ",.02)
 ;;016.45 
 ;;9002226.02101,"692,016.46 ",.01)
 ;;016.46 
 ;;9002226.02101,"692,016.46 ",.02)
 ;;016.46 
 ;;9002226.02101,"692,016.50 ",.01)
 ;;016.50 
 ;;9002226.02101,"692,016.50 ",.02)
 ;;016.50 
 ;;9002226.02101,"692,016.51 ",.01)
 ;;016.51 
 ;;9002226.02101,"692,016.51 ",.02)
 ;;016.51 
 ;;9002226.02101,"692,016.52 ",.01)
 ;;016.52 
 ;;9002226.02101,"692,016.52 ",.02)
 ;;016.52 
 ;;9002226.02101,"692,016.53 ",.01)
 ;;016.53 
 ;;9002226.02101,"692,016.53 ",.02)
 ;;016.53 
 ;;9002226.02101,"692,016.54 ",.01)
 ;;016.54 
 ;;9002226.02101,"692,016.54 ",.02)
 ;;016.54 
 ;;9002226.02101,"692,016.55 ",.01)
 ;;016.55 
 ;;9002226.02101,"692,016.55 ",.02)
 ;;016.55 
 ;;9002226.02101,"692,016.56 ",.01)
 ;;016.56 
 ;;9002226.02101,"692,016.56 ",.02)
 ;;016.56 
 ;;9002226.02101,"692,016.60 ",.01)
 ;;016.60 
 ;;9002226.02101,"692,016.60 ",.02)
 ;;016.60 
 ;;9002226.02101,"692,016.61 ",.01)
 ;;016.61 
 ;;9002226.02101,"692,016.61 ",.02)
 ;;016.61 
 ;;9002226.02101,"692,016.62 ",.01)
 ;;016.62 
 ;;9002226.02101,"692,016.62 ",.02)
 ;;016.62 
 ;;9002226.02101,"692,016.63 ",.01)
 ;;016.63 
 ;;9002226.02101,"692,016.63 ",.02)
 ;;016.63 
 ;;9002226.02101,"692,016.64 ",.01)
 ;;016.64 
 ;;9002226.02101,"692,016.64 ",.02)
 ;;016.64 
 ;;9002226.02101,"692,016.65 ",.01)
 ;;016.65 
 ;;9002226.02101,"692,016.65 ",.02)
 ;;016.65 
 ;;9002226.02101,"692,016.66 ",.01)
 ;;016.66 
 ;;9002226.02101,"692,016.66 ",.02)
 ;;016.66 
 ;;9002226.02101,"692,016.70 ",.01)
 ;;016.70 
 ;;9002226.02101,"692,016.70 ",.02)
 ;;016.70 
 ;;9002226.02101,"692,016.71 ",.01)
 ;;016.71 
 ;;9002226.02101,"692,016.71 ",.02)
 ;;016.71 
 ;;9002226.02101,"692,016.72 ",.01)
 ;;016.72 
 ;;9002226.02101,"692,016.72 ",.02)
 ;;016.72 
 ;;9002226.02101,"692,016.73 ",.01)
 ;;016.73 
 ;;9002226.02101,"692,016.73 ",.02)
 ;;016.73 
 ;;9002226.02101,"692,016.74 ",.01)
 ;;016.74 
 ;;9002226.02101,"692,016.74 ",.02)
 ;;016.74 
 ;;9002226.02101,"692,016.75 ",.01)
 ;;016.75 
 ;;9002226.02101,"692,016.75 ",.02)
 ;;016.75 
 ;;9002226.02101,"692,016.76 ",.01)
 ;;016.76 
 ;;9002226.02101,"692,016.76 ",.02)
 ;;016.76 
 ;;9002226.02101,"692,016.90 ",.01)
 ;;016.90 
 ;;9002226.02101,"692,016.90 ",.02)
 ;;016.90 
 ;;9002226.02101,"692,016.91 ",.01)
 ;;016.91 
 ;;9002226.02101,"692,016.91 ",.02)
 ;;016.91 
 ;;9002226.02101,"692,016.92 ",.01)
 ;;016.92 
 ;;9002226.02101,"692,016.92 ",.02)
 ;;016.92 
 ;;9002226.02101,"692,016.93 ",.01)
 ;;016.93 
 ;;9002226.02101,"692,016.93 ",.02)
 ;;016.93 
 ;;9002226.02101,"692,016.94 ",.01)
 ;;016.94 
 ;;9002226.02101,"692,016.94 ",.02)
 ;;016.94 
 ;;9002226.02101,"692,016.95 ",.01)
 ;;016.95 
 ;;9002226.02101,"692,016.95 ",.02)
 ;;016.95 
 ;;9002226.02101,"692,016.96 ",.01)
 ;;016.96 
 ;;9002226.02101,"692,016.96 ",.02)
 ;;016.96 
 ;;9002226.02101,"692,017.00 ",.01)
 ;;017.00 
 ;;9002226.02101,"692,017.00 ",.02)
 ;;017.00 
 ;;9002226.02101,"692,017.01 ",.01)
 ;;017.01 
 ;;9002226.02101,"692,017.01 ",.02)
 ;;017.01 
 ;;9002226.02101,"692,017.02 ",.01)
 ;;017.02 
 ;;9002226.02101,"692,017.02 ",.02)
 ;;017.02 
 ;;9002226.02101,"692,017.03 ",.01)
 ;;017.03 
 ;;9002226.02101,"692,017.03 ",.02)
 ;;017.03 
 ;;9002226.02101,"692,017.04 ",.01)
 ;;017.04 
 ;;9002226.02101,"692,017.04 ",.02)
 ;;017.04 
 ;;9002226.02101,"692,017.05 ",.01)
 ;;017.05 
 ;;9002226.02101,"692,017.05 ",.02)
 ;;017.05 
 ;;9002226.02101,"692,017.06 ",.01)
 ;;017.06 
 ;;9002226.02101,"692,017.06 ",.02)
 ;;017.06 
 ;;9002226.02101,"692,017.10 ",.01)
 ;;017.10 
 ;;9002226.02101,"692,017.10 ",.02)
 ;;017.10 
 ;;9002226.02101,"692,017.11 ",.01)
 ;;017.11 
 ;;9002226.02101,"692,017.11 ",.02)
 ;;017.11 
 ;;9002226.02101,"692,017.12 ",.01)
 ;;017.12 
 ;;9002226.02101,"692,017.12 ",.02)
 ;;017.12 
 ;;9002226.02101,"692,017.13 ",.01)
 ;;017.13 
 ;;9002226.02101,"692,017.13 ",.02)
 ;;017.13 
 ;;9002226.02101,"692,017.14 ",.01)
 ;;017.14 
 ;;9002226.02101,"692,017.14 ",.02)
 ;;017.14 
 ;;9002226.02101,"692,017.15 ",.01)
 ;;017.15 
 ;;9002226.02101,"692,017.15 ",.02)
 ;;017.15 
 ;;9002226.02101,"692,017.16 ",.01)
 ;;017.16 
 ;;9002226.02101,"692,017.16 ",.02)
 ;;017.16 
 ;;9002226.02101,"692,017.20 ",.01)
 ;;017.20 
 ;;9002226.02101,"692,017.20 ",.02)
 ;;017.20 
 ;;9002226.02101,"692,017.21 ",.01)
 ;;017.21 
 ;;9002226.02101,"692,017.21 ",.02)
 ;;017.21 
 ;;9002226.02101,"692,017.22 ",.01)
 ;;017.22 
 ;;9002226.02101,"692,017.22 ",.02)
 ;;017.22 
 ;;9002226.02101,"692,017.23 ",.01)
 ;;017.23 
 ;;9002226.02101,"692,017.23 ",.02)
 ;;017.23 
 ;;9002226.02101,"692,017.24 ",.01)
 ;;017.24 
 ;;9002226.02101,"692,017.24 ",.02)
 ;;017.24 
 ;;9002226.02101,"692,017.25 ",.01)
 ;;017.25 
 ;;9002226.02101,"692,017.25 ",.02)
 ;;017.25 
 ;;9002226.02101,"692,017.26 ",.01)
 ;;017.26 
 ;;9002226.02101,"692,017.26 ",.02)
 ;;017.26 
 ;;9002226.02101,"692,017.30 ",.01)
 ;;017.30 
 ;;9002226.02101,"692,017.30 ",.02)
 ;;017.30 
 ;;9002226.02101,"692,017.31 ",.01)
 ;;017.31 
 ;;9002226.02101,"692,017.31 ",.02)
 ;;017.31 
 ;;9002226.02101,"692,017.32 ",.01)
 ;;017.32 
 ;;9002226.02101,"692,017.32 ",.02)
 ;;017.32 
 ;;9002226.02101,"692,017.33 ",.01)
 ;;017.33 
 ;;9002226.02101,"692,017.33 ",.02)
 ;;017.33 
 ;;9002226.02101,"692,017.34 ",.01)
 ;;017.34 
 ;;9002226.02101,"692,017.34 ",.02)
 ;;017.34 
 ;;9002226.02101,"692,017.35 ",.01)
 ;;017.35 
 ;;9002226.02101,"692,017.35 ",.02)
 ;;017.35 
 ;;9002226.02101,"692,017.36 ",.01)
 ;;017.36 
 ;;9002226.02101,"692,017.36 ",.02)
 ;;017.36 
 ;;9002226.02101,"692,017.40 ",.01)
 ;;017.40 
 ;;9002226.02101,"692,017.40 ",.02)
 ;;017.40 
 ;;9002226.02101,"692,017.41 ",.01)
 ;;017.41 
 ;;9002226.02101,"692,017.41 ",.02)
 ;;017.41 
 ;;9002226.02101,"692,017.42 ",.01)
 ;;017.42 
 ;;9002226.02101,"692,017.42 ",.02)
 ;;017.42 
 ;;9002226.02101,"692,017.43 ",.01)
 ;;017.43 
 ;;9002226.02101,"692,017.43 ",.02)
 ;;017.43 
 ;;9002226.02101,"692,017.44 ",.01)
 ;;017.44 
 ;;9002226.02101,"692,017.44 ",.02)
 ;;017.44 
 ;;9002226.02101,"692,017.45 ",.01)
 ;;017.45 
 ;;9002226.02101,"692,017.45 ",.02)
 ;;017.45 
 ;;9002226.02101,"692,017.46 ",.01)
 ;;017.46 
 ;;9002226.02101,"692,017.46 ",.02)
 ;;017.46 
 ;;9002226.02101,"692,017.50 ",.01)
 ;;017.50 
 ;;9002226.02101,"692,017.50 ",.02)
 ;;017.50 
 ;;9002226.02101,"692,017.51 ",.01)
 ;;017.51 
 ;;9002226.02101,"692,017.51 ",.02)
 ;;017.51 
 ;;9002226.02101,"692,017.52 ",.01)
 ;;017.52 
 ;;9002226.02101,"692,017.52 ",.02)
 ;;017.52 
 ;;9002226.02101,"692,017.53 ",.01)
 ;;017.53 
 ;;9002226.02101,"692,017.53 ",.02)
 ;;017.53 
 ;;9002226.02101,"692,017.54 ",.01)
 ;;017.54 
 ;;9002226.02101,"692,017.54 ",.02)
 ;;017.54 
 ;;9002226.02101,"692,017.55 ",.01)
 ;;017.55 
 ;;9002226.02101,"692,017.55 ",.02)
 ;;017.55 
 ;;9002226.02101,"692,017.56 ",.01)
 ;;017.56 
 ;;9002226.02101,"692,017.56 ",.02)
 ;;017.56 
 ;;9002226.02101,"692,017.60 ",.01)
 ;;017.60 
 ;;9002226.02101,"692,017.60 ",.02)
 ;;017.60 
 ;;9002226.02101,"692,017.61 ",.01)
 ;;017.61 
 ;;9002226.02101,"692,017.61 ",.02)
 ;;017.61 
 ;;9002226.02101,"692,017.62 ",.01)
 ;;017.62 
 ;;9002226.02101,"692,017.62 ",.02)
 ;;017.62 
 ;;9002226.02101,"692,017.63 ",.01)
 ;;017.63 
 ;;9002226.02101,"692,017.63 ",.02)
 ;;017.63 
 ;;9002226.02101,"692,017.64 ",.01)
 ;;017.64 
 ;;9002226.02101,"692,017.64 ",.02)
 ;;017.64 
 ;;9002226.02101,"692,017.65 ",.01)
 ;;017.65 
 ;;9002226.02101,"692,017.65 ",.02)
 ;;017.65 
 ;;9002226.02101,"692,017.66 ",.01)
 ;;017.66 
 ;;9002226.02101,"692,017.66 ",.02)
 ;;017.66 
 ;;9002226.02101,"692,017.70 ",.01)
 ;;017.70 
 ;;9002226.02101,"692,017.70 ",.02)
 ;;017.70 
 ;;9002226.02101,"692,017.71 ",.01)
 ;;017.71 
 ;;9002226.02101,"692,017.71 ",.02)
 ;;017.71 
 ;;9002226.02101,"692,017.72 ",.01)
 ;;017.72 
 ;;9002226.02101,"692,017.72 ",.02)
 ;;017.72 
 ;;9002226.02101,"692,017.73 ",.01)
 ;;017.73 
 ;;9002226.02101,"692,017.73 ",.02)
 ;;017.73 
 ;;9002226.02101,"692,017.74 ",.01)
 ;;017.74 
 ;;9002226.02101,"692,017.74 ",.02)
 ;;017.74