BGP9VXIW ; 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,80.04 ",.01)
;;80.04
;;9002226.02101,"862,80.04 ",.02)
;;80.04
;;9002226.02101,"862,80.05 ",.01)
;;80.05
;;9002226.02101,"862,80.05 ",.02)
;;80.05
;;9002226.02101,"862,80.06 ",.01)
;;80.06
;;9002226.02101,"862,80.06 ",.02)
;;80.06
;;9002226.02101,"862,80.07 ",.01)
;;80.07
;;9002226.02101,"862,80.07 ",.02)
;;80.07
;;9002226.02101,"862,80.09 ",.01)
;;80.09
;;9002226.02101,"862,80.09 ",.02)
;;80.09
;;9002226.02101,"862,80.10 ",.01)
;;80.10
;;9002226.02101,"862,80.10 ",.02)
;;80.10
;;9002226.02101,"862,80.11 ",.01)
;;80.11
;;9002226.02101,"862,80.11 ",.02)
;;80.11
;;9002226.02101,"862,80.12 ",.01)
;;80.12
;;9002226.02101,"862,80.12 ",.02)
;;80.12
;;9002226.02101,"862,80.13 ",.01)
;;80.13
;;9002226.02101,"862,80.13 ",.02)
;;80.13
;;9002226.02101,"862,80.15 ",.01)
;;80.15
;;9002226.02101,"862,80.15 ",.02)
;;80.15
;;9002226.02101,"862,80.16 ",.01)
;;80.16
;;9002226.02101,"862,80.16 ",.02)
;;80.16
;;9002226.02101,"862,80.17 ",.01)
;;80.17
;;9002226.02101,"862,80.17 ",.02)
;;80.17
;;9002226.02101,"862,80.19 ",.01)
;;80.19
;;9002226.02101,"862,80.19 ",.02)
;;80.19
;;9002226.02101,"862,80.6 ",.01)
;;80.6
;;9002226.02101,"862,80.6 ",.02)
;;80.6
;;9002226.02101,"862,80.80 ",.01)
;;80.80
;;9002226.02101,"862,80.80 ",.02)
;;80.80
;;9002226.02101,"862,80.81 ",.01)
;;80.81
;;9002226.02101,"862,80.81 ",.02)
;;80.81
;;9002226.02101,"862,80.82 ",.01)
;;80.82
;;9002226.02101,"862,80.82 ",.02)
;;80.82
;;9002226.02101,"862,80.83 ",.01)
;;80.83
;;9002226.02101,"862,80.83 ",.02)
;;80.83
;;9002226.02101,"862,80.84 ",.01)
;;80.84
;;9002226.02101,"862,80.84 ",.02)
;;80.84
;;9002226.02101,"862,80.85 ",.01)
;;80.85
;;9002226.02101,"862,80.85 ",.02)
;;80.85
;;9002226.02101,"862,80.86 ",.01)
;;80.86
;;9002226.02101,"862,80.86 ",.02)
;;80.86
;;9002226.02101,"862,80.87 ",.01)
;;80.87
;;9002226.02101,"862,80.87 ",.02)
;;80.87
;;9002226.02101,"862,80.88 ",.01)
;;80.88
;;9002226.02101,"862,80.88 ",.02)
;;80.88
;;9002226.02101,"862,80.89 ",.01)
;;80.89
;;9002226.02101,"862,80.89 ",.02)
;;80.89
;;9002226.02101,"862,80.90 ",.01)
;;80.90
;;9002226.02101,"862,80.90 ",.02)
;;80.90
;;9002226.02101,"862,80.91 ",.01)
;;80.91
;;9002226.02101,"862,80.91 ",.02)
;;80.91
;;9002226.02101,"862,80.92 ",.01)
;;80.92
;;9002226.02101,"862,80.92 ",.02)
;;80.92
;;9002226.02101,"862,80.93 ",.01)
;;80.93
;;9002226.02101,"862,80.93 ",.02)
;;80.93
;;9002226.02101,"862,80.94 ",.01)
;;80.94
;;9002226.02101,"862,80.94 ",.02)
;;80.94
;;9002226.02101,"862,80.95 ",.01)
;;80.95
;;9002226.02101,"862,80.95 ",.02)
;;80.95
;;9002226.02101,"862,80.96 ",.01)
;;80.96
;;9002226.02101,"862,80.96 ",.02)
;;80.96
;;9002226.02101,"862,80.97 ",.01)
;;80.97
;;9002226.02101,"862,80.97 ",.02)
;;80.97
;;9002226.02101,"862,80.98 ",.01)
;;80.98
;;9002226.02101,"862,80.98 ",.02)
;;80.98
;;9002226.02101,"862,80.99 ",.01)
;;80.99
;;9002226.02101,"862,80.99 ",.02)
;;80.99
;;9002226.02101,"862,81.00 ",.01)
;;81.00
;;9002226.02101,"862,81.00 ",.02)
;;81.00
;;9002226.02101,"862,81.01 ",.01)
;;81.01
;;9002226.02101,"862,81.01 ",.02)
;;81.01
;;9002226.02101,"862,81.02 ",.01)
;;81.02
;;9002226.02101,"862,81.02 ",.02)
;;81.02
;;9002226.02101,"862,81.03 ",.01)
;;81.03
;;9002226.02101,"862,81.03 ",.02)
;;81.03
;;9002226.02101,"862,81.04 ",.01)
;;81.04
;;9002226.02101,"862,81.04 ",.02)
;;81.04
;;9002226.02101,"862,81.05 ",.01)
;;81.05
;;9002226.02101,"862,81.05 ",.02)
;;81.05
;;9002226.02101,"862,81.06 ",.01)
;;81.06
;;9002226.02101,"862,81.06 ",.02)
;;81.06
;;9002226.02101,"862,81.07 ",.01)
;;81.07
;;9002226.02101,"862,81.07 ",.02)
;;81.07
;;9002226.02101,"862,81.08 ",.01)
;;81.08
;;9002226.02101,"862,81.08 ",.02)
;;81.08
;;9002226.02101,"862,81.11 ",.01)
;;81.11
;;9002226.02101,"862,81.11 ",.02)
;;81.11
;;9002226.02101,"862,81.12 ",.01)
;;81.12
;;9002226.02101,"862,81.12 ",.02)
;;81.12
;;9002226.02101,"862,81.13 ",.01)
;;81.13
;;9002226.02101,"862,81.13 ",.02)
;;81.13
;;9002226.02101,"862,81.14 ",.01)
;;81.14
;;9002226.02101,"862,81.14 ",.02)
;;81.14
;;9002226.02101,"862,81.15 ",.01)
;;81.15
;;9002226.02101,"862,81.15 ",.02)
;;81.15
;;9002226.02101,"862,81.16 ",.01)
;;81.16
;;9002226.02101,"862,81.16 ",.02)
;;81.16
;;9002226.02101,"862,81.17 ",.01)
;;81.17
;;9002226.02101,"862,81.17 ",.02)
;;81.17
;;9002226.02101,"862,81.20 ",.01)
;;81.20
;;9002226.02101,"862,81.20 ",.02)
;;81.20
;;9002226.02101,"862,81.21 ",.01)
;;81.21
;;9002226.02101,"862,81.21 ",.02)
;;81.21
;;9002226.02101,"862,81.22 ",.01)
;;81.22
;;9002226.02101,"862,81.22 ",.02)
;;81.22
;;9002226.02101,"862,81.23 ",.01)
;;81.23
;;9002226.02101,"862,81.23 ",.02)
;;81.23
;;9002226.02101,"862,81.24 ",.01)
;;81.24
;;9002226.02101,"862,81.24 ",.02)
;;81.24
;;9002226.02101,"862,81.25 ",.01)
;;81.25
BGP9VXIW ; 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,80.04 ",.01)
+2 ;;80.04
+3 ;;9002226.02101,"862,80.04 ",.02)
+4 ;;80.04
+5 ;;9002226.02101,"862,80.05 ",.01)
+6 ;;80.05
+7 ;;9002226.02101,"862,80.05 ",.02)
+8 ;;80.05
+9 ;;9002226.02101,"862,80.06 ",.01)
+10 ;;80.06
+11 ;;9002226.02101,"862,80.06 ",.02)
+12 ;;80.06
+13 ;;9002226.02101,"862,80.07 ",.01)
+14 ;;80.07
+15 ;;9002226.02101,"862,80.07 ",.02)
+16 ;;80.07
+17 ;;9002226.02101,"862,80.09 ",.01)
+18 ;;80.09
+19 ;;9002226.02101,"862,80.09 ",.02)
+20 ;;80.09
+21 ;;9002226.02101,"862,80.10 ",.01)
+22 ;;80.10
+23 ;;9002226.02101,"862,80.10 ",.02)
+24 ;;80.10
+25 ;;9002226.02101,"862,80.11 ",.01)
+26 ;;80.11
+27 ;;9002226.02101,"862,80.11 ",.02)
+28 ;;80.11
+29 ;;9002226.02101,"862,80.12 ",.01)
+30 ;;80.12
+31 ;;9002226.02101,"862,80.12 ",.02)
+32 ;;80.12
+33 ;;9002226.02101,"862,80.13 ",.01)
+34 ;;80.13
+35 ;;9002226.02101,"862,80.13 ",.02)
+36 ;;80.13
+37 ;;9002226.02101,"862,80.15 ",.01)
+38 ;;80.15
+39 ;;9002226.02101,"862,80.15 ",.02)
+40 ;;80.15
+41 ;;9002226.02101,"862,80.16 ",.01)
+42 ;;80.16
+43 ;;9002226.02101,"862,80.16 ",.02)
+44 ;;80.16
+45 ;;9002226.02101,"862,80.17 ",.01)
+46 ;;80.17
+47 ;;9002226.02101,"862,80.17 ",.02)
+48 ;;80.17
+49 ;;9002226.02101,"862,80.19 ",.01)
+50 ;;80.19
+51 ;;9002226.02101,"862,80.19 ",.02)
+52 ;;80.19
+53 ;;9002226.02101,"862,80.6 ",.01)
+54 ;;80.6
+55 ;;9002226.02101,"862,80.6 ",.02)
+56 ;;80.6
+57 ;;9002226.02101,"862,80.80 ",.01)
+58 ;;80.80
+59 ;;9002226.02101,"862,80.80 ",.02)
+60 ;;80.80
+61 ;;9002226.02101,"862,80.81 ",.01)
+62 ;;80.81
+63 ;;9002226.02101,"862,80.81 ",.02)
+64 ;;80.81
+65 ;;9002226.02101,"862,80.82 ",.01)
+66 ;;80.82
+67 ;;9002226.02101,"862,80.82 ",.02)
+68 ;;80.82
+69 ;;9002226.02101,"862,80.83 ",.01)
+70 ;;80.83
+71 ;;9002226.02101,"862,80.83 ",.02)
+72 ;;80.83
+73 ;;9002226.02101,"862,80.84 ",.01)
+74 ;;80.84
+75 ;;9002226.02101,"862,80.84 ",.02)
+76 ;;80.84
+77 ;;9002226.02101,"862,80.85 ",.01)
+78 ;;80.85
+79 ;;9002226.02101,"862,80.85 ",.02)
+80 ;;80.85
+81 ;;9002226.02101,"862,80.86 ",.01)
+82 ;;80.86
+83 ;;9002226.02101,"862,80.86 ",.02)
+84 ;;80.86
+85 ;;9002226.02101,"862,80.87 ",.01)
+86 ;;80.87
+87 ;;9002226.02101,"862,80.87 ",.02)
+88 ;;80.87
+89 ;;9002226.02101,"862,80.88 ",.01)
+90 ;;80.88
+91 ;;9002226.02101,"862,80.88 ",.02)
+92 ;;80.88
+93 ;;9002226.02101,"862,80.89 ",.01)
+94 ;;80.89
+95 ;;9002226.02101,"862,80.89 ",.02)
+96 ;;80.89
+97 ;;9002226.02101,"862,80.90 ",.01)
+98 ;;80.90
+99 ;;9002226.02101,"862,80.90 ",.02)
+100 ;;80.90
+101 ;;9002226.02101,"862,80.91 ",.01)
+102 ;;80.91
+103 ;;9002226.02101,"862,80.91 ",.02)
+104 ;;80.91
+105 ;;9002226.02101,"862,80.92 ",.01)
+106 ;;80.92
+107 ;;9002226.02101,"862,80.92 ",.02)
+108 ;;80.92
+109 ;;9002226.02101,"862,80.93 ",.01)
+110 ;;80.93
+111 ;;9002226.02101,"862,80.93 ",.02)
+112 ;;80.93
+113 ;;9002226.02101,"862,80.94 ",.01)
+114 ;;80.94
+115 ;;9002226.02101,"862,80.94 ",.02)
+116 ;;80.94
+117 ;;9002226.02101,"862,80.95 ",.01)
+118 ;;80.95
+119 ;;9002226.02101,"862,80.95 ",.02)
+120 ;;80.95
+121 ;;9002226.02101,"862,80.96 ",.01)
+122 ;;80.96
+123 ;;9002226.02101,"862,80.96 ",.02)
+124 ;;80.96
+125 ;;9002226.02101,"862,80.97 ",.01)
+126 ;;80.97
+127 ;;9002226.02101,"862,80.97 ",.02)
+128 ;;80.97
+129 ;;9002226.02101,"862,80.98 ",.01)
+130 ;;80.98
+131 ;;9002226.02101,"862,80.98 ",.02)
+132 ;;80.98
+133 ;;9002226.02101,"862,80.99 ",.01)
+134 ;;80.99
+135 ;;9002226.02101,"862,80.99 ",.02)
+136 ;;80.99
+137 ;;9002226.02101,"862,81.00 ",.01)
+138 ;;81.00
+139 ;;9002226.02101,"862,81.00 ",.02)
+140 ;;81.00
+141 ;;9002226.02101,"862,81.01 ",.01)
+142 ;;81.01
+143 ;;9002226.02101,"862,81.01 ",.02)
+144 ;;81.01
+145 ;;9002226.02101,"862,81.02 ",.01)
+146 ;;81.02
+147 ;;9002226.02101,"862,81.02 ",.02)
+148 ;;81.02
+149 ;;9002226.02101,"862,81.03 ",.01)
+150 ;;81.03
+151 ;;9002226.02101,"862,81.03 ",.02)
+152 ;;81.03
+153 ;;9002226.02101,"862,81.04 ",.01)
+154 ;;81.04
+155 ;;9002226.02101,"862,81.04 ",.02)
+156 ;;81.04
+157 ;;9002226.02101,"862,81.05 ",.01)
+158 ;;81.05
+159 ;;9002226.02101,"862,81.05 ",.02)
+160 ;;81.05
+161 ;;9002226.02101,"862,81.06 ",.01)
+162 ;;81.06
+163 ;;9002226.02101,"862,81.06 ",.02)
+164 ;;81.06
+165 ;;9002226.02101,"862,81.07 ",.01)
+166 ;;81.07
+167 ;;9002226.02101,"862,81.07 ",.02)
+168 ;;81.07
+169 ;;9002226.02101,"862,81.08 ",.01)
+170 ;;81.08
+171 ;;9002226.02101,"862,81.08 ",.02)
+172 ;;81.08
+173 ;;9002226.02101,"862,81.11 ",.01)
+174 ;;81.11
+175 ;;9002226.02101,"862,81.11 ",.02)
+176 ;;81.11
+177 ;;9002226.02101,"862,81.12 ",.01)
+178 ;;81.12
+179 ;;9002226.02101,"862,81.12 ",.02)
+180 ;;81.12
+181 ;;9002226.02101,"862,81.13 ",.01)
+182 ;;81.13
+183 ;;9002226.02101,"862,81.13 ",.02)
+184 ;;81.13
+185 ;;9002226.02101,"862,81.14 ",.01)
+186 ;;81.14
+187 ;;9002226.02101,"862,81.14 ",.02)
+188 ;;81.14
+189 ;;9002226.02101,"862,81.15 ",.01)
+190 ;;81.15
+191 ;;9002226.02101,"862,81.15 ",.02)
+192 ;;81.15
+193 ;;9002226.02101,"862,81.16 ",.01)
+194 ;;81.16
+195 ;;9002226.02101,"862,81.16 ",.02)
+196 ;;81.16
+197 ;;9002226.02101,"862,81.17 ",.01)
+198 ;;81.17
+199 ;;9002226.02101,"862,81.17 ",.02)
+200 ;;81.17
+201 ;;9002226.02101,"862,81.20 ",.01)
+202 ;;81.20
+203 ;;9002226.02101,"862,81.20 ",.02)
+204 ;;81.20
+205 ;;9002226.02101,"862,81.21 ",.01)
+206 ;;81.21
+207 ;;9002226.02101,"862,81.21 ",.02)
+208 ;;81.21
+209 ;;9002226.02101,"862,81.22 ",.01)
+210 ;;81.22
+211 ;;9002226.02101,"862,81.22 ",.02)
+212 ;;81.22
+213 ;;9002226.02101,"862,81.23 ",.01)
+214 ;;81.23
+215 ;;9002226.02101,"862,81.23 ",.02)
+216 ;;81.23
+217 ;;9002226.02101,"862,81.24 ",.01)
+218 ;;81.24
+219 ;;9002226.02101,"862,81.24 ",.02)
+220 ;;81.24
+221 ;;9002226.02101,"862,81.25 ",.01)
+222 ;;81.25
