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