BGP9VXIX ; 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,"862,81.25 ",.02)
;;81.25
;;9002226.02101,"862,81.26 ",.01)
;;81.26
;;9002226.02101,"862,81.26 ",.02)
;;81.26
;;9002226.02101,"862,81.27 ",.01)
;;81.27
;;9002226.02101,"862,81.27 ",.02)
;;81.27
;;9002226.02101,"862,81.28 ",.01)
;;81.28
;;9002226.02101,"862,81.28 ",.02)
;;81.28
;;9002226.02101,"862,81.29 ",.01)
;;81.29
;;9002226.02101,"862,81.29 ",.02)
;;81.29
;;9002226.02101,"862,81.30 ",.01)
;;81.30
;;9002226.02101,"862,81.30 ",.02)
;;81.30
;;9002226.02101,"862,81.31 ",.01)
;;81.31
;;9002226.02101,"862,81.31 ",.02)
;;81.31
;;9002226.02101,"862,81.32 ",.01)
;;81.32
;;9002226.02101,"862,81.32 ",.02)
;;81.32
;;9002226.02101,"862,81.33 ",.01)
;;81.33
;;9002226.02101,"862,81.33 ",.02)
;;81.33
;;9002226.02101,"862,81.34 ",.01)
;;81.34
;;9002226.02101,"862,81.34 ",.02)
;;81.34
;;9002226.02101,"862,81.35 ",.01)
;;81.35
;;9002226.02101,"862,81.35 ",.02)
;;81.35
;;9002226.02101,"862,81.36 ",.01)
;;81.36
;;9002226.02101,"862,81.36 ",.02)
;;81.36
;;9002226.02101,"862,81.37 ",.01)
;;81.37
;;9002226.02101,"862,81.37 ",.02)
;;81.37
;;9002226.02101,"862,81.38 ",.01)
;;81.38
;;9002226.02101,"862,81.38 ",.02)
;;81.38
;;9002226.02101,"862,81.39 ",.01)
;;81.39
;;9002226.02101,"862,81.39 ",.02)
;;81.39
;;9002226.02101,"862,81.40 ",.01)
;;81.40
;;9002226.02101,"862,81.40 ",.02)
;;81.40
;;9002226.02101,"862,81.42 ",.01)
;;81.42
;;9002226.02101,"862,81.42 ",.02)
;;81.42
;;9002226.02101,"862,81.43 ",.01)
;;81.43
;;9002226.02101,"862,81.43 ",.02)
;;81.43
;;9002226.02101,"862,81.44 ",.01)
;;81.44
;;9002226.02101,"862,81.44 ",.02)
;;81.44
;;9002226.02101,"862,81.45 ",.01)
;;81.45
;;9002226.02101,"862,81.45 ",.02)
;;81.45
;;9002226.02101,"862,81.46 ",.01)
;;81.46
;;9002226.02101,"862,81.46 ",.02)
;;81.46
;;9002226.02101,"862,81.47 ",.01)
;;81.47
;;9002226.02101,"862,81.47 ",.02)
;;81.47
;;9002226.02101,"862,81.49 ",.01)
;;81.49
;;9002226.02101,"862,81.49 ",.02)
;;81.49
;;9002226.02101,"862,81.51 ",.01)
;;81.51
;;9002226.02101,"862,81.51 ",.02)
;;81.51
;;9002226.02101,"862,81.52 ",.01)
;;81.52
;;9002226.02101,"862,81.52 ",.02)
;;81.52
;;9002226.02101,"862,81.53 ",.01)
;;81.53
;;9002226.02101,"862,81.53 ",.02)
;;81.53
;;9002226.02101,"862,81.54 ",.01)
;;81.54
;;9002226.02101,"862,81.54 ",.02)
;;81.54
;;9002226.02101,"862,81.55 ",.01)
;;81.55
;;9002226.02101,"862,81.55 ",.02)
;;81.55
;;9002226.02101,"862,81.56 ",.01)
;;81.56
;;9002226.02101,"862,81.56 ",.02)
;;81.56
;;9002226.02101,"862,81.57 ",.01)
;;81.57
;;9002226.02101,"862,81.57 ",.02)
;;81.57
;;9002226.02101,"862,81.59 ",.01)
;;81.59
;;9002226.02101,"862,81.59 ",.02)
;;81.59
;;9002226.02101,"862,81.80 ",.01)
;;81.80
;;9002226.02101,"862,81.80 ",.02)
;;81.80
;;9002226.02101,"862,81.81 ",.01)
;;81.81
;;9002226.02101,"862,81.81 ",.02)
;;81.81
;;9002226.02101,"862,81.82 ",.01)
;;81.82
;;9002226.02101,"862,81.82 ",.02)
;;81.82
;;9002226.02101,"862,81.83 ",.01)
;;81.83
;;9002226.02101,"862,81.83 ",.02)
;;81.83
;;9002226.02101,"862,81.84 ",.01)
;;81.84
;;9002226.02101,"862,81.84 ",.02)
;;81.84
;;9002226.02101,"862,81.85 ",.01)
;;81.85
;;9002226.02101,"862,81.85 ",.02)
;;81.85
;;9002226.02101,"862,81.93 ",.01)
;;81.93
;;9002226.02101,"862,81.93 ",.02)
;;81.93
;;9002226.02101,"862,81.94 ",.01)
;;81.94
;;9002226.02101,"862,81.94 ",.02)
;;81.94
;;9002226.02101,"862,81.95 ",.01)
;;81.95
;;9002226.02101,"862,81.95 ",.02)
;;81.95
;;9002226.02101,"862,81.96 ",.01)
;;81.96
;;9002226.02101,"862,81.96 ",.02)
;;81.96
;;9002226.02101,"862,81.97 ",.01)
;;81.97
;;9002226.02101,"862,81.97 ",.02)
;;81.97
;;9002226.02101,"862,81.98 ",.01)
;;81.98
;;9002226.02101,"862,81.98 ",.02)
;;81.98
;;9002226.02101,"862,81.99 ",.01)
;;81.99
;;9002226.02101,"862,81.99 ",.02)
;;81.99
;;9002226.02101,"862,82.61 ",.01)
;;82.61
;;9002226.02101,"862,82.61 ",.02)
;;82.61
;;9002226.02101,"862,82.81 ",.01)
;;82.81
;;9002226.02101,"862,82.81 ",.02)
;;82.81
;;9002226.02101,"862,83.32 ",.01)
;;83.32
;;9002226.02101,"862,83.32 ",.02)
;;83.32
;;9002226.02101,"862,83.39 ",.01)
;;83.39
;;9002226.02101,"862,83.39 ",.02)
;;83.39
;;9002226.02101,"862,83.5 ",.01)
;;83.5
;;9002226.02101,"862,83.5 ",.02)
;;83.5
;;9002226.02101,"862,83.61 ",.01)
;;83.61
;;9002226.02101,"862,83.61 ",.02)
;;83.61
;;9002226.02101,"862,83.62 ",.01)
;;83.62
;;9002226.02101,"862,83.62 ",.02)
;;83.62
;;9002226.02101,"862,83.63 ",.01)
;;83.63
;;9002226.02101,"862,83.63 ",.02)
;;83.63
;;9002226.02101,"862,83.64 ",.01)
;;83.64
;;9002226.02101,"862,83.64 ",.02)
;;83.64
;;9002226.02101,"862,83.65 ",.01)
;;83.65
;;9002226.02101,"862,83.65 ",.02)
;;83.65
;;9002226.02101,"862,83.71 ",.01)
;;83.71
;;9002226.02101,"862,83.71 ",.02)
;;83.71
;;9002226.02101,"862,83.72 ",.01)
;;83.72
;;9002226.02101,"862,83.72 ",.02)
;;83.72
BGP9VXIX ; 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,"862,81.25 ",.02)
+2 ;;81.25
+3 ;;9002226.02101,"862,81.26 ",.01)
+4 ;;81.26
+5 ;;9002226.02101,"862,81.26 ",.02)
+6 ;;81.26
+7 ;;9002226.02101,"862,81.27 ",.01)
+8 ;;81.27
+9 ;;9002226.02101,"862,81.27 ",.02)
+10 ;;81.27
+11 ;;9002226.02101,"862,81.28 ",.01)
+12 ;;81.28
+13 ;;9002226.02101,"862,81.28 ",.02)
+14 ;;81.28
+15 ;;9002226.02101,"862,81.29 ",.01)
+16 ;;81.29
+17 ;;9002226.02101,"862,81.29 ",.02)
+18 ;;81.29
+19 ;;9002226.02101,"862,81.30 ",.01)
+20 ;;81.30
+21 ;;9002226.02101,"862,81.30 ",.02)
+22 ;;81.30
+23 ;;9002226.02101,"862,81.31 ",.01)
+24 ;;81.31
+25 ;;9002226.02101,"862,81.31 ",.02)
+26 ;;81.31
+27 ;;9002226.02101,"862,81.32 ",.01)
+28 ;;81.32
+29 ;;9002226.02101,"862,81.32 ",.02)
+30 ;;81.32
+31 ;;9002226.02101,"862,81.33 ",.01)
+32 ;;81.33
+33 ;;9002226.02101,"862,81.33 ",.02)
+34 ;;81.33
+35 ;;9002226.02101,"862,81.34 ",.01)
+36 ;;81.34
+37 ;;9002226.02101,"862,81.34 ",.02)
+38 ;;81.34
+39 ;;9002226.02101,"862,81.35 ",.01)
+40 ;;81.35
+41 ;;9002226.02101,"862,81.35 ",.02)
+42 ;;81.35
+43 ;;9002226.02101,"862,81.36 ",.01)
+44 ;;81.36
+45 ;;9002226.02101,"862,81.36 ",.02)
+46 ;;81.36
+47 ;;9002226.02101,"862,81.37 ",.01)
+48 ;;81.37
+49 ;;9002226.02101,"862,81.37 ",.02)
+50 ;;81.37
+51 ;;9002226.02101,"862,81.38 ",.01)
+52 ;;81.38
+53 ;;9002226.02101,"862,81.38 ",.02)
+54 ;;81.38
+55 ;;9002226.02101,"862,81.39 ",.01)
+56 ;;81.39
+57 ;;9002226.02101,"862,81.39 ",.02)
+58 ;;81.39
+59 ;;9002226.02101,"862,81.40 ",.01)
+60 ;;81.40
+61 ;;9002226.02101,"862,81.40 ",.02)
+62 ;;81.40
+63 ;;9002226.02101,"862,81.42 ",.01)
+64 ;;81.42
+65 ;;9002226.02101,"862,81.42 ",.02)
+66 ;;81.42
+67 ;;9002226.02101,"862,81.43 ",.01)
+68 ;;81.43
+69 ;;9002226.02101,"862,81.43 ",.02)
+70 ;;81.43
+71 ;;9002226.02101,"862,81.44 ",.01)
+72 ;;81.44
+73 ;;9002226.02101,"862,81.44 ",.02)
+74 ;;81.44
+75 ;;9002226.02101,"862,81.45 ",.01)
+76 ;;81.45
+77 ;;9002226.02101,"862,81.45 ",.02)
+78 ;;81.45
+79 ;;9002226.02101,"862,81.46 ",.01)
+80 ;;81.46
+81 ;;9002226.02101,"862,81.46 ",.02)
+82 ;;81.46
+83 ;;9002226.02101,"862,81.47 ",.01)
+84 ;;81.47
+85 ;;9002226.02101,"862,81.47 ",.02)
+86 ;;81.47
+87 ;;9002226.02101,"862,81.49 ",.01)
+88 ;;81.49
+89 ;;9002226.02101,"862,81.49 ",.02)
+90 ;;81.49
+91 ;;9002226.02101,"862,81.51 ",.01)
+92 ;;81.51
+93 ;;9002226.02101,"862,81.51 ",.02)
+94 ;;81.51
+95 ;;9002226.02101,"862,81.52 ",.01)
+96 ;;81.52
+97 ;;9002226.02101,"862,81.52 ",.02)
+98 ;;81.52
+99 ;;9002226.02101,"862,81.53 ",.01)
+100 ;;81.53
+101 ;;9002226.02101,"862,81.53 ",.02)
+102 ;;81.53
+103 ;;9002226.02101,"862,81.54 ",.01)
+104 ;;81.54
+105 ;;9002226.02101,"862,81.54 ",.02)
+106 ;;81.54
+107 ;;9002226.02101,"862,81.55 ",.01)
+108 ;;81.55
+109 ;;9002226.02101,"862,81.55 ",.02)
+110 ;;81.55
+111 ;;9002226.02101,"862,81.56 ",.01)
+112 ;;81.56
+113 ;;9002226.02101,"862,81.56 ",.02)
+114 ;;81.56
+115 ;;9002226.02101,"862,81.57 ",.01)
+116 ;;81.57
+117 ;;9002226.02101,"862,81.57 ",.02)
+118 ;;81.57
+119 ;;9002226.02101,"862,81.59 ",.01)
+120 ;;81.59
+121 ;;9002226.02101,"862,81.59 ",.02)
+122 ;;81.59
+123 ;;9002226.02101,"862,81.80 ",.01)
+124 ;;81.80
+125 ;;9002226.02101,"862,81.80 ",.02)
+126 ;;81.80
+127 ;;9002226.02101,"862,81.81 ",.01)
+128 ;;81.81
+129 ;;9002226.02101,"862,81.81 ",.02)
+130 ;;81.81
+131 ;;9002226.02101,"862,81.82 ",.01)
+132 ;;81.82
+133 ;;9002226.02101,"862,81.82 ",.02)
+134 ;;81.82
+135 ;;9002226.02101,"862,81.83 ",.01)
+136 ;;81.83
+137 ;;9002226.02101,"862,81.83 ",.02)
+138 ;;81.83
+139 ;;9002226.02101,"862,81.84 ",.01)
+140 ;;81.84
+141 ;;9002226.02101,"862,81.84 ",.02)
+142 ;;81.84
+143 ;;9002226.02101,"862,81.85 ",.01)
+144 ;;81.85
+145 ;;9002226.02101,"862,81.85 ",.02)
+146 ;;81.85
+147 ;;9002226.02101,"862,81.93 ",.01)
+148 ;;81.93
+149 ;;9002226.02101,"862,81.93 ",.02)
+150 ;;81.93
+151 ;;9002226.02101,"862,81.94 ",.01)
+152 ;;81.94
+153 ;;9002226.02101,"862,81.94 ",.02)
+154 ;;81.94
+155 ;;9002226.02101,"862,81.95 ",.01)
+156 ;;81.95
+157 ;;9002226.02101,"862,81.95 ",.02)
+158 ;;81.95
+159 ;;9002226.02101,"862,81.96 ",.01)
+160 ;;81.96
+161 ;;9002226.02101,"862,81.96 ",.02)
+162 ;;81.96
+163 ;;9002226.02101,"862,81.97 ",.01)
+164 ;;81.97
+165 ;;9002226.02101,"862,81.97 ",.02)
+166 ;;81.97
+167 ;;9002226.02101,"862,81.98 ",.01)
+168 ;;81.98
+169 ;;9002226.02101,"862,81.98 ",.02)
+170 ;;81.98
+171 ;;9002226.02101,"862,81.99 ",.01)
+172 ;;81.99
+173 ;;9002226.02101,"862,81.99 ",.02)
+174 ;;81.99
+175 ;;9002226.02101,"862,82.61 ",.01)
+176 ;;82.61
+177 ;;9002226.02101,"862,82.61 ",.02)
+178 ;;82.61
+179 ;;9002226.02101,"862,82.81 ",.01)
+180 ;;82.81
+181 ;;9002226.02101,"862,82.81 ",.02)
+182 ;;82.81
+183 ;;9002226.02101,"862,83.32 ",.01)
+184 ;;83.32
+185 ;;9002226.02101,"862,83.32 ",.02)
+186 ;;83.32
+187 ;;9002226.02101,"862,83.39 ",.01)
+188 ;;83.39
+189 ;;9002226.02101,"862,83.39 ",.02)
+190 ;;83.39
+191 ;;9002226.02101,"862,83.5 ",.01)
+192 ;;83.5
+193 ;;9002226.02101,"862,83.5 ",.02)
+194 ;;83.5
+195 ;;9002226.02101,"862,83.61 ",.01)
+196 ;;83.61
+197 ;;9002226.02101,"862,83.61 ",.02)
+198 ;;83.61
+199 ;;9002226.02101,"862,83.62 ",.01)
+200 ;;83.62
+201 ;;9002226.02101,"862,83.62 ",.02)
+202 ;;83.62
+203 ;;9002226.02101,"862,83.63 ",.01)
+204 ;;83.63
+205 ;;9002226.02101,"862,83.63 ",.02)
+206 ;;83.63
+207 ;;9002226.02101,"862,83.64 ",.01)
+208 ;;83.64
+209 ;;9002226.02101,"862,83.64 ",.02)
+210 ;;83.64
+211 ;;9002226.02101,"862,83.65 ",.01)
+212 ;;83.65
+213 ;;9002226.02101,"862,83.65 ",.02)
+214 ;;83.65
+215 ;;9002226.02101,"862,83.71 ",.01)
+216 ;;83.71
+217 ;;9002226.02101,"862,83.71 ",.02)
+218 ;;83.71
+219 ;;9002226.02101,"862,83.72 ",.01)
+220 ;;83.72
+221 ;;9002226.02101,"862,83.72 ",.02)
+222 ;;83.72
