BGP9VXIY ; 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,83.73 ",.01)
;;83.73
;;9002226.02101,"862,83.73 ",.02)
;;83.73
;;9002226.02101,"862,83.74 ",.01)
;;83.74
;;9002226.02101,"862,83.74 ",.02)
;;83.74
;;9002226.02101,"862,83.75 ",.01)
;;83.75
;;9002226.02101,"862,83.75 ",.02)
;;83.75
;;9002226.02101,"862,83.76 ",.01)
;;83.76
;;9002226.02101,"862,83.76 ",.02)
;;83.76
;;9002226.02101,"862,83.77 ",.01)
;;83.77
;;9002226.02101,"862,83.77 ",.02)
;;83.77
;;9002226.02101,"862,83.79 ",.01)
;;83.79
;;9002226.02101,"862,83.79 ",.02)
;;83.79
;;9002226.02101,"862,83.81 ",.01)
;;83.81
;;9002226.02101,"862,83.81 ",.02)
;;83.81
;;9002226.02101,"862,83.82 ",.01)
;;83.82
;;9002226.02101,"862,83.82 ",.02)
;;83.82
;;9002226.02101,"862,83.83 ",.01)
;;83.83
;;9002226.02101,"862,83.83 ",.02)
;;83.83
;;9002226.02101,"862,83.84 ",.01)
;;83.84
;;9002226.02101,"862,83.84 ",.02)
;;83.84
;;9002226.02101,"862,83.85 ",.01)
;;83.85
;;9002226.02101,"862,83.85 ",.02)
;;83.85
;;9002226.02101,"862,83.86 ",.01)
;;83.86
;;9002226.02101,"862,83.86 ",.02)
;;83.86
;;9002226.02101,"862,83.87 ",.01)
;;83.87
;;9002226.02101,"862,83.87 ",.02)
;;83.87
;;9002226.02101,"862,83.88 ",.01)
;;83.88
;;9002226.02101,"862,83.88 ",.02)
;;83.88
;;9002226.02101,"862,83.89 ",.01)
;;83.89
;;9002226.02101,"862,83.89 ",.02)
;;83.89
;;9002226.02101,"862,83.91 ",.01)
;;83.91
;;9002226.02101,"862,83.91 ",.02)
;;83.91
;;9002226.02101,"862,83.99 ",.01)
;;83.99
;;9002226.02101,"862,83.99 ",.02)
;;83.99
;;9002226.02101,"862,84.00 ",.01)
;;84.00
;;9002226.02101,"862,84.00 ",.02)
;;84.00
;;9002226.02101,"862,84.03 ",.01)
;;84.03
;;9002226.02101,"862,84.03 ",.02)
;;84.03
;;9002226.02101,"862,84.04 ",.01)
;;84.04
;;9002226.02101,"862,84.04 ",.02)
;;84.04
;;9002226.02101,"862,84.05 ",.01)
;;84.05
;;9002226.02101,"862,84.05 ",.02)
;;84.05
;;9002226.02101,"862,84.06 ",.01)
;;84.06
;;9002226.02101,"862,84.06 ",.02)
;;84.06
;;9002226.02101,"862,84.07 ",.01)
;;84.07
;;9002226.02101,"862,84.07 ",.02)
;;84.07
;;9002226.02101,"862,84.08 ",.01)
;;84.08
;;9002226.02101,"862,84.08 ",.02)
;;84.08
;;9002226.02101,"862,84.09 ",.01)
;;84.09
;;9002226.02101,"862,84.09 ",.02)
;;84.09
;;9002226.02101,"862,84.10 ",.01)
;;84.10
;;9002226.02101,"862,84.10 ",.02)
;;84.10
;;9002226.02101,"862,84.12 ",.01)
;;84.12
;;9002226.02101,"862,84.12 ",.02)
;;84.12
;;9002226.02101,"862,84.13 ",.01)
;;84.13
;;9002226.02101,"862,84.13 ",.02)
;;84.13
;;9002226.02101,"862,84.14 ",.01)
;;84.14
;;9002226.02101,"862,84.14 ",.02)
;;84.14
;;9002226.02101,"862,84.15 ",.01)
;;84.15
;;9002226.02101,"862,84.15 ",.02)
;;84.15
;;9002226.02101,"862,84.16 ",.01)
;;84.16
;;9002226.02101,"862,84.16 ",.02)
;;84.16
;;9002226.02101,"862,84.17 ",.01)
;;84.17
;;9002226.02101,"862,84.17 ",.02)
;;84.17
;;9002226.02101,"862,84.18 ",.01)
;;84.18
;;9002226.02101,"862,84.18 ",.02)
;;84.18
;;9002226.02101,"862,84.19 ",.01)
;;84.19
;;9002226.02101,"862,84.19 ",.02)
;;84.19
;;9002226.02101,"862,84.22 ",.01)
;;84.22
;;9002226.02101,"862,84.22 ",.02)
;;84.22
;;9002226.02101,"862,84.23 ",.01)
;;84.23
;;9002226.02101,"862,84.23 ",.02)
;;84.23
;;9002226.02101,"862,84.24 ",.01)
;;84.24
;;9002226.02101,"862,84.24 ",.02)
;;84.24
;;9002226.02101,"862,84.25 ",.01)
;;84.25
;;9002226.02101,"862,84.25 ",.02)
;;84.25
;;9002226.02101,"862,84.26 ",.01)
;;84.26
;;9002226.02101,"862,84.26 ",.02)
;;84.26
;;9002226.02101,"862,84.27 ",.01)
;;84.27
;;9002226.02101,"862,84.27 ",.02)
;;84.27
;;9002226.02101,"862,84.28 ",.01)
;;84.28
;;9002226.02101,"862,84.28 ",.02)
;;84.28
;;9002226.02101,"862,84.29 ",.01)
;;84.29
;;9002226.02101,"862,84.29 ",.02)
;;84.29
;;9002226.02101,"862,84.3 ",.01)
;;84.3
;;9002226.02101,"862,84.3 ",.02)
;;84.3
;;9002226.02101,"862,84.58 ",.01)
;;84.58
;;9002226.02101,"862,84.58 ",.02)
;;84.58
;;9002226.02101,"862,85.22 ",.01)
;;85.22
;;9002226.02101,"862,85.22 ",.02)
;;85.22
;;9002226.02101,"862,85.23 ",.01)
;;85.23
;;9002226.02101,"862,85.23 ",.02)
;;85.23
;;9002226.02101,"862,85.31 ",.01)
;;85.31
;;9002226.02101,"862,85.31 ",.02)
;;85.31
;;9002226.02101,"862,85.32 ",.01)
;;85.32
;;9002226.02101,"862,85.32 ",.02)
;;85.32
;;9002226.02101,"862,85.33 ",.01)
;;85.33
;;9002226.02101,"862,85.33 ",.02)
;;85.33
;;9002226.02101,"862,85.34 ",.01)
;;85.34
;;9002226.02101,"862,85.34 ",.02)
;;85.34
;;9002226.02101,"862,85.35 ",.01)
;;85.35
;;9002226.02101,"862,85.35 ",.02)
;;85.35
;;9002226.02101,"862,85.36 ",.01)
;;85.36
;;9002226.02101,"862,85.36 ",.02)
;;85.36
;;9002226.02101,"862,85.41 ",.01)
;;85.41
;;9002226.02101,"862,85.41 ",.02)
;;85.41
;;9002226.02101,"862,85.42 ",.01)
;;85.42
;;9002226.02101,"862,85.42 ",.02)
;;85.42
;;9002226.02101,"862,85.43 ",.01)
;;85.43
;;9002226.02101,"862,85.43 ",.02)
;;85.43
;;9002226.02101,"862,85.44 ",.01)
;;85.44
BGP9VXIY ; 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,83.73 ",.01)
+2 ;;83.73
+3 ;;9002226.02101,"862,83.73 ",.02)
+4 ;;83.73
+5 ;;9002226.02101,"862,83.74 ",.01)
+6 ;;83.74
+7 ;;9002226.02101,"862,83.74 ",.02)
+8 ;;83.74
+9 ;;9002226.02101,"862,83.75 ",.01)
+10 ;;83.75
+11 ;;9002226.02101,"862,83.75 ",.02)
+12 ;;83.75
+13 ;;9002226.02101,"862,83.76 ",.01)
+14 ;;83.76
+15 ;;9002226.02101,"862,83.76 ",.02)
+16 ;;83.76
+17 ;;9002226.02101,"862,83.77 ",.01)
+18 ;;83.77
+19 ;;9002226.02101,"862,83.77 ",.02)
+20 ;;83.77
+21 ;;9002226.02101,"862,83.79 ",.01)
+22 ;;83.79
+23 ;;9002226.02101,"862,83.79 ",.02)
+24 ;;83.79
+25 ;;9002226.02101,"862,83.81 ",.01)
+26 ;;83.81
+27 ;;9002226.02101,"862,83.81 ",.02)
+28 ;;83.81
+29 ;;9002226.02101,"862,83.82 ",.01)
+30 ;;83.82
+31 ;;9002226.02101,"862,83.82 ",.02)
+32 ;;83.82
+33 ;;9002226.02101,"862,83.83 ",.01)
+34 ;;83.83
+35 ;;9002226.02101,"862,83.83 ",.02)
+36 ;;83.83
+37 ;;9002226.02101,"862,83.84 ",.01)
+38 ;;83.84
+39 ;;9002226.02101,"862,83.84 ",.02)
+40 ;;83.84
+41 ;;9002226.02101,"862,83.85 ",.01)
+42 ;;83.85
+43 ;;9002226.02101,"862,83.85 ",.02)
+44 ;;83.85
+45 ;;9002226.02101,"862,83.86 ",.01)
+46 ;;83.86
+47 ;;9002226.02101,"862,83.86 ",.02)
+48 ;;83.86
+49 ;;9002226.02101,"862,83.87 ",.01)
+50 ;;83.87
+51 ;;9002226.02101,"862,83.87 ",.02)
+52 ;;83.87
+53 ;;9002226.02101,"862,83.88 ",.01)
+54 ;;83.88
+55 ;;9002226.02101,"862,83.88 ",.02)
+56 ;;83.88
+57 ;;9002226.02101,"862,83.89 ",.01)
+58 ;;83.89
+59 ;;9002226.02101,"862,83.89 ",.02)
+60 ;;83.89
+61 ;;9002226.02101,"862,83.91 ",.01)
+62 ;;83.91
+63 ;;9002226.02101,"862,83.91 ",.02)
+64 ;;83.91
+65 ;;9002226.02101,"862,83.99 ",.01)
+66 ;;83.99
+67 ;;9002226.02101,"862,83.99 ",.02)
+68 ;;83.99
+69 ;;9002226.02101,"862,84.00 ",.01)
+70 ;;84.00
+71 ;;9002226.02101,"862,84.00 ",.02)
+72 ;;84.00
+73 ;;9002226.02101,"862,84.03 ",.01)
+74 ;;84.03
+75 ;;9002226.02101,"862,84.03 ",.02)
+76 ;;84.03
+77 ;;9002226.02101,"862,84.04 ",.01)
+78 ;;84.04
+79 ;;9002226.02101,"862,84.04 ",.02)
+80 ;;84.04
+81 ;;9002226.02101,"862,84.05 ",.01)
+82 ;;84.05
+83 ;;9002226.02101,"862,84.05 ",.02)
+84 ;;84.05
+85 ;;9002226.02101,"862,84.06 ",.01)
+86 ;;84.06
+87 ;;9002226.02101,"862,84.06 ",.02)
+88 ;;84.06
+89 ;;9002226.02101,"862,84.07 ",.01)
+90 ;;84.07
+91 ;;9002226.02101,"862,84.07 ",.02)
+92 ;;84.07
+93 ;;9002226.02101,"862,84.08 ",.01)
+94 ;;84.08
+95 ;;9002226.02101,"862,84.08 ",.02)
+96 ;;84.08
+97 ;;9002226.02101,"862,84.09 ",.01)
+98 ;;84.09
+99 ;;9002226.02101,"862,84.09 ",.02)
+100 ;;84.09
+101 ;;9002226.02101,"862,84.10 ",.01)
+102 ;;84.10
+103 ;;9002226.02101,"862,84.10 ",.02)
+104 ;;84.10
+105 ;;9002226.02101,"862,84.12 ",.01)
+106 ;;84.12
+107 ;;9002226.02101,"862,84.12 ",.02)
+108 ;;84.12
+109 ;;9002226.02101,"862,84.13 ",.01)
+110 ;;84.13
+111 ;;9002226.02101,"862,84.13 ",.02)
+112 ;;84.13
+113 ;;9002226.02101,"862,84.14 ",.01)
+114 ;;84.14
+115 ;;9002226.02101,"862,84.14 ",.02)
+116 ;;84.14
+117 ;;9002226.02101,"862,84.15 ",.01)
+118 ;;84.15
+119 ;;9002226.02101,"862,84.15 ",.02)
+120 ;;84.15
+121 ;;9002226.02101,"862,84.16 ",.01)
+122 ;;84.16
+123 ;;9002226.02101,"862,84.16 ",.02)
+124 ;;84.16
+125 ;;9002226.02101,"862,84.17 ",.01)
+126 ;;84.17
+127 ;;9002226.02101,"862,84.17 ",.02)
+128 ;;84.17
+129 ;;9002226.02101,"862,84.18 ",.01)
+130 ;;84.18
+131 ;;9002226.02101,"862,84.18 ",.02)
+132 ;;84.18
+133 ;;9002226.02101,"862,84.19 ",.01)
+134 ;;84.19
+135 ;;9002226.02101,"862,84.19 ",.02)
+136 ;;84.19
+137 ;;9002226.02101,"862,84.22 ",.01)
+138 ;;84.22
+139 ;;9002226.02101,"862,84.22 ",.02)
+140 ;;84.22
+141 ;;9002226.02101,"862,84.23 ",.01)
+142 ;;84.23
+143 ;;9002226.02101,"862,84.23 ",.02)
+144 ;;84.23
+145 ;;9002226.02101,"862,84.24 ",.01)
+146 ;;84.24
+147 ;;9002226.02101,"862,84.24 ",.02)
+148 ;;84.24
+149 ;;9002226.02101,"862,84.25 ",.01)
+150 ;;84.25
+151 ;;9002226.02101,"862,84.25 ",.02)
+152 ;;84.25
+153 ;;9002226.02101,"862,84.26 ",.01)
+154 ;;84.26
+155 ;;9002226.02101,"862,84.26 ",.02)
+156 ;;84.26
+157 ;;9002226.02101,"862,84.27 ",.01)
+158 ;;84.27
+159 ;;9002226.02101,"862,84.27 ",.02)
+160 ;;84.27
+161 ;;9002226.02101,"862,84.28 ",.01)
+162 ;;84.28
+163 ;;9002226.02101,"862,84.28 ",.02)
+164 ;;84.28
+165 ;;9002226.02101,"862,84.29 ",.01)
+166 ;;84.29
+167 ;;9002226.02101,"862,84.29 ",.02)
+168 ;;84.29
+169 ;;9002226.02101,"862,84.3 ",.01)
+170 ;;84.3
+171 ;;9002226.02101,"862,84.3 ",.02)
+172 ;;84.3
+173 ;;9002226.02101,"862,84.58 ",.01)
+174 ;;84.58
+175 ;;9002226.02101,"862,84.58 ",.02)
+176 ;;84.58
+177 ;;9002226.02101,"862,85.22 ",.01)
+178 ;;85.22
+179 ;;9002226.02101,"862,85.22 ",.02)
+180 ;;85.22
+181 ;;9002226.02101,"862,85.23 ",.01)
+182 ;;85.23
+183 ;;9002226.02101,"862,85.23 ",.02)
+184 ;;85.23
+185 ;;9002226.02101,"862,85.31 ",.01)
+186 ;;85.31
+187 ;;9002226.02101,"862,85.31 ",.02)
+188 ;;85.31
+189 ;;9002226.02101,"862,85.32 ",.01)
+190 ;;85.32
+191 ;;9002226.02101,"862,85.32 ",.02)
+192 ;;85.32
+193 ;;9002226.02101,"862,85.33 ",.01)
+194 ;;85.33
+195 ;;9002226.02101,"862,85.33 ",.02)
+196 ;;85.33
+197 ;;9002226.02101,"862,85.34 ",.01)
+198 ;;85.34
+199 ;;9002226.02101,"862,85.34 ",.02)
+200 ;;85.34
+201 ;;9002226.02101,"862,85.35 ",.01)
+202 ;;85.35
+203 ;;9002226.02101,"862,85.35 ",.02)
+204 ;;85.35
+205 ;;9002226.02101,"862,85.36 ",.01)
+206 ;;85.36
+207 ;;9002226.02101,"862,85.36 ",.02)
+208 ;;85.36
+209 ;;9002226.02101,"862,85.41 ",.01)
+210 ;;85.41
+211 ;;9002226.02101,"862,85.41 ",.02)
+212 ;;85.41
+213 ;;9002226.02101,"862,85.42 ",.01)
+214 ;;85.42
+215 ;;9002226.02101,"862,85.42 ",.02)
+216 ;;85.42
+217 ;;9002226.02101,"862,85.43 ",.01)
+218 ;;85.43
+219 ;;9002226.02101,"862,85.43 ",.02)
+220 ;;85.43
+221 ;;9002226.02101,"862,85.44 ",.01)
+222 ;;85.44
