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