BGP9VXDS ; 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,"858,098.59 ",.02)
;;098.59
;;9002226.02101,"858,098.6 ",.01)
;;098.6
;;9002226.02101,"858,098.6 ",.02)
;;098.6
;;9002226.02101,"858,098.7 ",.01)
;;098.7
;;9002226.02101,"858,098.7 ",.02)
;;098.7
;;9002226.02101,"858,098.81 ",.01)
;;098.81
;;9002226.02101,"858,098.81 ",.02)
;;098.81
;;9002226.02101,"858,098.82 ",.01)
;;098.82
;;9002226.02101,"858,098.82 ",.02)
;;098.82
;;9002226.02101,"858,098.83 ",.01)
;;098.83
;;9002226.02101,"858,098.83 ",.02)
;;098.83
;;9002226.02101,"858,098.84 ",.01)
;;098.84
;;9002226.02101,"858,098.84 ",.02)
;;098.84
;;9002226.02101,"858,098.85 ",.01)
;;098.85
;;9002226.02101,"858,098.85 ",.02)
;;098.85
;;9002226.02101,"858,098.86 ",.01)
;;098.86
;;9002226.02101,"858,098.86 ",.02)
;;098.86
;;9002226.02101,"858,098.89 ",.01)
;;098.89
;;9002226.02101,"858,098.89 ",.02)
;;098.89
;;9002226.02101,"858,099.0 ",.01)
;;099.0
;;9002226.02101,"858,099.0 ",.02)
;;099.0
;;9002226.02101,"858,099.1 ",.01)
;;099.1
;;9002226.02101,"858,099.1 ",.02)
;;099.1
;;9002226.02101,"858,099.2 ",.01)
;;099.2
;;9002226.02101,"858,099.2 ",.02)
;;099.2
;;9002226.02101,"858,099.3 ",.01)
;;099.3
;;9002226.02101,"858,099.3 ",.02)
;;099.3
;;9002226.02101,"858,099.40 ",.01)
;;099.40
;;9002226.02101,"858,099.40 ",.02)
;;099.40
;;9002226.02101,"858,099.41 ",.01)
;;099.41
;;9002226.02101,"858,099.41 ",.02)
;;099.41
;;9002226.02101,"858,099.49 ",.01)
;;099.49
;;9002226.02101,"858,099.49 ",.02)
;;099.49
;;9002226.02101,"858,099.50 ",.01)
;;099.50
;;9002226.02101,"858,099.50 ",.02)
;;099.50
;;9002226.02101,"858,099.51 ",.01)
;;099.51
;;9002226.02101,"858,099.51 ",.02)
;;099.51
;;9002226.02101,"858,099.52 ",.01)
;;099.52
;;9002226.02101,"858,099.52 ",.02)
;;099.52
;;9002226.02101,"858,099.53 ",.01)
;;099.53
;;9002226.02101,"858,099.53 ",.02)
;;099.53
;;9002226.02101,"858,099.54 ",.01)
;;099.54
;;9002226.02101,"858,099.54 ",.02)
;;099.54
;;9002226.02101,"858,099.55 ",.01)
;;099.55
;;9002226.02101,"858,099.55 ",.02)
;;099.55
;;9002226.02101,"858,099.56 ",.01)
;;099.56
;;9002226.02101,"858,099.56 ",.02)
;;099.56
;;9002226.02101,"858,099.59 ",.01)
;;099.59
;;9002226.02101,"858,099.59 ",.02)
;;099.59
;;9002226.02101,"858,099.8 ",.01)
;;099.8
;;9002226.02101,"858,099.8 ",.02)
;;099.8
;;9002226.02101,"858,099.9 ",.01)
;;099.9
;;9002226.02101,"858,099.9 ",.02)
;;099.9
;;9002226.02101,"858,100.0 ",.01)
;;100.0
;;9002226.02101,"858,100.0 ",.02)
;;100.0
;;9002226.02101,"858,100.81 ",.01)
;;100.81
;;9002226.02101,"858,100.81 ",.02)
;;100.81
;;9002226.02101,"858,100.89 ",.01)
;;100.89
;;9002226.02101,"858,100.89 ",.02)
;;100.89
;;9002226.02101,"858,100.9 ",.01)
;;100.9
;;9002226.02101,"858,100.9 ",.02)
;;100.9
;;9002226.02101,"858,101 ",.01)
;;101
;;9002226.02101,"858,101 ",.02)
;;101
;;9002226.02101,"858,102.0 ",.01)
;;102.0
;;9002226.02101,"858,102.0 ",.02)
;;102.0
;;9002226.02101,"858,102.1 ",.01)
;;102.1
;;9002226.02101,"858,102.1 ",.02)
;;102.1
;;9002226.02101,"858,102.2 ",.01)
;;102.2
;;9002226.02101,"858,102.2 ",.02)
;;102.2
;;9002226.02101,"858,102.3 ",.01)
;;102.3
;;9002226.02101,"858,102.3 ",.02)
;;102.3
;;9002226.02101,"858,102.4 ",.01)
;;102.4
;;9002226.02101,"858,102.4 ",.02)
;;102.4
;;9002226.02101,"858,102.5 ",.01)
;;102.5
;;9002226.02101,"858,102.5 ",.02)
;;102.5
;;9002226.02101,"858,102.6 ",.01)
;;102.6
;;9002226.02101,"858,102.6 ",.02)
;;102.6
;;9002226.02101,"858,102.7 ",.01)
;;102.7
;;9002226.02101,"858,102.7 ",.02)
;;102.7
;;9002226.02101,"858,102.8 ",.01)
;;102.8
;;9002226.02101,"858,102.8 ",.02)
;;102.8
;;9002226.02101,"858,102.9 ",.01)
;;102.9
;;9002226.02101,"858,102.9 ",.02)
;;102.9
;;9002226.02101,"858,103.0 ",.01)
;;103.0
;;9002226.02101,"858,103.0 ",.02)
;;103.0
;;9002226.02101,"858,103.1 ",.01)
;;103.1
;;9002226.02101,"858,103.1 ",.02)
;;103.1
;;9002226.02101,"858,103.2 ",.01)
;;103.2
;;9002226.02101,"858,103.2 ",.02)
;;103.2
;;9002226.02101,"858,103.3 ",.01)
;;103.3
;;9002226.02101,"858,103.3 ",.02)
;;103.3
;;9002226.02101,"858,103.9 ",.01)
;;103.9
;;9002226.02101,"858,103.9 ",.02)
;;103.9
;;9002226.02101,"858,104.0 ",.01)
;;104.0
;;9002226.02101,"858,104.0 ",.02)
;;104.0
;;9002226.02101,"858,104.8 ",.01)
;;104.8
;;9002226.02101,"858,104.8 ",.02)
;;104.8
;;9002226.02101,"858,104.9 ",.01)
;;104.9
;;9002226.02101,"858,104.9 ",.02)
;;104.9
;;9002226.02101,"858,110.0 ",.01)
;;110.0
;;9002226.02101,"858,110.0 ",.02)
;;110.0
;;9002226.02101,"858,110.1 ",.01)
;;110.1
;;9002226.02101,"858,110.1 ",.02)
;;110.1
;;9002226.02101,"858,110.2 ",.01)
;;110.2
;;9002226.02101,"858,110.2 ",.02)
;;110.2
;;9002226.02101,"858,110.3 ",.01)
;;110.3
;;9002226.02101,"858,110.3 ",.02)
;;110.3
;;9002226.02101,"858,110.4 ",.01)
;;110.4
;;9002226.02101,"858,110.4 ",.02)
;;110.4
;;9002226.02101,"858,110.5 ",.01)
;;110.5
BGP9VXDS ; 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,"858,098.59 ",.02)
+2 ;;098.59
+3 ;;9002226.02101,"858,098.6 ",.01)
+4 ;;098.6
+5 ;;9002226.02101,"858,098.6 ",.02)
+6 ;;098.6
+7 ;;9002226.02101,"858,098.7 ",.01)
+8 ;;098.7
+9 ;;9002226.02101,"858,098.7 ",.02)
+10 ;;098.7
+11 ;;9002226.02101,"858,098.81 ",.01)
+12 ;;098.81
+13 ;;9002226.02101,"858,098.81 ",.02)
+14 ;;098.81
+15 ;;9002226.02101,"858,098.82 ",.01)
+16 ;;098.82
+17 ;;9002226.02101,"858,098.82 ",.02)
+18 ;;098.82
+19 ;;9002226.02101,"858,098.83 ",.01)
+20 ;;098.83
+21 ;;9002226.02101,"858,098.83 ",.02)
+22 ;;098.83
+23 ;;9002226.02101,"858,098.84 ",.01)
+24 ;;098.84
+25 ;;9002226.02101,"858,098.84 ",.02)
+26 ;;098.84
+27 ;;9002226.02101,"858,098.85 ",.01)
+28 ;;098.85
+29 ;;9002226.02101,"858,098.85 ",.02)
+30 ;;098.85
+31 ;;9002226.02101,"858,098.86 ",.01)
+32 ;;098.86
+33 ;;9002226.02101,"858,098.86 ",.02)
+34 ;;098.86
+35 ;;9002226.02101,"858,098.89 ",.01)
+36 ;;098.89
+37 ;;9002226.02101,"858,098.89 ",.02)
+38 ;;098.89
+39 ;;9002226.02101,"858,099.0 ",.01)
+40 ;;099.0
+41 ;;9002226.02101,"858,099.0 ",.02)
+42 ;;099.0
+43 ;;9002226.02101,"858,099.1 ",.01)
+44 ;;099.1
+45 ;;9002226.02101,"858,099.1 ",.02)
+46 ;;099.1
+47 ;;9002226.02101,"858,099.2 ",.01)
+48 ;;099.2
+49 ;;9002226.02101,"858,099.2 ",.02)
+50 ;;099.2
+51 ;;9002226.02101,"858,099.3 ",.01)
+52 ;;099.3
+53 ;;9002226.02101,"858,099.3 ",.02)
+54 ;;099.3
+55 ;;9002226.02101,"858,099.40 ",.01)
+56 ;;099.40
+57 ;;9002226.02101,"858,099.40 ",.02)
+58 ;;099.40
+59 ;;9002226.02101,"858,099.41 ",.01)
+60 ;;099.41
+61 ;;9002226.02101,"858,099.41 ",.02)
+62 ;;099.41
+63 ;;9002226.02101,"858,099.49 ",.01)
+64 ;;099.49
+65 ;;9002226.02101,"858,099.49 ",.02)
+66 ;;099.49
+67 ;;9002226.02101,"858,099.50 ",.01)
+68 ;;099.50
+69 ;;9002226.02101,"858,099.50 ",.02)
+70 ;;099.50
+71 ;;9002226.02101,"858,099.51 ",.01)
+72 ;;099.51
+73 ;;9002226.02101,"858,099.51 ",.02)
+74 ;;099.51
+75 ;;9002226.02101,"858,099.52 ",.01)
+76 ;;099.52
+77 ;;9002226.02101,"858,099.52 ",.02)
+78 ;;099.52
+79 ;;9002226.02101,"858,099.53 ",.01)
+80 ;;099.53
+81 ;;9002226.02101,"858,099.53 ",.02)
+82 ;;099.53
+83 ;;9002226.02101,"858,099.54 ",.01)
+84 ;;099.54
+85 ;;9002226.02101,"858,099.54 ",.02)
+86 ;;099.54
+87 ;;9002226.02101,"858,099.55 ",.01)
+88 ;;099.55
+89 ;;9002226.02101,"858,099.55 ",.02)
+90 ;;099.55
+91 ;;9002226.02101,"858,099.56 ",.01)
+92 ;;099.56
+93 ;;9002226.02101,"858,099.56 ",.02)
+94 ;;099.56
+95 ;;9002226.02101,"858,099.59 ",.01)
+96 ;;099.59
+97 ;;9002226.02101,"858,099.59 ",.02)
+98 ;;099.59
+99 ;;9002226.02101,"858,099.8 ",.01)
+100 ;;099.8
+101 ;;9002226.02101,"858,099.8 ",.02)
+102 ;;099.8
+103 ;;9002226.02101,"858,099.9 ",.01)
+104 ;;099.9
+105 ;;9002226.02101,"858,099.9 ",.02)
+106 ;;099.9
+107 ;;9002226.02101,"858,100.0 ",.01)
+108 ;;100.0
+109 ;;9002226.02101,"858,100.0 ",.02)
+110 ;;100.0
+111 ;;9002226.02101,"858,100.81 ",.01)
+112 ;;100.81
+113 ;;9002226.02101,"858,100.81 ",.02)
+114 ;;100.81
+115 ;;9002226.02101,"858,100.89 ",.01)
+116 ;;100.89
+117 ;;9002226.02101,"858,100.89 ",.02)
+118 ;;100.89
+119 ;;9002226.02101,"858,100.9 ",.01)
+120 ;;100.9
+121 ;;9002226.02101,"858,100.9 ",.02)
+122 ;;100.9
+123 ;;9002226.02101,"858,101 ",.01)
+124 ;;101
+125 ;;9002226.02101,"858,101 ",.02)
+126 ;;101
+127 ;;9002226.02101,"858,102.0 ",.01)
+128 ;;102.0
+129 ;;9002226.02101,"858,102.0 ",.02)
+130 ;;102.0
+131 ;;9002226.02101,"858,102.1 ",.01)
+132 ;;102.1
+133 ;;9002226.02101,"858,102.1 ",.02)
+134 ;;102.1
+135 ;;9002226.02101,"858,102.2 ",.01)
+136 ;;102.2
+137 ;;9002226.02101,"858,102.2 ",.02)
+138 ;;102.2
+139 ;;9002226.02101,"858,102.3 ",.01)
+140 ;;102.3
+141 ;;9002226.02101,"858,102.3 ",.02)
+142 ;;102.3
+143 ;;9002226.02101,"858,102.4 ",.01)
+144 ;;102.4
+145 ;;9002226.02101,"858,102.4 ",.02)
+146 ;;102.4
+147 ;;9002226.02101,"858,102.5 ",.01)
+148 ;;102.5
+149 ;;9002226.02101,"858,102.5 ",.02)
+150 ;;102.5
+151 ;;9002226.02101,"858,102.6 ",.01)
+152 ;;102.6
+153 ;;9002226.02101,"858,102.6 ",.02)
+154 ;;102.6
+155 ;;9002226.02101,"858,102.7 ",.01)
+156 ;;102.7
+157 ;;9002226.02101,"858,102.7 ",.02)
+158 ;;102.7
+159 ;;9002226.02101,"858,102.8 ",.01)
+160 ;;102.8
+161 ;;9002226.02101,"858,102.8 ",.02)
+162 ;;102.8
+163 ;;9002226.02101,"858,102.9 ",.01)
+164 ;;102.9
+165 ;;9002226.02101,"858,102.9 ",.02)
+166 ;;102.9
+167 ;;9002226.02101,"858,103.0 ",.01)
+168 ;;103.0
+169 ;;9002226.02101,"858,103.0 ",.02)
+170 ;;103.0
+171 ;;9002226.02101,"858,103.1 ",.01)
+172 ;;103.1
+173 ;;9002226.02101,"858,103.1 ",.02)
+174 ;;103.1
+175 ;;9002226.02101,"858,103.2 ",.01)
+176 ;;103.2
+177 ;;9002226.02101,"858,103.2 ",.02)
+178 ;;103.2
+179 ;;9002226.02101,"858,103.3 ",.01)
+180 ;;103.3
+181 ;;9002226.02101,"858,103.3 ",.02)
+182 ;;103.3
+183 ;;9002226.02101,"858,103.9 ",.01)
+184 ;;103.9
+185 ;;9002226.02101,"858,103.9 ",.02)
+186 ;;103.9
+187 ;;9002226.02101,"858,104.0 ",.01)
+188 ;;104.0
+189 ;;9002226.02101,"858,104.0 ",.02)
+190 ;;104.0
+191 ;;9002226.02101,"858,104.8 ",.01)
+192 ;;104.8
+193 ;;9002226.02101,"858,104.8 ",.02)
+194 ;;104.8
+195 ;;9002226.02101,"858,104.9 ",.01)
+196 ;;104.9
+197 ;;9002226.02101,"858,104.9 ",.02)
+198 ;;104.9
+199 ;;9002226.02101,"858,110.0 ",.01)
+200 ;;110.0
+201 ;;9002226.02101,"858,110.0 ",.02)
+202 ;;110.0
+203 ;;9002226.02101,"858,110.1 ",.01)
+204 ;;110.1
+205 ;;9002226.02101,"858,110.1 ",.02)
+206 ;;110.1
+207 ;;9002226.02101,"858,110.2 ",.01)
+208 ;;110.2
+209 ;;9002226.02101,"858,110.2 ",.02)
+210 ;;110.2
+211 ;;9002226.02101,"858,110.3 ",.01)
+212 ;;110.3
+213 ;;9002226.02101,"858,110.3 ",.02)
+214 ;;110.3
+215 ;;9002226.02101,"858,110.4 ",.01)
+216 ;;110.4
+217 ;;9002226.02101,"858,110.4 ",.02)
+218 ;;110.4
+219 ;;9002226.02101,"858,110.5 ",.01)
+220 ;;110.5
