BGP9VXDN ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON MAR 25, 2009 ;
;;9.0;IHS CLINICAL REPORTING;;JUL 1, 2009
;
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,"858,032.9 ",.01)
;;032.9
;;9002226.02101,"858,032.9 ",.02)
;;032.9
;;9002226.02101,"858,033.0 ",.01)
;;033.0
;;9002226.02101,"858,033.0 ",.02)
;;033.0
;;9002226.02101,"858,033.1 ",.01)
;;033.1
;;9002226.02101,"858,033.1 ",.02)
;;033.1
;;9002226.02101,"858,033.8 ",.01)
;;033.8
;;9002226.02101,"858,033.8 ",.02)
;;033.8
;;9002226.02101,"858,033.9 ",.01)
;;033.9
;;9002226.02101,"858,033.9 ",.02)
;;033.9
;;9002226.02101,"858,034.0 ",.01)
;;034.0
;;9002226.02101,"858,034.0 ",.02)
;;034.0
;;9002226.02101,"858,034.1 ",.01)
;;034.1
;;9002226.02101,"858,034.1 ",.02)
;;034.1
;;9002226.02101,"858,035 ",.01)
;;035
;;9002226.02101,"858,035 ",.02)
;;035
;;9002226.02101,"858,036.0 ",.01)
;;036.0
;;9002226.02101,"858,036.0 ",.02)
;;036.0
;;9002226.02101,"858,036.1 ",.01)
;;036.1
;;9002226.02101,"858,036.1 ",.02)
;;036.1
;;9002226.02101,"858,036.2 ",.01)
;;036.2
;;9002226.02101,"858,036.2 ",.02)
;;036.2
;;9002226.02101,"858,036.3 ",.01)
;;036.3
;;9002226.02101,"858,036.3 ",.02)
;;036.3
;;9002226.02101,"858,036.40 ",.01)
;;036.40
;;9002226.02101,"858,036.40 ",.02)
;;036.40
;;9002226.02101,"858,036.41 ",.01)
;;036.41
;;9002226.02101,"858,036.41 ",.02)
;;036.41
;;9002226.02101,"858,036.42 ",.01)
;;036.42
;;9002226.02101,"858,036.42 ",.02)
;;036.42
;;9002226.02101,"858,036.43 ",.01)
;;036.43
;;9002226.02101,"858,036.43 ",.02)
;;036.43
;;9002226.02101,"858,036.81 ",.01)
;;036.81
;;9002226.02101,"858,036.81 ",.02)
;;036.81
;;9002226.02101,"858,036.82 ",.01)
;;036.82
;;9002226.02101,"858,036.82 ",.02)
;;036.82
;;9002226.02101,"858,036.89 ",.01)
;;036.89
;;9002226.02101,"858,036.89 ",.02)
;;036.89
;;9002226.02101,"858,036.9 ",.01)
;;036.9
;;9002226.02101,"858,036.9 ",.02)
;;036.9
;;9002226.02101,"858,037 ",.01)
;;037
;;9002226.02101,"858,037 ",.02)
;;037
;;9002226.02101,"858,038.0 ",.01)
;;038.0
;;9002226.02101,"858,038.0 ",.02)
;;038.0
;;9002226.02101,"858,038.10 ",.01)
;;038.10
;;9002226.02101,"858,038.10 ",.02)
;;038.10
;;9002226.02101,"858,038.11 ",.01)
;;038.11
;;9002226.02101,"858,038.11 ",.02)
;;038.11
;;9002226.02101,"858,038.19 ",.01)
;;038.19
;;9002226.02101,"858,038.19 ",.02)
;;038.19
;;9002226.02101,"858,038.2 ",.01)
;;038.2
;;9002226.02101,"858,038.2 ",.02)
;;038.2
;;9002226.02101,"858,038.3 ",.01)
;;038.3
;;9002226.02101,"858,038.3 ",.02)
;;038.3
;;9002226.02101,"858,038.40 ",.01)
;;038.40
;;9002226.02101,"858,038.40 ",.02)
;;038.40
;;9002226.02101,"858,038.41 ",.01)
;;038.41
;;9002226.02101,"858,038.41 ",.02)
;;038.41
;;9002226.02101,"858,038.42 ",.01)
;;038.42
;;9002226.02101,"858,038.42 ",.02)
;;038.42
;;9002226.02101,"858,038.43 ",.01)
;;038.43
;;9002226.02101,"858,038.43 ",.02)
;;038.43
;;9002226.02101,"858,038.44 ",.01)
;;038.44
;;9002226.02101,"858,038.44 ",.02)
;;038.44
;;9002226.02101,"858,038.49 ",.01)
;;038.49
;;9002226.02101,"858,038.49 ",.02)
;;038.49
;;9002226.02101,"858,038.8 ",.01)
;;038.8
;;9002226.02101,"858,038.8 ",.02)
;;038.8
;;9002226.02101,"858,038.9 ",.01)
;;038.9
;;9002226.02101,"858,038.9 ",.02)
;;038.9
;;9002226.02101,"858,039.0 ",.01)
;;039.0
;;9002226.02101,"858,039.0 ",.02)
;;039.0
;;9002226.02101,"858,039.1 ",.01)
;;039.1
;;9002226.02101,"858,039.1 ",.02)
;;039.1
;;9002226.02101,"858,039.2 ",.01)
;;039.2
;;9002226.02101,"858,039.2 ",.02)
;;039.2
;;9002226.02101,"858,039.3 ",.01)
;;039.3
;;9002226.02101,"858,039.3 ",.02)
;;039.3
;;9002226.02101,"858,039.4 ",.01)
;;039.4
;;9002226.02101,"858,039.4 ",.02)
;;039.4
;;9002226.02101,"858,039.8 ",.01)
;;039.8
;;9002226.02101,"858,039.8 ",.02)
;;039.8
;;9002226.02101,"858,039.9 ",.01)
;;039.9
;;9002226.02101,"858,039.9 ",.02)
;;039.9
;;9002226.02101,"858,040.0 ",.01)
;;040.0
;;9002226.02101,"858,040.0 ",.02)
;;040.0
;;9002226.02101,"858,040.1 ",.01)
;;040.1
;;9002226.02101,"858,040.1 ",.02)
;;040.1
;;9002226.02101,"858,040.2 ",.01)
;;040.2
;;9002226.02101,"858,040.2 ",.02)
;;040.2
;;9002226.02101,"858,040.3 ",.01)
;;040.3
;;9002226.02101,"858,040.3 ",.02)
;;040.3
;;9002226.02101,"858,040.81 ",.01)
;;040.81
;;9002226.02101,"858,040.81 ",.02)
;;040.81
;;9002226.02101,"858,040.82 ",.01)
;;040.82
;;9002226.02101,"858,040.82 ",.02)
;;040.82
;;9002226.02101,"858,040.89 ",.01)
;;040.89
;;9002226.02101,"858,040.89 ",.02)
;;040.89
;;9002226.02101,"858,041.00 ",.01)
;;041.00
;;9002226.02101,"858,041.00 ",.02)
;;041.00
;;9002226.02101,"858,041.01 ",.01)
;;041.01
;;9002226.02101,"858,041.01 ",.02)
;;041.01
;;9002226.02101,"858,041.02 ",.01)
;;041.02
;;9002226.02101,"858,041.02 ",.02)
;;041.02
;;9002226.02101,"858,041.03 ",.01)
;;041.03
;;9002226.02101,"858,041.03 ",.02)
;;041.03
;;9002226.02101,"858,041.04 ",.01)
;;041.04
;;9002226.02101,"858,041.04 ",.02)
;;041.04
;;9002226.02101,"858,041.05 ",.01)
;;041.05
;;9002226.02101,"858,041.05 ",.02)
;;041.05
BGP9VXDN ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON MAR 25, 2009 ;
+1 ;;9.0;IHS CLINICAL REPORTING;;JUL 1, 2009
+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,"858,032.9 ",.01)
+2 ;;032.9
+3 ;;9002226.02101,"858,032.9 ",.02)
+4 ;;032.9
+5 ;;9002226.02101,"858,033.0 ",.01)
+6 ;;033.0
+7 ;;9002226.02101,"858,033.0 ",.02)
+8 ;;033.0
+9 ;;9002226.02101,"858,033.1 ",.01)
+10 ;;033.1
+11 ;;9002226.02101,"858,033.1 ",.02)
+12 ;;033.1
+13 ;;9002226.02101,"858,033.8 ",.01)
+14 ;;033.8
+15 ;;9002226.02101,"858,033.8 ",.02)
+16 ;;033.8
+17 ;;9002226.02101,"858,033.9 ",.01)
+18 ;;033.9
+19 ;;9002226.02101,"858,033.9 ",.02)
+20 ;;033.9
+21 ;;9002226.02101,"858,034.0 ",.01)
+22 ;;034.0
+23 ;;9002226.02101,"858,034.0 ",.02)
+24 ;;034.0
+25 ;;9002226.02101,"858,034.1 ",.01)
+26 ;;034.1
+27 ;;9002226.02101,"858,034.1 ",.02)
+28 ;;034.1
+29 ;;9002226.02101,"858,035 ",.01)
+30 ;;035
+31 ;;9002226.02101,"858,035 ",.02)
+32 ;;035
+33 ;;9002226.02101,"858,036.0 ",.01)
+34 ;;036.0
+35 ;;9002226.02101,"858,036.0 ",.02)
+36 ;;036.0
+37 ;;9002226.02101,"858,036.1 ",.01)
+38 ;;036.1
+39 ;;9002226.02101,"858,036.1 ",.02)
+40 ;;036.1
+41 ;;9002226.02101,"858,036.2 ",.01)
+42 ;;036.2
+43 ;;9002226.02101,"858,036.2 ",.02)
+44 ;;036.2
+45 ;;9002226.02101,"858,036.3 ",.01)
+46 ;;036.3
+47 ;;9002226.02101,"858,036.3 ",.02)
+48 ;;036.3
+49 ;;9002226.02101,"858,036.40 ",.01)
+50 ;;036.40
+51 ;;9002226.02101,"858,036.40 ",.02)
+52 ;;036.40
+53 ;;9002226.02101,"858,036.41 ",.01)
+54 ;;036.41
+55 ;;9002226.02101,"858,036.41 ",.02)
+56 ;;036.41
+57 ;;9002226.02101,"858,036.42 ",.01)
+58 ;;036.42
+59 ;;9002226.02101,"858,036.42 ",.02)
+60 ;;036.42
+61 ;;9002226.02101,"858,036.43 ",.01)
+62 ;;036.43
+63 ;;9002226.02101,"858,036.43 ",.02)
+64 ;;036.43
+65 ;;9002226.02101,"858,036.81 ",.01)
+66 ;;036.81
+67 ;;9002226.02101,"858,036.81 ",.02)
+68 ;;036.81
+69 ;;9002226.02101,"858,036.82 ",.01)
+70 ;;036.82
+71 ;;9002226.02101,"858,036.82 ",.02)
+72 ;;036.82
+73 ;;9002226.02101,"858,036.89 ",.01)
+74 ;;036.89
+75 ;;9002226.02101,"858,036.89 ",.02)
+76 ;;036.89
+77 ;;9002226.02101,"858,036.9 ",.01)
+78 ;;036.9
+79 ;;9002226.02101,"858,036.9 ",.02)
+80 ;;036.9
+81 ;;9002226.02101,"858,037 ",.01)
+82 ;;037
+83 ;;9002226.02101,"858,037 ",.02)
+84 ;;037
+85 ;;9002226.02101,"858,038.0 ",.01)
+86 ;;038.0
+87 ;;9002226.02101,"858,038.0 ",.02)
+88 ;;038.0
+89 ;;9002226.02101,"858,038.10 ",.01)
+90 ;;038.10
+91 ;;9002226.02101,"858,038.10 ",.02)
+92 ;;038.10
+93 ;;9002226.02101,"858,038.11 ",.01)
+94 ;;038.11
+95 ;;9002226.02101,"858,038.11 ",.02)
+96 ;;038.11
+97 ;;9002226.02101,"858,038.19 ",.01)
+98 ;;038.19
+99 ;;9002226.02101,"858,038.19 ",.02)
+100 ;;038.19
+101 ;;9002226.02101,"858,038.2 ",.01)
+102 ;;038.2
+103 ;;9002226.02101,"858,038.2 ",.02)
+104 ;;038.2
+105 ;;9002226.02101,"858,038.3 ",.01)
+106 ;;038.3
+107 ;;9002226.02101,"858,038.3 ",.02)
+108 ;;038.3
+109 ;;9002226.02101,"858,038.40 ",.01)
+110 ;;038.40
+111 ;;9002226.02101,"858,038.40 ",.02)
+112 ;;038.40
+113 ;;9002226.02101,"858,038.41 ",.01)
+114 ;;038.41
+115 ;;9002226.02101,"858,038.41 ",.02)
+116 ;;038.41
+117 ;;9002226.02101,"858,038.42 ",.01)
+118 ;;038.42
+119 ;;9002226.02101,"858,038.42 ",.02)
+120 ;;038.42
+121 ;;9002226.02101,"858,038.43 ",.01)
+122 ;;038.43
+123 ;;9002226.02101,"858,038.43 ",.02)
+124 ;;038.43
+125 ;;9002226.02101,"858,038.44 ",.01)
+126 ;;038.44
+127 ;;9002226.02101,"858,038.44 ",.02)
+128 ;;038.44
+129 ;;9002226.02101,"858,038.49 ",.01)
+130 ;;038.49
+131 ;;9002226.02101,"858,038.49 ",.02)
+132 ;;038.49
+133 ;;9002226.02101,"858,038.8 ",.01)
+134 ;;038.8
+135 ;;9002226.02101,"858,038.8 ",.02)
+136 ;;038.8
+137 ;;9002226.02101,"858,038.9 ",.01)
+138 ;;038.9
+139 ;;9002226.02101,"858,038.9 ",.02)
+140 ;;038.9
+141 ;;9002226.02101,"858,039.0 ",.01)
+142 ;;039.0
+143 ;;9002226.02101,"858,039.0 ",.02)
+144 ;;039.0
+145 ;;9002226.02101,"858,039.1 ",.01)
+146 ;;039.1
+147 ;;9002226.02101,"858,039.1 ",.02)
+148 ;;039.1
+149 ;;9002226.02101,"858,039.2 ",.01)
+150 ;;039.2
+151 ;;9002226.02101,"858,039.2 ",.02)
+152 ;;039.2
+153 ;;9002226.02101,"858,039.3 ",.01)
+154 ;;039.3
+155 ;;9002226.02101,"858,039.3 ",.02)
+156 ;;039.3
+157 ;;9002226.02101,"858,039.4 ",.01)
+158 ;;039.4
+159 ;;9002226.02101,"858,039.4 ",.02)
+160 ;;039.4
+161 ;;9002226.02101,"858,039.8 ",.01)
+162 ;;039.8
+163 ;;9002226.02101,"858,039.8 ",.02)
+164 ;;039.8
+165 ;;9002226.02101,"858,039.9 ",.01)
+166 ;;039.9
+167 ;;9002226.02101,"858,039.9 ",.02)
+168 ;;039.9
+169 ;;9002226.02101,"858,040.0 ",.01)
+170 ;;040.0
+171 ;;9002226.02101,"858,040.0 ",.02)
+172 ;;040.0
+173 ;;9002226.02101,"858,040.1 ",.01)
+174 ;;040.1
+175 ;;9002226.02101,"858,040.1 ",.02)
+176 ;;040.1
+177 ;;9002226.02101,"858,040.2 ",.01)
+178 ;;040.2
+179 ;;9002226.02101,"858,040.2 ",.02)
+180 ;;040.2
+181 ;;9002226.02101,"858,040.3 ",.01)
+182 ;;040.3
+183 ;;9002226.02101,"858,040.3 ",.02)
+184 ;;040.3
+185 ;;9002226.02101,"858,040.81 ",.01)
+186 ;;040.81
+187 ;;9002226.02101,"858,040.81 ",.02)
+188 ;;040.81
+189 ;;9002226.02101,"858,040.82 ",.01)
+190 ;;040.82
+191 ;;9002226.02101,"858,040.82 ",.02)
+192 ;;040.82
+193 ;;9002226.02101,"858,040.89 ",.01)
+194 ;;040.89
+195 ;;9002226.02101,"858,040.89 ",.02)
+196 ;;040.89
+197 ;;9002226.02101,"858,041.00 ",.01)
+198 ;;041.00
+199 ;;9002226.02101,"858,041.00 ",.02)
+200 ;;041.00
+201 ;;9002226.02101,"858,041.01 ",.01)
+202 ;;041.01
+203 ;;9002226.02101,"858,041.01 ",.02)
+204 ;;041.01
+205 ;;9002226.02101,"858,041.02 ",.01)
+206 ;;041.02
+207 ;;9002226.02101,"858,041.02 ",.02)
+208 ;;041.02
+209 ;;9002226.02101,"858,041.03 ",.01)
+210 ;;041.03
+211 ;;9002226.02101,"858,041.03 ",.02)
+212 ;;041.03
+213 ;;9002226.02101,"858,041.04 ",.01)
+214 ;;041.04
+215 ;;9002226.02101,"858,041.04 ",.02)
+216 ;;041.04
+217 ;;9002226.02101,"858,041.05 ",.01)
+218 ;;041.05
+219 ;;9002226.02101,"858,041.05 ",.02)
+220 ;;041.05
