BGP9SXFC ; 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,"54868-4409-00 ")
;;338
;;21,"54868-4481-00 ")
;;399
;;21,"54868-4516-00 ")
;;323
;;21,"54868-4517-00 ")
;;312
;;21,"54868-4518-00 ")
;;297
;;21,"54868-4972-00 ")
;;330
;;21,"54868-4972-01 ")
;;331
;;21,"54868-5294-00 ")
;;239
;;21,"54868-5362-00 ")
;;280
;;21,"54868-5459-00 ")
;;344
;;21,"54868-5547-00 ")
;;377
;;21,"54868-5547-01 ")
;;378
;;21,"54868-5621-00 ")
;;189
;;21,"54868-5637-00 ")
;;285
;;21,"54868-5646-00 ")
;;121
;;21,"54868-5646-01 ")
;;122
;;21,"54868-5646-02 ")
;;123
;;21,"54868-5774-00 ")
;;186
;;21,"54868-5844-00 ")
;;193
;;21,"54868-5857-00 ")
;;177
;;21,"54868-5858-00 ")
;;180
;;21,"55045-1868-03 ")
;;248
;;21,"55045-2043-07 ")
;;39
;;21,"55045-2390-05 ")
;;124
;;21,"55045-2470-02 ")
;;69
;;21,"55045-2520-07 ")
;;240
;;21,"55045-2819-00 ")
;;257
;;21,"55045-2919-01 ")
;;263
;;21,"55045-3054-01 ")
;;272
;;21,"55045-3063-00 ")
;;178
;;21,"55045-3351-00 ")
;;281
;;21,"55045-3354-00 ")
;;286
;;21,"55045-3388-01 ")
;;298
;;21,"55045-3416-00 ")
;;290
;;21,"55045-3494-01 ")
;;143
;;21,"55045-3686-01 ")
;;313
;;21,"55045-3695-08 ")
;;181
;;21,"55887-0043-18 ")
;;155
;;21,"55887-0332-24 ")
;;339
;;21,"55887-0391-25 ")
;;40
;;21,"55887-0391-30 ")
;;41
;;21,"55887-0678-60 ")
;;299
;;21,"55887-0812-18 ")
;;125
;;21,"57866-0051-01 ")
;;126
;;21,"58016-4604-01 ")
;;314
;;21,"58016-4812-01 ")
;;300
;;21,"58016-4813-01 ")
;;324
;;21,"58016-6099-01 ")
;;141
;;21,"58016-6207-00 ")
;;165
;;21,"58016-6207-01 ")
;;166
;;21,"58016-6404-01 ")
;;70
;;21,"58016-6537-01 ")
;;368
;;21,"58016-6569-01 ")
;;127
;;21,"59310-0175-40 ")
;;179
;;21,"59310-0177-80 ")
;;182
;;21,"59310-0179-20 ")
;;146
;;21,"59310-0579-20 ")
;;147
;;21,"59930-1517-01 ")
;;42
;;21,"59930-1517-02 ")
;;43
;;21,"59930-1560-01 ")
;;128
;;21,"59930-1647-02 ")
;;71
;;21,"60346-0282-74 ")
;;241
;;21,"60432-0094-06 ")
;;44
;;21,"60432-0157-06 ")
;;224
;;21,"60432-0157-21 ")
;;225
;;21,"60432-0676-01 ")
;;369
;;21,"60432-0676-30 ")
;;370
;;21,"60505-0802-01 ")
;;226
;;21,"60505-0802-02 ")
;;227
;;21,"60505-0807-01 ")
;;357
;;21,"60505-0808-01 ")
;;362
;;21,"60598-0061-60 ")
;;406
;;21,"60793-0010-12 ")
;;234
;;21,"60793-0010-60 ")
;;235
;;21,"60793-0011-08 ")
;;209
;;21,"60793-0011-14 ")
;;210
;;21,"60793-0120-01 ")
;;381
;;21,"62037-0794-44 ")
;;129
;;21,"63402-0510-01 ")
;;350
;;21,"63402-0511-24 ")
;;335
;;21,"63402-0512-24 ")
;;340
;;21,"63402-0513-24 ")
;;345
;;21,"63402-0515-30 ")
;;341
;;21,"63402-0911-30 ")
;;157
;;21,"63402-0911-64 ")
;;158
;;21,"63874-0708-20 ")
;;72
;;21,"63874-0714-20 ")
;;407
;;21,"63874-0749-17 ")
;;130
;;21,"65271-0002-05 ")
;;45
;;21,"65271-0002-06 ")
;;46
;;21,"66267-0995-17 ")
;;131
;;21,"66794-0001-25 ")
;;47
;;21,"66794-0001-30 ")
;;48
;;21,"66794-0001-60 ")
;;49
;;21,"68115-0547-20 ")
;;408
;;21,"68115-0637-13 ")
;;264
;;21,"68115-0651-60 ")
;;332
;;21,"68115-0652-01 ")
;;249
;;21,"68115-0653-01 ")
;;242
;;21,"68115-0657-01 ")
;;325
;;21,"68115-0711-20 ")
;;73
;;21,"68115-0760-01 ")
;;301
;;21,"68115-0769-17 ")
;;156
;;21,"68115-0775-07 ")
;;183
;;21,"68115-0924-60 ")
;;315
;;21,"68115-0995-17 ")
;;132
;;9002226,561,.01)
;;BGP HEDIS ASTHMA INHALED NDC
;;9002226,561,.02)
;;@
;;9002226,561,.04)
;;n
;;9002226,561,.06)
;;@
;;9002226,561,.08)
;;@
;;9002226,561,.09)
;;@
;;9002226,561,.11)
;;@
;;9002226,561,.12)
;;@
;;9002226,561,.13)
;;1
;;9002226,561,.14)
;;@
;;9002226,561,.15)
;;@
;;9002226,561,.16)
;;@
;;9002226,561,.17)
;;@
;;9002226,561,3101)
;;@
;;9002226.02101,"561,00054-8167-21 ",.01)
;;00054-8167-21
;;9002226.02101,"561,00054-8167-21 ",.02)
;;00054-8167-21
;;9002226.02101,"561,00054-8167-23 ",.01)
;;00054-8167-23
;;9002226.02101,"561,00054-8167-23 ",.02)
;;00054-8167-23
;;9002226.02101,"561,00054-8613-11 ",.01)
;;00054-8613-11
;;9002226.02101,"561,00054-8613-11 ",.02)
;;00054-8613-11
;;9002226.02101,"561,00075-0060-37 ",.01)
;;00075-0060-37
;;9002226.02101,"561,00075-0060-37 ",.02)
;;00075-0060-37
;;9002226.02101,"561,00083-0167-02 ",.01)
;;00083-0167-02
;;9002226.02101,"561,00083-0167-02 ",.02)
;;00083-0167-02
;;9002226.02101,"561,00083-0167-74 ",.01)
;;00083-0167-74
;;9002226.02101,"561,00083-0167-74 ",.02)
;;00083-0167-74
;;9002226.02101,"561,00085-0208-02 ",.01)
;;00085-0208-02
;;9002226.02101,"561,00085-0208-02 ",.02)
;;00085-0208-02
;;9002226.02101,"561,00085-0209-01 ",.01)
;;00085-0209-01
;;9002226.02101,"561,00085-0209-01 ",.02)
;;00085-0209-01
;;9002226.02101,"561,00085-0614-02 ",.01)
;;00085-0614-02
;;9002226.02101,"561,00085-0614-02 ",.02)
;;00085-0614-02
;;9002226.02101,"561,00085-0614-03 ",.01)
;;00085-0614-03
;;9002226.02101,"561,00085-0614-03 ",.02)
;;00085-0614-03
BGP9SXFC ; 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,"54868-4409-00 ")
+2 ;;338
+3 ;;21,"54868-4481-00 ")
+4 ;;399
+5 ;;21,"54868-4516-00 ")
+6 ;;323
+7 ;;21,"54868-4517-00 ")
+8 ;;312
+9 ;;21,"54868-4518-00 ")
+10 ;;297
+11 ;;21,"54868-4972-00 ")
+12 ;;330
+13 ;;21,"54868-4972-01 ")
+14 ;;331
+15 ;;21,"54868-5294-00 ")
+16 ;;239
+17 ;;21,"54868-5362-00 ")
+18 ;;280
+19 ;;21,"54868-5459-00 ")
+20 ;;344
+21 ;;21,"54868-5547-00 ")
+22 ;;377
+23 ;;21,"54868-5547-01 ")
+24 ;;378
+25 ;;21,"54868-5621-00 ")
+26 ;;189
+27 ;;21,"54868-5637-00 ")
+28 ;;285
+29 ;;21,"54868-5646-00 ")
+30 ;;121
+31 ;;21,"54868-5646-01 ")
+32 ;;122
+33 ;;21,"54868-5646-02 ")
+34 ;;123
+35 ;;21,"54868-5774-00 ")
+36 ;;186
+37 ;;21,"54868-5844-00 ")
+38 ;;193
+39 ;;21,"54868-5857-00 ")
+40 ;;177
+41 ;;21,"54868-5858-00 ")
+42 ;;180
+43 ;;21,"55045-1868-03 ")
+44 ;;248
+45 ;;21,"55045-2043-07 ")
+46 ;;39
+47 ;;21,"55045-2390-05 ")
+48 ;;124
+49 ;;21,"55045-2470-02 ")
+50 ;;69
+51 ;;21,"55045-2520-07 ")
+52 ;;240
+53 ;;21,"55045-2819-00 ")
+54 ;;257
+55 ;;21,"55045-2919-01 ")
+56 ;;263
+57 ;;21,"55045-3054-01 ")
+58 ;;272
+59 ;;21,"55045-3063-00 ")
+60 ;;178
+61 ;;21,"55045-3351-00 ")
+62 ;;281
+63 ;;21,"55045-3354-00 ")
+64 ;;286
+65 ;;21,"55045-3388-01 ")
+66 ;;298
+67 ;;21,"55045-3416-00 ")
+68 ;;290
+69 ;;21,"55045-3494-01 ")
+70 ;;143
+71 ;;21,"55045-3686-01 ")
+72 ;;313
+73 ;;21,"55045-3695-08 ")
+74 ;;181
+75 ;;21,"55887-0043-18 ")
+76 ;;155
+77 ;;21,"55887-0332-24 ")
+78 ;;339
+79 ;;21,"55887-0391-25 ")
+80 ;;40
+81 ;;21,"55887-0391-30 ")
+82 ;;41
+83 ;;21,"55887-0678-60 ")
+84 ;;299
+85 ;;21,"55887-0812-18 ")
+86 ;;125
+87 ;;21,"57866-0051-01 ")
+88 ;;126
+89 ;;21,"58016-4604-01 ")
+90 ;;314
+91 ;;21,"58016-4812-01 ")
+92 ;;300
+93 ;;21,"58016-4813-01 ")
+94 ;;324
+95 ;;21,"58016-6099-01 ")
+96 ;;141
+97 ;;21,"58016-6207-00 ")
+98 ;;165
+99 ;;21,"58016-6207-01 ")
+100 ;;166
+101 ;;21,"58016-6404-01 ")
+102 ;;70
+103 ;;21,"58016-6537-01 ")
+104 ;;368
+105 ;;21,"58016-6569-01 ")
+106 ;;127
+107 ;;21,"59310-0175-40 ")
+108 ;;179
+109 ;;21,"59310-0177-80 ")
+110 ;;182
+111 ;;21,"59310-0179-20 ")
+112 ;;146
+113 ;;21,"59310-0579-20 ")
+114 ;;147
+115 ;;21,"59930-1517-01 ")
+116 ;;42
+117 ;;21,"59930-1517-02 ")
+118 ;;43
+119 ;;21,"59930-1560-01 ")
+120 ;;128
+121 ;;21,"59930-1647-02 ")
+122 ;;71
+123 ;;21,"60346-0282-74 ")
+124 ;;241
+125 ;;21,"60432-0094-06 ")
+126 ;;44
+127 ;;21,"60432-0157-06 ")
+128 ;;224
+129 ;;21,"60432-0157-21 ")
+130 ;;225
+131 ;;21,"60432-0676-01 ")
+132 ;;369
+133 ;;21,"60432-0676-30 ")
+134 ;;370
+135 ;;21,"60505-0802-01 ")
+136 ;;226
+137 ;;21,"60505-0802-02 ")
+138 ;;227
+139 ;;21,"60505-0807-01 ")
+140 ;;357
+141 ;;21,"60505-0808-01 ")
+142 ;;362
+143 ;;21,"60598-0061-60 ")
+144 ;;406
+145 ;;21,"60793-0010-12 ")
+146 ;;234
+147 ;;21,"60793-0010-60 ")
+148 ;;235
+149 ;;21,"60793-0011-08 ")
+150 ;;209
+151 ;;21,"60793-0011-14 ")
+152 ;;210
+153 ;;21,"60793-0120-01 ")
+154 ;;381
+155 ;;21,"62037-0794-44 ")
+156 ;;129
+157 ;;21,"63402-0510-01 ")
+158 ;;350
+159 ;;21,"63402-0511-24 ")
+160 ;;335
+161 ;;21,"63402-0512-24 ")
+162 ;;340
+163 ;;21,"63402-0513-24 ")
+164 ;;345
+165 ;;21,"63402-0515-30 ")
+166 ;;341
+167 ;;21,"63402-0911-30 ")
+168 ;;157
+169 ;;21,"63402-0911-64 ")
+170 ;;158
+171 ;;21,"63874-0708-20 ")
+172 ;;72
+173 ;;21,"63874-0714-20 ")
+174 ;;407
+175 ;;21,"63874-0749-17 ")
+176 ;;130
+177 ;;21,"65271-0002-05 ")
+178 ;;45
+179 ;;21,"65271-0002-06 ")
+180 ;;46
+181 ;;21,"66267-0995-17 ")
+182 ;;131
+183 ;;21,"66794-0001-25 ")
+184 ;;47
+185 ;;21,"66794-0001-30 ")
+186 ;;48
+187 ;;21,"66794-0001-60 ")
+188 ;;49
+189 ;;21,"68115-0547-20 ")
+190 ;;408
+191 ;;21,"68115-0637-13 ")
+192 ;;264
+193 ;;21,"68115-0651-60 ")
+194 ;;332
+195 ;;21,"68115-0652-01 ")
+196 ;;249
+197 ;;21,"68115-0653-01 ")
+198 ;;242
+199 ;;21,"68115-0657-01 ")
+200 ;;325
+201 ;;21,"68115-0711-20 ")
+202 ;;73
+203 ;;21,"68115-0760-01 ")
+204 ;;301
+205 ;;21,"68115-0769-17 ")
+206 ;;156
+207 ;;21,"68115-0775-07 ")
+208 ;;183
+209 ;;21,"68115-0924-60 ")
+210 ;;315
+211 ;;21,"68115-0995-17 ")
+212 ;;132
+213 ;;9002226,561,.01)
+214 ;;BGP HEDIS ASTHMA INHALED NDC
+215 ;;9002226,561,.02)
+216 ;;@
+217 ;;9002226,561,.04)
+218 ;;n
+219 ;;9002226,561,.06)
+220 ;;@
+221 ;;9002226,561,.08)
+222 ;;@
+223 ;;9002226,561,.09)
+224 ;;@
+225 ;;9002226,561,.11)
+226 ;;@
+227 ;;9002226,561,.12)
+228 ;;@
+229 ;;9002226,561,.13)
+230 ;;1
+231 ;;9002226,561,.14)
+232 ;;@
+233 ;;9002226,561,.15)
+234 ;;@
+235 ;;9002226,561,.16)
+236 ;;@
+237 ;;9002226,561,.17)
+238 ;;@
+239 ;;9002226,561,3101)
+240 ;;@
+241 ;;9002226.02101,"561,00054-8167-21 ",.01)
+242 ;;00054-8167-21
+243 ;;9002226.02101,"561,00054-8167-21 ",.02)
+244 ;;00054-8167-21
+245 ;;9002226.02101,"561,00054-8167-23 ",.01)
+246 ;;00054-8167-23
+247 ;;9002226.02101,"561,00054-8167-23 ",.02)
+248 ;;00054-8167-23
+249 ;;9002226.02101,"561,00054-8613-11 ",.01)
+250 ;;00054-8613-11
+251 ;;9002226.02101,"561,00054-8613-11 ",.02)
+252 ;;00054-8613-11
+253 ;;9002226.02101,"561,00075-0060-37 ",.01)
+254 ;;00075-0060-37
+255 ;;9002226.02101,"561,00075-0060-37 ",.02)
+256 ;;00075-0060-37
+257 ;;9002226.02101,"561,00083-0167-02 ",.01)
+258 ;;00083-0167-02
+259 ;;9002226.02101,"561,00083-0167-02 ",.02)
+260 ;;00083-0167-02
+261 ;;9002226.02101,"561,00083-0167-74 ",.01)
+262 ;;00083-0167-74
+263 ;;9002226.02101,"561,00083-0167-74 ",.02)
+264 ;;00083-0167-74
+265 ;;9002226.02101,"561,00085-0208-02 ",.01)
+266 ;;00085-0208-02
+267 ;;9002226.02101,"561,00085-0208-02 ",.02)
+268 ;;00085-0208-02
+269 ;;9002226.02101,"561,00085-0209-01 ",.01)
+270 ;;00085-0209-01
+271 ;;9002226.02101,"561,00085-0209-01 ",.02)
+272 ;;00085-0209-01
+273 ;;9002226.02101,"561,00085-0614-02 ",.01)
+274 ;;00085-0614-02
+275 ;;9002226.02101,"561,00085-0614-02 ",.02)
+276 ;;00085-0614-02
+277 ;;9002226.02101,"561,00085-0614-03 ",.01)
+278 ;;00085-0614-03
+279 ;;9002226.02101,"561,00085-0614-03 ",.02)
+280 ;;00085-0614-03
