BGP9VXIL ; 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,37.33 ",.01)
;;37.33
;;9002226.02101,"862,37.33 ",.02)
;;37.33
;;9002226.02101,"862,37.34 ",.01)
;;37.34
;;9002226.02101,"862,37.34 ",.02)
;;37.34
;;9002226.02101,"862,37.35 ",.01)
;;37.35
;;9002226.02101,"862,37.35 ",.02)
;;37.35
;;9002226.02101,"862,37.41 ",.01)
;;37.41
;;9002226.02101,"862,37.41 ",.02)
;;37.41
;;9002226.02101,"862,37.49 ",.01)
;;37.49
;;9002226.02101,"862,37.49 ",.02)
;;37.49
;;9002226.02101,"862,37.51 ",.01)
;;37.51
;;9002226.02101,"862,37.51 ",.02)
;;37.51
;;9002226.02101,"862,37.52 ",.01)
;;37.52
;;9002226.02101,"862,37.52 ",.02)
;;37.52
;;9002226.02101,"862,37.53 ",.01)
;;37.53
;;9002226.02101,"862,37.53 ",.02)
;;37.53
;;9002226.02101,"862,37.54 ",.01)
;;37.54
;;9002226.02101,"862,37.54 ",.02)
;;37.54
;;9002226.02101,"862,37.62 ",.01)
;;37.62
;;9002226.02101,"862,37.62 ",.02)
;;37.62
;;9002226.02101,"862,37.63 ",.01)
;;37.63
;;9002226.02101,"862,37.63 ",.02)
;;37.63
;;9002226.02101,"862,37.64 ",.01)
;;37.64
;;9002226.02101,"862,37.64 ",.02)
;;37.64
;;9002226.02101,"862,37.66 ",.01)
;;37.66
;;9002226.02101,"862,37.66 ",.02)
;;37.66
;;9002226.02101,"862,37.67 ",.01)
;;37.67
;;9002226.02101,"862,37.67 ",.02)
;;37.67
;;9002226.02101,"862,37.91 ",.01)
;;37.91
;;9002226.02101,"862,37.91 ",.02)
;;37.91
;;9002226.02101,"862,38.10 ",.01)
;;38.10
;;9002226.02101,"862,38.10 ",.02)
;;38.10
;;9002226.02101,"862,38.11 ",.01)
;;38.11
;;9002226.02101,"862,38.11 ",.02)
;;38.11
;;9002226.02101,"862,38.12 ",.01)
;;38.12
;;9002226.02101,"862,38.12 ",.02)
;;38.12
;;9002226.02101,"862,38.13 ",.01)
;;38.13
;;9002226.02101,"862,38.13 ",.02)
;;38.13
;;9002226.02101,"862,38.14 ",.01)
;;38.14
;;9002226.02101,"862,38.14 ",.02)
;;38.14
;;9002226.02101,"862,38.15 ",.01)
;;38.15
;;9002226.02101,"862,38.15 ",.02)
;;38.15
;;9002226.02101,"862,38.16 ",.01)
;;38.16
;;9002226.02101,"862,38.16 ",.02)
;;38.16
;;9002226.02101,"862,38.18 ",.01)
;;38.18
;;9002226.02101,"862,38.18 ",.02)
;;38.18
;;9002226.02101,"862,38.30 ",.01)
;;38.30
;;9002226.02101,"862,38.30 ",.02)
;;38.30
;;9002226.02101,"862,38.31 ",.01)
;;38.31
;;9002226.02101,"862,38.31 ",.02)
;;38.31
;;9002226.02101,"862,38.32 ",.01)
;;38.32
;;9002226.02101,"862,38.32 ",.02)
;;38.32
;;9002226.02101,"862,38.33 ",.01)
;;38.33
;;9002226.02101,"862,38.33 ",.02)
;;38.33
;;9002226.02101,"862,38.34 ",.01)
;;38.34
;;9002226.02101,"862,38.34 ",.02)
;;38.34
;;9002226.02101,"862,38.35 ",.01)
;;38.35
;;9002226.02101,"862,38.35 ",.02)
;;38.35
;;9002226.02101,"862,38.36 ",.01)
;;38.36
;;9002226.02101,"862,38.36 ",.02)
;;38.36
;;9002226.02101,"862,38.37 ",.01)
;;38.37
;;9002226.02101,"862,38.37 ",.02)
;;38.37
;;9002226.02101,"862,38.38 ",.01)
;;38.38
;;9002226.02101,"862,38.38 ",.02)
;;38.38
;;9002226.02101,"862,38.39 ",.01)
;;38.39
;;9002226.02101,"862,38.39 ",.02)
;;38.39
;;9002226.02101,"862,38.40 ",.01)
;;38.40
;;9002226.02101,"862,38.40 ",.02)
;;38.40
;;9002226.02101,"862,38.41 ",.01)
;;38.41
;;9002226.02101,"862,38.41 ",.02)
;;38.41
;;9002226.02101,"862,38.42 ",.01)
;;38.42
;;9002226.02101,"862,38.42 ",.02)
;;38.42
;;9002226.02101,"862,38.43 ",.01)
;;38.43
;;9002226.02101,"862,38.43 ",.02)
;;38.43
;;9002226.02101,"862,38.44 ",.01)
;;38.44
;;9002226.02101,"862,38.44 ",.02)
;;38.44
;;9002226.02101,"862,38.45 ",.01)
;;38.45
;;9002226.02101,"862,38.45 ",.02)
;;38.45
;;9002226.02101,"862,38.46 ",.01)
;;38.46
;;9002226.02101,"862,38.46 ",.02)
;;38.46
;;9002226.02101,"862,38.47 ",.01)
;;38.47
;;9002226.02101,"862,38.47 ",.02)
;;38.47
;;9002226.02101,"862,38.48 ",.01)
;;38.48
;;9002226.02101,"862,38.48 ",.02)
;;38.48
;;9002226.02101,"862,38.49 ",.01)
;;38.49
;;9002226.02101,"862,38.49 ",.02)
;;38.49
;;9002226.02101,"862,38.64 ",.01)
;;38.64
;;9002226.02101,"862,38.64 ",.02)
;;38.64
;;9002226.02101,"862,38.7 ",.01)
;;38.7
;;9002226.02101,"862,38.7 ",.02)
;;38.7
;;9002226.02101,"862,38.80 ",.01)
;;38.80
;;9002226.02101,"862,38.80 ",.02)
;;38.80
;;9002226.02101,"862,38.81 ",.01)
;;38.81
;;9002226.02101,"862,38.81 ",.02)
;;38.81
;;9002226.02101,"862,38.82 ",.01)
;;38.82
;;9002226.02101,"862,38.82 ",.02)
;;38.82
;;9002226.02101,"862,38.84 ",.01)
;;38.84
;;9002226.02101,"862,38.84 ",.02)
;;38.84
;;9002226.02101,"862,38.85 ",.01)
;;38.85
;;9002226.02101,"862,38.85 ",.02)
;;38.85
;;9002226.02101,"862,38.86 ",.01)
;;38.86
;;9002226.02101,"862,38.86 ",.02)
;;38.86
;;9002226.02101,"862,38.87 ",.01)
;;38.87
;;9002226.02101,"862,38.87 ",.02)
;;38.87
;;9002226.02101,"862,38.88 ",.01)
;;38.88
;;9002226.02101,"862,38.88 ",.02)
;;38.88
;;9002226.02101,"862,39.0 ",.01)
;;39.0
;;9002226.02101,"862,39.0 ",.02)
;;39.0
;;9002226.02101,"862,39.1 ",.01)
;;39.1
;;9002226.02101,"862,39.1 ",.02)
;;39.1
;;9002226.02101,"862,39.21 ",.01)
;;39.21
BGP9VXIL ; 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,37.33 ",.01)
+2 ;;37.33
+3 ;;9002226.02101,"862,37.33 ",.02)
+4 ;;37.33
+5 ;;9002226.02101,"862,37.34 ",.01)
+6 ;;37.34
+7 ;;9002226.02101,"862,37.34 ",.02)
+8 ;;37.34
+9 ;;9002226.02101,"862,37.35 ",.01)
+10 ;;37.35
+11 ;;9002226.02101,"862,37.35 ",.02)
+12 ;;37.35
+13 ;;9002226.02101,"862,37.41 ",.01)
+14 ;;37.41
+15 ;;9002226.02101,"862,37.41 ",.02)
+16 ;;37.41
+17 ;;9002226.02101,"862,37.49 ",.01)
+18 ;;37.49
+19 ;;9002226.02101,"862,37.49 ",.02)
+20 ;;37.49
+21 ;;9002226.02101,"862,37.51 ",.01)
+22 ;;37.51
+23 ;;9002226.02101,"862,37.51 ",.02)
+24 ;;37.51
+25 ;;9002226.02101,"862,37.52 ",.01)
+26 ;;37.52
+27 ;;9002226.02101,"862,37.52 ",.02)
+28 ;;37.52
+29 ;;9002226.02101,"862,37.53 ",.01)
+30 ;;37.53
+31 ;;9002226.02101,"862,37.53 ",.02)
+32 ;;37.53
+33 ;;9002226.02101,"862,37.54 ",.01)
+34 ;;37.54
+35 ;;9002226.02101,"862,37.54 ",.02)
+36 ;;37.54
+37 ;;9002226.02101,"862,37.62 ",.01)
+38 ;;37.62
+39 ;;9002226.02101,"862,37.62 ",.02)
+40 ;;37.62
+41 ;;9002226.02101,"862,37.63 ",.01)
+42 ;;37.63
+43 ;;9002226.02101,"862,37.63 ",.02)
+44 ;;37.63
+45 ;;9002226.02101,"862,37.64 ",.01)
+46 ;;37.64
+47 ;;9002226.02101,"862,37.64 ",.02)
+48 ;;37.64
+49 ;;9002226.02101,"862,37.66 ",.01)
+50 ;;37.66
+51 ;;9002226.02101,"862,37.66 ",.02)
+52 ;;37.66
+53 ;;9002226.02101,"862,37.67 ",.01)
+54 ;;37.67
+55 ;;9002226.02101,"862,37.67 ",.02)
+56 ;;37.67
+57 ;;9002226.02101,"862,37.91 ",.01)
+58 ;;37.91
+59 ;;9002226.02101,"862,37.91 ",.02)
+60 ;;37.91
+61 ;;9002226.02101,"862,38.10 ",.01)
+62 ;;38.10
+63 ;;9002226.02101,"862,38.10 ",.02)
+64 ;;38.10
+65 ;;9002226.02101,"862,38.11 ",.01)
+66 ;;38.11
+67 ;;9002226.02101,"862,38.11 ",.02)
+68 ;;38.11
+69 ;;9002226.02101,"862,38.12 ",.01)
+70 ;;38.12
+71 ;;9002226.02101,"862,38.12 ",.02)
+72 ;;38.12
+73 ;;9002226.02101,"862,38.13 ",.01)
+74 ;;38.13
+75 ;;9002226.02101,"862,38.13 ",.02)
+76 ;;38.13
+77 ;;9002226.02101,"862,38.14 ",.01)
+78 ;;38.14
+79 ;;9002226.02101,"862,38.14 ",.02)
+80 ;;38.14
+81 ;;9002226.02101,"862,38.15 ",.01)
+82 ;;38.15
+83 ;;9002226.02101,"862,38.15 ",.02)
+84 ;;38.15
+85 ;;9002226.02101,"862,38.16 ",.01)
+86 ;;38.16
+87 ;;9002226.02101,"862,38.16 ",.02)
+88 ;;38.16
+89 ;;9002226.02101,"862,38.18 ",.01)
+90 ;;38.18
+91 ;;9002226.02101,"862,38.18 ",.02)
+92 ;;38.18
+93 ;;9002226.02101,"862,38.30 ",.01)
+94 ;;38.30
+95 ;;9002226.02101,"862,38.30 ",.02)
+96 ;;38.30
+97 ;;9002226.02101,"862,38.31 ",.01)
+98 ;;38.31
+99 ;;9002226.02101,"862,38.31 ",.02)
+100 ;;38.31
+101 ;;9002226.02101,"862,38.32 ",.01)
+102 ;;38.32
+103 ;;9002226.02101,"862,38.32 ",.02)
+104 ;;38.32
+105 ;;9002226.02101,"862,38.33 ",.01)
+106 ;;38.33
+107 ;;9002226.02101,"862,38.33 ",.02)
+108 ;;38.33
+109 ;;9002226.02101,"862,38.34 ",.01)
+110 ;;38.34
+111 ;;9002226.02101,"862,38.34 ",.02)
+112 ;;38.34
+113 ;;9002226.02101,"862,38.35 ",.01)
+114 ;;38.35
+115 ;;9002226.02101,"862,38.35 ",.02)
+116 ;;38.35
+117 ;;9002226.02101,"862,38.36 ",.01)
+118 ;;38.36
+119 ;;9002226.02101,"862,38.36 ",.02)
+120 ;;38.36
+121 ;;9002226.02101,"862,38.37 ",.01)
+122 ;;38.37
+123 ;;9002226.02101,"862,38.37 ",.02)
+124 ;;38.37
+125 ;;9002226.02101,"862,38.38 ",.01)
+126 ;;38.38
+127 ;;9002226.02101,"862,38.38 ",.02)
+128 ;;38.38
+129 ;;9002226.02101,"862,38.39 ",.01)
+130 ;;38.39
+131 ;;9002226.02101,"862,38.39 ",.02)
+132 ;;38.39
+133 ;;9002226.02101,"862,38.40 ",.01)
+134 ;;38.40
+135 ;;9002226.02101,"862,38.40 ",.02)
+136 ;;38.40
+137 ;;9002226.02101,"862,38.41 ",.01)
+138 ;;38.41
+139 ;;9002226.02101,"862,38.41 ",.02)
+140 ;;38.41
+141 ;;9002226.02101,"862,38.42 ",.01)
+142 ;;38.42
+143 ;;9002226.02101,"862,38.42 ",.02)
+144 ;;38.42
+145 ;;9002226.02101,"862,38.43 ",.01)
+146 ;;38.43
+147 ;;9002226.02101,"862,38.43 ",.02)
+148 ;;38.43
+149 ;;9002226.02101,"862,38.44 ",.01)
+150 ;;38.44
+151 ;;9002226.02101,"862,38.44 ",.02)
+152 ;;38.44
+153 ;;9002226.02101,"862,38.45 ",.01)
+154 ;;38.45
+155 ;;9002226.02101,"862,38.45 ",.02)
+156 ;;38.45
+157 ;;9002226.02101,"862,38.46 ",.01)
+158 ;;38.46
+159 ;;9002226.02101,"862,38.46 ",.02)
+160 ;;38.46
+161 ;;9002226.02101,"862,38.47 ",.01)
+162 ;;38.47
+163 ;;9002226.02101,"862,38.47 ",.02)
+164 ;;38.47
+165 ;;9002226.02101,"862,38.48 ",.01)
+166 ;;38.48
+167 ;;9002226.02101,"862,38.48 ",.02)
+168 ;;38.48
+169 ;;9002226.02101,"862,38.49 ",.01)
+170 ;;38.49
+171 ;;9002226.02101,"862,38.49 ",.02)
+172 ;;38.49
+173 ;;9002226.02101,"862,38.64 ",.01)
+174 ;;38.64
+175 ;;9002226.02101,"862,38.64 ",.02)
+176 ;;38.64
+177 ;;9002226.02101,"862,38.7 ",.01)
+178 ;;38.7
+179 ;;9002226.02101,"862,38.7 ",.02)
+180 ;;38.7
+181 ;;9002226.02101,"862,38.80 ",.01)
+182 ;;38.80
+183 ;;9002226.02101,"862,38.80 ",.02)
+184 ;;38.80
+185 ;;9002226.02101,"862,38.81 ",.01)
+186 ;;38.81
+187 ;;9002226.02101,"862,38.81 ",.02)
+188 ;;38.81
+189 ;;9002226.02101,"862,38.82 ",.01)
+190 ;;38.82
+191 ;;9002226.02101,"862,38.82 ",.02)
+192 ;;38.82
+193 ;;9002226.02101,"862,38.84 ",.01)
+194 ;;38.84
+195 ;;9002226.02101,"862,38.84 ",.02)
+196 ;;38.84
+197 ;;9002226.02101,"862,38.85 ",.01)
+198 ;;38.85
+199 ;;9002226.02101,"862,38.85 ",.02)
+200 ;;38.85
+201 ;;9002226.02101,"862,38.86 ",.01)
+202 ;;38.86
+203 ;;9002226.02101,"862,38.86 ",.02)
+204 ;;38.86
+205 ;;9002226.02101,"862,38.87 ",.01)
+206 ;;38.87
+207 ;;9002226.02101,"862,38.87 ",.02)
+208 ;;38.87
+209 ;;9002226.02101,"862,38.88 ",.01)
+210 ;;38.88
+211 ;;9002226.02101,"862,38.88 ",.02)
+212 ;;38.88
+213 ;;9002226.02101,"862,39.0 ",.01)
+214 ;;39.0
+215 ;;9002226.02101,"862,39.0 ",.02)
+216 ;;39.0
+217 ;;9002226.02101,"862,39.1 ",.01)
+218 ;;39.1
+219 ;;9002226.02101,"862,39.1 ",.02)
+220 ;;39.1
+221 ;;9002226.02101,"862,39.21 ",.01)
+222 ;;39.21
