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