BGP9SXMB ; 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,"61392-0041-51 ")
;;151
;;21,"61392-0041-54 ")
;;152
;;21,"61392-0041-56 ")
;;153
;;21,"61392-0041-60 ")
;;154
;;21,"61392-0041-90 ")
;;155
;;21,"61392-0041-91 ")
;;156
;;21,"63874-0463-04 ")
;;157
;;21,"63874-0463-10 ")
;;158
;;21,"63874-0463-90 ")
;;159
;;21,"66267-0074-30 ")
;;160
;;21,"68115-0106-20 ")
;;161
;;21,"68115-0106-30 ")
;;162
;;21,"68115-0106-60 ")
;;163
;;21,"68115-0107-30 ")
;;164
;;9002226,732,.01)
;;BGP HEDIS GASTRO ANTISPASM NDC
;;9002226,732,.02)
;;@
;;9002226,732,.04)
;;n
;;9002226,732,.06)
;;@
;;9002226,732,.08)
;;@
;;9002226,732,.09)
;;@
;;9002226,732,.11)
;;@
;;9002226,732,.12)
;;@
;;9002226,732,.13)
;;1
;;9002226,732,.14)
;;@
;;9002226,732,.15)
;;@
;;9002226,732,.16)
;;@
;;9002226,732,.17)
;;@
;;9002226,732,3101)
;;@
;;9002226.02101,"732,00054-4721-25 ",.01)
;;00054-4721-25
;;9002226.02101,"732,00054-4721-25 ",.02)
;;00054-4721-25
;;9002226.02101,"732,00054-4721-31 ",.01)
;;00054-4721-31
;;9002226.02101,"732,00054-4721-31 ",.02)
;;00054-4721-31
;;9002226.02101,"732,00054-8737-25 ",.01)
;;00054-8737-25
;;9002226.02101,"732,00054-8737-25 ",.02)
;;00054-8737-25
;;9002226.02101,"732,00068-0120-61 ",.01)
;;00068-0120-61
;;9002226.02101,"732,00068-0120-61 ",.02)
;;00068-0120-61
;;9002226.02101,"732,00068-0123-61 ",.01)
;;00068-0123-61
;;9002226.02101,"732,00068-0123-61 ",.02)
;;00068-0123-61
;;9002226.02101,"732,00068-0125-16 ",.01)
;;00068-0125-16
;;9002226.02101,"732,00068-0125-16 ",.02)
;;00068-0125-16
;;9002226.02101,"732,00068-0809-23 ",.01)
;;00068-0809-23
;;9002226.02101,"732,00068-0809-23 ",.02)
;;00068-0809-23
;;9002226.02101,"732,00115-3200-01 ",.01)
;;00115-3200-01
;;9002226.02101,"732,00115-3200-01 ",.02)
;;00115-3200-01
;;9002226.02101,"732,00115-3200-03 ",.01)
;;00115-3200-03
;;9002226.02101,"732,00115-3200-03 ",.02)
;;00115-3200-03
;;9002226.02101,"732,00115-3220-01 ",.01)
;;00115-3220-01
;;9002226.02101,"732,00115-3220-01 ",.02)
;;00115-3220-01
;;9002226.02101,"732,00115-3220-03 ",.01)
;;00115-3220-03
;;9002226.02101,"732,00115-3220-03 ",.02)
;;00115-3220-03
;;9002226.02101,"732,00115-4308-01 ",.01)
;;00115-4308-01
;;9002226.02101,"732,00115-4308-01 ",.02)
;;00115-4308-01
;;9002226.02101,"732,00115-4308-03 ",.01)
;;00115-4308-03
;;9002226.02101,"732,00115-4308-03 ",.02)
;;00115-4308-03
;;9002226.02101,"732,00143-1227-01 ",.01)
;;00143-1227-01
;;9002226.02101,"732,00143-1227-01 ",.02)
;;00143-1227-01
;;9002226.02101,"732,00143-1227-10 ",.01)
;;00143-1227-10
;;9002226.02101,"732,00143-1227-10 ",.02)
;;00143-1227-10
;;9002226.02101,"732,00143-3126-01 ",.01)
;;00143-3126-01
;;9002226.02101,"732,00143-3126-01 ",.02)
;;00143-3126-01
;;9002226.02101,"732,00143-3126-10 ",.01)
;;00143-3126-10
;;9002226.02101,"732,00143-3126-10 ",.02)
;;00143-3126-10
;;9002226.02101,"732,00182-0519-01 ",.01)
;;00182-0519-01
;;9002226.02101,"732,00182-0519-01 ",.02)
;;00182-0519-01
;;9002226.02101,"732,00182-0519-10 ",.01)
;;00182-0519-10
;;9002226.02101,"732,00182-0519-10 ",.02)
;;00182-0519-10
;;9002226.02101,"732,00182-0708-63 ",.01)
;;00182-0708-63
;;9002226.02101,"732,00182-0708-63 ",.02)
;;00182-0708-63
;;9002226.02101,"732,00182-1858-01 ",.01)
;;00182-1858-01
;;9002226.02101,"732,00182-1858-01 ",.02)
;;00182-1858-01
;;9002226.02101,"732,00223-0795-01 ",.01)
;;00223-0795-01
;;9002226.02101,"732,00223-0795-01 ",.02)
;;00223-0795-01
;;9002226.02101,"732,00223-0795-02 ",.01)
;;00223-0795-02
;;9002226.02101,"732,00223-0795-02 ",.02)
;;00223-0795-02
;;9002226.02101,"732,00223-7430-10 ",.01)
;;00223-7430-10
;;9002226.02101,"732,00223-7430-10 ",.02)
;;00223-7430-10
;;9002226.02101,"732,00247-0188-00 ",.01)
;;00247-0188-00
;;9002226.02101,"732,00247-0188-00 ",.02)
;;00247-0188-00
;;9002226.02101,"732,00247-0188-02 ",.01)
;;00247-0188-02
;;9002226.02101,"732,00247-0188-02 ",.02)
;;00247-0188-02
;;9002226.02101,"732,00247-0188-03 ",.01)
;;00247-0188-03
;;9002226.02101,"732,00247-0188-03 ",.02)
;;00247-0188-03
;;9002226.02101,"732,00247-0188-04 ",.01)
;;00247-0188-04
;;9002226.02101,"732,00247-0188-04 ",.02)
;;00247-0188-04
;;9002226.02101,"732,00247-0188-06 ",.01)
;;00247-0188-06
;;9002226.02101,"732,00247-0188-06 ",.02)
;;00247-0188-06
;;9002226.02101,"732,00247-0188-10 ",.01)
;;00247-0188-10
;;9002226.02101,"732,00247-0188-10 ",.02)
;;00247-0188-10
;;9002226.02101,"732,00247-0188-12 ",.01)
;;00247-0188-12
;;9002226.02101,"732,00247-0188-12 ",.02)
;;00247-0188-12
;;9002226.02101,"732,00247-0188-14 ",.01)
;;00247-0188-14
;;9002226.02101,"732,00247-0188-14 ",.02)
;;00247-0188-14
;;9002226.02101,"732,00247-0188-15 ",.01)
;;00247-0188-15
;;9002226.02101,"732,00247-0188-15 ",.02)
;;00247-0188-15
;;9002226.02101,"732,00247-0188-20 ",.01)
;;00247-0188-20
;;9002226.02101,"732,00247-0188-20 ",.02)
;;00247-0188-20
;;9002226.02101,"732,00247-0188-24 ",.01)
;;00247-0188-24
;;9002226.02101,"732,00247-0188-24 ",.02)
;;00247-0188-24
;;9002226.02101,"732,00247-0188-30 ",.01)
;;00247-0188-30
BGP9SXMB ; 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,"61392-0041-51 ")
+2 ;;151
+3 ;;21,"61392-0041-54 ")
+4 ;;152
+5 ;;21,"61392-0041-56 ")
+6 ;;153
+7 ;;21,"61392-0041-60 ")
+8 ;;154
+9 ;;21,"61392-0041-90 ")
+10 ;;155
+11 ;;21,"61392-0041-91 ")
+12 ;;156
+13 ;;21,"63874-0463-04 ")
+14 ;;157
+15 ;;21,"63874-0463-10 ")
+16 ;;158
+17 ;;21,"63874-0463-90 ")
+18 ;;159
+19 ;;21,"66267-0074-30 ")
+20 ;;160
+21 ;;21,"68115-0106-20 ")
+22 ;;161
+23 ;;21,"68115-0106-30 ")
+24 ;;162
+25 ;;21,"68115-0106-60 ")
+26 ;;163
+27 ;;21,"68115-0107-30 ")
+28 ;;164
+29 ;;9002226,732,.01)
+30 ;;BGP HEDIS GASTRO ANTISPASM NDC
+31 ;;9002226,732,.02)
+32 ;;@
+33 ;;9002226,732,.04)
+34 ;;n
+35 ;;9002226,732,.06)
+36 ;;@
+37 ;;9002226,732,.08)
+38 ;;@
+39 ;;9002226,732,.09)
+40 ;;@
+41 ;;9002226,732,.11)
+42 ;;@
+43 ;;9002226,732,.12)
+44 ;;@
+45 ;;9002226,732,.13)
+46 ;;1
+47 ;;9002226,732,.14)
+48 ;;@
+49 ;;9002226,732,.15)
+50 ;;@
+51 ;;9002226,732,.16)
+52 ;;@
+53 ;;9002226,732,.17)
+54 ;;@
+55 ;;9002226,732,3101)
+56 ;;@
+57 ;;9002226.02101,"732,00054-4721-25 ",.01)
+58 ;;00054-4721-25
+59 ;;9002226.02101,"732,00054-4721-25 ",.02)
+60 ;;00054-4721-25
+61 ;;9002226.02101,"732,00054-4721-31 ",.01)
+62 ;;00054-4721-31
+63 ;;9002226.02101,"732,00054-4721-31 ",.02)
+64 ;;00054-4721-31
+65 ;;9002226.02101,"732,00054-8737-25 ",.01)
+66 ;;00054-8737-25
+67 ;;9002226.02101,"732,00054-8737-25 ",.02)
+68 ;;00054-8737-25
+69 ;;9002226.02101,"732,00068-0120-61 ",.01)
+70 ;;00068-0120-61
+71 ;;9002226.02101,"732,00068-0120-61 ",.02)
+72 ;;00068-0120-61
+73 ;;9002226.02101,"732,00068-0123-61 ",.01)
+74 ;;00068-0123-61
+75 ;;9002226.02101,"732,00068-0123-61 ",.02)
+76 ;;00068-0123-61
+77 ;;9002226.02101,"732,00068-0125-16 ",.01)
+78 ;;00068-0125-16
+79 ;;9002226.02101,"732,00068-0125-16 ",.02)
+80 ;;00068-0125-16
+81 ;;9002226.02101,"732,00068-0809-23 ",.01)
+82 ;;00068-0809-23
+83 ;;9002226.02101,"732,00068-0809-23 ",.02)
+84 ;;00068-0809-23
+85 ;;9002226.02101,"732,00115-3200-01 ",.01)
+86 ;;00115-3200-01
+87 ;;9002226.02101,"732,00115-3200-01 ",.02)
+88 ;;00115-3200-01
+89 ;;9002226.02101,"732,00115-3200-03 ",.01)
+90 ;;00115-3200-03
+91 ;;9002226.02101,"732,00115-3200-03 ",.02)
+92 ;;00115-3200-03
+93 ;;9002226.02101,"732,00115-3220-01 ",.01)
+94 ;;00115-3220-01
+95 ;;9002226.02101,"732,00115-3220-01 ",.02)
+96 ;;00115-3220-01
+97 ;;9002226.02101,"732,00115-3220-03 ",.01)
+98 ;;00115-3220-03
+99 ;;9002226.02101,"732,00115-3220-03 ",.02)
+100 ;;00115-3220-03
+101 ;;9002226.02101,"732,00115-4308-01 ",.01)
+102 ;;00115-4308-01
+103 ;;9002226.02101,"732,00115-4308-01 ",.02)
+104 ;;00115-4308-01
+105 ;;9002226.02101,"732,00115-4308-03 ",.01)
+106 ;;00115-4308-03
+107 ;;9002226.02101,"732,00115-4308-03 ",.02)
+108 ;;00115-4308-03
+109 ;;9002226.02101,"732,00143-1227-01 ",.01)
+110 ;;00143-1227-01
+111 ;;9002226.02101,"732,00143-1227-01 ",.02)
+112 ;;00143-1227-01
+113 ;;9002226.02101,"732,00143-1227-10 ",.01)
+114 ;;00143-1227-10
+115 ;;9002226.02101,"732,00143-1227-10 ",.02)
+116 ;;00143-1227-10
+117 ;;9002226.02101,"732,00143-3126-01 ",.01)
+118 ;;00143-3126-01
+119 ;;9002226.02101,"732,00143-3126-01 ",.02)
+120 ;;00143-3126-01
+121 ;;9002226.02101,"732,00143-3126-10 ",.01)
+122 ;;00143-3126-10
+123 ;;9002226.02101,"732,00143-3126-10 ",.02)
+124 ;;00143-3126-10
+125 ;;9002226.02101,"732,00182-0519-01 ",.01)
+126 ;;00182-0519-01
+127 ;;9002226.02101,"732,00182-0519-01 ",.02)
+128 ;;00182-0519-01
+129 ;;9002226.02101,"732,00182-0519-10 ",.01)
+130 ;;00182-0519-10
+131 ;;9002226.02101,"732,00182-0519-10 ",.02)
+132 ;;00182-0519-10
+133 ;;9002226.02101,"732,00182-0708-63 ",.01)
+134 ;;00182-0708-63
+135 ;;9002226.02101,"732,00182-0708-63 ",.02)
+136 ;;00182-0708-63
+137 ;;9002226.02101,"732,00182-1858-01 ",.01)
+138 ;;00182-1858-01
+139 ;;9002226.02101,"732,00182-1858-01 ",.02)
+140 ;;00182-1858-01
+141 ;;9002226.02101,"732,00223-0795-01 ",.01)
+142 ;;00223-0795-01
+143 ;;9002226.02101,"732,00223-0795-01 ",.02)
+144 ;;00223-0795-01
+145 ;;9002226.02101,"732,00223-0795-02 ",.01)
+146 ;;00223-0795-02
+147 ;;9002226.02101,"732,00223-0795-02 ",.02)
+148 ;;00223-0795-02
+149 ;;9002226.02101,"732,00223-7430-10 ",.01)
+150 ;;00223-7430-10
+151 ;;9002226.02101,"732,00223-7430-10 ",.02)
+152 ;;00223-7430-10
+153 ;;9002226.02101,"732,00247-0188-00 ",.01)
+154 ;;00247-0188-00
+155 ;;9002226.02101,"732,00247-0188-00 ",.02)
+156 ;;00247-0188-00
+157 ;;9002226.02101,"732,00247-0188-02 ",.01)
+158 ;;00247-0188-02
+159 ;;9002226.02101,"732,00247-0188-02 ",.02)
+160 ;;00247-0188-02
+161 ;;9002226.02101,"732,00247-0188-03 ",.01)
+162 ;;00247-0188-03
+163 ;;9002226.02101,"732,00247-0188-03 ",.02)
+164 ;;00247-0188-03
+165 ;;9002226.02101,"732,00247-0188-04 ",.01)
+166 ;;00247-0188-04
+167 ;;9002226.02101,"732,00247-0188-04 ",.02)
+168 ;;00247-0188-04
+169 ;;9002226.02101,"732,00247-0188-06 ",.01)
+170 ;;00247-0188-06
+171 ;;9002226.02101,"732,00247-0188-06 ",.02)
+172 ;;00247-0188-06
+173 ;;9002226.02101,"732,00247-0188-10 ",.01)
+174 ;;00247-0188-10
+175 ;;9002226.02101,"732,00247-0188-10 ",.02)
+176 ;;00247-0188-10
+177 ;;9002226.02101,"732,00247-0188-12 ",.01)
+178 ;;00247-0188-12
+179 ;;9002226.02101,"732,00247-0188-12 ",.02)
+180 ;;00247-0188-12
+181 ;;9002226.02101,"732,00247-0188-14 ",.01)
+182 ;;00247-0188-14
+183 ;;9002226.02101,"732,00247-0188-14 ",.02)
+184 ;;00247-0188-14
+185 ;;9002226.02101,"732,00247-0188-15 ",.01)
+186 ;;00247-0188-15
+187 ;;9002226.02101,"732,00247-0188-15 ",.02)
+188 ;;00247-0188-15
+189 ;;9002226.02101,"732,00247-0188-20 ",.01)
+190 ;;00247-0188-20
+191 ;;9002226.02101,"732,00247-0188-20 ",.02)
+192 ;;00247-0188-20
+193 ;;9002226.02101,"732,00247-0188-24 ",.01)
+194 ;;00247-0188-24
+195 ;;9002226.02101,"732,00247-0188-24 ",.02)
+196 ;;00247-0188-24
+197 ;;9002226.02101,"732,00247-0188-30 ",.01)
+198 ;;00247-0188-30
