ATXD3J2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON OCT 28, 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,"516,M19.149 ",.02)
;;M19.149
;;9002226.02101,"516,M19.149 ",.03)
;;30
;;9002226.02101,"516,M19.171 ",.01)
;;M19.171
;;9002226.02101,"516,M19.171 ",.02)
;;M19.171
;;9002226.02101,"516,M19.171 ",.03)
;;30
;;9002226.02101,"516,M19.172 ",.01)
;;M19.172
;;9002226.02101,"516,M19.172 ",.02)
;;M19.172
;;9002226.02101,"516,M19.172 ",.03)
;;30
;;9002226.02101,"516,M19.179 ",.01)
;;M19.179
;;9002226.02101,"516,M19.179 ",.02)
;;M19.179
;;9002226.02101,"516,M19.179 ",.03)
;;30
;;9002226.02101,"516,M19.211 ",.01)
;;M19.211
;;9002226.02101,"516,M19.211 ",.02)
;;M19.211
;;9002226.02101,"516,M19.211 ",.03)
;;30
;;9002226.02101,"516,M19.212 ",.01)
;;M19.212
;;9002226.02101,"516,M19.212 ",.02)
;;M19.212
;;9002226.02101,"516,M19.212 ",.03)
;;30
;;9002226.02101,"516,M19.219 ",.01)
;;M19.219
;;9002226.02101,"516,M19.219 ",.02)
;;M19.219
;;9002226.02101,"516,M19.219 ",.03)
;;30
;;9002226.02101,"516,M19.221 ",.01)
;;M19.221
;;9002226.02101,"516,M19.221 ",.02)
;;M19.221
;;9002226.02101,"516,M19.221 ",.03)
;;30
;;9002226.02101,"516,M19.222 ",.01)
;;M19.222
;;9002226.02101,"516,M19.222 ",.02)
;;M19.222
;;9002226.02101,"516,M19.222 ",.03)
;;30
;;9002226.02101,"516,M19.229 ",.01)
;;M19.229
;;9002226.02101,"516,M19.229 ",.02)
;;M19.229
;;9002226.02101,"516,M19.229 ",.03)
;;30
;;9002226.02101,"516,M19.231 ",.01)
;;M19.231
;;9002226.02101,"516,M19.231 ",.02)
;;M19.231
;;9002226.02101,"516,M19.231 ",.03)
;;30
;;9002226.02101,"516,M19.232 ",.01)
;;M19.232
;;9002226.02101,"516,M19.232 ",.02)
;;M19.232
;;9002226.02101,"516,M19.232 ",.03)
;;30
;;9002226.02101,"516,M19.239 ",.01)
;;M19.239
;;9002226.02101,"516,M19.239 ",.02)
;;M19.239
;;9002226.02101,"516,M19.239 ",.03)
;;30
;;9002226.02101,"516,M19.241 ",.01)
;;M19.241
;;9002226.02101,"516,M19.241 ",.02)
;;M19.241
;;9002226.02101,"516,M19.241 ",.03)
;;30
;;9002226.02101,"516,M19.242 ",.01)
;;M19.242
;;9002226.02101,"516,M19.242 ",.02)
;;M19.242
;;9002226.02101,"516,M19.242 ",.03)
;;30
;;9002226.02101,"516,M19.249 ",.01)
;;M19.249
;;9002226.02101,"516,M19.249 ",.02)
;;M19.249
;;9002226.02101,"516,M19.249 ",.03)
;;30
;;9002226.02101,"516,M19.271 ",.01)
;;M19.271
;;9002226.02101,"516,M19.271 ",.02)
;;M19.271
;;9002226.02101,"516,M19.271 ",.03)
;;30
;;9002226.02101,"516,M19.272 ",.01)
;;M19.272
;;9002226.02101,"516,M19.272 ",.02)
;;M19.272
;;9002226.02101,"516,M19.272 ",.03)
;;30
;;9002226.02101,"516,M19.279 ",.01)
;;M19.279
;;9002226.02101,"516,M19.279 ",.02)
;;M19.279
;;9002226.02101,"516,M19.279 ",.03)
;;30
;;9002226.02101,"516,M19.90 ",.01)
;;M19.90
;;9002226.02101,"516,M19.90 ",.02)
;;M19.90
;;9002226.02101,"516,M19.90 ",.03)
;;30
;;9002226.02101,"516,M19.91 ",.01)
;;M19.91
;;9002226.02101,"516,M19.91 ",.02)
;;M19.91
;;9002226.02101,"516,M19.91 ",.03)
;;30
;;9002226.02101,"516,M19.92 ",.01)
;;M19.92
;;9002226.02101,"516,M19.92 ",.02)
;;M19.92
;;9002226.02101,"516,M19.92 ",.03)
;;30
;;9002226.02101,"516,M19.93 ",.01)
;;M19.93
;;9002226.02101,"516,M19.93 ",.02)
;;M19.93
;;9002226.02101,"516,M19.93 ",.03)
;;30
;;9002226.04101,"516,1",.01)
;;BGP
ATXD3J2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON OCT 28, 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,"516,M19.149 ",.02)
+2 ;;M19.149
+3 ;;9002226.02101,"516,M19.149 ",.03)
+4 ;;30
+5 ;;9002226.02101,"516,M19.171 ",.01)
+6 ;;M19.171
+7 ;;9002226.02101,"516,M19.171 ",.02)
+8 ;;M19.171
+9 ;;9002226.02101,"516,M19.171 ",.03)
+10 ;;30
+11 ;;9002226.02101,"516,M19.172 ",.01)
+12 ;;M19.172
+13 ;;9002226.02101,"516,M19.172 ",.02)
+14 ;;M19.172
+15 ;;9002226.02101,"516,M19.172 ",.03)
+16 ;;30
+17 ;;9002226.02101,"516,M19.179 ",.01)
+18 ;;M19.179
+19 ;;9002226.02101,"516,M19.179 ",.02)
+20 ;;M19.179
+21 ;;9002226.02101,"516,M19.179 ",.03)
+22 ;;30
+23 ;;9002226.02101,"516,M19.211 ",.01)
+24 ;;M19.211
+25 ;;9002226.02101,"516,M19.211 ",.02)
+26 ;;M19.211
+27 ;;9002226.02101,"516,M19.211 ",.03)
+28 ;;30
+29 ;;9002226.02101,"516,M19.212 ",.01)
+30 ;;M19.212
+31 ;;9002226.02101,"516,M19.212 ",.02)
+32 ;;M19.212
+33 ;;9002226.02101,"516,M19.212 ",.03)
+34 ;;30
+35 ;;9002226.02101,"516,M19.219 ",.01)
+36 ;;M19.219
+37 ;;9002226.02101,"516,M19.219 ",.02)
+38 ;;M19.219
+39 ;;9002226.02101,"516,M19.219 ",.03)
+40 ;;30
+41 ;;9002226.02101,"516,M19.221 ",.01)
+42 ;;M19.221
+43 ;;9002226.02101,"516,M19.221 ",.02)
+44 ;;M19.221
+45 ;;9002226.02101,"516,M19.221 ",.03)
+46 ;;30
+47 ;;9002226.02101,"516,M19.222 ",.01)
+48 ;;M19.222
+49 ;;9002226.02101,"516,M19.222 ",.02)
+50 ;;M19.222
+51 ;;9002226.02101,"516,M19.222 ",.03)
+52 ;;30
+53 ;;9002226.02101,"516,M19.229 ",.01)
+54 ;;M19.229
+55 ;;9002226.02101,"516,M19.229 ",.02)
+56 ;;M19.229
+57 ;;9002226.02101,"516,M19.229 ",.03)
+58 ;;30
+59 ;;9002226.02101,"516,M19.231 ",.01)
+60 ;;M19.231
+61 ;;9002226.02101,"516,M19.231 ",.02)
+62 ;;M19.231
+63 ;;9002226.02101,"516,M19.231 ",.03)
+64 ;;30
+65 ;;9002226.02101,"516,M19.232 ",.01)
+66 ;;M19.232
+67 ;;9002226.02101,"516,M19.232 ",.02)
+68 ;;M19.232
+69 ;;9002226.02101,"516,M19.232 ",.03)
+70 ;;30
+71 ;;9002226.02101,"516,M19.239 ",.01)
+72 ;;M19.239
+73 ;;9002226.02101,"516,M19.239 ",.02)
+74 ;;M19.239
+75 ;;9002226.02101,"516,M19.239 ",.03)
+76 ;;30
+77 ;;9002226.02101,"516,M19.241 ",.01)
+78 ;;M19.241
+79 ;;9002226.02101,"516,M19.241 ",.02)
+80 ;;M19.241
+81 ;;9002226.02101,"516,M19.241 ",.03)
+82 ;;30
+83 ;;9002226.02101,"516,M19.242 ",.01)
+84 ;;M19.242
+85 ;;9002226.02101,"516,M19.242 ",.02)
+86 ;;M19.242
+87 ;;9002226.02101,"516,M19.242 ",.03)
+88 ;;30
+89 ;;9002226.02101,"516,M19.249 ",.01)
+90 ;;M19.249
+91 ;;9002226.02101,"516,M19.249 ",.02)
+92 ;;M19.249
+93 ;;9002226.02101,"516,M19.249 ",.03)
+94 ;;30
+95 ;;9002226.02101,"516,M19.271 ",.01)
+96 ;;M19.271
+97 ;;9002226.02101,"516,M19.271 ",.02)
+98 ;;M19.271
+99 ;;9002226.02101,"516,M19.271 ",.03)
+100 ;;30
+101 ;;9002226.02101,"516,M19.272 ",.01)
+102 ;;M19.272
+103 ;;9002226.02101,"516,M19.272 ",.02)
+104 ;;M19.272
+105 ;;9002226.02101,"516,M19.272 ",.03)
+106 ;;30
+107 ;;9002226.02101,"516,M19.279 ",.01)
+108 ;;M19.279
+109 ;;9002226.02101,"516,M19.279 ",.02)
+110 ;;M19.279
+111 ;;9002226.02101,"516,M19.279 ",.03)
+112 ;;30
+113 ;;9002226.02101,"516,M19.90 ",.01)
+114 ;;M19.90
+115 ;;9002226.02101,"516,M19.90 ",.02)
+116 ;;M19.90
+117 ;;9002226.02101,"516,M19.90 ",.03)
+118 ;;30
+119 ;;9002226.02101,"516,M19.91 ",.01)
+120 ;;M19.91
+121 ;;9002226.02101,"516,M19.91 ",.02)
+122 ;;M19.91
+123 ;;9002226.02101,"516,M19.91 ",.03)
+124 ;;30
+125 ;;9002226.02101,"516,M19.92 ",.01)
+126 ;;M19.92
+127 ;;9002226.02101,"516,M19.92 ",.02)
+128 ;;M19.92
+129 ;;9002226.02101,"516,M19.92 ",.03)
+130 ;;30
+131 ;;9002226.02101,"516,M19.93 ",.01)
+132 ;;M19.93
+133 ;;9002226.02101,"516,M19.93 ",.02)
+134 ;;M19.93
+135 ;;9002226.02101,"516,M19.93 ",.03)
+136 ;;30
+137 ;;9002226.04101,"516,1",.01)
+138 ;;BGP
