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

BGP8CXMG.m

Go to the documentation of this file.
BGP8CXMG ; 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,017.75 ",.01)
 ;;017.75 
 ;;9002226.02101,"692,017.75 ",.02)
 ;;017.75 
 ;;9002226.02101,"692,017.76 ",.01)
 ;;017.76 
 ;;9002226.02101,"692,017.76 ",.02)
 ;;017.76 
 ;;9002226.02101,"692,017.80 ",.01)
 ;;017.80 
 ;;9002226.02101,"692,017.80 ",.02)
 ;;017.80 
 ;;9002226.02101,"692,017.81 ",.01)
 ;;017.81 
 ;;9002226.02101,"692,017.81 ",.02)
 ;;017.81 
 ;;9002226.02101,"692,017.82 ",.01)
 ;;017.82 
 ;;9002226.02101,"692,017.82 ",.02)
 ;;017.82 
 ;;9002226.02101,"692,017.83 ",.01)
 ;;017.83 
 ;;9002226.02101,"692,017.83 ",.02)
 ;;017.83 
 ;;9002226.02101,"692,017.84 ",.01)
 ;;017.84 
 ;;9002226.02101,"692,017.84 ",.02)
 ;;017.84 
 ;;9002226.02101,"692,017.85 ",.01)
 ;;017.85 
 ;;9002226.02101,"692,017.85 ",.02)
 ;;017.85 
 ;;9002226.02101,"692,017.86 ",.01)
 ;;017.86 
 ;;9002226.02101,"692,017.86 ",.02)
 ;;017.86 
 ;;9002226.02101,"692,017.90 ",.01)
 ;;017.90 
 ;;9002226.02101,"692,017.90 ",.02)
 ;;017.90 
 ;;9002226.02101,"692,017.91 ",.01)
 ;;017.91 
 ;;9002226.02101,"692,017.91 ",.02)
 ;;017.91 
 ;;9002226.02101,"692,017.92 ",.01)
 ;;017.92 
 ;;9002226.02101,"692,017.92 ",.02)
 ;;017.92 
 ;;9002226.02101,"692,017.93 ",.01)
 ;;017.93 
 ;;9002226.02101,"692,017.93 ",.02)
 ;;017.93 
 ;;9002226.02101,"692,017.94 ",.01)
 ;;017.94 
 ;;9002226.02101,"692,017.94 ",.02)
 ;;017.94 
 ;;9002226.02101,"692,017.95 ",.01)
 ;;017.95 
 ;;9002226.02101,"692,017.95 ",.02)
 ;;017.95 
 ;;9002226.02101,"692,017.96 ",.01)
 ;;017.96 
 ;;9002226.02101,"692,017.96 ",.02)
 ;;017.96 
 ;;9002226.02101,"692,018.00 ",.01)
 ;;018.00 
 ;;9002226.02101,"692,018.00 ",.02)
 ;;018.00 
 ;;9002226.02101,"692,018.01 ",.01)
 ;;018.01 
 ;;9002226.02101,"692,018.01 ",.02)
 ;;018.01 
 ;;9002226.02101,"692,018.02 ",.01)
 ;;018.02 
 ;;9002226.02101,"692,018.02 ",.02)
 ;;018.02 
 ;;9002226.02101,"692,018.03 ",.01)
 ;;018.03 
 ;;9002226.02101,"692,018.03 ",.02)
 ;;018.03 
 ;;9002226.02101,"692,018.04 ",.01)
 ;;018.04 
 ;;9002226.02101,"692,018.04 ",.02)
 ;;018.04 
 ;;9002226.02101,"692,018.05 ",.01)
 ;;018.05 
 ;;9002226.02101,"692,018.05 ",.02)
 ;;018.05 
 ;;9002226.02101,"692,018.06 ",.01)
 ;;018.06 
 ;;9002226.02101,"692,018.06 ",.02)
 ;;018.06 
 ;;9002226.02101,"692,018.80 ",.01)
 ;;018.80 
 ;;9002226.02101,"692,018.80 ",.02)
 ;;018.80 
 ;;9002226.02101,"692,018.81 ",.01)
 ;;018.81 
 ;;9002226.02101,"692,018.81 ",.02)
 ;;018.81 
 ;;9002226.02101,"692,018.82 ",.01)
 ;;018.82 
 ;;9002226.02101,"692,018.82 ",.02)
 ;;018.82 
 ;;9002226.02101,"692,018.83 ",.01)
 ;;018.83 
 ;;9002226.02101,"692,018.83 ",.02)
 ;;018.83 
 ;;9002226.02101,"692,018.84 ",.01)
 ;;018.84 
 ;;9002226.02101,"692,018.84 ",.02)
 ;;018.84 
 ;;9002226.02101,"692,018.85 ",.01)
 ;;018.85 
 ;;9002226.02101,"692,018.85 ",.02)
 ;;018.85 
 ;;9002226.02101,"692,018.86 ",.01)
 ;;018.86 
 ;;9002226.02101,"692,018.86 ",.02)
 ;;018.86 
 ;;9002226.02101,"692,018.90 ",.01)
 ;;018.90 
 ;;9002226.02101,"692,018.90 ",.02)
 ;;018.90 
 ;;9002226.02101,"692,018.91 ",.01)
 ;;018.91 
 ;;9002226.02101,"692,018.91 ",.02)
 ;;018.91 
 ;;9002226.02101,"692,018.92 ",.01)
 ;;018.92 
 ;;9002226.02101,"692,018.92 ",.02)
 ;;018.92 
 ;;9002226.02101,"692,018.93 ",.01)
 ;;018.93 
 ;;9002226.02101,"692,018.93 ",.02)
 ;;018.93 
 ;;9002226.02101,"692,018.94 ",.01)
 ;;018.94 
 ;;9002226.02101,"692,018.94 ",.02)
 ;;018.94 
 ;;9002226.02101,"692,018.95 ",.01)
 ;;018.95 
 ;;9002226.02101,"692,018.95 ",.02)
 ;;018.95 
 ;;9002226.02101,"692,018.96 ",.01)
 ;;018.96 
 ;;9002226.02101,"692,018.96 ",.02)
 ;;018.96 
 ;;9002226.02101,"692,020.0 ",.01)
 ;;020.0 
 ;;9002226.02101,"692,020.0 ",.02)
 ;;020.0 
 ;;9002226.02101,"692,020.1 ",.01)
 ;;020.1 
 ;;9002226.02101,"692,020.1 ",.02)
 ;;020.1 
 ;;9002226.02101,"692,020.2 ",.01)
 ;;020.2 
 ;;9002226.02101,"692,020.2 ",.02)
 ;;020.2 
 ;;9002226.02101,"692,020.3 ",.01)
 ;;020.3 
 ;;9002226.02101,"692,020.3 ",.02)
 ;;020.3 
 ;;9002226.02101,"692,020.4 ",.01)
 ;;020.4 
 ;;9002226.02101,"692,020.4 ",.02)
 ;;020.4 
 ;;9002226.02101,"692,020.5 ",.01)
 ;;020.5 
 ;;9002226.02101,"692,020.5 ",.02)
 ;;020.5 
 ;;9002226.02101,"692,020.8 ",.01)
 ;;020.8 
 ;;9002226.02101,"692,020.8 ",.02)
 ;;020.8 
 ;;9002226.02101,"692,020.9 ",.01)
 ;;020.9 
 ;;9002226.02101,"692,020.9 ",.02)
 ;;020.9 
 ;;9002226.02101,"692,021.0 ",.01)
 ;;021.0 
 ;;9002226.02101,"692,021.0 ",.02)
 ;;021.0 
 ;;9002226.02101,"692,021.1 ",.01)
 ;;021.1 
 ;;9002226.02101,"692,021.1 ",.02)
 ;;021.1 
 ;;9002226.02101,"692,021.2 ",.01)
 ;;021.2 
 ;;9002226.02101,"692,021.2 ",.02)
 ;;021.2 
 ;;9002226.02101,"692,021.3 ",.01)
 ;;021.3 
 ;;9002226.02101,"692,021.3 ",.02)
 ;;021.3 
 ;;9002226.02101,"692,021.8 ",.01)
 ;;021.8 
 ;;9002226.02101,"692,021.8 ",.02)
 ;;021.8 
 ;;9002226.02101,"692,021.9 ",.01)
 ;;021.9 
 ;;9002226.02101,"692,021.9 ",.02)
 ;;021.9 
 ;;9002226.02101,"692,022.0 ",.01)
 ;;022.0 
 ;;9002226.02101,"692,022.0 ",.02)
 ;;022.0 
 ;;9002226.02101,"692,022.1 ",.01)
 ;;022.1 
 ;;9002226.02101,"692,022.1 ",.02)
 ;;022.1 
 ;;9002226.02101,"692,022.2 ",.01)
 ;;022.2 
 ;;9002226.02101,"692,022.2 ",.02)
 ;;022.2 
 ;;9002226.02101,"692,022.3 ",.01)
 ;;022.3 
 ;;9002226.02101,"692,022.3 ",.02)
 ;;022.3 
 ;;9002226.02101,"692,022.8 ",.01)
 ;;022.8 
 ;;9002226.02101,"692,022.8 ",.02)
 ;;022.8 
 ;;9002226.02101,"692,022.9 ",.01)
 ;;022.9 
 ;;9002226.02101,"692,022.9 ",.02)
 ;;022.9 
 ;;9002226.02101,"692,023.0 ",.01)
 ;;023.0 
 ;;9002226.02101,"692,023.0 ",.02)
 ;;023.0 
 ;;9002226.02101,"692,023.1 ",.01)
 ;;023.1 
 ;;9002226.02101,"692,023.1 ",.02)
 ;;023.1 
 ;;9002226.02101,"692,023.2 ",.01)
 ;;023.2 
 ;;9002226.02101,"692,023.2 ",.02)
 ;;023.2 
 ;;9002226.02101,"692,023.3 ",.01)
 ;;023.3 
 ;;9002226.02101,"692,023.3 ",.02)
 ;;023.3 
 ;;9002226.02101,"692,023.8 ",.01)
 ;;023.8 
 ;;9002226.02101,"692,023.8 ",.02)
 ;;023.8 
 ;;9002226.02101,"692,023.9 ",.01)
 ;;023.9 
 ;;9002226.02101,"692,023.9 ",.02)
 ;;023.9 
 ;;9002226.02101,"692,024 ",.01)
 ;;024 
 ;;9002226.02101,"692,024 ",.02)
 ;;024 
 ;;9002226.02101,"692,025 ",.01)
 ;;025 
 ;;9002226.02101,"692,025 ",.02)
 ;;025 
 ;;9002226.02101,"692,026.0 ",.01)
 ;;026.0 
 ;;9002226.02101,"692,026.0 ",.02)
 ;;026.0 
 ;;9002226.02101,"692,026.1 ",.01)
 ;;026.1 
 ;;9002226.02101,"692,026.1 ",.02)
 ;;026.1 
 ;;9002226.02101,"692,026.9 ",.01)
 ;;026.9 
 ;;9002226.02101,"692,026.9 ",.02)
 ;;026.9 
 ;;9002226.02101,"692,027.0 ",.01)
 ;;027.0 
 ;;9002226.02101,"692,027.0 ",.02)
 ;;027.0 
 ;;9002226.02101,"692,027.1 ",.01)
 ;;027.1 
 ;;9002226.02101,"692,027.1 ",.02)
 ;;027.1 
 ;;9002226.02101,"692,027.2 ",.01)
 ;;027.2 
 ;;9002226.02101,"692,027.2 ",.02)
 ;;027.2 
 ;;9002226.02101,"692,027.8 ",.01)
 ;;027.8 
 ;;9002226.02101,"692,027.8 ",.02)
 ;;027.8 
 ;;9002226.02101,"692,027.9 ",.01)
 ;;027.9 
 ;;9002226.02101,"692,027.9 ",.02)
 ;;027.9 
 ;;9002226.02101,"692,030.0 ",.01)
 ;;030.0 
 ;;9002226.02101,"692,030.0 ",.02)
 ;;030.0 
 ;;9002226.02101,"692,030.1 ",.01)
 ;;030.1 
 ;;9002226.02101,"692,030.1 ",.02)
 ;;030.1 
 ;;9002226.02101,"692,030.2 ",.01)
 ;;030.2 
 ;;9002226.02101,"692,030.2 ",.02)
 ;;030.2 
 ;;9002226.02101,"692,030.3 ",.01)
 ;;030.3 
 ;;9002226.02101,"692,030.3 ",.02)
 ;;030.3 
 ;;9002226.02101,"692,030.8 ",.01)
 ;;030.8 
 ;;9002226.02101,"692,030.8 ",.02)
 ;;030.8 
 ;;9002226.02101,"692,030.9 ",.01)
 ;;030.9 
 ;;9002226.02101,"692,030.9 ",.02)
 ;;030.9 
 ;;9002226.02101,"692,031.0 ",.01)
 ;;031.0 
 ;;9002226.02101,"692,031.0 ",.02)
 ;;031.0 
 ;;9002226.02101,"692,031.1 ",.01)
 ;;031.1 
 ;;9002226.02101,"692,031.1 ",.02)
 ;;031.1 
 ;;9002226.02101,"692,031.2 ",.01)
 ;;031.2 
 ;;9002226.02101,"692,031.2 ",.02)
 ;;031.2 
 ;;9002226.02101,"692,031.8 ",.01)
 ;;031.8 
 ;;9002226.02101,"692,031.8 ",.02)
 ;;031.8 
 ;;9002226.02101,"692,031.9 ",.01)
 ;;031.9 
 ;;9002226.02101,"692,031.9 ",.02)
 ;;031.9 
 ;;9002226.02101,"692,032.0 ",.01)
 ;;032.0 
 ;;9002226.02101,"692,032.0 ",.02)
 ;;032.0 
 ;;9002226.02101,"692,032.1 ",.01)
 ;;032.1 
 ;;9002226.02101,"692,032.1 ",.02)
 ;;032.1 
 ;;9002226.02101,"692,032.2 ",.01)
 ;;032.2 
 ;;9002226.02101,"692,032.2 ",.02)
 ;;032.2 
 ;;9002226.02101,"692,032.3 ",.01)
 ;;032.3 
 ;;9002226.02101,"692,032.3 ",.02)
 ;;032.3 
 ;;9002226.02101,"692,032.81 ",.01)
 ;;032.81 
 ;;9002226.02101,"692,032.81 ",.02)
 ;;032.81 
 ;;9002226.02101,"692,032.82 ",.01)
 ;;032.82 
 ;;9002226.02101,"692,032.82 ",.02)
 ;;032.82 
 ;;9002226.02101,"692,032.83 ",.01)
 ;;032.83 
 ;;9002226.02101,"692,032.83 ",.02)
 ;;032.83 
 ;;9002226.02101,"692,032.84 ",.01)
 ;;032.84 
 ;;9002226.02101,"692,032.84 ",.02)
 ;;032.84 
 ;;9002226.02101,"692,032.85 ",.01)
 ;;032.85 
 ;;9002226.02101,"692,032.85 ",.02)
 ;;032.85 
 ;;9002226.02101,"692,032.89 ",.01)
 ;;032.89 
 ;;9002226.02101,"692,032.89 ",.02)
 ;;032.89 
 ;;9002226.02101,"692,032.9 ",.01)
 ;;032.9 
 ;;9002226.02101,"692,032.9 ",.02)
 ;;032.9 
 ;;9002226.02101,"692,033.0 ",.01)
 ;;033.0 
 ;;9002226.02101,"692,033.0 ",.02)
 ;;033.0 
 ;;9002226.02101,"692,033.1 ",.01)
 ;;033.1 
 ;;9002226.02101,"692,033.1 ",.02)
 ;;033.1 
 ;;9002226.02101,"692,033.8 ",.01)
 ;;033.8 
 ;;9002226.02101,"692,033.8 ",.02)
 ;;033.8 
 ;;9002226.02101,"692,033.9 ",.01)
 ;;033.9 
 ;;9002226.02101,"692,033.9 ",.02)
 ;;033.9 
 ;;9002226.02101,"692,034.0 ",.01)
 ;;034.0 
 ;;9002226.02101,"692,034.0 ",.02)
 ;;034.0 
 ;;9002226.02101,"692,034.1 ",.01)
 ;;034.1 
 ;;9002226.02101,"692,034.1 ",.02)
 ;;034.1 
 ;;9002226.02101,"692,035 ",.01)
 ;;035 
 ;;9002226.02101,"692,035 ",.02)
 ;;035 
 ;;9002226.02101,"692,036.0 ",.01)
 ;;036.0 
 ;;9002226.02101,"692,036.0 ",.02)
 ;;036.0 
 ;;9002226.02101,"692,036.1 ",.01)
 ;;036.1 
 ;;9002226.02101,"692,036.1 ",.02)
 ;;036.1 
 ;;9002226.02101,"692,036.2 ",.01)
 ;;036.2 
 ;;9002226.02101,"692,036.2 ",.02)
 ;;036.2 
 ;;9002226.02101,"692,036.3 ",.01)
 ;;036.3 
 ;;9002226.02101,"692,036.3 ",.02)
 ;;036.3 
 ;;9002226.02101,"692,036.40 ",.01)
 ;;036.40 
 ;;9002226.02101,"692,036.40 ",.02)
 ;;036.40 
 ;;9002226.02101,"692,036.41 ",.01)
 ;;036.41 
 ;;9002226.02101,"692,036.41 ",.02)
 ;;036.41 
 ;;9002226.02101,"692,036.42 ",.01)
 ;;036.42 
 ;;9002226.02101,"692,036.42 ",.02)
 ;;036.42 
 ;;9002226.02101,"692,036.43 ",.01)
 ;;036.43 
 ;;9002226.02101,"692,036.43 ",.02)
 ;;036.43 
 ;;9002226.02101,"692,036.81 ",.01)
 ;;036.81 
 ;;9002226.02101,"692,036.81 ",.02)
 ;;036.81 
 ;;9002226.02101,"692,036.82 ",.01)
 ;;036.82 
 ;;9002226.02101,"692,036.82 ",.02)
 ;;036.82 
 ;;9002226.02101,"692,036.89 ",.01)
 ;;036.89 
 ;;9002226.02101,"692,036.89 ",.02)
 ;;036.89 
 ;;9002226.02101,"692,036.9 ",.01)
 ;;036.9 
 ;;9002226.02101,"692,036.9 ",.02)
 ;;036.9 
 ;;9002226.02101,"692,037 ",.01)
 ;;037 
 ;;9002226.02101,"692,037 ",.02)
 ;;037 
 ;;9002226.02101,"692,038.0 ",.01)
 ;;038.0 
 ;;9002226.02101,"692,038.0 ",.02)
 ;;038.0 
 ;;9002226.02101,"692,038.10 ",.01)
 ;;038.10 
 ;;9002226.02101,"692,038.10 ",.02)
 ;;038.10 
 ;;9002226.02101,"692,038.11 ",.01)
 ;;038.11 
 ;;9002226.02101,"692,038.11 ",.02)
 ;;038.11 
 ;;9002226.02101,"692,038.19 ",.01)
 ;;038.19 
 ;;9002226.02101,"692,038.19 ",.02)
 ;;038.19 
 ;;9002226.02101,"692,038.2 ",.01)
 ;;038.2 
 ;;9002226.02101,"692,038.2 ",.02)
 ;;038.2 
 ;;9002226.02101,"692,038.3 ",.01)
 ;;038.3 
 ;;9002226.02101,"692,038.3 ",.02)
 ;;038.3 
 ;;9002226.02101,"692,038.40 ",.01)
 ;;038.40 
 ;;9002226.02101,"692,038.40 ",.02)
 ;;038.40 
 ;;9002226.02101,"692,038.41 ",.01)
 ;;038.41 
 ;;9002226.02101,"692,038.41 ",.02)
 ;;038.41 
 ;;9002226.02101,"692,038.42 ",.01)
 ;;038.42 
 ;;9002226.02101,"692,038.42 ",.02)
 ;;038.42 
 ;;9002226.02101,"692,038.43 ",.01)
 ;;038.43 
 ;;9002226.02101,"692,038.43 ",.02)
 ;;038.43 
 ;;9002226.02101,"692,038.44 ",.01)
 ;;038.44 
 ;;9002226.02101,"692,038.44 ",.02)
 ;;038.44 
 ;;9002226.02101,"692,038.49 ",.01)
 ;;038.49 
 ;;9002226.02101,"692,038.49 ",.02)
 ;;038.49 
 ;;9002226.02101,"692,038.8 ",.01)
 ;;038.8 
 ;;9002226.02101,"692,038.8 ",.02)
 ;;038.8 
 ;;9002226.02101,"692,038.9 ",.01)
 ;;038.9 
 ;;9002226.02101,"692,038.9 ",.02)
 ;;038.9 
 ;;9002226.02101,"692,039.0 ",.01)
 ;;039.0 
 ;;9002226.02101,"692,039.0 ",.02)
 ;;039.0 
 ;;9002226.02101,"692,039.1 ",.01)
 ;;039.1 
 ;;9002226.02101,"692,039.1 ",.02)
 ;;039.1 
 ;;9002226.02101,"692,039.2 ",.01)
 ;;039.2 
 ;;9002226.02101,"692,039.2 ",.02)
 ;;039.2 
 ;;9002226.02101,"692,039.3 ",.01)
 ;;039.3 
 ;;9002226.02101,"692,039.3 ",.02)
 ;;039.3 
 ;;9002226.02101,"692,039.4 ",.01)
 ;;039.4 
 ;;9002226.02101,"692,039.4 ",.02)
 ;;039.4 
 ;;9002226.02101,"692,039.8 ",.01)
 ;;039.8 
 ;;9002226.02101,"692,039.8 ",.02)
 ;;039.8 
 ;;9002226.02101,"692,039.9 ",.01)
 ;;039.9 
 ;;9002226.02101,"692,039.9 ",.02)
 ;;039.9 
 ;;9002226.02101,"692,040.0 ",.01)
 ;;040.0 
 ;;9002226.02101,"692,040.0 ",.02)
 ;;040.0 
 ;;9002226.02101,"692,040.1 ",.01)
 ;;040.1 
 ;;9002226.02101,"692,040.1 ",.02)
 ;;040.1 
 ;;9002226.02101,"692,040.2 ",.01)
 ;;040.2 
 ;;9002226.02101,"692,040.2 ",.02)
 ;;040.2 
 ;;9002226.02101,"692,040.3 ",.01)
 ;;040.3 
 ;;9002226.02101,"692,040.3 ",.02)
 ;;040.3 
 ;;9002226.02101,"692,040.81 ",.01)
 ;;040.81 
 ;;9002226.02101,"692,040.81 ",.02)
 ;;040.81 
 ;;9002226.02101,"692,040.82 ",.01)
 ;;040.82 
 ;;9002226.02101,"692,040.82 ",.02)
 ;;040.82