BGP9SXHC ; 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-0029-03 ")
;;322
;;21,"54868-0029-05 ")
;;323
;;21,"54868-0029-06 ")
;;324
;;21,"54868-0029-07 ")
;;325
;;21,"54868-1438-00 ")
;;361
;;21,"54868-1438-01 ")
;;362
;;21,"54868-1461-01 ")
;;129
;;21,"54868-1461-02 ")
;;130
;;21,"54868-2710-00 ")
;;352
;;21,"54868-2710-01 ")
;;353
;;21,"54868-5531-00 ")
;;252
;;21,"54868-5531-01 ")
;;253
;;21,"55045-3768-08 ")
;;131
;;21,"55053-0522-01 ")
;;70
;;21,"55289-0003-60 ")
;;175
;;21,"55289-0155-97 ")
;;278
;;21,"55289-0259-01 ")
;;185
;;21,"55289-0259-30 ")
;;186
;;21,"55289-0259-60 ")
;;187
;;21,"55289-0260-01 ")
;;285
;;21,"55289-0260-06 ")
;;286
;;21,"55289-0260-20 ")
;;287
;;21,"55289-0260-30 ")
;;288
;;21,"55289-0260-60 ")
;;289
;;21,"55289-0789-30 ")
;;363
;;21,"55887-0079-60 ")
;;369
;;21,"55887-0277-30 ")
;;188
;;21,"55887-0847-60 ")
;;290
;;21,"55887-0847-90 ")
;;291
;;21,"56126-0438-11 ")
;;246
;;21,"57779-0115-09 ")
;;88
;;21,"57866-4651-02 ")
;;218
;;21,"57866-4652-02 ")
;;326
;;21,"57866-4653-01 ")
;;372
;;21,"59243-0021-10 ")
;;56
;;21,"60258-0335-16 ")
;;46
;;21,"60258-0336-01 ")
;;67
;;21,"60258-0371-16 ")
;;50
;;21,"61392-0016-30 ")
;;219
;;21,"61392-0016-45 ")
;;220
;;21,"61392-0016-51 ")
;;221
;;21,"61392-0016-54 ")
;;222
;;21,"61392-0016-56 ")
;;223
;;21,"61392-0016-60 ")
;;224
;;21,"61392-0016-90 ")
;;225
;;21,"61392-0016-91 ")
;;226
;;21,"61392-0017-30 ")
;;327
;;21,"61392-0017-51 ")
;;328
;;21,"61392-0017-54 ")
;;329
;;21,"61392-0017-56 ")
;;330
;;21,"61392-0017-60 ")
;;331
;;21,"61392-0017-90 ")
;;332
;;21,"61392-0017-91 ")
;;333
;;21,"61570-0019-01 ")
;;257
;;21,"61570-0020-01 ")
;;256
;;21,"61570-0022-01 ")
;;90
;;21,"63629-2792-01 ")
;;227
;;21,"63629-2792-02 ")
;;228
;;21,"63629-3551-01 ")
;;132
;;21,"63874-0443-01 ")
;;133
;;21,"63874-0443-15 ")
;;134
;;21,"63874-0443-20 ")
;;135
;;21,"63874-0443-30 ")
;;136
;;21,"63874-0447-01 ")
;;229
;;21,"63874-0447-15 ")
;;230
;;21,"63874-0447-20 ")
;;231
;;21,"63874-0447-30 ")
;;232
;;21,"63874-0447-60 ")
;;233
;;21,"63874-0675-01 ")
;;334
;;21,"63874-0675-15 ")
;;335
;;21,"63874-0675-20 ")
;;336
;;21,"63874-0675-30 ")
;;254
;;21,"63874-0744-12 ")
;;384
;;21,"63874-0744-24 ")
;;385
;;21,"64661-0814-16 ")
;;52
;;21,"65162-0324-10 ")
;;234
;;21,"65162-0324-11 ")
;;235
;;21,"65162-0325-10 ")
;;337
;;21,"65162-0325-11 ")
;;338
;;21,"65162-0335-10 ")
;;137
;;21,"66239-0111-16 ")
;;47
;;21,"66336-0596-30 ")
;;339
;;21,"67781-0251-01 ")
;;364
;;21,"67781-0251-05 ")
;;365
;;21,"67781-0252-01 ")
;;376
;;21,"68115-0328-60 ")
;;340
;;9002226,745,.01)
;;BGP HEDIS ASTHMA NDC
;;9002226,745,.02)
;;@
;;9002226,745,.04)
;;n
;;9002226,745,.06)
;;@
;;9002226,745,.08)
;;@
;;9002226,745,.09)
;;3080528
;;9002226,745,.11)
;;@
;;9002226,745,.12)
;;@
;;9002226,745,.13)
;;1
;;9002226,745,.14)
;;@
;;9002226,745,.15)
;;@
;;9002226,745,.16)
;;@
;;9002226,745,.17)
;;@
;;9002226,745,3101)
;;@
;;9002226.02101,"745,00034-7004-70 ",.01)
;;00034-7004-70
;;9002226.02101,"745,00034-7004-70 ",.02)
;;00034-7004-70
;;9002226.02101,"745,00034-7004-80 ",.01)
;;00034-7004-80
;;9002226.02101,"745,00034-7004-80 ",.02)
;;00034-7004-80
;;9002226.02101,"745,00034-7006-80 ",.01)
;;00034-7006-80
;;9002226.02101,"745,00034-7006-80 ",.02)
;;00034-7006-80
;;9002226.02101,"745,00034-7102-80 ",.01)
;;00034-7102-80
;;9002226.02101,"745,00034-7102-80 ",.02)
;;00034-7102-80
;;9002226.02101,"745,00037-0515-68 ",.01)
;;00037-0515-68
;;9002226.02101,"745,00037-0515-68 ",.02)
;;00037-0515-68
;;9002226.02101,"745,00037-0521-92 ",.01)
;;00037-0521-92
;;9002226.02101,"745,00037-0521-92 ",.02)
;;00037-0521-92
;;9002226.02101,"745,00037-0521-97 ",.01)
;;00037-0521-97
;;9002226.02101,"745,00037-0521-97 ",.02)
;;00037-0521-97
;;9002226.02101,"745,00037-0521-98 ",.01)
;;00037-0521-98
;;9002226.02101,"745,00037-0521-98 ",.02)
;;00037-0521-98
;;9002226.02101,"745,00037-0541-92 ",.01)
;;00037-0541-92
;;9002226.02101,"745,00037-0541-92 ",.02)
;;00037-0541-92
;;9002226.02101,"745,00037-0541-96 ",.01)
;;00037-0541-96
;;9002226.02101,"745,00037-0541-96 ",.02)
;;00037-0541-96
;;9002226.02101,"745,00037-0541-97 ",.01)
;;00037-0541-97
;;9002226.02101,"745,00037-0541-97 ",.02)
;;00037-0541-97
;;9002226.02101,"745,00037-0545-68 ",.01)
;;00037-0545-68
;;9002226.02101,"745,00037-0545-68 ",.02)
;;00037-0545-68
;;9002226.02101,"745,00037-0731-92 ",.01)
;;00037-0731-92
;;9002226.02101,"745,00037-0731-92 ",.02)
;;00037-0731-92
;;9002226.02101,"745,00037-0731-99 ",.01)
;;00037-0731-99
;;9002226.02101,"745,00037-0731-99 ",.02)
;;00037-0731-99
;;9002226.02101,"745,00054-3045-63 ",.01)
;;00054-3045-63
;;9002226.02101,"745,00054-3045-63 ",.02)
;;00054-3045-63
;;9002226.02101,"745,00054-8049-16 ",.01)
;;00054-8049-16
BGP9SXHC ; 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-0029-03 ")
+2 ;;322
+3 ;;21,"54868-0029-05 ")
+4 ;;323
+5 ;;21,"54868-0029-06 ")
+6 ;;324
+7 ;;21,"54868-0029-07 ")
+8 ;;325
+9 ;;21,"54868-1438-00 ")
+10 ;;361
+11 ;;21,"54868-1438-01 ")
+12 ;;362
+13 ;;21,"54868-1461-01 ")
+14 ;;129
+15 ;;21,"54868-1461-02 ")
+16 ;;130
+17 ;;21,"54868-2710-00 ")
+18 ;;352
+19 ;;21,"54868-2710-01 ")
+20 ;;353
+21 ;;21,"54868-5531-00 ")
+22 ;;252
+23 ;;21,"54868-5531-01 ")
+24 ;;253
+25 ;;21,"55045-3768-08 ")
+26 ;;131
+27 ;;21,"55053-0522-01 ")
+28 ;;70
+29 ;;21,"55289-0003-60 ")
+30 ;;175
+31 ;;21,"55289-0155-97 ")
+32 ;;278
+33 ;;21,"55289-0259-01 ")
+34 ;;185
+35 ;;21,"55289-0259-30 ")
+36 ;;186
+37 ;;21,"55289-0259-60 ")
+38 ;;187
+39 ;;21,"55289-0260-01 ")
+40 ;;285
+41 ;;21,"55289-0260-06 ")
+42 ;;286
+43 ;;21,"55289-0260-20 ")
+44 ;;287
+45 ;;21,"55289-0260-30 ")
+46 ;;288
+47 ;;21,"55289-0260-60 ")
+48 ;;289
+49 ;;21,"55289-0789-30 ")
+50 ;;363
+51 ;;21,"55887-0079-60 ")
+52 ;;369
+53 ;;21,"55887-0277-30 ")
+54 ;;188
+55 ;;21,"55887-0847-60 ")
+56 ;;290
+57 ;;21,"55887-0847-90 ")
+58 ;;291
+59 ;;21,"56126-0438-11 ")
+60 ;;246
+61 ;;21,"57779-0115-09 ")
+62 ;;88
+63 ;;21,"57866-4651-02 ")
+64 ;;218
+65 ;;21,"57866-4652-02 ")
+66 ;;326
+67 ;;21,"57866-4653-01 ")
+68 ;;372
+69 ;;21,"59243-0021-10 ")
+70 ;;56
+71 ;;21,"60258-0335-16 ")
+72 ;;46
+73 ;;21,"60258-0336-01 ")
+74 ;;67
+75 ;;21,"60258-0371-16 ")
+76 ;;50
+77 ;;21,"61392-0016-30 ")
+78 ;;219
+79 ;;21,"61392-0016-45 ")
+80 ;;220
+81 ;;21,"61392-0016-51 ")
+82 ;;221
+83 ;;21,"61392-0016-54 ")
+84 ;;222
+85 ;;21,"61392-0016-56 ")
+86 ;;223
+87 ;;21,"61392-0016-60 ")
+88 ;;224
+89 ;;21,"61392-0016-90 ")
+90 ;;225
+91 ;;21,"61392-0016-91 ")
+92 ;;226
+93 ;;21,"61392-0017-30 ")
+94 ;;327
+95 ;;21,"61392-0017-51 ")
+96 ;;328
+97 ;;21,"61392-0017-54 ")
+98 ;;329
+99 ;;21,"61392-0017-56 ")
+100 ;;330
+101 ;;21,"61392-0017-60 ")
+102 ;;331
+103 ;;21,"61392-0017-90 ")
+104 ;;332
+105 ;;21,"61392-0017-91 ")
+106 ;;333
+107 ;;21,"61570-0019-01 ")
+108 ;;257
+109 ;;21,"61570-0020-01 ")
+110 ;;256
+111 ;;21,"61570-0022-01 ")
+112 ;;90
+113 ;;21,"63629-2792-01 ")
+114 ;;227
+115 ;;21,"63629-2792-02 ")
+116 ;;228
+117 ;;21,"63629-3551-01 ")
+118 ;;132
+119 ;;21,"63874-0443-01 ")
+120 ;;133
+121 ;;21,"63874-0443-15 ")
+122 ;;134
+123 ;;21,"63874-0443-20 ")
+124 ;;135
+125 ;;21,"63874-0443-30 ")
+126 ;;136
+127 ;;21,"63874-0447-01 ")
+128 ;;229
+129 ;;21,"63874-0447-15 ")
+130 ;;230
+131 ;;21,"63874-0447-20 ")
+132 ;;231
+133 ;;21,"63874-0447-30 ")
+134 ;;232
+135 ;;21,"63874-0447-60 ")
+136 ;;233
+137 ;;21,"63874-0675-01 ")
+138 ;;334
+139 ;;21,"63874-0675-15 ")
+140 ;;335
+141 ;;21,"63874-0675-20 ")
+142 ;;336
+143 ;;21,"63874-0675-30 ")
+144 ;;254
+145 ;;21,"63874-0744-12 ")
+146 ;;384
+147 ;;21,"63874-0744-24 ")
+148 ;;385
+149 ;;21,"64661-0814-16 ")
+150 ;;52
+151 ;;21,"65162-0324-10 ")
+152 ;;234
+153 ;;21,"65162-0324-11 ")
+154 ;;235
+155 ;;21,"65162-0325-10 ")
+156 ;;337
+157 ;;21,"65162-0325-11 ")
+158 ;;338
+159 ;;21,"65162-0335-10 ")
+160 ;;137
+161 ;;21,"66239-0111-16 ")
+162 ;;47
+163 ;;21,"66336-0596-30 ")
+164 ;;339
+165 ;;21,"67781-0251-01 ")
+166 ;;364
+167 ;;21,"67781-0251-05 ")
+168 ;;365
+169 ;;21,"67781-0252-01 ")
+170 ;;376
+171 ;;21,"68115-0328-60 ")
+172 ;;340
+173 ;;9002226,745,.01)
+174 ;;BGP HEDIS ASTHMA NDC
+175 ;;9002226,745,.02)
+176 ;;@
+177 ;;9002226,745,.04)
+178 ;;n
+179 ;;9002226,745,.06)
+180 ;;@
+181 ;;9002226,745,.08)
+182 ;;@
+183 ;;9002226,745,.09)
+184 ;;3080528
+185 ;;9002226,745,.11)
+186 ;;@
+187 ;;9002226,745,.12)
+188 ;;@
+189 ;;9002226,745,.13)
+190 ;;1
+191 ;;9002226,745,.14)
+192 ;;@
+193 ;;9002226,745,.15)
+194 ;;@
+195 ;;9002226,745,.16)
+196 ;;@
+197 ;;9002226,745,.17)
+198 ;;@
+199 ;;9002226,745,3101)
+200 ;;@
+201 ;;9002226.02101,"745,00034-7004-70 ",.01)
+202 ;;00034-7004-70
+203 ;;9002226.02101,"745,00034-7004-70 ",.02)
+204 ;;00034-7004-70
+205 ;;9002226.02101,"745,00034-7004-80 ",.01)
+206 ;;00034-7004-80
+207 ;;9002226.02101,"745,00034-7004-80 ",.02)
+208 ;;00034-7004-80
+209 ;;9002226.02101,"745,00034-7006-80 ",.01)
+210 ;;00034-7006-80
+211 ;;9002226.02101,"745,00034-7006-80 ",.02)
+212 ;;00034-7006-80
+213 ;;9002226.02101,"745,00034-7102-80 ",.01)
+214 ;;00034-7102-80
+215 ;;9002226.02101,"745,00034-7102-80 ",.02)
+216 ;;00034-7102-80
+217 ;;9002226.02101,"745,00037-0515-68 ",.01)
+218 ;;00037-0515-68
+219 ;;9002226.02101,"745,00037-0515-68 ",.02)
+220 ;;00037-0515-68
+221 ;;9002226.02101,"745,00037-0521-92 ",.01)
+222 ;;00037-0521-92
+223 ;;9002226.02101,"745,00037-0521-92 ",.02)
+224 ;;00037-0521-92
+225 ;;9002226.02101,"745,00037-0521-97 ",.01)
+226 ;;00037-0521-97
+227 ;;9002226.02101,"745,00037-0521-97 ",.02)
+228 ;;00037-0521-97
+229 ;;9002226.02101,"745,00037-0521-98 ",.01)
+230 ;;00037-0521-98
+231 ;;9002226.02101,"745,00037-0521-98 ",.02)
+232 ;;00037-0521-98
+233 ;;9002226.02101,"745,00037-0541-92 ",.01)
+234 ;;00037-0541-92
+235 ;;9002226.02101,"745,00037-0541-92 ",.02)
+236 ;;00037-0541-92
+237 ;;9002226.02101,"745,00037-0541-96 ",.01)
+238 ;;00037-0541-96
+239 ;;9002226.02101,"745,00037-0541-96 ",.02)
+240 ;;00037-0541-96
+241 ;;9002226.02101,"745,00037-0541-97 ",.01)
+242 ;;00037-0541-97
+243 ;;9002226.02101,"745,00037-0541-97 ",.02)
+244 ;;00037-0541-97
+245 ;;9002226.02101,"745,00037-0545-68 ",.01)
+246 ;;00037-0545-68
+247 ;;9002226.02101,"745,00037-0545-68 ",.02)
+248 ;;00037-0545-68
+249 ;;9002226.02101,"745,00037-0731-92 ",.01)
+250 ;;00037-0731-92
+251 ;;9002226.02101,"745,00037-0731-92 ",.02)
+252 ;;00037-0731-92
+253 ;;9002226.02101,"745,00037-0731-99 ",.01)
+254 ;;00037-0731-99
+255 ;;9002226.02101,"745,00037-0731-99 ",.02)
+256 ;;00037-0731-99
+257 ;;9002226.02101,"745,00054-3045-63 ",.01)
+258 ;;00054-3045-63
+259 ;;9002226.02101,"745,00054-3045-63 ",.02)
+260 ;;00054-3045-63
+261 ;;9002226.02101,"745,00054-8049-16 ",.01)
+262 ;;00054-8049-16
