ATXD5F5 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON NOV 12, 2013;
;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48
;
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,"159,W61.62XS ",.03)
;;30
;;9002226.02101,"159,W61.69XA ",.01)
;;W61.69XA
;;9002226.02101,"159,W61.69XA ",.02)
;;W61.69XA
;;9002226.02101,"159,W61.69XA ",.03)
;;30
;;9002226.02101,"159,W61.69XD ",.01)
;;W61.69XD
;;9002226.02101,"159,W61.69XD ",.02)
;;W61.69XD
;;9002226.02101,"159,W61.69XD ",.03)
;;30
;;9002226.02101,"159,W61.69XS ",.01)
;;W61.69XS
;;9002226.02101,"159,W61.69XS ",.02)
;;W61.69XS
;;9002226.02101,"159,W61.69XS ",.03)
;;30
;;9002226.02101,"159,W61.91XA ",.01)
;;W61.91XA
;;9002226.02101,"159,W61.91XA ",.02)
;;W61.91XA
;;9002226.02101,"159,W61.91XA ",.03)
;;30
;;9002226.02101,"159,W61.91XD ",.01)
;;W61.91XD
;;9002226.02101,"159,W61.91XD ",.02)
;;W61.91XD
;;9002226.02101,"159,W61.91XD ",.03)
;;30
;;9002226.02101,"159,W61.91XS ",.01)
;;W61.91XS
;;9002226.02101,"159,W61.91XS ",.02)
;;W61.91XS
;;9002226.02101,"159,W61.91XS ",.03)
;;30
;;9002226.02101,"159,W61.92XA ",.01)
;;W61.92XA
;;9002226.02101,"159,W61.92XA ",.02)
;;W61.92XA
;;9002226.02101,"159,W61.92XA ",.03)
;;30
;;9002226.02101,"159,W61.92XD ",.01)
;;W61.92XD
;;9002226.02101,"159,W61.92XD ",.02)
;;W61.92XD
;;9002226.02101,"159,W61.92XD ",.03)
;;30
;;9002226.02101,"159,W61.92XS ",.01)
;;W61.92XS
;;9002226.02101,"159,W61.92XS ",.02)
;;W61.92XS
;;9002226.02101,"159,W61.92XS ",.03)
;;30
;;9002226.02101,"159,W61.99XA ",.01)
;;W61.99XA
;;9002226.02101,"159,W61.99XA ",.02)
;;W61.99XA
;;9002226.02101,"159,W61.99XA ",.03)
;;30
;;9002226.02101,"159,W61.99XD ",.01)
;;W61.99XD
;;9002226.02101,"159,W61.99XD ",.02)
;;W61.99XD
;;9002226.02101,"159,W61.99XD ",.03)
;;30
;;9002226.02101,"159,W61.99XS ",.01)
;;W61.99XS
;;9002226.02101,"159,W61.99XS ",.02)
;;W61.99XS
;;9002226.02101,"159,W61.99XS ",.03)
;;30
;;9002226.02101,"159,W62.0XXA ",.01)
;;W62.0XXA
;;9002226.02101,"159,W62.0XXA ",.02)
;;W62.0XXA
;;9002226.02101,"159,W62.0XXA ",.03)
;;30
;;9002226.02101,"159,W62.0XXD ",.01)
;;W62.0XXD
;;9002226.02101,"159,W62.0XXD ",.02)
;;W62.0XXD
;;9002226.02101,"159,W62.0XXD ",.03)
;;30
;;9002226.02101,"159,W62.0XXS ",.01)
;;W62.0XXS
;;9002226.02101,"159,W62.0XXS ",.02)
;;W62.0XXS
;;9002226.02101,"159,W62.0XXS ",.03)
;;30
;;9002226.02101,"159,W62.1XXA ",.01)
;;W62.1XXA
;;9002226.02101,"159,W62.1XXA ",.02)
;;W62.1XXA
;;9002226.02101,"159,W62.1XXA ",.03)
;;30
;;9002226.02101,"159,W62.1XXD ",.01)
;;W62.1XXD
;;9002226.02101,"159,W62.1XXD ",.02)
;;W62.1XXD
;;9002226.02101,"159,W62.1XXD ",.03)
;;30
;;9002226.02101,"159,W62.1XXS ",.01)
;;W62.1XXS
;;9002226.02101,"159,W62.1XXS ",.02)
;;W62.1XXS
;;9002226.02101,"159,W62.1XXS ",.03)
;;30
;;9002226.02101,"159,W62.9XXA ",.01)
;;W62.9XXA
;;9002226.02101,"159,W62.9XXA ",.02)
;;W62.9XXA
;;9002226.02101,"159,W62.9XXA ",.03)
;;30
;;9002226.02101,"159,W62.9XXD ",.01)
;;W62.9XXD
;;9002226.02101,"159,W62.9XXD ",.02)
;;W62.9XXD
;;9002226.02101,"159,W62.9XXD ",.03)
;;30
;;9002226.02101,"159,W62.9XXS ",.01)
;;W62.9XXS
;;9002226.02101,"159,W62.9XXS ",.02)
;;W62.9XXS
;;9002226.02101,"159,W62.9XXS ",.03)
;;30
;;9002226.04101,"159,1",.01)
;;APCL
ATXD5F5 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON NOV 12, 2013;
+1 ;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48
+2 ;
START ;
+1 IF '$GET(ATXPGMC)
KILL ^TMP("ATX",$JOB)
+2 SET ATXPGMC=$GET(ATXPGMC)+1
+3 FOR ATXI=1:1
SET X=$PIECE($TEXT(TMP+ATXI),";;",2,99)
IF X=""
QUIT
SET X="^TMP(""ATX"",$J,"_X
SET ATXI=ATXI+1
SET Y=$PIECE($TEXT(TMP+ATXI),";;",2,99)
SET @X=Y
+4 QUIT
+5 ;
TMP ;;TAXONOMY (WITH BULLETIN)
+1 ;;9002226.02101,"159,W61.62XS ",.03)
+2 ;;30
+3 ;;9002226.02101,"159,W61.69XA ",.01)
+4 ;;W61.69XA
+5 ;;9002226.02101,"159,W61.69XA ",.02)
+6 ;;W61.69XA
+7 ;;9002226.02101,"159,W61.69XA ",.03)
+8 ;;30
+9 ;;9002226.02101,"159,W61.69XD ",.01)
+10 ;;W61.69XD
+11 ;;9002226.02101,"159,W61.69XD ",.02)
+12 ;;W61.69XD
+13 ;;9002226.02101,"159,W61.69XD ",.03)
+14 ;;30
+15 ;;9002226.02101,"159,W61.69XS ",.01)
+16 ;;W61.69XS
+17 ;;9002226.02101,"159,W61.69XS ",.02)
+18 ;;W61.69XS
+19 ;;9002226.02101,"159,W61.69XS ",.03)
+20 ;;30
+21 ;;9002226.02101,"159,W61.91XA ",.01)
+22 ;;W61.91XA
+23 ;;9002226.02101,"159,W61.91XA ",.02)
+24 ;;W61.91XA
+25 ;;9002226.02101,"159,W61.91XA ",.03)
+26 ;;30
+27 ;;9002226.02101,"159,W61.91XD ",.01)
+28 ;;W61.91XD
+29 ;;9002226.02101,"159,W61.91XD ",.02)
+30 ;;W61.91XD
+31 ;;9002226.02101,"159,W61.91XD ",.03)
+32 ;;30
+33 ;;9002226.02101,"159,W61.91XS ",.01)
+34 ;;W61.91XS
+35 ;;9002226.02101,"159,W61.91XS ",.02)
+36 ;;W61.91XS
+37 ;;9002226.02101,"159,W61.91XS ",.03)
+38 ;;30
+39 ;;9002226.02101,"159,W61.92XA ",.01)
+40 ;;W61.92XA
+41 ;;9002226.02101,"159,W61.92XA ",.02)
+42 ;;W61.92XA
+43 ;;9002226.02101,"159,W61.92XA ",.03)
+44 ;;30
+45 ;;9002226.02101,"159,W61.92XD ",.01)
+46 ;;W61.92XD
+47 ;;9002226.02101,"159,W61.92XD ",.02)
+48 ;;W61.92XD
+49 ;;9002226.02101,"159,W61.92XD ",.03)
+50 ;;30
+51 ;;9002226.02101,"159,W61.92XS ",.01)
+52 ;;W61.92XS
+53 ;;9002226.02101,"159,W61.92XS ",.02)
+54 ;;W61.92XS
+55 ;;9002226.02101,"159,W61.92XS ",.03)
+56 ;;30
+57 ;;9002226.02101,"159,W61.99XA ",.01)
+58 ;;W61.99XA
+59 ;;9002226.02101,"159,W61.99XA ",.02)
+60 ;;W61.99XA
+61 ;;9002226.02101,"159,W61.99XA ",.03)
+62 ;;30
+63 ;;9002226.02101,"159,W61.99XD ",.01)
+64 ;;W61.99XD
+65 ;;9002226.02101,"159,W61.99XD ",.02)
+66 ;;W61.99XD
+67 ;;9002226.02101,"159,W61.99XD ",.03)
+68 ;;30
+69 ;;9002226.02101,"159,W61.99XS ",.01)
+70 ;;W61.99XS
+71 ;;9002226.02101,"159,W61.99XS ",.02)
+72 ;;W61.99XS
+73 ;;9002226.02101,"159,W61.99XS ",.03)
+74 ;;30
+75 ;;9002226.02101,"159,W62.0XXA ",.01)
+76 ;;W62.0XXA
+77 ;;9002226.02101,"159,W62.0XXA ",.02)
+78 ;;W62.0XXA
+79 ;;9002226.02101,"159,W62.0XXA ",.03)
+80 ;;30
+81 ;;9002226.02101,"159,W62.0XXD ",.01)
+82 ;;W62.0XXD
+83 ;;9002226.02101,"159,W62.0XXD ",.02)
+84 ;;W62.0XXD
+85 ;;9002226.02101,"159,W62.0XXD ",.03)
+86 ;;30
+87 ;;9002226.02101,"159,W62.0XXS ",.01)
+88 ;;W62.0XXS
+89 ;;9002226.02101,"159,W62.0XXS ",.02)
+90 ;;W62.0XXS
+91 ;;9002226.02101,"159,W62.0XXS ",.03)
+92 ;;30
+93 ;;9002226.02101,"159,W62.1XXA ",.01)
+94 ;;W62.1XXA
+95 ;;9002226.02101,"159,W62.1XXA ",.02)
+96 ;;W62.1XXA
+97 ;;9002226.02101,"159,W62.1XXA ",.03)
+98 ;;30
+99 ;;9002226.02101,"159,W62.1XXD ",.01)
+100 ;;W62.1XXD
+101 ;;9002226.02101,"159,W62.1XXD ",.02)
+102 ;;W62.1XXD
+103 ;;9002226.02101,"159,W62.1XXD ",.03)
+104 ;;30
+105 ;;9002226.02101,"159,W62.1XXS ",.01)
+106 ;;W62.1XXS
+107 ;;9002226.02101,"159,W62.1XXS ",.02)
+108 ;;W62.1XXS
+109 ;;9002226.02101,"159,W62.1XXS ",.03)
+110 ;;30
+111 ;;9002226.02101,"159,W62.9XXA ",.01)
+112 ;;W62.9XXA
+113 ;;9002226.02101,"159,W62.9XXA ",.02)
+114 ;;W62.9XXA
+115 ;;9002226.02101,"159,W62.9XXA ",.03)
+116 ;;30
+117 ;;9002226.02101,"159,W62.9XXD ",.01)
+118 ;;W62.9XXD
+119 ;;9002226.02101,"159,W62.9XXD ",.02)
+120 ;;W62.9XXD
+121 ;;9002226.02101,"159,W62.9XXD ",.03)
+122 ;;30
+123 ;;9002226.02101,"159,W62.9XXS ",.01)
+124 ;;W62.9XXS
+125 ;;9002226.02101,"159,W62.9XXS ",.02)
+126 ;;W62.9XXS
+127 ;;9002226.02101,"159,W62.9XXS ",.03)
+128 ;;30
+129 ;;9002226.04101,"159,1",.01)
+130 ;;APCL
