- 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