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