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