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

BGP03B8.m

Go to the documentation of this file.
BGP03B8 ;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,098.85 ",.01)
 ;;098.85 
 ;;9002226.02101,"843,098.85 ",.02)
 ;;098.85 
 ;;9002226.02101,"843,098.86 ",.01)
 ;;098.86 
 ;;9002226.02101,"843,098.86 ",.02)
 ;;098.86 
 ;;9002226.02101,"843,098.89 ",.01)
 ;;098.89 
 ;;9002226.02101,"843,098.89 ",.02)
 ;;098.89 
 ;;9002226.02101,"843,099.0 ",.01)
 ;;099.0 
 ;;9002226.02101,"843,099.0 ",.02)
 ;;099.0 
 ;;9002226.02101,"843,099.1 ",.01)
 ;;099.1 
 ;;9002226.02101,"843,099.1 ",.02)
 ;;099.1 
 ;;9002226.02101,"843,099.2 ",.01)
 ;;099.2 
 ;;9002226.02101,"843,099.2 ",.02)
 ;;099.2 
 ;;9002226.02101,"843,099.3 ",.01)
 ;;099.3 
 ;;9002226.02101,"843,099.3 ",.02)
 ;;099.3 
 ;;9002226.02101,"843,099.40 ",.01)
 ;;099.40 
 ;;9002226.02101,"843,099.40 ",.02)
 ;;099.40 
 ;;9002226.02101,"843,099.41 ",.01)
 ;;099.41 
 ;;9002226.02101,"843,099.41 ",.02)
 ;;099.41 
 ;;9002226.02101,"843,099.49 ",.01)
 ;;099.49 
 ;;9002226.02101,"843,099.49 ",.02)
 ;;099.49 
 ;;9002226.02101,"843,099.50 ",.01)
 ;;099.50 
 ;;9002226.02101,"843,099.50 ",.02)
 ;;099.50 
 ;;9002226.02101,"843,099.51 ",.01)
 ;;099.51 
 ;;9002226.02101,"843,099.51 ",.02)
 ;;099.51 
 ;;9002226.02101,"843,099.52 ",.01)
 ;;099.52 
 ;;9002226.02101,"843,099.52 ",.02)
 ;;099.52 
 ;;9002226.02101,"843,099.53 ",.01)
 ;;099.53 
 ;;9002226.02101,"843,099.53 ",.02)
 ;;099.53 
 ;;9002226.02101,"843,099.54 ",.01)
 ;;099.54 
 ;;9002226.02101,"843,099.54 ",.02)
 ;;099.54 
 ;;9002226.02101,"843,099.55 ",.01)
 ;;099.55 
 ;;9002226.02101,"843,099.55 ",.02)
 ;;099.55 
 ;;9002226.02101,"843,099.56 ",.01)
 ;;099.56 
 ;;9002226.02101,"843,099.56 ",.02)
 ;;099.56 
 ;;9002226.02101,"843,099.59 ",.01)
 ;;099.59 
 ;;9002226.02101,"843,099.59 ",.02)
 ;;099.59 
 ;;9002226.02101,"843,099.8 ",.01)
 ;;099.8 
 ;;9002226.02101,"843,099.8 ",.02)
 ;;099.8 
 ;;9002226.02101,"843,099.9 ",.01)
 ;;099.9 
 ;;9002226.02101,"843,099.9 ",.02)
 ;;099.9 
 ;;9002226.02101,"843,100.0 ",.01)
 ;;100.0 
 ;;9002226.02101,"843,100.0 ",.02)
 ;;100.0 
 ;;9002226.02101,"843,100.81 ",.01)
 ;;100.81 
 ;;9002226.02101,"843,100.81 ",.02)
 ;;100.81 
 ;;9002226.02101,"843,100.89 ",.01)
 ;;100.89 
 ;;9002226.02101,"843,100.89 ",.02)
 ;;100.89 
 ;;9002226.02101,"843,100.9 ",.01)
 ;;100.9 
 ;;9002226.02101,"843,100.9 ",.02)
 ;;100.9 
 ;;9002226.02101,"843,101 ",.01)
 ;;101 
 ;;9002226.02101,"843,101 ",.02)
 ;;101 
 ;;9002226.02101,"843,102.0 ",.01)
 ;;102.0 
 ;;9002226.02101,"843,102.0 ",.02)
 ;;102.0 
 ;;9002226.02101,"843,102.1 ",.01)
 ;;102.1 
 ;;9002226.02101,"843,102.1 ",.02)
 ;;102.1 
 ;;9002226.02101,"843,102.2 ",.01)
 ;;102.2 
 ;;9002226.02101,"843,102.2 ",.02)
 ;;102.2 
 ;;9002226.02101,"843,102.3 ",.01)
 ;;102.3 
 ;;9002226.02101,"843,102.3 ",.02)
 ;;102.3 
 ;;9002226.02101,"843,102.4 ",.01)
 ;;102.4 
 ;;9002226.02101,"843,102.4 ",.02)
 ;;102.4 
 ;;9002226.02101,"843,102.5 ",.01)
 ;;102.5 
 ;;9002226.02101,"843,102.5 ",.02)
 ;;102.5 
 ;;9002226.02101,"843,102.6 ",.01)
 ;;102.6 
 ;;9002226.02101,"843,102.6 ",.02)
 ;;102.6 
 ;;9002226.02101,"843,102.7 ",.01)
 ;;102.7 
 ;;9002226.02101,"843,102.7 ",.02)
 ;;102.7 
 ;;9002226.02101,"843,102.8 ",.01)
 ;;102.8 
 ;;9002226.02101,"843,102.8 ",.02)
 ;;102.8 
 ;;9002226.02101,"843,102.9 ",.01)
 ;;102.9 
 ;;9002226.02101,"843,102.9 ",.02)
 ;;102.9 
 ;;9002226.02101,"843,103.0 ",.01)
 ;;103.0 
 ;;9002226.02101,"843,103.0 ",.02)
 ;;103.0 
 ;;9002226.02101,"843,103.1 ",.01)
 ;;103.1 
 ;;9002226.02101,"843,103.1 ",.02)
 ;;103.1 
 ;;9002226.02101,"843,103.2 ",.01)
 ;;103.2 
 ;;9002226.02101,"843,103.2 ",.02)
 ;;103.2 
 ;;9002226.02101,"843,103.3 ",.01)
 ;;103.3 
 ;;9002226.02101,"843,103.3 ",.02)
 ;;103.3 
 ;;9002226.02101,"843,103.9 ",.01)
 ;;103.9 
 ;;9002226.02101,"843,103.9 ",.02)
 ;;103.9 
 ;;9002226.02101,"843,104.0 ",.01)
 ;;104.0 
 ;;9002226.02101,"843,104.0 ",.02)
 ;;104.0 
 ;;9002226.02101,"843,104.8 ",.01)
 ;;104.8 
 ;;9002226.02101,"843,104.8 ",.02)
 ;;104.8 
 ;;9002226.02101,"843,104.9 ",.01)
 ;;104.9 
 ;;9002226.02101,"843,104.9 ",.02)
 ;;104.9 
 ;;9002226.02101,"843,110.0 ",.01)
 ;;110.0 
 ;;9002226.02101,"843,110.0 ",.02)
 ;;110.0 
 ;;9002226.02101,"843,110.1 ",.01)
 ;;110.1 
 ;;9002226.02101,"843,110.1 ",.02)
 ;;110.1 
 ;;9002226.02101,"843,110.2 ",.01)
 ;;110.2 
 ;;9002226.02101,"843,110.2 ",.02)
 ;;110.2 
 ;;9002226.02101,"843,110.3 ",.01)
 ;;110.3 
 ;;9002226.02101,"843,110.3 ",.02)
 ;;110.3 
 ;;9002226.02101,"843,110.4 ",.01)
 ;;110.4 
 ;;9002226.02101,"843,110.4 ",.02)
 ;;110.4 
 ;;9002226.02101,"843,110.5 ",.01)
 ;;110.5 
 ;;9002226.02101,"843,110.5 ",.02)
 ;;110.5 
 ;;9002226.02101,"843,110.6 ",.01)
 ;;110.6 
 ;;9002226.02101,"843,110.6 ",.02)
 ;;110.6 
 ;;9002226.02101,"843,110.8 ",.01)
 ;;110.8 
 ;;9002226.02101,"843,110.8 ",.02)
 ;;110.8 
 ;;9002226.02101,"843,110.9 ",.01)
 ;;110.9 
 ;;9002226.02101,"843,110.9 ",.02)
 ;;110.9 
 ;;9002226.02101,"843,111.3 ",.01)
 ;;111.3 
 ;;9002226.02101,"843,111.3 ",.02)
 ;;111.3 
 ;;9002226.02101,"843,111.8 ",.01)
 ;;111.8 
 ;;9002226.02101,"843,111.8 ",.02)
 ;;111.8 
 ;;9002226.02101,"843,111.9 ",.01)
 ;;111.9 
 ;;9002226.02101,"843,111.9 ",.02)
 ;;111.9 
 ;;9002226.02101,"843,114.0 ",.01)
 ;;114.0 
 ;;9002226.02101,"843,114.0 ",.02)
 ;;114.0 
 ;;9002226.02101,"843,114.1 ",.01)
 ;;114.1 
 ;;9002226.02101,"843,114.1 ",.02)
 ;;114.1 
 ;;9002226.02101,"843,114.2 ",.01)
 ;;114.2 
 ;;9002226.02101,"843,114.2 ",.02)
 ;;114.2 
 ;;9002226.02101,"843,114.3 ",.01)
 ;;114.3 
 ;;9002226.02101,"843,114.3 ",.02)
 ;;114.3 
 ;;9002226.02101,"843,114.4 ",.01)
 ;;114.4 
 ;;9002226.02101,"843,114.4 ",.02)
 ;;114.4 
 ;;9002226.02101,"843,114.5 ",.01)
 ;;114.5 
 ;;9002226.02101,"843,114.5 ",.02)
 ;;114.5 
 ;;9002226.02101,"843,114.9 ",.01)
 ;;114.9 
 ;;9002226.02101,"843,114.9 ",.02)
 ;;114.9 
 ;;9002226.02101,"843,117.4 ",.01)
 ;;117.4 
 ;;9002226.02101,"843,117.4 ",.02)
 ;;117.4 
 ;;9002226.02101,"843,117.5 ",.01)
 ;;117.5 
 ;;9002226.02101,"843,117.5 ",.02)
 ;;117.5 
 ;;9002226.02101,"843,117.6 ",.01)
 ;;117.6 
 ;;9002226.02101,"843,117.6 ",.02)
 ;;117.6 
 ;;9002226.02101,"843,117.7 ",.01)
 ;;117.7 
 ;;9002226.02101,"843,117.7 ",.02)
 ;;117.7 
 ;;9002226.02101,"843,117.8 ",.01)
 ;;117.8 
 ;;9002226.02101,"843,117.8 ",.02)
 ;;117.8 
 ;;9002226.02101,"843,117.9 ",.01)
 ;;117.9 
 ;;9002226.02101,"843,117.9 ",.02)
 ;;117.9 
 ;;9002226.02101,"843,118 ",.01)
 ;;118 
 ;;9002226.02101,"843,118 ",.02)
 ;;118 
 ;;9002226.02101,"843,120.0 ",.01)
 ;;120.0 
 ;;9002226.02101,"843,120.0 ",.02)
 ;;120.0 
 ;;9002226.02101,"843,120.1 ",.01)
 ;;120.1 
 ;;9002226.02101,"843,120.1 ",.02)
 ;;120.1 
 ;;9002226.02101,"843,120.2 ",.01)
 ;;120.2 
 ;;9002226.02101,"843,120.2 ",.02)
 ;;120.2 
 ;;9002226.02101,"843,120.3 ",.01)
 ;;120.3 
 ;;9002226.02101,"843,120.3 ",.02)
 ;;120.3 
 ;;9002226.02101,"843,120.8 ",.01)
 ;;120.8 
 ;;9002226.02101,"843,120.8 ",.02)
 ;;120.8 
 ;;9002226.02101,"843,120.9 ",.01)
 ;;120.9 
 ;;9002226.02101,"843,120.9 ",.02)
 ;;120.9 
 ;;9002226.02101,"843,121.0 ",.01)
 ;;121.0 
 ;;9002226.02101,"843,121.0 ",.02)
 ;;121.0 
 ;;9002226.02101,"843,121.1 ",.01)
 ;;121.1 
 ;;9002226.02101,"843,121.1 ",.02)
 ;;121.1 
 ;;9002226.02101,"843,121.2 ",.01)
 ;;121.2 
 ;;9002226.02101,"843,121.2 ",.02)
 ;;121.2 
 ;;9002226.02101,"843,121.3 ",.01)
 ;;121.3 
 ;;9002226.02101,"843,121.3 ",.02)
 ;;121.3 
 ;;9002226.02101,"843,121.4 ",.01)
 ;;121.4 
 ;;9002226.02101,"843,121.4 ",.02)
 ;;121.4 
 ;;9002226.02101,"843,121.5 ",.01)
 ;;121.5 
 ;;9002226.02101,"843,121.5 ",.02)
 ;;121.5 
 ;;9002226.02101,"843,121.6 ",.01)
 ;;121.6 
 ;;9002226.02101,"843,121.6 ",.02)
 ;;121.6 
 ;;9002226.02101,"843,121.8 ",.01)
 ;;121.8 
 ;;9002226.02101,"843,121.8 ",.02)
 ;;121.8 
 ;;9002226.02101,"843,121.9 ",.01)
 ;;121.9 
 ;;9002226.02101,"843,121.9 ",.02)
 ;;121.9 
 ;;9002226.02101,"843,122.0 ",.01)
 ;;122.0 
 ;;9002226.02101,"843,122.0 ",.02)
 ;;122.0 
 ;;9002226.02101,"843,122.1 ",.01)
 ;;122.1 
 ;;9002226.02101,"843,122.1 ",.02)
 ;;122.1 
 ;;9002226.02101,"843,122.2 ",.01)
 ;;122.2 
 ;;9002226.02101,"843,122.2 ",.02)
 ;;122.2 
 ;;9002226.02101,"843,122.3 ",.01)
 ;;122.3 
 ;;9002226.02101,"843,122.3 ",.02)
 ;;122.3 
 ;;9002226.02101,"843,122.4 ",.01)
 ;;122.4 
 ;;9002226.02101,"843,122.4 ",.02)
 ;;122.4 
 ;;9002226.02101,"843,122.5 ",.01)
 ;;122.5 
 ;;9002226.02101,"843,122.5 ",.02)
 ;;122.5 
 ;;9002226.02101,"843,122.6 ",.01)
 ;;122.6 
 ;;9002226.02101,"843,122.6 ",.02)
 ;;122.6 
 ;;9002226.02101,"843,122.7 ",.01)
 ;;122.7 
 ;;9002226.02101,"843,122.7 ",.02)
 ;;122.7 
 ;;9002226.02101,"843,122.8 ",.01)
 ;;122.8 
 ;;9002226.02101,"843,122.8 ",.02)
 ;;122.8 
 ;;9002226.02101,"843,122.9 ",.01)
 ;;122.9 
 ;;9002226.02101,"843,122.9 ",.02)
 ;;122.9 
 ;;9002226.02101,"843,123.0 ",.01)
 ;;123.0 
 ;;9002226.02101,"843,123.0 ",.02)
 ;;123.0 
 ;;9002226.02101,"843,123.1 ",.01)
 ;;123.1 
 ;;9002226.02101,"843,123.1 ",.02)
 ;;123.1 
 ;;9002226.02101,"843,123.2 ",.01)
 ;;123.2 
 ;;9002226.02101,"843,123.2 ",.02)
 ;;123.2 
 ;;9002226.02101,"843,123.3 ",.01)
 ;;123.3 
 ;;9002226.02101,"843,123.3 ",.02)
 ;;123.3 
 ;;9002226.02101,"843,123.4 ",.01)
 ;;123.4 
 ;;9002226.02101,"843,123.4 ",.02)
 ;;123.4 
 ;;9002226.02101,"843,123.5 ",.01)
 ;;123.5 
 ;;9002226.02101,"843,123.5 ",.02)
 ;;123.5 
 ;;9002226.02101,"843,123.6 ",.01)
 ;;123.6 
 ;;9002226.02101,"843,123.6 ",.02)
 ;;123.6 
 ;;9002226.02101,"843,123.8 ",.01)
 ;;123.8 
 ;;9002226.02101,"843,123.8 ",.02)
 ;;123.8 
 ;;9002226.02101,"843,123.9 ",.01)
 ;;123.9 
 ;;9002226.02101,"843,123.9 ",.02)
 ;;123.9 
 ;;9002226.02101,"843,124 ",.01)
 ;;124 
 ;;9002226.02101,"843,124 ",.02)
 ;;124 
 ;;9002226.02101,"843,125.0 ",.01)
 ;;125.0 
 ;;9002226.02101,"843,125.0 ",.02)
 ;;125.0 
 ;;9002226.02101,"843,125.1 ",.01)
 ;;125.1 
 ;;9002226.02101,"843,125.1 ",.02)
 ;;125.1 
 ;;9002226.02101,"843,125.2 ",.01)
 ;;125.2 
 ;;9002226.02101,"843,125.2 ",.02)
 ;;125.2 
 ;;9002226.02101,"843,125.3 ",.01)
 ;;125.3 
 ;;9002226.02101,"843,125.3 ",.02)
 ;;125.3 
 ;;9002226.02101,"843,125.4 ",.01)
 ;;125.4 
 ;;9002226.02101,"843,125.4 ",.02)
 ;;125.4 
 ;;9002226.02101,"843,125.5 ",.01)
 ;;125.5 
 ;;9002226.02101,"843,125.5 ",.02)
 ;;125.5 
 ;;9002226.02101,"843,125.6 ",.01)
 ;;125.6 
 ;;9002226.02101,"843,125.6 ",.02)
 ;;125.6 
 ;;9002226.02101,"843,125.7 ",.01)
 ;;125.7 
 ;;9002226.02101,"843,125.7 ",.02)
 ;;125.7 
 ;;9002226.02101,"843,125.9 ",.01)
 ;;125.9 
 ;;9002226.02101,"843,125.9 ",.02)
 ;;125.9 
 ;;9002226.02101,"843,126.0 ",.01)
 ;;126.0 
 ;;9002226.02101,"843,126.0 ",.02)
 ;;126.0 
 ;;9002226.02101,"843,126.1 ",.01)
 ;;126.1 
 ;;9002226.02101,"843,126.1 ",.02)
 ;;126.1 
 ;;9002226.02101,"843,126.2 ",.01)
 ;;126.2 
 ;;9002226.02101,"843,126.2 ",.02)
 ;;126.2 
 ;;9002226.02101,"843,126.3 ",.01)
 ;;126.3 
 ;;9002226.02101,"843,126.3 ",.02)
 ;;126.3 
 ;;9002226.02101,"843,126.8 ",.01)
 ;;126.8 
 ;;9002226.02101,"843,126.8 ",.02)
 ;;126.8 
 ;;9002226.02101,"843,126.9 ",.01)
 ;;126.9 
 ;;9002226.02101,"843,126.9 ",.02)
 ;;126.9 
 ;;9002226.02101,"843,127.0 ",.01)
 ;;127.0 
 ;;9002226.02101,"843,127.0 ",.02)
 ;;127.0 
 ;;9002226.02101,"843,127.1 ",.01)
 ;;127.1 
 ;;9002226.02101,"843,127.1 ",.02)
 ;;127.1 
 ;;9002226.02101,"843,127.2 ",.01)
 ;;127.2 
 ;;9002226.02101,"843,127.2 ",.02)
 ;;127.2 
 ;;9002226.02101,"843,127.3 ",.01)
 ;;127.3 
 ;;9002226.02101,"843,127.3 ",.02)
 ;;127.3 
 ;;9002226.02101,"843,127.4 ",.01)
 ;;127.4 
 ;;9002226.02101,"843,127.4 ",.02)
 ;;127.4 
 ;;9002226.02101,"843,127.5 ",.01)
 ;;127.5 
 ;;9002226.02101,"843,127.5 ",.02)
 ;;127.5 
 ;;9002226.02101,"843,127.6 ",.01)
 ;;127.6 
 ;;9002226.02101,"843,127.6 ",.02)
 ;;127.6 
 ;;9002226.02101,"843,127.7 ",.01)
 ;;127.7 
 ;;9002226.02101,"843,127.7 ",.02)
 ;;127.7 
 ;;9002226.02101,"843,127.8 ",.01)
 ;;127.8 
 ;;9002226.02101,"843,127.8 ",.02)
 ;;127.8 
 ;;9002226.02101,"843,127.9 ",.01)
 ;;127.9 
 ;;9002226.02101,"843,127.9 ",.02)
 ;;127.9 
 ;;9002226.02101,"843,128.0 ",.01)
 ;;128.0 
 ;;9002226.02101,"843,128.0 ",.02)
 ;;128.0 
 ;;9002226.02101,"843,128.1 ",.01)
 ;;128.1 
 ;;9002226.02101,"843,128.1 ",.02)
 ;;128.1 
 ;;9002226.02101,"843,128.8 ",.01)
 ;;128.8 
 ;;9002226.02101,"843,128.8 ",.02)
 ;;128.8 
 ;;9002226.02101,"843,128.9 ",.01)
 ;;128.9 
 ;;9002226.02101,"843,128.9 ",.02)
 ;;128.9 
 ;;9002226.02101,"843,129 ",.01)
 ;;129 
 ;;9002226.02101,"843,129 ",.02)
 ;;129 
 ;;9002226.02101,"843,130.0 ",.01)
 ;;130.0 
 ;;9002226.02101,"843,130.0 ",.02)
 ;;130.0 
 ;;9002226.02101,"843,130.1 ",.01)
 ;;130.1 
 ;;9002226.02101,"843,130.1 ",.02)
 ;;130.1 
 ;;9002226.02101,"843,130.2 ",.01)
 ;;130.2 
 ;;9002226.02101,"843,130.2 ",.02)
 ;;130.2 
 ;;9002226.02101,"843,130.3 ",.01)
 ;;130.3 
 ;;9002226.02101,"843,130.3 ",.02)
 ;;130.3 
 ;;9002226.02101,"843,130.4 ",.01)
 ;;130.4 
 ;;9002226.02101,"843,130.4 ",.02)
 ;;130.4 
 ;;9002226.02101,"843,130.5 ",.01)
 ;;130.5 
 ;;9002226.02101,"843,130.5 ",.02)
 ;;130.5 
 ;;9002226.02101,"843,130.7 ",.01)
 ;;130.7 
 ;;9002226.02101,"843,130.7 ",.02)
 ;;130.7 
 ;;9002226.02101,"843,130.8 ",.01)
 ;;130.8 
 ;;9002226.02101,"843,130.8 ",.02)
 ;;130.8 
 ;;9002226.02101,"843,130.9 ",.01)
 ;;130.9 
 ;;9002226.02101,"843,130.9 ",.02)
 ;;130.9 
 ;;9002226.02101,"843,131.00 ",.01)
 ;;131.00