BJPC2UJE ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON FEB 17, 2009;
;;2.0;IHS PCC SUITE;;MAY 14, 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-05 ")
;;610
;;21,"54868-0029-06 ")
;;611
;;21,"54868-1438-00 ")
;;612
;;21,"54868-1438-01 ")
;;613
;;21,"54868-1894-01 ")
;;614
;;21,"54868-1894-02 ")
;;615
;;21,"54868-2710-00 ")
;;616
;;21,"54868-2710-01 ")
;;617
;;21,"54868-2822-00 ")
;;618
;;21,"54868-3555-00 ")
;;619
;;21,"54868-4481-00 ")
;;620
;;21,"54868-4972-00 ")
;;621
;;21,"54868-4972-01 ")
;;622
;;21,"54868-5531-00 ")
;;623
;;21,"54868-5531-01 ")
;;624
;;21,"54977-0684-01 ")
;;625
;;21,"54977-0684-02 ")
;;626
;;21,"55045-1931-05 ")
;;627
;;21,"55154-6301-02 ")
;;628
;;21,"55154-8502-07 ")
;;629
;;21,"55175-4460-01 ")
;;630
;;21,"55175-4461-01 ")
;;631
;;21,"55175-5247-01 ")
;;632
;;21,"55289-0259-01 ")
;;633
;;21,"55289-0259-30 ")
;;634
;;21,"55289-0259-60 ")
;;635
;;21,"55289-0260-01 ")
;;636
;;21,"55289-0260-06 ")
;;637
;;21,"55289-0260-20 ")
;;638
;;21,"55289-0260-30 ")
;;639
;;21,"55289-0260-60 ")
;;640
;;21,"55289-0317-30 ")
;;641
;;21,"55289-0317-60 ")
;;642
;;21,"55289-0751-30 ")
;;643
;;21,"55289-0751-60 ")
;;644
;;21,"55289-0785-30 ")
;;645
;;21,"55289-0785-60 ")
;;646
;;21,"55289-0788-60 ")
;;647
;;21,"55289-0789-30 ")
;;648
;;21,"56126-0436-11 ")
;;649
;;21,"56126-0437-11 ")
;;650
;;21,"56126-0438-11 ")
;;651
;;21,"57480-0365-01 ")
;;652
;;21,"57480-0365-06 ")
;;653
;;21,"57480-0366-01 ")
;;654
;;21,"57480-0366-06 ")
;;655
;;21,"57480-0367-01 ")
;;656
;;21,"57480-0367-06 ")
;;657
;;21,"57866-4651-02 ")
;;658
;;21,"57866-4652-02 ")
;;659
;;21,"57866-4653-01 ")
;;660
;;21,"58298-0520-01 ")
;;661
;;21,"58864-0501-17 ")
;;662
;;21,"59198-0252-01 ")
;;663
;;21,"59198-0253-01 ")
;;664
;;21,"59198-0254-01 ")
;;665
;;21,"59198-0255-01 ")
;;666
;;21,"59198-0356-04 ")
;;667
;;21,"59930-1509-01 ")
;;668
;;21,"59930-1509-02 ")
;;669
;;21,"59930-1650-01 ")
;;670
;;21,"59930-1650-02 ")
;;671
;;21,"59930-1650-03 ")
;;672
;;21,"59930-1660-01 ")
;;673
;;21,"59930-1660-02 ")
;;674
;;21,"59930-1660-03 ")
;;675
;;21,"59930-1670-01 ")
;;676
;;21,"59930-1670-02 ")
;;677
;;21,"59930-1670-03 ")
;;678
;;21,"59930-1680-01 ")
;;679
;;21,"60346-0168-64 ")
;;680
;;21,"60432-0157-06 ")
;;681
;;21,"60432-0157-21 ")
;;682
;;21,"60505-0802-01 ")
;;683
;;21,"60505-0802-02 ")
;;684
;;21,"60793-0011-08 ")
;;685
;;21,"60793-0011-14 ")
;;686
;;21,"60793-0120-01 ")
;;687
;;21,"61392-0016-30 ")
;;688
;;21,"61392-0016-31 ")
;;689
;;21,"61392-0016-32 ")
;;690
;;21,"61392-0016-39 ")
;;691
;;21,"61392-0016-45 ")
;;692
;;21,"61392-0016-51 ")
;;693
;;21,"61392-0016-54 ")
;;694
;;21,"61392-0016-56 ")
;;695
;;21,"61392-0016-60 ")
;;696
;;21,"61392-0016-90 ")
;;697
;;21,"61392-0016-91 ")
;;698
;;21,"61392-0017-30 ")
;;699
;;21,"61392-0017-31 ")
;;700
;;21,"61392-0017-32 ")
;;701
;;21,"61392-0017-39 ")
;;702
;;21,"61392-0017-45 ")
;;703
;;21,"61392-0017-51 ")
;;704
;;21,"61392-0017-54 ")
;;705
;;21,"61392-0017-56 ")
;;706
;;21,"61392-0017-60 ")
;;707
;;21,"61392-0017-90 ")
;;708
;;21,"61392-0017-91 ")
;;709
;;21,"61570-0019-01 ")
;;710
;;21,"62947-6406-05 ")
;;711
;;21,"62947-6406-09 ")
;;712
;;21,"63874-0443-01 ")
;;713
;;21,"64681-0157-06 ")
;;714
;;21,"64681-0157-21 ")
;;715
;;21,"65162-0324-10 ")
;;716
;;21,"65162-0324-11 ")
;;717
;;21,"65162-0325-10 ")
;;718
;;21,"65162-0325-11 ")
;;719
;;21,"65162-0335-10 ")
;;720
;;21,"67781-0251-01 ")
;;721
;;21,"67781-0251-05 ")
;;722
;;21,"67781-0252-01 ")
;;723
;;21,"68115-0328-60 ")
;;724
;;21,"68115-0651-60 ")
;;725
;;9002226,750,.01)
;;BAT ASTHMA CONTROLLER NDC
;;9002226,750,.02)
;;@
;;9002226,750,.04)
;;n
;;9002226,750,.06)
;;@
;;9002226,750,.08)
;;@
;;9002226,750,.09)
;;3080528
;;9002226,750,.11)
;;@
;;9002226,750,.12)
;;@
;;9002226,750,.13)
;;1
;;9002226,750,.14)
;;@
;;9002226,750,.15)
;;@
;;9002226,750,.16)
;;@
;;9002226,750,.17)
;;@
;;9002226,750,3101)
;;@
;;9002226.02101,"750,00005-3076-43 ",.01)
;;00005-3076-43
;;9002226.02101,"750,00005-3076-43 ",.02)
;;00005-3076-43
;;9002226.02101,"750,00005-3077-31 ",.01)
;;00005-3077-31
;;9002226.02101,"750,00005-3077-31 ",.02)
;;00005-3077-31
;;9002226.02101,"750,00005-3077-43 ",.01)
;;00005-3077-43
;;9002226.02101,"750,00005-3077-43 ",.02)
;;00005-3077-43
;;9002226.02101,"750,00005-3078-31 ",.01)
;;00005-3078-31
;;9002226.02101,"750,00005-3078-31 ",.02)
;;00005-3078-31
;;9002226.02101,"750,00005-3078-43 ",.01)
;;00005-3078-43
;;9002226.02101,"750,00005-3078-43 ",.02)
;;00005-3078-43
;;9002226.02101,"750,00005-4816-72 ",.01)
;;00005-4816-72
;;9002226.02101,"750,00005-4816-72 ",.02)
;;00005-4816-72
;;9002226.02101,"750,00014-2832-31 ",.01)
;;00014-2832-31
;;9002226.02101,"750,00014-2832-31 ",.02)
;;00014-2832-31
BJPC2UJE ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON FEB 17, 2009;
+1 ;;2.0;IHS PCC SUITE;;MAY 14, 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-05 ")
+2 ;;610
+3 ;;21,"54868-0029-06 ")
+4 ;;611
+5 ;;21,"54868-1438-00 ")
+6 ;;612
+7 ;;21,"54868-1438-01 ")
+8 ;;613
+9 ;;21,"54868-1894-01 ")
+10 ;;614
+11 ;;21,"54868-1894-02 ")
+12 ;;615
+13 ;;21,"54868-2710-00 ")
+14 ;;616
+15 ;;21,"54868-2710-01 ")
+16 ;;617
+17 ;;21,"54868-2822-00 ")
+18 ;;618
+19 ;;21,"54868-3555-00 ")
+20 ;;619
+21 ;;21,"54868-4481-00 ")
+22 ;;620
+23 ;;21,"54868-4972-00 ")
+24 ;;621
+25 ;;21,"54868-4972-01 ")
+26 ;;622
+27 ;;21,"54868-5531-00 ")
+28 ;;623
+29 ;;21,"54868-5531-01 ")
+30 ;;624
+31 ;;21,"54977-0684-01 ")
+32 ;;625
+33 ;;21,"54977-0684-02 ")
+34 ;;626
+35 ;;21,"55045-1931-05 ")
+36 ;;627
+37 ;;21,"55154-6301-02 ")
+38 ;;628
+39 ;;21,"55154-8502-07 ")
+40 ;;629
+41 ;;21,"55175-4460-01 ")
+42 ;;630
+43 ;;21,"55175-4461-01 ")
+44 ;;631
+45 ;;21,"55175-5247-01 ")
+46 ;;632
+47 ;;21,"55289-0259-01 ")
+48 ;;633
+49 ;;21,"55289-0259-30 ")
+50 ;;634
+51 ;;21,"55289-0259-60 ")
+52 ;;635
+53 ;;21,"55289-0260-01 ")
+54 ;;636
+55 ;;21,"55289-0260-06 ")
+56 ;;637
+57 ;;21,"55289-0260-20 ")
+58 ;;638
+59 ;;21,"55289-0260-30 ")
+60 ;;639
+61 ;;21,"55289-0260-60 ")
+62 ;;640
+63 ;;21,"55289-0317-30 ")
+64 ;;641
+65 ;;21,"55289-0317-60 ")
+66 ;;642
+67 ;;21,"55289-0751-30 ")
+68 ;;643
+69 ;;21,"55289-0751-60 ")
+70 ;;644
+71 ;;21,"55289-0785-30 ")
+72 ;;645
+73 ;;21,"55289-0785-60 ")
+74 ;;646
+75 ;;21,"55289-0788-60 ")
+76 ;;647
+77 ;;21,"55289-0789-30 ")
+78 ;;648
+79 ;;21,"56126-0436-11 ")
+80 ;;649
+81 ;;21,"56126-0437-11 ")
+82 ;;650
+83 ;;21,"56126-0438-11 ")
+84 ;;651
+85 ;;21,"57480-0365-01 ")
+86 ;;652
+87 ;;21,"57480-0365-06 ")
+88 ;;653
+89 ;;21,"57480-0366-01 ")
+90 ;;654
+91 ;;21,"57480-0366-06 ")
+92 ;;655
+93 ;;21,"57480-0367-01 ")
+94 ;;656
+95 ;;21,"57480-0367-06 ")
+96 ;;657
+97 ;;21,"57866-4651-02 ")
+98 ;;658
+99 ;;21,"57866-4652-02 ")
+100 ;;659
+101 ;;21,"57866-4653-01 ")
+102 ;;660
+103 ;;21,"58298-0520-01 ")
+104 ;;661
+105 ;;21,"58864-0501-17 ")
+106 ;;662
+107 ;;21,"59198-0252-01 ")
+108 ;;663
+109 ;;21,"59198-0253-01 ")
+110 ;;664
+111 ;;21,"59198-0254-01 ")
+112 ;;665
+113 ;;21,"59198-0255-01 ")
+114 ;;666
+115 ;;21,"59198-0356-04 ")
+116 ;;667
+117 ;;21,"59930-1509-01 ")
+118 ;;668
+119 ;;21,"59930-1509-02 ")
+120 ;;669
+121 ;;21,"59930-1650-01 ")
+122 ;;670
+123 ;;21,"59930-1650-02 ")
+124 ;;671
+125 ;;21,"59930-1650-03 ")
+126 ;;672
+127 ;;21,"59930-1660-01 ")
+128 ;;673
+129 ;;21,"59930-1660-02 ")
+130 ;;674
+131 ;;21,"59930-1660-03 ")
+132 ;;675
+133 ;;21,"59930-1670-01 ")
+134 ;;676
+135 ;;21,"59930-1670-02 ")
+136 ;;677
+137 ;;21,"59930-1670-03 ")
+138 ;;678
+139 ;;21,"59930-1680-01 ")
+140 ;;679
+141 ;;21,"60346-0168-64 ")
+142 ;;680
+143 ;;21,"60432-0157-06 ")
+144 ;;681
+145 ;;21,"60432-0157-21 ")
+146 ;;682
+147 ;;21,"60505-0802-01 ")
+148 ;;683
+149 ;;21,"60505-0802-02 ")
+150 ;;684
+151 ;;21,"60793-0011-08 ")
+152 ;;685
+153 ;;21,"60793-0011-14 ")
+154 ;;686
+155 ;;21,"60793-0120-01 ")
+156 ;;687
+157 ;;21,"61392-0016-30 ")
+158 ;;688
+159 ;;21,"61392-0016-31 ")
+160 ;;689
+161 ;;21,"61392-0016-32 ")
+162 ;;690
+163 ;;21,"61392-0016-39 ")
+164 ;;691
+165 ;;21,"61392-0016-45 ")
+166 ;;692
+167 ;;21,"61392-0016-51 ")
+168 ;;693
+169 ;;21,"61392-0016-54 ")
+170 ;;694
+171 ;;21,"61392-0016-56 ")
+172 ;;695
+173 ;;21,"61392-0016-60 ")
+174 ;;696
+175 ;;21,"61392-0016-90 ")
+176 ;;697
+177 ;;21,"61392-0016-91 ")
+178 ;;698
+179 ;;21,"61392-0017-30 ")
+180 ;;699
+181 ;;21,"61392-0017-31 ")
+182 ;;700
+183 ;;21,"61392-0017-32 ")
+184 ;;701
+185 ;;21,"61392-0017-39 ")
+186 ;;702
+187 ;;21,"61392-0017-45 ")
+188 ;;703
+189 ;;21,"61392-0017-51 ")
+190 ;;704
+191 ;;21,"61392-0017-54 ")
+192 ;;705
+193 ;;21,"61392-0017-56 ")
+194 ;;706
+195 ;;21,"61392-0017-60 ")
+196 ;;707
+197 ;;21,"61392-0017-90 ")
+198 ;;708
+199 ;;21,"61392-0017-91 ")
+200 ;;709
+201 ;;21,"61570-0019-01 ")
+202 ;;710
+203 ;;21,"62947-6406-05 ")
+204 ;;711
+205 ;;21,"62947-6406-09 ")
+206 ;;712
+207 ;;21,"63874-0443-01 ")
+208 ;;713
+209 ;;21,"64681-0157-06 ")
+210 ;;714
+211 ;;21,"64681-0157-21 ")
+212 ;;715
+213 ;;21,"65162-0324-10 ")
+214 ;;716
+215 ;;21,"65162-0324-11 ")
+216 ;;717
+217 ;;21,"65162-0325-10 ")
+218 ;;718
+219 ;;21,"65162-0325-11 ")
+220 ;;719
+221 ;;21,"65162-0335-10 ")
+222 ;;720
+223 ;;21,"67781-0251-01 ")
+224 ;;721
+225 ;;21,"67781-0251-05 ")
+226 ;;722
+227 ;;21,"67781-0252-01 ")
+228 ;;723
+229 ;;21,"68115-0328-60 ")
+230 ;;724
+231 ;;21,"68115-0651-60 ")
+232 ;;725
+233 ;;9002226,750,.01)
+234 ;;BAT ASTHMA CONTROLLER NDC
+235 ;;9002226,750,.02)
+236 ;;@
+237 ;;9002226,750,.04)
+238 ;;n
+239 ;;9002226,750,.06)
+240 ;;@
+241 ;;9002226,750,.08)
+242 ;;@
+243 ;;9002226,750,.09)
+244 ;;3080528
+245 ;;9002226,750,.11)
+246 ;;@
+247 ;;9002226,750,.12)
+248 ;;@
+249 ;;9002226,750,.13)
+250 ;;1
+251 ;;9002226,750,.14)
+252 ;;@
+253 ;;9002226,750,.15)
+254 ;;@
+255 ;;9002226,750,.16)
+256 ;;@
+257 ;;9002226,750,.17)
+258 ;;@
+259 ;;9002226,750,3101)
+260 ;;@
+261 ;;9002226.02101,"750,00005-3076-43 ",.01)
+262 ;;00005-3076-43
+263 ;;9002226.02101,"750,00005-3076-43 ",.02)
+264 ;;00005-3076-43
+265 ;;9002226.02101,"750,00005-3077-31 ",.01)
+266 ;;00005-3077-31
+267 ;;9002226.02101,"750,00005-3077-31 ",.02)
+268 ;;00005-3077-31
+269 ;;9002226.02101,"750,00005-3077-43 ",.01)
+270 ;;00005-3077-43
+271 ;;9002226.02101,"750,00005-3077-43 ",.02)
+272 ;;00005-3077-43
+273 ;;9002226.02101,"750,00005-3078-31 ",.01)
+274 ;;00005-3078-31
+275 ;;9002226.02101,"750,00005-3078-31 ",.02)
+276 ;;00005-3078-31
+277 ;;9002226.02101,"750,00005-3078-43 ",.01)
+278 ;;00005-3078-43
+279 ;;9002226.02101,"750,00005-3078-43 ",.02)
+280 ;;00005-3078-43
+281 ;;9002226.02101,"750,00005-4816-72 ",.01)
+282 ;;00005-4816-72
+283 ;;9002226.02101,"750,00005-4816-72 ",.02)
+284 ;;00005-4816-72
+285 ;;9002226.02101,"750,00014-2832-31 ",.01)
+286 ;;00014-2832-31
+287 ;;9002226.02101,"750,00014-2832-31 ",.02)
+288 ;;00014-2832-31
