BGP10D4 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON NOV 10, 2010 ;
;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
;
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,"1067,653.63 ",.02)
;;653.63
;;9002226.02101,"1067,653.73 ",.01)
;;653.73
;;9002226.02101,"1067,653.73 ",.02)
;;653.73
;;9002226.02101,"1067,653.83 ",.01)
;;653.83
;;9002226.02101,"1067,653.83 ",.02)
;;653.83
;;9002226.02101,"1067,653.93 ",.01)
;;653.93
;;9002226.02101,"1067,653.93 ",.02)
;;653.93
;;9002226.02101,"1067,654.03 ",.01)
;;654.03
;;9002226.02101,"1067,654.03 ",.02)
;;654.03
;;9002226.02101,"1067,654.13 ",.01)
;;654.13
;;9002226.02101,"1067,654.13 ",.02)
;;654.13
;;9002226.02101,"1067,654.23 ",.01)
;;654.23
;;9002226.02101,"1067,654.23 ",.02)
;;654.23
;;9002226.02101,"1067,654.33 ",.01)
;;654.33
;;9002226.02101,"1067,654.33 ",.02)
;;654.33
;;9002226.02101,"1067,654.43 ",.01)
;;654.43
;;9002226.02101,"1067,654.43 ",.02)
;;654.43
;;9002226.02101,"1067,654.53 ",.01)
;;654.53
;;9002226.02101,"1067,654.53 ",.02)
;;654.53
;;9002226.02101,"1067,654.63 ",.01)
;;654.63
;;9002226.02101,"1067,654.63 ",.02)
;;654.63
;;9002226.02101,"1067,654.73 ",.01)
;;654.73
;;9002226.02101,"1067,654.73 ",.02)
;;654.73
;;9002226.02101,"1067,654.83 ",.01)
;;654.83
;;9002226.02101,"1067,654.83 ",.02)
;;654.83
;;9002226.02101,"1067,654.93 ",.01)
;;654.93
;;9002226.02101,"1067,654.93 ",.02)
;;654.93
;;9002226.02101,"1067,655.03 ",.01)
;;655.03
;;9002226.02101,"1067,655.03 ",.02)
;;655.03
;;9002226.02101,"1067,655.13 ",.01)
;;655.13
;;9002226.02101,"1067,655.13 ",.02)
;;655.13
;;9002226.02101,"1067,655.23 ",.01)
;;655.23
;;9002226.02101,"1067,655.23 ",.02)
;;655.23
;;9002226.02101,"1067,655.33 ",.01)
;;655.33
;;9002226.02101,"1067,655.33 ",.02)
;;655.33
;;9002226.02101,"1067,655.43 ",.01)
;;655.43
;;9002226.02101,"1067,655.43 ",.02)
;;655.43
;;9002226.02101,"1067,655.53 ",.01)
;;655.53
;;9002226.02101,"1067,655.53 ",.02)
;;655.53
;;9002226.02101,"1067,655.63 ",.01)
;;655.63
;;9002226.02101,"1067,655.63 ",.02)
;;655.63
;;9002226.02101,"1067,655.73 ",.01)
;;655.73
;;9002226.02101,"1067,655.73 ",.02)
;;655.73
;;9002226.02101,"1067,655.83 ",.01)
;;655.83
;;9002226.02101,"1067,655.83 ",.02)
;;655.83
;;9002226.02101,"1067,655.93 ",.01)
;;655.93
;;9002226.02101,"1067,655.93 ",.02)
;;655.93
;;9002226.02101,"1067,656.03 ",.01)
;;656.03
;;9002226.02101,"1067,656.03 ",.02)
;;656.03
;;9002226.02101,"1067,656.13 ",.01)
;;656.13
;;9002226.02101,"1067,656.13 ",.02)
;;656.13
;;9002226.02101,"1067,656.23 ",.01)
;;656.23
;;9002226.02101,"1067,656.23 ",.02)
;;656.23
;;9002226.02101,"1067,656.33 ",.01)
;;656.33
;;9002226.02101,"1067,656.33 ",.02)
;;656.33
;;9002226.02101,"1067,656.43 ",.01)
;;656.43
;;9002226.02101,"1067,656.43 ",.02)
;;656.43
;;9002226.02101,"1067,656.53 ",.01)
;;656.53
;;9002226.02101,"1067,656.53 ",.02)
;;656.53
;;9002226.02101,"1067,656.63 ",.01)
;;656.63
;;9002226.02101,"1067,656.63 ",.02)
;;656.63
;;9002226.02101,"1067,656.73 ",.01)
;;656.73
;;9002226.02101,"1067,656.73 ",.02)
;;656.73
;;9002226.02101,"1067,656.83 ",.01)
;;656.83
;;9002226.02101,"1067,656.83 ",.02)
;;656.83
;;9002226.02101,"1067,656.93 ",.01)
;;656.93
;;9002226.02101,"1067,656.93 ",.02)
;;656.93
;;9002226.02101,"1067,657.03 ",.01)
;;657.03
;;9002226.02101,"1067,657.03 ",.02)
;;657.03
;;9002226.02101,"1067,658.03 ",.01)
;;658.03
;;9002226.02101,"1067,658.03 ",.02)
;;658.03
;;9002226.02101,"1067,658.13 ",.01)
;;658.13
;;9002226.02101,"1067,658.13 ",.02)
;;658.13
;;9002226.02101,"1067,658.23 ",.01)
;;658.23
;;9002226.02101,"1067,658.23 ",.02)
;;658.23
;;9002226.02101,"1067,658.33 ",.01)
;;658.33
;;9002226.02101,"1067,658.33 ",.02)
;;658.33
;;9002226.02101,"1067,658.43 ",.01)
;;658.43
;;9002226.02101,"1067,658.43 ",.02)
;;658.43
;;9002226.02101,"1067,658.83 ",.01)
;;658.83
;;9002226.02101,"1067,658.83 ",.02)
;;658.83
;;9002226.02101,"1067,658.93 ",.01)
;;658.93
;;9002226.02101,"1067,658.93 ",.02)
;;658.93
;;9002226.02101,"1067,659.03 ",.01)
;;659.03
;;9002226.02101,"1067,659.03 ",.02)
;;659.03
;;9002226.02101,"1067,659.13 ",.01)
;;659.13
;;9002226.02101,"1067,659.13 ",.02)
;;659.13
;;9002226.02101,"1067,659.23 ",.01)
;;659.23
;;9002226.02101,"1067,659.23 ",.02)
;;659.23
;;9002226.02101,"1067,659.33 ",.01)
;;659.33
;;9002226.02101,"1067,659.33 ",.02)
;;659.33
;;9002226.02101,"1067,659.43 ",.01)
;;659.43
;;9002226.02101,"1067,659.43 ",.02)
;;659.43
;;9002226.02101,"1067,659.53 ",.01)
;;659.53
;;9002226.02101,"1067,659.53 ",.02)
;;659.53
;;9002226.02101,"1067,659.63 ",.01)
;;659.63
;;9002226.02101,"1067,659.63 ",.02)
;;659.63
;;9002226.02101,"1067,659.73 ",.01)
;;659.73
;;9002226.02101,"1067,659.73 ",.02)
;;659.73
;;9002226.02101,"1067,659.83 ",.01)
;;659.83
;;9002226.02101,"1067,659.83 ",.02)
;;659.83
;;9002226.02101,"1067,659.93 ",.01)
;;659.93
;;9002226.02101,"1067,659.93 ",.02)
;;659.93
;;9002226.02101,"1067,660.03 ",.01)
;;660.03
;;9002226.02101,"1067,660.03 ",.02)
;;660.03
BGP10D4 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON NOV 10, 2010 ;
+1 ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
+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,"1067,653.63 ",.02)
+2 ;;653.63
+3 ;;9002226.02101,"1067,653.73 ",.01)
+4 ;;653.73
+5 ;;9002226.02101,"1067,653.73 ",.02)
+6 ;;653.73
+7 ;;9002226.02101,"1067,653.83 ",.01)
+8 ;;653.83
+9 ;;9002226.02101,"1067,653.83 ",.02)
+10 ;;653.83
+11 ;;9002226.02101,"1067,653.93 ",.01)
+12 ;;653.93
+13 ;;9002226.02101,"1067,653.93 ",.02)
+14 ;;653.93
+15 ;;9002226.02101,"1067,654.03 ",.01)
+16 ;;654.03
+17 ;;9002226.02101,"1067,654.03 ",.02)
+18 ;;654.03
+19 ;;9002226.02101,"1067,654.13 ",.01)
+20 ;;654.13
+21 ;;9002226.02101,"1067,654.13 ",.02)
+22 ;;654.13
+23 ;;9002226.02101,"1067,654.23 ",.01)
+24 ;;654.23
+25 ;;9002226.02101,"1067,654.23 ",.02)
+26 ;;654.23
+27 ;;9002226.02101,"1067,654.33 ",.01)
+28 ;;654.33
+29 ;;9002226.02101,"1067,654.33 ",.02)
+30 ;;654.33
+31 ;;9002226.02101,"1067,654.43 ",.01)
+32 ;;654.43
+33 ;;9002226.02101,"1067,654.43 ",.02)
+34 ;;654.43
+35 ;;9002226.02101,"1067,654.53 ",.01)
+36 ;;654.53
+37 ;;9002226.02101,"1067,654.53 ",.02)
+38 ;;654.53
+39 ;;9002226.02101,"1067,654.63 ",.01)
+40 ;;654.63
+41 ;;9002226.02101,"1067,654.63 ",.02)
+42 ;;654.63
+43 ;;9002226.02101,"1067,654.73 ",.01)
+44 ;;654.73
+45 ;;9002226.02101,"1067,654.73 ",.02)
+46 ;;654.73
+47 ;;9002226.02101,"1067,654.83 ",.01)
+48 ;;654.83
+49 ;;9002226.02101,"1067,654.83 ",.02)
+50 ;;654.83
+51 ;;9002226.02101,"1067,654.93 ",.01)
+52 ;;654.93
+53 ;;9002226.02101,"1067,654.93 ",.02)
+54 ;;654.93
+55 ;;9002226.02101,"1067,655.03 ",.01)
+56 ;;655.03
+57 ;;9002226.02101,"1067,655.03 ",.02)
+58 ;;655.03
+59 ;;9002226.02101,"1067,655.13 ",.01)
+60 ;;655.13
+61 ;;9002226.02101,"1067,655.13 ",.02)
+62 ;;655.13
+63 ;;9002226.02101,"1067,655.23 ",.01)
+64 ;;655.23
+65 ;;9002226.02101,"1067,655.23 ",.02)
+66 ;;655.23
+67 ;;9002226.02101,"1067,655.33 ",.01)
+68 ;;655.33
+69 ;;9002226.02101,"1067,655.33 ",.02)
+70 ;;655.33
+71 ;;9002226.02101,"1067,655.43 ",.01)
+72 ;;655.43
+73 ;;9002226.02101,"1067,655.43 ",.02)
+74 ;;655.43
+75 ;;9002226.02101,"1067,655.53 ",.01)
+76 ;;655.53
+77 ;;9002226.02101,"1067,655.53 ",.02)
+78 ;;655.53
+79 ;;9002226.02101,"1067,655.63 ",.01)
+80 ;;655.63
+81 ;;9002226.02101,"1067,655.63 ",.02)
+82 ;;655.63
+83 ;;9002226.02101,"1067,655.73 ",.01)
+84 ;;655.73
+85 ;;9002226.02101,"1067,655.73 ",.02)
+86 ;;655.73
+87 ;;9002226.02101,"1067,655.83 ",.01)
+88 ;;655.83
+89 ;;9002226.02101,"1067,655.83 ",.02)
+90 ;;655.83
+91 ;;9002226.02101,"1067,655.93 ",.01)
+92 ;;655.93
+93 ;;9002226.02101,"1067,655.93 ",.02)
+94 ;;655.93
+95 ;;9002226.02101,"1067,656.03 ",.01)
+96 ;;656.03
+97 ;;9002226.02101,"1067,656.03 ",.02)
+98 ;;656.03
+99 ;;9002226.02101,"1067,656.13 ",.01)
+100 ;;656.13
+101 ;;9002226.02101,"1067,656.13 ",.02)
+102 ;;656.13
+103 ;;9002226.02101,"1067,656.23 ",.01)
+104 ;;656.23
+105 ;;9002226.02101,"1067,656.23 ",.02)
+106 ;;656.23
+107 ;;9002226.02101,"1067,656.33 ",.01)
+108 ;;656.33
+109 ;;9002226.02101,"1067,656.33 ",.02)
+110 ;;656.33
+111 ;;9002226.02101,"1067,656.43 ",.01)
+112 ;;656.43
+113 ;;9002226.02101,"1067,656.43 ",.02)
+114 ;;656.43
+115 ;;9002226.02101,"1067,656.53 ",.01)
+116 ;;656.53
+117 ;;9002226.02101,"1067,656.53 ",.02)
+118 ;;656.53
+119 ;;9002226.02101,"1067,656.63 ",.01)
+120 ;;656.63
+121 ;;9002226.02101,"1067,656.63 ",.02)
+122 ;;656.63
+123 ;;9002226.02101,"1067,656.73 ",.01)
+124 ;;656.73
+125 ;;9002226.02101,"1067,656.73 ",.02)
+126 ;;656.73
+127 ;;9002226.02101,"1067,656.83 ",.01)
+128 ;;656.83
+129 ;;9002226.02101,"1067,656.83 ",.02)
+130 ;;656.83
+131 ;;9002226.02101,"1067,656.93 ",.01)
+132 ;;656.93
+133 ;;9002226.02101,"1067,656.93 ",.02)
+134 ;;656.93
+135 ;;9002226.02101,"1067,657.03 ",.01)
+136 ;;657.03
+137 ;;9002226.02101,"1067,657.03 ",.02)
+138 ;;657.03
+139 ;;9002226.02101,"1067,658.03 ",.01)
+140 ;;658.03
+141 ;;9002226.02101,"1067,658.03 ",.02)
+142 ;;658.03
+143 ;;9002226.02101,"1067,658.13 ",.01)
+144 ;;658.13
+145 ;;9002226.02101,"1067,658.13 ",.02)
+146 ;;658.13
+147 ;;9002226.02101,"1067,658.23 ",.01)
+148 ;;658.23
+149 ;;9002226.02101,"1067,658.23 ",.02)
+150 ;;658.23
+151 ;;9002226.02101,"1067,658.33 ",.01)
+152 ;;658.33
+153 ;;9002226.02101,"1067,658.33 ",.02)
+154 ;;658.33
+155 ;;9002226.02101,"1067,658.43 ",.01)
+156 ;;658.43
+157 ;;9002226.02101,"1067,658.43 ",.02)
+158 ;;658.43
+159 ;;9002226.02101,"1067,658.83 ",.01)
+160 ;;658.83
+161 ;;9002226.02101,"1067,658.83 ",.02)
+162 ;;658.83
+163 ;;9002226.02101,"1067,658.93 ",.01)
+164 ;;658.93
+165 ;;9002226.02101,"1067,658.93 ",.02)
+166 ;;658.93
+167 ;;9002226.02101,"1067,659.03 ",.01)
+168 ;;659.03
+169 ;;9002226.02101,"1067,659.03 ",.02)
+170 ;;659.03
+171 ;;9002226.02101,"1067,659.13 ",.01)
+172 ;;659.13
+173 ;;9002226.02101,"1067,659.13 ",.02)
+174 ;;659.13
+175 ;;9002226.02101,"1067,659.23 ",.01)
+176 ;;659.23
+177 ;;9002226.02101,"1067,659.23 ",.02)
+178 ;;659.23
+179 ;;9002226.02101,"1067,659.33 ",.01)
+180 ;;659.33
+181 ;;9002226.02101,"1067,659.33 ",.02)
+182 ;;659.33
+183 ;;9002226.02101,"1067,659.43 ",.01)
+184 ;;659.43
+185 ;;9002226.02101,"1067,659.43 ",.02)
+186 ;;659.43
+187 ;;9002226.02101,"1067,659.53 ",.01)
+188 ;;659.53
+189 ;;9002226.02101,"1067,659.53 ",.02)
+190 ;;659.53
+191 ;;9002226.02101,"1067,659.63 ",.01)
+192 ;;659.63
+193 ;;9002226.02101,"1067,659.63 ",.02)
+194 ;;659.63
+195 ;;9002226.02101,"1067,659.73 ",.01)
+196 ;;659.73
+197 ;;9002226.02101,"1067,659.73 ",.02)
+198 ;;659.73
+199 ;;9002226.02101,"1067,659.83 ",.01)
+200 ;;659.83
+201 ;;9002226.02101,"1067,659.83 ",.02)
+202 ;;659.83
+203 ;;9002226.02101,"1067,659.93 ",.01)
+204 ;;659.93
+205 ;;9002226.02101,"1067,659.93 ",.02)
+206 ;;659.93
+207 ;;9002226.02101,"1067,660.03 ",.01)
+208 ;;660.03
+209 ;;9002226.02101,"1067,660.03 ",.02)
+210 ;;660.03
