BGP9SXTC ; 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,"58016-0142-20 ")
;;304
;;21,"58016-0142-24 ")
;;305
;;21,"58016-0142-28 ")
;;306
;;21,"58016-0142-30 ")
;;307
;;21,"58016-0142-40 ")
;;308
;;21,"58016-0886-00 ")
;;309
;;21,"58016-0886-20 ")
;;310
;;21,"58016-0886-30 ")
;;311
;;21,"58016-0886-60 ")
;;312
;;21,"58016-0886-90 ")
;;313
;;21,"58016-0937-00 ")
;;314
;;21,"58016-0967-00 ")
;;315
;;21,"58016-0967-30 ")
;;316
;;21,"58016-0967-60 ")
;;317
;;21,"58016-0967-90 ")
;;318
;;21,"58864-0323-14 ")
;;319
;;21,"59630-0450-16 ")
;;320
;;21,"61392-0168-30 ")
;;321
;;21,"61392-0168-31 ")
;;322
;;21,"61392-0168-32 ")
;;323
;;21,"61392-0168-39 ")
;;324
;;21,"61392-0168-45 ")
;;325
;;21,"61392-0168-51 ")
;;326
;;21,"61392-0168-54 ")
;;327
;;21,"61392-0168-60 ")
;;328
;;21,"61392-0168-90 ")
;;329
;;21,"61392-0168-91 ")
;;330
;;21,"61392-0169-30 ")
;;331
;;21,"61392-0169-31 ")
;;332
;;21,"61392-0169-32 ")
;;333
;;21,"61392-0169-39 ")
;;334
;;21,"61392-0169-45 ")
;;335
;;21,"61392-0169-51 ")
;;336
;;21,"61392-0169-54 ")
;;337
;;21,"61392-0169-60 ")
;;338
;;21,"61392-0169-90 ")
;;339
;;21,"61392-0169-91 ")
;;340
;;21,"62584-0808-01 ")
;;341
;;21,"63304-0518-01 ")
;;342
;;21,"64727-3299-01 ")
;;343
;;21,"64727-3300-01 ")
;;344
;;21,"64727-3308-01 ")
;;345
;;21,"64727-3312-01 ")
;;346
;;21,"64727-7070-01 ")
;;347
;;21,"64727-7070-02 ")
;;348
;;21,"64727-7073-02 ")
;;349
;;21,"64727-7075-08 ")
;;350
;;21,"64727-7080-01 ")
;;351
;;21,"64727-7080-02 ")
;;352
;;21,"64727-7087-01 ")
;;353
;;21,"64727-7087-02 ")
;;354
;;21,"68115-0220-14 ")
;;355
;;21,"68115-0258-28 ")
;;356
;;21,"68115-0666-00 ")
;;357
;;9002226,720,.01)
;;BGP HEDIS OTHER NDC AVOID ELD
;;9002226,720,.02)
;;@
;;9002226,720,.04)
;;n
;;9002226,720,.06)
;;@
;;9002226,720,.08)
;;@
;;9002226,720,.09)
;;@
;;9002226,720,.11)
;;@
;;9002226,720,.12)
;;@
;;9002226,720,.13)
;;1
;;9002226,720,.14)
;;@
;;9002226,720,.15)
;;@
;;9002226,720,.16)
;;@
;;9002226,720,.17)
;;@
;;9002226,720,3101)
;;@
;;9002226.02101,"720,00076-0301-03 ",.01)
;;00076-0301-03
;;9002226.02101,"720,00076-0301-03 ",.02)
;;00076-0301-03
;;9002226.02101,"720,00076-0301-04 ",.01)
;;00076-0301-04
;;9002226.02101,"720,00076-0301-04 ",.02)
;;00076-0301-04
;;9002226.02101,"720,00115-3982-01 ",.01)
;;00115-3982-01
;;9002226.02101,"720,00115-3982-01 ",.02)
;;00115-3982-01
;;9002226.02101,"720,00115-3982-02 ",.01)
;;00115-3982-02
;;9002226.02101,"720,00115-3982-02 ",.02)
;;00115-3982-02
;;9002226.02101,"720,00115-3982-03 ",.01)
;;00115-3982-03
;;9002226.02101,"720,00115-3982-03 ",.02)
;;00115-3982-03
;;9002226.02101,"720,00115-3984-01 ",.01)
;;00115-3984-01
;;9002226.02101,"720,00115-3984-01 ",.02)
;;00115-3984-01
;;9002226.02101,"720,00115-3984-02 ",.01)
;;00115-3984-02
;;9002226.02101,"720,00115-3984-02 ",.02)
;;00115-3984-02
;;9002226.02101,"720,00115-3984-03 ",.01)
;;00115-3984-03
;;9002226.02101,"720,00115-3984-03 ",.02)
;;00115-3984-03
;;9002226.02101,"720,00115-3986-01 ",.01)
;;00115-3986-01
;;9002226.02101,"720,00115-3986-01 ",.02)
;;00115-3986-01
;;9002226.02101,"720,00115-3986-02 ",.01)
;;00115-3986-02
;;9002226.02101,"720,00115-3986-02 ",.02)
;;00115-3986-02
;;9002226.02101,"720,00115-3986-03 ",.01)
;;00115-3986-03
;;9002226.02101,"720,00115-3986-03 ",.02)
;;00115-3986-03
;;9002226.02101,"720,00115-4824-01 ",.01)
;;00115-4824-01
;;9002226.02101,"720,00115-4824-01 ",.02)
;;00115-4824-01
;;9002226.02101,"720,00115-4824-03 ",.01)
;;00115-4824-03
;;9002226.02101,"720,00115-4824-03 ",.02)
;;00115-4824-03
;;9002226.02101,"720,00115-4826-01 ",.01)
;;00115-4826-01
;;9002226.02101,"720,00115-4826-01 ",.02)
;;00115-4826-01
;;9002226.02101,"720,00115-4826-03 ",.01)
;;00115-4826-03
;;9002226.02101,"720,00115-4826-03 ",.02)
;;00115-4826-03
;;9002226.02101,"720,00115-7037-01 ",.01)
;;00115-7037-01
;;9002226.02101,"720,00115-7037-01 ",.02)
;;00115-7037-01
;;9002226.02101,"720,00115-7038-01 ",.01)
;;00115-7038-01
;;9002226.02101,"720,00115-7038-01 ",.02)
;;00115-7038-01
;;9002226.02101,"720,00149-0007-05 ",.01)
;;00149-0007-05
;;9002226.02101,"720,00149-0007-05 ",.02)
;;00149-0007-05
;;9002226.02101,"720,00149-0008-05 ",.01)
;;00149-0008-05
;;9002226.02101,"720,00149-0008-05 ",.02)
;;00149-0008-05
;;9002226.02101,"720,00149-0008-66 ",.01)
;;00149-0008-66
;;9002226.02101,"720,00149-0008-66 ",.02)
;;00149-0008-66
;;9002226.02101,"720,00149-0008-67 ",.01)
;;00149-0008-67
;;9002226.02101,"720,00149-0008-67 ",.02)
;;00149-0008-67
;;9002226.02101,"720,00149-0008-77 ",.01)
;;00149-0008-77
;;9002226.02101,"720,00149-0008-77 ",.02)
;;00149-0008-77
;;9002226.02101,"720,00149-0009-05 ",.01)
;;00149-0009-05
;;9002226.02101,"720,00149-0009-05 ",.02)
;;00149-0009-05
;;9002226.02101,"720,00149-0009-66 ",.01)
;;00149-0009-66
;;9002226.02101,"720,00149-0009-66 ",.02)
;;00149-0009-66
;;9002226.02101,"720,00149-0009-67 ",.01)
;;00149-0009-67
BGP9SXTC ; 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,"58016-0142-20 ")
+2 ;;304
+3 ;;21,"58016-0142-24 ")
+4 ;;305
+5 ;;21,"58016-0142-28 ")
+6 ;;306
+7 ;;21,"58016-0142-30 ")
+8 ;;307
+9 ;;21,"58016-0142-40 ")
+10 ;;308
+11 ;;21,"58016-0886-00 ")
+12 ;;309
+13 ;;21,"58016-0886-20 ")
+14 ;;310
+15 ;;21,"58016-0886-30 ")
+16 ;;311
+17 ;;21,"58016-0886-60 ")
+18 ;;312
+19 ;;21,"58016-0886-90 ")
+20 ;;313
+21 ;;21,"58016-0937-00 ")
+22 ;;314
+23 ;;21,"58016-0967-00 ")
+24 ;;315
+25 ;;21,"58016-0967-30 ")
+26 ;;316
+27 ;;21,"58016-0967-60 ")
+28 ;;317
+29 ;;21,"58016-0967-90 ")
+30 ;;318
+31 ;;21,"58864-0323-14 ")
+32 ;;319
+33 ;;21,"59630-0450-16 ")
+34 ;;320
+35 ;;21,"61392-0168-30 ")
+36 ;;321
+37 ;;21,"61392-0168-31 ")
+38 ;;322
+39 ;;21,"61392-0168-32 ")
+40 ;;323
+41 ;;21,"61392-0168-39 ")
+42 ;;324
+43 ;;21,"61392-0168-45 ")
+44 ;;325
+45 ;;21,"61392-0168-51 ")
+46 ;;326
+47 ;;21,"61392-0168-54 ")
+48 ;;327
+49 ;;21,"61392-0168-60 ")
+50 ;;328
+51 ;;21,"61392-0168-90 ")
+52 ;;329
+53 ;;21,"61392-0168-91 ")
+54 ;;330
+55 ;;21,"61392-0169-30 ")
+56 ;;331
+57 ;;21,"61392-0169-31 ")
+58 ;;332
+59 ;;21,"61392-0169-32 ")
+60 ;;333
+61 ;;21,"61392-0169-39 ")
+62 ;;334
+63 ;;21,"61392-0169-45 ")
+64 ;;335
+65 ;;21,"61392-0169-51 ")
+66 ;;336
+67 ;;21,"61392-0169-54 ")
+68 ;;337
+69 ;;21,"61392-0169-60 ")
+70 ;;338
+71 ;;21,"61392-0169-90 ")
+72 ;;339
+73 ;;21,"61392-0169-91 ")
+74 ;;340
+75 ;;21,"62584-0808-01 ")
+76 ;;341
+77 ;;21,"63304-0518-01 ")
+78 ;;342
+79 ;;21,"64727-3299-01 ")
+80 ;;343
+81 ;;21,"64727-3300-01 ")
+82 ;;344
+83 ;;21,"64727-3308-01 ")
+84 ;;345
+85 ;;21,"64727-3312-01 ")
+86 ;;346
+87 ;;21,"64727-7070-01 ")
+88 ;;347
+89 ;;21,"64727-7070-02 ")
+90 ;;348
+91 ;;21,"64727-7073-02 ")
+92 ;;349
+93 ;;21,"64727-7075-08 ")
+94 ;;350
+95 ;;21,"64727-7080-01 ")
+96 ;;351
+97 ;;21,"64727-7080-02 ")
+98 ;;352
+99 ;;21,"64727-7087-01 ")
+100 ;;353
+101 ;;21,"64727-7087-02 ")
+102 ;;354
+103 ;;21,"68115-0220-14 ")
+104 ;;355
+105 ;;21,"68115-0258-28 ")
+106 ;;356
+107 ;;21,"68115-0666-00 ")
+108 ;;357
+109 ;;9002226,720,.01)
+110 ;;BGP HEDIS OTHER NDC AVOID ELD
+111 ;;9002226,720,.02)
+112 ;;@
+113 ;;9002226,720,.04)
+114 ;;n
+115 ;;9002226,720,.06)
+116 ;;@
+117 ;;9002226,720,.08)
+118 ;;@
+119 ;;9002226,720,.09)
+120 ;;@
+121 ;;9002226,720,.11)
+122 ;;@
+123 ;;9002226,720,.12)
+124 ;;@
+125 ;;9002226,720,.13)
+126 ;;1
+127 ;;9002226,720,.14)
+128 ;;@
+129 ;;9002226,720,.15)
+130 ;;@
+131 ;;9002226,720,.16)
+132 ;;@
+133 ;;9002226,720,.17)
+134 ;;@
+135 ;;9002226,720,3101)
+136 ;;@
+137 ;;9002226.02101,"720,00076-0301-03 ",.01)
+138 ;;00076-0301-03
+139 ;;9002226.02101,"720,00076-0301-03 ",.02)
+140 ;;00076-0301-03
+141 ;;9002226.02101,"720,00076-0301-04 ",.01)
+142 ;;00076-0301-04
+143 ;;9002226.02101,"720,00076-0301-04 ",.02)
+144 ;;00076-0301-04
+145 ;;9002226.02101,"720,00115-3982-01 ",.01)
+146 ;;00115-3982-01
+147 ;;9002226.02101,"720,00115-3982-01 ",.02)
+148 ;;00115-3982-01
+149 ;;9002226.02101,"720,00115-3982-02 ",.01)
+150 ;;00115-3982-02
+151 ;;9002226.02101,"720,00115-3982-02 ",.02)
+152 ;;00115-3982-02
+153 ;;9002226.02101,"720,00115-3982-03 ",.01)
+154 ;;00115-3982-03
+155 ;;9002226.02101,"720,00115-3982-03 ",.02)
+156 ;;00115-3982-03
+157 ;;9002226.02101,"720,00115-3984-01 ",.01)
+158 ;;00115-3984-01
+159 ;;9002226.02101,"720,00115-3984-01 ",.02)
+160 ;;00115-3984-01
+161 ;;9002226.02101,"720,00115-3984-02 ",.01)
+162 ;;00115-3984-02
+163 ;;9002226.02101,"720,00115-3984-02 ",.02)
+164 ;;00115-3984-02
+165 ;;9002226.02101,"720,00115-3984-03 ",.01)
+166 ;;00115-3984-03
+167 ;;9002226.02101,"720,00115-3984-03 ",.02)
+168 ;;00115-3984-03
+169 ;;9002226.02101,"720,00115-3986-01 ",.01)
+170 ;;00115-3986-01
+171 ;;9002226.02101,"720,00115-3986-01 ",.02)
+172 ;;00115-3986-01
+173 ;;9002226.02101,"720,00115-3986-02 ",.01)
+174 ;;00115-3986-02
+175 ;;9002226.02101,"720,00115-3986-02 ",.02)
+176 ;;00115-3986-02
+177 ;;9002226.02101,"720,00115-3986-03 ",.01)
+178 ;;00115-3986-03
+179 ;;9002226.02101,"720,00115-3986-03 ",.02)
+180 ;;00115-3986-03
+181 ;;9002226.02101,"720,00115-4824-01 ",.01)
+182 ;;00115-4824-01
+183 ;;9002226.02101,"720,00115-4824-01 ",.02)
+184 ;;00115-4824-01
+185 ;;9002226.02101,"720,00115-4824-03 ",.01)
+186 ;;00115-4824-03
+187 ;;9002226.02101,"720,00115-4824-03 ",.02)
+188 ;;00115-4824-03
+189 ;;9002226.02101,"720,00115-4826-01 ",.01)
+190 ;;00115-4826-01
+191 ;;9002226.02101,"720,00115-4826-01 ",.02)
+192 ;;00115-4826-01
+193 ;;9002226.02101,"720,00115-4826-03 ",.01)
+194 ;;00115-4826-03
+195 ;;9002226.02101,"720,00115-4826-03 ",.02)
+196 ;;00115-4826-03
+197 ;;9002226.02101,"720,00115-7037-01 ",.01)
+198 ;;00115-7037-01
+199 ;;9002226.02101,"720,00115-7037-01 ",.02)
+200 ;;00115-7037-01
+201 ;;9002226.02101,"720,00115-7038-01 ",.01)
+202 ;;00115-7038-01
+203 ;;9002226.02101,"720,00115-7038-01 ",.02)
+204 ;;00115-7038-01
+205 ;;9002226.02101,"720,00149-0007-05 ",.01)
+206 ;;00149-0007-05
+207 ;;9002226.02101,"720,00149-0007-05 ",.02)
+208 ;;00149-0007-05
+209 ;;9002226.02101,"720,00149-0008-05 ",.01)
+210 ;;00149-0008-05
+211 ;;9002226.02101,"720,00149-0008-05 ",.02)
+212 ;;00149-0008-05
+213 ;;9002226.02101,"720,00149-0008-66 ",.01)
+214 ;;00149-0008-66
+215 ;;9002226.02101,"720,00149-0008-66 ",.02)
+216 ;;00149-0008-66
+217 ;;9002226.02101,"720,00149-0008-67 ",.01)
+218 ;;00149-0008-67
+219 ;;9002226.02101,"720,00149-0008-67 ",.02)
+220 ;;00149-0008-67
+221 ;;9002226.02101,"720,00149-0008-77 ",.01)
+222 ;;00149-0008-77
+223 ;;9002226.02101,"720,00149-0008-77 ",.02)
+224 ;;00149-0008-77
+225 ;;9002226.02101,"720,00149-0009-05 ",.01)
+226 ;;00149-0009-05
+227 ;;9002226.02101,"720,00149-0009-05 ",.02)
+228 ;;00149-0009-05
+229 ;;9002226.02101,"720,00149-0009-66 ",.01)
+230 ;;00149-0009-66
+231 ;;9002226.02101,"720,00149-0009-66 ",.02)
+232 ;;00149-0009-66
+233 ;;9002226.02101,"720,00149-0009-67 ",.01)
+234 ;;00149-0009-67
