BGP12WD ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
;
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,"55289-0990-21 ")
;;308
;;21,"55289-0990-30 ")
;;309
;;21,"55422-0814-16 ")
;;229
;;21,"55887-0079-60 ")
;;431
;;21,"55887-0120-90 ")
;;310
;;21,"55887-0277-30 ")
;;432
;;21,"55887-0678-60 ")
;;49
;;21,"55887-0847-60 ")
;;433
;;21,"55887-0847-90 ")
;;434
;;21,"57866-4651-02 ")
;;503
;;21,"57866-4652-02 ")
;;504
;;21,"58016-4604-01 ")
;;50
;;21,"58016-4812-01 ")
;;51
;;21,"58016-4813-01 ")
;;52
;;21,"58864-0658-30 ")
;;311
;;21,"58864-0694-30 ")
;;312
;;21,"59243-0021-10 ")
;;121
;;21,"59310-0175-40 ")
;;261
;;21,"59310-0177-80 ")
;;262
;;21,"60258-0335-16 ")
;;165
;;21,"60258-0336-01 ")
;;158
;;21,"60258-0371-16 ")
;;153
;;21,"60346-0282-74 ")
;;78
;;21,"60432-0157-06 ")
;;134
;;21,"60432-0157-21 ")
;;135
;;21,"60505-0802-01 ")
;;136
;;21,"60505-0802-02 ")
;;137
;;21,"60598-0061-60 ")
;;111
;;21,"60793-0010-12 ")
;;219
;;21,"60793-0010-60 ")
;;220
;;21,"60793-0011-08 ")
;;227
;;21,"60793-0011-14 ")
;;228
;;21,"60793-0120-01 ")
;;549
;;21,"61392-0016-30 ")
;;505
;;21,"61392-0016-45 ")
;;506
;;21,"61392-0016-51 ")
;;507
;;21,"61392-0016-54 ")
;;508
;;21,"61392-0016-56 ")
;;509
;;21,"61392-0016-60 ")
;;510
;;21,"61392-0016-90 ")
;;511
;;21,"61392-0016-91 ")
;;512
;;21,"61392-0017-30 ")
;;513
;;21,"61392-0017-51 ")
;;514
;;21,"61392-0017-54 ")
;;515
;;21,"61392-0017-56 ")
;;516
;;21,"61392-0017-60 ")
;;517
;;21,"61392-0017-90 ")
;;518
;;21,"61392-0017-91 ")
;;519
;;21,"61570-0019-01 ")
;;256
;;21,"61570-0020-01 ")
;;255
;;21,"61570-0022-01 ")
;;254
;;21,"63402-0711-01 ")
;;82
;;21,"63402-0712-01 ")
;;83
;;21,"63629-1639-01 ")
;;313
;;21,"63629-2792-01 ")
;;520
;;21,"63629-2792-02 ")
;;521
;;21,"63629-3551-01 ")
;;522
;;21,"63874-0443-01 ")
;;523
;;21,"63874-0443-15 ")
;;524
;;21,"63874-0443-20 ")
;;525
;;21,"63874-0443-30 ")
;;526
;;21,"63874-0447-01 ")
;;527
;;21,"63874-0447-15 ")
;;528
;;21,"63874-0447-20 ")
;;529
;;21,"63874-0447-30 ")
;;530
;;21,"63874-0447-60 ")
;;531
;;21,"63874-0675-01 ")
;;532
;;21,"63874-0675-15 ")
;;533
;;21,"63874-0675-20 ")
;;534
;;21,"63874-0675-30 ")
;;535
;;21,"63874-0714-20 ")
;;112
;;21,"63874-0744-12 ")
;;393
;;21,"63874-0744-24 ")
;;394
;;21,"64661-0814-16 ")
;;230
;;21,"65162-0324-10 ")
;;536
;;21,"65162-0324-11 ")
;;537
;;21,"65162-0325-10 ")
;;538
;;21,"65162-0325-11 ")
;;539
;;21,"65162-0335-10 ")
;;540
;;21,"66105-0164-02 ")
;;314
;;21,"66105-0164-03 ")
;;315
;;21,"66105-0164-06 ")
;;316
;;21,"66105-0164-09 ")
;;317
;;21,"66105-0164-10 ")
;;318
;;21,"66105-0501-06 ")
;;20
;;21,"66105-0502-06 ")
;;21
;;21,"66336-0596-30 ")
;;541
;;21,"67781-0251-01 ")
;;558
;;21,"67781-0251-05 ")
;;559
;;21,"67781-0252-01 ")
;;560
;;21,"67801-0305-03 ")
;;319
;;21,"68115-0328-60 ")
;;542
;;21,"68115-0547-20 ")
;;113
;;21,"68115-0637-13 ")
;;191
;;21,"68115-0638-60 ")
;;22
;;21,"68115-0652-01 ")
;;72
;;21,"68115-0653-01 ")
;;79
;;21,"68115-0657-01 ")
;;53
;;21,"68115-0760-01 ")
;;54
;;21,"68115-0775-07 ")
;;263
;;21,"68115-0923-30 ")
;;320
;;21,"68115-0923-90 ")
;;321
;;21,"68115-0924-60 ")
;;55
;;21,"68258-3031-01 ")
;;56
;;21,"68258-3032-03 ")
;;322
;;21,"68258-3033-03 ")
;;323
;;21,"68462-0356-01 ")
;;435
;;21,"68462-0380-01 ")
;;436
;;21,"68734-0700-10 ")
;;564
;;21,"68734-0710-10 ")
;;566
;;9002226,804,.01)
;;BGP HEDIS PRIMARY ASTHMA NDC
;;9002226,804,.02)
;;@
;;9002226,804,.04)
;;n
;;9002226,804,.06)
;;@
;;9002226,804,.08)
;;@
;;9002226,804,.09)
;;@
;;9002226,804,.11)
;;@
;;9002226,804,.12)
;;@
;;9002226,804,.13)
;;1
;;9002226,804,.14)
;;@
;;9002226,804,.15)
;;@
;;9002226,804,.16)
;;@
;;9002226,804,.17)
;;@
;;9002226,804,3101)
;;@
;;9002226.02101,"804,00006-0117-01 ",.01)
;;00006-0117-01
;;9002226.02101,"804,00006-0117-01 ",.02)
;;00006-0117-01
;;9002226.02101,"804,00006-0117-28 ",.01)
;;00006-0117-28
;;9002226.02101,"804,00006-0117-28 ",.02)
;;00006-0117-28
;;9002226.02101,"804,00006-0117-31 ",.01)
;;00006-0117-31
;;9002226.02101,"804,00006-0117-31 ",.02)
;;00006-0117-31
;;9002226.02101,"804,00006-0117-54 ",.01)
;;00006-0117-54
;;9002226.02101,"804,00006-0117-54 ",.02)
;;00006-0117-54
;;9002226.02101,"804,00006-0117-80 ",.01)
;;00006-0117-80
;;9002226.02101,"804,00006-0117-80 ",.02)
;;00006-0117-80
;;9002226.02101,"804,00006-0275-01 ",.01)
;;00006-0275-01
;;9002226.02101,"804,00006-0275-01 ",.02)
;;00006-0275-01
;;9002226.02101,"804,00006-0275-28 ",.01)
;;00006-0275-28
;;9002226.02101,"804,00006-0275-28 ",.02)
;;00006-0275-28
;;9002226.02101,"804,00006-0275-31 ",.01)
;;00006-0275-31
;;9002226.02101,"804,00006-0275-31 ",.02)
;;00006-0275-31
;;9002226.02101,"804,00006-0275-54 ",.01)
;;00006-0275-54
;;9002226.02101,"804,00006-0275-54 ",.02)
;;00006-0275-54
BGP12WD ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
+1 ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
+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,"55289-0990-21 ")
+2 ;;308
+3 ;;21,"55289-0990-30 ")
+4 ;;309
+5 ;;21,"55422-0814-16 ")
+6 ;;229
+7 ;;21,"55887-0079-60 ")
+8 ;;431
+9 ;;21,"55887-0120-90 ")
+10 ;;310
+11 ;;21,"55887-0277-30 ")
+12 ;;432
+13 ;;21,"55887-0678-60 ")
+14 ;;49
+15 ;;21,"55887-0847-60 ")
+16 ;;433
+17 ;;21,"55887-0847-90 ")
+18 ;;434
+19 ;;21,"57866-4651-02 ")
+20 ;;503
+21 ;;21,"57866-4652-02 ")
+22 ;;504
+23 ;;21,"58016-4604-01 ")
+24 ;;50
+25 ;;21,"58016-4812-01 ")
+26 ;;51
+27 ;;21,"58016-4813-01 ")
+28 ;;52
+29 ;;21,"58864-0658-30 ")
+30 ;;311
+31 ;;21,"58864-0694-30 ")
+32 ;;312
+33 ;;21,"59243-0021-10 ")
+34 ;;121
+35 ;;21,"59310-0175-40 ")
+36 ;;261
+37 ;;21,"59310-0177-80 ")
+38 ;;262
+39 ;;21,"60258-0335-16 ")
+40 ;;165
+41 ;;21,"60258-0336-01 ")
+42 ;;158
+43 ;;21,"60258-0371-16 ")
+44 ;;153
+45 ;;21,"60346-0282-74 ")
+46 ;;78
+47 ;;21,"60432-0157-06 ")
+48 ;;134
+49 ;;21,"60432-0157-21 ")
+50 ;;135
+51 ;;21,"60505-0802-01 ")
+52 ;;136
+53 ;;21,"60505-0802-02 ")
+54 ;;137
+55 ;;21,"60598-0061-60 ")
+56 ;;111
+57 ;;21,"60793-0010-12 ")
+58 ;;219
+59 ;;21,"60793-0010-60 ")
+60 ;;220
+61 ;;21,"60793-0011-08 ")
+62 ;;227
+63 ;;21,"60793-0011-14 ")
+64 ;;228
+65 ;;21,"60793-0120-01 ")
+66 ;;549
+67 ;;21,"61392-0016-30 ")
+68 ;;505
+69 ;;21,"61392-0016-45 ")
+70 ;;506
+71 ;;21,"61392-0016-51 ")
+72 ;;507
+73 ;;21,"61392-0016-54 ")
+74 ;;508
+75 ;;21,"61392-0016-56 ")
+76 ;;509
+77 ;;21,"61392-0016-60 ")
+78 ;;510
+79 ;;21,"61392-0016-90 ")
+80 ;;511
+81 ;;21,"61392-0016-91 ")
+82 ;;512
+83 ;;21,"61392-0017-30 ")
+84 ;;513
+85 ;;21,"61392-0017-51 ")
+86 ;;514
+87 ;;21,"61392-0017-54 ")
+88 ;;515
+89 ;;21,"61392-0017-56 ")
+90 ;;516
+91 ;;21,"61392-0017-60 ")
+92 ;;517
+93 ;;21,"61392-0017-90 ")
+94 ;;518
+95 ;;21,"61392-0017-91 ")
+96 ;;519
+97 ;;21,"61570-0019-01 ")
+98 ;;256
+99 ;;21,"61570-0020-01 ")
+100 ;;255
+101 ;;21,"61570-0022-01 ")
+102 ;;254
+103 ;;21,"63402-0711-01 ")
+104 ;;82
+105 ;;21,"63402-0712-01 ")
+106 ;;83
+107 ;;21,"63629-1639-01 ")
+108 ;;313
+109 ;;21,"63629-2792-01 ")
+110 ;;520
+111 ;;21,"63629-2792-02 ")
+112 ;;521
+113 ;;21,"63629-3551-01 ")
+114 ;;522
+115 ;;21,"63874-0443-01 ")
+116 ;;523
+117 ;;21,"63874-0443-15 ")
+118 ;;524
+119 ;;21,"63874-0443-20 ")
+120 ;;525
+121 ;;21,"63874-0443-30 ")
+122 ;;526
+123 ;;21,"63874-0447-01 ")
+124 ;;527
+125 ;;21,"63874-0447-15 ")
+126 ;;528
+127 ;;21,"63874-0447-20 ")
+128 ;;529
+129 ;;21,"63874-0447-30 ")
+130 ;;530
+131 ;;21,"63874-0447-60 ")
+132 ;;531
+133 ;;21,"63874-0675-01 ")
+134 ;;532
+135 ;;21,"63874-0675-15 ")
+136 ;;533
+137 ;;21,"63874-0675-20 ")
+138 ;;534
+139 ;;21,"63874-0675-30 ")
+140 ;;535
+141 ;;21,"63874-0714-20 ")
+142 ;;112
+143 ;;21,"63874-0744-12 ")
+144 ;;393
+145 ;;21,"63874-0744-24 ")
+146 ;;394
+147 ;;21,"64661-0814-16 ")
+148 ;;230
+149 ;;21,"65162-0324-10 ")
+150 ;;536
+151 ;;21,"65162-0324-11 ")
+152 ;;537
+153 ;;21,"65162-0325-10 ")
+154 ;;538
+155 ;;21,"65162-0325-11 ")
+156 ;;539
+157 ;;21,"65162-0335-10 ")
+158 ;;540
+159 ;;21,"66105-0164-02 ")
+160 ;;314
+161 ;;21,"66105-0164-03 ")
+162 ;;315
+163 ;;21,"66105-0164-06 ")
+164 ;;316
+165 ;;21,"66105-0164-09 ")
+166 ;;317
+167 ;;21,"66105-0164-10 ")
+168 ;;318
+169 ;;21,"66105-0501-06 ")
+170 ;;20
+171 ;;21,"66105-0502-06 ")
+172 ;;21
+173 ;;21,"66336-0596-30 ")
+174 ;;541
+175 ;;21,"67781-0251-01 ")
+176 ;;558
+177 ;;21,"67781-0251-05 ")
+178 ;;559
+179 ;;21,"67781-0252-01 ")
+180 ;;560
+181 ;;21,"67801-0305-03 ")
+182 ;;319
+183 ;;21,"68115-0328-60 ")
+184 ;;542
+185 ;;21,"68115-0547-20 ")
+186 ;;113
+187 ;;21,"68115-0637-13 ")
+188 ;;191
+189 ;;21,"68115-0638-60 ")
+190 ;;22
+191 ;;21,"68115-0652-01 ")
+192 ;;72
+193 ;;21,"68115-0653-01 ")
+194 ;;79
+195 ;;21,"68115-0657-01 ")
+196 ;;53
+197 ;;21,"68115-0760-01 ")
+198 ;;54
+199 ;;21,"68115-0775-07 ")
+200 ;;263
+201 ;;21,"68115-0923-30 ")
+202 ;;320
+203 ;;21,"68115-0923-90 ")
+204 ;;321
+205 ;;21,"68115-0924-60 ")
+206 ;;55
+207 ;;21,"68258-3031-01 ")
+208 ;;56
+209 ;;21,"68258-3032-03 ")
+210 ;;322
+211 ;;21,"68258-3033-03 ")
+212 ;;323
+213 ;;21,"68462-0356-01 ")
+214 ;;435
+215 ;;21,"68462-0380-01 ")
+216 ;;436
+217 ;;21,"68734-0700-10 ")
+218 ;;564
+219 ;;21,"68734-0710-10 ")
+220 ;;566
+221 ;;9002226,804,.01)
+222 ;;BGP HEDIS PRIMARY ASTHMA NDC
+223 ;;9002226,804,.02)
+224 ;;@
+225 ;;9002226,804,.04)
+226 ;;n
+227 ;;9002226,804,.06)
+228 ;;@
+229 ;;9002226,804,.08)
+230 ;;@
+231 ;;9002226,804,.09)
+232 ;;@
+233 ;;9002226,804,.11)
+234 ;;@
+235 ;;9002226,804,.12)
+236 ;;@
+237 ;;9002226,804,.13)
+238 ;;1
+239 ;;9002226,804,.14)
+240 ;;@
+241 ;;9002226,804,.15)
+242 ;;@
+243 ;;9002226,804,.16)
+244 ;;@
+245 ;;9002226,804,.17)
+246 ;;@
+247 ;;9002226,804,3101)
+248 ;;@
+249 ;;9002226.02101,"804,00006-0117-01 ",.01)
+250 ;;00006-0117-01
+251 ;;9002226.02101,"804,00006-0117-01 ",.02)
+252 ;;00006-0117-01
+253 ;;9002226.02101,"804,00006-0117-28 ",.01)
+254 ;;00006-0117-28
+255 ;;9002226.02101,"804,00006-0117-28 ",.02)
+256 ;;00006-0117-28
+257 ;;9002226.02101,"804,00006-0117-31 ",.01)
+258 ;;00006-0117-31
+259 ;;9002226.02101,"804,00006-0117-31 ",.02)
+260 ;;00006-0117-31
+261 ;;9002226.02101,"804,00006-0117-54 ",.01)
+262 ;;00006-0117-54
+263 ;;9002226.02101,"804,00006-0117-54 ",.02)
+264 ;;00006-0117-54
+265 ;;9002226.02101,"804,00006-0117-80 ",.01)
+266 ;;00006-0117-80
+267 ;;9002226.02101,"804,00006-0117-80 ",.02)
+268 ;;00006-0117-80
+269 ;;9002226.02101,"804,00006-0275-01 ",.01)
+270 ;;00006-0275-01
+271 ;;9002226.02101,"804,00006-0275-01 ",.02)
+272 ;;00006-0275-01
+273 ;;9002226.02101,"804,00006-0275-28 ",.01)
+274 ;;00006-0275-28
+275 ;;9002226.02101,"804,00006-0275-28 ",.02)
+276 ;;00006-0275-28
+277 ;;9002226.02101,"804,00006-0275-31 ",.01)
+278 ;;00006-0275-31
+279 ;;9002226.02101,"804,00006-0275-31 ",.02)
+280 ;;00006-0275-31
+281 ;;9002226.02101,"804,00006-0275-54 ",.01)
+282 ;;00006-0275-54
+283 ;;9002226.02101,"804,00006-0275-54 ",.02)
+284 ;;00006-0275-54
