BGP10FE ; 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,660.43 ",.01)
;;660.43
;;9002226.02101,"491,660.43 ",.02)
;;660.43
;;9002226.02101,"491,660.53 ",.01)
;;660.53
;;9002226.02101,"491,660.53 ",.02)
;;660.53
;;9002226.02101,"491,660.63 ",.01)
;;660.63
;;9002226.02101,"491,660.63 ",.02)
;;660.63
;;9002226.02101,"491,660.73 ",.01)
;;660.73
;;9002226.02101,"491,660.73 ",.02)
;;660.73
;;9002226.02101,"491,660.83 ",.01)
;;660.83
;;9002226.02101,"491,660.83 ",.02)
;;660.83
;;9002226.02101,"491,660.93 ",.01)
;;660.93
;;9002226.02101,"491,660.93 ",.02)
;;660.93
;;9002226.02101,"491,661.03 ",.01)
;;661.03
;;9002226.02101,"491,661.03 ",.02)
;;661.03
;;9002226.02101,"491,661.13 ",.01)
;;661.13
;;9002226.02101,"491,661.13 ",.02)
;;661.13
;;9002226.02101,"491,661.23 ",.01)
;;661.23
;;9002226.02101,"491,661.23 ",.02)
;;661.23
;;9002226.02101,"491,661.33 ",.01)
;;661.33
;;9002226.02101,"491,661.33 ",.02)
;;661.33
;;9002226.02101,"491,661.43 ",.01)
;;661.43
;;9002226.02101,"491,661.43 ",.02)
;;661.43
;;9002226.02101,"491,661.93 ",.01)
;;661.93
;;9002226.02101,"491,661.93 ",.02)
;;661.93
;;9002226.02101,"491,662.03 ",.01)
;;662.03
;;9002226.02101,"491,662.03 ",.02)
;;662.03
;;9002226.02101,"491,662.13 ",.01)
;;662.13
;;9002226.02101,"491,662.13 ",.02)
;;662.13
;;9002226.02101,"491,662.23 ",.01)
;;662.23
;;9002226.02101,"491,662.23 ",.02)
;;662.23
;;9002226.02101,"491,662.33 ",.01)
;;662.33
;;9002226.02101,"491,662.33 ",.02)
;;662.33
;;9002226.02101,"491,663.03 ",.01)
;;663.03
;;9002226.02101,"491,663.03 ",.02)
;;663.03
;;9002226.02101,"491,663.13 ",.01)
;;663.13
;;9002226.02101,"491,663.13 ",.02)
;;663.13
;;9002226.02101,"491,663.23 ",.01)
;;663.23
;;9002226.02101,"491,663.23 ",.02)
;;663.23
;;9002226.02101,"491,663.33 ",.01)
;;663.33
;;9002226.02101,"491,663.33 ",.02)
;;663.33
;;9002226.02101,"491,663.43 ",.01)
;;663.43
;;9002226.02101,"491,663.43 ",.02)
;;663.43
;;9002226.02101,"491,663.53 ",.01)
;;663.53
;;9002226.02101,"491,663.53 ",.02)
;;663.53
;;9002226.02101,"491,663.63 ",.01)
;;663.63
;;9002226.02101,"491,663.63 ",.02)
;;663.63
;;9002226.02101,"491,663.83 ",.01)
;;663.83
;;9002226.02101,"491,663.83 ",.02)
;;663.83
;;9002226.02101,"491,663.93 ",.01)
;;663.93
;;9002226.02101,"491,663.93 ",.02)
;;663.93
;;9002226.02101,"491,665.03 ",.01)
;;665.03
;;9002226.02101,"491,665.03 ",.02)
;;665.03
;;9002226.02101,"491,665.83 ",.01)
;;665.83
;;9002226.02101,"491,665.83 ",.02)
;;665.83
;;9002226.02101,"491,665.93 ",.01)
;;665.93
;;9002226.02101,"491,665.93 ",.02)
;;665.93
;;9002226.02101,"491,668.03 ",.01)
;;668.03
;;9002226.02101,"491,668.03 ",.02)
;;668.03
;;9002226.02101,"491,668.13 ",.01)
;;668.13
;;9002226.02101,"491,668.13 ",.02)
;;668.13
;;9002226.02101,"491,668.23 ",.01)
;;668.23
;;9002226.02101,"491,668.23 ",.02)
;;668.23
;;9002226.02101,"491,668.83 ",.01)
;;668.83
;;9002226.02101,"491,668.83 ",.02)
;;668.83
;;9002226.02101,"491,668.93 ",.01)
;;668.93
;;9002226.02101,"491,668.93 ",.02)
;;668.93
;;9002226.02101,"491,669.03 ",.01)
;;669.03
;;9002226.02101,"491,669.03 ",.02)
;;669.03
;;9002226.02101,"491,669.13 ",.01)
;;669.13
;;9002226.02101,"491,669.13 ",.02)
;;669.13
;;9002226.02101,"491,669.23 ",.01)
;;669.23
;;9002226.02101,"491,669.23 ",.02)
;;669.23
;;9002226.02101,"491,669.43 ",.01)
;;669.43
;;9002226.02101,"491,669.43 ",.02)
;;669.43
;;9002226.02101,"491,669.83 ",.01)
;;669.83
;;9002226.02101,"491,669.83 ",.02)
;;669.83
;;9002226.02101,"491,669.93 ",.01)
;;669.93
;;9002226.02101,"491,669.93 ",.02)
;;669.93
;;9002226.02101,"491,671.03 ",.01)
;;671.03
;;9002226.02101,"491,671.03 ",.02)
;;671.03
;;9002226.02101,"491,671.13 ",.01)
;;671.13
;;9002226.02101,"491,671.13 ",.02)
;;671.13
;;9002226.02101,"491,671.23 ",.01)
;;671.23
;;9002226.02101,"491,671.23 ",.02)
;;671.23
;;9002226.02101,"491,671.33 ",.01)
;;671.33
;;9002226.02101,"491,671.33 ",.02)
;;671.33
;;9002226.02101,"491,671.53 ",.01)
;;671.53
;;9002226.02101,"491,671.53 ",.02)
;;671.53
;;9002226.02101,"491,671.83 ",.01)
;;671.83
;;9002226.02101,"491,671.83 ",.02)
;;671.83
;;9002226.02101,"491,671.93 ",.01)
;;671.93
;;9002226.02101,"491,671.93 ",.02)
;;671.93
;;9002226.02101,"491,673.03 ",.01)
;;673.03
;;9002226.02101,"491,673.03 ",.02)
;;673.03
;;9002226.02101,"491,673.13 ",.01)
;;673.13
;;9002226.02101,"491,673.13 ",.02)
;;673.13
;;9002226.02101,"491,673.23 ",.01)
;;673.23
;;9002226.02101,"491,673.23 ",.02)
;;673.23
;;9002226.02101,"491,673.33 ",.01)
;;673.33
;;9002226.02101,"491,673.33 ",.02)
;;673.33
;;9002226.02101,"491,673.83 ",.01)
;;673.83
;;9002226.02101,"491,673.83 ",.02)
;;673.83
;;9002226.02101,"491,674.03 ",.01)
;;674.03
;;9002226.02101,"491,674.03 ",.02)
;;674.03
;;9002226.02101,"491,674.53 ",.01)
;;674.53
;;9002226.02101,"491,674.53 ",.02)
;;674.53
;;9002226.02101,"491,675.03 ",.01)
;;675.03
BGP10FE ; 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,660.43 ",.01)
+2 ;;660.43
+3 ;;9002226.02101,"491,660.43 ",.02)
+4 ;;660.43
+5 ;;9002226.02101,"491,660.53 ",.01)
+6 ;;660.53
+7 ;;9002226.02101,"491,660.53 ",.02)
+8 ;;660.53
+9 ;;9002226.02101,"491,660.63 ",.01)
+10 ;;660.63
+11 ;;9002226.02101,"491,660.63 ",.02)
+12 ;;660.63
+13 ;;9002226.02101,"491,660.73 ",.01)
+14 ;;660.73
+15 ;;9002226.02101,"491,660.73 ",.02)
+16 ;;660.73
+17 ;;9002226.02101,"491,660.83 ",.01)
+18 ;;660.83
+19 ;;9002226.02101,"491,660.83 ",.02)
+20 ;;660.83
+21 ;;9002226.02101,"491,660.93 ",.01)
+22 ;;660.93
+23 ;;9002226.02101,"491,660.93 ",.02)
+24 ;;660.93
+25 ;;9002226.02101,"491,661.03 ",.01)
+26 ;;661.03
+27 ;;9002226.02101,"491,661.03 ",.02)
+28 ;;661.03
+29 ;;9002226.02101,"491,661.13 ",.01)
+30 ;;661.13
+31 ;;9002226.02101,"491,661.13 ",.02)
+32 ;;661.13
+33 ;;9002226.02101,"491,661.23 ",.01)
+34 ;;661.23
+35 ;;9002226.02101,"491,661.23 ",.02)
+36 ;;661.23
+37 ;;9002226.02101,"491,661.33 ",.01)
+38 ;;661.33
+39 ;;9002226.02101,"491,661.33 ",.02)
+40 ;;661.33
+41 ;;9002226.02101,"491,661.43 ",.01)
+42 ;;661.43
+43 ;;9002226.02101,"491,661.43 ",.02)
+44 ;;661.43
+45 ;;9002226.02101,"491,661.93 ",.01)
+46 ;;661.93
+47 ;;9002226.02101,"491,661.93 ",.02)
+48 ;;661.93
+49 ;;9002226.02101,"491,662.03 ",.01)
+50 ;;662.03
+51 ;;9002226.02101,"491,662.03 ",.02)
+52 ;;662.03
+53 ;;9002226.02101,"491,662.13 ",.01)
+54 ;;662.13
+55 ;;9002226.02101,"491,662.13 ",.02)
+56 ;;662.13
+57 ;;9002226.02101,"491,662.23 ",.01)
+58 ;;662.23
+59 ;;9002226.02101,"491,662.23 ",.02)
+60 ;;662.23
+61 ;;9002226.02101,"491,662.33 ",.01)
+62 ;;662.33
+63 ;;9002226.02101,"491,662.33 ",.02)
+64 ;;662.33
+65 ;;9002226.02101,"491,663.03 ",.01)
+66 ;;663.03
+67 ;;9002226.02101,"491,663.03 ",.02)
+68 ;;663.03
+69 ;;9002226.02101,"491,663.13 ",.01)
+70 ;;663.13
+71 ;;9002226.02101,"491,663.13 ",.02)
+72 ;;663.13
+73 ;;9002226.02101,"491,663.23 ",.01)
+74 ;;663.23
+75 ;;9002226.02101,"491,663.23 ",.02)
+76 ;;663.23
+77 ;;9002226.02101,"491,663.33 ",.01)
+78 ;;663.33
+79 ;;9002226.02101,"491,663.33 ",.02)
+80 ;;663.33
+81 ;;9002226.02101,"491,663.43 ",.01)
+82 ;;663.43
+83 ;;9002226.02101,"491,663.43 ",.02)
+84 ;;663.43
+85 ;;9002226.02101,"491,663.53 ",.01)
+86 ;;663.53
+87 ;;9002226.02101,"491,663.53 ",.02)
+88 ;;663.53
+89 ;;9002226.02101,"491,663.63 ",.01)
+90 ;;663.63
+91 ;;9002226.02101,"491,663.63 ",.02)
+92 ;;663.63
+93 ;;9002226.02101,"491,663.83 ",.01)
+94 ;;663.83
+95 ;;9002226.02101,"491,663.83 ",.02)
+96 ;;663.83
+97 ;;9002226.02101,"491,663.93 ",.01)
+98 ;;663.93
+99 ;;9002226.02101,"491,663.93 ",.02)
+100 ;;663.93
+101 ;;9002226.02101,"491,665.03 ",.01)
+102 ;;665.03
+103 ;;9002226.02101,"491,665.03 ",.02)
+104 ;;665.03
+105 ;;9002226.02101,"491,665.83 ",.01)
+106 ;;665.83
+107 ;;9002226.02101,"491,665.83 ",.02)
+108 ;;665.83
+109 ;;9002226.02101,"491,665.93 ",.01)
+110 ;;665.93
+111 ;;9002226.02101,"491,665.93 ",.02)
+112 ;;665.93
+113 ;;9002226.02101,"491,668.03 ",.01)
+114 ;;668.03
+115 ;;9002226.02101,"491,668.03 ",.02)
+116 ;;668.03
+117 ;;9002226.02101,"491,668.13 ",.01)
+118 ;;668.13
+119 ;;9002226.02101,"491,668.13 ",.02)
+120 ;;668.13
+121 ;;9002226.02101,"491,668.23 ",.01)
+122 ;;668.23
+123 ;;9002226.02101,"491,668.23 ",.02)
+124 ;;668.23
+125 ;;9002226.02101,"491,668.83 ",.01)
+126 ;;668.83
+127 ;;9002226.02101,"491,668.83 ",.02)
+128 ;;668.83
+129 ;;9002226.02101,"491,668.93 ",.01)
+130 ;;668.93
+131 ;;9002226.02101,"491,668.93 ",.02)
+132 ;;668.93
+133 ;;9002226.02101,"491,669.03 ",.01)
+134 ;;669.03
+135 ;;9002226.02101,"491,669.03 ",.02)
+136 ;;669.03
+137 ;;9002226.02101,"491,669.13 ",.01)
+138 ;;669.13
+139 ;;9002226.02101,"491,669.13 ",.02)
+140 ;;669.13
+141 ;;9002226.02101,"491,669.23 ",.01)
+142 ;;669.23
+143 ;;9002226.02101,"491,669.23 ",.02)
+144 ;;669.23
+145 ;;9002226.02101,"491,669.43 ",.01)
+146 ;;669.43
+147 ;;9002226.02101,"491,669.43 ",.02)
+148 ;;669.43
+149 ;;9002226.02101,"491,669.83 ",.01)
+150 ;;669.83
+151 ;;9002226.02101,"491,669.83 ",.02)
+152 ;;669.83
+153 ;;9002226.02101,"491,669.93 ",.01)
+154 ;;669.93
+155 ;;9002226.02101,"491,669.93 ",.02)
+156 ;;669.93
+157 ;;9002226.02101,"491,671.03 ",.01)
+158 ;;671.03
+159 ;;9002226.02101,"491,671.03 ",.02)
+160 ;;671.03
+161 ;;9002226.02101,"491,671.13 ",.01)
+162 ;;671.13
+163 ;;9002226.02101,"491,671.13 ",.02)
+164 ;;671.13
+165 ;;9002226.02101,"491,671.23 ",.01)
+166 ;;671.23
+167 ;;9002226.02101,"491,671.23 ",.02)
+168 ;;671.23
+169 ;;9002226.02101,"491,671.33 ",.01)
+170 ;;671.33
+171 ;;9002226.02101,"491,671.33 ",.02)
+172 ;;671.33
+173 ;;9002226.02101,"491,671.53 ",.01)
+174 ;;671.53
+175 ;;9002226.02101,"491,671.53 ",.02)
+176 ;;671.53
+177 ;;9002226.02101,"491,671.83 ",.01)
+178 ;;671.83
+179 ;;9002226.02101,"491,671.83 ",.02)
+180 ;;671.83
+181 ;;9002226.02101,"491,671.93 ",.01)
+182 ;;671.93
+183 ;;9002226.02101,"491,671.93 ",.02)
+184 ;;671.93
+185 ;;9002226.02101,"491,673.03 ",.01)
+186 ;;673.03
+187 ;;9002226.02101,"491,673.03 ",.02)
+188 ;;673.03
+189 ;;9002226.02101,"491,673.13 ",.01)
+190 ;;673.13
+191 ;;9002226.02101,"491,673.13 ",.02)
+192 ;;673.13
+193 ;;9002226.02101,"491,673.23 ",.01)
+194 ;;673.23
+195 ;;9002226.02101,"491,673.23 ",.02)
+196 ;;673.23
+197 ;;9002226.02101,"491,673.33 ",.01)
+198 ;;673.33
+199 ;;9002226.02101,"491,673.33 ",.02)
+200 ;;673.33
+201 ;;9002226.02101,"491,673.83 ",.01)
+202 ;;673.83
+203 ;;9002226.02101,"491,673.83 ",.02)
+204 ;;673.83
+205 ;;9002226.02101,"491,674.03 ",.01)
+206 ;;674.03
+207 ;;9002226.02101,"491,674.03 ",.02)
+208 ;;674.03
+209 ;;9002226.02101,"491,674.53 ",.01)
+210 ;;674.53
+211 ;;9002226.02101,"491,674.53 ",.02)
+212 ;;674.53
+213 ;;9002226.02101,"491,675.03 ",.01)
+214 ;;675.03
