BGP9SXLB ; 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)
;;21,"54569-3023-00 ")
;;151
;;21,"54569-3026-00 ")
;;152
;;21,"54569-3121-00 ")
;;153
;;21,"54569-3121-01 ")
;;154
;;21,"54569-3121-02 ")
;;155
;;21,"54569-3121-03 ")
;;156
;;21,"54569-3121-04 ")
;;157
;;21,"54569-3121-05 ")
;;158
;;21,"54569-3122-02 ")
;;159
;;21,"54868-1050-01 ")
;;160
;;21,"54868-1050-03 ")
;;161
;;21,"54868-1050-04 ")
;;162
;;21,"54868-1050-05 ")
;;163
;;21,"54868-1326-00 ")
;;164
;;21,"54868-1326-02 ")
;;165
;;21,"54868-1521-00 ")
;;166
;;21,"54868-1521-02 ")
;;167
;;21,"54868-3644-00 ")
;;168
;;21,"55045-1124-00 ")
;;169
;;21,"55045-1124-05 ")
;;170
;;21,"55045-1124-08 ")
;;171
;;21,"55175-3891-01 ")
;;172
;;21,"55175-3891-02 ")
;;173
;;21,"55175-3891-03 ")
;;174
;;21,"55175-3891-05 ")
;;175
;;21,"55289-0100-40 ")
;;176
;;21,"55289-0884-16 ")
;;177
;;21,"55289-0907-08 ")
;;178
;;21,"55289-0907-30 ")
;;179
;;21,"55289-0907-97 ")
;;180
;;21,"55370-0156-07 ")
;;181
;;21,"55370-0156-11 ")
;;182
;;21,"55370-0157-07 ")
;;183
;;21,"55370-0157-11 ")
;;184
;;21,"55726-0259-10 ")
;;185
;;21,"55953-0171-40 ")
;;186
;;21,"55953-0171-41 ")
;;187
;;21,"55953-0171-60 ")
;;188
;;21,"55953-0171-81 ")
;;189
;;21,"56126-0449-11 ")
;;190
;;21,"56126-0453-11 ")
;;191
;;21,"57480-0389-06 ")
;;192
;;21,"57664-0872-08 ")
;;193
;;21,"57664-0872-11 ")
;;194
;;21,"57664-0872-18 ")
;;195
;;21,"57664-0873-08 ")
;;196
;;21,"57664-0873-11 ")
;;197
;;21,"57664-0873-18 ")
;;198
;;21,"57866-3762-02 ")
;;199
;;21,"58016-0620-00 ")
;;200
;;21,"58016-0620-12 ")
;;201
;;21,"58016-0620-15 ")
;;202
;;21,"58016-0620-20 ")
;;203
;;21,"58016-0620-30 ")
;;204
;;21,"58016-0620-90 ")
;;205
;;21,"58016-0622-00 ")
;;206
;;21,"58016-0622-08 ")
;;207
;;21,"58016-0622-12 ")
;;208
;;21,"58016-0622-15 ")
;;209
;;21,"58016-0622-20 ")
;;210
;;21,"58016-0622-30 ")
;;211
;;21,"58016-0622-50 ")
;;212
;;21,"58016-0622-60 ")
;;213
;;21,"58016-0622-90 ")
;;214
;;21,"58441-0114-10 ")
;;215
;;21,"58864-0163-01 ")
;;216
;;21,"59010-0535-10 ")
;;217
;;21,"60346-0045-06 ")
;;218
;;21,"60346-0045-12 ")
;;219
;;21,"60346-0045-15 ")
;;220
;;21,"60346-0045-20 ")
;;221
;;21,"60346-0045-30 ")
;;222
;;21,"60346-0045-44 ")
;;223
;;21,"60346-0045-60 ")
;;224
;;21,"60346-0045-94 ")
;;225
;;21,"60809-0300-55 ")
;;226
;;21,"60809-0300-72 ")
;;227
;;21,"60809-0301-55 ")
;;228
;;21,"60809-0301-72 ")
;;229
;;21,"60977-0001-44 ")
;;230
;;21,"60977-0002-44 ")
;;231
;;21,"61392-0353-30 ")
;;232
;;21,"61392-0353-31 ")
;;233
;;21,"61392-0353-32 ")
;;234
;;21,"61392-0353-34 ")
;;235
;;21,"61392-0353-36 ")
;;236
;;21,"61392-0353-39 ")
;;237
;;21,"61392-0353-45 ")
;;238
;;21,"61392-0353-51 ")
;;239
;;21,"61392-0353-54 ")
;;240
;;21,"61392-0353-56 ")
;;241
;;21,"61392-0353-60 ")
;;242
;;21,"61392-0353-90 ")
;;243
;;21,"61392-0353-91 ")
;;244
;;21,"61392-0356-15 ")
;;245
;;21,"61392-0356-30 ")
;;246
;;21,"61392-0356-31 ")
;;247
;;21,"61392-0356-32 ")
;;248
;;21,"61392-0356-39 ")
;;249
;;21,"61392-0356-45 ")
;;250
;;21,"61392-0356-51 ")
;;251
;;21,"61392-0356-54 ")
;;252
;;21,"61392-0356-56 ")
;;253
;;21,"61392-0356-60 ")
;;254
;;21,"61392-0356-90 ")
;;255
;;21,"61392-0356-91 ")
;;256
;;21,"61808-0821-01 ")
;;257
;;21,"62584-0676-01 ")
;;258
;;21,"62584-0676-33 ")
;;259
;;21,"63739-0083-02 ")
;;260
;;21,"63739-0185-01 ")
;;261
;;21,"63739-0185-03 ")
;;262
;;21,"65162-0518-10 ")
;;263
;;21,"65162-0518-11 ")
;;264
;;21,"68030-3762-01 ")
;;265
;;21,"68115-0255-30 ")
;;266
;;21,"68115-0472-60 ")
;;267
;;9002226,731,.01)
;;BGP HEDIS CALCIUM CHANNEL NDC
;;9002226,731,.02)
;;@
;;9002226,731,.04)
;;n
;;9002226,731,.06)
;;@
;;9002226,731,.08)
;;@
;;9002226,731,.09)
;;@
;;9002226,731,.11)
;;@
;;9002226,731,.12)
;;@
;;9002226,731,.13)
;;1
;;9002226,731,.14)
;;@
;;9002226,731,.15)
;;@
;;9002226,731,.16)
;;@
;;9002226,731,.17)
;;@
;;9002226,731,3101)
;;@
;;9002226.02101,"731,00026-8821-18 ",.01)
;;00026-8821-18
;;9002226.02101,"731,00026-8821-18 ",.02)
;;00026-8821-18
;;9002226.02101,"731,00026-8821-48 ",.01)
;;00026-8821-48
;;9002226.02101,"731,00026-8821-48 ",.02)
;;00026-8821-48
;;9002226.02101,"731,00026-8821-51 ",.01)
;;00026-8821-51
;;9002226.02101,"731,00026-8821-51 ",.02)
;;00026-8821-51
;;9002226.02101,"731,00069-2600-66 ",.01)
;;00069-2600-66
;;9002226.02101,"731,00069-2600-66 ",.02)
;;00069-2600-66
;;9002226.02101,"731,00069-2600-72 ",.01)
;;00069-2600-72
;;9002226.02101,"731,00069-2600-72 ",.02)
;;00069-2600-72
;;9002226.02101,"731,00069-2610-66 ",.01)
;;00069-2610-66
;;9002226.02101,"731,00069-2610-66 ",.02)
;;00069-2610-66
;;9002226.02101,"731,00093-8171-01 ",.01)
;;00093-8171-01
BGP9SXLB ; 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 ;;21,"54569-3023-00 ")
+2 ;;151
+3 ;;21,"54569-3026-00 ")
+4 ;;152
+5 ;;21,"54569-3121-00 ")
+6 ;;153
+7 ;;21,"54569-3121-01 ")
+8 ;;154
+9 ;;21,"54569-3121-02 ")
+10 ;;155
+11 ;;21,"54569-3121-03 ")
+12 ;;156
+13 ;;21,"54569-3121-04 ")
+14 ;;157
+15 ;;21,"54569-3121-05 ")
+16 ;;158
+17 ;;21,"54569-3122-02 ")
+18 ;;159
+19 ;;21,"54868-1050-01 ")
+20 ;;160
+21 ;;21,"54868-1050-03 ")
+22 ;;161
+23 ;;21,"54868-1050-04 ")
+24 ;;162
+25 ;;21,"54868-1050-05 ")
+26 ;;163
+27 ;;21,"54868-1326-00 ")
+28 ;;164
+29 ;;21,"54868-1326-02 ")
+30 ;;165
+31 ;;21,"54868-1521-00 ")
+32 ;;166
+33 ;;21,"54868-1521-02 ")
+34 ;;167
+35 ;;21,"54868-3644-00 ")
+36 ;;168
+37 ;;21,"55045-1124-00 ")
+38 ;;169
+39 ;;21,"55045-1124-05 ")
+40 ;;170
+41 ;;21,"55045-1124-08 ")
+42 ;;171
+43 ;;21,"55175-3891-01 ")
+44 ;;172
+45 ;;21,"55175-3891-02 ")
+46 ;;173
+47 ;;21,"55175-3891-03 ")
+48 ;;174
+49 ;;21,"55175-3891-05 ")
+50 ;;175
+51 ;;21,"55289-0100-40 ")
+52 ;;176
+53 ;;21,"55289-0884-16 ")
+54 ;;177
+55 ;;21,"55289-0907-08 ")
+56 ;;178
+57 ;;21,"55289-0907-30 ")
+58 ;;179
+59 ;;21,"55289-0907-97 ")
+60 ;;180
+61 ;;21,"55370-0156-07 ")
+62 ;;181
+63 ;;21,"55370-0156-11 ")
+64 ;;182
+65 ;;21,"55370-0157-07 ")
+66 ;;183
+67 ;;21,"55370-0157-11 ")
+68 ;;184
+69 ;;21,"55726-0259-10 ")
+70 ;;185
+71 ;;21,"55953-0171-40 ")
+72 ;;186
+73 ;;21,"55953-0171-41 ")
+74 ;;187
+75 ;;21,"55953-0171-60 ")
+76 ;;188
+77 ;;21,"55953-0171-81 ")
+78 ;;189
+79 ;;21,"56126-0449-11 ")
+80 ;;190
+81 ;;21,"56126-0453-11 ")
+82 ;;191
+83 ;;21,"57480-0389-06 ")
+84 ;;192
+85 ;;21,"57664-0872-08 ")
+86 ;;193
+87 ;;21,"57664-0872-11 ")
+88 ;;194
+89 ;;21,"57664-0872-18 ")
+90 ;;195
+91 ;;21,"57664-0873-08 ")
+92 ;;196
+93 ;;21,"57664-0873-11 ")
+94 ;;197
+95 ;;21,"57664-0873-18 ")
+96 ;;198
+97 ;;21,"57866-3762-02 ")
+98 ;;199
+99 ;;21,"58016-0620-00 ")
+100 ;;200
+101 ;;21,"58016-0620-12 ")
+102 ;;201
+103 ;;21,"58016-0620-15 ")
+104 ;;202
+105 ;;21,"58016-0620-20 ")
+106 ;;203
+107 ;;21,"58016-0620-30 ")
+108 ;;204
+109 ;;21,"58016-0620-90 ")
+110 ;;205
+111 ;;21,"58016-0622-00 ")
+112 ;;206
+113 ;;21,"58016-0622-08 ")
+114 ;;207
+115 ;;21,"58016-0622-12 ")
+116 ;;208
+117 ;;21,"58016-0622-15 ")
+118 ;;209
+119 ;;21,"58016-0622-20 ")
+120 ;;210
+121 ;;21,"58016-0622-30 ")
+122 ;;211
+123 ;;21,"58016-0622-50 ")
+124 ;;212
+125 ;;21,"58016-0622-60 ")
+126 ;;213
+127 ;;21,"58016-0622-90 ")
+128 ;;214
+129 ;;21,"58441-0114-10 ")
+130 ;;215
+131 ;;21,"58864-0163-01 ")
+132 ;;216
+133 ;;21,"59010-0535-10 ")
+134 ;;217
+135 ;;21,"60346-0045-06 ")
+136 ;;218
+137 ;;21,"60346-0045-12 ")
+138 ;;219
+139 ;;21,"60346-0045-15 ")
+140 ;;220
+141 ;;21,"60346-0045-20 ")
+142 ;;221
+143 ;;21,"60346-0045-30 ")
+144 ;;222
+145 ;;21,"60346-0045-44 ")
+146 ;;223
+147 ;;21,"60346-0045-60 ")
+148 ;;224
+149 ;;21,"60346-0045-94 ")
+150 ;;225
+151 ;;21,"60809-0300-55 ")
+152 ;;226
+153 ;;21,"60809-0300-72 ")
+154 ;;227
+155 ;;21,"60809-0301-55 ")
+156 ;;228
+157 ;;21,"60809-0301-72 ")
+158 ;;229
+159 ;;21,"60977-0001-44 ")
+160 ;;230
+161 ;;21,"60977-0002-44 ")
+162 ;;231
+163 ;;21,"61392-0353-30 ")
+164 ;;232
+165 ;;21,"61392-0353-31 ")
+166 ;;233
+167 ;;21,"61392-0353-32 ")
+168 ;;234
+169 ;;21,"61392-0353-34 ")
+170 ;;235
+171 ;;21,"61392-0353-36 ")
+172 ;;236
+173 ;;21,"61392-0353-39 ")
+174 ;;237
+175 ;;21,"61392-0353-45 ")
+176 ;;238
+177 ;;21,"61392-0353-51 ")
+178 ;;239
+179 ;;21,"61392-0353-54 ")
+180 ;;240
+181 ;;21,"61392-0353-56 ")
+182 ;;241
+183 ;;21,"61392-0353-60 ")
+184 ;;242
+185 ;;21,"61392-0353-90 ")
+186 ;;243
+187 ;;21,"61392-0353-91 ")
+188 ;;244
+189 ;;21,"61392-0356-15 ")
+190 ;;245
+191 ;;21,"61392-0356-30 ")
+192 ;;246
+193 ;;21,"61392-0356-31 ")
+194 ;;247
+195 ;;21,"61392-0356-32 ")
+196 ;;248
+197 ;;21,"61392-0356-39 ")
+198 ;;249
+199 ;;21,"61392-0356-45 ")
+200 ;;250
+201 ;;21,"61392-0356-51 ")
+202 ;;251
+203 ;;21,"61392-0356-54 ")
+204 ;;252
+205 ;;21,"61392-0356-56 ")
+206 ;;253
+207 ;;21,"61392-0356-60 ")
+208 ;;254
+209 ;;21,"61392-0356-90 ")
+210 ;;255
+211 ;;21,"61392-0356-91 ")
+212 ;;256
+213 ;;21,"61808-0821-01 ")
+214 ;;257
+215 ;;21,"62584-0676-01 ")
+216 ;;258
+217 ;;21,"62584-0676-33 ")
+218 ;;259
+219 ;;21,"63739-0083-02 ")
+220 ;;260
+221 ;;21,"63739-0185-01 ")
+222 ;;261
+223 ;;21,"63739-0185-03 ")
+224 ;;262
+225 ;;21,"65162-0518-10 ")
+226 ;;263
+227 ;;21,"65162-0518-11 ")
+228 ;;264
+229 ;;21,"68030-3762-01 ")
+230 ;;265
+231 ;;21,"68115-0255-30 ")
+232 ;;266
+233 ;;21,"68115-0472-60 ")
+234 ;;267
+235 ;;9002226,731,.01)
+236 ;;BGP HEDIS CALCIUM CHANNEL NDC
+237 ;;9002226,731,.02)
+238 ;;@
+239 ;;9002226,731,.04)
+240 ;;n
+241 ;;9002226,731,.06)
+242 ;;@
+243 ;;9002226,731,.08)
+244 ;;@
+245 ;;9002226,731,.09)
+246 ;;@
+247 ;;9002226,731,.11)
+248 ;;@
+249 ;;9002226,731,.12)
+250 ;;@
+251 ;;9002226,731,.13)
+252 ;;1
+253 ;;9002226,731,.14)
+254 ;;@
+255 ;;9002226,731,.15)
+256 ;;@
+257 ;;9002226,731,.16)
+258 ;;@
+259 ;;9002226,731,.17)
+260 ;;@
+261 ;;9002226,731,3101)
+262 ;;@
+263 ;;9002226.02101,"731,00026-8821-18 ",.01)
+264 ;;00026-8821-18
+265 ;;9002226.02101,"731,00026-8821-18 ",.02)
+266 ;;00026-8821-18
+267 ;;9002226.02101,"731,00026-8821-48 ",.01)
+268 ;;00026-8821-48
+269 ;;9002226.02101,"731,00026-8821-48 ",.02)
+270 ;;00026-8821-48
+271 ;;9002226.02101,"731,00026-8821-51 ",.01)
+272 ;;00026-8821-51
+273 ;;9002226.02101,"731,00026-8821-51 ",.02)
+274 ;;00026-8821-51
+275 ;;9002226.02101,"731,00069-2600-66 ",.01)
+276 ;;00069-2600-66
+277 ;;9002226.02101,"731,00069-2600-66 ",.02)
+278 ;;00069-2600-66
+279 ;;9002226.02101,"731,00069-2600-72 ",.01)
+280 ;;00069-2600-72
+281 ;;9002226.02101,"731,00069-2600-72 ",.02)
+282 ;;00069-2600-72
+283 ;;9002226.02101,"731,00069-2610-66 ",.01)
+284 ;;00069-2610-66
+285 ;;9002226.02101,"731,00069-2610-66 ",.02)
+286 ;;00069-2610-66
+287 ;;9002226.02101,"731,00093-8171-01 ",.01)
+288 ;;00093-8171-01
