BGP9VXIK ; 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,35.23 ",.02)
;;35.23
;;9002226.02101,"862,35.24 ",.01)
;;35.24
;;9002226.02101,"862,35.24 ",.02)
;;35.24
;;9002226.02101,"862,35.25 ",.01)
;;35.25
;;9002226.02101,"862,35.25 ",.02)
;;35.25
;;9002226.02101,"862,35.26 ",.01)
;;35.26
;;9002226.02101,"862,35.26 ",.02)
;;35.26
;;9002226.02101,"862,35.27 ",.01)
;;35.27
;;9002226.02101,"862,35.27 ",.02)
;;35.27
;;9002226.02101,"862,35.28 ",.01)
;;35.28
;;9002226.02101,"862,35.28 ",.02)
;;35.28
;;9002226.02101,"862,35.31 ",.01)
;;35.31
;;9002226.02101,"862,35.31 ",.02)
;;35.31
;;9002226.02101,"862,35.32 ",.01)
;;35.32
;;9002226.02101,"862,35.32 ",.02)
;;35.32
;;9002226.02101,"862,35.33 ",.01)
;;35.33
;;9002226.02101,"862,35.33 ",.02)
;;35.33
;;9002226.02101,"862,35.34 ",.01)
;;35.34
;;9002226.02101,"862,35.34 ",.02)
;;35.34
;;9002226.02101,"862,35.35 ",.01)
;;35.35
;;9002226.02101,"862,35.35 ",.02)
;;35.35
;;9002226.02101,"862,35.39 ",.01)
;;35.39
;;9002226.02101,"862,35.39 ",.02)
;;35.39
;;9002226.02101,"862,35.42 ",.01)
;;35.42
;;9002226.02101,"862,35.42 ",.02)
;;35.42
;;9002226.02101,"862,35.50 ",.01)
;;35.50
;;9002226.02101,"862,35.50 ",.02)
;;35.50
;;9002226.02101,"862,35.51 ",.01)
;;35.51
;;9002226.02101,"862,35.51 ",.02)
;;35.51
;;9002226.02101,"862,35.53 ",.01)
;;35.53
;;9002226.02101,"862,35.53 ",.02)
;;35.53
;;9002226.02101,"862,35.54 ",.01)
;;35.54
;;9002226.02101,"862,35.54 ",.02)
;;35.54
;;9002226.02101,"862,35.60 ",.01)
;;35.60
;;9002226.02101,"862,35.60 ",.02)
;;35.60
;;9002226.02101,"862,35.61 ",.01)
;;35.61
;;9002226.02101,"862,35.61 ",.02)
;;35.61
;;9002226.02101,"862,35.62 ",.01)
;;35.62
;;9002226.02101,"862,35.62 ",.02)
;;35.62
;;9002226.02101,"862,35.63 ",.01)
;;35.63
;;9002226.02101,"862,35.63 ",.02)
;;35.63
;;9002226.02101,"862,35.70 ",.01)
;;35.70
;;9002226.02101,"862,35.70 ",.02)
;;35.70
;;9002226.02101,"862,35.71 ",.01)
;;35.71
;;9002226.02101,"862,35.71 ",.02)
;;35.71
;;9002226.02101,"862,35.72 ",.01)
;;35.72
;;9002226.02101,"862,35.72 ",.02)
;;35.72
;;9002226.02101,"862,35.73 ",.01)
;;35.73
;;9002226.02101,"862,35.73 ",.02)
;;35.73
;;9002226.02101,"862,35.81 ",.01)
;;35.81
;;9002226.02101,"862,35.81 ",.02)
;;35.81
;;9002226.02101,"862,35.82 ",.01)
;;35.82
;;9002226.02101,"862,35.82 ",.02)
;;35.82
;;9002226.02101,"862,35.83 ",.01)
;;35.83
;;9002226.02101,"862,35.83 ",.02)
;;35.83
;;9002226.02101,"862,35.84 ",.01)
;;35.84
;;9002226.02101,"862,35.84 ",.02)
;;35.84
;;9002226.02101,"862,35.91 ",.01)
;;35.91
;;9002226.02101,"862,35.91 ",.02)
;;35.91
;;9002226.02101,"862,35.92 ",.01)
;;35.92
;;9002226.02101,"862,35.92 ",.02)
;;35.92
;;9002226.02101,"862,35.93 ",.01)
;;35.93
;;9002226.02101,"862,35.93 ",.02)
;;35.93
;;9002226.02101,"862,35.94 ",.01)
;;35.94
;;9002226.02101,"862,35.94 ",.02)
;;35.94
;;9002226.02101,"862,35.95 ",.01)
;;35.95
;;9002226.02101,"862,35.95 ",.02)
;;35.95
;;9002226.02101,"862,35.98 ",.01)
;;35.98
;;9002226.02101,"862,35.98 ",.02)
;;35.98
;;9002226.02101,"862,35.99 ",.01)
;;35.99
;;9002226.02101,"862,35.99 ",.02)
;;35.99
;;9002226.02101,"862,36.03 ",.01)
;;36.03
;;9002226.02101,"862,36.03 ",.02)
;;36.03
;;9002226.02101,"862,36.10 ",.01)
;;36.10
;;9002226.02101,"862,36.10 ",.02)
;;36.10
;;9002226.02101,"862,36.11 ",.01)
;;36.11
;;9002226.02101,"862,36.11 ",.02)
;;36.11
;;9002226.02101,"862,36.12 ",.01)
;;36.12
;;9002226.02101,"862,36.12 ",.02)
;;36.12
;;9002226.02101,"862,36.13 ",.01)
;;36.13
;;9002226.02101,"862,36.13 ",.02)
;;36.13
;;9002226.02101,"862,36.14 ",.01)
;;36.14
;;9002226.02101,"862,36.14 ",.02)
;;36.14
;;9002226.02101,"862,36.15 ",.01)
;;36.15
;;9002226.02101,"862,36.15 ",.02)
;;36.15
;;9002226.02101,"862,36.16 ",.01)
;;36.16
;;9002226.02101,"862,36.16 ",.02)
;;36.16
;;9002226.02101,"862,36.17 ",.01)
;;36.17
;;9002226.02101,"862,36.17 ",.02)
;;36.17
;;9002226.02101,"862,36.19 ",.01)
;;36.19
;;9002226.02101,"862,36.19 ",.02)
;;36.19
;;9002226.02101,"862,36.31 ",.01)
;;36.31
;;9002226.02101,"862,36.31 ",.02)
;;36.31
;;9002226.02101,"862,36.32 ",.01)
;;36.32
;;9002226.02101,"862,36.32 ",.02)
;;36.32
;;9002226.02101,"862,36.39 ",.01)
;;36.39
;;9002226.02101,"862,36.39 ",.02)
;;36.39
;;9002226.02101,"862,36.91 ",.01)
;;36.91
;;9002226.02101,"862,36.91 ",.02)
;;36.91
;;9002226.02101,"862,36.99 ",.01)
;;36.99
;;9002226.02101,"862,36.99 ",.02)
;;36.99
;;9002226.02101,"862,37.10 ",.01)
;;37.10
;;9002226.02101,"862,37.10 ",.02)
;;37.10
;;9002226.02101,"862,37.11 ",.01)
;;37.11
;;9002226.02101,"862,37.11 ",.02)
;;37.11
;;9002226.02101,"862,37.12 ",.01)
;;37.12
;;9002226.02101,"862,37.12 ",.02)
;;37.12
;;9002226.02101,"862,37.31 ",.01)
;;37.31
;;9002226.02101,"862,37.31 ",.02)
;;37.31
;;9002226.02101,"862,37.32 ",.01)
;;37.32
;;9002226.02101,"862,37.32 ",.02)
;;37.32
BGP9VXIK ; 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,35.23 ",.02)
+2 ;;35.23
+3 ;;9002226.02101,"862,35.24 ",.01)
+4 ;;35.24
+5 ;;9002226.02101,"862,35.24 ",.02)
+6 ;;35.24
+7 ;;9002226.02101,"862,35.25 ",.01)
+8 ;;35.25
+9 ;;9002226.02101,"862,35.25 ",.02)
+10 ;;35.25
+11 ;;9002226.02101,"862,35.26 ",.01)
+12 ;;35.26
+13 ;;9002226.02101,"862,35.26 ",.02)
+14 ;;35.26
+15 ;;9002226.02101,"862,35.27 ",.01)
+16 ;;35.27
+17 ;;9002226.02101,"862,35.27 ",.02)
+18 ;;35.27
+19 ;;9002226.02101,"862,35.28 ",.01)
+20 ;;35.28
+21 ;;9002226.02101,"862,35.28 ",.02)
+22 ;;35.28
+23 ;;9002226.02101,"862,35.31 ",.01)
+24 ;;35.31
+25 ;;9002226.02101,"862,35.31 ",.02)
+26 ;;35.31
+27 ;;9002226.02101,"862,35.32 ",.01)
+28 ;;35.32
+29 ;;9002226.02101,"862,35.32 ",.02)
+30 ;;35.32
+31 ;;9002226.02101,"862,35.33 ",.01)
+32 ;;35.33
+33 ;;9002226.02101,"862,35.33 ",.02)
+34 ;;35.33
+35 ;;9002226.02101,"862,35.34 ",.01)
+36 ;;35.34
+37 ;;9002226.02101,"862,35.34 ",.02)
+38 ;;35.34
+39 ;;9002226.02101,"862,35.35 ",.01)
+40 ;;35.35
+41 ;;9002226.02101,"862,35.35 ",.02)
+42 ;;35.35
+43 ;;9002226.02101,"862,35.39 ",.01)
+44 ;;35.39
+45 ;;9002226.02101,"862,35.39 ",.02)
+46 ;;35.39
+47 ;;9002226.02101,"862,35.42 ",.01)
+48 ;;35.42
+49 ;;9002226.02101,"862,35.42 ",.02)
+50 ;;35.42
+51 ;;9002226.02101,"862,35.50 ",.01)
+52 ;;35.50
+53 ;;9002226.02101,"862,35.50 ",.02)
+54 ;;35.50
+55 ;;9002226.02101,"862,35.51 ",.01)
+56 ;;35.51
+57 ;;9002226.02101,"862,35.51 ",.02)
+58 ;;35.51
+59 ;;9002226.02101,"862,35.53 ",.01)
+60 ;;35.53
+61 ;;9002226.02101,"862,35.53 ",.02)
+62 ;;35.53
+63 ;;9002226.02101,"862,35.54 ",.01)
+64 ;;35.54
+65 ;;9002226.02101,"862,35.54 ",.02)
+66 ;;35.54
+67 ;;9002226.02101,"862,35.60 ",.01)
+68 ;;35.60
+69 ;;9002226.02101,"862,35.60 ",.02)
+70 ;;35.60
+71 ;;9002226.02101,"862,35.61 ",.01)
+72 ;;35.61
+73 ;;9002226.02101,"862,35.61 ",.02)
+74 ;;35.61
+75 ;;9002226.02101,"862,35.62 ",.01)
+76 ;;35.62
+77 ;;9002226.02101,"862,35.62 ",.02)
+78 ;;35.62
+79 ;;9002226.02101,"862,35.63 ",.01)
+80 ;;35.63
+81 ;;9002226.02101,"862,35.63 ",.02)
+82 ;;35.63
+83 ;;9002226.02101,"862,35.70 ",.01)
+84 ;;35.70
+85 ;;9002226.02101,"862,35.70 ",.02)
+86 ;;35.70
+87 ;;9002226.02101,"862,35.71 ",.01)
+88 ;;35.71
+89 ;;9002226.02101,"862,35.71 ",.02)
+90 ;;35.71
+91 ;;9002226.02101,"862,35.72 ",.01)
+92 ;;35.72
+93 ;;9002226.02101,"862,35.72 ",.02)
+94 ;;35.72
+95 ;;9002226.02101,"862,35.73 ",.01)
+96 ;;35.73
+97 ;;9002226.02101,"862,35.73 ",.02)
+98 ;;35.73
+99 ;;9002226.02101,"862,35.81 ",.01)
+100 ;;35.81
+101 ;;9002226.02101,"862,35.81 ",.02)
+102 ;;35.81
+103 ;;9002226.02101,"862,35.82 ",.01)
+104 ;;35.82
+105 ;;9002226.02101,"862,35.82 ",.02)
+106 ;;35.82
+107 ;;9002226.02101,"862,35.83 ",.01)
+108 ;;35.83
+109 ;;9002226.02101,"862,35.83 ",.02)
+110 ;;35.83
+111 ;;9002226.02101,"862,35.84 ",.01)
+112 ;;35.84
+113 ;;9002226.02101,"862,35.84 ",.02)
+114 ;;35.84
+115 ;;9002226.02101,"862,35.91 ",.01)
+116 ;;35.91
+117 ;;9002226.02101,"862,35.91 ",.02)
+118 ;;35.91
+119 ;;9002226.02101,"862,35.92 ",.01)
+120 ;;35.92
+121 ;;9002226.02101,"862,35.92 ",.02)
+122 ;;35.92
+123 ;;9002226.02101,"862,35.93 ",.01)
+124 ;;35.93
+125 ;;9002226.02101,"862,35.93 ",.02)
+126 ;;35.93
+127 ;;9002226.02101,"862,35.94 ",.01)
+128 ;;35.94
+129 ;;9002226.02101,"862,35.94 ",.02)
+130 ;;35.94
+131 ;;9002226.02101,"862,35.95 ",.01)
+132 ;;35.95
+133 ;;9002226.02101,"862,35.95 ",.02)
+134 ;;35.95
+135 ;;9002226.02101,"862,35.98 ",.01)
+136 ;;35.98
+137 ;;9002226.02101,"862,35.98 ",.02)
+138 ;;35.98
+139 ;;9002226.02101,"862,35.99 ",.01)
+140 ;;35.99
+141 ;;9002226.02101,"862,35.99 ",.02)
+142 ;;35.99
+143 ;;9002226.02101,"862,36.03 ",.01)
+144 ;;36.03
+145 ;;9002226.02101,"862,36.03 ",.02)
+146 ;;36.03
+147 ;;9002226.02101,"862,36.10 ",.01)
+148 ;;36.10
+149 ;;9002226.02101,"862,36.10 ",.02)
+150 ;;36.10
+151 ;;9002226.02101,"862,36.11 ",.01)
+152 ;;36.11
+153 ;;9002226.02101,"862,36.11 ",.02)
+154 ;;36.11
+155 ;;9002226.02101,"862,36.12 ",.01)
+156 ;;36.12
+157 ;;9002226.02101,"862,36.12 ",.02)
+158 ;;36.12
+159 ;;9002226.02101,"862,36.13 ",.01)
+160 ;;36.13
+161 ;;9002226.02101,"862,36.13 ",.02)
+162 ;;36.13
+163 ;;9002226.02101,"862,36.14 ",.01)
+164 ;;36.14
+165 ;;9002226.02101,"862,36.14 ",.02)
+166 ;;36.14
+167 ;;9002226.02101,"862,36.15 ",.01)
+168 ;;36.15
+169 ;;9002226.02101,"862,36.15 ",.02)
+170 ;;36.15
+171 ;;9002226.02101,"862,36.16 ",.01)
+172 ;;36.16
+173 ;;9002226.02101,"862,36.16 ",.02)
+174 ;;36.16
+175 ;;9002226.02101,"862,36.17 ",.01)
+176 ;;36.17
+177 ;;9002226.02101,"862,36.17 ",.02)
+178 ;;36.17
+179 ;;9002226.02101,"862,36.19 ",.01)
+180 ;;36.19
+181 ;;9002226.02101,"862,36.19 ",.02)
+182 ;;36.19
+183 ;;9002226.02101,"862,36.31 ",.01)
+184 ;;36.31
+185 ;;9002226.02101,"862,36.31 ",.02)
+186 ;;36.31
+187 ;;9002226.02101,"862,36.32 ",.01)
+188 ;;36.32
+189 ;;9002226.02101,"862,36.32 ",.02)
+190 ;;36.32
+191 ;;9002226.02101,"862,36.39 ",.01)
+192 ;;36.39
+193 ;;9002226.02101,"862,36.39 ",.02)
+194 ;;36.39
+195 ;;9002226.02101,"862,36.91 ",.01)
+196 ;;36.91
+197 ;;9002226.02101,"862,36.91 ",.02)
+198 ;;36.91
+199 ;;9002226.02101,"862,36.99 ",.01)
+200 ;;36.99
+201 ;;9002226.02101,"862,36.99 ",.02)
+202 ;;36.99
+203 ;;9002226.02101,"862,37.10 ",.01)
+204 ;;37.10
+205 ;;9002226.02101,"862,37.10 ",.02)
+206 ;;37.10
+207 ;;9002226.02101,"862,37.11 ",.01)
+208 ;;37.11
+209 ;;9002226.02101,"862,37.11 ",.02)
+210 ;;37.11
+211 ;;9002226.02101,"862,37.12 ",.01)
+212 ;;37.12
+213 ;;9002226.02101,"862,37.12 ",.02)
+214 ;;37.12
+215 ;;9002226.02101,"862,37.31 ",.01)
+216 ;;37.31
+217 ;;9002226.02101,"862,37.31 ",.02)
+218 ;;37.31
+219 ;;9002226.02101,"862,37.32 ",.01)
+220 ;;37.32
+221 ;;9002226.02101,"862,37.32 ",.02)
+222 ;;37.32
