BGPUXAJ ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON JUL 05, 2004 ;
;;7.0;IHS CLINICAL REPORTING;;JAN 24, 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,"801,16700-7 ",.02)
;;16700-7
;;9002226.02101,"801,1728-5 ",.01)
;;1728-5
;;9002226.02101,"801,1728-5 ",.02)
;;1728-5
;;9002226.02101,"801,17334-4 ",.01)
;;17334-4
;;9002226.02101,"801,17334-4 ",.02)
;;17334-4
;;9002226.02101,"801,17658-6 ",.01)
;;17658-6
;;9002226.02101,"801,17658-6 ",.02)
;;17658-6
;;9002226.02101,"801,17710-5 ",.01)
;;17710-5
;;9002226.02101,"801,17710-5 ",.02)
;;17710-5
;;9002226.02101,"801,17866-5 ",.01)
;;17866-5
;;9002226.02101,"801,17866-5 ",.02)
;;17866-5
;;9002226.02101,"801,17867-3 ",.01)
;;17867-3
;;9002226.02101,"801,17867-3 ",.02)
;;17867-3
;;9002226.02101,"801,17868-1 ",.01)
;;17868-1
;;9002226.02101,"801,17868-1 ",.02)
;;17868-1
;;9002226.02101,"801,17869-9 ",.01)
;;17869-9
;;9002226.02101,"801,17869-9 ",.02)
;;17869-9
;;9002226.02101,"801,17870-7 ",.01)
;;17870-7
;;9002226.02101,"801,17870-7 ",.02)
;;17870-7
;;9002226.02101,"801,1810-1 ",.01)
;;1810-1
;;9002226.02101,"801,1810-1 ",.02)
;;1810-1
;;9002226.02101,"801,1811-9 ",.01)
;;1811-9
;;9002226.02101,"801,1811-9 ",.02)
;;1811-9
;;9002226.02101,"801,18361-6 ",.01)
;;18361-6
;;9002226.02101,"801,18361-6 ",.02)
;;18361-6
;;9002226.02101,"801,18475-4 ",.01)
;;18475-4
;;9002226.02101,"801,18475-4 ",.02)
;;18475-4
;;9002226.02101,"801,19055-3 ",.01)
;;19055-3
;;9002226.02101,"801,19055-3 ",.02)
;;19055-3
;;9002226.02101,"801,19150-2 ",.01)
;;19150-2
;;9002226.02101,"801,19150-2 ",.02)
;;19150-2
;;9002226.02101,"801,2048-7 ",.01)
;;2048-7
;;9002226.02101,"801,2048-7 ",.02)
;;2048-7
;;9002226.02101,"801,20511-2 ",.01)
;;20511-2
;;9002226.02101,"801,20511-2 ",.02)
;;20511-2
;;9002226.02101,"801,20621-9 ",.01)
;;20621-9
;;9002226.02101,"801,20621-9 ",.02)
;;20621-9
;;9002226.02101,"801,20624-3 ",.01)
;;20624-3
;;9002226.02101,"801,20624-3 ",.02)
;;20624-3
;;9002226.02101,"801,21041-9 ",.01)
;;21041-9
;;9002226.02101,"801,21041-9 ",.02)
;;21041-9
;;9002226.02101,"801,21042-7 ",.01)
;;21042-7
;;9002226.02101,"801,21042-7 ",.02)
;;21042-7
;;9002226.02101,"801,21216-7 ",.01)
;;21216-7
;;9002226.02101,"801,21216-7 ",.02)
;;21216-7
;;9002226.02101,"801,21232-4 ",.01)
;;21232-4
;;9002226.02101,"801,21232-4 ",.02)
;;21232-4
;;9002226.02101,"801,21562-4 ",.01)
;;21562-4
;;9002226.02101,"801,21562-4 ",.02)
;;21562-4
;;9002226.02101,"801,2159-2 ",.01)
;;2159-2
;;9002226.02101,"801,2159-2 ",.02)
;;2159-2
;;9002226.02101,"801,2160-0 ",.01)
;;2160-0
;;9002226.02101,"801,2160-0 ",.02)
;;2160-0
;;9002226.02101,"801,2161-8 ",.01)
;;2161-8
;;9002226.02101,"801,2161-8 ",.02)
;;2161-8
;;9002226.02101,"801,2162-6 ",.01)
;;2162-6
;;9002226.02101,"801,2162-6 ",.02)
;;2162-6
;;9002226.02101,"801,2163-4 ",.01)
;;2163-4
;;9002226.02101,"801,2163-4 ",.02)
;;2163-4
;;9002226.02101,"801,2164-2 ",.01)
;;2164-2
;;9002226.02101,"801,2164-2 ",.02)
;;2164-2
;;9002226.02101,"801,22679-5 ",.01)
;;22679-5
;;9002226.02101,"801,22679-5 ",.02)
;;22679-5
;;9002226.02101,"801,22680-3 ",.01)
;;22680-3
;;9002226.02101,"801,22680-3 ",.02)
;;22680-3
;;9002226.02101,"801,22681-1 ",.01)
;;22681-1
;;9002226.02101,"801,22681-1 ",.02)
;;22681-1
;;9002226.02101,"801,22682-9 ",.01)
;;22682-9
;;9002226.02101,"801,22682-9 ",.02)
;;22682-9
;;9002226.02101,"801,22684-5 ",.01)
;;22684-5
;;9002226.02101,"801,22684-5 ",.02)
;;22684-5
;;9002226.02101,"801,22685-2 ",.01)
;;22685-2
;;9002226.02101,"801,22685-2 ",.02)
;;22685-2
;;9002226.02101,"801,22687-8 ",.01)
;;22687-8
;;9002226.02101,"801,22687-8 ",.02)
;;22687-8
;;9002226.02101,"801,22688-6 ",.01)
;;22688-6
;;9002226.02101,"801,22688-6 ",.02)
;;22688-6
;;9002226.02101,"801,22690-2 ",.01)
;;22690-2
;;9002226.02101,"801,22690-2 ",.02)
;;22690-2
;;9002226.02101,"801,22691-0 ",.01)
;;22691-0
;;9002226.02101,"801,22691-0 ",.02)
;;22691-0
;;9002226.02101,"801,22692-8 ",.01)
;;22692-8
;;9002226.02101,"801,22692-8 ",.02)
;;22692-8
;;9002226.02101,"801,22693-6 ",.01)
;;22693-6
;;9002226.02101,"801,22693-6 ",.02)
;;22693-6
;;9002226.02101,"801,22694-4 ",.01)
;;22694-4
;;9002226.02101,"801,22694-4 ",.02)
;;22694-4
;;9002226.02101,"801,22695-1 ",.01)
;;22695-1
;;9002226.02101,"801,22695-1 ",.02)
;;22695-1
;;9002226.02101,"801,22696-9 ",.01)
;;22696-9
;;9002226.02101,"801,22696-9 ",.02)
;;22696-9
;;9002226.02101,"801,22697-7 ",.01)
;;22697-7
;;9002226.02101,"801,22697-7 ",.02)
;;22697-7
;;9002226.02101,"801,22698-5 ",.01)
;;22698-5
;;9002226.02101,"801,22698-5 ",.02)
;;22698-5
;;9002226.02101,"801,22699-3 ",.01)
;;22699-3
;;9002226.02101,"801,22699-3 ",.02)
;;22699-3
;;9002226.02101,"801,22703-3 ",.01)
;;22703-3
;;9002226.02101,"801,22703-3 ",.02)
;;22703-3
;;9002226.02101,"801,22704-1 ",.01)
;;22704-1
;;9002226.02101,"801,22704-1 ",.02)
;;22704-1
;;9002226.02101,"801,22706-6 ",.01)
;;22706-6
;;9002226.02101,"801,22706-6 ",.02)
;;22706-6
;;9002226.02101,"801,22707-4 ",.01)
;;22707-4
;;9002226.02101,"801,22707-4 ",.02)
;;22707-4
;;9002226.02101,"801,22708-2 ",.01)
;;22708-2
BGPUXAJ ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON JUL 05, 2004 ;
+1 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
+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,"801,16700-7 ",.02)
+2 ;;16700-7
+3 ;;9002226.02101,"801,1728-5 ",.01)
+4 ;;1728-5
+5 ;;9002226.02101,"801,1728-5 ",.02)
+6 ;;1728-5
+7 ;;9002226.02101,"801,17334-4 ",.01)
+8 ;;17334-4
+9 ;;9002226.02101,"801,17334-4 ",.02)
+10 ;;17334-4
+11 ;;9002226.02101,"801,17658-6 ",.01)
+12 ;;17658-6
+13 ;;9002226.02101,"801,17658-6 ",.02)
+14 ;;17658-6
+15 ;;9002226.02101,"801,17710-5 ",.01)
+16 ;;17710-5
+17 ;;9002226.02101,"801,17710-5 ",.02)
+18 ;;17710-5
+19 ;;9002226.02101,"801,17866-5 ",.01)
+20 ;;17866-5
+21 ;;9002226.02101,"801,17866-5 ",.02)
+22 ;;17866-5
+23 ;;9002226.02101,"801,17867-3 ",.01)
+24 ;;17867-3
+25 ;;9002226.02101,"801,17867-3 ",.02)
+26 ;;17867-3
+27 ;;9002226.02101,"801,17868-1 ",.01)
+28 ;;17868-1
+29 ;;9002226.02101,"801,17868-1 ",.02)
+30 ;;17868-1
+31 ;;9002226.02101,"801,17869-9 ",.01)
+32 ;;17869-9
+33 ;;9002226.02101,"801,17869-9 ",.02)
+34 ;;17869-9
+35 ;;9002226.02101,"801,17870-7 ",.01)
+36 ;;17870-7
+37 ;;9002226.02101,"801,17870-7 ",.02)
+38 ;;17870-7
+39 ;;9002226.02101,"801,1810-1 ",.01)
+40 ;;1810-1
+41 ;;9002226.02101,"801,1810-1 ",.02)
+42 ;;1810-1
+43 ;;9002226.02101,"801,1811-9 ",.01)
+44 ;;1811-9
+45 ;;9002226.02101,"801,1811-9 ",.02)
+46 ;;1811-9
+47 ;;9002226.02101,"801,18361-6 ",.01)
+48 ;;18361-6
+49 ;;9002226.02101,"801,18361-6 ",.02)
+50 ;;18361-6
+51 ;;9002226.02101,"801,18475-4 ",.01)
+52 ;;18475-4
+53 ;;9002226.02101,"801,18475-4 ",.02)
+54 ;;18475-4
+55 ;;9002226.02101,"801,19055-3 ",.01)
+56 ;;19055-3
+57 ;;9002226.02101,"801,19055-3 ",.02)
+58 ;;19055-3
+59 ;;9002226.02101,"801,19150-2 ",.01)
+60 ;;19150-2
+61 ;;9002226.02101,"801,19150-2 ",.02)
+62 ;;19150-2
+63 ;;9002226.02101,"801,2048-7 ",.01)
+64 ;;2048-7
+65 ;;9002226.02101,"801,2048-7 ",.02)
+66 ;;2048-7
+67 ;;9002226.02101,"801,20511-2 ",.01)
+68 ;;20511-2
+69 ;;9002226.02101,"801,20511-2 ",.02)
+70 ;;20511-2
+71 ;;9002226.02101,"801,20621-9 ",.01)
+72 ;;20621-9
+73 ;;9002226.02101,"801,20621-9 ",.02)
+74 ;;20621-9
+75 ;;9002226.02101,"801,20624-3 ",.01)
+76 ;;20624-3
+77 ;;9002226.02101,"801,20624-3 ",.02)
+78 ;;20624-3
+79 ;;9002226.02101,"801,21041-9 ",.01)
+80 ;;21041-9
+81 ;;9002226.02101,"801,21041-9 ",.02)
+82 ;;21041-9
+83 ;;9002226.02101,"801,21042-7 ",.01)
+84 ;;21042-7
+85 ;;9002226.02101,"801,21042-7 ",.02)
+86 ;;21042-7
+87 ;;9002226.02101,"801,21216-7 ",.01)
+88 ;;21216-7
+89 ;;9002226.02101,"801,21216-7 ",.02)
+90 ;;21216-7
+91 ;;9002226.02101,"801,21232-4 ",.01)
+92 ;;21232-4
+93 ;;9002226.02101,"801,21232-4 ",.02)
+94 ;;21232-4
+95 ;;9002226.02101,"801,21562-4 ",.01)
+96 ;;21562-4
+97 ;;9002226.02101,"801,21562-4 ",.02)
+98 ;;21562-4
+99 ;;9002226.02101,"801,2159-2 ",.01)
+100 ;;2159-2
+101 ;;9002226.02101,"801,2159-2 ",.02)
+102 ;;2159-2
+103 ;;9002226.02101,"801,2160-0 ",.01)
+104 ;;2160-0
+105 ;;9002226.02101,"801,2160-0 ",.02)
+106 ;;2160-0
+107 ;;9002226.02101,"801,2161-8 ",.01)
+108 ;;2161-8
+109 ;;9002226.02101,"801,2161-8 ",.02)
+110 ;;2161-8
+111 ;;9002226.02101,"801,2162-6 ",.01)
+112 ;;2162-6
+113 ;;9002226.02101,"801,2162-6 ",.02)
+114 ;;2162-6
+115 ;;9002226.02101,"801,2163-4 ",.01)
+116 ;;2163-4
+117 ;;9002226.02101,"801,2163-4 ",.02)
+118 ;;2163-4
+119 ;;9002226.02101,"801,2164-2 ",.01)
+120 ;;2164-2
+121 ;;9002226.02101,"801,2164-2 ",.02)
+122 ;;2164-2
+123 ;;9002226.02101,"801,22679-5 ",.01)
+124 ;;22679-5
+125 ;;9002226.02101,"801,22679-5 ",.02)
+126 ;;22679-5
+127 ;;9002226.02101,"801,22680-3 ",.01)
+128 ;;22680-3
+129 ;;9002226.02101,"801,22680-3 ",.02)
+130 ;;22680-3
+131 ;;9002226.02101,"801,22681-1 ",.01)
+132 ;;22681-1
+133 ;;9002226.02101,"801,22681-1 ",.02)
+134 ;;22681-1
+135 ;;9002226.02101,"801,22682-9 ",.01)
+136 ;;22682-9
+137 ;;9002226.02101,"801,22682-9 ",.02)
+138 ;;22682-9
+139 ;;9002226.02101,"801,22684-5 ",.01)
+140 ;;22684-5
+141 ;;9002226.02101,"801,22684-5 ",.02)
+142 ;;22684-5
+143 ;;9002226.02101,"801,22685-2 ",.01)
+144 ;;22685-2
+145 ;;9002226.02101,"801,22685-2 ",.02)
+146 ;;22685-2
+147 ;;9002226.02101,"801,22687-8 ",.01)
+148 ;;22687-8
+149 ;;9002226.02101,"801,22687-8 ",.02)
+150 ;;22687-8
+151 ;;9002226.02101,"801,22688-6 ",.01)
+152 ;;22688-6
+153 ;;9002226.02101,"801,22688-6 ",.02)
+154 ;;22688-6
+155 ;;9002226.02101,"801,22690-2 ",.01)
+156 ;;22690-2
+157 ;;9002226.02101,"801,22690-2 ",.02)
+158 ;;22690-2
+159 ;;9002226.02101,"801,22691-0 ",.01)
+160 ;;22691-0
+161 ;;9002226.02101,"801,22691-0 ",.02)
+162 ;;22691-0
+163 ;;9002226.02101,"801,22692-8 ",.01)
+164 ;;22692-8
+165 ;;9002226.02101,"801,22692-8 ",.02)
+166 ;;22692-8
+167 ;;9002226.02101,"801,22693-6 ",.01)
+168 ;;22693-6
+169 ;;9002226.02101,"801,22693-6 ",.02)
+170 ;;22693-6
+171 ;;9002226.02101,"801,22694-4 ",.01)
+172 ;;22694-4
+173 ;;9002226.02101,"801,22694-4 ",.02)
+174 ;;22694-4
+175 ;;9002226.02101,"801,22695-1 ",.01)
+176 ;;22695-1
+177 ;;9002226.02101,"801,22695-1 ",.02)
+178 ;;22695-1
+179 ;;9002226.02101,"801,22696-9 ",.01)
+180 ;;22696-9
+181 ;;9002226.02101,"801,22696-9 ",.02)
+182 ;;22696-9
+183 ;;9002226.02101,"801,22697-7 ",.01)
+184 ;;22697-7
+185 ;;9002226.02101,"801,22697-7 ",.02)
+186 ;;22697-7
+187 ;;9002226.02101,"801,22698-5 ",.01)
+188 ;;22698-5
+189 ;;9002226.02101,"801,22698-5 ",.02)
+190 ;;22698-5
+191 ;;9002226.02101,"801,22699-3 ",.01)
+192 ;;22699-3
+193 ;;9002226.02101,"801,22699-3 ",.02)
+194 ;;22699-3
+195 ;;9002226.02101,"801,22703-3 ",.01)
+196 ;;22703-3
+197 ;;9002226.02101,"801,22703-3 ",.02)
+198 ;;22703-3
+199 ;;9002226.02101,"801,22704-1 ",.01)
+200 ;;22704-1
+201 ;;9002226.02101,"801,22704-1 ",.02)
+202 ;;22704-1
+203 ;;9002226.02101,"801,22706-6 ",.01)
+204 ;;22706-6
+205 ;;9002226.02101,"801,22706-6 ",.02)
+206 ;;22706-6
+207 ;;9002226.02101,"801,22707-4 ",.01)
+208 ;;22707-4
+209 ;;9002226.02101,"801,22707-4 ",.02)
+210 ;;22707-4
+211 ;;9002226.02101,"801,22708-2 ",.01)
+212 ;;22708-2
