BGP10D3 ; 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,647.13 ",.01)
;;647.13
;;9002226.02101,"1067,647.13 ",.02)
;;647.13
;;9002226.02101,"1067,647.23 ",.01)
;;647.23
;;9002226.02101,"1067,647.23 ",.02)
;;647.23
;;9002226.02101,"1067,647.33 ",.01)
;;647.33
;;9002226.02101,"1067,647.33 ",.02)
;;647.33
;;9002226.02101,"1067,647.43 ",.01)
;;647.43
;;9002226.02101,"1067,647.43 ",.02)
;;647.43
;;9002226.02101,"1067,647.53 ",.01)
;;647.53
;;9002226.02101,"1067,647.53 ",.02)
;;647.53
;;9002226.02101,"1067,647.63 ",.01)
;;647.63
;;9002226.02101,"1067,647.63 ",.02)
;;647.63
;;9002226.02101,"1067,647.83 ",.01)
;;647.83
;;9002226.02101,"1067,647.83 ",.02)
;;647.83
;;9002226.02101,"1067,647.93 ",.01)
;;647.93
;;9002226.02101,"1067,647.93 ",.02)
;;647.93
;;9002226.02101,"1067,648.03 ",.01)
;;648.03
;;9002226.02101,"1067,648.03 ",.02)
;;648.03
;;9002226.02101,"1067,648.13 ",.01)
;;648.13
;;9002226.02101,"1067,648.13 ",.02)
;;648.13
;;9002226.02101,"1067,648.23 ",.01)
;;648.23
;;9002226.02101,"1067,648.23 ",.02)
;;648.23
;;9002226.02101,"1067,648.33 ",.01)
;;648.33
;;9002226.02101,"1067,648.33 ",.02)
;;648.33
;;9002226.02101,"1067,648.43 ",.01)
;;648.43
;;9002226.02101,"1067,648.43 ",.02)
;;648.43
;;9002226.02101,"1067,648.53 ",.01)
;;648.53
;;9002226.02101,"1067,648.53 ",.02)
;;648.53
;;9002226.02101,"1067,648.63 ",.01)
;;648.63
;;9002226.02101,"1067,648.63 ",.02)
;;648.63
;;9002226.02101,"1067,648.73 ",.01)
;;648.73
;;9002226.02101,"1067,648.73 ",.02)
;;648.73
;;9002226.02101,"1067,648.83 ",.01)
;;648.83
;;9002226.02101,"1067,648.83 ",.02)
;;648.83
;;9002226.02101,"1067,648.93 ",.01)
;;648.93
;;9002226.02101,"1067,648.93 ",.02)
;;648.93
;;9002226.02101,"1067,649.03 ",.01)
;;649.03
;;9002226.02101,"1067,649.03 ",.02)
;;649.03
;;9002226.02101,"1067,649.13 ",.01)
;;649.13
;;9002226.02101,"1067,649.13 ",.02)
;;649.13
;;9002226.02101,"1067,649.23 ",.01)
;;649.23
;;9002226.02101,"1067,649.23 ",.02)
;;649.23
;;9002226.02101,"1067,649.33 ",.01)
;;649.33
;;9002226.02101,"1067,649.33 ",.02)
;;649.33
;;9002226.02101,"1067,649.43 ",.01)
;;649.43
;;9002226.02101,"1067,649.43 ",.02)
;;649.43
;;9002226.02101,"1067,649.53 ",.01)
;;649.53
;;9002226.02101,"1067,649.53 ",.02)
;;649.53
;;9002226.02101,"1067,649.63 ",.01)
;;649.63
;;9002226.02101,"1067,649.63 ",.02)
;;649.63
;;9002226.02101,"1067,649.73 ",.01)
;;649.73
;;9002226.02101,"1067,649.73 ",.02)
;;649.73
;;9002226.02101,"1067,651.03 ",.01)
;;651.03
;;9002226.02101,"1067,651.03 ",.02)
;;651.03
;;9002226.02101,"1067,651.13 ",.01)
;;651.13
;;9002226.02101,"1067,651.13 ",.02)
;;651.13
;;9002226.02101,"1067,651.23 ",.01)
;;651.23
;;9002226.02101,"1067,651.23 ",.02)
;;651.23
;;9002226.02101,"1067,651.33 ",.01)
;;651.33
;;9002226.02101,"1067,651.33 ",.02)
;;651.33
;;9002226.02101,"1067,651.43 ",.01)
;;651.43
;;9002226.02101,"1067,651.43 ",.02)
;;651.43
;;9002226.02101,"1067,651.53 ",.01)
;;651.53
;;9002226.02101,"1067,651.53 ",.02)
;;651.53
;;9002226.02101,"1067,651.63 ",.01)
;;651.63
;;9002226.02101,"1067,651.63 ",.02)
;;651.63
;;9002226.02101,"1067,651.73 ",.01)
;;651.73
;;9002226.02101,"1067,651.73 ",.02)
;;651.73
;;9002226.02101,"1067,651.83 ",.01)
;;651.83
;;9002226.02101,"1067,651.83 ",.02)
;;651.83
;;9002226.02101,"1067,651.93 ",.01)
;;651.93
;;9002226.02101,"1067,651.93 ",.02)
;;651.93
;;9002226.02101,"1067,652.03 ",.01)
;;652.03
;;9002226.02101,"1067,652.03 ",.02)
;;652.03
;;9002226.02101,"1067,652.13 ",.01)
;;652.13
;;9002226.02101,"1067,652.13 ",.02)
;;652.13
;;9002226.02101,"1067,652.23 ",.01)
;;652.23
;;9002226.02101,"1067,652.23 ",.02)
;;652.23
;;9002226.02101,"1067,652.33 ",.01)
;;652.33
;;9002226.02101,"1067,652.33 ",.02)
;;652.33
;;9002226.02101,"1067,652.43 ",.01)
;;652.43
;;9002226.02101,"1067,652.43 ",.02)
;;652.43
;;9002226.02101,"1067,652.53 ",.01)
;;652.53
;;9002226.02101,"1067,652.53 ",.02)
;;652.53
;;9002226.02101,"1067,652.63 ",.01)
;;652.63
;;9002226.02101,"1067,652.63 ",.02)
;;652.63
;;9002226.02101,"1067,652.73 ",.01)
;;652.73
;;9002226.02101,"1067,652.73 ",.02)
;;652.73
;;9002226.02101,"1067,652.83 ",.01)
;;652.83
;;9002226.02101,"1067,652.83 ",.02)
;;652.83
;;9002226.02101,"1067,652.93 ",.01)
;;652.93
;;9002226.02101,"1067,652.93 ",.02)
;;652.93
;;9002226.02101,"1067,653.03 ",.01)
;;653.03
;;9002226.02101,"1067,653.03 ",.02)
;;653.03
;;9002226.02101,"1067,653.13 ",.01)
;;653.13
;;9002226.02101,"1067,653.13 ",.02)
;;653.13
;;9002226.02101,"1067,653.23 ",.01)
;;653.23
;;9002226.02101,"1067,653.23 ",.02)
;;653.23
;;9002226.02101,"1067,653.33 ",.01)
;;653.33
;;9002226.02101,"1067,653.33 ",.02)
;;653.33
;;9002226.02101,"1067,653.43 ",.01)
;;653.43
;;9002226.02101,"1067,653.43 ",.02)
;;653.43
;;9002226.02101,"1067,653.53 ",.01)
;;653.53
;;9002226.02101,"1067,653.53 ",.02)
;;653.53
;;9002226.02101,"1067,653.63 ",.01)
;;653.63
BGP10D3 ; 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,647.13 ",.01)
+2 ;;647.13
+3 ;;9002226.02101,"1067,647.13 ",.02)
+4 ;;647.13
+5 ;;9002226.02101,"1067,647.23 ",.01)
+6 ;;647.23
+7 ;;9002226.02101,"1067,647.23 ",.02)
+8 ;;647.23
+9 ;;9002226.02101,"1067,647.33 ",.01)
+10 ;;647.33
+11 ;;9002226.02101,"1067,647.33 ",.02)
+12 ;;647.33
+13 ;;9002226.02101,"1067,647.43 ",.01)
+14 ;;647.43
+15 ;;9002226.02101,"1067,647.43 ",.02)
+16 ;;647.43
+17 ;;9002226.02101,"1067,647.53 ",.01)
+18 ;;647.53
+19 ;;9002226.02101,"1067,647.53 ",.02)
+20 ;;647.53
+21 ;;9002226.02101,"1067,647.63 ",.01)
+22 ;;647.63
+23 ;;9002226.02101,"1067,647.63 ",.02)
+24 ;;647.63
+25 ;;9002226.02101,"1067,647.83 ",.01)
+26 ;;647.83
+27 ;;9002226.02101,"1067,647.83 ",.02)
+28 ;;647.83
+29 ;;9002226.02101,"1067,647.93 ",.01)
+30 ;;647.93
+31 ;;9002226.02101,"1067,647.93 ",.02)
+32 ;;647.93
+33 ;;9002226.02101,"1067,648.03 ",.01)
+34 ;;648.03
+35 ;;9002226.02101,"1067,648.03 ",.02)
+36 ;;648.03
+37 ;;9002226.02101,"1067,648.13 ",.01)
+38 ;;648.13
+39 ;;9002226.02101,"1067,648.13 ",.02)
+40 ;;648.13
+41 ;;9002226.02101,"1067,648.23 ",.01)
+42 ;;648.23
+43 ;;9002226.02101,"1067,648.23 ",.02)
+44 ;;648.23
+45 ;;9002226.02101,"1067,648.33 ",.01)
+46 ;;648.33
+47 ;;9002226.02101,"1067,648.33 ",.02)
+48 ;;648.33
+49 ;;9002226.02101,"1067,648.43 ",.01)
+50 ;;648.43
+51 ;;9002226.02101,"1067,648.43 ",.02)
+52 ;;648.43
+53 ;;9002226.02101,"1067,648.53 ",.01)
+54 ;;648.53
+55 ;;9002226.02101,"1067,648.53 ",.02)
+56 ;;648.53
+57 ;;9002226.02101,"1067,648.63 ",.01)
+58 ;;648.63
+59 ;;9002226.02101,"1067,648.63 ",.02)
+60 ;;648.63
+61 ;;9002226.02101,"1067,648.73 ",.01)
+62 ;;648.73
+63 ;;9002226.02101,"1067,648.73 ",.02)
+64 ;;648.73
+65 ;;9002226.02101,"1067,648.83 ",.01)
+66 ;;648.83
+67 ;;9002226.02101,"1067,648.83 ",.02)
+68 ;;648.83
+69 ;;9002226.02101,"1067,648.93 ",.01)
+70 ;;648.93
+71 ;;9002226.02101,"1067,648.93 ",.02)
+72 ;;648.93
+73 ;;9002226.02101,"1067,649.03 ",.01)
+74 ;;649.03
+75 ;;9002226.02101,"1067,649.03 ",.02)
+76 ;;649.03
+77 ;;9002226.02101,"1067,649.13 ",.01)
+78 ;;649.13
+79 ;;9002226.02101,"1067,649.13 ",.02)
+80 ;;649.13
+81 ;;9002226.02101,"1067,649.23 ",.01)
+82 ;;649.23
+83 ;;9002226.02101,"1067,649.23 ",.02)
+84 ;;649.23
+85 ;;9002226.02101,"1067,649.33 ",.01)
+86 ;;649.33
+87 ;;9002226.02101,"1067,649.33 ",.02)
+88 ;;649.33
+89 ;;9002226.02101,"1067,649.43 ",.01)
+90 ;;649.43
+91 ;;9002226.02101,"1067,649.43 ",.02)
+92 ;;649.43
+93 ;;9002226.02101,"1067,649.53 ",.01)
+94 ;;649.53
+95 ;;9002226.02101,"1067,649.53 ",.02)
+96 ;;649.53
+97 ;;9002226.02101,"1067,649.63 ",.01)
+98 ;;649.63
+99 ;;9002226.02101,"1067,649.63 ",.02)
+100 ;;649.63
+101 ;;9002226.02101,"1067,649.73 ",.01)
+102 ;;649.73
+103 ;;9002226.02101,"1067,649.73 ",.02)
+104 ;;649.73
+105 ;;9002226.02101,"1067,651.03 ",.01)
+106 ;;651.03
+107 ;;9002226.02101,"1067,651.03 ",.02)
+108 ;;651.03
+109 ;;9002226.02101,"1067,651.13 ",.01)
+110 ;;651.13
+111 ;;9002226.02101,"1067,651.13 ",.02)
+112 ;;651.13
+113 ;;9002226.02101,"1067,651.23 ",.01)
+114 ;;651.23
+115 ;;9002226.02101,"1067,651.23 ",.02)
+116 ;;651.23
+117 ;;9002226.02101,"1067,651.33 ",.01)
+118 ;;651.33
+119 ;;9002226.02101,"1067,651.33 ",.02)
+120 ;;651.33
+121 ;;9002226.02101,"1067,651.43 ",.01)
+122 ;;651.43
+123 ;;9002226.02101,"1067,651.43 ",.02)
+124 ;;651.43
+125 ;;9002226.02101,"1067,651.53 ",.01)
+126 ;;651.53
+127 ;;9002226.02101,"1067,651.53 ",.02)
+128 ;;651.53
+129 ;;9002226.02101,"1067,651.63 ",.01)
+130 ;;651.63
+131 ;;9002226.02101,"1067,651.63 ",.02)
+132 ;;651.63
+133 ;;9002226.02101,"1067,651.73 ",.01)
+134 ;;651.73
+135 ;;9002226.02101,"1067,651.73 ",.02)
+136 ;;651.73
+137 ;;9002226.02101,"1067,651.83 ",.01)
+138 ;;651.83
+139 ;;9002226.02101,"1067,651.83 ",.02)
+140 ;;651.83
+141 ;;9002226.02101,"1067,651.93 ",.01)
+142 ;;651.93
+143 ;;9002226.02101,"1067,651.93 ",.02)
+144 ;;651.93
+145 ;;9002226.02101,"1067,652.03 ",.01)
+146 ;;652.03
+147 ;;9002226.02101,"1067,652.03 ",.02)
+148 ;;652.03
+149 ;;9002226.02101,"1067,652.13 ",.01)
+150 ;;652.13
+151 ;;9002226.02101,"1067,652.13 ",.02)
+152 ;;652.13
+153 ;;9002226.02101,"1067,652.23 ",.01)
+154 ;;652.23
+155 ;;9002226.02101,"1067,652.23 ",.02)
+156 ;;652.23
+157 ;;9002226.02101,"1067,652.33 ",.01)
+158 ;;652.33
+159 ;;9002226.02101,"1067,652.33 ",.02)
+160 ;;652.33
+161 ;;9002226.02101,"1067,652.43 ",.01)
+162 ;;652.43
+163 ;;9002226.02101,"1067,652.43 ",.02)
+164 ;;652.43
+165 ;;9002226.02101,"1067,652.53 ",.01)
+166 ;;652.53
+167 ;;9002226.02101,"1067,652.53 ",.02)
+168 ;;652.53
+169 ;;9002226.02101,"1067,652.63 ",.01)
+170 ;;652.63
+171 ;;9002226.02101,"1067,652.63 ",.02)
+172 ;;652.63
+173 ;;9002226.02101,"1067,652.73 ",.01)
+174 ;;652.73
+175 ;;9002226.02101,"1067,652.73 ",.02)
+176 ;;652.73
+177 ;;9002226.02101,"1067,652.83 ",.01)
+178 ;;652.83
+179 ;;9002226.02101,"1067,652.83 ",.02)
+180 ;;652.83
+181 ;;9002226.02101,"1067,652.93 ",.01)
+182 ;;652.93
+183 ;;9002226.02101,"1067,652.93 ",.02)
+184 ;;652.93
+185 ;;9002226.02101,"1067,653.03 ",.01)
+186 ;;653.03
+187 ;;9002226.02101,"1067,653.03 ",.02)
+188 ;;653.03
+189 ;;9002226.02101,"1067,653.13 ",.01)
+190 ;;653.13
+191 ;;9002226.02101,"1067,653.13 ",.02)
+192 ;;653.13
+193 ;;9002226.02101,"1067,653.23 ",.01)
+194 ;;653.23
+195 ;;9002226.02101,"1067,653.23 ",.02)
+196 ;;653.23
+197 ;;9002226.02101,"1067,653.33 ",.01)
+198 ;;653.33
+199 ;;9002226.02101,"1067,653.33 ",.02)
+200 ;;653.33
+201 ;;9002226.02101,"1067,653.43 ",.01)
+202 ;;653.43
+203 ;;9002226.02101,"1067,653.43 ",.02)
+204 ;;653.43
+205 ;;9002226.02101,"1067,653.53 ",.01)
+206 ;;653.53
+207 ;;9002226.02101,"1067,653.53 ",.02)
+208 ;;653.53
+209 ;;9002226.02101,"1067,653.63 ",.01)
+210 ;;653.63
