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

BGP8CXMI.m

Go to the documentation of this file.
BGP8CXMI ; 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,091.2 ",.02)
 ;;091.2 
 ;;9002226.02101,"692,091.3 ",.01)
 ;;091.3 
 ;;9002226.02101,"692,091.3 ",.02)
 ;;091.3 
 ;;9002226.02101,"692,091.4 ",.01)
 ;;091.4 
 ;;9002226.02101,"692,091.4 ",.02)
 ;;091.4 
 ;;9002226.02101,"692,091.50 ",.01)
 ;;091.50 
 ;;9002226.02101,"692,091.50 ",.02)
 ;;091.50 
 ;;9002226.02101,"692,091.51 ",.01)
 ;;091.51 
 ;;9002226.02101,"692,091.51 ",.02)
 ;;091.51 
 ;;9002226.02101,"692,091.52 ",.01)
 ;;091.52 
 ;;9002226.02101,"692,091.52 ",.02)
 ;;091.52 
 ;;9002226.02101,"692,091.61 ",.01)
 ;;091.61 
 ;;9002226.02101,"692,091.61 ",.02)
 ;;091.61 
 ;;9002226.02101,"692,091.62 ",.01)
 ;;091.62 
 ;;9002226.02101,"692,091.62 ",.02)
 ;;091.62 
 ;;9002226.02101,"692,091.69 ",.01)
 ;;091.69 
 ;;9002226.02101,"692,091.69 ",.02)
 ;;091.69 
 ;;9002226.02101,"692,091.7 ",.01)
 ;;091.7 
 ;;9002226.02101,"692,091.7 ",.02)
 ;;091.7 
 ;;9002226.02101,"692,091.81 ",.01)
 ;;091.81 
 ;;9002226.02101,"692,091.81 ",.02)
 ;;091.81 
 ;;9002226.02101,"692,091.82 ",.01)
 ;;091.82 
 ;;9002226.02101,"692,091.82 ",.02)
 ;;091.82 
 ;;9002226.02101,"692,091.89 ",.01)
 ;;091.89 
 ;;9002226.02101,"692,091.89 ",.02)
 ;;091.89 
 ;;9002226.02101,"692,091.9 ",.01)
 ;;091.9 
 ;;9002226.02101,"692,091.9 ",.02)
 ;;091.9 
 ;;9002226.02101,"692,092.0 ",.01)
 ;;092.0 
 ;;9002226.02101,"692,092.0 ",.02)
 ;;092.0 
 ;;9002226.02101,"692,092.9 ",.01)
 ;;092.9 
 ;;9002226.02101,"692,092.9 ",.02)
 ;;092.9 
 ;;9002226.02101,"692,093.0 ",.01)
 ;;093.0 
 ;;9002226.02101,"692,093.0 ",.02)
 ;;093.0 
 ;;9002226.02101,"692,093.1 ",.01)
 ;;093.1 
 ;;9002226.02101,"692,093.1 ",.02)
 ;;093.1 
 ;;9002226.02101,"692,093.20 ",.01)
 ;;093.20 
 ;;9002226.02101,"692,093.20 ",.02)
 ;;093.20 
 ;;9002226.02101,"692,093.21 ",.01)
 ;;093.21 
 ;;9002226.02101,"692,093.21 ",.02)
 ;;093.21 
 ;;9002226.02101,"692,093.22 ",.01)
 ;;093.22 
 ;;9002226.02101,"692,093.22 ",.02)
 ;;093.22 
 ;;9002226.02101,"692,093.23 ",.01)
 ;;093.23 
 ;;9002226.02101,"692,093.23 ",.02)
 ;;093.23 
 ;;9002226.02101,"692,093.24 ",.01)
 ;;093.24 
 ;;9002226.02101,"692,093.24 ",.02)
 ;;093.24 
 ;;9002226.02101,"692,093.81 ",.01)
 ;;093.81 
 ;;9002226.02101,"692,093.81 ",.02)
 ;;093.81 
 ;;9002226.02101,"692,093.82 ",.01)
 ;;093.82 
 ;;9002226.02101,"692,093.82 ",.02)
 ;;093.82 
 ;;9002226.02101,"692,093.89 ",.01)
 ;;093.89 
 ;;9002226.02101,"692,093.89 ",.02)
 ;;093.89 
 ;;9002226.02101,"692,093.9 ",.01)
 ;;093.9 
 ;;9002226.02101,"692,093.9 ",.02)
 ;;093.9 
 ;;9002226.02101,"692,094.0 ",.01)
 ;;094.0 
 ;;9002226.02101,"692,094.0 ",.02)
 ;;094.0 
 ;;9002226.02101,"692,094.1 ",.01)
 ;;094.1 
 ;;9002226.02101,"692,094.1 ",.02)
 ;;094.1 
 ;;9002226.02101,"692,094.2 ",.01)
 ;;094.2 
 ;;9002226.02101,"692,094.2 ",.02)
 ;;094.2 
 ;;9002226.02101,"692,094.3 ",.01)
 ;;094.3 
 ;;9002226.02101,"692,094.3 ",.02)
 ;;094.3 
 ;;9002226.02101,"692,094.81 ",.01)
 ;;094.81 
 ;;9002226.02101,"692,094.81 ",.02)
 ;;094.81 
 ;;9002226.02101,"692,094.82 ",.01)
 ;;094.82 
 ;;9002226.02101,"692,094.82 ",.02)
 ;;094.82 
 ;;9002226.02101,"692,094.83 ",.01)
 ;;094.83 
 ;;9002226.02101,"692,094.83 ",.02)
 ;;094.83 
 ;;9002226.02101,"692,094.84 ",.01)
 ;;094.84 
 ;;9002226.02101,"692,094.84 ",.02)
 ;;094.84 
 ;;9002226.02101,"692,094.85 ",.01)
 ;;094.85 
 ;;9002226.02101,"692,094.85 ",.02)
 ;;094.85 
 ;;9002226.02101,"692,094.86 ",.01)
 ;;094.86 
 ;;9002226.02101,"692,094.86 ",.02)
 ;;094.86 
 ;;9002226.02101,"692,094.87 ",.01)
 ;;094.87 
 ;;9002226.02101,"692,094.87 ",.02)
 ;;094.87 
 ;;9002226.02101,"692,094.89 ",.01)
 ;;094.89 
 ;;9002226.02101,"692,094.89 ",.02)
 ;;094.89 
 ;;9002226.02101,"692,094.9 ",.01)
 ;;094.9 
 ;;9002226.02101,"692,094.9 ",.02)
 ;;094.9 
 ;;9002226.02101,"692,095.0 ",.01)
 ;;095.0 
 ;;9002226.02101,"692,095.0 ",.02)
 ;;095.0 
 ;;9002226.02101,"692,095.1 ",.01)
 ;;095.1 
 ;;9002226.02101,"692,095.1 ",.02)
 ;;095.1 
 ;;9002226.02101,"692,095.2 ",.01)
 ;;095.2 
 ;;9002226.02101,"692,095.2 ",.02)
 ;;095.2 
 ;;9002226.02101,"692,095.3 ",.01)
 ;;095.3 
 ;;9002226.02101,"692,095.3 ",.02)
 ;;095.3 
 ;;9002226.02101,"692,095.4 ",.01)
 ;;095.4 
 ;;9002226.02101,"692,095.4 ",.02)
 ;;095.4 
 ;;9002226.02101,"692,095.5 ",.01)
 ;;095.5 
 ;;9002226.02101,"692,095.5 ",.02)
 ;;095.5 
 ;;9002226.02101,"692,095.6 ",.01)
 ;;095.6 
 ;;9002226.02101,"692,095.6 ",.02)
 ;;095.6 
 ;;9002226.02101,"692,095.7 ",.01)
 ;;095.7 
 ;;9002226.02101,"692,095.7 ",.02)
 ;;095.7 
 ;;9002226.02101,"692,095.8 ",.01)
 ;;095.8 
 ;;9002226.02101,"692,095.8 ",.02)
 ;;095.8 
 ;;9002226.02101,"692,095.9 ",.01)
 ;;095.9 
 ;;9002226.02101,"692,095.9 ",.02)
 ;;095.9 
 ;;9002226.02101,"692,096 ",.01)
 ;;096 
 ;;9002226.02101,"692,096 ",.02)
 ;;096 
 ;;9002226.02101,"692,097.0 ",.01)
 ;;097.0 
 ;;9002226.02101,"692,097.0 ",.02)
 ;;097.0 
 ;;9002226.02101,"692,097.1 ",.01)
 ;;097.1 
 ;;9002226.02101,"692,097.1 ",.02)
 ;;097.1 
 ;;9002226.02101,"692,097.9 ",.01)
 ;;097.9 
 ;;9002226.02101,"692,097.9 ",.02)
 ;;097.9 
 ;;9002226.02101,"692,098.0 ",.01)
 ;;098.0 
 ;;9002226.02101,"692,098.0 ",.02)
 ;;098.0 
 ;;9002226.02101,"692,098.10 ",.01)
 ;;098.10 
 ;;9002226.02101,"692,098.10 ",.02)
 ;;098.10 
 ;;9002226.02101,"692,098.11 ",.01)
 ;;098.11 
 ;;9002226.02101,"692,098.11 ",.02)
 ;;098.11 
 ;;9002226.02101,"692,098.12 ",.01)
 ;;098.12 
 ;;9002226.02101,"692,098.12 ",.02)
 ;;098.12 
 ;;9002226.02101,"692,098.13 ",.01)
 ;;098.13 
 ;;9002226.02101,"692,098.13 ",.02)
 ;;098.13 
 ;;9002226.02101,"692,098.14 ",.01)
 ;;098.14 
 ;;9002226.02101,"692,098.14 ",.02)
 ;;098.14 
 ;;9002226.02101,"692,098.15 ",.01)
 ;;098.15 
 ;;9002226.02101,"692,098.15 ",.02)
 ;;098.15 
 ;;9002226.02101,"692,098.16 ",.01)
 ;;098.16 
 ;;9002226.02101,"692,098.16 ",.02)
 ;;098.16 
 ;;9002226.02101,"692,098.17 ",.01)
 ;;098.17 
 ;;9002226.02101,"692,098.17 ",.02)
 ;;098.17 
 ;;9002226.02101,"692,098.19 ",.01)
 ;;098.19 
 ;;9002226.02101,"692,098.19 ",.02)
 ;;098.19 
 ;;9002226.02101,"692,098.2 ",.01)
 ;;098.2 
 ;;9002226.02101,"692,098.2 ",.02)
 ;;098.2 
 ;;9002226.02101,"692,098.30 ",.01)
 ;;098.30 
 ;;9002226.02101,"692,098.30 ",.02)
 ;;098.30 
 ;;9002226.02101,"692,098.31 ",.01)
 ;;098.31 
 ;;9002226.02101,"692,098.31 ",.02)
 ;;098.31 
 ;;9002226.02101,"692,098.32 ",.01)
 ;;098.32 
 ;;9002226.02101,"692,098.32 ",.02)
 ;;098.32 
 ;;9002226.02101,"692,098.33 ",.01)
 ;;098.33 
 ;;9002226.02101,"692,098.33 ",.02)
 ;;098.33 
 ;;9002226.02101,"692,098.34 ",.01)
 ;;098.34 
 ;;9002226.02101,"692,098.34 ",.02)
 ;;098.34 
 ;;9002226.02101,"692,098.35 ",.01)
 ;;098.35 
 ;;9002226.02101,"692,098.35 ",.02)
 ;;098.35 
 ;;9002226.02101,"692,098.36 ",.01)
 ;;098.36 
 ;;9002226.02101,"692,098.36 ",.02)
 ;;098.36 
 ;;9002226.02101,"692,098.37 ",.01)
 ;;098.37 
 ;;9002226.02101,"692,098.37 ",.02)
 ;;098.37 
 ;;9002226.02101,"692,098.39 ",.01)
 ;;098.39 
 ;;9002226.02101,"692,098.39 ",.02)
 ;;098.39 
 ;;9002226.02101,"692,098.40 ",.01)
 ;;098.40 
 ;;9002226.02101,"692,098.40 ",.02)
 ;;098.40 
 ;;9002226.02101,"692,098.41 ",.01)
 ;;098.41 
 ;;9002226.02101,"692,098.41 ",.02)
 ;;098.41 
 ;;9002226.02101,"692,098.42 ",.01)
 ;;098.42 
 ;;9002226.02101,"692,098.42 ",.02)
 ;;098.42 
 ;;9002226.02101,"692,098.43 ",.01)
 ;;098.43 
 ;;9002226.02101,"692,098.43 ",.02)
 ;;098.43 
 ;;9002226.02101,"692,098.49 ",.01)
 ;;098.49 
 ;;9002226.02101,"692,098.49 ",.02)
 ;;098.49 
 ;;9002226.02101,"692,098.50 ",.01)
 ;;098.50 
 ;;9002226.02101,"692,098.50 ",.02)
 ;;098.50 
 ;;9002226.02101,"692,098.51 ",.01)
 ;;098.51 
 ;;9002226.02101,"692,098.51 ",.02)
 ;;098.51 
 ;;9002226.02101,"692,098.52 ",.01)
 ;;098.52 
 ;;9002226.02101,"692,098.52 ",.02)
 ;;098.52 
 ;;9002226.02101,"692,098.53 ",.01)
 ;;098.53 
 ;;9002226.02101,"692,098.53 ",.02)
 ;;098.53 
 ;;9002226.02101,"692,098.59 ",.01)
 ;;098.59 
 ;;9002226.02101,"692,098.59 ",.02)
 ;;098.59 
 ;;9002226.02101,"692,098.6 ",.01)
 ;;098.6 
 ;;9002226.02101,"692,098.6 ",.02)
 ;;098.6 
 ;;9002226.02101,"692,098.7 ",.01)
 ;;098.7 
 ;;9002226.02101,"692,098.7 ",.02)
 ;;098.7 
 ;;9002226.02101,"692,098.81 ",.01)
 ;;098.81 
 ;;9002226.02101,"692,098.81 ",.02)
 ;;098.81 
 ;;9002226.02101,"692,098.82 ",.01)
 ;;098.82 
 ;;9002226.02101,"692,098.82 ",.02)
 ;;098.82 
 ;;9002226.02101,"692,098.83 ",.01)
 ;;098.83 
 ;;9002226.02101,"692,098.83 ",.02)
 ;;098.83 
 ;;9002226.02101,"692,098.84 ",.01)
 ;;098.84 
 ;;9002226.02101,"692,098.84 ",.02)
 ;;098.84 
 ;;9002226.02101,"692,098.85 ",.01)
 ;;098.85 
 ;;9002226.02101,"692,098.85 ",.02)
 ;;098.85 
 ;;9002226.02101,"692,098.86 ",.01)
 ;;098.86 
 ;;9002226.02101,"692,098.86 ",.02)
 ;;098.86 
 ;;9002226.02101,"692,098.89 ",.01)
 ;;098.89 
 ;;9002226.02101,"692,098.89 ",.02)
 ;;098.89 
 ;;9002226.02101,"692,099.0 ",.01)
 ;;099.0 
 ;;9002226.02101,"692,099.0 ",.02)
 ;;099.0 
 ;;9002226.02101,"692,099.1 ",.01)
 ;;099.1 
 ;;9002226.02101,"692,099.1 ",.02)
 ;;099.1 
 ;;9002226.02101,"692,099.2 ",.01)
 ;;099.2 
 ;;9002226.02101,"692,099.2 ",.02)
 ;;099.2 
 ;;9002226.02101,"692,099.3 ",.01)
 ;;099.3 
 ;;9002226.02101,"692,099.3 ",.02)
 ;;099.3 
 ;;9002226.02101,"692,099.40 ",.01)
 ;;099.40 
 ;;9002226.02101,"692,099.40 ",.02)
 ;;099.40 
 ;;9002226.02101,"692,099.41 ",.01)
 ;;099.41 
 ;;9002226.02101,"692,099.41 ",.02)
 ;;099.41 
 ;;9002226.02101,"692,099.49 ",.01)
 ;;099.49 
 ;;9002226.02101,"692,099.49 ",.02)
 ;;099.49 
 ;;9002226.02101,"692,099.50 ",.01)
 ;;099.50 
 ;;9002226.02101,"692,099.50 ",.02)
 ;;099.50 
 ;;9002226.02101,"692,099.51 ",.01)
 ;;099.51 
 ;;9002226.02101,"692,099.51 ",.02)
 ;;099.51 
 ;;9002226.02101,"692,099.52 ",.01)
 ;;099.52 
 ;;9002226.02101,"692,099.52 ",.02)
 ;;099.52 
 ;;9002226.02101,"692,099.53 ",.01)
 ;;099.53 
 ;;9002226.02101,"692,099.53 ",.02)
 ;;099.53 
 ;;9002226.02101,"692,099.54 ",.01)
 ;;099.54 
 ;;9002226.02101,"692,099.54 ",.02)
 ;;099.54 
 ;;9002226.02101,"692,099.55 ",.01)
 ;;099.55 
 ;;9002226.02101,"692,099.55 ",.02)
 ;;099.55 
 ;;9002226.02101,"692,099.56 ",.01)
 ;;099.56 
 ;;9002226.02101,"692,099.56 ",.02)
 ;;099.56 
 ;;9002226.02101,"692,099.59 ",.01)
 ;;099.59 
 ;;9002226.02101,"692,099.59 ",.02)
 ;;099.59 
 ;;9002226.02101,"692,099.8 ",.01)
 ;;099.8 
 ;;9002226.02101,"692,099.8 ",.02)
 ;;099.8 
 ;;9002226.02101,"692,099.9 ",.01)
 ;;099.9 
 ;;9002226.02101,"692,099.9 ",.02)
 ;;099.9 
 ;;9002226.02101,"692,100.0 ",.01)
 ;;100.0 
 ;;9002226.02101,"692,100.0 ",.02)
 ;;100.0 
 ;;9002226.02101,"692,100.81 ",.01)
 ;;100.81 
 ;;9002226.02101,"692,100.81 ",.02)
 ;;100.81 
 ;;9002226.02101,"692,100.89 ",.01)
 ;;100.89 
 ;;9002226.02101,"692,100.89 ",.02)
 ;;100.89 
 ;;9002226.02101,"692,100.9 ",.01)
 ;;100.9 
 ;;9002226.02101,"692,100.9 ",.02)
 ;;100.9 
 ;;9002226.02101,"692,101 ",.01)
 ;;101 
 ;;9002226.02101,"692,101 ",.02)
 ;;101 
 ;;9002226.02101,"692,102.0 ",.01)
 ;;102.0 
 ;;9002226.02101,"692,102.0 ",.02)
 ;;102.0 
 ;;9002226.02101,"692,102.1 ",.01)
 ;;102.1 
 ;;9002226.02101,"692,102.1 ",.02)
 ;;102.1 
 ;;9002226.02101,"692,102.2 ",.01)
 ;;102.2 
 ;;9002226.02101,"692,102.2 ",.02)
 ;;102.2 
 ;;9002226.02101,"692,102.3 ",.01)
 ;;102.3 
 ;;9002226.02101,"692,102.3 ",.02)
 ;;102.3 
 ;;9002226.02101,"692,102.4 ",.01)
 ;;102.4 
 ;;9002226.02101,"692,102.4 ",.02)
 ;;102.4 
 ;;9002226.02101,"692,102.5 ",.01)
 ;;102.5 
 ;;9002226.02101,"692,102.5 ",.02)
 ;;102.5 
 ;;9002226.02101,"692,102.6 ",.01)
 ;;102.6 
 ;;9002226.02101,"692,102.6 ",.02)
 ;;102.6 
 ;;9002226.02101,"692,102.7 ",.01)
 ;;102.7 
 ;;9002226.02101,"692,102.7 ",.02)
 ;;102.7 
 ;;9002226.02101,"692,102.8 ",.01)
 ;;102.8 
 ;;9002226.02101,"692,102.8 ",.02)
 ;;102.8 
 ;;9002226.02101,"692,102.9 ",.01)
 ;;102.9 
 ;;9002226.02101,"692,102.9 ",.02)
 ;;102.9 
 ;;9002226.02101,"692,103.0 ",.01)
 ;;103.0 
 ;;9002226.02101,"692,103.0 ",.02)
 ;;103.0 
 ;;9002226.02101,"692,103.1 ",.01)
 ;;103.1 
 ;;9002226.02101,"692,103.1 ",.02)
 ;;103.1 
 ;;9002226.02101,"692,103.2 ",.01)
 ;;103.2 
 ;;9002226.02101,"692,103.2 ",.02)
 ;;103.2 
 ;;9002226.02101,"692,103.3 ",.01)
 ;;103.3 
 ;;9002226.02101,"692,103.3 ",.02)
 ;;103.3 
 ;;9002226.02101,"692,103.9 ",.01)
 ;;103.9 
 ;;9002226.02101,"692,103.9 ",.02)
 ;;103.9 
 ;;9002226.02101,"692,104.0 ",.01)
 ;;104.0 
 ;;9002226.02101,"692,104.0 ",.02)
 ;;104.0 
 ;;9002226.02101,"692,104.8 ",.01)
 ;;104.8 
 ;;9002226.02101,"692,104.8 ",.02)
 ;;104.8 
 ;;9002226.02101,"692,104.9 ",.01)
 ;;104.9 
 ;;9002226.02101,"692,104.9 ",.02)
 ;;104.9 
 ;;9002226.02101,"692,110.0 ",.01)
 ;;110.0 
 ;;9002226.02101,"692,110.0 ",.02)
 ;;110.0 
 ;;9002226.02101,"692,110.1 ",.01)
 ;;110.1 
 ;;9002226.02101,"692,110.1 ",.02)
 ;;110.1 
 ;;9002226.02101,"692,110.2 ",.01)
 ;;110.2 
 ;;9002226.02101,"692,110.2 ",.02)
 ;;110.2 
 ;;9002226.02101,"692,110.3 ",.01)
 ;;110.3 
 ;;9002226.02101,"692,110.3 ",.02)
 ;;110.3 
 ;;9002226.02101,"692,110.4 ",.01)
 ;;110.4 
 ;;9002226.02101,"692,110.4 ",.02)
 ;;110.4 
 ;;9002226.02101,"692,110.5 ",.01)
 ;;110.5 
 ;;9002226.02101,"692,110.5 ",.02)
 ;;110.5 
 ;;9002226.02101,"692,110.6 ",.01)
 ;;110.6 
 ;;9002226.02101,"692,110.6 ",.02)
 ;;110.6 
 ;;9002226.02101,"692,110.8 ",.01)
 ;;110.8 
 ;;9002226.02101,"692,110.8 ",.02)
 ;;110.8 
 ;;9002226.02101,"692,110.9 ",.01)
 ;;110.9 
 ;;9002226.02101,"692,110.9 ",.02)
 ;;110.9