BGP45B6 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON SEP 11, 2013;
;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
;
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,"710,54270-4 ",.01)
;;54270-4
;;9002226.02101,"710,54270-4 ",.02)
;;54270-4
;;9002226.02101,"710,54271-2 ",.01)
;;54271-2
;;9002226.02101,"710,54271-2 ",.02)
;;54271-2
;;9002226.02101,"710,54272-0 ",.01)
;;54272-0
;;9002226.02101,"710,54272-0 ",.02)
;;54272-0
;;9002226.02101,"710,54273-8 ",.01)
;;54273-8
;;9002226.02101,"710,54273-8 ",.02)
;;54273-8
;;9002226.02101,"710,54274-6 ",.01)
;;54274-6
;;9002226.02101,"710,54274-6 ",.02)
;;54274-6
;;9002226.02101,"710,54275-3 ",.01)
;;54275-3
;;9002226.02101,"710,54275-3 ",.02)
;;54275-3
;;9002226.02101,"710,54276-1 ",.01)
;;54276-1
;;9002226.02101,"710,54276-1 ",.02)
;;54276-1
;;9002226.02101,"710,54277-9 ",.01)
;;54277-9
;;9002226.02101,"710,54277-9 ",.02)
;;54277-9
;;9002226.02101,"710,54392-6 ",.01)
;;54392-6
;;9002226.02101,"710,54392-6 ",.02)
;;54392-6
;;9002226.02101,"710,54393-4 ",.01)
;;54393-4
;;9002226.02101,"710,54393-4 ",.02)
;;54393-4
;;9002226.02101,"710,54394-2 ",.01)
;;54394-2
;;9002226.02101,"710,54394-2 ",.02)
;;54394-2
;;9002226.02101,"710,54395-9 ",.01)
;;54395-9
;;9002226.02101,"710,54395-9 ",.02)
;;54395-9
;;9002226.02101,"710,54396-7 ",.01)
;;54396-7
;;9002226.02101,"710,54396-7 ",.02)
;;54396-7
;;9002226.02101,"710,54397-5 ",.01)
;;54397-5
;;9002226.02101,"710,54397-5 ",.02)
;;54397-5
;;9002226.02101,"710,54398-3 ",.01)
;;54398-3
;;9002226.02101,"710,54398-3 ",.02)
;;54398-3
;;9002226.02101,"710,54399-1 ",.01)
;;54399-1
;;9002226.02101,"710,54399-1 ",.02)
;;54399-1
;;9002226.02101,"710,54400-7 ",.01)
;;54400-7
;;9002226.02101,"710,54400-7 ",.02)
;;54400-7
;;9002226.02101,"710,54401-5 ",.01)
;;54401-5
;;9002226.02101,"710,54401-5 ",.02)
;;54401-5
;;9002226.02101,"710,54495-7 ",.01)
;;54495-7
;;9002226.02101,"710,54495-7 ",.02)
;;54495-7
;;9002226.02101,"710,54496-5 ",.01)
;;54496-5
;;9002226.02101,"710,54496-5 ",.02)
;;54496-5
;;9002226.02101,"710,54497-3 ",.01)
;;54497-3
;;9002226.02101,"710,54497-3 ",.02)
;;54497-3
;;9002226.02101,"710,54498-1 ",.01)
;;54498-1
;;9002226.02101,"710,54498-1 ",.02)
;;54498-1
;;9002226.02101,"710,54499-9 ",.01)
;;54499-9
;;9002226.02101,"710,54499-9 ",.02)
;;54499-9
;;9002226.02101,"710,55351-1 ",.01)
;;55351-1
;;9002226.02101,"710,55351-1 ",.02)
;;55351-1
;;9002226.02101,"710,55352-9 ",.01)
;;55352-9
;;9002226.02101,"710,55352-9 ",.02)
;;55352-9
;;9002226.02101,"710,55381-8 ",.01)
;;55381-8
;;9002226.02101,"710,55381-8 ",.02)
;;55381-8
;;9002226.02101,"710,56751-1 ",.01)
;;56751-1
;;9002226.02101,"710,56751-1 ",.02)
;;56751-1
;;9002226.02101,"710,57350-1 ",.01)
;;57350-1
;;9002226.02101,"710,57350-1 ",.02)
;;57350-1
;;9002226.02101,"710,57971-4 ",.01)
;;57971-4
;;9002226.02101,"710,57971-4 ",.02)
;;57971-4
;;9002226.02101,"710,57972-2 ",.01)
;;57972-2
;;9002226.02101,"710,57972-2 ",.02)
;;57972-2
;;9002226.02101,"710,5914-7 ",.01)
;;5914-7
;;9002226.02101,"710,5914-7 ",.02)
;;5914-7
;;9002226.02101,"710,59157-8 ",.01)
;;59157-8
;;9002226.02101,"710,59157-8 ",.02)
;;59157-8
;;9002226.02101,"710,59791-4 ",.01)
;;59791-4
;;9002226.02101,"710,59791-4 ",.02)
;;59791-4
;;9002226.02101,"710,59792-2 ",.01)
;;59792-2
;;9002226.02101,"710,59792-2 ",.02)
;;59792-2
;;9002226.02101,"710,59793-0 ",.01)
;;59793-0
;;9002226.02101,"710,59793-0 ",.02)
;;59793-0
;;9002226.02101,"710,59794-8 ",.01)
;;59794-8
;;9002226.02101,"710,59794-8 ",.02)
;;59794-8
;;9002226.02101,"710,59795-5 ",.01)
;;59795-5
;;9002226.02101,"710,59795-5 ",.02)
;;59795-5
;;9002226.02101,"710,59796-3 ",.01)
;;59796-3
;;9002226.02101,"710,59796-3 ",.02)
;;59796-3
;;9002226.02101,"710,59797-1 ",.01)
;;59797-1
;;9002226.02101,"710,59797-1 ",.02)
;;59797-1
;;9002226.02101,"710,59812-8 ",.01)
;;59812-8
;;9002226.02101,"710,59812-8 ",.02)
;;59812-8
;;9002226.02101,"710,59813-6 ",.01)
;;59813-6
;;9002226.02101,"710,59813-6 ",.02)
;;59813-6
;;9002226.02101,"710,59814-4 ",.01)
;;59814-4
;;9002226.02101,"710,59814-4 ",.02)
;;59814-4
;;9002226.02101,"710,59815-1 ",.01)
;;59815-1
;;9002226.02101,"710,59815-1 ",.02)
;;59815-1
;;9002226.02101,"710,6689-4 ",.01)
;;6689-4
;;9002226.02101,"710,6689-4 ",.02)
;;6689-4
;;9002226.02101,"710,6749-6 ",.01)
;;6749-6
;;9002226.02101,"710,6749-6 ",.02)
;;6749-6
;;9002226.02101,"710,6752-0 ",.01)
;;6752-0
;;9002226.02101,"710,6752-0 ",.02)
;;6752-0
;;9002226.02101,"710,6753-8 ",.01)
;;6753-8
;;9002226.02101,"710,6753-8 ",.02)
;;6753-8
;;9002226.02101,"710,6754-6 ",.01)
;;6754-6
;;9002226.02101,"710,6754-6 ",.02)
;;6754-6
;;9002226.02101,"710,6755-3 ",.01)
;;6755-3
;;9002226.02101,"710,6755-3 ",.02)
;;6755-3
;;9002226.02101,"710,6756-1 ",.01)
;;6756-1
;;9002226.02101,"710,6756-1 ",.02)
;;6756-1
;;9002226.02101,"710,6759-5 ",.01)
;;6759-5
;;9002226.02101,"710,6759-5 ",.02)
;;6759-5
;;9002226.02101,"710,6760-3 ",.01)
;;6760-3
;;9002226.02101,"710,6760-3 ",.02)
;;6760-3
;;9002226.02101,"710,6762-9 ",.01)
;;6762-9
;;9002226.02101,"710,6762-9 ",.02)
;;6762-9
;;9002226.02101,"710,6764-5 ",.01)
;;6764-5
;;9002226.02101,"710,6764-5 ",.02)
;;6764-5
;;9002226.02101,"710,6777-7 ",.01)
;;6777-7
;;9002226.02101,"710,6777-7 ",.02)
;;6777-7
;;9002226.02101,"710,69941-3 ",.01)
;;69941-3
;;9002226.02101,"710,69941-3 ",.02)
;;69941-3
;;9002226.02101,"710,69942-1 ",.01)
;;69942-1
;;9002226.02101,"710,69942-1 ",.02)
;;69942-1
;;9002226.02101,"710,69943-9 ",.01)
;;69943-9
;;9002226.02101,"710,69943-9 ",.02)
;;69943-9
;;9002226.02101,"710,69944-7 ",.01)
;;69944-7
;;9002226.02101,"710,69944-7 ",.02)
;;69944-7
;;9002226.02101,"710,70208-4 ",.01)
;;70208-4
;;9002226.02101,"710,70208-4 ",.02)
;;70208-4
;;9002226.02101,"710,72171-2 ",.01)
;;72171-2
;;9002226.02101,"710,72171-2 ",.02)
;;72171-2
;;9002226.02101,"710,72516-8 ",.01)
;;72516-8
;;9002226.02101,"710,72516-8 ",.02)
;;72516-8
;;9002226.02101,"710,72895-6 ",.01)
;;72895-6
;;9002226.02101,"710,72895-6 ",.02)
;;72895-6
;;9002226.02101,"710,72896-4 ",.01)
;;72896-4
;;9002226.02101,"710,72896-4 ",.02)
;;72896-4
;;9002226.02101,"710,9375-7 ",.01)
;;9375-7
;;9002226.02101,"710,9375-7 ",.02)
;;9375-7
;;9002226.02101,"710,9376-5 ",.01)
;;9376-5
;;9002226.02101,"710,9376-5 ",.02)
;;9376-5
;;9002226.02101,"710,9377-3 ",.01)
;;9377-3
;;9002226.02101,"710,9377-3 ",.02)
;;9377-3
;;9002226.02101,"710,9378-1 ",.01)
;;9378-1
;;9002226.02101,"710,9378-1 ",.02)
;;9378-1
BGP45B6 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON SEP 11, 2013;
+1 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
+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,"710,54270-4 ",.01)
+2 ;;54270-4
+3 ;;9002226.02101,"710,54270-4 ",.02)
+4 ;;54270-4
+5 ;;9002226.02101,"710,54271-2 ",.01)
+6 ;;54271-2
+7 ;;9002226.02101,"710,54271-2 ",.02)
+8 ;;54271-2
+9 ;;9002226.02101,"710,54272-0 ",.01)
+10 ;;54272-0
+11 ;;9002226.02101,"710,54272-0 ",.02)
+12 ;;54272-0
+13 ;;9002226.02101,"710,54273-8 ",.01)
+14 ;;54273-8
+15 ;;9002226.02101,"710,54273-8 ",.02)
+16 ;;54273-8
+17 ;;9002226.02101,"710,54274-6 ",.01)
+18 ;;54274-6
+19 ;;9002226.02101,"710,54274-6 ",.02)
+20 ;;54274-6
+21 ;;9002226.02101,"710,54275-3 ",.01)
+22 ;;54275-3
+23 ;;9002226.02101,"710,54275-3 ",.02)
+24 ;;54275-3
+25 ;;9002226.02101,"710,54276-1 ",.01)
+26 ;;54276-1
+27 ;;9002226.02101,"710,54276-1 ",.02)
+28 ;;54276-1
+29 ;;9002226.02101,"710,54277-9 ",.01)
+30 ;;54277-9
+31 ;;9002226.02101,"710,54277-9 ",.02)
+32 ;;54277-9
+33 ;;9002226.02101,"710,54392-6 ",.01)
+34 ;;54392-6
+35 ;;9002226.02101,"710,54392-6 ",.02)
+36 ;;54392-6
+37 ;;9002226.02101,"710,54393-4 ",.01)
+38 ;;54393-4
+39 ;;9002226.02101,"710,54393-4 ",.02)
+40 ;;54393-4
+41 ;;9002226.02101,"710,54394-2 ",.01)
+42 ;;54394-2
+43 ;;9002226.02101,"710,54394-2 ",.02)
+44 ;;54394-2
+45 ;;9002226.02101,"710,54395-9 ",.01)
+46 ;;54395-9
+47 ;;9002226.02101,"710,54395-9 ",.02)
+48 ;;54395-9
+49 ;;9002226.02101,"710,54396-7 ",.01)
+50 ;;54396-7
+51 ;;9002226.02101,"710,54396-7 ",.02)
+52 ;;54396-7
+53 ;;9002226.02101,"710,54397-5 ",.01)
+54 ;;54397-5
+55 ;;9002226.02101,"710,54397-5 ",.02)
+56 ;;54397-5
+57 ;;9002226.02101,"710,54398-3 ",.01)
+58 ;;54398-3
+59 ;;9002226.02101,"710,54398-3 ",.02)
+60 ;;54398-3
+61 ;;9002226.02101,"710,54399-1 ",.01)
+62 ;;54399-1
+63 ;;9002226.02101,"710,54399-1 ",.02)
+64 ;;54399-1
+65 ;;9002226.02101,"710,54400-7 ",.01)
+66 ;;54400-7
+67 ;;9002226.02101,"710,54400-7 ",.02)
+68 ;;54400-7
+69 ;;9002226.02101,"710,54401-5 ",.01)
+70 ;;54401-5
+71 ;;9002226.02101,"710,54401-5 ",.02)
+72 ;;54401-5
+73 ;;9002226.02101,"710,54495-7 ",.01)
+74 ;;54495-7
+75 ;;9002226.02101,"710,54495-7 ",.02)
+76 ;;54495-7
+77 ;;9002226.02101,"710,54496-5 ",.01)
+78 ;;54496-5
+79 ;;9002226.02101,"710,54496-5 ",.02)
+80 ;;54496-5
+81 ;;9002226.02101,"710,54497-3 ",.01)
+82 ;;54497-3
+83 ;;9002226.02101,"710,54497-3 ",.02)
+84 ;;54497-3
+85 ;;9002226.02101,"710,54498-1 ",.01)
+86 ;;54498-1
+87 ;;9002226.02101,"710,54498-1 ",.02)
+88 ;;54498-1
+89 ;;9002226.02101,"710,54499-9 ",.01)
+90 ;;54499-9
+91 ;;9002226.02101,"710,54499-9 ",.02)
+92 ;;54499-9
+93 ;;9002226.02101,"710,55351-1 ",.01)
+94 ;;55351-1
+95 ;;9002226.02101,"710,55351-1 ",.02)
+96 ;;55351-1
+97 ;;9002226.02101,"710,55352-9 ",.01)
+98 ;;55352-9
+99 ;;9002226.02101,"710,55352-9 ",.02)
+100 ;;55352-9
+101 ;;9002226.02101,"710,55381-8 ",.01)
+102 ;;55381-8
+103 ;;9002226.02101,"710,55381-8 ",.02)
+104 ;;55381-8
+105 ;;9002226.02101,"710,56751-1 ",.01)
+106 ;;56751-1
+107 ;;9002226.02101,"710,56751-1 ",.02)
+108 ;;56751-1
+109 ;;9002226.02101,"710,57350-1 ",.01)
+110 ;;57350-1
+111 ;;9002226.02101,"710,57350-1 ",.02)
+112 ;;57350-1
+113 ;;9002226.02101,"710,57971-4 ",.01)
+114 ;;57971-4
+115 ;;9002226.02101,"710,57971-4 ",.02)
+116 ;;57971-4
+117 ;;9002226.02101,"710,57972-2 ",.01)
+118 ;;57972-2
+119 ;;9002226.02101,"710,57972-2 ",.02)
+120 ;;57972-2
+121 ;;9002226.02101,"710,5914-7 ",.01)
+122 ;;5914-7
+123 ;;9002226.02101,"710,5914-7 ",.02)
+124 ;;5914-7
+125 ;;9002226.02101,"710,59157-8 ",.01)
+126 ;;59157-8
+127 ;;9002226.02101,"710,59157-8 ",.02)
+128 ;;59157-8
+129 ;;9002226.02101,"710,59791-4 ",.01)
+130 ;;59791-4
+131 ;;9002226.02101,"710,59791-4 ",.02)
+132 ;;59791-4
+133 ;;9002226.02101,"710,59792-2 ",.01)
+134 ;;59792-2
+135 ;;9002226.02101,"710,59792-2 ",.02)
+136 ;;59792-2
+137 ;;9002226.02101,"710,59793-0 ",.01)
+138 ;;59793-0
+139 ;;9002226.02101,"710,59793-0 ",.02)
+140 ;;59793-0
+141 ;;9002226.02101,"710,59794-8 ",.01)
+142 ;;59794-8
+143 ;;9002226.02101,"710,59794-8 ",.02)
+144 ;;59794-8
+145 ;;9002226.02101,"710,59795-5 ",.01)
+146 ;;59795-5
+147 ;;9002226.02101,"710,59795-5 ",.02)
+148 ;;59795-5
+149 ;;9002226.02101,"710,59796-3 ",.01)
+150 ;;59796-3
+151 ;;9002226.02101,"710,59796-3 ",.02)
+152 ;;59796-3
+153 ;;9002226.02101,"710,59797-1 ",.01)
+154 ;;59797-1
+155 ;;9002226.02101,"710,59797-1 ",.02)
+156 ;;59797-1
+157 ;;9002226.02101,"710,59812-8 ",.01)
+158 ;;59812-8
+159 ;;9002226.02101,"710,59812-8 ",.02)
+160 ;;59812-8
+161 ;;9002226.02101,"710,59813-6 ",.01)
+162 ;;59813-6
+163 ;;9002226.02101,"710,59813-6 ",.02)
+164 ;;59813-6
+165 ;;9002226.02101,"710,59814-4 ",.01)
+166 ;;59814-4
+167 ;;9002226.02101,"710,59814-4 ",.02)
+168 ;;59814-4
+169 ;;9002226.02101,"710,59815-1 ",.01)
+170 ;;59815-1
+171 ;;9002226.02101,"710,59815-1 ",.02)
+172 ;;59815-1
+173 ;;9002226.02101,"710,6689-4 ",.01)
+174 ;;6689-4
+175 ;;9002226.02101,"710,6689-4 ",.02)
+176 ;;6689-4
+177 ;;9002226.02101,"710,6749-6 ",.01)
+178 ;;6749-6
+179 ;;9002226.02101,"710,6749-6 ",.02)
+180 ;;6749-6
+181 ;;9002226.02101,"710,6752-0 ",.01)
+182 ;;6752-0
+183 ;;9002226.02101,"710,6752-0 ",.02)
+184 ;;6752-0
+185 ;;9002226.02101,"710,6753-8 ",.01)
+186 ;;6753-8
+187 ;;9002226.02101,"710,6753-8 ",.02)
+188 ;;6753-8
+189 ;;9002226.02101,"710,6754-6 ",.01)
+190 ;;6754-6
+191 ;;9002226.02101,"710,6754-6 ",.02)
+192 ;;6754-6
+193 ;;9002226.02101,"710,6755-3 ",.01)
+194 ;;6755-3
+195 ;;9002226.02101,"710,6755-3 ",.02)
+196 ;;6755-3
+197 ;;9002226.02101,"710,6756-1 ",.01)
+198 ;;6756-1
+199 ;;9002226.02101,"710,6756-1 ",.02)
+200 ;;6756-1
+201 ;;9002226.02101,"710,6759-5 ",.01)
+202 ;;6759-5
+203 ;;9002226.02101,"710,6759-5 ",.02)
+204 ;;6759-5
+205 ;;9002226.02101,"710,6760-3 ",.01)
+206 ;;6760-3
+207 ;;9002226.02101,"710,6760-3 ",.02)
+208 ;;6760-3
+209 ;;9002226.02101,"710,6762-9 ",.01)
+210 ;;6762-9
+211 ;;9002226.02101,"710,6762-9 ",.02)
+212 ;;6762-9
+213 ;;9002226.02101,"710,6764-5 ",.01)
+214 ;;6764-5
+215 ;;9002226.02101,"710,6764-5 ",.02)
+216 ;;6764-5
+217 ;;9002226.02101,"710,6777-7 ",.01)
+218 ;;6777-7
+219 ;;9002226.02101,"710,6777-7 ",.02)
+220 ;;6777-7
+221 ;;9002226.02101,"710,69941-3 ",.01)
+222 ;;69941-3
+223 ;;9002226.02101,"710,69941-3 ",.02)
+224 ;;69941-3
+225 ;;9002226.02101,"710,69942-1 ",.01)
+226 ;;69942-1
+227 ;;9002226.02101,"710,69942-1 ",.02)
+228 ;;69942-1
+229 ;;9002226.02101,"710,69943-9 ",.01)
+230 ;;69943-9
+231 ;;9002226.02101,"710,69943-9 ",.02)
+232 ;;69943-9
+233 ;;9002226.02101,"710,69944-7 ",.01)
+234 ;;69944-7
+235 ;;9002226.02101,"710,69944-7 ",.02)
+236 ;;69944-7
+237 ;;9002226.02101,"710,70208-4 ",.01)
+238 ;;70208-4
+239 ;;9002226.02101,"710,70208-4 ",.02)
+240 ;;70208-4
+241 ;;9002226.02101,"710,72171-2 ",.01)
+242 ;;72171-2
+243 ;;9002226.02101,"710,72171-2 ",.02)
+244 ;;72171-2
+245 ;;9002226.02101,"710,72516-8 ",.01)
+246 ;;72516-8
+247 ;;9002226.02101,"710,72516-8 ",.02)
+248 ;;72516-8
+249 ;;9002226.02101,"710,72895-6 ",.01)
+250 ;;72895-6
+251 ;;9002226.02101,"710,72895-6 ",.02)
+252 ;;72895-6
+253 ;;9002226.02101,"710,72896-4 ",.01)
+254 ;;72896-4
+255 ;;9002226.02101,"710,72896-4 ",.02)
+256 ;;72896-4
+257 ;;9002226.02101,"710,9375-7 ",.01)
+258 ;;9375-7
+259 ;;9002226.02101,"710,9375-7 ",.02)
+260 ;;9375-7
+261 ;;9002226.02101,"710,9376-5 ",.01)
+262 ;;9376-5
+263 ;;9002226.02101,"710,9376-5 ",.02)
+264 ;;9376-5
+265 ;;9002226.02101,"710,9377-3 ",.01)
+266 ;;9377-3
+267 ;;9002226.02101,"710,9377-3 ",.02)
+268 ;;9377-3
+269 ;;9002226.02101,"710,9378-1 ",.01)
+270 ;;9378-1
+271 ;;9002226.02101,"710,9378-1 ",.02)
+272 ;;9378-1
