BGP9SXRD ; 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-0948-15 ")
;;457
;;21,"58016-0948-20 ")
;;458
;;21,"58016-0948-30 ")
;;459
;;21,"58016-0948-50 ")
;;460
;;21,"58016-0983-00 ")
;;461
;;21,"58016-0983-10 ")
;;462
;;21,"58016-0983-12 ")
;;463
;;21,"58016-0983-14 ")
;;464
;;21,"58016-0983-15 ")
;;465
;;21,"58016-0983-20 ")
;;466
;;21,"58016-0983-30 ")
;;467
;;21,"58016-3182-01 ")
;;468
;;21,"58016-4074-01 ")
;;469
;;21,"59772-0025-03 ")
;;470
;;21,"59772-0026-03 ")
;;471
;;21,"59772-0026-04 ")
;;472
;;21,"59772-0027-03 ")
;;473
;;21,"59772-0027-04 ")
;;474
;;21,"59911-5879-02 ")
;;475
;;21,"59911-5880-02 ")
;;476
;;21,"59911-5882-02 ")
;;477
;;21,"61570-0125-63 ")
;;478
;;21,"61570-0180-01 ")
;;479
;;21,"61570-0181-01 ")
;;480
;;21,"61570-0182-01 ")
;;481
;;21,"63874-0089-01 ")
;;482
;;21,"64248-0101-01 ")
;;483
;;21,"64248-0102-01 ")
;;484
;;21,"64248-0310-01 ")
;;485
;;21,"64248-0320-01 ")
;;486
;;21,"64248-0330-01 ")
;;487
;;21,"64248-0340-01 ")
;;488
;;21,"64248-0350-01 ")
;;489
;;21,"66116-0285-30 ")
;;490
;;21,"66500-0158-01 ")
;;491
;;21,"66500-0259-01 ")
;;492
;;21,"66500-0325-17 ")
;;493
;;21,"66500-0748-01 ")
;;494
;;21,"66500-0768-01 ")
;;495
;;21,"68115-0294-30 ")
;;496
;;21,"68115-0387-30 ")
;;497
;;21,"68115-0387-60 ")
;;498
;;21,"68115-0388-30 ")
;;499
;;21,"68115-0388-60 ")
;;500
;;21,"68115-0681-04 ")
;;501
;;21,"68115-0755-04 ")
;;502
;;21,"68115-0793-00 ")
;;503
;;9002226,493,.01)
;;BGP HEDIS OSTEOPOROSIS NDC
;;9002226,493,.02)
;;@
;;9002226,493,.04)
;;n
;;9002226,493,.06)
;;@
;;9002226,493,.08)
;;@
;;9002226,493,.09)
;;@
;;9002226,493,.11)
;;@
;;9002226,493,.12)
;;@
;;9002226,493,.13)
;;1
;;9002226,493,.14)
;;@
;;9002226,493,.15)
;;@
;;9002226,493,.16)
;;@
;;9002226,493,.17)
;;@
;;9002226,493,3101)
;;@
;;9002226.02101,"493,00002-4165-02 ",.01)
;;00002-4165-02
;;9002226.02101,"493,00002-4165-02 ",.02)
;;00002-4165-02
;;9002226.02101,"493,00002-4165-07 ",.01)
;;00002-4165-07
;;9002226.02101,"493,00002-4165-07 ",.02)
;;00002-4165-07
;;9002226.02101,"493,00002-4165-30 ",.01)
;;00002-4165-30
;;9002226.02101,"493,00002-4165-30 ",.02)
;;00002-4165-30
;;9002226.02101,"493,00002-8971-01 ",.01)
;;00002-8971-01
;;9002226.02101,"493,00002-8971-01 ",.02)
;;00002-8971-01
;;9002226.02101,"493,00003-0251-50 ",.01)
;;00003-0251-50
;;9002226.02101,"493,00003-0251-50 ",.02)
;;00003-0251-50
;;9002226.02101,"493,00003-0251-51 ",.01)
;;00003-0251-51
;;9002226.02101,"493,00003-0251-51 ",.02)
;;00003-0251-51
;;9002226.02101,"493,00003-0330-50 ",.01)
;;00003-0330-50
;;9002226.02101,"493,00003-0330-50 ",.02)
;;00003-0330-50
;;9002226.02101,"493,00003-0330-52 ",.01)
;;00003-0330-52
;;9002226.02101,"493,00003-0330-52 ",.02)
;;00003-0330-52
;;9002226.02101,"493,00003-0343-50 ",.01)
;;00003-0343-50
;;9002226.02101,"493,00003-0343-50 ",.02)
;;00003-0343-50
;;9002226.02101,"493,00003-0343-51 ",.01)
;;00003-0343-51
;;9002226.02101,"493,00003-0343-51 ",.02)
;;00003-0343-51
;;9002226.02101,"493,00004-0185-23 ",.01)
;;00004-0185-23
;;9002226.02101,"493,00004-0185-23 ",.02)
;;00004-0185-23
;;9002226.02101,"493,00004-0186-82 ",.01)
;;00004-0186-82
;;9002226.02101,"493,00004-0186-82 ",.02)
;;00004-0186-82
;;9002226.02101,"493,00004-0188-09 ",.01)
;;00004-0188-09
;;9002226.02101,"493,00004-0188-09 ",.02)
;;00004-0188-09
;;9002226.02101,"493,00006-0031-21 ",.01)
;;00006-0031-21
;;9002226.02101,"493,00006-0031-21 ",.02)
;;00006-0031-21
;;9002226.02101,"493,00006-0031-44 ",.01)
;;00006-0031-44
;;9002226.02101,"493,00006-0031-44 ",.02)
;;00006-0031-44
;;9002226.02101,"493,00006-0077-21 ",.01)
;;00006-0077-21
;;9002226.02101,"493,00006-0077-21 ",.02)
;;00006-0077-21
;;9002226.02101,"493,00006-0077-44 ",.01)
;;00006-0077-44
;;9002226.02101,"493,00006-0077-44 ",.02)
;;00006-0077-44
;;9002226.02101,"493,00006-0212-31 ",.01)
;;00006-0212-31
;;9002226.02101,"493,00006-0212-31 ",.02)
;;00006-0212-31
;;9002226.02101,"493,00006-0710-21 ",.01)
;;00006-0710-21
;;9002226.02101,"493,00006-0710-21 ",.02)
;;00006-0710-21
;;9002226.02101,"493,00006-0710-44 ",.01)
;;00006-0710-44
;;9002226.02101,"493,00006-0710-44 ",.02)
;;00006-0710-44
;;9002226.02101,"493,00006-0925-31 ",.01)
;;00006-0925-31
;;9002226.02101,"493,00006-0925-31 ",.02)
;;00006-0925-31
;;9002226.02101,"493,00006-0925-58 ",.01)
;;00006-0925-58
;;9002226.02101,"493,00006-0925-58 ",.02)
;;00006-0925-58
;;9002226.02101,"493,00006-0936-28 ",.01)
;;00006-0936-28
;;9002226.02101,"493,00006-0936-28 ",.02)
;;00006-0936-28
;;9002226.02101,"493,00006-0936-31 ",.01)
;;00006-0936-31
;;9002226.02101,"493,00006-0936-31 ",.02)
;;00006-0936-31
;;9002226.02101,"493,00006-0936-58 ",.01)
;;00006-0936-58
;;9002226.02101,"493,00006-0936-58 ",.02)
;;00006-0936-58
;;9002226.02101,"493,00006-0936-72 ",.01)
;;00006-0936-72
;;9002226.02101,"493,00006-0936-72 ",.02)
;;00006-0936-72
;;9002226.02101,"493,00006-0936-82 ",.01)
;;00006-0936-82
BGP9SXRD ; 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-0948-15 ")
+2 ;;457
+3 ;;21,"58016-0948-20 ")
+4 ;;458
+5 ;;21,"58016-0948-30 ")
+6 ;;459
+7 ;;21,"58016-0948-50 ")
+8 ;;460
+9 ;;21,"58016-0983-00 ")
+10 ;;461
+11 ;;21,"58016-0983-10 ")
+12 ;;462
+13 ;;21,"58016-0983-12 ")
+14 ;;463
+15 ;;21,"58016-0983-14 ")
+16 ;;464
+17 ;;21,"58016-0983-15 ")
+18 ;;465
+19 ;;21,"58016-0983-20 ")
+20 ;;466
+21 ;;21,"58016-0983-30 ")
+22 ;;467
+23 ;;21,"58016-3182-01 ")
+24 ;;468
+25 ;;21,"58016-4074-01 ")
+26 ;;469
+27 ;;21,"59772-0025-03 ")
+28 ;;470
+29 ;;21,"59772-0026-03 ")
+30 ;;471
+31 ;;21,"59772-0026-04 ")
+32 ;;472
+33 ;;21,"59772-0027-03 ")
+34 ;;473
+35 ;;21,"59772-0027-04 ")
+36 ;;474
+37 ;;21,"59911-5879-02 ")
+38 ;;475
+39 ;;21,"59911-5880-02 ")
+40 ;;476
+41 ;;21,"59911-5882-02 ")
+42 ;;477
+43 ;;21,"61570-0125-63 ")
+44 ;;478
+45 ;;21,"61570-0180-01 ")
+46 ;;479
+47 ;;21,"61570-0181-01 ")
+48 ;;480
+49 ;;21,"61570-0182-01 ")
+50 ;;481
+51 ;;21,"63874-0089-01 ")
+52 ;;482
+53 ;;21,"64248-0101-01 ")
+54 ;;483
+55 ;;21,"64248-0102-01 ")
+56 ;;484
+57 ;;21,"64248-0310-01 ")
+58 ;;485
+59 ;;21,"64248-0320-01 ")
+60 ;;486
+61 ;;21,"64248-0330-01 ")
+62 ;;487
+63 ;;21,"64248-0340-01 ")
+64 ;;488
+65 ;;21,"64248-0350-01 ")
+66 ;;489
+67 ;;21,"66116-0285-30 ")
+68 ;;490
+69 ;;21,"66500-0158-01 ")
+70 ;;491
+71 ;;21,"66500-0259-01 ")
+72 ;;492
+73 ;;21,"66500-0325-17 ")
+74 ;;493
+75 ;;21,"66500-0748-01 ")
+76 ;;494
+77 ;;21,"66500-0768-01 ")
+78 ;;495
+79 ;;21,"68115-0294-30 ")
+80 ;;496
+81 ;;21,"68115-0387-30 ")
+82 ;;497
+83 ;;21,"68115-0387-60 ")
+84 ;;498
+85 ;;21,"68115-0388-30 ")
+86 ;;499
+87 ;;21,"68115-0388-60 ")
+88 ;;500
+89 ;;21,"68115-0681-04 ")
+90 ;;501
+91 ;;21,"68115-0755-04 ")
+92 ;;502
+93 ;;21,"68115-0793-00 ")
+94 ;;503
+95 ;;9002226,493,.01)
+96 ;;BGP HEDIS OSTEOPOROSIS NDC
+97 ;;9002226,493,.02)
+98 ;;@
+99 ;;9002226,493,.04)
+100 ;;n
+101 ;;9002226,493,.06)
+102 ;;@
+103 ;;9002226,493,.08)
+104 ;;@
+105 ;;9002226,493,.09)
+106 ;;@
+107 ;;9002226,493,.11)
+108 ;;@
+109 ;;9002226,493,.12)
+110 ;;@
+111 ;;9002226,493,.13)
+112 ;;1
+113 ;;9002226,493,.14)
+114 ;;@
+115 ;;9002226,493,.15)
+116 ;;@
+117 ;;9002226,493,.16)
+118 ;;@
+119 ;;9002226,493,.17)
+120 ;;@
+121 ;;9002226,493,3101)
+122 ;;@
+123 ;;9002226.02101,"493,00002-4165-02 ",.01)
+124 ;;00002-4165-02
+125 ;;9002226.02101,"493,00002-4165-02 ",.02)
+126 ;;00002-4165-02
+127 ;;9002226.02101,"493,00002-4165-07 ",.01)
+128 ;;00002-4165-07
+129 ;;9002226.02101,"493,00002-4165-07 ",.02)
+130 ;;00002-4165-07
+131 ;;9002226.02101,"493,00002-4165-30 ",.01)
+132 ;;00002-4165-30
+133 ;;9002226.02101,"493,00002-4165-30 ",.02)
+134 ;;00002-4165-30
+135 ;;9002226.02101,"493,00002-8971-01 ",.01)
+136 ;;00002-8971-01
+137 ;;9002226.02101,"493,00002-8971-01 ",.02)
+138 ;;00002-8971-01
+139 ;;9002226.02101,"493,00003-0251-50 ",.01)
+140 ;;00003-0251-50
+141 ;;9002226.02101,"493,00003-0251-50 ",.02)
+142 ;;00003-0251-50
+143 ;;9002226.02101,"493,00003-0251-51 ",.01)
+144 ;;00003-0251-51
+145 ;;9002226.02101,"493,00003-0251-51 ",.02)
+146 ;;00003-0251-51
+147 ;;9002226.02101,"493,00003-0330-50 ",.01)
+148 ;;00003-0330-50
+149 ;;9002226.02101,"493,00003-0330-50 ",.02)
+150 ;;00003-0330-50
+151 ;;9002226.02101,"493,00003-0330-52 ",.01)
+152 ;;00003-0330-52
+153 ;;9002226.02101,"493,00003-0330-52 ",.02)
+154 ;;00003-0330-52
+155 ;;9002226.02101,"493,00003-0343-50 ",.01)
+156 ;;00003-0343-50
+157 ;;9002226.02101,"493,00003-0343-50 ",.02)
+158 ;;00003-0343-50
+159 ;;9002226.02101,"493,00003-0343-51 ",.01)
+160 ;;00003-0343-51
+161 ;;9002226.02101,"493,00003-0343-51 ",.02)
+162 ;;00003-0343-51
+163 ;;9002226.02101,"493,00004-0185-23 ",.01)
+164 ;;00004-0185-23
+165 ;;9002226.02101,"493,00004-0185-23 ",.02)
+166 ;;00004-0185-23
+167 ;;9002226.02101,"493,00004-0186-82 ",.01)
+168 ;;00004-0186-82
+169 ;;9002226.02101,"493,00004-0186-82 ",.02)
+170 ;;00004-0186-82
+171 ;;9002226.02101,"493,00004-0188-09 ",.01)
+172 ;;00004-0188-09
+173 ;;9002226.02101,"493,00004-0188-09 ",.02)
+174 ;;00004-0188-09
+175 ;;9002226.02101,"493,00006-0031-21 ",.01)
+176 ;;00006-0031-21
+177 ;;9002226.02101,"493,00006-0031-21 ",.02)
+178 ;;00006-0031-21
+179 ;;9002226.02101,"493,00006-0031-44 ",.01)
+180 ;;00006-0031-44
+181 ;;9002226.02101,"493,00006-0031-44 ",.02)
+182 ;;00006-0031-44
+183 ;;9002226.02101,"493,00006-0077-21 ",.01)
+184 ;;00006-0077-21
+185 ;;9002226.02101,"493,00006-0077-21 ",.02)
+186 ;;00006-0077-21
+187 ;;9002226.02101,"493,00006-0077-44 ",.01)
+188 ;;00006-0077-44
+189 ;;9002226.02101,"493,00006-0077-44 ",.02)
+190 ;;00006-0077-44
+191 ;;9002226.02101,"493,00006-0212-31 ",.01)
+192 ;;00006-0212-31
+193 ;;9002226.02101,"493,00006-0212-31 ",.02)
+194 ;;00006-0212-31
+195 ;;9002226.02101,"493,00006-0710-21 ",.01)
+196 ;;00006-0710-21
+197 ;;9002226.02101,"493,00006-0710-21 ",.02)
+198 ;;00006-0710-21
+199 ;;9002226.02101,"493,00006-0710-44 ",.01)
+200 ;;00006-0710-44
+201 ;;9002226.02101,"493,00006-0710-44 ",.02)
+202 ;;00006-0710-44
+203 ;;9002226.02101,"493,00006-0925-31 ",.01)
+204 ;;00006-0925-31
+205 ;;9002226.02101,"493,00006-0925-31 ",.02)
+206 ;;00006-0925-31
+207 ;;9002226.02101,"493,00006-0925-58 ",.01)
+208 ;;00006-0925-58
+209 ;;9002226.02101,"493,00006-0925-58 ",.02)
+210 ;;00006-0925-58
+211 ;;9002226.02101,"493,00006-0936-28 ",.01)
+212 ;;00006-0936-28
+213 ;;9002226.02101,"493,00006-0936-28 ",.02)
+214 ;;00006-0936-28
+215 ;;9002226.02101,"493,00006-0936-31 ",.01)
+216 ;;00006-0936-31
+217 ;;9002226.02101,"493,00006-0936-31 ",.02)
+218 ;;00006-0936-31
+219 ;;9002226.02101,"493,00006-0936-58 ",.01)
+220 ;;00006-0936-58
+221 ;;9002226.02101,"493,00006-0936-58 ",.02)
+222 ;;00006-0936-58
+223 ;;9002226.02101,"493,00006-0936-72 ",.01)
+224 ;;00006-0936-72
+225 ;;9002226.02101,"493,00006-0936-72 ",.02)
+226 ;;00006-0936-72
+227 ;;9002226.02101,"493,00006-0936-82 ",.01)
+228 ;;00006-0936-82
