BGP8CXMM ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON SEP 28, 2007 ;
;;8.0;IHS CLINICAL REPORTING;;MAR 12, 2008
;;;BGP6;;SEP 28, 2007
;
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,"692,730.32 ",.02)
;;730.32
;;9002226.02101,"692,730.33 ",.01)
;;730.33
;;9002226.02101,"692,730.33 ",.02)
;;730.33
;;9002226.02101,"692,730.34 ",.01)
;;730.34
;;9002226.02101,"692,730.34 ",.02)
;;730.34
;;9002226.02101,"692,730.35 ",.01)
;;730.35
;;9002226.02101,"692,730.35 ",.02)
;;730.35
;;9002226.02101,"692,730.36 ",.01)
;;730.36
;;9002226.02101,"692,730.36 ",.02)
;;730.36
;;9002226.02101,"692,730.37 ",.01)
;;730.37
;;9002226.02101,"692,730.37 ",.02)
;;730.37
;;9002226.02101,"692,730.38 ",.01)
;;730.38
;;9002226.02101,"692,730.38 ",.02)
;;730.38
;;9002226.02101,"692,730.39 ",.01)
;;730.39
;;9002226.02101,"692,730.39 ",.02)
;;730.39
;;9002226.02101,"692,730.70 ",.01)
;;730.70
;;9002226.02101,"692,730.70 ",.02)
;;730.70
;;9002226.02101,"692,730.71 ",.01)
;;730.71
;;9002226.02101,"692,730.71 ",.02)
;;730.71
;;9002226.02101,"692,730.72 ",.01)
;;730.72
;;9002226.02101,"692,730.72 ",.02)
;;730.72
;;9002226.02101,"692,730.73 ",.01)
;;730.73
;;9002226.02101,"692,730.73 ",.02)
;;730.73
;;9002226.02101,"692,730.74 ",.01)
;;730.74
;;9002226.02101,"692,730.74 ",.02)
;;730.74
;;9002226.02101,"692,730.75 ",.01)
;;730.75
;;9002226.02101,"692,730.75 ",.02)
;;730.75
;;9002226.02101,"692,730.76 ",.01)
;;730.76
;;9002226.02101,"692,730.76 ",.02)
;;730.76
;;9002226.02101,"692,730.77 ",.01)
;;730.77
;;9002226.02101,"692,730.77 ",.02)
;;730.77
;;9002226.02101,"692,730.78 ",.01)
;;730.78
;;9002226.02101,"692,730.78 ",.02)
;;730.78
;;9002226.02101,"692,730.79 ",.01)
;;730.79
;;9002226.02101,"692,730.79 ",.02)
;;730.79
;;9002226.02101,"692,730.80 ",.01)
;;730.80
;;9002226.02101,"692,730.80 ",.02)
;;730.80
;;9002226.02101,"692,730.81 ",.01)
;;730.81
;;9002226.02101,"692,730.81 ",.02)
;;730.81
;;9002226.02101,"692,730.82 ",.01)
;;730.82
;;9002226.02101,"692,730.82 ",.02)
;;730.82
;;9002226.02101,"692,730.83 ",.01)
;;730.83
;;9002226.02101,"692,730.83 ",.02)
;;730.83
;;9002226.02101,"692,730.84 ",.01)
;;730.84
;;9002226.02101,"692,730.84 ",.02)
;;730.84
;;9002226.02101,"692,730.85 ",.01)
;;730.85
;;9002226.02101,"692,730.85 ",.02)
;;730.85
;;9002226.02101,"692,730.86 ",.01)
;;730.86
;;9002226.02101,"692,730.86 ",.02)
;;730.86
;;9002226.02101,"692,730.87 ",.01)
;;730.87
;;9002226.02101,"692,730.87 ",.02)
;;730.87
;;9002226.02101,"692,730.88 ",.01)
;;730.88
;;9002226.02101,"692,730.88 ",.02)
;;730.88
;;9002226.02101,"692,730.89 ",.01)
;;730.89
;;9002226.02101,"692,730.89 ",.02)
;;730.89
;;9002226.02101,"692,730.90 ",.01)
;;730.90
;;9002226.02101,"692,730.90 ",.02)
;;730.90
;;9002226.02101,"692,730.91 ",.01)
;;730.91
;;9002226.02101,"692,730.91 ",.02)
;;730.91
;;9002226.02101,"692,730.92 ",.01)
;;730.92
;;9002226.02101,"692,730.92 ",.02)
;;730.92
;;9002226.02101,"692,730.93 ",.01)
;;730.93
;;9002226.02101,"692,730.93 ",.02)
;;730.93
;;9002226.02101,"692,730.94 ",.01)
;;730.94
;;9002226.02101,"692,730.94 ",.02)
;;730.94
;;9002226.02101,"692,730.95 ",.01)
;;730.95
;;9002226.02101,"692,730.95 ",.02)
;;730.95
;;9002226.02101,"692,730.96 ",.01)
;;730.96
;;9002226.02101,"692,730.96 ",.02)
;;730.96
;;9002226.02101,"692,730.97 ",.01)
;;730.97
;;9002226.02101,"692,730.97 ",.02)
;;730.97
;;9002226.02101,"692,730.98 ",.01)
;;730.98
;;9002226.02101,"692,730.98 ",.02)
;;730.98
;;9002226.02101,"692,730.99 ",.01)
;;730.99
;;9002226.02101,"692,730.99 ",.02)
;;730.99
;;9002226.02101,"692,785.52 ",.01)
;;785.52
;;9002226.02101,"692,785.52 ",.02)
;;785.52
;;9002226.02101,"692,785.59 ",.01)
;;785.59
;;9002226.02101,"692,785.59 ",.02)
;;785.59
;;9002226.02101,"692,790.7 ",.01)
;;790.7
;;9002226.02101,"692,790.7 ",.02)
;;790.7
;;9002226.02101,"692,996.60 ",.01)
;;996.60
;;9002226.02101,"692,996.60 ",.02)
;;996.60
;;9002226.02101,"692,996.61 ",.01)
;;996.61
;;9002226.02101,"692,996.61 ",.02)
;;996.61
;;9002226.02101,"692,996.62 ",.01)
;;996.62
;;9002226.02101,"692,996.62 ",.02)
;;996.62
;;9002226.02101,"692,996.63 ",.01)
;;996.63
;;9002226.02101,"692,996.63 ",.02)
;;996.63
;;9002226.02101,"692,996.64 ",.01)
;;996.64
;;9002226.02101,"692,996.64 ",.02)
;;996.64
;;9002226.02101,"692,996.65 ",.01)
;;996.65
;;9002226.02101,"692,996.65 ",.02)
;;996.65
;;9002226.02101,"692,996.66 ",.01)
;;996.66
;;9002226.02101,"692,996.66 ",.02)
;;996.66
;;9002226.02101,"692,996.67 ",.01)
;;996.67
;;9002226.02101,"692,996.67 ",.02)
;;996.67
;;9002226.02101,"692,996.68 ",.01)
;;996.68
;;9002226.02101,"692,996.68 ",.02)
;;996.68
;;9002226.02101,"692,996.69 ",.01)
;;996.69
;;9002226.02101,"692,996.69 ",.02)
;;996.69
;;9002226.02101,"692,998.51 ",.01)
;;998.51
;;9002226.02101,"692,998.51 ",.02)
;;998.51
;;9002226.02101,"692,998.59 ",.01)
;;998.59
;;9002226.02101,"692,998.59 ",.02)
;;998.59
BGP8CXMM ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON SEP 28, 2007 ;
+1 ;;8.0;IHS CLINICAL REPORTING;;MAR 12, 2008
+2 ;;;BGP6;;SEP 28, 2007
+3 ;
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,"692,730.32 ",.02)
+2 ;;730.32
+3 ;;9002226.02101,"692,730.33 ",.01)
+4 ;;730.33
+5 ;;9002226.02101,"692,730.33 ",.02)
+6 ;;730.33
+7 ;;9002226.02101,"692,730.34 ",.01)
+8 ;;730.34
+9 ;;9002226.02101,"692,730.34 ",.02)
+10 ;;730.34
+11 ;;9002226.02101,"692,730.35 ",.01)
+12 ;;730.35
+13 ;;9002226.02101,"692,730.35 ",.02)
+14 ;;730.35
+15 ;;9002226.02101,"692,730.36 ",.01)
+16 ;;730.36
+17 ;;9002226.02101,"692,730.36 ",.02)
+18 ;;730.36
+19 ;;9002226.02101,"692,730.37 ",.01)
+20 ;;730.37
+21 ;;9002226.02101,"692,730.37 ",.02)
+22 ;;730.37
+23 ;;9002226.02101,"692,730.38 ",.01)
+24 ;;730.38
+25 ;;9002226.02101,"692,730.38 ",.02)
+26 ;;730.38
+27 ;;9002226.02101,"692,730.39 ",.01)
+28 ;;730.39
+29 ;;9002226.02101,"692,730.39 ",.02)
+30 ;;730.39
+31 ;;9002226.02101,"692,730.70 ",.01)
+32 ;;730.70
+33 ;;9002226.02101,"692,730.70 ",.02)
+34 ;;730.70
+35 ;;9002226.02101,"692,730.71 ",.01)
+36 ;;730.71
+37 ;;9002226.02101,"692,730.71 ",.02)
+38 ;;730.71
+39 ;;9002226.02101,"692,730.72 ",.01)
+40 ;;730.72
+41 ;;9002226.02101,"692,730.72 ",.02)
+42 ;;730.72
+43 ;;9002226.02101,"692,730.73 ",.01)
+44 ;;730.73
+45 ;;9002226.02101,"692,730.73 ",.02)
+46 ;;730.73
+47 ;;9002226.02101,"692,730.74 ",.01)
+48 ;;730.74
+49 ;;9002226.02101,"692,730.74 ",.02)
+50 ;;730.74
+51 ;;9002226.02101,"692,730.75 ",.01)
+52 ;;730.75
+53 ;;9002226.02101,"692,730.75 ",.02)
+54 ;;730.75
+55 ;;9002226.02101,"692,730.76 ",.01)
+56 ;;730.76
+57 ;;9002226.02101,"692,730.76 ",.02)
+58 ;;730.76
+59 ;;9002226.02101,"692,730.77 ",.01)
+60 ;;730.77
+61 ;;9002226.02101,"692,730.77 ",.02)
+62 ;;730.77
+63 ;;9002226.02101,"692,730.78 ",.01)
+64 ;;730.78
+65 ;;9002226.02101,"692,730.78 ",.02)
+66 ;;730.78
+67 ;;9002226.02101,"692,730.79 ",.01)
+68 ;;730.79
+69 ;;9002226.02101,"692,730.79 ",.02)
+70 ;;730.79
+71 ;;9002226.02101,"692,730.80 ",.01)
+72 ;;730.80
+73 ;;9002226.02101,"692,730.80 ",.02)
+74 ;;730.80
+75 ;;9002226.02101,"692,730.81 ",.01)
+76 ;;730.81
+77 ;;9002226.02101,"692,730.81 ",.02)
+78 ;;730.81
+79 ;;9002226.02101,"692,730.82 ",.01)
+80 ;;730.82
+81 ;;9002226.02101,"692,730.82 ",.02)
+82 ;;730.82
+83 ;;9002226.02101,"692,730.83 ",.01)
+84 ;;730.83
+85 ;;9002226.02101,"692,730.83 ",.02)
+86 ;;730.83
+87 ;;9002226.02101,"692,730.84 ",.01)
+88 ;;730.84
+89 ;;9002226.02101,"692,730.84 ",.02)
+90 ;;730.84
+91 ;;9002226.02101,"692,730.85 ",.01)
+92 ;;730.85
+93 ;;9002226.02101,"692,730.85 ",.02)
+94 ;;730.85
+95 ;;9002226.02101,"692,730.86 ",.01)
+96 ;;730.86
+97 ;;9002226.02101,"692,730.86 ",.02)
+98 ;;730.86
+99 ;;9002226.02101,"692,730.87 ",.01)
+100 ;;730.87
+101 ;;9002226.02101,"692,730.87 ",.02)
+102 ;;730.87
+103 ;;9002226.02101,"692,730.88 ",.01)
+104 ;;730.88
+105 ;;9002226.02101,"692,730.88 ",.02)
+106 ;;730.88
+107 ;;9002226.02101,"692,730.89 ",.01)
+108 ;;730.89
+109 ;;9002226.02101,"692,730.89 ",.02)
+110 ;;730.89
+111 ;;9002226.02101,"692,730.90 ",.01)
+112 ;;730.90
+113 ;;9002226.02101,"692,730.90 ",.02)
+114 ;;730.90
+115 ;;9002226.02101,"692,730.91 ",.01)
+116 ;;730.91
+117 ;;9002226.02101,"692,730.91 ",.02)
+118 ;;730.91
+119 ;;9002226.02101,"692,730.92 ",.01)
+120 ;;730.92
+121 ;;9002226.02101,"692,730.92 ",.02)
+122 ;;730.92
+123 ;;9002226.02101,"692,730.93 ",.01)
+124 ;;730.93
+125 ;;9002226.02101,"692,730.93 ",.02)
+126 ;;730.93
+127 ;;9002226.02101,"692,730.94 ",.01)
+128 ;;730.94
+129 ;;9002226.02101,"692,730.94 ",.02)
+130 ;;730.94
+131 ;;9002226.02101,"692,730.95 ",.01)
+132 ;;730.95
+133 ;;9002226.02101,"692,730.95 ",.02)
+134 ;;730.95
+135 ;;9002226.02101,"692,730.96 ",.01)
+136 ;;730.96
+137 ;;9002226.02101,"692,730.96 ",.02)
+138 ;;730.96
+139 ;;9002226.02101,"692,730.97 ",.01)
+140 ;;730.97
+141 ;;9002226.02101,"692,730.97 ",.02)
+142 ;;730.97
+143 ;;9002226.02101,"692,730.98 ",.01)
+144 ;;730.98
+145 ;;9002226.02101,"692,730.98 ",.02)
+146 ;;730.98
+147 ;;9002226.02101,"692,730.99 ",.01)
+148 ;;730.99
+149 ;;9002226.02101,"692,730.99 ",.02)
+150 ;;730.99
+151 ;;9002226.02101,"692,785.52 ",.01)
+152 ;;785.52
+153 ;;9002226.02101,"692,785.52 ",.02)
+154 ;;785.52
+155 ;;9002226.02101,"692,785.59 ",.01)
+156 ;;785.59
+157 ;;9002226.02101,"692,785.59 ",.02)
+158 ;;785.59
+159 ;;9002226.02101,"692,790.7 ",.01)
+160 ;;790.7
+161 ;;9002226.02101,"692,790.7 ",.02)
+162 ;;790.7
+163 ;;9002226.02101,"692,996.60 ",.01)
+164 ;;996.60
+165 ;;9002226.02101,"692,996.60 ",.02)
+166 ;;996.60
+167 ;;9002226.02101,"692,996.61 ",.01)
+168 ;;996.61
+169 ;;9002226.02101,"692,996.61 ",.02)
+170 ;;996.61
+171 ;;9002226.02101,"692,996.62 ",.01)
+172 ;;996.62
+173 ;;9002226.02101,"692,996.62 ",.02)
+174 ;;996.62
+175 ;;9002226.02101,"692,996.63 ",.01)
+176 ;;996.63
+177 ;;9002226.02101,"692,996.63 ",.02)
+178 ;;996.63
+179 ;;9002226.02101,"692,996.64 ",.01)
+180 ;;996.64
+181 ;;9002226.02101,"692,996.64 ",.02)
+182 ;;996.64
+183 ;;9002226.02101,"692,996.65 ",.01)
+184 ;;996.65
+185 ;;9002226.02101,"692,996.65 ",.02)
+186 ;;996.65
+187 ;;9002226.02101,"692,996.66 ",.01)
+188 ;;996.66
+189 ;;9002226.02101,"692,996.66 ",.02)
+190 ;;996.66
+191 ;;9002226.02101,"692,996.67 ",.01)
+192 ;;996.67
+193 ;;9002226.02101,"692,996.67 ",.02)
+194 ;;996.67
+195 ;;9002226.02101,"692,996.68 ",.01)
+196 ;;996.68
+197 ;;9002226.02101,"692,996.68 ",.02)
+198 ;;996.68
+199 ;;9002226.02101,"692,996.69 ",.01)
+200 ;;996.69
+201 ;;9002226.02101,"692,996.69 ",.02)
+202 ;;996.69
+203 ;;9002226.02101,"692,998.51 ",.01)
+204 ;;998.51
+205 ;;9002226.02101,"692,998.51 ",.02)
+206 ;;998.51
+207 ;;9002226.02101,"692,998.59 ",.01)
+208 ;;998.59
+209 ;;9002226.02101,"692,998.59 ",.02)
+210 ;;998.59
