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

BGP8CXMJ.m

Go to the documentation of this file.
BGP8CXMJ ; 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,111.3 ",.01)
 ;;111.3 
 ;;9002226.02101,"692,111.3 ",.02)
 ;;111.3 
 ;;9002226.02101,"692,111.8 ",.01)
 ;;111.8 
 ;;9002226.02101,"692,111.8 ",.02)
 ;;111.8 
 ;;9002226.02101,"692,111.9 ",.01)
 ;;111.9 
 ;;9002226.02101,"692,111.9 ",.02)
 ;;111.9 
 ;;9002226.02101,"692,114.0 ",.01)
 ;;114.0 
 ;;9002226.02101,"692,114.0 ",.02)
 ;;114.0 
 ;;9002226.02101,"692,114.1 ",.01)
 ;;114.1 
 ;;9002226.02101,"692,114.1 ",.02)
 ;;114.1 
 ;;9002226.02101,"692,114.2 ",.01)
 ;;114.2 
 ;;9002226.02101,"692,114.2 ",.02)
 ;;114.2 
 ;;9002226.02101,"692,114.3 ",.01)
 ;;114.3 
 ;;9002226.02101,"692,114.3 ",.02)
 ;;114.3 
 ;;9002226.02101,"692,114.4 ",.01)
 ;;114.4 
 ;;9002226.02101,"692,114.4 ",.02)
 ;;114.4 
 ;;9002226.02101,"692,114.5 ",.01)
 ;;114.5 
 ;;9002226.02101,"692,114.5 ",.02)
 ;;114.5 
 ;;9002226.02101,"692,114.9 ",.01)
 ;;114.9 
 ;;9002226.02101,"692,114.9 ",.02)
 ;;114.9 
 ;;9002226.02101,"692,117.4 ",.01)
 ;;117.4 
 ;;9002226.02101,"692,117.4 ",.02)
 ;;117.4 
 ;;9002226.02101,"692,117.5 ",.01)
 ;;117.5 
 ;;9002226.02101,"692,117.5 ",.02)
 ;;117.5 
 ;;9002226.02101,"692,117.6 ",.01)
 ;;117.6 
 ;;9002226.02101,"692,117.6 ",.02)
 ;;117.6 
 ;;9002226.02101,"692,117.7 ",.01)
 ;;117.7 
 ;;9002226.02101,"692,117.7 ",.02)
 ;;117.7 
 ;;9002226.02101,"692,117.8 ",.01)
 ;;117.8 
 ;;9002226.02101,"692,117.8 ",.02)
 ;;117.8 
 ;;9002226.02101,"692,117.9 ",.01)
 ;;117.9 
 ;;9002226.02101,"692,117.9 ",.02)
 ;;117.9 
 ;;9002226.02101,"692,118 ",.01)
 ;;118 
 ;;9002226.02101,"692,118 ",.02)
 ;;118 
 ;;9002226.02101,"692,120.0 ",.01)
 ;;120.0 
 ;;9002226.02101,"692,120.0 ",.02)
 ;;120.0 
 ;;9002226.02101,"692,120.1 ",.01)
 ;;120.1 
 ;;9002226.02101,"692,120.1 ",.02)
 ;;120.1 
 ;;9002226.02101,"692,120.2 ",.01)
 ;;120.2 
 ;;9002226.02101,"692,120.2 ",.02)
 ;;120.2 
 ;;9002226.02101,"692,120.3 ",.01)
 ;;120.3 
 ;;9002226.02101,"692,120.3 ",.02)
 ;;120.3 
 ;;9002226.02101,"692,120.8 ",.01)
 ;;120.8 
 ;;9002226.02101,"692,120.8 ",.02)
 ;;120.8 
 ;;9002226.02101,"692,120.9 ",.01)
 ;;120.9 
 ;;9002226.02101,"692,120.9 ",.02)
 ;;120.9 
 ;;9002226.02101,"692,121.0 ",.01)
 ;;121.0 
 ;;9002226.02101,"692,121.0 ",.02)
 ;;121.0 
 ;;9002226.02101,"692,121.1 ",.01)
 ;;121.1 
 ;;9002226.02101,"692,121.1 ",.02)
 ;;121.1 
 ;;9002226.02101,"692,121.2 ",.01)
 ;;121.2 
 ;;9002226.02101,"692,121.2 ",.02)
 ;;121.2 
 ;;9002226.02101,"692,121.3 ",.01)
 ;;121.3 
 ;;9002226.02101,"692,121.3 ",.02)
 ;;121.3 
 ;;9002226.02101,"692,121.4 ",.01)
 ;;121.4 
 ;;9002226.02101,"692,121.4 ",.02)
 ;;121.4 
 ;;9002226.02101,"692,121.5 ",.01)
 ;;121.5 
 ;;9002226.02101,"692,121.5 ",.02)
 ;;121.5 
 ;;9002226.02101,"692,121.6 ",.01)
 ;;121.6 
 ;;9002226.02101,"692,121.6 ",.02)
 ;;121.6 
 ;;9002226.02101,"692,121.8 ",.01)
 ;;121.8 
 ;;9002226.02101,"692,121.8 ",.02)
 ;;121.8 
 ;;9002226.02101,"692,121.9 ",.01)
 ;;121.9 
 ;;9002226.02101,"692,121.9 ",.02)
 ;;121.9 
 ;;9002226.02101,"692,122.0 ",.01)
 ;;122.0 
 ;;9002226.02101,"692,122.0 ",.02)
 ;;122.0 
 ;;9002226.02101,"692,122.1 ",.01)
 ;;122.1 
 ;;9002226.02101,"692,122.1 ",.02)
 ;;122.1 
 ;;9002226.02101,"692,122.2 ",.01)
 ;;122.2 
 ;;9002226.02101,"692,122.2 ",.02)
 ;;122.2 
 ;;9002226.02101,"692,122.3 ",.01)
 ;;122.3 
 ;;9002226.02101,"692,122.3 ",.02)
 ;;122.3 
 ;;9002226.02101,"692,122.4 ",.01)
 ;;122.4 
 ;;9002226.02101,"692,122.4 ",.02)
 ;;122.4 
 ;;9002226.02101,"692,122.5 ",.01)
 ;;122.5 
 ;;9002226.02101,"692,122.5 ",.02)
 ;;122.5 
 ;;9002226.02101,"692,122.6 ",.01)
 ;;122.6 
 ;;9002226.02101,"692,122.6 ",.02)
 ;;122.6 
 ;;9002226.02101,"692,122.7 ",.01)
 ;;122.7 
 ;;9002226.02101,"692,122.7 ",.02)
 ;;122.7 
 ;;9002226.02101,"692,122.8 ",.01)
 ;;122.8 
 ;;9002226.02101,"692,122.8 ",.02)
 ;;122.8 
 ;;9002226.02101,"692,122.9 ",.01)
 ;;122.9 
 ;;9002226.02101,"692,122.9 ",.02)
 ;;122.9 
 ;;9002226.02101,"692,123.0 ",.01)
 ;;123.0 
 ;;9002226.02101,"692,123.0 ",.02)
 ;;123.0 
 ;;9002226.02101,"692,123.1 ",.01)
 ;;123.1 
 ;;9002226.02101,"692,123.1 ",.02)
 ;;123.1 
 ;;9002226.02101,"692,123.2 ",.01)
 ;;123.2 
 ;;9002226.02101,"692,123.2 ",.02)
 ;;123.2 
 ;;9002226.02101,"692,123.3 ",.01)
 ;;123.3 
 ;;9002226.02101,"692,123.3 ",.02)
 ;;123.3 
 ;;9002226.02101,"692,123.4 ",.01)
 ;;123.4 
 ;;9002226.02101,"692,123.4 ",.02)
 ;;123.4 
 ;;9002226.02101,"692,123.5 ",.01)
 ;;123.5 
 ;;9002226.02101,"692,123.5 ",.02)
 ;;123.5 
 ;;9002226.02101,"692,123.6 ",.01)
 ;;123.6 
 ;;9002226.02101,"692,123.6 ",.02)
 ;;123.6 
 ;;9002226.02101,"692,123.8 ",.01)
 ;;123.8 
 ;;9002226.02101,"692,123.8 ",.02)
 ;;123.8 
 ;;9002226.02101,"692,123.9 ",.01)
 ;;123.9 
 ;;9002226.02101,"692,123.9 ",.02)
 ;;123.9 
 ;;9002226.02101,"692,124 ",.01)
 ;;124 
 ;;9002226.02101,"692,124 ",.02)
 ;;124 
 ;;9002226.02101,"692,125.0 ",.01)
 ;;125.0 
 ;;9002226.02101,"692,125.0 ",.02)
 ;;125.0 
 ;;9002226.02101,"692,125.1 ",.01)
 ;;125.1 
 ;;9002226.02101,"692,125.1 ",.02)
 ;;125.1 
 ;;9002226.02101,"692,125.2 ",.01)
 ;;125.2 
 ;;9002226.02101,"692,125.2 ",.02)
 ;;125.2 
 ;;9002226.02101,"692,125.3 ",.01)
 ;;125.3 
 ;;9002226.02101,"692,125.3 ",.02)
 ;;125.3 
 ;;9002226.02101,"692,125.4 ",.01)
 ;;125.4 
 ;;9002226.02101,"692,125.4 ",.02)
 ;;125.4 
 ;;9002226.02101,"692,125.5 ",.01)
 ;;125.5 
 ;;9002226.02101,"692,125.5 ",.02)
 ;;125.5 
 ;;9002226.02101,"692,125.6 ",.01)
 ;;125.6 
 ;;9002226.02101,"692,125.6 ",.02)
 ;;125.6 
 ;;9002226.02101,"692,125.7 ",.01)
 ;;125.7 
 ;;9002226.02101,"692,125.7 ",.02)
 ;;125.7 
 ;;9002226.02101,"692,125.9 ",.01)
 ;;125.9 
 ;;9002226.02101,"692,125.9 ",.02)
 ;;125.9 
 ;;9002226.02101,"692,126.0 ",.01)
 ;;126.0 
 ;;9002226.02101,"692,126.0 ",.02)
 ;;126.0 
 ;;9002226.02101,"692,126.1 ",.01)
 ;;126.1 
 ;;9002226.02101,"692,126.1 ",.02)
 ;;126.1 
 ;;9002226.02101,"692,126.2 ",.01)
 ;;126.2 
 ;;9002226.02101,"692,126.2 ",.02)
 ;;126.2 
 ;;9002226.02101,"692,126.3 ",.01)
 ;;126.3 
 ;;9002226.02101,"692,126.3 ",.02)
 ;;126.3 
 ;;9002226.02101,"692,126.8 ",.01)
 ;;126.8 
 ;;9002226.02101,"692,126.8 ",.02)
 ;;126.8 
 ;;9002226.02101,"692,126.9 ",.01)
 ;;126.9 
 ;;9002226.02101,"692,126.9 ",.02)
 ;;126.9 
 ;;9002226.02101,"692,127.0 ",.01)
 ;;127.0 
 ;;9002226.02101,"692,127.0 ",.02)
 ;;127.0 
 ;;9002226.02101,"692,127.1 ",.01)
 ;;127.1 
 ;;9002226.02101,"692,127.1 ",.02)
 ;;127.1 
 ;;9002226.02101,"692,127.2 ",.01)
 ;;127.2 
 ;;9002226.02101,"692,127.2 ",.02)
 ;;127.2 
 ;;9002226.02101,"692,127.3 ",.01)
 ;;127.3 
 ;;9002226.02101,"692,127.3 ",.02)
 ;;127.3 
 ;;9002226.02101,"692,127.4 ",.01)
 ;;127.4 
 ;;9002226.02101,"692,127.4 ",.02)
 ;;127.4 
 ;;9002226.02101,"692,127.5 ",.01)
 ;;127.5 
 ;;9002226.02101,"692,127.5 ",.02)
 ;;127.5 
 ;;9002226.02101,"692,127.6 ",.01)
 ;;127.6 
 ;;9002226.02101,"692,127.6 ",.02)
 ;;127.6 
 ;;9002226.02101,"692,127.7 ",.01)
 ;;127.7 
 ;;9002226.02101,"692,127.7 ",.02)
 ;;127.7 
 ;;9002226.02101,"692,127.8 ",.01)
 ;;127.8 
 ;;9002226.02101,"692,127.8 ",.02)
 ;;127.8 
 ;;9002226.02101,"692,127.9 ",.01)
 ;;127.9 
 ;;9002226.02101,"692,127.9 ",.02)
 ;;127.9 
 ;;9002226.02101,"692,128.0 ",.01)
 ;;128.0 
 ;;9002226.02101,"692,128.0 ",.02)
 ;;128.0 
 ;;9002226.02101,"692,128.1 ",.01)
 ;;128.1 
 ;;9002226.02101,"692,128.1 ",.02)
 ;;128.1 
 ;;9002226.02101,"692,128.8 ",.01)
 ;;128.8 
 ;;9002226.02101,"692,128.8 ",.02)
 ;;128.8 
 ;;9002226.02101,"692,128.9 ",.01)
 ;;128.9 
 ;;9002226.02101,"692,128.9 ",.02)
 ;;128.9 
 ;;9002226.02101,"692,129 ",.01)
 ;;129 
 ;;9002226.02101,"692,129 ",.02)
 ;;129 
 ;;9002226.02101,"692,130.0 ",.01)
 ;;130.0 
 ;;9002226.02101,"692,130.0 ",.02)
 ;;130.0 
 ;;9002226.02101,"692,130.1 ",.01)
 ;;130.1 
 ;;9002226.02101,"692,130.1 ",.02)
 ;;130.1 
 ;;9002226.02101,"692,130.2 ",.01)
 ;;130.2 
 ;;9002226.02101,"692,130.2 ",.02)
 ;;130.2 
 ;;9002226.02101,"692,130.3 ",.01)
 ;;130.3 
 ;;9002226.02101,"692,130.3 ",.02)
 ;;130.3 
 ;;9002226.02101,"692,130.4 ",.01)
 ;;130.4 
 ;;9002226.02101,"692,130.4 ",.02)
 ;;130.4 
 ;;9002226.02101,"692,130.5 ",.01)
 ;;130.5 
 ;;9002226.02101,"692,130.5 ",.02)
 ;;130.5 
 ;;9002226.02101,"692,130.7 ",.01)
 ;;130.7 
 ;;9002226.02101,"692,130.7 ",.02)
 ;;130.7 
 ;;9002226.02101,"692,130.8 ",.01)
 ;;130.8 
 ;;9002226.02101,"692,130.8 ",.02)
 ;;130.8 
 ;;9002226.02101,"692,130.9 ",.01)
 ;;130.9 
 ;;9002226.02101,"692,130.9 ",.02)
 ;;130.9 
 ;;9002226.02101,"692,131.00 ",.01)
 ;;131.00 
 ;;9002226.02101,"692,131.00 ",.02)
 ;;131.00 
 ;;9002226.02101,"692,131.01 ",.01)
 ;;131.01 
 ;;9002226.02101,"692,131.01 ",.02)
 ;;131.01 
 ;;9002226.02101,"692,131.02 ",.01)
 ;;131.02 
 ;;9002226.02101,"692,131.02 ",.02)
 ;;131.02 
 ;;9002226.02101,"692,131.03 ",.01)
 ;;131.03 
 ;;9002226.02101,"692,131.03 ",.02)
 ;;131.03 
 ;;9002226.02101,"692,131.09 ",.01)
 ;;131.09 
 ;;9002226.02101,"692,131.09 ",.02)
 ;;131.09 
 ;;9002226.02101,"692,131.8 ",.01)
 ;;131.8 
 ;;9002226.02101,"692,131.8 ",.02)
 ;;131.8 
 ;;9002226.02101,"692,131.9 ",.01)
 ;;131.9 
 ;;9002226.02101,"692,131.9 ",.02)
 ;;131.9 
 ;;9002226.02101,"692,132.2 ",.01)
 ;;132.2 
 ;;9002226.02101,"692,132.2 ",.02)
 ;;132.2 
 ;;9002226.02101,"692,132.3 ",.01)
 ;;132.3 
 ;;9002226.02101,"692,132.3 ",.02)
 ;;132.3 
 ;;9002226.02101,"692,132.9 ",.01)
 ;;132.9 
 ;;9002226.02101,"692,132.9 ",.02)
 ;;132.9 
 ;;9002226.02101,"692,133.0 ",.01)
 ;;133.0 
 ;;9002226.02101,"692,133.0 ",.02)
 ;;133.0 
 ;;9002226.02101,"692,133.8 ",.01)
 ;;133.8 
 ;;9002226.02101,"692,133.8 ",.02)
 ;;133.8 
 ;;9002226.02101,"692,133.9 ",.01)
 ;;133.9 
 ;;9002226.02101,"692,133.9 ",.02)
 ;;133.9 
 ;;9002226.02101,"692,134.0 ",.01)
 ;;134.0 
 ;;9002226.02101,"692,134.0 ",.02)
 ;;134.0 
 ;;9002226.02101,"692,134.1 ",.01)
 ;;134.1 
 ;;9002226.02101,"692,134.1 ",.02)
 ;;134.1 
 ;;9002226.02101,"692,134.2 ",.01)
 ;;134.2 
 ;;9002226.02101,"692,134.2 ",.02)
 ;;134.2 
 ;;9002226.02101,"692,134.8 ",.01)
 ;;134.8 
 ;;9002226.02101,"692,134.8 ",.02)
 ;;134.8 
 ;;9002226.02101,"692,134.9 ",.01)
 ;;134.9 
 ;;9002226.02101,"692,134.9 ",.02)
 ;;134.9 
 ;;9002226.02101,"692,135 ",.01)
 ;;135 
 ;;9002226.02101,"692,135 ",.02)
 ;;135 
 ;;9002226.02101,"692,136.0 ",.01)
 ;;136.0 
 ;;9002226.02101,"692,136.0 ",.02)
 ;;136.0 
 ;;9002226.02101,"692,136.1 ",.01)
 ;;136.1 
 ;;9002226.02101,"692,136.1 ",.02)
 ;;136.1 
 ;;9002226.02101,"692,136.2 ",.01)
 ;;136.2 
 ;;9002226.02101,"692,136.2 ",.02)
 ;;136.2 
 ;;9002226.02101,"692,136.3 ",.01)
 ;;136.3 
 ;;9002226.02101,"692,136.3 ",.02)
 ;;136.3 
 ;;9002226.02101,"692,136.4 ",.01)
 ;;136.4 
 ;;9002226.02101,"692,136.4 ",.02)
 ;;136.4 
 ;;9002226.02101,"692,136.5 ",.01)
 ;;136.5 
 ;;9002226.02101,"692,136.5 ",.02)
 ;;136.5 
 ;;9002226.02101,"692,136.8 ",.01)
 ;;136.8 
 ;;9002226.02101,"692,136.8 ",.02)
 ;;136.8 
 ;;9002226.02101,"692,136.9 ",.01)
 ;;136.9 
 ;;9002226.02101,"692,136.9 ",.02)
 ;;136.9 
 ;;9002226.02101,"692,137.0 ",.01)
 ;;137.0 
 ;;9002226.02101,"692,137.0 ",.02)
 ;;137.0 
 ;;9002226.02101,"692,137.1 ",.01)
 ;;137.1 
 ;;9002226.02101,"692,137.1 ",.02)
 ;;137.1 
 ;;9002226.02101,"692,137.2 ",.01)
 ;;137.2 
 ;;9002226.02101,"692,137.2 ",.02)
 ;;137.2 
 ;;9002226.02101,"692,137.3 ",.01)
 ;;137.3 
 ;;9002226.02101,"692,137.3 ",.02)
 ;;137.3 
 ;;9002226.02101,"692,137.4 ",.01)
 ;;137.4 
 ;;9002226.02101,"692,137.4 ",.02)
 ;;137.4 
 ;;9002226.02101,"692,139.1 ",.01)
 ;;139.1 
 ;;9002226.02101,"692,139.1 ",.02)
 ;;139.1 
 ;;9002226.02101,"692,139.8 ",.01)
 ;;139.8 
 ;;9002226.02101,"692,139.8 ",.02)
 ;;139.8 
 ;;9002226.02101,"692,320.0 ",.01)
 ;;320.0 
 ;;9002226.02101,"692,320.0 ",.02)
 ;;320.0 
 ;;9002226.02101,"692,320.1 ",.01)
 ;;320.1 
 ;;9002226.02101,"692,320.1 ",.02)
 ;;320.1 
 ;;9002226.02101,"692,320.2 ",.01)
 ;;320.2 
 ;;9002226.02101,"692,320.2 ",.02)
 ;;320.2 
 ;;9002226.02101,"692,320.3 ",.01)
 ;;320.3 
 ;;9002226.02101,"692,320.3 ",.02)
 ;;320.3 
 ;;9002226.02101,"692,320.7 ",.01)
 ;;320.7 
 ;;9002226.02101,"692,320.7 ",.02)
 ;;320.7 
 ;;9002226.02101,"692,320.81 ",.01)
 ;;320.81 
 ;;9002226.02101,"692,320.81 ",.02)
 ;;320.81 
 ;;9002226.02101,"692,320.82 ",.01)
 ;;320.82 
 ;;9002226.02101,"692,320.82 ",.02)
 ;;320.82 
 ;;9002226.02101,"692,320.89 ",.01)
 ;;320.89 
 ;;9002226.02101,"692,320.89 ",.02)
 ;;320.89 
 ;;9002226.02101,"692,320.9 ",.01)
 ;;320.9 
 ;;9002226.02101,"692,320.9 ",.02)
 ;;320.9 
 ;;9002226.02101,"692,321.0 ",.01)
 ;;321.0 
 ;;9002226.02101,"692,321.0 ",.02)
 ;;321.0 
 ;;9002226.02101,"692,321.1 ",.01)
 ;;321.1 
 ;;9002226.02101,"692,321.1 ",.02)
 ;;321.1 
 ;;9002226.02101,"692,321.3 ",.01)
 ;;321.3 
 ;;9002226.02101,"692,321.3 ",.02)
 ;;321.3 
 ;;9002226.02101,"692,321.4 ",.01)
 ;;321.4 
 ;;9002226.02101,"692,321.4 ",.02)
 ;;321.4 
 ;;9002226.02101,"692,321.8 ",.01)
 ;;321.8 
 ;;9002226.02101,"692,321.8 ",.02)
 ;;321.8 
 ;;9002226.02101,"692,322.0 ",.01)
 ;;322.0 
 ;;9002226.02101,"692,322.0 ",.02)
 ;;322.0 
 ;;9002226.02101,"692,322.1 ",.01)
 ;;322.1 
 ;;9002226.02101,"692,322.1 ",.02)
 ;;322.1 
 ;;9002226.02101,"692,322.2 ",.01)
 ;;322.2 
 ;;9002226.02101,"692,322.2 ",.02)
 ;;322.2 
 ;;9002226.02101,"692,322.9 ",.01)
 ;;322.9 
 ;;9002226.02101,"692,322.9 ",.02)
 ;;322.9 
 ;;9002226.02101,"692,323.1 ",.01)
 ;;323.1 
 ;;9002226.02101,"692,323.1 ",.02)
 ;;323.1