BGP9VXIR ; 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,54.73 ",.02)
;;54.73
;;9002226.02101,"862,54.74 ",.01)
;;54.74
;;9002226.02101,"862,54.74 ",.02)
;;54.74
;;9002226.02101,"862,54.75 ",.01)
;;54.75
;;9002226.02101,"862,54.75 ",.02)
;;54.75
;;9002226.02101,"862,54.92 ",.01)
;;54.92
;;9002226.02101,"862,54.92 ",.02)
;;54.92
;;9002226.02101,"862,54.94 ",.01)
;;54.94
;;9002226.02101,"862,54.94 ",.02)
;;54.94
;;9002226.02101,"862,54.95 ",.01)
;;54.95
;;9002226.02101,"862,54.95 ",.02)
;;54.95
;;9002226.02101,"862,55.01 ",.01)
;;55.01
;;9002226.02101,"862,55.01 ",.02)
;;55.01
;;9002226.02101,"862,55.02 ",.01)
;;55.02
;;9002226.02101,"862,55.02 ",.02)
;;55.02
;;9002226.02101,"862,55.11 ",.01)
;;55.11
;;9002226.02101,"862,55.11 ",.02)
;;55.11
;;9002226.02101,"862,55.12 ",.01)
;;55.12
;;9002226.02101,"862,55.12 ",.02)
;;55.12
;;9002226.02101,"862,55.32 ",.01)
;;55.32
;;9002226.02101,"862,55.32 ",.02)
;;55.32
;;9002226.02101,"862,55.34 ",.01)
;;55.34
;;9002226.02101,"862,55.34 ",.02)
;;55.34
;;9002226.02101,"862,55.35 ",.01)
;;55.35
;;9002226.02101,"862,55.35 ",.02)
;;55.35
;;9002226.02101,"862,55.4 ",.01)
;;55.4
;;9002226.02101,"862,55.4 ",.02)
;;55.4
;;9002226.02101,"862,55.51 ",.01)
;;55.51
;;9002226.02101,"862,55.51 ",.02)
;;55.51
;;9002226.02101,"862,55.52 ",.01)
;;55.52
;;9002226.02101,"862,55.52 ",.02)
;;55.52
;;9002226.02101,"862,55.53 ",.01)
;;55.53
;;9002226.02101,"862,55.53 ",.02)
;;55.53
;;9002226.02101,"862,55.54 ",.01)
;;55.54
;;9002226.02101,"862,55.54 ",.02)
;;55.54
;;9002226.02101,"862,55.61 ",.01)
;;55.61
;;9002226.02101,"862,55.61 ",.02)
;;55.61
;;9002226.02101,"862,55.69 ",.01)
;;55.69
;;9002226.02101,"862,55.69 ",.02)
;;55.69
;;9002226.02101,"862,55.7 ",.01)
;;55.7
;;9002226.02101,"862,55.7 ",.02)
;;55.7
;;9002226.02101,"862,55.81 ",.01)
;;55.81
;;9002226.02101,"862,55.81 ",.02)
;;55.81
;;9002226.02101,"862,55.82 ",.01)
;;55.82
;;9002226.02101,"862,55.82 ",.02)
;;55.82
;;9002226.02101,"862,55.83 ",.01)
;;55.83
;;9002226.02101,"862,55.83 ",.02)
;;55.83
;;9002226.02101,"862,55.84 ",.01)
;;55.84
;;9002226.02101,"862,55.84 ",.02)
;;55.84
;;9002226.02101,"862,55.85 ",.01)
;;55.85
;;9002226.02101,"862,55.85 ",.02)
;;55.85
;;9002226.02101,"862,55.86 ",.01)
;;55.86
;;9002226.02101,"862,55.86 ",.02)
;;55.86
;;9002226.02101,"862,55.87 ",.01)
;;55.87
;;9002226.02101,"862,55.87 ",.02)
;;55.87
;;9002226.02101,"862,55.91 ",.01)
;;55.91
;;9002226.02101,"862,55.91 ",.02)
;;55.91
;;9002226.02101,"862,55.97 ",.01)
;;55.97
;;9002226.02101,"862,55.97 ",.02)
;;55.97
;;9002226.02101,"862,55.98 ",.01)
;;55.98
;;9002226.02101,"862,55.98 ",.02)
;;55.98
;;9002226.02101,"862,55.99 ",.01)
;;55.99
;;9002226.02101,"862,55.99 ",.02)
;;55.99
;;9002226.02101,"862,56.40 ",.01)
;;56.40
;;9002226.02101,"862,56.40 ",.02)
;;56.40
;;9002226.02101,"862,56.41 ",.01)
;;56.41
;;9002226.02101,"862,56.41 ",.02)
;;56.41
;;9002226.02101,"862,56.42 ",.01)
;;56.42
;;9002226.02101,"862,56.42 ",.02)
;;56.42
;;9002226.02101,"862,56.51 ",.01)
;;56.51
;;9002226.02101,"862,56.51 ",.02)
;;56.51
;;9002226.02101,"862,56.52 ",.01)
;;56.52
;;9002226.02101,"862,56.52 ",.02)
;;56.52
;;9002226.02101,"862,56.61 ",.01)
;;56.61
;;9002226.02101,"862,56.61 ",.02)
;;56.61
;;9002226.02101,"862,56.62 ",.01)
;;56.62
;;9002226.02101,"862,56.62 ",.02)
;;56.62
;;9002226.02101,"862,56.71 ",.01)
;;56.71
;;9002226.02101,"862,56.71 ",.02)
;;56.71
;;9002226.02101,"862,56.72 ",.01)
;;56.72
;;9002226.02101,"862,56.72 ",.02)
;;56.72
;;9002226.02101,"862,56.73 ",.01)
;;56.73
;;9002226.02101,"862,56.73 ",.02)
;;56.73
;;9002226.02101,"862,56.74 ",.01)
;;56.74
;;9002226.02101,"862,56.74 ",.02)
;;56.74
;;9002226.02101,"862,56.75 ",.01)
;;56.75
;;9002226.02101,"862,56.75 ",.02)
;;56.75
;;9002226.02101,"862,56.79 ",.01)
;;56.79
;;9002226.02101,"862,56.79 ",.02)
;;56.79
;;9002226.02101,"862,56.81 ",.01)
;;56.81
;;9002226.02101,"862,56.81 ",.02)
;;56.81
;;9002226.02101,"862,56.82 ",.01)
;;56.82
;;9002226.02101,"862,56.82 ",.02)
;;56.82
;;9002226.02101,"862,56.83 ",.01)
;;56.83
;;9002226.02101,"862,56.83 ",.02)
;;56.83
;;9002226.02101,"862,56.84 ",.01)
;;56.84
;;9002226.02101,"862,56.84 ",.02)
;;56.84
;;9002226.02101,"862,56.85 ",.01)
;;56.85
;;9002226.02101,"862,56.85 ",.02)
;;56.85
;;9002226.02101,"862,56.86 ",.01)
;;56.86
;;9002226.02101,"862,56.86 ",.02)
;;56.86
;;9002226.02101,"862,56.89 ",.01)
;;56.89
;;9002226.02101,"862,56.89 ",.02)
;;56.89
;;9002226.02101,"862,56.95 ",.01)
;;56.95
;;9002226.02101,"862,56.95 ",.02)
;;56.95
;;9002226.02101,"862,56.99 ",.01)
;;56.99
;;9002226.02101,"862,56.99 ",.02)
;;56.99
;;9002226.02101,"862,57.12 ",.01)
;;57.12
;;9002226.02101,"862,57.12 ",.02)
;;57.12
;;9002226.02101,"862,57.18 ",.01)
;;57.18
;;9002226.02101,"862,57.18 ",.02)
;;57.18
BGP9VXIR ; 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,54.73 ",.02)
+2 ;;54.73
+3 ;;9002226.02101,"862,54.74 ",.01)
+4 ;;54.74
+5 ;;9002226.02101,"862,54.74 ",.02)
+6 ;;54.74
+7 ;;9002226.02101,"862,54.75 ",.01)
+8 ;;54.75
+9 ;;9002226.02101,"862,54.75 ",.02)
+10 ;;54.75
+11 ;;9002226.02101,"862,54.92 ",.01)
+12 ;;54.92
+13 ;;9002226.02101,"862,54.92 ",.02)
+14 ;;54.92
+15 ;;9002226.02101,"862,54.94 ",.01)
+16 ;;54.94
+17 ;;9002226.02101,"862,54.94 ",.02)
+18 ;;54.94
+19 ;;9002226.02101,"862,54.95 ",.01)
+20 ;;54.95
+21 ;;9002226.02101,"862,54.95 ",.02)
+22 ;;54.95
+23 ;;9002226.02101,"862,55.01 ",.01)
+24 ;;55.01
+25 ;;9002226.02101,"862,55.01 ",.02)
+26 ;;55.01
+27 ;;9002226.02101,"862,55.02 ",.01)
+28 ;;55.02
+29 ;;9002226.02101,"862,55.02 ",.02)
+30 ;;55.02
+31 ;;9002226.02101,"862,55.11 ",.01)
+32 ;;55.11
+33 ;;9002226.02101,"862,55.11 ",.02)
+34 ;;55.11
+35 ;;9002226.02101,"862,55.12 ",.01)
+36 ;;55.12
+37 ;;9002226.02101,"862,55.12 ",.02)
+38 ;;55.12
+39 ;;9002226.02101,"862,55.32 ",.01)
+40 ;;55.32
+41 ;;9002226.02101,"862,55.32 ",.02)
+42 ;;55.32
+43 ;;9002226.02101,"862,55.34 ",.01)
+44 ;;55.34
+45 ;;9002226.02101,"862,55.34 ",.02)
+46 ;;55.34
+47 ;;9002226.02101,"862,55.35 ",.01)
+48 ;;55.35
+49 ;;9002226.02101,"862,55.35 ",.02)
+50 ;;55.35
+51 ;;9002226.02101,"862,55.4 ",.01)
+52 ;;55.4
+53 ;;9002226.02101,"862,55.4 ",.02)
+54 ;;55.4
+55 ;;9002226.02101,"862,55.51 ",.01)
+56 ;;55.51
+57 ;;9002226.02101,"862,55.51 ",.02)
+58 ;;55.51
+59 ;;9002226.02101,"862,55.52 ",.01)
+60 ;;55.52
+61 ;;9002226.02101,"862,55.52 ",.02)
+62 ;;55.52
+63 ;;9002226.02101,"862,55.53 ",.01)
+64 ;;55.53
+65 ;;9002226.02101,"862,55.53 ",.02)
+66 ;;55.53
+67 ;;9002226.02101,"862,55.54 ",.01)
+68 ;;55.54
+69 ;;9002226.02101,"862,55.54 ",.02)
+70 ;;55.54
+71 ;;9002226.02101,"862,55.61 ",.01)
+72 ;;55.61
+73 ;;9002226.02101,"862,55.61 ",.02)
+74 ;;55.61
+75 ;;9002226.02101,"862,55.69 ",.01)
+76 ;;55.69
+77 ;;9002226.02101,"862,55.69 ",.02)
+78 ;;55.69
+79 ;;9002226.02101,"862,55.7 ",.01)
+80 ;;55.7
+81 ;;9002226.02101,"862,55.7 ",.02)
+82 ;;55.7
+83 ;;9002226.02101,"862,55.81 ",.01)
+84 ;;55.81
+85 ;;9002226.02101,"862,55.81 ",.02)
+86 ;;55.81
+87 ;;9002226.02101,"862,55.82 ",.01)
+88 ;;55.82
+89 ;;9002226.02101,"862,55.82 ",.02)
+90 ;;55.82
+91 ;;9002226.02101,"862,55.83 ",.01)
+92 ;;55.83
+93 ;;9002226.02101,"862,55.83 ",.02)
+94 ;;55.83
+95 ;;9002226.02101,"862,55.84 ",.01)
+96 ;;55.84
+97 ;;9002226.02101,"862,55.84 ",.02)
+98 ;;55.84
+99 ;;9002226.02101,"862,55.85 ",.01)
+100 ;;55.85
+101 ;;9002226.02101,"862,55.85 ",.02)
+102 ;;55.85
+103 ;;9002226.02101,"862,55.86 ",.01)
+104 ;;55.86
+105 ;;9002226.02101,"862,55.86 ",.02)
+106 ;;55.86
+107 ;;9002226.02101,"862,55.87 ",.01)
+108 ;;55.87
+109 ;;9002226.02101,"862,55.87 ",.02)
+110 ;;55.87
+111 ;;9002226.02101,"862,55.91 ",.01)
+112 ;;55.91
+113 ;;9002226.02101,"862,55.91 ",.02)
+114 ;;55.91
+115 ;;9002226.02101,"862,55.97 ",.01)
+116 ;;55.97
+117 ;;9002226.02101,"862,55.97 ",.02)
+118 ;;55.97
+119 ;;9002226.02101,"862,55.98 ",.01)
+120 ;;55.98
+121 ;;9002226.02101,"862,55.98 ",.02)
+122 ;;55.98
+123 ;;9002226.02101,"862,55.99 ",.01)
+124 ;;55.99
+125 ;;9002226.02101,"862,55.99 ",.02)
+126 ;;55.99
+127 ;;9002226.02101,"862,56.40 ",.01)
+128 ;;56.40
+129 ;;9002226.02101,"862,56.40 ",.02)
+130 ;;56.40
+131 ;;9002226.02101,"862,56.41 ",.01)
+132 ;;56.41
+133 ;;9002226.02101,"862,56.41 ",.02)
+134 ;;56.41
+135 ;;9002226.02101,"862,56.42 ",.01)
+136 ;;56.42
+137 ;;9002226.02101,"862,56.42 ",.02)
+138 ;;56.42
+139 ;;9002226.02101,"862,56.51 ",.01)
+140 ;;56.51
+141 ;;9002226.02101,"862,56.51 ",.02)
+142 ;;56.51
+143 ;;9002226.02101,"862,56.52 ",.01)
+144 ;;56.52
+145 ;;9002226.02101,"862,56.52 ",.02)
+146 ;;56.52
+147 ;;9002226.02101,"862,56.61 ",.01)
+148 ;;56.61
+149 ;;9002226.02101,"862,56.61 ",.02)
+150 ;;56.61
+151 ;;9002226.02101,"862,56.62 ",.01)
+152 ;;56.62
+153 ;;9002226.02101,"862,56.62 ",.02)
+154 ;;56.62
+155 ;;9002226.02101,"862,56.71 ",.01)
+156 ;;56.71
+157 ;;9002226.02101,"862,56.71 ",.02)
+158 ;;56.71
+159 ;;9002226.02101,"862,56.72 ",.01)
+160 ;;56.72
+161 ;;9002226.02101,"862,56.72 ",.02)
+162 ;;56.72
+163 ;;9002226.02101,"862,56.73 ",.01)
+164 ;;56.73
+165 ;;9002226.02101,"862,56.73 ",.02)
+166 ;;56.73
+167 ;;9002226.02101,"862,56.74 ",.01)
+168 ;;56.74
+169 ;;9002226.02101,"862,56.74 ",.02)
+170 ;;56.74
+171 ;;9002226.02101,"862,56.75 ",.01)
+172 ;;56.75
+173 ;;9002226.02101,"862,56.75 ",.02)
+174 ;;56.75
+175 ;;9002226.02101,"862,56.79 ",.01)
+176 ;;56.79
+177 ;;9002226.02101,"862,56.79 ",.02)
+178 ;;56.79
+179 ;;9002226.02101,"862,56.81 ",.01)
+180 ;;56.81
+181 ;;9002226.02101,"862,56.81 ",.02)
+182 ;;56.81
+183 ;;9002226.02101,"862,56.82 ",.01)
+184 ;;56.82
+185 ;;9002226.02101,"862,56.82 ",.02)
+186 ;;56.82
+187 ;;9002226.02101,"862,56.83 ",.01)
+188 ;;56.83
+189 ;;9002226.02101,"862,56.83 ",.02)
+190 ;;56.83
+191 ;;9002226.02101,"862,56.84 ",.01)
+192 ;;56.84
+193 ;;9002226.02101,"862,56.84 ",.02)
+194 ;;56.84
+195 ;;9002226.02101,"862,56.85 ",.01)
+196 ;;56.85
+197 ;;9002226.02101,"862,56.85 ",.02)
+198 ;;56.85
+199 ;;9002226.02101,"862,56.86 ",.01)
+200 ;;56.86
+201 ;;9002226.02101,"862,56.86 ",.02)
+202 ;;56.86
+203 ;;9002226.02101,"862,56.89 ",.01)
+204 ;;56.89
+205 ;;9002226.02101,"862,56.89 ",.02)
+206 ;;56.89
+207 ;;9002226.02101,"862,56.95 ",.01)
+208 ;;56.95
+209 ;;9002226.02101,"862,56.95 ",.02)
+210 ;;56.95
+211 ;;9002226.02101,"862,56.99 ",.01)
+212 ;;56.99
+213 ;;9002226.02101,"862,56.99 ",.02)
+214 ;;56.99
+215 ;;9002226.02101,"862,57.12 ",.01)
+216 ;;57.12
+217 ;;9002226.02101,"862,57.12 ",.02)
+218 ;;57.12
+219 ;;9002226.02101,"862,57.18 ",.01)
+220 ;;57.18
+221 ;;9002226.02101,"862,57.18 ",.02)
+222 ;;57.18
