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

BGP03B7.m

Go to the documentation of this file.
BGP03B7 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
 ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
 ;
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,"843,082.9 ",.02)
 ;;082.9 
 ;;9002226.02101,"843,083.0 ",.01)
 ;;083.0 
 ;;9002226.02101,"843,083.0 ",.02)
 ;;083.0 
 ;;9002226.02101,"843,083.1 ",.01)
 ;;083.1 
 ;;9002226.02101,"843,083.1 ",.02)
 ;;083.1 
 ;;9002226.02101,"843,083.2 ",.01)
 ;;083.2 
 ;;9002226.02101,"843,083.2 ",.02)
 ;;083.2 
 ;;9002226.02101,"843,083.8 ",.01)
 ;;083.8 
 ;;9002226.02101,"843,083.8 ",.02)
 ;;083.8 
 ;;9002226.02101,"843,083.9 ",.01)
 ;;083.9 
 ;;9002226.02101,"843,083.9 ",.02)
 ;;083.9 
 ;;9002226.02101,"843,084.0 ",.01)
 ;;084.0 
 ;;9002226.02101,"843,084.0 ",.02)
 ;;084.0 
 ;;9002226.02101,"843,084.1 ",.01)
 ;;084.1 
 ;;9002226.02101,"843,084.1 ",.02)
 ;;084.1 
 ;;9002226.02101,"843,084.2 ",.01)
 ;;084.2 
 ;;9002226.02101,"843,084.2 ",.02)
 ;;084.2 
 ;;9002226.02101,"843,084.3 ",.01)
 ;;084.3 
 ;;9002226.02101,"843,084.3 ",.02)
 ;;084.3 
 ;;9002226.02101,"843,084.4 ",.01)
 ;;084.4 
 ;;9002226.02101,"843,084.4 ",.02)
 ;;084.4 
 ;;9002226.02101,"843,084.5 ",.01)
 ;;084.5 
 ;;9002226.02101,"843,084.5 ",.02)
 ;;084.5 
 ;;9002226.02101,"843,084.6 ",.01)
 ;;084.6 
 ;;9002226.02101,"843,084.6 ",.02)
 ;;084.6 
 ;;9002226.02101,"843,084.7 ",.01)
 ;;084.7 
 ;;9002226.02101,"843,084.7 ",.02)
 ;;084.7 
 ;;9002226.02101,"843,084.8 ",.01)
 ;;084.8 
 ;;9002226.02101,"843,084.8 ",.02)
 ;;084.8 
 ;;9002226.02101,"843,084.9 ",.01)
 ;;084.9 
 ;;9002226.02101,"843,084.9 ",.02)
 ;;084.9 
 ;;9002226.02101,"843,085.0 ",.01)
 ;;085.0 
 ;;9002226.02101,"843,085.0 ",.02)
 ;;085.0 
 ;;9002226.02101,"843,085.1 ",.01)
 ;;085.1 
 ;;9002226.02101,"843,085.1 ",.02)
 ;;085.1 
 ;;9002226.02101,"843,085.2 ",.01)
 ;;085.2 
 ;;9002226.02101,"843,085.2 ",.02)
 ;;085.2 
 ;;9002226.02101,"843,085.3 ",.01)
 ;;085.3 
 ;;9002226.02101,"843,085.3 ",.02)
 ;;085.3 
 ;;9002226.02101,"843,085.4 ",.01)
 ;;085.4 
 ;;9002226.02101,"843,085.4 ",.02)
 ;;085.4 
 ;;9002226.02101,"843,085.5 ",.01)
 ;;085.5 
 ;;9002226.02101,"843,085.5 ",.02)
 ;;085.5 
 ;;9002226.02101,"843,085.9 ",.01)
 ;;085.9 
 ;;9002226.02101,"843,085.9 ",.02)
 ;;085.9 
 ;;9002226.02101,"843,086.0 ",.01)
 ;;086.0 
 ;;9002226.02101,"843,086.0 ",.02)
 ;;086.0 
 ;;9002226.02101,"843,086.1 ",.01)
 ;;086.1 
 ;;9002226.02101,"843,086.1 ",.02)
 ;;086.1 
 ;;9002226.02101,"843,086.2 ",.01)
 ;;086.2 
 ;;9002226.02101,"843,086.2 ",.02)
 ;;086.2 
 ;;9002226.02101,"843,086.3 ",.01)
 ;;086.3 
 ;;9002226.02101,"843,086.3 ",.02)
 ;;086.3 
 ;;9002226.02101,"843,086.4 ",.01)
 ;;086.4 
 ;;9002226.02101,"843,086.4 ",.02)
 ;;086.4 
 ;;9002226.02101,"843,086.5 ",.01)
 ;;086.5 
 ;;9002226.02101,"843,086.5 ",.02)
 ;;086.5 
 ;;9002226.02101,"843,086.9 ",.01)
 ;;086.9 
 ;;9002226.02101,"843,086.9 ",.02)
 ;;086.9 
 ;;9002226.02101,"843,087.0 ",.01)
 ;;087.0 
 ;;9002226.02101,"843,087.0 ",.02)
 ;;087.0 
 ;;9002226.02101,"843,087.1 ",.01)
 ;;087.1 
 ;;9002226.02101,"843,087.1 ",.02)
 ;;087.1 
 ;;9002226.02101,"843,087.9 ",.01)
 ;;087.9 
 ;;9002226.02101,"843,087.9 ",.02)
 ;;087.9 
 ;;9002226.02101,"843,088.0 ",.01)
 ;;088.0 
 ;;9002226.02101,"843,088.0 ",.02)
 ;;088.0 
 ;;9002226.02101,"843,088.81 ",.01)
 ;;088.81 
 ;;9002226.02101,"843,088.81 ",.02)
 ;;088.81 
 ;;9002226.02101,"843,088.82 ",.01)
 ;;088.82 
 ;;9002226.02101,"843,088.82 ",.02)
 ;;088.82 
 ;;9002226.02101,"843,088.89 ",.01)
 ;;088.89 
 ;;9002226.02101,"843,088.89 ",.02)
 ;;088.89 
 ;;9002226.02101,"843,088.9 ",.01)
 ;;088.9 
 ;;9002226.02101,"843,088.9 ",.02)
 ;;088.9 
 ;;9002226.02101,"843,090.0 ",.01)
 ;;090.0 
 ;;9002226.02101,"843,090.0 ",.02)
 ;;090.0 
 ;;9002226.02101,"843,090.1 ",.01)
 ;;090.1 
 ;;9002226.02101,"843,090.1 ",.02)
 ;;090.1 
 ;;9002226.02101,"843,090.2 ",.01)
 ;;090.2 
 ;;9002226.02101,"843,090.2 ",.02)
 ;;090.2 
 ;;9002226.02101,"843,090.3 ",.01)
 ;;090.3 
 ;;9002226.02101,"843,090.3 ",.02)
 ;;090.3 
 ;;9002226.02101,"843,090.40 ",.01)
 ;;090.40 
 ;;9002226.02101,"843,090.40 ",.02)
 ;;090.40 
 ;;9002226.02101,"843,090.41 ",.01)
 ;;090.41 
 ;;9002226.02101,"843,090.41 ",.02)
 ;;090.41 
 ;;9002226.02101,"843,090.42 ",.01)
 ;;090.42 
 ;;9002226.02101,"843,090.42 ",.02)
 ;;090.42 
 ;;9002226.02101,"843,090.49 ",.01)
 ;;090.49 
 ;;9002226.02101,"843,090.49 ",.02)
 ;;090.49 
 ;;9002226.02101,"843,090.5 ",.01)
 ;;090.5 
 ;;9002226.02101,"843,090.5 ",.02)
 ;;090.5 
 ;;9002226.02101,"843,090.6 ",.01)
 ;;090.6 
 ;;9002226.02101,"843,090.6 ",.02)
 ;;090.6 
 ;;9002226.02101,"843,090.7 ",.01)
 ;;090.7 
 ;;9002226.02101,"843,090.7 ",.02)
 ;;090.7 
 ;;9002226.02101,"843,090.9 ",.01)
 ;;090.9 
 ;;9002226.02101,"843,090.9 ",.02)
 ;;090.9 
 ;;9002226.02101,"843,091.0 ",.01)
 ;;091.0 
 ;;9002226.02101,"843,091.0 ",.02)
 ;;091.0 
 ;;9002226.02101,"843,091.1 ",.01)
 ;;091.1 
 ;;9002226.02101,"843,091.1 ",.02)
 ;;091.1 
 ;;9002226.02101,"843,091.2 ",.01)
 ;;091.2 
 ;;9002226.02101,"843,091.2 ",.02)
 ;;091.2 
 ;;9002226.02101,"843,091.3 ",.01)
 ;;091.3 
 ;;9002226.02101,"843,091.3 ",.02)
 ;;091.3 
 ;;9002226.02101,"843,091.4 ",.01)
 ;;091.4 
 ;;9002226.02101,"843,091.4 ",.02)
 ;;091.4 
 ;;9002226.02101,"843,091.50 ",.01)
 ;;091.50 
 ;;9002226.02101,"843,091.50 ",.02)
 ;;091.50 
 ;;9002226.02101,"843,091.51 ",.01)
 ;;091.51 
 ;;9002226.02101,"843,091.51 ",.02)
 ;;091.51 
 ;;9002226.02101,"843,091.52 ",.01)
 ;;091.52 
 ;;9002226.02101,"843,091.52 ",.02)
 ;;091.52 
 ;;9002226.02101,"843,091.61 ",.01)
 ;;091.61 
 ;;9002226.02101,"843,091.61 ",.02)
 ;;091.61 
 ;;9002226.02101,"843,091.62 ",.01)
 ;;091.62 
 ;;9002226.02101,"843,091.62 ",.02)
 ;;091.62 
 ;;9002226.02101,"843,091.69 ",.01)
 ;;091.69 
 ;;9002226.02101,"843,091.69 ",.02)
 ;;091.69 
 ;;9002226.02101,"843,091.7 ",.01)
 ;;091.7 
 ;;9002226.02101,"843,091.7 ",.02)
 ;;091.7 
 ;;9002226.02101,"843,091.81 ",.01)
 ;;091.81 
 ;;9002226.02101,"843,091.81 ",.02)
 ;;091.81 
 ;;9002226.02101,"843,091.82 ",.01)
 ;;091.82 
 ;;9002226.02101,"843,091.82 ",.02)
 ;;091.82 
 ;;9002226.02101,"843,091.89 ",.01)
 ;;091.89 
 ;;9002226.02101,"843,091.89 ",.02)
 ;;091.89 
 ;;9002226.02101,"843,091.9 ",.01)
 ;;091.9 
 ;;9002226.02101,"843,091.9 ",.02)
 ;;091.9 
 ;;9002226.02101,"843,092.0 ",.01)
 ;;092.0 
 ;;9002226.02101,"843,092.0 ",.02)
 ;;092.0 
 ;;9002226.02101,"843,092.9 ",.01)
 ;;092.9 
 ;;9002226.02101,"843,092.9 ",.02)
 ;;092.9 
 ;;9002226.02101,"843,093.0 ",.01)
 ;;093.0 
 ;;9002226.02101,"843,093.0 ",.02)
 ;;093.0 
 ;;9002226.02101,"843,093.1 ",.01)
 ;;093.1 
 ;;9002226.02101,"843,093.1 ",.02)
 ;;093.1 
 ;;9002226.02101,"843,093.20 ",.01)
 ;;093.20 
 ;;9002226.02101,"843,093.20 ",.02)
 ;;093.20 
 ;;9002226.02101,"843,093.21 ",.01)
 ;;093.21 
 ;;9002226.02101,"843,093.21 ",.02)
 ;;093.21 
 ;;9002226.02101,"843,093.22 ",.01)
 ;;093.22 
 ;;9002226.02101,"843,093.22 ",.02)
 ;;093.22 
 ;;9002226.02101,"843,093.23 ",.01)
 ;;093.23 
 ;;9002226.02101,"843,093.23 ",.02)
 ;;093.23 
 ;;9002226.02101,"843,093.24 ",.01)
 ;;093.24 
 ;;9002226.02101,"843,093.24 ",.02)
 ;;093.24 
 ;;9002226.02101,"843,093.81 ",.01)
 ;;093.81 
 ;;9002226.02101,"843,093.81 ",.02)
 ;;093.81 
 ;;9002226.02101,"843,093.82 ",.01)
 ;;093.82 
 ;;9002226.02101,"843,093.82 ",.02)
 ;;093.82 
 ;;9002226.02101,"843,093.89 ",.01)
 ;;093.89 
 ;;9002226.02101,"843,093.89 ",.02)
 ;;093.89 
 ;;9002226.02101,"843,093.9 ",.01)
 ;;093.9 
 ;;9002226.02101,"843,093.9 ",.02)
 ;;093.9 
 ;;9002226.02101,"843,094.0 ",.01)
 ;;094.0 
 ;;9002226.02101,"843,094.0 ",.02)
 ;;094.0 
 ;;9002226.02101,"843,094.1 ",.01)
 ;;094.1 
 ;;9002226.02101,"843,094.1 ",.02)
 ;;094.1 
 ;;9002226.02101,"843,094.2 ",.01)
 ;;094.2 
 ;;9002226.02101,"843,094.2 ",.02)
 ;;094.2 
 ;;9002226.02101,"843,094.3 ",.01)
 ;;094.3 
 ;;9002226.02101,"843,094.3 ",.02)
 ;;094.3 
 ;;9002226.02101,"843,094.81 ",.01)
 ;;094.81 
 ;;9002226.02101,"843,094.81 ",.02)
 ;;094.81 
 ;;9002226.02101,"843,094.82 ",.01)
 ;;094.82 
 ;;9002226.02101,"843,094.82 ",.02)
 ;;094.82 
 ;;9002226.02101,"843,094.83 ",.01)
 ;;094.83 
 ;;9002226.02101,"843,094.83 ",.02)
 ;;094.83 
 ;;9002226.02101,"843,094.84 ",.01)
 ;;094.84 
 ;;9002226.02101,"843,094.84 ",.02)
 ;;094.84 
 ;;9002226.02101,"843,094.85 ",.01)
 ;;094.85 
 ;;9002226.02101,"843,094.85 ",.02)
 ;;094.85 
 ;;9002226.02101,"843,094.86 ",.01)
 ;;094.86 
 ;;9002226.02101,"843,094.86 ",.02)
 ;;094.86 
 ;;9002226.02101,"843,094.87 ",.01)
 ;;094.87 
 ;;9002226.02101,"843,094.87 ",.02)
 ;;094.87 
 ;;9002226.02101,"843,094.89 ",.01)
 ;;094.89 
 ;;9002226.02101,"843,094.89 ",.02)
 ;;094.89 
 ;;9002226.02101,"843,094.9 ",.01)
 ;;094.9 
 ;;9002226.02101,"843,094.9 ",.02)
 ;;094.9 
 ;;9002226.02101,"843,095.0 ",.01)
 ;;095.0 
 ;;9002226.02101,"843,095.0 ",.02)
 ;;095.0 
 ;;9002226.02101,"843,095.1 ",.01)
 ;;095.1 
 ;;9002226.02101,"843,095.1 ",.02)
 ;;095.1 
 ;;9002226.02101,"843,095.2 ",.01)
 ;;095.2 
 ;;9002226.02101,"843,095.2 ",.02)
 ;;095.2 
 ;;9002226.02101,"843,095.3 ",.01)
 ;;095.3 
 ;;9002226.02101,"843,095.3 ",.02)
 ;;095.3 
 ;;9002226.02101,"843,095.4 ",.01)
 ;;095.4 
 ;;9002226.02101,"843,095.4 ",.02)
 ;;095.4 
 ;;9002226.02101,"843,095.5 ",.01)
 ;;095.5 
 ;;9002226.02101,"843,095.5 ",.02)
 ;;095.5 
 ;;9002226.02101,"843,095.6 ",.01)
 ;;095.6 
 ;;9002226.02101,"843,095.6 ",.02)
 ;;095.6 
 ;;9002226.02101,"843,095.7 ",.01)
 ;;095.7 
 ;;9002226.02101,"843,095.7 ",.02)
 ;;095.7 
 ;;9002226.02101,"843,095.8 ",.01)
 ;;095.8 
 ;;9002226.02101,"843,095.8 ",.02)
 ;;095.8 
 ;;9002226.02101,"843,095.9 ",.01)
 ;;095.9 
 ;;9002226.02101,"843,095.9 ",.02)
 ;;095.9 
 ;;9002226.02101,"843,096 ",.01)
 ;;096 
 ;;9002226.02101,"843,096 ",.02)
 ;;096 
 ;;9002226.02101,"843,097.0 ",.01)
 ;;097.0 
 ;;9002226.02101,"843,097.0 ",.02)
 ;;097.0 
 ;;9002226.02101,"843,097.1 ",.01)
 ;;097.1 
 ;;9002226.02101,"843,097.1 ",.02)
 ;;097.1 
 ;;9002226.02101,"843,097.9 ",.01)
 ;;097.9 
 ;;9002226.02101,"843,097.9 ",.02)
 ;;097.9 
 ;;9002226.02101,"843,098.0 ",.01)
 ;;098.0 
 ;;9002226.02101,"843,098.0 ",.02)
 ;;098.0 
 ;;9002226.02101,"843,098.10 ",.01)
 ;;098.10 
 ;;9002226.02101,"843,098.10 ",.02)
 ;;098.10 
 ;;9002226.02101,"843,098.11 ",.01)
 ;;098.11 
 ;;9002226.02101,"843,098.11 ",.02)
 ;;098.11 
 ;;9002226.02101,"843,098.12 ",.01)
 ;;098.12 
 ;;9002226.02101,"843,098.12 ",.02)
 ;;098.12 
 ;;9002226.02101,"843,098.13 ",.01)
 ;;098.13 
 ;;9002226.02101,"843,098.13 ",.02)
 ;;098.13 
 ;;9002226.02101,"843,098.14 ",.01)
 ;;098.14 
 ;;9002226.02101,"843,098.14 ",.02)
 ;;098.14 
 ;;9002226.02101,"843,098.15 ",.01)
 ;;098.15 
 ;;9002226.02101,"843,098.15 ",.02)
 ;;098.15 
 ;;9002226.02101,"843,098.16 ",.01)
 ;;098.16 
 ;;9002226.02101,"843,098.16 ",.02)
 ;;098.16 
 ;;9002226.02101,"843,098.17 ",.01)
 ;;098.17 
 ;;9002226.02101,"843,098.17 ",.02)
 ;;098.17 
 ;;9002226.02101,"843,098.19 ",.01)
 ;;098.19 
 ;;9002226.02101,"843,098.19 ",.02)
 ;;098.19 
 ;;9002226.02101,"843,098.2 ",.01)
 ;;098.2 
 ;;9002226.02101,"843,098.2 ",.02)
 ;;098.2 
 ;;9002226.02101,"843,098.30 ",.01)
 ;;098.30 
 ;;9002226.02101,"843,098.30 ",.02)
 ;;098.30 
 ;;9002226.02101,"843,098.31 ",.01)
 ;;098.31 
 ;;9002226.02101,"843,098.31 ",.02)
 ;;098.31 
 ;;9002226.02101,"843,098.32 ",.01)
 ;;098.32 
 ;;9002226.02101,"843,098.32 ",.02)
 ;;098.32 
 ;;9002226.02101,"843,098.33 ",.01)
 ;;098.33 
 ;;9002226.02101,"843,098.33 ",.02)
 ;;098.33 
 ;;9002226.02101,"843,098.34 ",.01)
 ;;098.34 
 ;;9002226.02101,"843,098.34 ",.02)
 ;;098.34 
 ;;9002226.02101,"843,098.35 ",.01)
 ;;098.35 
 ;;9002226.02101,"843,098.35 ",.02)
 ;;098.35 
 ;;9002226.02101,"843,098.36 ",.01)
 ;;098.36 
 ;;9002226.02101,"843,098.36 ",.02)
 ;;098.36 
 ;;9002226.02101,"843,098.37 ",.01)
 ;;098.37 
 ;;9002226.02101,"843,098.37 ",.02)
 ;;098.37 
 ;;9002226.02101,"843,098.39 ",.01)
 ;;098.39 
 ;;9002226.02101,"843,098.39 ",.02)
 ;;098.39 
 ;;9002226.02101,"843,098.40 ",.01)
 ;;098.40 
 ;;9002226.02101,"843,098.40 ",.02)
 ;;098.40 
 ;;9002226.02101,"843,098.41 ",.01)
 ;;098.41 
 ;;9002226.02101,"843,098.41 ",.02)
 ;;098.41 
 ;;9002226.02101,"843,098.42 ",.01)
 ;;098.42 
 ;;9002226.02101,"843,098.42 ",.02)
 ;;098.42 
 ;;9002226.02101,"843,098.43 ",.01)
 ;;098.43 
 ;;9002226.02101,"843,098.43 ",.02)
 ;;098.43 
 ;;9002226.02101,"843,098.49 ",.01)
 ;;098.49 
 ;;9002226.02101,"843,098.49 ",.02)
 ;;098.49 
 ;;9002226.02101,"843,098.50 ",.01)
 ;;098.50 
 ;;9002226.02101,"843,098.50 ",.02)
 ;;098.50 
 ;;9002226.02101,"843,098.51 ",.01)
 ;;098.51 
 ;;9002226.02101,"843,098.51 ",.02)
 ;;098.51 
 ;;9002226.02101,"843,098.52 ",.01)
 ;;098.52 
 ;;9002226.02101,"843,098.52 ",.02)
 ;;098.52 
 ;;9002226.02101,"843,098.53 ",.01)
 ;;098.53 
 ;;9002226.02101,"843,098.53 ",.02)
 ;;098.53 
 ;;9002226.02101,"843,098.59 ",.01)
 ;;098.59 
 ;;9002226.02101,"843,098.59 ",.02)
 ;;098.59 
 ;;9002226.02101,"843,098.6 ",.01)
 ;;098.6 
 ;;9002226.02101,"843,098.6 ",.02)
 ;;098.6 
 ;;9002226.02101,"843,098.7 ",.01)
 ;;098.7 
 ;;9002226.02101,"843,098.7 ",.02)
 ;;098.7 
 ;;9002226.02101,"843,098.81 ",.01)
 ;;098.81 
 ;;9002226.02101,"843,098.81 ",.02)
 ;;098.81 
 ;;9002226.02101,"843,098.82 ",.01)
 ;;098.82 
 ;;9002226.02101,"843,098.82 ",.02)
 ;;098.82 
 ;;9002226.02101,"843,098.83 ",.01)
 ;;098.83 
 ;;9002226.02101,"843,098.83 ",.02)
 ;;098.83 
 ;;9002226.02101,"843,098.84 ",.01)
 ;;098.84 
 ;;9002226.02101,"843,098.84 ",.02)
 ;;098.84