ATXO5H3 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON NOV 13, 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,"1797,F0105ZZ ",.02)
;;F0105ZZ
;;9002226.02101,"1797,F0105ZZ ",.03)
;;31
;;9002226.02101,"1797,F0115YZ ",.01)
;;F0115YZ
;;9002226.02101,"1797,F0115YZ ",.02)
;;F0115YZ
;;9002226.02101,"1797,F0115YZ ",.03)
;;31
;;9002226.02101,"1797,F0115ZZ ",.01)
;;F0115ZZ
;;9002226.02101,"1797,F0115ZZ ",.02)
;;F0115ZZ
;;9002226.02101,"1797,F0115ZZ ",.03)
;;31
;;9002226.02101,"1797,F0125YZ ",.01)
;;F0125YZ
;;9002226.02101,"1797,F0125YZ ",.02)
;;F0125YZ
;;9002226.02101,"1797,F0125YZ ",.03)
;;31
;;9002226.02101,"1797,F0125ZZ ",.01)
;;F0125ZZ
;;9002226.02101,"1797,F0125ZZ ",.02)
;;F0125ZZ
;;9002226.02101,"1797,F0125ZZ ",.03)
;;31
;;9002226.02101,"1797,F0135YZ ",.01)
;;F0135YZ
;;9002226.02101,"1797,F0135YZ ",.02)
;;F0135YZ
;;9002226.02101,"1797,F0135YZ ",.03)
;;31
;;9002226.02101,"1797,F0135ZZ ",.01)
;;F0135ZZ
;;9002226.02101,"1797,F0135ZZ ",.02)
;;F0135ZZ
;;9002226.02101,"1797,F0135ZZ ",.03)
;;31
;;9002226.02101,"1797,F01D5YZ ",.01)
;;F01D5YZ
;;9002226.02101,"1797,F01D5YZ ",.02)
;;F01D5YZ
;;9002226.02101,"1797,F01D5YZ ",.03)
;;31
;;9002226.02101,"1797,F01D5ZZ ",.01)
;;F01D5ZZ
;;9002226.02101,"1797,F01D5ZZ ",.02)
;;F01D5ZZ
;;9002226.02101,"1797,F01D5ZZ ",.03)
;;31
;;9002226.02101,"1797,F01F5YZ ",.01)
;;F01F5YZ
;;9002226.02101,"1797,F01F5YZ ",.02)
;;F01F5YZ
;;9002226.02101,"1797,F01F5YZ ",.03)
;;31
;;9002226.02101,"1797,F01F5ZZ ",.01)
;;F01F5ZZ
;;9002226.02101,"1797,F01F5ZZ ",.02)
;;F01F5ZZ
;;9002226.02101,"1797,F01F5ZZ ",.03)
;;31
;;9002226.02101,"1797,F01G5YZ ",.01)
;;F01G5YZ
;;9002226.02101,"1797,F01G5YZ ",.02)
;;F01G5YZ
;;9002226.02101,"1797,F01G5YZ ",.03)
;;31
;;9002226.02101,"1797,F01G5ZZ ",.01)
;;F01G5ZZ
;;9002226.02101,"1797,F01G5ZZ ",.02)
;;F01G5ZZ
;;9002226.02101,"1797,F01G5ZZ ",.03)
;;31
;;9002226.02101,"1797,F01H5YZ ",.01)
;;F01H5YZ
;;9002226.02101,"1797,F01H5YZ ",.02)
;;F01H5YZ
;;9002226.02101,"1797,F01H5YZ ",.03)
;;31
;;9002226.02101,"1797,F01H5ZZ ",.01)
;;F01H5ZZ
;;9002226.02101,"1797,F01H5ZZ ",.02)
;;F01H5ZZ
;;9002226.02101,"1797,F01H5ZZ ",.03)
;;31
;;9002226.02101,"1797,F01J5YZ ",.01)
;;F01J5YZ
;;9002226.02101,"1797,F01J5YZ ",.02)
;;F01J5YZ
;;9002226.02101,"1797,F01J5YZ ",.03)
;;31
;;9002226.02101,"1797,F01J5ZZ ",.01)
;;F01J5ZZ
;;9002226.02101,"1797,F01J5ZZ ",.02)
;;F01J5ZZ
;;9002226.02101,"1797,F01J5ZZ ",.03)
;;31
;;9002226.02101,"1797,F01K5YZ ",.01)
;;F01K5YZ
;;9002226.02101,"1797,F01K5YZ ",.02)
;;F01K5YZ
;;9002226.02101,"1797,F01K5YZ ",.03)
;;31
;;9002226.02101,"1797,F01K5ZZ ",.01)
;;F01K5ZZ
;;9002226.02101,"1797,F01K5ZZ ",.02)
;;F01K5ZZ
;;9002226.02101,"1797,F01K5ZZ ",.03)
;;31
;;9002226.02101,"1797,F01L5YZ ",.01)
;;F01L5YZ
;;9002226.02101,"1797,F01L5YZ ",.02)
;;F01L5YZ
;;9002226.02101,"1797,F01L5YZ ",.03)
;;31
;;9002226.02101,"1797,F01L5ZZ ",.01)
;;F01L5ZZ
;;9002226.02101,"1797,F01L5ZZ ",.02)
;;F01L5ZZ
;;9002226.02101,"1797,F01L5ZZ ",.03)
;;31
;;9002226.02101,"1797,F01M5YZ ",.01)
;;F01M5YZ
;;9002226.02101,"1797,F01M5YZ ",.02)
;;F01M5YZ
;;9002226.02101,"1797,F01M5YZ ",.03)
;;31
;;9002226.02101,"1797,F01M5ZZ ",.01)
;;F01M5ZZ
;;9002226.02101,"1797,F01M5ZZ ",.02)
;;F01M5ZZ
;;9002226.02101,"1797,F01M5ZZ ",.03)
;;31
ATXO5H3 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON NOV 13, 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,"1797,F0105ZZ ",.02)
+2 ;;F0105ZZ
+3 ;;9002226.02101,"1797,F0105ZZ ",.03)
+4 ;;31
+5 ;;9002226.02101,"1797,F0115YZ ",.01)
+6 ;;F0115YZ
+7 ;;9002226.02101,"1797,F0115YZ ",.02)
+8 ;;F0115YZ
+9 ;;9002226.02101,"1797,F0115YZ ",.03)
+10 ;;31
+11 ;;9002226.02101,"1797,F0115ZZ ",.01)
+12 ;;F0115ZZ
+13 ;;9002226.02101,"1797,F0115ZZ ",.02)
+14 ;;F0115ZZ
+15 ;;9002226.02101,"1797,F0115ZZ ",.03)
+16 ;;31
+17 ;;9002226.02101,"1797,F0125YZ ",.01)
+18 ;;F0125YZ
+19 ;;9002226.02101,"1797,F0125YZ ",.02)
+20 ;;F0125YZ
+21 ;;9002226.02101,"1797,F0125YZ ",.03)
+22 ;;31
+23 ;;9002226.02101,"1797,F0125ZZ ",.01)
+24 ;;F0125ZZ
+25 ;;9002226.02101,"1797,F0125ZZ ",.02)
+26 ;;F0125ZZ
+27 ;;9002226.02101,"1797,F0125ZZ ",.03)
+28 ;;31
+29 ;;9002226.02101,"1797,F0135YZ ",.01)
+30 ;;F0135YZ
+31 ;;9002226.02101,"1797,F0135YZ ",.02)
+32 ;;F0135YZ
+33 ;;9002226.02101,"1797,F0135YZ ",.03)
+34 ;;31
+35 ;;9002226.02101,"1797,F0135ZZ ",.01)
+36 ;;F0135ZZ
+37 ;;9002226.02101,"1797,F0135ZZ ",.02)
+38 ;;F0135ZZ
+39 ;;9002226.02101,"1797,F0135ZZ ",.03)
+40 ;;31
+41 ;;9002226.02101,"1797,F01D5YZ ",.01)
+42 ;;F01D5YZ
+43 ;;9002226.02101,"1797,F01D5YZ ",.02)
+44 ;;F01D5YZ
+45 ;;9002226.02101,"1797,F01D5YZ ",.03)
+46 ;;31
+47 ;;9002226.02101,"1797,F01D5ZZ ",.01)
+48 ;;F01D5ZZ
+49 ;;9002226.02101,"1797,F01D5ZZ ",.02)
+50 ;;F01D5ZZ
+51 ;;9002226.02101,"1797,F01D5ZZ ",.03)
+52 ;;31
+53 ;;9002226.02101,"1797,F01F5YZ ",.01)
+54 ;;F01F5YZ
+55 ;;9002226.02101,"1797,F01F5YZ ",.02)
+56 ;;F01F5YZ
+57 ;;9002226.02101,"1797,F01F5YZ ",.03)
+58 ;;31
+59 ;;9002226.02101,"1797,F01F5ZZ ",.01)
+60 ;;F01F5ZZ
+61 ;;9002226.02101,"1797,F01F5ZZ ",.02)
+62 ;;F01F5ZZ
+63 ;;9002226.02101,"1797,F01F5ZZ ",.03)
+64 ;;31
+65 ;;9002226.02101,"1797,F01G5YZ ",.01)
+66 ;;F01G5YZ
+67 ;;9002226.02101,"1797,F01G5YZ ",.02)
+68 ;;F01G5YZ
+69 ;;9002226.02101,"1797,F01G5YZ ",.03)
+70 ;;31
+71 ;;9002226.02101,"1797,F01G5ZZ ",.01)
+72 ;;F01G5ZZ
+73 ;;9002226.02101,"1797,F01G5ZZ ",.02)
+74 ;;F01G5ZZ
+75 ;;9002226.02101,"1797,F01G5ZZ ",.03)
+76 ;;31
+77 ;;9002226.02101,"1797,F01H5YZ ",.01)
+78 ;;F01H5YZ
+79 ;;9002226.02101,"1797,F01H5YZ ",.02)
+80 ;;F01H5YZ
+81 ;;9002226.02101,"1797,F01H5YZ ",.03)
+82 ;;31
+83 ;;9002226.02101,"1797,F01H5ZZ ",.01)
+84 ;;F01H5ZZ
+85 ;;9002226.02101,"1797,F01H5ZZ ",.02)
+86 ;;F01H5ZZ
+87 ;;9002226.02101,"1797,F01H5ZZ ",.03)
+88 ;;31
+89 ;;9002226.02101,"1797,F01J5YZ ",.01)
+90 ;;F01J5YZ
+91 ;;9002226.02101,"1797,F01J5YZ ",.02)
+92 ;;F01J5YZ
+93 ;;9002226.02101,"1797,F01J5YZ ",.03)
+94 ;;31
+95 ;;9002226.02101,"1797,F01J5ZZ ",.01)
+96 ;;F01J5ZZ
+97 ;;9002226.02101,"1797,F01J5ZZ ",.02)
+98 ;;F01J5ZZ
+99 ;;9002226.02101,"1797,F01J5ZZ ",.03)
+100 ;;31
+101 ;;9002226.02101,"1797,F01K5YZ ",.01)
+102 ;;F01K5YZ
+103 ;;9002226.02101,"1797,F01K5YZ ",.02)
+104 ;;F01K5YZ
+105 ;;9002226.02101,"1797,F01K5YZ ",.03)
+106 ;;31
+107 ;;9002226.02101,"1797,F01K5ZZ ",.01)
+108 ;;F01K5ZZ
+109 ;;9002226.02101,"1797,F01K5ZZ ",.02)
+110 ;;F01K5ZZ
+111 ;;9002226.02101,"1797,F01K5ZZ ",.03)
+112 ;;31
+113 ;;9002226.02101,"1797,F01L5YZ ",.01)
+114 ;;F01L5YZ
+115 ;;9002226.02101,"1797,F01L5YZ ",.02)
+116 ;;F01L5YZ
+117 ;;9002226.02101,"1797,F01L5YZ ",.03)
+118 ;;31
+119 ;;9002226.02101,"1797,F01L5ZZ ",.01)
+120 ;;F01L5ZZ
+121 ;;9002226.02101,"1797,F01L5ZZ ",.02)
+122 ;;F01L5ZZ
+123 ;;9002226.02101,"1797,F01L5ZZ ",.03)
+124 ;;31
+125 ;;9002226.02101,"1797,F01M5YZ ",.01)
+126 ;;F01M5YZ
+127 ;;9002226.02101,"1797,F01M5YZ ",.02)
+128 ;;F01M5YZ
+129 ;;9002226.02101,"1797,F01M5YZ ",.03)
+130 ;;31
+131 ;;9002226.02101,"1797,F01M5ZZ ",.01)
+132 ;;F01M5ZZ
+133 ;;9002226.02101,"1797,F01M5ZZ ",.02)
+134 ;;F01M5ZZ
+135 ;;9002226.02101,"1797,F01M5ZZ ",.03)
+136 ;;31
