BGP9RXHC ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON MAR 25, 2009 ;
;;9.0;IHS CLINICAL REPORTING;;JUL 1, 2009
;
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,"314,21340-5 ",.01)
;;21340-5
;;9002226.02101,"314,21340-5 ",.02)
;;21340-5
;;9002226.02101,"314,22356-0 ",.01)
;;22356-0
;;9002226.02101,"314,22356-0 ",.02)
;;22356-0
;;9002226.02101,"314,22357-8 ",.01)
;;22357-8
;;9002226.02101,"314,22357-8 ",.02)
;;22357-8
;;9002226.02101,"314,22358-6 ",.01)
;;22358-6
;;9002226.02101,"314,22358-6 ",.02)
;;22358-6
;;9002226.02101,"314,23876-6 ",.01)
;;23876-6
;;9002226.02101,"314,23876-6 ",.02)
;;23876-6
;;9002226.02101,"314,24012-7 ",.01)
;;24012-7
;;9002226.02101,"314,24012-7 ",.02)
;;24012-7
;;9002226.02101,"314,24013-5 ",.01)
;;24013-5
;;9002226.02101,"314,24013-5 ",.02)
;;24013-5
;;9002226.02101,"314,25835-0 ",.01)
;;25835-0
;;9002226.02101,"314,25835-0 ",.02)
;;25835-0
;;9002226.02101,"314,25836-8 ",.01)
;;25836-8
;;9002226.02101,"314,25836-8 ",.02)
;;25836-8
;;9002226.02101,"314,25841-8 ",.01)
;;25841-8
;;9002226.02101,"314,25841-8 ",.02)
;;25841-8
;;9002226.02101,"314,25842-6 ",.01)
;;25842-6
;;9002226.02101,"314,25842-6 ",.02)
;;25842-6
;;9002226.02101,"314,28004-0 ",.01)
;;28004-0
;;9002226.02101,"314,28004-0 ",.02)
;;28004-0
;;9002226.02101,"314,28052-9 ",.01)
;;28052-9
;;9002226.02101,"314,28052-9 ",.02)
;;28052-9
;;9002226.02101,"314,29327-4 ",.01)
;;29327-4
;;9002226.02101,"314,29327-4 ",.02)
;;29327-4
;;9002226.02101,"314,29539-4 ",.01)
;;29539-4
;;9002226.02101,"314,29539-4 ",.02)
;;29539-4
;;9002226.02101,"314,29541-0 ",.01)
;;29541-0
;;9002226.02101,"314,29541-0 ",.02)
;;29541-0
;;9002226.02101,"314,29893-5 ",.01)
;;29893-5
;;9002226.02101,"314,29893-5 ",.02)
;;29893-5
;;9002226.02101,"314,30245-5 ",.01)
;;30245-5
;;9002226.02101,"314,30245-5 ",.02)
;;30245-5
;;9002226.02101,"314,30361-0 ",.01)
;;30361-0
;;9002226.02101,"314,30361-0 ",.02)
;;30361-0
;;9002226.02101,"314,30554-0 ",.01)
;;30554-0
;;9002226.02101,"314,30554-0 ",.02)
;;30554-0
;;9002226.02101,"314,31072-2 ",.01)
;;31072-2
;;9002226.02101,"314,31072-2 ",.02)
;;31072-2
;;9002226.02101,"314,31073-0 ",.01)
;;31073-0
;;9002226.02101,"314,31073-0 ",.02)
;;31073-0
;;9002226.02101,"314,31201-7 ",.01)
;;31201-7
;;9002226.02101,"314,31201-7 ",.02)
;;31201-7
;;9002226.02101,"314,31430-2 ",.01)
;;31430-2
;;9002226.02101,"314,31430-2 ",.02)
;;31430-2
;;9002226.02101,"314,32571-2 ",.01)
;;32571-2
;;9002226.02101,"314,32571-2 ",.02)
;;32571-2
;;9002226.02101,"314,32602-5 ",.01)
;;32602-5
;;9002226.02101,"314,32602-5 ",.02)
;;32602-5
;;9002226.02101,"314,32827-8 ",.01)
;;32827-8
;;9002226.02101,"314,32827-8 ",.02)
;;32827-8
;;9002226.02101,"314,32842-7 ",.01)
;;32842-7
;;9002226.02101,"314,32842-7 ",.02)
;;32842-7
;;9002226.02101,"314,33508-3 ",.01)
;;33508-3
;;9002226.02101,"314,33508-3 ",.02)
;;33508-3
;;9002226.02101,"314,33630-5 ",.01)
;;33630-5
;;9002226.02101,"314,33630-5 ",.02)
;;33630-5
;;9002226.02101,"314,33660-2 ",.01)
;;33660-2
;;9002226.02101,"314,33660-2 ",.02)
;;33660-2
;;9002226.02101,"314,33806-1 ",.01)
;;33806-1
;;9002226.02101,"314,33806-1 ",.02)
;;33806-1
;;9002226.02101,"314,33807-9 ",.01)
;;33807-9
;;9002226.02101,"314,33807-9 ",.02)
;;33807-9
;;9002226.02101,"314,33866-5 ",.01)
;;33866-5
;;9002226.02101,"314,33866-5 ",.02)
;;33866-5
;;9002226.02101,"314,34591-8 ",.01)
;;34591-8
;;9002226.02101,"314,34591-8 ",.02)
;;34591-8
;;9002226.02101,"314,34592-6 ",.01)
;;34592-6
;;9002226.02101,"314,34592-6 ",.02)
;;34592-6
;;9002226.02101,"314,34699-9 ",.01)
;;34699-9
;;9002226.02101,"314,34699-9 ",.02)
;;34699-9
;;9002226.02101,"314,34700-5 ",.01)
;;34700-5
;;9002226.02101,"314,34700-5 ",.02)
;;34700-5
;;9002226.02101,"314,35437-3 ",.01)
;;35437-3
;;9002226.02101,"314,35437-3 ",.02)
;;35437-3
;;9002226.02101,"314,35438-1 ",.01)
;;35438-1
;;9002226.02101,"314,35438-1 ",.02)
;;35438-1
;;9002226.02101,"314,35439-9 ",.01)
;;35439-9
;;9002226.02101,"314,35439-9 ",.02)
;;35439-9
;;9002226.02101,"314,35440-7 ",.01)
;;35440-7
;;9002226.02101,"314,35440-7 ",.02)
;;35440-7
;;9002226.02101,"314,35441-5 ",.01)
;;35441-5
;;9002226.02101,"314,35441-5 ",.02)
;;35441-5
;;9002226.02101,"314,35442-3 ",.01)
;;35442-3
;;9002226.02101,"314,35442-3 ",.02)
;;35442-3
;;9002226.02101,"314,35443-1 ",.01)
;;35443-1
;;9002226.02101,"314,35443-1 ",.02)
;;35443-1
;;9002226.02101,"314,35444-9 ",.01)
;;35444-9
;;9002226.02101,"314,35444-9 ",.02)
;;35444-9
;;9002226.02101,"314,35445-6 ",.01)
;;35445-6
;;9002226.02101,"314,35445-6 ",.02)
;;35445-6
;;9002226.02101,"314,35446-4 ",.01)
;;35446-4
;;9002226.02101,"314,35446-4 ",.02)
;;35446-4
;;9002226.02101,"314,35447-2 ",.01)
;;35447-2
;;9002226.02101,"314,35447-2 ",.02)
;;35447-2
;;9002226.02101,"314,35448-0 ",.01)
;;35448-0
;;9002226.02101,"314,35448-0 ",.02)
;;35448-0
;;9002226.02101,"314,35449-8 ",.01)
;;35449-8
;;9002226.02101,"314,35449-8 ",.02)
;;35449-8
;;9002226.02101,"314,35450-6 ",.01)
;;35450-6
;;9002226.02101,"314,35450-6 ",.02)
;;35450-6
;;9002226.02101,"314,35452-2 ",.01)
;;35452-2
BGP9RXHC ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON MAR 25, 2009 ;
+1 ;;9.0;IHS CLINICAL REPORTING;;JUL 1, 2009
+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,"314,21340-5 ",.01)
+2 ;;21340-5
+3 ;;9002226.02101,"314,21340-5 ",.02)
+4 ;;21340-5
+5 ;;9002226.02101,"314,22356-0 ",.01)
+6 ;;22356-0
+7 ;;9002226.02101,"314,22356-0 ",.02)
+8 ;;22356-0
+9 ;;9002226.02101,"314,22357-8 ",.01)
+10 ;;22357-8
+11 ;;9002226.02101,"314,22357-8 ",.02)
+12 ;;22357-8
+13 ;;9002226.02101,"314,22358-6 ",.01)
+14 ;;22358-6
+15 ;;9002226.02101,"314,22358-6 ",.02)
+16 ;;22358-6
+17 ;;9002226.02101,"314,23876-6 ",.01)
+18 ;;23876-6
+19 ;;9002226.02101,"314,23876-6 ",.02)
+20 ;;23876-6
+21 ;;9002226.02101,"314,24012-7 ",.01)
+22 ;;24012-7
+23 ;;9002226.02101,"314,24012-7 ",.02)
+24 ;;24012-7
+25 ;;9002226.02101,"314,24013-5 ",.01)
+26 ;;24013-5
+27 ;;9002226.02101,"314,24013-5 ",.02)
+28 ;;24013-5
+29 ;;9002226.02101,"314,25835-0 ",.01)
+30 ;;25835-0
+31 ;;9002226.02101,"314,25835-0 ",.02)
+32 ;;25835-0
+33 ;;9002226.02101,"314,25836-8 ",.01)
+34 ;;25836-8
+35 ;;9002226.02101,"314,25836-8 ",.02)
+36 ;;25836-8
+37 ;;9002226.02101,"314,25841-8 ",.01)
+38 ;;25841-8
+39 ;;9002226.02101,"314,25841-8 ",.02)
+40 ;;25841-8
+41 ;;9002226.02101,"314,25842-6 ",.01)
+42 ;;25842-6
+43 ;;9002226.02101,"314,25842-6 ",.02)
+44 ;;25842-6
+45 ;;9002226.02101,"314,28004-0 ",.01)
+46 ;;28004-0
+47 ;;9002226.02101,"314,28004-0 ",.02)
+48 ;;28004-0
+49 ;;9002226.02101,"314,28052-9 ",.01)
+50 ;;28052-9
+51 ;;9002226.02101,"314,28052-9 ",.02)
+52 ;;28052-9
+53 ;;9002226.02101,"314,29327-4 ",.01)
+54 ;;29327-4
+55 ;;9002226.02101,"314,29327-4 ",.02)
+56 ;;29327-4
+57 ;;9002226.02101,"314,29539-4 ",.01)
+58 ;;29539-4
+59 ;;9002226.02101,"314,29539-4 ",.02)
+60 ;;29539-4
+61 ;;9002226.02101,"314,29541-0 ",.01)
+62 ;;29541-0
+63 ;;9002226.02101,"314,29541-0 ",.02)
+64 ;;29541-0
+65 ;;9002226.02101,"314,29893-5 ",.01)
+66 ;;29893-5
+67 ;;9002226.02101,"314,29893-5 ",.02)
+68 ;;29893-5
+69 ;;9002226.02101,"314,30245-5 ",.01)
+70 ;;30245-5
+71 ;;9002226.02101,"314,30245-5 ",.02)
+72 ;;30245-5
+73 ;;9002226.02101,"314,30361-0 ",.01)
+74 ;;30361-0
+75 ;;9002226.02101,"314,30361-0 ",.02)
+76 ;;30361-0
+77 ;;9002226.02101,"314,30554-0 ",.01)
+78 ;;30554-0
+79 ;;9002226.02101,"314,30554-0 ",.02)
+80 ;;30554-0
+81 ;;9002226.02101,"314,31072-2 ",.01)
+82 ;;31072-2
+83 ;;9002226.02101,"314,31072-2 ",.02)
+84 ;;31072-2
+85 ;;9002226.02101,"314,31073-0 ",.01)
+86 ;;31073-0
+87 ;;9002226.02101,"314,31073-0 ",.02)
+88 ;;31073-0
+89 ;;9002226.02101,"314,31201-7 ",.01)
+90 ;;31201-7
+91 ;;9002226.02101,"314,31201-7 ",.02)
+92 ;;31201-7
+93 ;;9002226.02101,"314,31430-2 ",.01)
+94 ;;31430-2
+95 ;;9002226.02101,"314,31430-2 ",.02)
+96 ;;31430-2
+97 ;;9002226.02101,"314,32571-2 ",.01)
+98 ;;32571-2
+99 ;;9002226.02101,"314,32571-2 ",.02)
+100 ;;32571-2
+101 ;;9002226.02101,"314,32602-5 ",.01)
+102 ;;32602-5
+103 ;;9002226.02101,"314,32602-5 ",.02)
+104 ;;32602-5
+105 ;;9002226.02101,"314,32827-8 ",.01)
+106 ;;32827-8
+107 ;;9002226.02101,"314,32827-8 ",.02)
+108 ;;32827-8
+109 ;;9002226.02101,"314,32842-7 ",.01)
+110 ;;32842-7
+111 ;;9002226.02101,"314,32842-7 ",.02)
+112 ;;32842-7
+113 ;;9002226.02101,"314,33508-3 ",.01)
+114 ;;33508-3
+115 ;;9002226.02101,"314,33508-3 ",.02)
+116 ;;33508-3
+117 ;;9002226.02101,"314,33630-5 ",.01)
+118 ;;33630-5
+119 ;;9002226.02101,"314,33630-5 ",.02)
+120 ;;33630-5
+121 ;;9002226.02101,"314,33660-2 ",.01)
+122 ;;33660-2
+123 ;;9002226.02101,"314,33660-2 ",.02)
+124 ;;33660-2
+125 ;;9002226.02101,"314,33806-1 ",.01)
+126 ;;33806-1
+127 ;;9002226.02101,"314,33806-1 ",.02)
+128 ;;33806-1
+129 ;;9002226.02101,"314,33807-9 ",.01)
+130 ;;33807-9
+131 ;;9002226.02101,"314,33807-9 ",.02)
+132 ;;33807-9
+133 ;;9002226.02101,"314,33866-5 ",.01)
+134 ;;33866-5
+135 ;;9002226.02101,"314,33866-5 ",.02)
+136 ;;33866-5
+137 ;;9002226.02101,"314,34591-8 ",.01)
+138 ;;34591-8
+139 ;;9002226.02101,"314,34591-8 ",.02)
+140 ;;34591-8
+141 ;;9002226.02101,"314,34592-6 ",.01)
+142 ;;34592-6
+143 ;;9002226.02101,"314,34592-6 ",.02)
+144 ;;34592-6
+145 ;;9002226.02101,"314,34699-9 ",.01)
+146 ;;34699-9
+147 ;;9002226.02101,"314,34699-9 ",.02)
+148 ;;34699-9
+149 ;;9002226.02101,"314,34700-5 ",.01)
+150 ;;34700-5
+151 ;;9002226.02101,"314,34700-5 ",.02)
+152 ;;34700-5
+153 ;;9002226.02101,"314,35437-3 ",.01)
+154 ;;35437-3
+155 ;;9002226.02101,"314,35437-3 ",.02)
+156 ;;35437-3
+157 ;;9002226.02101,"314,35438-1 ",.01)
+158 ;;35438-1
+159 ;;9002226.02101,"314,35438-1 ",.02)
+160 ;;35438-1
+161 ;;9002226.02101,"314,35439-9 ",.01)
+162 ;;35439-9
+163 ;;9002226.02101,"314,35439-9 ",.02)
+164 ;;35439-9
+165 ;;9002226.02101,"314,35440-7 ",.01)
+166 ;;35440-7
+167 ;;9002226.02101,"314,35440-7 ",.02)
+168 ;;35440-7
+169 ;;9002226.02101,"314,35441-5 ",.01)
+170 ;;35441-5
+171 ;;9002226.02101,"314,35441-5 ",.02)
+172 ;;35441-5
+173 ;;9002226.02101,"314,35442-3 ",.01)
+174 ;;35442-3
+175 ;;9002226.02101,"314,35442-3 ",.02)
+176 ;;35442-3
+177 ;;9002226.02101,"314,35443-1 ",.01)
+178 ;;35443-1
+179 ;;9002226.02101,"314,35443-1 ",.02)
+180 ;;35443-1
+181 ;;9002226.02101,"314,35444-9 ",.01)
+182 ;;35444-9
+183 ;;9002226.02101,"314,35444-9 ",.02)
+184 ;;35444-9
+185 ;;9002226.02101,"314,35445-6 ",.01)
+186 ;;35445-6
+187 ;;9002226.02101,"314,35445-6 ",.02)
+188 ;;35445-6
+189 ;;9002226.02101,"314,35446-4 ",.01)
+190 ;;35446-4
+191 ;;9002226.02101,"314,35446-4 ",.02)
+192 ;;35446-4
+193 ;;9002226.02101,"314,35447-2 ",.01)
+194 ;;35447-2
+195 ;;9002226.02101,"314,35447-2 ",.02)
+196 ;;35447-2
+197 ;;9002226.02101,"314,35448-0 ",.01)
+198 ;;35448-0
+199 ;;9002226.02101,"314,35448-0 ",.02)
+200 ;;35448-0
+201 ;;9002226.02101,"314,35449-8 ",.01)
+202 ;;35449-8
+203 ;;9002226.02101,"314,35449-8 ",.02)
+204 ;;35449-8
+205 ;;9002226.02101,"314,35450-6 ",.01)
+206 ;;35450-6
+207 ;;9002226.02101,"314,35450-6 ",.02)
+208 ;;35450-6
+209 ;;9002226.02101,"314,35452-2 ",.01)
+210 ;;35452-2
