BGPUXAO ; 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,29515-4 ",.02)
;;29515-4
;;9002226.02101,"801,29516-2 ",.01)
;;29516-2
;;9002226.02101,"801,29516-2 ",.02)
;;29516-2
;;9002226.02101,"801,29517-0 ",.01)
;;29517-0
;;9002226.02101,"801,29517-0 ",.02)
;;29517-0
;;9002226.02101,"801,29518-8 ",.01)
;;29518-8
;;9002226.02101,"801,29518-8 ",.02)
;;29518-8
;;9002226.02101,"801,29519-6 ",.01)
;;29519-6
;;9002226.02101,"801,29519-6 ",.02)
;;29519-6
;;9002226.02101,"801,29520-4 ",.01)
;;29520-4
;;9002226.02101,"801,29520-4 ",.02)
;;29520-4
;;9002226.02101,"801,29521-2 ",.01)
;;29521-2
;;9002226.02101,"801,29521-2 ",.02)
;;29521-2
;;9002226.02101,"801,29522-0 ",.01)
;;29522-0
;;9002226.02101,"801,29522-0 ",.02)
;;29522-0
;;9002226.02101,"801,29523-8 ",.01)
;;29523-8
;;9002226.02101,"801,29523-8 ",.02)
;;29523-8
;;9002226.02101,"801,29524-6 ",.01)
;;29524-6
;;9002226.02101,"801,29524-6 ",.02)
;;29524-6
;;9002226.02101,"801,29525-3 ",.01)
;;29525-3
;;9002226.02101,"801,29525-3 ",.02)
;;29525-3
;;9002226.02101,"801,29526-1 ",.01)
;;29526-1
;;9002226.02101,"801,29526-1 ",.02)
;;29526-1
;;9002226.02101,"801,29527-9 ",.01)
;;29527-9
;;9002226.02101,"801,29527-9 ",.02)
;;29527-9
;;9002226.02101,"801,29528-7 ",.01)
;;29528-7
;;9002226.02101,"801,29528-7 ",.02)
;;29528-7
;;9002226.02101,"801,29858-8 ",.01)
;;29858-8
;;9002226.02101,"801,29858-8 ",.02)
;;29858-8
;;9002226.02101,"801,29859-6 ",.01)
;;29859-6
;;9002226.02101,"801,29859-6 ",.02)
;;29859-6
;;9002226.02101,"801,29878-6 ",.01)
;;29878-6
;;9002226.02101,"801,29878-6 ",.02)
;;29878-6
;;9002226.02101,"801,29879-4 ",.01)
;;29879-4
;;9002226.02101,"801,29879-4 ",.02)
;;29879-4
;;9002226.02101,"801,29917-2 ",.01)
;;29917-2
;;9002226.02101,"801,29917-2 ",.02)
;;29917-2
;;9002226.02101,"801,29919-8 ",.01)
;;29919-8
;;9002226.02101,"801,29919-8 ",.02)
;;29919-8
;;9002226.02101,"801,29920-6 ",.01)
;;29920-6
;;9002226.02101,"801,29920-6 ",.02)
;;29920-6
;;9002226.02101,"801,29922-2 ",.01)
;;29922-2
;;9002226.02101,"801,29922-2 ",.02)
;;29922-2
;;9002226.02101,"801,29925-5 ",.01)
;;29925-5
;;9002226.02101,"801,29925-5 ",.02)
;;29925-5
;;9002226.02101,"801,29930-5 ",.01)
;;29930-5
;;9002226.02101,"801,29930-5 ",.02)
;;29930-5
;;9002226.02101,"801,29933-9 ",.01)
;;29933-9
;;9002226.02101,"801,29933-9 ",.02)
;;29933-9
;;9002226.02101,"801,29934-7 ",.01)
;;29934-7
;;9002226.02101,"801,29934-7 ",.02)
;;29934-7
;;9002226.02101,"801,29935-4 ",.01)
;;29935-4
;;9002226.02101,"801,29935-4 ",.02)
;;29935-4
;;9002226.02101,"801,29937-0 ",.01)
;;29937-0
;;9002226.02101,"801,29937-0 ",.02)
;;29937-0
;;9002226.02101,"801,29938-8 ",.01)
;;29938-8
;;9002226.02101,"801,29938-8 ",.02)
;;29938-8
;;9002226.02101,"801,29939-6 ",.01)
;;29939-6
;;9002226.02101,"801,29939-6 ",.02)
;;29939-6
;;9002226.02101,"801,29940-4 ",.01)
;;29940-4
;;9002226.02101,"801,29940-4 ",.02)
;;29940-4
;;9002226.02101,"801,29941-2 ",.01)
;;29941-2
;;9002226.02101,"801,29941-2 ",.02)
;;29941-2
;;9002226.02101,"801,29942-0 ",.01)
;;29942-0
;;9002226.02101,"801,29942-0 ",.02)
;;29942-0
;;9002226.02101,"801,29943-8 ",.01)
;;29943-8
;;9002226.02101,"801,29943-8 ",.02)
;;29943-8
;;9002226.02101,"801,29970-1 ",.01)
;;29970-1
;;9002226.02101,"801,29970-1 ",.02)
;;29970-1
;;9002226.02101,"801,29973-5 ",.01)
;;29973-5
;;9002226.02101,"801,29973-5 ",.02)
;;29973-5
;;9002226.02101,"801,29976-8 ",.01)
;;29976-8
;;9002226.02101,"801,29976-8 ",.02)
;;29976-8
;;9002226.02101,"801,29978-4 ",.01)
;;29978-4
;;9002226.02101,"801,29978-4 ",.02)
;;29978-4
;;9002226.02101,"801,29981-8 ",.01)
;;29981-8
;;9002226.02101,"801,29981-8 ",.02)
;;29981-8
;;9002226.02101,"801,29984-2 ",.01)
;;29984-2
;;9002226.02101,"801,29984-2 ",.02)
;;29984-2
;;9002226.02101,"801,29986-7 ",.01)
;;29986-7
;;9002226.02101,"801,29986-7 ",.02)
;;29986-7
;;9002226.02101,"801,29988-3 ",.01)
;;29988-3
;;9002226.02101,"801,29988-3 ",.02)
;;29988-3
;;9002226.02101,"801,29989-1 ",.01)
;;29989-1
;;9002226.02101,"801,29989-1 ",.02)
;;29989-1
;;9002226.02101,"801,30000-4 ",.01)
;;30000-4
;;9002226.02101,"801,30000-4 ",.02)
;;30000-4
;;9002226.02101,"801,30001-2 ",.01)
;;30001-2
;;9002226.02101,"801,30001-2 ",.02)
;;30001-2
;;9002226.02101,"801,30002-0 ",.01)
;;30002-0
;;9002226.02101,"801,30002-0 ",.02)
;;30002-0
;;9002226.02101,"801,30004-6 ",.01)
;;30004-6
;;9002226.02101,"801,30004-6 ",.02)
;;30004-6
;;9002226.02101,"801,30047-5 ",.01)
;;30047-5
;;9002226.02101,"801,30047-5 ",.02)
;;30047-5
;;9002226.02101,"801,30048-3 ",.01)
;;30048-3
;;9002226.02101,"801,30048-3 ",.02)
;;30048-3
;;9002226.02101,"801,30049-1 ",.01)
;;30049-1
;;9002226.02101,"801,30049-1 ",.02)
;;30049-1
;;9002226.02101,"801,30050-9 ",.01)
;;30050-9
;;9002226.02101,"801,30050-9 ",.02)
;;30050-9
;;9002226.02101,"801,30051-7 ",.01)
;;30051-7
;;9002226.02101,"801,30051-7 ",.02)
;;30051-7
;;9002226.02101,"801,30052-5 ",.01)
;;30052-5
;;9002226.02101,"801,30052-5 ",.02)
;;30052-5
BGPUXAO ; 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,29515-4 ",.02)
+2 ;;29515-4
+3 ;;9002226.02101,"801,29516-2 ",.01)
+4 ;;29516-2
+5 ;;9002226.02101,"801,29516-2 ",.02)
+6 ;;29516-2
+7 ;;9002226.02101,"801,29517-0 ",.01)
+8 ;;29517-0
+9 ;;9002226.02101,"801,29517-0 ",.02)
+10 ;;29517-0
+11 ;;9002226.02101,"801,29518-8 ",.01)
+12 ;;29518-8
+13 ;;9002226.02101,"801,29518-8 ",.02)
+14 ;;29518-8
+15 ;;9002226.02101,"801,29519-6 ",.01)
+16 ;;29519-6
+17 ;;9002226.02101,"801,29519-6 ",.02)
+18 ;;29519-6
+19 ;;9002226.02101,"801,29520-4 ",.01)
+20 ;;29520-4
+21 ;;9002226.02101,"801,29520-4 ",.02)
+22 ;;29520-4
+23 ;;9002226.02101,"801,29521-2 ",.01)
+24 ;;29521-2
+25 ;;9002226.02101,"801,29521-2 ",.02)
+26 ;;29521-2
+27 ;;9002226.02101,"801,29522-0 ",.01)
+28 ;;29522-0
+29 ;;9002226.02101,"801,29522-0 ",.02)
+30 ;;29522-0
+31 ;;9002226.02101,"801,29523-8 ",.01)
+32 ;;29523-8
+33 ;;9002226.02101,"801,29523-8 ",.02)
+34 ;;29523-8
+35 ;;9002226.02101,"801,29524-6 ",.01)
+36 ;;29524-6
+37 ;;9002226.02101,"801,29524-6 ",.02)
+38 ;;29524-6
+39 ;;9002226.02101,"801,29525-3 ",.01)
+40 ;;29525-3
+41 ;;9002226.02101,"801,29525-3 ",.02)
+42 ;;29525-3
+43 ;;9002226.02101,"801,29526-1 ",.01)
+44 ;;29526-1
+45 ;;9002226.02101,"801,29526-1 ",.02)
+46 ;;29526-1
+47 ;;9002226.02101,"801,29527-9 ",.01)
+48 ;;29527-9
+49 ;;9002226.02101,"801,29527-9 ",.02)
+50 ;;29527-9
+51 ;;9002226.02101,"801,29528-7 ",.01)
+52 ;;29528-7
+53 ;;9002226.02101,"801,29528-7 ",.02)
+54 ;;29528-7
+55 ;;9002226.02101,"801,29858-8 ",.01)
+56 ;;29858-8
+57 ;;9002226.02101,"801,29858-8 ",.02)
+58 ;;29858-8
+59 ;;9002226.02101,"801,29859-6 ",.01)
+60 ;;29859-6
+61 ;;9002226.02101,"801,29859-6 ",.02)
+62 ;;29859-6
+63 ;;9002226.02101,"801,29878-6 ",.01)
+64 ;;29878-6
+65 ;;9002226.02101,"801,29878-6 ",.02)
+66 ;;29878-6
+67 ;;9002226.02101,"801,29879-4 ",.01)
+68 ;;29879-4
+69 ;;9002226.02101,"801,29879-4 ",.02)
+70 ;;29879-4
+71 ;;9002226.02101,"801,29917-2 ",.01)
+72 ;;29917-2
+73 ;;9002226.02101,"801,29917-2 ",.02)
+74 ;;29917-2
+75 ;;9002226.02101,"801,29919-8 ",.01)
+76 ;;29919-8
+77 ;;9002226.02101,"801,29919-8 ",.02)
+78 ;;29919-8
+79 ;;9002226.02101,"801,29920-6 ",.01)
+80 ;;29920-6
+81 ;;9002226.02101,"801,29920-6 ",.02)
+82 ;;29920-6
+83 ;;9002226.02101,"801,29922-2 ",.01)
+84 ;;29922-2
+85 ;;9002226.02101,"801,29922-2 ",.02)
+86 ;;29922-2
+87 ;;9002226.02101,"801,29925-5 ",.01)
+88 ;;29925-5
+89 ;;9002226.02101,"801,29925-5 ",.02)
+90 ;;29925-5
+91 ;;9002226.02101,"801,29930-5 ",.01)
+92 ;;29930-5
+93 ;;9002226.02101,"801,29930-5 ",.02)
+94 ;;29930-5
+95 ;;9002226.02101,"801,29933-9 ",.01)
+96 ;;29933-9
+97 ;;9002226.02101,"801,29933-9 ",.02)
+98 ;;29933-9
+99 ;;9002226.02101,"801,29934-7 ",.01)
+100 ;;29934-7
+101 ;;9002226.02101,"801,29934-7 ",.02)
+102 ;;29934-7
+103 ;;9002226.02101,"801,29935-4 ",.01)
+104 ;;29935-4
+105 ;;9002226.02101,"801,29935-4 ",.02)
+106 ;;29935-4
+107 ;;9002226.02101,"801,29937-0 ",.01)
+108 ;;29937-0
+109 ;;9002226.02101,"801,29937-0 ",.02)
+110 ;;29937-0
+111 ;;9002226.02101,"801,29938-8 ",.01)
+112 ;;29938-8
+113 ;;9002226.02101,"801,29938-8 ",.02)
+114 ;;29938-8
+115 ;;9002226.02101,"801,29939-6 ",.01)
+116 ;;29939-6
+117 ;;9002226.02101,"801,29939-6 ",.02)
+118 ;;29939-6
+119 ;;9002226.02101,"801,29940-4 ",.01)
+120 ;;29940-4
+121 ;;9002226.02101,"801,29940-4 ",.02)
+122 ;;29940-4
+123 ;;9002226.02101,"801,29941-2 ",.01)
+124 ;;29941-2
+125 ;;9002226.02101,"801,29941-2 ",.02)
+126 ;;29941-2
+127 ;;9002226.02101,"801,29942-0 ",.01)
+128 ;;29942-0
+129 ;;9002226.02101,"801,29942-0 ",.02)
+130 ;;29942-0
+131 ;;9002226.02101,"801,29943-8 ",.01)
+132 ;;29943-8
+133 ;;9002226.02101,"801,29943-8 ",.02)
+134 ;;29943-8
+135 ;;9002226.02101,"801,29970-1 ",.01)
+136 ;;29970-1
+137 ;;9002226.02101,"801,29970-1 ",.02)
+138 ;;29970-1
+139 ;;9002226.02101,"801,29973-5 ",.01)
+140 ;;29973-5
+141 ;;9002226.02101,"801,29973-5 ",.02)
+142 ;;29973-5
+143 ;;9002226.02101,"801,29976-8 ",.01)
+144 ;;29976-8
+145 ;;9002226.02101,"801,29976-8 ",.02)
+146 ;;29976-8
+147 ;;9002226.02101,"801,29978-4 ",.01)
+148 ;;29978-4
+149 ;;9002226.02101,"801,29978-4 ",.02)
+150 ;;29978-4
+151 ;;9002226.02101,"801,29981-8 ",.01)
+152 ;;29981-8
+153 ;;9002226.02101,"801,29981-8 ",.02)
+154 ;;29981-8
+155 ;;9002226.02101,"801,29984-2 ",.01)
+156 ;;29984-2
+157 ;;9002226.02101,"801,29984-2 ",.02)
+158 ;;29984-2
+159 ;;9002226.02101,"801,29986-7 ",.01)
+160 ;;29986-7
+161 ;;9002226.02101,"801,29986-7 ",.02)
+162 ;;29986-7
+163 ;;9002226.02101,"801,29988-3 ",.01)
+164 ;;29988-3
+165 ;;9002226.02101,"801,29988-3 ",.02)
+166 ;;29988-3
+167 ;;9002226.02101,"801,29989-1 ",.01)
+168 ;;29989-1
+169 ;;9002226.02101,"801,29989-1 ",.02)
+170 ;;29989-1
+171 ;;9002226.02101,"801,30000-4 ",.01)
+172 ;;30000-4
+173 ;;9002226.02101,"801,30000-4 ",.02)
+174 ;;30000-4
+175 ;;9002226.02101,"801,30001-2 ",.01)
+176 ;;30001-2
+177 ;;9002226.02101,"801,30001-2 ",.02)
+178 ;;30001-2
+179 ;;9002226.02101,"801,30002-0 ",.01)
+180 ;;30002-0
+181 ;;9002226.02101,"801,30002-0 ",.02)
+182 ;;30002-0
+183 ;;9002226.02101,"801,30004-6 ",.01)
+184 ;;30004-6
+185 ;;9002226.02101,"801,30004-6 ",.02)
+186 ;;30004-6
+187 ;;9002226.02101,"801,30047-5 ",.01)
+188 ;;30047-5
+189 ;;9002226.02101,"801,30047-5 ",.02)
+190 ;;30047-5
+191 ;;9002226.02101,"801,30048-3 ",.01)
+192 ;;30048-3
+193 ;;9002226.02101,"801,30048-3 ",.02)
+194 ;;30048-3
+195 ;;9002226.02101,"801,30049-1 ",.01)
+196 ;;30049-1
+197 ;;9002226.02101,"801,30049-1 ",.02)
+198 ;;30049-1
+199 ;;9002226.02101,"801,30050-9 ",.01)
+200 ;;30050-9
+201 ;;9002226.02101,"801,30050-9 ",.02)
+202 ;;30050-9
+203 ;;9002226.02101,"801,30051-7 ",.01)
+204 ;;30051-7
+205 ;;9002226.02101,"801,30051-7 ",.02)
+206 ;;30051-7
+207 ;;9002226.02101,"801,30052-5 ",.01)
+208 ;;30052-5
+209 ;;9002226.02101,"801,30052-5 ",.02)
+210 ;;30052-5
