BGPM5BGJ ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON OCT 28, 2011;
;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
;
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,"768,49348078710 ",.01)
;;49348078710
;;9002226.02101,"768,49348078710 ",.02)
;;49348078710
;;9002226.02101,"768,49348078759 ",.01)
;;49348078759
;;9002226.02101,"768,49348078759 ",.02)
;;49348078759
;;9002226.02101,"768,49348078810 ",.01)
;;49348078810
;;9002226.02101,"768,49348078810 ",.02)
;;49348078810
;;9002226.02101,"768,49348078859 ",.01)
;;49348078859
;;9002226.02101,"768,49348078859 ",.02)
;;49348078859
;;9002226.02101,"768,49348085216 ",.01)
;;49348085216
;;9002226.02101,"768,49348085216 ",.02)
;;49348085216
;;9002226.02101,"768,49348085316 ",.01)
;;49348085316
;;9002226.02101,"768,49348085316 ",.02)
;;49348085316
;;9002226.02101,"768,49884005872 ",.01)
;;49884005872
;;9002226.02101,"768,49884005872 ",.02)
;;49884005872
;;9002226.02101,"768,49884005972 ",.01)
;;49884005972
;;9002226.02101,"768,49884005972 ",.02)
;;49884005972
;;9002226.02101,"768,49884006372 ",.01)
;;49884006372
;;9002226.02101,"768,49884006372 ",.02)
;;49884006372
;;9002226.02101,"768,50428000773 ",.01)
;;50428000773
;;9002226.02101,"768,50428000773 ",.02)
;;50428000773
;;9002226.02101,"768,50428000774 ",.01)
;;50428000774
;;9002226.02101,"768,50428000774 ",.02)
;;50428000774
;;9002226.02101,"768,50428000775 ",.01)
;;50428000775
;;9002226.02101,"768,50428000775 ",.02)
;;50428000775
;;9002226.02101,"768,50428000776 ",.01)
;;50428000776
;;9002226.02101,"768,50428000776 ",.02)
;;50428000776
;;9002226.02101,"768,50428003053 ",.01)
;;50428003053
;;9002226.02101,"768,50428003053 ",.02)
;;50428003053
;;9002226.02101,"768,50428101972 ",.01)
;;50428101972
;;9002226.02101,"768,50428101972 ",.02)
;;50428101972
;;9002226.02101,"768,50428102053 ",.01)
;;50428102053
;;9002226.02101,"768,50428102053 ",.02)
;;50428102053
;;9002226.02101,"768,50428102194 ",.01)
;;50428102194
;;9002226.02101,"768,50428102194 ",.02)
;;50428102194
;;9002226.02101,"768,50428102202 ",.01)
;;50428102202
;;9002226.02101,"768,50428102202 ",.02)
;;50428102202
;;9002226.02101,"768,50428133177 ",.01)
;;50428133177
;;9002226.02101,"768,50428133177 ",.02)
;;50428133177
;;9002226.02101,"768,50428394372 ",.01)
;;50428394372
;;9002226.02101,"768,50428394372 ",.02)
;;50428394372
;;9002226.02101,"768,50428394373 ",.01)
;;50428394373
;;9002226.02101,"768,50428394373 ",.02)
;;50428394373
;;9002226.02101,"768,50428394374 ",.01)
;;50428394374
;;9002226.02101,"768,50428394374 ",.02)
;;50428394374
;;9002226.02101,"768,50428394375 ",.01)
;;50428394375
;;9002226.02101,"768,50428394375 ",.02)
;;50428394375
;;9002226.02101,"768,50428456109 ",.01)
;;50428456109
;;9002226.02101,"768,50428456109 ",.02)
;;50428456109
;;9002226.02101,"768,50428456112 ",.01)
;;50428456112
;;9002226.02101,"768,50428456112 ",.02)
;;50428456112
;;9002226.02101,"768,53261004696 ",.01)
;;53261004696
;;9002226.02101,"768,53261004696 ",.02)
;;53261004696
;;9002226.02101,"768,55154524505 ",.01)
;;55154524505
;;9002226.02101,"768,55154524505 ",.02)
;;55154524505
;;9002226.02101,"768,59779012403 ",.01)
;;59779012403
;;9002226.02101,"768,59779012403 ",.02)
;;59779012403
;;9002226.02101,"768,59779012405 ",.01)
;;59779012405
;;9002226.02101,"768,59779012405 ",.02)
;;59779012405
;;9002226.02101,"768,59779019003 ",.01)
;;59779019003
;;9002226.02101,"768,59779019003 ",.02)
;;59779019003
;;9002226.02101,"768,59779019005 ",.01)
;;59779019005
;;9002226.02101,"768,59779019005 ",.02)
;;59779019005
;;9002226.02101,"768,59779034401 ",.01)
;;59779034401
;;9002226.02101,"768,59779034401 ",.02)
;;59779034401
;;9002226.02101,"768,59779034403 ",.01)
;;59779034403
;;9002226.02101,"768,59779034403 ",.02)
;;59779034403
;;9002226.02101,"768,59779034404 ",.01)
;;59779034404
;;9002226.02101,"768,59779034404 ",.02)
;;59779034404
;;9002226.02101,"768,59779034405 ",.01)
;;59779034405
;;9002226.02101,"768,59779034405 ",.02)
;;59779034405
;;9002226.02101,"768,59779034408 ",.01)
;;59779034408
;;9002226.02101,"768,59779034408 ",.02)
;;59779034408
;;9002226.02101,"768,59779034423 ",.01)
;;59779034423
;;9002226.02101,"768,59779034423 ",.02)
;;59779034423
;;9002226.02101,"768,59779034444 ",.01)
;;59779034444
;;9002226.02101,"768,59779034444 ",.02)
;;59779034444
;;9002226.02101,"768,59779034462 ",.01)
;;59779034462
;;9002226.02101,"768,59779034462 ",.02)
;;59779034462
;;9002226.02101,"768,59779042403 ",.01)
;;59779042403
;;9002226.02101,"768,59779042403 ",.02)
;;59779042403
;;9002226.02101,"768,59779042405 ",.01)
;;59779042405
;;9002226.02101,"768,59779042405 ",.02)
;;59779042405
;;9002226.02101,"768,67732089588 ",.01)
;;67732089588
;;9002226.02101,"768,67732089588 ",.02)
;;67732089588
;;9002226.02101,"768,67732089688 ",.01)
;;67732089688
;;9002226.02101,"768,67732089688 ",.02)
;;67732089688
;;9002226.02101,"768,68016089453 ",.01)
;;68016089453
;;9002226.02101,"768,68016089453 ",.02)
;;68016089453
;;9002226.02101,"768,68016089588 ",.01)
;;68016089588
;;9002226.02101,"768,68016089588 ",.02)
;;68016089588
;;9002226.02101,"768,68016089688 ",.01)
;;68016089688
;;9002226.02101,"768,68016089688 ",.02)
;;68016089688
;;9002226.02101,"768,68115064914 ",.01)
;;68115064914
;;9002226.02101,"768,68115064914 ",.02)
;;68115064914
;;9002226.02101,"768,68196087344 ",.01)
;;68196087344
;;9002226.02101,"768,68196087344 ",.02)
;;68196087344
;;9002226.02101,"768,70030062001 ",.01)
;;70030062001
;;9002226.02101,"768,70030062001 ",.02)
;;70030062001
BGPM5BGJ ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON OCT 28, 2011;
+1 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
+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,"768,49348078710 ",.01)
+2 ;;49348078710
+3 ;;9002226.02101,"768,49348078710 ",.02)
+4 ;;49348078710
+5 ;;9002226.02101,"768,49348078759 ",.01)
+6 ;;49348078759
+7 ;;9002226.02101,"768,49348078759 ",.02)
+8 ;;49348078759
+9 ;;9002226.02101,"768,49348078810 ",.01)
+10 ;;49348078810
+11 ;;9002226.02101,"768,49348078810 ",.02)
+12 ;;49348078810
+13 ;;9002226.02101,"768,49348078859 ",.01)
+14 ;;49348078859
+15 ;;9002226.02101,"768,49348078859 ",.02)
+16 ;;49348078859
+17 ;;9002226.02101,"768,49348085216 ",.01)
+18 ;;49348085216
+19 ;;9002226.02101,"768,49348085216 ",.02)
+20 ;;49348085216
+21 ;;9002226.02101,"768,49348085316 ",.01)
+22 ;;49348085316
+23 ;;9002226.02101,"768,49348085316 ",.02)
+24 ;;49348085316
+25 ;;9002226.02101,"768,49884005872 ",.01)
+26 ;;49884005872
+27 ;;9002226.02101,"768,49884005872 ",.02)
+28 ;;49884005872
+29 ;;9002226.02101,"768,49884005972 ",.01)
+30 ;;49884005972
+31 ;;9002226.02101,"768,49884005972 ",.02)
+32 ;;49884005972
+33 ;;9002226.02101,"768,49884006372 ",.01)
+34 ;;49884006372
+35 ;;9002226.02101,"768,49884006372 ",.02)
+36 ;;49884006372
+37 ;;9002226.02101,"768,50428000773 ",.01)
+38 ;;50428000773
+39 ;;9002226.02101,"768,50428000773 ",.02)
+40 ;;50428000773
+41 ;;9002226.02101,"768,50428000774 ",.01)
+42 ;;50428000774
+43 ;;9002226.02101,"768,50428000774 ",.02)
+44 ;;50428000774
+45 ;;9002226.02101,"768,50428000775 ",.01)
+46 ;;50428000775
+47 ;;9002226.02101,"768,50428000775 ",.02)
+48 ;;50428000775
+49 ;;9002226.02101,"768,50428000776 ",.01)
+50 ;;50428000776
+51 ;;9002226.02101,"768,50428000776 ",.02)
+52 ;;50428000776
+53 ;;9002226.02101,"768,50428003053 ",.01)
+54 ;;50428003053
+55 ;;9002226.02101,"768,50428003053 ",.02)
+56 ;;50428003053
+57 ;;9002226.02101,"768,50428101972 ",.01)
+58 ;;50428101972
+59 ;;9002226.02101,"768,50428101972 ",.02)
+60 ;;50428101972
+61 ;;9002226.02101,"768,50428102053 ",.01)
+62 ;;50428102053
+63 ;;9002226.02101,"768,50428102053 ",.02)
+64 ;;50428102053
+65 ;;9002226.02101,"768,50428102194 ",.01)
+66 ;;50428102194
+67 ;;9002226.02101,"768,50428102194 ",.02)
+68 ;;50428102194
+69 ;;9002226.02101,"768,50428102202 ",.01)
+70 ;;50428102202
+71 ;;9002226.02101,"768,50428102202 ",.02)
+72 ;;50428102202
+73 ;;9002226.02101,"768,50428133177 ",.01)
+74 ;;50428133177
+75 ;;9002226.02101,"768,50428133177 ",.02)
+76 ;;50428133177
+77 ;;9002226.02101,"768,50428394372 ",.01)
+78 ;;50428394372
+79 ;;9002226.02101,"768,50428394372 ",.02)
+80 ;;50428394372
+81 ;;9002226.02101,"768,50428394373 ",.01)
+82 ;;50428394373
+83 ;;9002226.02101,"768,50428394373 ",.02)
+84 ;;50428394373
+85 ;;9002226.02101,"768,50428394374 ",.01)
+86 ;;50428394374
+87 ;;9002226.02101,"768,50428394374 ",.02)
+88 ;;50428394374
+89 ;;9002226.02101,"768,50428394375 ",.01)
+90 ;;50428394375
+91 ;;9002226.02101,"768,50428394375 ",.02)
+92 ;;50428394375
+93 ;;9002226.02101,"768,50428456109 ",.01)
+94 ;;50428456109
+95 ;;9002226.02101,"768,50428456109 ",.02)
+96 ;;50428456109
+97 ;;9002226.02101,"768,50428456112 ",.01)
+98 ;;50428456112
+99 ;;9002226.02101,"768,50428456112 ",.02)
+100 ;;50428456112
+101 ;;9002226.02101,"768,53261004696 ",.01)
+102 ;;53261004696
+103 ;;9002226.02101,"768,53261004696 ",.02)
+104 ;;53261004696
+105 ;;9002226.02101,"768,55154524505 ",.01)
+106 ;;55154524505
+107 ;;9002226.02101,"768,55154524505 ",.02)
+108 ;;55154524505
+109 ;;9002226.02101,"768,59779012403 ",.01)
+110 ;;59779012403
+111 ;;9002226.02101,"768,59779012403 ",.02)
+112 ;;59779012403
+113 ;;9002226.02101,"768,59779012405 ",.01)
+114 ;;59779012405
+115 ;;9002226.02101,"768,59779012405 ",.02)
+116 ;;59779012405
+117 ;;9002226.02101,"768,59779019003 ",.01)
+118 ;;59779019003
+119 ;;9002226.02101,"768,59779019003 ",.02)
+120 ;;59779019003
+121 ;;9002226.02101,"768,59779019005 ",.01)
+122 ;;59779019005
+123 ;;9002226.02101,"768,59779019005 ",.02)
+124 ;;59779019005
+125 ;;9002226.02101,"768,59779034401 ",.01)
+126 ;;59779034401
+127 ;;9002226.02101,"768,59779034401 ",.02)
+128 ;;59779034401
+129 ;;9002226.02101,"768,59779034403 ",.01)
+130 ;;59779034403
+131 ;;9002226.02101,"768,59779034403 ",.02)
+132 ;;59779034403
+133 ;;9002226.02101,"768,59779034404 ",.01)
+134 ;;59779034404
+135 ;;9002226.02101,"768,59779034404 ",.02)
+136 ;;59779034404
+137 ;;9002226.02101,"768,59779034405 ",.01)
+138 ;;59779034405
+139 ;;9002226.02101,"768,59779034405 ",.02)
+140 ;;59779034405
+141 ;;9002226.02101,"768,59779034408 ",.01)
+142 ;;59779034408
+143 ;;9002226.02101,"768,59779034408 ",.02)
+144 ;;59779034408
+145 ;;9002226.02101,"768,59779034423 ",.01)
+146 ;;59779034423
+147 ;;9002226.02101,"768,59779034423 ",.02)
+148 ;;59779034423
+149 ;;9002226.02101,"768,59779034444 ",.01)
+150 ;;59779034444
+151 ;;9002226.02101,"768,59779034444 ",.02)
+152 ;;59779034444
+153 ;;9002226.02101,"768,59779034462 ",.01)
+154 ;;59779034462
+155 ;;9002226.02101,"768,59779034462 ",.02)
+156 ;;59779034462
+157 ;;9002226.02101,"768,59779042403 ",.01)
+158 ;;59779042403
+159 ;;9002226.02101,"768,59779042403 ",.02)
+160 ;;59779042403
+161 ;;9002226.02101,"768,59779042405 ",.01)
+162 ;;59779042405
+163 ;;9002226.02101,"768,59779042405 ",.02)
+164 ;;59779042405
+165 ;;9002226.02101,"768,67732089588 ",.01)
+166 ;;67732089588
+167 ;;9002226.02101,"768,67732089588 ",.02)
+168 ;;67732089588
+169 ;;9002226.02101,"768,67732089688 ",.01)
+170 ;;67732089688
+171 ;;9002226.02101,"768,67732089688 ",.02)
+172 ;;67732089688
+173 ;;9002226.02101,"768,68016089453 ",.01)
+174 ;;68016089453
+175 ;;9002226.02101,"768,68016089453 ",.02)
+176 ;;68016089453
+177 ;;9002226.02101,"768,68016089588 ",.01)
+178 ;;68016089588
+179 ;;9002226.02101,"768,68016089588 ",.02)
+180 ;;68016089588
+181 ;;9002226.02101,"768,68016089688 ",.01)
+182 ;;68016089688
+183 ;;9002226.02101,"768,68016089688 ",.02)
+184 ;;68016089688
+185 ;;9002226.02101,"768,68115064914 ",.01)
+186 ;;68115064914
+187 ;;9002226.02101,"768,68115064914 ",.02)
+188 ;;68115064914
+189 ;;9002226.02101,"768,68196087344 ",.01)
+190 ;;68196087344
+191 ;;9002226.02101,"768,68196087344 ",.02)
+192 ;;68196087344
+193 ;;9002226.02101,"768,70030062001 ",.01)
+194 ;;70030062001
+195 ;;9002226.02101,"768,70030062001 ",.02)
+196 ;;70030062001
