BGP21K2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON OCT 14, 2011;
;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
;
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,"66105-0154-06 ")
;;92
;;21,"66105-0154-09 ")
;;93
;;21,"66105-0154-15 ")
;;94
;;21,"66105-0156-01 ")
;;62
;;21,"66105-0156-03 ")
;;63
;;21,"66105-0156-06 ")
;;64
;;21,"66105-0156-09 ")
;;65
;;21,"66105-0156-15 ")
;;66
;;21,"66105-0159-01 ")
;;154
;;21,"66105-0159-03 ")
;;155
;;21,"66105-0159-06 ")
;;156
;;21,"66105-0159-09 ")
;;157
;;21,"66105-0159-15 ")
;;158
;;21,"67544-0065-30 ")
;;67
;;21,"67544-0065-53 ")
;;68
;;21,"67544-0065-60 ")
;;69
;;21,"67544-0066-30 ")
;;95
;;21,"67544-0066-45 ")
;;96
;;21,"67544-0066-60 ")
;;97
;;21,"67544-0113-60 ")
;;159
;;21,"67544-0113-70 ")
;;160
;;21,"67544-0113-80 ")
;;161
;;21,"67544-0114-15 ")
;;184
;;21,"67544-0114-45 ")
;;185
;;21,"67544-0114-60 ")
;;186
;;21,"67544-0114-82 ")
;;187
;;21,"67544-0254-53 ")
;;141
;;21,"68071-0405-15 ")
;;70
;;21,"68071-0406-15 ")
;;98
;;21,"68071-0407-15 ")
;;123
;;21,"68115-0671-15 ")
;;105
;;21,"68115-0671-20 ")
;;106
;;21,"68115-0671-30 ")
;;107
;;21,"68115-0671-90 ")
;;108
;;21,"68115-0684-30 ")
;;193
;;21,"68115-0712-60 ")
;;142
;;21,"68115-0841-30 ")
;;126
;;21,"68115-0891-60 ")
;;22
;;21,"68258-3034-03 ")
;;99
;;21,"68258-5230-03 ")
;;48
;;21,"68258-6007-03 ")
;;162
;;21,"68258-9051-01 ")
;;73
;;21,"68258-9116-01 ")
;;168
;;21,"68258-9151-01 ")
;;104
;;21,"68258-9152-01 ")
;;125
;;9002226,1200,.01)
;;BGP PQA THIAZOLIDINEDIONE NDC
;;9002226,1200,.02)
;;@
;;9002226,1200,.04)
;;n
;;9002226,1200,.06)
;;@
;;9002226,1200,.08)
;;@
;;9002226,1200,.09)
;;@
;;9002226,1200,.11)
;;@
;;9002226,1200,.12)
;;@
;;9002226,1200,.13)
;;1
;;9002226,1200,.14)
;;@
;;9002226,1200,.15)
;;@
;;9002226,1200,.16)
;;@
;;9002226,1200,.17)
;;@
;;9002226,1200,3101)
;;@
;;9002226.02101,"1200,00007-3148-13 ",.01)
;;00007-3148-13
;;9002226.02101,"1200,00007-3148-13 ",.02)
;;00007-3148-13
;;9002226.02101,"1200,00007-3149-13 ",.01)
;;00007-3149-13
;;9002226.02101,"1200,00007-3149-13 ",.02)
;;00007-3149-13
;;9002226.02101,"1200,00007-3151-13 ",.01)
;;00007-3151-13
;;9002226.02101,"1200,00007-3151-13 ",.02)
;;00007-3151-13
;;9002226.02101,"1200,00007-3152-13 ",.01)
;;00007-3152-13
;;9002226.02101,"1200,00007-3152-13 ",.02)
;;00007-3152-13
;;9002226.02101,"1200,00007-3153-13 ",.01)
;;00007-3153-13
;;9002226.02101,"1200,00007-3153-13 ",.02)
;;00007-3153-13
;;9002226.02101,"1200,00007-3163-18 ",.01)
;;00007-3163-18
;;9002226.02101,"1200,00007-3163-18 ",.02)
;;00007-3163-18
;;9002226.02101,"1200,00007-3164-18 ",.01)
;;00007-3164-18
;;9002226.02101,"1200,00007-3164-18 ",.02)
;;00007-3164-18
;;9002226.02101,"1200,00007-3166-18 ",.01)
;;00007-3166-18
;;9002226.02101,"1200,00007-3166-18 ",.02)
;;00007-3166-18
;;9002226.02101,"1200,00007-3166-20 ",.01)
;;00007-3166-20
;;9002226.02101,"1200,00007-3166-20 ",.02)
;;00007-3166-20
;;9002226.02101,"1200,00007-3167-18 ",.01)
;;00007-3167-18
;;9002226.02101,"1200,00007-3167-18 ",.02)
;;00007-3167-18
;;9002226.02101,"1200,00007-3167-20 ",.01)
;;00007-3167-20
;;9002226.02101,"1200,00007-3167-20 ",.02)
;;00007-3167-20
;;9002226.02101,"1200,00007-3168-18 ",.01)
;;00007-3168-18
;;9002226.02101,"1200,00007-3168-18 ",.02)
;;00007-3168-18
;;9002226.02101,"1200,00007-3168-20 ",.01)
;;00007-3168-20
;;9002226.02101,"1200,00007-3168-20 ",.02)
;;00007-3168-20
;;9002226.02101,"1200,00029-3151-13 ",.01)
;;00029-3151-13
;;9002226.02101,"1200,00029-3151-13 ",.02)
;;00029-3151-13
;;9002226.02101,"1200,00029-3152-13 ",.01)
;;00029-3152-13
;;9002226.02101,"1200,00029-3152-13 ",.02)
;;00029-3152-13
;;9002226.02101,"1200,00029-3153-13 ",.01)
;;00029-3153-13
;;9002226.02101,"1200,00029-3153-13 ",.02)
;;00029-3153-13
;;9002226.02101,"1200,00029-3158-18 ",.01)
;;00029-3158-18
;;9002226.02101,"1200,00029-3158-18 ",.02)
;;00029-3158-18
;;9002226.02101,"1200,00029-3159-00 ",.01)
;;00029-3159-00
;;9002226.02101,"1200,00029-3159-00 ",.02)
;;00029-3159-00
;;9002226.02101,"1200,00029-3159-13 ",.01)
;;00029-3159-13
;;9002226.02101,"1200,00029-3159-13 ",.02)
;;00029-3159-13
;;9002226.02101,"1200,00029-3159-18 ",.01)
;;00029-3159-18
;;9002226.02101,"1200,00029-3159-18 ",.02)
;;00029-3159-18
;;9002226.02101,"1200,00029-3159-20 ",.01)
;;00029-3159-20
;;9002226.02101,"1200,00029-3159-20 ",.02)
;;00029-3159-20
;;9002226.02101,"1200,00029-3160-13 ",.01)
;;00029-3160-13
;;9002226.02101,"1200,00029-3160-13 ",.02)
;;00029-3160-13
;;9002226.02101,"1200,00029-3160-20 ",.01)
;;00029-3160-20
;;9002226.02101,"1200,00029-3160-20 ",.02)
;;00029-3160-20
;;9002226.02101,"1200,00029-3160-59 ",.01)
;;00029-3160-59
;;9002226.02101,"1200,00029-3160-59 ",.02)
;;00029-3160-59
;;9002226.02101,"1200,12280-0003-60 ",.01)
;;12280-0003-60
;;9002226.02101,"1200,12280-0003-60 ",.02)
;;12280-0003-60
;;9002226.02101,"1200,12280-0004-60 ",.01)
;;12280-0004-60
;;9002226.02101,"1200,12280-0004-60 ",.02)
;;12280-0004-60
;;9002226.02101,"1200,12280-0060-15 ",.01)
;;12280-0060-15
BGP21K2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON OCT 14, 2011;
+1 ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
+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,"66105-0154-06 ")
+2 ;;92
+3 ;;21,"66105-0154-09 ")
+4 ;;93
+5 ;;21,"66105-0154-15 ")
+6 ;;94
+7 ;;21,"66105-0156-01 ")
+8 ;;62
+9 ;;21,"66105-0156-03 ")
+10 ;;63
+11 ;;21,"66105-0156-06 ")
+12 ;;64
+13 ;;21,"66105-0156-09 ")
+14 ;;65
+15 ;;21,"66105-0156-15 ")
+16 ;;66
+17 ;;21,"66105-0159-01 ")
+18 ;;154
+19 ;;21,"66105-0159-03 ")
+20 ;;155
+21 ;;21,"66105-0159-06 ")
+22 ;;156
+23 ;;21,"66105-0159-09 ")
+24 ;;157
+25 ;;21,"66105-0159-15 ")
+26 ;;158
+27 ;;21,"67544-0065-30 ")
+28 ;;67
+29 ;;21,"67544-0065-53 ")
+30 ;;68
+31 ;;21,"67544-0065-60 ")
+32 ;;69
+33 ;;21,"67544-0066-30 ")
+34 ;;95
+35 ;;21,"67544-0066-45 ")
+36 ;;96
+37 ;;21,"67544-0066-60 ")
+38 ;;97
+39 ;;21,"67544-0113-60 ")
+40 ;;159
+41 ;;21,"67544-0113-70 ")
+42 ;;160
+43 ;;21,"67544-0113-80 ")
+44 ;;161
+45 ;;21,"67544-0114-15 ")
+46 ;;184
+47 ;;21,"67544-0114-45 ")
+48 ;;185
+49 ;;21,"67544-0114-60 ")
+50 ;;186
+51 ;;21,"67544-0114-82 ")
+52 ;;187
+53 ;;21,"67544-0254-53 ")
+54 ;;141
+55 ;;21,"68071-0405-15 ")
+56 ;;70
+57 ;;21,"68071-0406-15 ")
+58 ;;98
+59 ;;21,"68071-0407-15 ")
+60 ;;123
+61 ;;21,"68115-0671-15 ")
+62 ;;105
+63 ;;21,"68115-0671-20 ")
+64 ;;106
+65 ;;21,"68115-0671-30 ")
+66 ;;107
+67 ;;21,"68115-0671-90 ")
+68 ;;108
+69 ;;21,"68115-0684-30 ")
+70 ;;193
+71 ;;21,"68115-0712-60 ")
+72 ;;142
+73 ;;21,"68115-0841-30 ")
+74 ;;126
+75 ;;21,"68115-0891-60 ")
+76 ;;22
+77 ;;21,"68258-3034-03 ")
+78 ;;99
+79 ;;21,"68258-5230-03 ")
+80 ;;48
+81 ;;21,"68258-6007-03 ")
+82 ;;162
+83 ;;21,"68258-9051-01 ")
+84 ;;73
+85 ;;21,"68258-9116-01 ")
+86 ;;168
+87 ;;21,"68258-9151-01 ")
+88 ;;104
+89 ;;21,"68258-9152-01 ")
+90 ;;125
+91 ;;9002226,1200,.01)
+92 ;;BGP PQA THIAZOLIDINEDIONE NDC
+93 ;;9002226,1200,.02)
+94 ;;@
+95 ;;9002226,1200,.04)
+96 ;;n
+97 ;;9002226,1200,.06)
+98 ;;@
+99 ;;9002226,1200,.08)
+100 ;;@
+101 ;;9002226,1200,.09)
+102 ;;@
+103 ;;9002226,1200,.11)
+104 ;;@
+105 ;;9002226,1200,.12)
+106 ;;@
+107 ;;9002226,1200,.13)
+108 ;;1
+109 ;;9002226,1200,.14)
+110 ;;@
+111 ;;9002226,1200,.15)
+112 ;;@
+113 ;;9002226,1200,.16)
+114 ;;@
+115 ;;9002226,1200,.17)
+116 ;;@
+117 ;;9002226,1200,3101)
+118 ;;@
+119 ;;9002226.02101,"1200,00007-3148-13 ",.01)
+120 ;;00007-3148-13
+121 ;;9002226.02101,"1200,00007-3148-13 ",.02)
+122 ;;00007-3148-13
+123 ;;9002226.02101,"1200,00007-3149-13 ",.01)
+124 ;;00007-3149-13
+125 ;;9002226.02101,"1200,00007-3149-13 ",.02)
+126 ;;00007-3149-13
+127 ;;9002226.02101,"1200,00007-3151-13 ",.01)
+128 ;;00007-3151-13
+129 ;;9002226.02101,"1200,00007-3151-13 ",.02)
+130 ;;00007-3151-13
+131 ;;9002226.02101,"1200,00007-3152-13 ",.01)
+132 ;;00007-3152-13
+133 ;;9002226.02101,"1200,00007-3152-13 ",.02)
+134 ;;00007-3152-13
+135 ;;9002226.02101,"1200,00007-3153-13 ",.01)
+136 ;;00007-3153-13
+137 ;;9002226.02101,"1200,00007-3153-13 ",.02)
+138 ;;00007-3153-13
+139 ;;9002226.02101,"1200,00007-3163-18 ",.01)
+140 ;;00007-3163-18
+141 ;;9002226.02101,"1200,00007-3163-18 ",.02)
+142 ;;00007-3163-18
+143 ;;9002226.02101,"1200,00007-3164-18 ",.01)
+144 ;;00007-3164-18
+145 ;;9002226.02101,"1200,00007-3164-18 ",.02)
+146 ;;00007-3164-18
+147 ;;9002226.02101,"1200,00007-3166-18 ",.01)
+148 ;;00007-3166-18
+149 ;;9002226.02101,"1200,00007-3166-18 ",.02)
+150 ;;00007-3166-18
+151 ;;9002226.02101,"1200,00007-3166-20 ",.01)
+152 ;;00007-3166-20
+153 ;;9002226.02101,"1200,00007-3166-20 ",.02)
+154 ;;00007-3166-20
+155 ;;9002226.02101,"1200,00007-3167-18 ",.01)
+156 ;;00007-3167-18
+157 ;;9002226.02101,"1200,00007-3167-18 ",.02)
+158 ;;00007-3167-18
+159 ;;9002226.02101,"1200,00007-3167-20 ",.01)
+160 ;;00007-3167-20
+161 ;;9002226.02101,"1200,00007-3167-20 ",.02)
+162 ;;00007-3167-20
+163 ;;9002226.02101,"1200,00007-3168-18 ",.01)
+164 ;;00007-3168-18
+165 ;;9002226.02101,"1200,00007-3168-18 ",.02)
+166 ;;00007-3168-18
+167 ;;9002226.02101,"1200,00007-3168-20 ",.01)
+168 ;;00007-3168-20
+169 ;;9002226.02101,"1200,00007-3168-20 ",.02)
+170 ;;00007-3168-20
+171 ;;9002226.02101,"1200,00029-3151-13 ",.01)
+172 ;;00029-3151-13
+173 ;;9002226.02101,"1200,00029-3151-13 ",.02)
+174 ;;00029-3151-13
+175 ;;9002226.02101,"1200,00029-3152-13 ",.01)
+176 ;;00029-3152-13
+177 ;;9002226.02101,"1200,00029-3152-13 ",.02)
+178 ;;00029-3152-13
+179 ;;9002226.02101,"1200,00029-3153-13 ",.01)
+180 ;;00029-3153-13
+181 ;;9002226.02101,"1200,00029-3153-13 ",.02)
+182 ;;00029-3153-13
+183 ;;9002226.02101,"1200,00029-3158-18 ",.01)
+184 ;;00029-3158-18
+185 ;;9002226.02101,"1200,00029-3158-18 ",.02)
+186 ;;00029-3158-18
+187 ;;9002226.02101,"1200,00029-3159-00 ",.01)
+188 ;;00029-3159-00
+189 ;;9002226.02101,"1200,00029-3159-00 ",.02)
+190 ;;00029-3159-00
+191 ;;9002226.02101,"1200,00029-3159-13 ",.01)
+192 ;;00029-3159-13
+193 ;;9002226.02101,"1200,00029-3159-13 ",.02)
+194 ;;00029-3159-13
+195 ;;9002226.02101,"1200,00029-3159-18 ",.01)
+196 ;;00029-3159-18
+197 ;;9002226.02101,"1200,00029-3159-18 ",.02)
+198 ;;00029-3159-18
+199 ;;9002226.02101,"1200,00029-3159-20 ",.01)
+200 ;;00029-3159-20
+201 ;;9002226.02101,"1200,00029-3159-20 ",.02)
+202 ;;00029-3159-20
+203 ;;9002226.02101,"1200,00029-3160-13 ",.01)
+204 ;;00029-3160-13
+205 ;;9002226.02101,"1200,00029-3160-13 ",.02)
+206 ;;00029-3160-13
+207 ;;9002226.02101,"1200,00029-3160-20 ",.01)
+208 ;;00029-3160-20
+209 ;;9002226.02101,"1200,00029-3160-20 ",.02)
+210 ;;00029-3160-20
+211 ;;9002226.02101,"1200,00029-3160-59 ",.01)
+212 ;;00029-3160-59
+213 ;;9002226.02101,"1200,00029-3160-59 ",.02)
+214 ;;00029-3160-59
+215 ;;9002226.02101,"1200,12280-0003-60 ",.01)
+216 ;;12280-0003-60
+217 ;;9002226.02101,"1200,12280-0003-60 ",.02)
+218 ;;12280-0003-60
+219 ;;9002226.02101,"1200,12280-0004-60 ",.01)
+220 ;;12280-0004-60
+221 ;;9002226.02101,"1200,12280-0004-60 ",.02)
+222 ;;12280-0004-60
+223 ;;9002226.02101,"1200,12280-0060-15 ",.01)
+224 ;;12280-0060-15
