Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BJPC2UJE

BJPC2UJE.m

Go to the documentation of this file.
  1. BJPC2UJE ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON FEB 17, 2009;
  1. ;;2.0;IHS PCC SUITE;;MAY 14, 2009
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;21,"54868-0029-05 ")
  1. ;;610
  1. ;;21,"54868-0029-06 ")
  1. ;;611
  1. ;;21,"54868-1438-00 ")
  1. ;;612
  1. ;;21,"54868-1438-01 ")
  1. ;;613
  1. ;;21,"54868-1894-01 ")
  1. ;;614
  1. ;;21,"54868-1894-02 ")
  1. ;;615
  1. ;;21,"54868-2710-00 ")
  1. ;;616
  1. ;;21,"54868-2710-01 ")
  1. ;;617
  1. ;;21,"54868-2822-00 ")
  1. ;;618
  1. ;;21,"54868-3555-00 ")
  1. ;;619
  1. ;;21,"54868-4481-00 ")
  1. ;;620
  1. ;;21,"54868-4972-00 ")
  1. ;;621
  1. ;;21,"54868-4972-01 ")
  1. ;;622
  1. ;;21,"54868-5531-00 ")
  1. ;;623
  1. ;;21,"54868-5531-01 ")
  1. ;;624
  1. ;;21,"54977-0684-01 ")
  1. ;;625
  1. ;;21,"54977-0684-02 ")
  1. ;;626
  1. ;;21,"55045-1931-05 ")
  1. ;;627
  1. ;;21,"55154-6301-02 ")
  1. ;;628
  1. ;;21,"55154-8502-07 ")
  1. ;;629
  1. ;;21,"55175-4460-01 ")
  1. ;;630
  1. ;;21,"55175-4461-01 ")
  1. ;;631
  1. ;;21,"55175-5247-01 ")
  1. ;;632
  1. ;;21,"55289-0259-01 ")
  1. ;;633
  1. ;;21,"55289-0259-30 ")
  1. ;;634
  1. ;;21,"55289-0259-60 ")
  1. ;;635
  1. ;;21,"55289-0260-01 ")
  1. ;;636
  1. ;;21,"55289-0260-06 ")
  1. ;;637
  1. ;;21,"55289-0260-20 ")
  1. ;;638
  1. ;;21,"55289-0260-30 ")
  1. ;;639
  1. ;;21,"55289-0260-60 ")
  1. ;;640
  1. ;;21,"55289-0317-30 ")
  1. ;;641
  1. ;;21,"55289-0317-60 ")
  1. ;;642
  1. ;;21,"55289-0751-30 ")
  1. ;;643
  1. ;;21,"55289-0751-60 ")
  1. ;;644
  1. ;;21,"55289-0785-30 ")
  1. ;;645
  1. ;;21,"55289-0785-60 ")
  1. ;;646
  1. ;;21,"55289-0788-60 ")
  1. ;;647
  1. ;;21,"55289-0789-30 ")
  1. ;;648
  1. ;;21,"56126-0436-11 ")
  1. ;;649
  1. ;;21,"56126-0437-11 ")
  1. ;;650
  1. ;;21,"56126-0438-11 ")
  1. ;;651
  1. ;;21,"57480-0365-01 ")
  1. ;;652
  1. ;;21,"57480-0365-06 ")
  1. ;;653
  1. ;;21,"57480-0366-01 ")
  1. ;;654
  1. ;;21,"57480-0366-06 ")
  1. ;;655
  1. ;;21,"57480-0367-01 ")
  1. ;;656
  1. ;;21,"57480-0367-06 ")
  1. ;;657
  1. ;;21,"57866-4651-02 ")
  1. ;;658
  1. ;;21,"57866-4652-02 ")
  1. ;;659
  1. ;;21,"57866-4653-01 ")
  1. ;;660
  1. ;;21,"58298-0520-01 ")
  1. ;;661
  1. ;;21,"58864-0501-17 ")
  1. ;;662
  1. ;;21,"59198-0252-01 ")
  1. ;;663
  1. ;;21,"59198-0253-01 ")
  1. ;;664
  1. ;;21,"59198-0254-01 ")
  1. ;;665
  1. ;;21,"59198-0255-01 ")
  1. ;;666
  1. ;;21,"59198-0356-04 ")
  1. ;;667
  1. ;;21,"59930-1509-01 ")
  1. ;;668
  1. ;;21,"59930-1509-02 ")
  1. ;;669
  1. ;;21,"59930-1650-01 ")
  1. ;;670
  1. ;;21,"59930-1650-02 ")
  1. ;;671
  1. ;;21,"59930-1650-03 ")
  1. ;;672
  1. ;;21,"59930-1660-01 ")
  1. ;;673
  1. ;;21,"59930-1660-02 ")
  1. ;;674
  1. ;;21,"59930-1660-03 ")
  1. ;;675
  1. ;;21,"59930-1670-01 ")
  1. ;;676
  1. ;;21,"59930-1670-02 ")
  1. ;;677
  1. ;;21,"59930-1670-03 ")
  1. ;;678
  1. ;;21,"59930-1680-01 ")
  1. ;;679
  1. ;;21,"60346-0168-64 ")
  1. ;;680
  1. ;;21,"60432-0157-06 ")
  1. ;;681
  1. ;;21,"60432-0157-21 ")
  1. ;;682
  1. ;;21,"60505-0802-01 ")
  1. ;;683
  1. ;;21,"60505-0802-02 ")
  1. ;;684
  1. ;;21,"60793-0011-08 ")
  1. ;;685
  1. ;;21,"60793-0011-14 ")
  1. ;;686
  1. ;;21,"60793-0120-01 ")
  1. ;;687
  1. ;;21,"61392-0016-30 ")
  1. ;;688
  1. ;;21,"61392-0016-31 ")
  1. ;;689
  1. ;;21,"61392-0016-32 ")
  1. ;;690
  1. ;;21,"61392-0016-39 ")
  1. ;;691
  1. ;;21,"61392-0016-45 ")
  1. ;;692
  1. ;;21,"61392-0016-51 ")
  1. ;;693
  1. ;;21,"61392-0016-54 ")
  1. ;;694
  1. ;;21,"61392-0016-56 ")
  1. ;;695
  1. ;;21,"61392-0016-60 ")
  1. ;;696
  1. ;;21,"61392-0016-90 ")
  1. ;;697
  1. ;;21,"61392-0016-91 ")
  1. ;;698
  1. ;;21,"61392-0017-30 ")
  1. ;;699
  1. ;;21,"61392-0017-31 ")
  1. ;;700
  1. ;;21,"61392-0017-32 ")
  1. ;;701
  1. ;;21,"61392-0017-39 ")
  1. ;;702
  1. ;;21,"61392-0017-45 ")
  1. ;;703
  1. ;;21,"61392-0017-51 ")
  1. ;;704
  1. ;;21,"61392-0017-54 ")
  1. ;;705
  1. ;;21,"61392-0017-56 ")
  1. ;;706
  1. ;;21,"61392-0017-60 ")
  1. ;;707
  1. ;;21,"61392-0017-90 ")
  1. ;;708
  1. ;;21,"61392-0017-91 ")
  1. ;;709
  1. ;;21,"61570-0019-01 ")
  1. ;;710
  1. ;;21,"62947-6406-05 ")
  1. ;;711
  1. ;;21,"62947-6406-09 ")
  1. ;;712
  1. ;;21,"63874-0443-01 ")
  1. ;;713
  1. ;;21,"64681-0157-06 ")
  1. ;;714
  1. ;;21,"64681-0157-21 ")
  1. ;;715
  1. ;;21,"65162-0324-10 ")
  1. ;;716
  1. ;;21,"65162-0324-11 ")
  1. ;;717
  1. ;;21,"65162-0325-10 ")
  1. ;;718
  1. ;;21,"65162-0325-11 ")
  1. ;;719
  1. ;;21,"65162-0335-10 ")
  1. ;;720
  1. ;;21,"67781-0251-01 ")
  1. ;;721
  1. ;;21,"67781-0251-05 ")
  1. ;;722
  1. ;;21,"67781-0252-01 ")
  1. ;;723
  1. ;;21,"68115-0328-60 ")
  1. ;;724
  1. ;;21,"68115-0651-60 ")
  1. ;;725
  1. ;;9002226,750,.01)
  1. ;;BAT ASTHMA CONTROLLER NDC
  1. ;;9002226,750,.02)
  1. ;;@
  1. ;;9002226,750,.04)
  1. ;;n
  1. ;;9002226,750,.06)
  1. ;;@
  1. ;;9002226,750,.08)
  1. ;;@
  1. ;;9002226,750,.09)
  1. ;;3080528
  1. ;;9002226,750,.11)
  1. ;;@
  1. ;;9002226,750,.12)
  1. ;;@
  1. ;;9002226,750,.13)
  1. ;;1
  1. ;;9002226,750,.14)
  1. ;;@
  1. ;;9002226,750,.15)
  1. ;;@
  1. ;;9002226,750,.16)
  1. ;;@
  1. ;;9002226,750,.17)
  1. ;;@
  1. ;;9002226,750,3101)
  1. ;;@
  1. ;;9002226.02101,"750,00005-3076-43 ",.01)
  1. ;;00005-3076-43
  1. ;;9002226.02101,"750,00005-3076-43 ",.02)
  1. ;;00005-3076-43
  1. ;;9002226.02101,"750,00005-3077-31 ",.01)
  1. ;;00005-3077-31
  1. ;;9002226.02101,"750,00005-3077-31 ",.02)
  1. ;;00005-3077-31
  1. ;;9002226.02101,"750,00005-3077-43 ",.01)
  1. ;;00005-3077-43
  1. ;;9002226.02101,"750,00005-3077-43 ",.02)
  1. ;;00005-3077-43
  1. ;;9002226.02101,"750,00005-3078-31 ",.01)
  1. ;;00005-3078-31
  1. ;;9002226.02101,"750,00005-3078-31 ",.02)
  1. ;;00005-3078-31
  1. ;;9002226.02101,"750,00005-3078-43 ",.01)
  1. ;;00005-3078-43
  1. ;;9002226.02101,"750,00005-3078-43 ",.02)
  1. ;;00005-3078-43
  1. ;;9002226.02101,"750,00005-4816-72 ",.01)
  1. ;;00005-4816-72
  1. ;;9002226.02101,"750,00005-4816-72 ",.02)
  1. ;;00005-4816-72
  1. ;;9002226.02101,"750,00014-2832-31 ",.01)
  1. ;;00014-2832-31
  1. ;;9002226.02101,"750,00014-2832-31 ",.02)
  1. ;;00014-2832-31