BGPM5AMI ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 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,"900,68180046703 ",.01)
;;68180046703
;;9002226.02101,"900,68180046703 ",.02)
;;68180046703
;;9002226.02101,"900,68180046705 ",.01)
;;68180046705
;;9002226.02101,"900,68180046705 ",.02)
;;68180046705
;;9002226.02101,"900,68180046707 ",.01)
;;68180046707
;;9002226.02101,"900,68180046707 ",.02)
;;68180046707
;;9002226.02101,"900,68180046801 ",.01)
;;68180046801
;;9002226.02101,"900,68180046801 ",.02)
;;68180046801
;;9002226.02101,"900,68180046803 ",.01)
;;68180046803
;;9002226.02101,"900,68180046803 ",.02)
;;68180046803
;;9002226.02101,"900,68180046805 ",.01)
;;68180046805
;;9002226.02101,"900,68180046805 ",.02)
;;68180046805
;;9002226.02101,"900,68180046807 ",.01)
;;68180046807
;;9002226.02101,"900,68180046807 ",.02)
;;68180046807
;;9002226.02101,"900,68180046809 ",.01)
;;68180046809
;;9002226.02101,"900,68180046809 ",.02)
;;68180046809
;;9002226.02101,"900,68180046901 ",.01)
;;68180046901
;;9002226.02101,"900,68180046901 ",.02)
;;68180046901
;;9002226.02101,"900,68180046903 ",.01)
;;68180046903
;;9002226.02101,"900,68180046903 ",.02)
;;68180046903
;;9002226.02101,"900,68180046905 ",.01)
;;68180046905
;;9002226.02101,"900,68180046905 ",.02)
;;68180046905
;;9002226.02101,"900,68180046907 ",.01)
;;68180046907
;;9002226.02101,"900,68180046907 ",.02)
;;68180046907
;;9002226.02101,"900,68180046909 ",.01)
;;68180046909
;;9002226.02101,"900,68180046909 ",.02)
;;68180046909
;;9002226.02101,"900,68258600009 ",.01)
;;68258600009
;;9002226.02101,"900,68258600009 ",.02)
;;68258600009
;;9002226.02101,"900,68258600109 ",.01)
;;68258600109
;;9002226.02101,"900,68258600109 ",.02)
;;68258600109
;;9002226.02101,"900,68258600209 ",.01)
;;68258600209
;;9002226.02101,"900,68258600209 ",.02)
;;68258600209
;;9002226.02101,"900,68382010005 ",.01)
;;68382010005
;;9002226.02101,"900,68382010005 ",.02)
;;68382010005
;;9002226.02101,"900,68382010014 ",.01)
;;68382010014
;;9002226.02101,"900,68382010014 ",.02)
;;68382010014
;;9002226.02101,"900,68543000101 ",.01)
;;68543000101
;;9002226.02101,"900,68543000101 ",.02)
;;68543000101
;;9002226.02101,"900,68543000401 ",.01)
;;68543000401
;;9002226.02101,"900,68543000401 ",.02)
;;68543000401
;;9002226.02101,"900,68543000601 ",.01)
;;68543000601
;;9002226.02101,"900,68543000601 ",.02)
;;68543000601
;;9002226.02101,"900,68543004801 ",.01)
;;68543004801
;;9002226.02101,"900,68543004801 ",.02)
;;68543004801
;;9002226.02101,"900,68788003403 ",.01)
;;68788003403
;;9002226.02101,"900,68788003403 ",.02)
;;68788003403
;;9002226.02101,"900,68788003405 ",.01)
;;68788003405
;;9002226.02101,"900,68788003405 ",.02)
;;68788003405
;;9002226.02101,"900,68788003406 ",.01)
;;68788003406
;;9002226.02101,"900,68788003406 ",.02)
;;68788003406
;;9002226.02101,"900,68788007403 ",.01)
;;68788007403
;;9002226.02101,"900,68788007403 ",.02)
;;68788007403
;;9002226.02101,"900,68788007406 ",.01)
;;68788007406
;;9002226.02101,"900,68788007406 ",.02)
;;68788007406
;;9002226.02101,"900,68788007409 ",.01)
;;68788007409
;;9002226.02101,"900,68788007409 ",.02)
;;68788007409
;;9002226.02101,"900,68788057603 ",.01)
;;68788057603
;;9002226.02101,"900,68788057603 ",.02)
;;68788057603
;;9002226.02101,"900,68788057606 ",.01)
;;68788057606
;;9002226.02101,"900,68788057606 ",.02)
;;68788057606
;;9002226.02101,"900,68788057609 ",.01)
;;68788057609
;;9002226.02101,"900,68788057609 ",.02)
;;68788057609
;;9002226.02101,"900,68788075503 ",.01)
;;68788075503
;;9002226.02101,"900,68788075503 ",.02)
;;68788075503
;;9002226.02101,"900,68788075506 ",.01)
;;68788075506
;;9002226.02101,"900,68788075506 ",.02)
;;68788075506
;;9002226.02101,"900,68788075509 ",.01)
;;68788075509
;;9002226.02101,"900,68788075509 ",.02)
;;68788075509
;;9002226.02101,"900,68788092603 ",.01)
;;68788092603
;;9002226.02101,"900,68788092603 ",.02)
;;68788092603
;;9002226.02101,"900,68788092606 ",.01)
;;68788092606
;;9002226.02101,"900,68788092606 ",.02)
;;68788092606
;;9002226.02101,"900,68788092609 ",.01)
;;68788092609
;;9002226.02101,"900,68788092609 ",.02)
;;68788092609
;;9002226.02101,"900,68788092803 ",.01)
;;68788092803
;;9002226.02101,"900,68788092803 ",.02)
;;68788092803
;;9002226.02101,"900,68788092806 ",.01)
;;68788092806
;;9002226.02101,"900,68788092806 ",.02)
;;68788092806
;;9002226.02101,"900,68788092809 ",.01)
;;68788092809
;;9002226.02101,"900,68788092809 ",.02)
;;68788092809
;;9002226.02101,"900,68788236403 ",.01)
;;68788236403
;;9002226.02101,"900,68788236403 ",.02)
;;68788236403
;;9002226.02101,"900,68788236406 ",.01)
;;68788236406
;;9002226.02101,"900,68788236406 ",.02)
;;68788236406
;;9002226.02101,"900,68788236409 ",.01)
;;68788236409
;;9002226.02101,"900,68788236409 ",.02)
;;68788236409
;;9002226.02101,"900,68788263303 ",.01)
;;68788263303
;;9002226.02101,"900,68788263303 ",.02)
;;68788263303
;;9002226.02101,"900,68788263306 ",.01)
;;68788263306
;;9002226.02101,"900,68788263306 ",.02)
;;68788263306
;;9002226.02101,"900,68788263309 ",.01)
;;68788263309
;;9002226.02101,"900,68788263309 ",.02)
;;68788263309
;;9002226.02101,"900,68788263403 ",.01)
;;68788263403
;;9002226.02101,"900,68788263403 ",.02)
;;68788263403
;;9002226.02101,"900,68788263503 ",.01)
;;68788263503
;;9002226.02101,"900,68788263503 ",.02)
;;68788263503
;;9002226.02101,"900,68788263506 ",.01)
;;68788263506
;;9002226.02101,"900,68788263506 ",.02)
;;68788263506
;;9002226.02101,"900,68788263509 ",.01)
;;68788263509
;;9002226.02101,"900,68788263509 ",.02)
;;68788263509
;;9002226.02101,"900,74312000720 ",.01)
;;74312000720
;;9002226.02101,"900,74312000720 ",.02)
;;74312000720
;;9002226.02101,"900,74312001483 ",.01)
;;74312001483
;;9002226.02101,"900,74312001483 ",.02)
;;74312001483
;;9002226.02101,"900,74312005800 ",.01)
;;74312005800
;;9002226.02101,"900,74312005800 ",.02)
;;74312005800
BGPM5AMI ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 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,"900,68180046703 ",.01)
+2 ;;68180046703
+3 ;;9002226.02101,"900,68180046703 ",.02)
+4 ;;68180046703
+5 ;;9002226.02101,"900,68180046705 ",.01)
+6 ;;68180046705
+7 ;;9002226.02101,"900,68180046705 ",.02)
+8 ;;68180046705
+9 ;;9002226.02101,"900,68180046707 ",.01)
+10 ;;68180046707
+11 ;;9002226.02101,"900,68180046707 ",.02)
+12 ;;68180046707
+13 ;;9002226.02101,"900,68180046801 ",.01)
+14 ;;68180046801
+15 ;;9002226.02101,"900,68180046801 ",.02)
+16 ;;68180046801
+17 ;;9002226.02101,"900,68180046803 ",.01)
+18 ;;68180046803
+19 ;;9002226.02101,"900,68180046803 ",.02)
+20 ;;68180046803
+21 ;;9002226.02101,"900,68180046805 ",.01)
+22 ;;68180046805
+23 ;;9002226.02101,"900,68180046805 ",.02)
+24 ;;68180046805
+25 ;;9002226.02101,"900,68180046807 ",.01)
+26 ;;68180046807
+27 ;;9002226.02101,"900,68180046807 ",.02)
+28 ;;68180046807
+29 ;;9002226.02101,"900,68180046809 ",.01)
+30 ;;68180046809
+31 ;;9002226.02101,"900,68180046809 ",.02)
+32 ;;68180046809
+33 ;;9002226.02101,"900,68180046901 ",.01)
+34 ;;68180046901
+35 ;;9002226.02101,"900,68180046901 ",.02)
+36 ;;68180046901
+37 ;;9002226.02101,"900,68180046903 ",.01)
+38 ;;68180046903
+39 ;;9002226.02101,"900,68180046903 ",.02)
+40 ;;68180046903
+41 ;;9002226.02101,"900,68180046905 ",.01)
+42 ;;68180046905
+43 ;;9002226.02101,"900,68180046905 ",.02)
+44 ;;68180046905
+45 ;;9002226.02101,"900,68180046907 ",.01)
+46 ;;68180046907
+47 ;;9002226.02101,"900,68180046907 ",.02)
+48 ;;68180046907
+49 ;;9002226.02101,"900,68180046909 ",.01)
+50 ;;68180046909
+51 ;;9002226.02101,"900,68180046909 ",.02)
+52 ;;68180046909
+53 ;;9002226.02101,"900,68258600009 ",.01)
+54 ;;68258600009
+55 ;;9002226.02101,"900,68258600009 ",.02)
+56 ;;68258600009
+57 ;;9002226.02101,"900,68258600109 ",.01)
+58 ;;68258600109
+59 ;;9002226.02101,"900,68258600109 ",.02)
+60 ;;68258600109
+61 ;;9002226.02101,"900,68258600209 ",.01)
+62 ;;68258600209
+63 ;;9002226.02101,"900,68258600209 ",.02)
+64 ;;68258600209
+65 ;;9002226.02101,"900,68382010005 ",.01)
+66 ;;68382010005
+67 ;;9002226.02101,"900,68382010005 ",.02)
+68 ;;68382010005
+69 ;;9002226.02101,"900,68382010014 ",.01)
+70 ;;68382010014
+71 ;;9002226.02101,"900,68382010014 ",.02)
+72 ;;68382010014
+73 ;;9002226.02101,"900,68543000101 ",.01)
+74 ;;68543000101
+75 ;;9002226.02101,"900,68543000101 ",.02)
+76 ;;68543000101
+77 ;;9002226.02101,"900,68543000401 ",.01)
+78 ;;68543000401
+79 ;;9002226.02101,"900,68543000401 ",.02)
+80 ;;68543000401
+81 ;;9002226.02101,"900,68543000601 ",.01)
+82 ;;68543000601
+83 ;;9002226.02101,"900,68543000601 ",.02)
+84 ;;68543000601
+85 ;;9002226.02101,"900,68543004801 ",.01)
+86 ;;68543004801
+87 ;;9002226.02101,"900,68543004801 ",.02)
+88 ;;68543004801
+89 ;;9002226.02101,"900,68788003403 ",.01)
+90 ;;68788003403
+91 ;;9002226.02101,"900,68788003403 ",.02)
+92 ;;68788003403
+93 ;;9002226.02101,"900,68788003405 ",.01)
+94 ;;68788003405
+95 ;;9002226.02101,"900,68788003405 ",.02)
+96 ;;68788003405
+97 ;;9002226.02101,"900,68788003406 ",.01)
+98 ;;68788003406
+99 ;;9002226.02101,"900,68788003406 ",.02)
+100 ;;68788003406
+101 ;;9002226.02101,"900,68788007403 ",.01)
+102 ;;68788007403
+103 ;;9002226.02101,"900,68788007403 ",.02)
+104 ;;68788007403
+105 ;;9002226.02101,"900,68788007406 ",.01)
+106 ;;68788007406
+107 ;;9002226.02101,"900,68788007406 ",.02)
+108 ;;68788007406
+109 ;;9002226.02101,"900,68788007409 ",.01)
+110 ;;68788007409
+111 ;;9002226.02101,"900,68788007409 ",.02)
+112 ;;68788007409
+113 ;;9002226.02101,"900,68788057603 ",.01)
+114 ;;68788057603
+115 ;;9002226.02101,"900,68788057603 ",.02)
+116 ;;68788057603
+117 ;;9002226.02101,"900,68788057606 ",.01)
+118 ;;68788057606
+119 ;;9002226.02101,"900,68788057606 ",.02)
+120 ;;68788057606
+121 ;;9002226.02101,"900,68788057609 ",.01)
+122 ;;68788057609
+123 ;;9002226.02101,"900,68788057609 ",.02)
+124 ;;68788057609
+125 ;;9002226.02101,"900,68788075503 ",.01)
+126 ;;68788075503
+127 ;;9002226.02101,"900,68788075503 ",.02)
+128 ;;68788075503
+129 ;;9002226.02101,"900,68788075506 ",.01)
+130 ;;68788075506
+131 ;;9002226.02101,"900,68788075506 ",.02)
+132 ;;68788075506
+133 ;;9002226.02101,"900,68788075509 ",.01)
+134 ;;68788075509
+135 ;;9002226.02101,"900,68788075509 ",.02)
+136 ;;68788075509
+137 ;;9002226.02101,"900,68788092603 ",.01)
+138 ;;68788092603
+139 ;;9002226.02101,"900,68788092603 ",.02)
+140 ;;68788092603
+141 ;;9002226.02101,"900,68788092606 ",.01)
+142 ;;68788092606
+143 ;;9002226.02101,"900,68788092606 ",.02)
+144 ;;68788092606
+145 ;;9002226.02101,"900,68788092609 ",.01)
+146 ;;68788092609
+147 ;;9002226.02101,"900,68788092609 ",.02)
+148 ;;68788092609
+149 ;;9002226.02101,"900,68788092803 ",.01)
+150 ;;68788092803
+151 ;;9002226.02101,"900,68788092803 ",.02)
+152 ;;68788092803
+153 ;;9002226.02101,"900,68788092806 ",.01)
+154 ;;68788092806
+155 ;;9002226.02101,"900,68788092806 ",.02)
+156 ;;68788092806
+157 ;;9002226.02101,"900,68788092809 ",.01)
+158 ;;68788092809
+159 ;;9002226.02101,"900,68788092809 ",.02)
+160 ;;68788092809
+161 ;;9002226.02101,"900,68788236403 ",.01)
+162 ;;68788236403
+163 ;;9002226.02101,"900,68788236403 ",.02)
+164 ;;68788236403
+165 ;;9002226.02101,"900,68788236406 ",.01)
+166 ;;68788236406
+167 ;;9002226.02101,"900,68788236406 ",.02)
+168 ;;68788236406
+169 ;;9002226.02101,"900,68788236409 ",.01)
+170 ;;68788236409
+171 ;;9002226.02101,"900,68788236409 ",.02)
+172 ;;68788236409
+173 ;;9002226.02101,"900,68788263303 ",.01)
+174 ;;68788263303
+175 ;;9002226.02101,"900,68788263303 ",.02)
+176 ;;68788263303
+177 ;;9002226.02101,"900,68788263306 ",.01)
+178 ;;68788263306
+179 ;;9002226.02101,"900,68788263306 ",.02)
+180 ;;68788263306
+181 ;;9002226.02101,"900,68788263309 ",.01)
+182 ;;68788263309
+183 ;;9002226.02101,"900,68788263309 ",.02)
+184 ;;68788263309
+185 ;;9002226.02101,"900,68788263403 ",.01)
+186 ;;68788263403
+187 ;;9002226.02101,"900,68788263403 ",.02)
+188 ;;68788263403
+189 ;;9002226.02101,"900,68788263503 ",.01)
+190 ;;68788263503
+191 ;;9002226.02101,"900,68788263503 ",.02)
+192 ;;68788263503
+193 ;;9002226.02101,"900,68788263506 ",.01)
+194 ;;68788263506
+195 ;;9002226.02101,"900,68788263506 ",.02)
+196 ;;68788263506
+197 ;;9002226.02101,"900,68788263509 ",.01)
+198 ;;68788263509
+199 ;;9002226.02101,"900,68788263509 ",.02)
+200 ;;68788263509
+201 ;;9002226.02101,"900,74312000720 ",.01)
+202 ;;74312000720
+203 ;;9002226.02101,"900,74312000720 ",.02)
+204 ;;74312000720
+205 ;;9002226.02101,"900,74312001483 ",.01)
+206 ;;74312001483
+207 ;;9002226.02101,"900,74312001483 ",.02)
+208 ;;74312001483
+209 ;;9002226.02101,"900,74312005800 ",.01)
+210 ;;74312005800
+211 ;;9002226.02101,"900,74312005800 ",.02)
+212 ;;74312005800
