oddb2xml 2.5.0 → 2.5.1

data/data/product_overrides.yaml

@@ -0,0 +1,4 @@
+---
+3536601:
+  DSCRF: '--missing--'
+  DSCR:  'KENDURAL Depottabl'

data/lib/oddb2xml/builder.rb

@@ -35,6 +35,12 @@ module Oddb2xml
   'GENERATED_BY'      => "oddb2xml #{VERSION}"
   }
   class Builder
+    Data_dir = File.expand_path(File.join(File.dirname(__FILE__),'..','..', 'data'))
+    @@article_overrides  = YAML.load_file(File.join(Data_dir, 'article_overrides.yaml'))
+    @@product_overrides  = YAML.load_file(File.join(Data_dir, 'product_overrides.yaml'))
+    @@ignore_file        = File.join(Data_dir, 'gtin2ignore.yaml')
+    @@gtin2ignore        = YAML.load_file(@@ignore_file) if File.exist?(@@ignore_file)
+    @@gtin2ignore ||= []
     attr_accessor :subject, :refdata, :items, :flags, :lppvs,
                   :actions, :migel, :orphan,
                   :infos, :packs, :infos_zur_rose,
@@ -51,7 +57,7 @@ module Oddb2xml
       @infos      = {}
       @packs      = {}
       @migel      = {}
-      @infos_zur_rose     = {} # zurrose
+      @infos_zur_rose  ||= {}
       @actions    = []
       @orphan    = []
       @ean14      = false
@@ -64,7 +70,7 @@ module Oddb2xml
       end
     end
     def to_xml(subject=nil)
-      Oddb2xml.log "to_xml subject #{subject} #{@subject} for #{self.class}"
+      Oddb2xml.log "to_xml subject #{subject || @subject}"
       if subject
         self.send('build_' + subject.to_s)
       elsif @subject
@@ -90,8 +96,8 @@ module Oddb2xml
             # delete duplicates
             @migel[ean13] = nil
           end unless SkipMigelDownloader
-          if seq = @items[obj[:ean]]
-            obj[:seq] = seq
+          if seq = @items[obj[:ean13]]
+            obj[:seq] = seq.clone
           end
           @articles << obj
           @pharmacode[obj[:pharmacode]] = obj
@@ -100,11 +106,11 @@ module Oddb2xml
         @migel.values.compact.each do |migel|
           next unless migel[:pharmacode]
           entry = {
-            :ean             => migel[:ean].to_i,
+            :ean13           => migel[:ean13],
             :pharmacode      => migel[:pharmacode],
             :stat_date       => '',
-            :desc_de            => migel[:desc_de],
-            :desc_fr            => migel[:desc_fr],
+            :desc_de         => migel[:desc_de],
+            :desc_fr         => migel[:desc_fr],
             :atc_code        => '',
             :quantity        => migel[:quantity],
             :company_ean     => migel[:company_ean],
@@ -114,50 +120,48 @@ module Oddb2xml
           @articles << entry
         end unless SkipMigelDownloader
         nrAdded = 0
-        if @options[:extended]
+        if @options[:extended] || @options[:artikelstamm]
           Oddb2xml.log("prepare_articles extended prepare_local_index having already #{@articles.size} articles")
           nrItems = 0
-          @infos_zur_rose.each{
-            |ean13, info|
-          nrItems += 1
-          pharmacode = info[:pharmacode]
-          if @pharmacode[pharmacode]
-            @pharmacode[pharmacode][:price]     = info[:price]
-            @pharmacode[pharmacode][:pub_price] = info[:pub_price]
-            next
-          end
-          obj = {}
-          found = false
-          # existing = @refdata.values.find{ |x| x[:ean].eql? ean13 }
-          existing = @refdata[ean13]
-          if existing
-            found = true
-            existing[:price]     = info[:price]
-            existing[:pub_price] = info[:pub_price]
-          else
-            entry = {
-                      :desc            => info[:description],
-                      :desc_de         => info[:description],
-                      :status          => info[:status] == '3' ? 'I' : 'A', # from ZurRose, we got 1,2 or 3 means aktive, aka available in trade
-                      :atc_code        => '',
-                      :ean             => ean13,
-                      :pharmacode      => pharmacode,
-                      :price           => info[:price],
-                      :pub_price       => info[:pub_price],
-                      :type            => info[:type],
-                      }
-            if pharmacode
-              @refdata[pharmacode] = entry
+          @infos_zur_rose.each do |ean13, info|
+            nrItems += 1
+            pharmacode = info[:pharmacode]
+            if @pharmacode[pharmacode]
+              @pharmacode[pharmacode][:price]     = info[:price]
+              @pharmacode[pharmacode][:pub_price] = info[:pub_price]
+              next
+            end
+            obj = {}
+            found = false
+            existing = @refdata[ean13]
+            if existing
+              found = true
+              existing[:price]     = info[:price]
+              existing[:pub_price] = info[:pub_price]
             else
-              @refdata[ean13] = entry
+              entry = {
+                        :desc            => info[:description],
+                        :desc_de         => info[:description],
+                        :status          => info[:status] == '3' ? 'I' : 'A', # from ZurRose, we got 1,2 or 3 means aktive, aka available in trade
+                        :atc_code        => '',
+                        :ean13           => ean13,
+                        :pharmacode      => pharmacode,
+                        :price           => info[:price],
+                        :pub_price       => info[:pub_price],
+                        :type            => info[:type],
+                        }
+              if pharmacode
+                @refdata[pharmacode] = entry
+              else
+                @refdata[ean13] = entry
+              end
+              obj = entry
+            end
+            if not found and obj.size > 0
+              @articles << obj unless @options[:artikelstamm]
+              nrAdded += 1
             end
-            obj = entry
-          end
-          if not found and obj.size > 0
-            @articles << obj
-            nrAdded += 1
           end
-          }
         end
       end
       Oddb2xml.log("prepare_articles done. Added #{nrAdded} prices. Total #{@articles.size}")
@@ -175,7 +179,7 @@ module Oddb2xml
         @substances.uniq!
         @substances.sort!
         Oddb2xml.log("prepare_substances done. Total #{@substances.size} from #{@items.size} items")
-        exit 2 if @options[:extended] and @substances.size == 0
+        exit 2 if (@options[:extended] || @options[:artikelstamm]) and @substances.size == 0
       end
     end
     def prepare_limitations
@@ -220,12 +224,11 @@ module Oddb2xml
         @refdata.each_pair do |ean13, item|
           next if item and item.is_a?(Hash) and item[:atc_code] and /^Q/i.match(item[:atc_code])
           next if item[:prodno] and @products[item[:prodno]]
-          next unless ean13.to_s.length == 13
           obj = {
-            :seq => @items[ean13] ? @items[ean13] : @items[item[:ean]],
+            :seq => @items[ean13] ? @items[ean13] : @items[item[:ean13]],
             :pac => nil,
             :no8 => nil,
-            :ean => item[:ean],
+            :ean13 => item[:ean13],
             :atc => item[:atc_code],
             :ith => '',
             :siz => '',
@@ -233,14 +236,17 @@ module Oddb2xml
             :sub => '',
             :comp => '',
           }
-          if obj[:ean] # via EAN-Code
-            obj[:no8] = obj[:ean].to_s[4..11]
+          # obj[:pexf_refdata] = item[:price]
+          # obj[:ppub_refdata] = item[:pub_price=]
+          # obj[:pharmacode=]  = item[:pharmacode=]
+          if obj[:ean13] # via EAN-Code
+            obj[:no8] = obj[:ean13].to_s[4..11]
           end
-          if obj[:no8] and ppac = @packs[obj[:no8].intern] and # Packungen.xls
+          if obj[:no8] && (ppac = @packs[obj[:no8]]) && # Packungen.xls
               !ppac[:is_tier]
             # If RefData does not have EAN
-            if obj[:ean].nil?
-              obj[:ean] = ppac[:ean].to_i
+            if obj[:ean13].nil?
+              obj[:ean13] = ppac[:ean13]
             end
             # If RefData dose not have ATC-Code
             if obj[:atc].nil? or obj[:atc].empty?
@@ -252,7 +258,10 @@ module Oddb2xml
             obj[:sub] = ppac[:substance_swissmedic]
             obj[:comp] = ppac[:composition_swissmedic]
           end
-          if obj[:ean].to_s[0..3] == '7680'
+          obj[:price] = item[:price]
+          obj[:pub_price] = item[:pub_price]
+
+          if obj[:ean13].to_s[0..3] == '7680'
             if item[:prodno]
               @products[item[:prodno]] = obj
             else
@@ -272,7 +281,7 @@ module Oddb2xml
           XML_OPTIONS
         ) {
           Oddb2xml.log "build_substance #{@substances.size} substances"
-        exit 2 if @options[:extended] and @substances.size == 0
+        exit 2 if (@options[:extended] || @options[:artikelstamm]) and @substances.size == 0
         nbr_records = 0
         @substances.each_with_index do |sub_name, i|
             xml.SB('DT' => '') do
@@ -429,34 +438,55 @@ module Oddb2xml
       end
       Oddb2xml.add_hash(_builder.to_xml)
     end
-    def add_missing_products_from_swissmedic
+    def add_missing_products_from_swissmedic(add_to_products = false)
       Oddb2xml.log "build_product add_missing_products_from_swissmedic. Starting with #{@products.size} products and #{@packs.size} @packs"
       ean13_to_product = {}
       @products.each{
         |ean13, obj|
-        ean13_to_product[ean13] = obj
+              ean13_to_product[ean13] = obj
+              obj[:pharmacode] ||= @refdata[ean13][:pharmacode]
       }
       ausgabe = File.open(File.join(WorkDir, 'missing_in_refdata.txt'), 'w+')
       size_old = ean13_to_product.size
       @missing = []
       Oddb2xml.log "build_product add_missing_products_from_swissmedic. Imported #{size_old} ean13_to_product from @products. Checking #{@packs.size} @packs"
-      @packs.each_with_index {
-        |de_idx, i|
-          ean = de_idx[1][:ean].to_i
-          next if @refdata[ean]
-          list_code = de_idx[1][:list_code]
-          next if list_code and /Tierarzneimittel/.match(list_code)
-          ean13_to_product[ean] = de_idx[1]
-          @missing << de_idx[1]
-          ausgabe.puts "#{ean},#{de_idx[1][:sequence_name]}"
-      }
+      @packs.each_with_index do |de_idx, index|
+        ean = de_idx[1][:ean13]
+        next if @refdata[ean]
+        list_code = de_idx[1][:list_code]
+        next if list_code and /Tierarzneimittel/.match(list_code)
+        if add_to_products
+           @products[ean] = { :seq=>
+                              {:name_de => de_idx.last[:sequence_name],
+                               :desc_de => '',
+                               :name_fr => '',
+                               :desc_fr => '',
+                               :atc_code => de_idx.last[:atc_code],
+                              },
+              :pac=>nil,
+              :sequence_name => de_idx.last[:sequence_name],
+              :no8=>  de_idx.last[:prodno],
+              :ean13=>  ean,
+              :atc=>  de_idx.last[:atc_code],
+              :ith=>  de_idx.last[:ith_swissmedic],
+              :siz=>  de_idx.last[:package_size],
+              :eht=>  de_idx.last[:einheit_swissmedic],
+              :sub=>  de_idx.last[:substance_swissmedic],
+              :comp=> de_idx.last[:composition_swissmedic],
+              :drug_index => de_idx.last[:drug_index],
+            }
+        end
+        ean13_to_product[ean] = de_idx[1]
+        @missing << de_idx[1]
+        ausgabe.puts "#{ean},#{de_idx[1][:sequence_name]}"
+      end
       corrected_size = ean13_to_product.size
       Oddb2xml.log "build_product add_missing_products_from_swissmedic. Added #{(corrected_size - size_old)} corrected_size #{corrected_size} size_old #{size_old} ean13_to_product."
     end
 
     def build_product
       def check_name(obj, lang = :de)
-        ean = obj[:ean].to_i
+        ean = obj[:ean13]
         refdata = @refdata[ean]
         if lang == :de
           name = (refdata && refdata[:desc_de]) ? refdata[:desc_de] : obj[:sequence_name]
@@ -482,7 +512,7 @@ module Oddb2xml
         xml.PRODUCT(XML_OPTIONS) {
           list = []
           @missing.each do |obj|
-            ean = obj[:ean].to_i
+            ean = obj[:ean13]
             next unless check_name(obj, :de)
             next unless check_name(obj, :fr)
             next if /^Q/i.match(obj[:atc])
@@ -496,7 +526,6 @@ module Oddb2xml
             xml.PRODNO obj[:prodno]                                 if obj[:prodno]
             xml.DSCRD  check_name(obj, :de)
             xml.DSCRF  check_name(obj, :fr)
-            xml.ATC obj[:atc_code]                                  if obj[:atc_code] and !obj[:atc_code].empty?
             xml.IT  obj[:ith_swissmedic]                            if obj[:ith_swissmedic]
             xml.CPT
             xml.PackGrSwissmedic      obj[:package_size]            if obj[:package_size]
@@ -505,17 +534,16 @@ module Oddb2xml
             xml.CompositionSwissmedic obj[:composition_swissmedic]  if obj[:composition_swissmedic]
                                }
           end
-          # @products.sort! { |a,b| a[:ean] <=> b[:ean] }
-          @products.each do |ean13, obj|
+          @products.sort.to_h.each do |ean13, obj|
             next if /^Q/i.match(obj[:atc])
             seq = obj[:seq]
-              ean = obj[:ean]
+              ean = obj[:ean13]
               next unless check_name(obj, :de)
               next unless check_name(obj, :fr)
               xml.PRD('DT' => obj[:last_change]) do
               nbr_products += 1
               xml.GTIN ean
-              ppac = ((_ppac = @packs[ean.to_s[4..11].intern] and !_ppac[:is_tier]) ? _ppac : {})
+              ppac = ((_ppac = @packs[ean.to_s[4..11]] and !_ppac[:is_tier]) ? _ppac : {})
               unless ppac
                 ppac = @packs.find{|pac| pac.ean == ean }.first
               end
@@ -528,9 +556,9 @@ module Oddb2xml
               #xml.ADNAMF
               #xml.SIZE
               if seq
-                xml.ADINFD seq[:comment_de]   unless seq[:comment_de].empty?
-                xml.ADINFF seq[:comment_fr]   unless seq[:comment_fr].empty?
-                xml.GENCD  seq[:org_gen_code] unless seq[:org_gen_code].empty?
+                xml.ADINFD seq[:comment_de]   unless seq[:comment_de] && seq[:comment_de].empty?
+                xml.ADINFF seq[:comment_fr]   unless seq[:comment_fr] && seq[:comment_fr].empty?
+                xml.GENCD  seq[:org_gen_code] unless seq[:org_gen_code] && seq[:org_gen_code].empty?
               end
               #xml.GENGRP
               xml.ATC obj[:atc] unless obj[:atc].empty?
@@ -637,6 +665,61 @@ module Oddb2xml
       Oddb2xml.add_hash(_builder.to_xml)
     end
 
+    def prepare_calc_items(suppress_composition_parsing: false)
+      @calc_items = {}
+      packungen_xlsx = File.join(Oddb2xml::WorkDir, "swissmedic_package.xlsx")
+      idx = 0
+      return unless File.exists?(packungen_xlsx)
+      workbook = RubyXL::Parser.parse(packungen_xlsx)
+      row_nr = 0
+      workbook.worksheets[0].each do |row|
+        row_nr += 1
+        next unless row and row.cells[0] and row.cells[0].value and row.cells[0].value.to_i > 0
+        iksnr               = "%05i" % row.cells[0].value.to_i
+        seqnr               = "%02d" % row.cells[1].value.to_i
+        if row_nr % 250 == 0
+            puts "#{Time.now}: At row #{row_nr} iksnr #{iksnr}";
+            $stdout.flush
+        end
+        ith       = COLUMNS_JULY_2015.keys.index(:index_therapeuticus)
+        seq_name  = COLUMNS_JULY_2015.keys.index(:name_base)
+        i_3       = COLUMNS_JULY_2015.keys.index(:ikscd)
+        p_1_2     = COLUMNS_JULY_2015.keys.index(:seqnr)
+        cat       = COLUMNS_JULY_2015.keys.index(:ikscat)
+        siz       = COLUMNS_JULY_2015.keys.index(:size)
+        atc       = COLUMNS_JULY_2015.keys.index(:atc_class)
+        list_code = COLUMNS_JULY_2015.keys.index(:production_science)
+        unit      = COLUMNS_JULY_2015.keys.index(:unit)
+        sub       = COLUMNS_JULY_2015.keys.index(:substances)
+        comp      = COLUMNS_JULY_2015.keys.index(:composition)
+
+        no8                 = iksnr + sprintf('%03d',row.cells[i_3].value.to_i)
+        name                = row.cells[seq_name]  ? row.cells[seq_name].value  : nil
+        atc_code            = row.cells[atc]  ? row.cells[atc].value  : nil
+        list_code           = row.cells[list_code]  ? row.cells[list_code].value  : nil
+        package_size        = row.cells[siz] ? row.cells[siz].value : nil
+        unit                = row.cells[unit] ? row.cells[unit].value : nil
+        active_substance    = row.cells[sub] ? row.cells[sub].value : nil
+        composition         = row.cells[comp] ? row.cells[comp].value : nil
+
+        # skip veterinary product
+        next if atc_code  and /^Q/i.match(atc_code)
+        next if list_code and /Tierarzneimittel/.match(list_code)
+        info = nil
+        begin
+          if suppress_composition_parsing
+            info = Calc.new(name, package_size, unit)
+          else
+            info = Calc.new(name, package_size, unit, active_substance, composition)
+          end
+        rescue
+          puts "#{Time.now}: #{row_nr} iksnr #{iksnr} rescue from Calc.new"
+        end
+        ean12 = '7680' + no8
+        ean13 = (ean12 + Oddb2xml.calc_checksum(ean12))
+        @calc_items[ean13] = info
+      end
+    end
     def build_calc
       def emit_substance(xml, substance, emit_active=false)
           xml.MORE_INFO substance.more_info if substance.more_info
@@ -656,69 +739,22 @@ module Oddb2xml
             }
           end
           if substance.salts and substance.salts.size > 0
-            xml.SALTS {
-              substance.salts.each { |salt|
-                xml.SALT {
+            xml.SALTS do
+              substance.salts.each do |salt|
+                xml.SALT do
                   emit_substance(xml, salt)
-                         }
-                                   }
-              }
-
+                end
+              end
+            end
           end
       end
-      packungen_xlsx = File.join(Oddb2xml::WorkDir, "swissmedic_package.xlsx")
-      idx = 0
-      return unless File.exists?(packungen_xlsx)
-      workbook = RubyXL::Parser.parse(packungen_xlsx)
-      items = {}
-      row_nr = 0
+      prepare_calc_items
       _builder = Nokogiri::XML::Builder.new(:encoding => 'utf-8') do |xml|
         xml.doc.tag_suffix = @tag_suffix
         datetime = Time.new.strftime('%FT%T%z')
-        xml.ARTICLES(XML_OPTIONS) {
-          workbook.worksheets[0].each do |row|
-            row_nr += 1
-            next unless row and row.cells[0] and row.cells[0].value and row.cells[0].value.to_i > 0
-            iksnr               = "%05i" % row.cells[0].value.to_i
-            seqnr               = "%02d" % row.cells[1].value.to_i
-            if row_nr % 250 == 0
-                puts "#{Time.now}: At row #{row_nr} iksnr #{iksnr}";
-                $stdout.flush
-            end
-            ith       = COLUMNS_JULY_2015.keys.index(:index_therapeuticus)
-            seq_name  = COLUMNS_JULY_2015.keys.index(:name_base)
-            i_3       = COLUMNS_JULY_2015.keys.index(:ikscd)
-            p_1_2     = COLUMNS_JULY_2015.keys.index(:seqnr)
-            cat       = COLUMNS_JULY_2015.keys.index(:ikscat)
-            siz       = COLUMNS_JULY_2015.keys.index(:size)
-            atc       = COLUMNS_JULY_2015.keys.index(:atc_class)
-            list_code = COLUMNS_JULY_2015.keys.index(:production_science)
-            unit      = COLUMNS_JULY_2015.keys.index(:unit)
-            sub       = COLUMNS_JULY_2015.keys.index(:substances)
-            comp      = COLUMNS_JULY_2015.keys.index(:composition)
-
-            no8                 = iksnr + sprintf('%03d',row.cells[i_3].value.to_i)
-            name                = row.cells[seq_name]  ? row.cells[seq_name].value  : nil
-            atc_code            = row.cells[atc]  ? row.cells[atc].value  : nil
-            list_code           = row.cells[list_code]  ? row.cells[list_code].value  : nil
-            package_size        = row.cells[siz] ? row.cells[siz].value : nil
-            unit                = row.cells[unit] ? row.cells[unit].value : nil
-            active_substance    = row.cells[sub] ? row.cells[sub].value : nil
-            composition         = row.cells[comp] ? row.cells[comp].value : nil
-
-            # skip veterinary product
-            next if atc_code  and /^Q/i.match(atc_code)
-            next if list_code and /Tierarzneimittel/.match(list_code)
-            begin
-              info = Calc.new(name, package_size, unit, active_substance, composition)
-            rescue
-              puts "#{Time.now}: #{row_nr} iksnr #{iksnr} rescue from Calc.new"
-              info = nil
-            end
-            ean12 = '7680' + no8
-            ean13 = (ean12 + Oddb2xml.calc_checksum(ean12))
-            items[ean13] = info
-            xml.ARTICLE {
+        xml.ARTICLES(XML_OPTIONS) do
+          @calc_items.each do |ean13, info|
+            xml.ARTICLE do
               xml.GTIN              ean13
               xml.NAME              info.column_c
               xml.PKG_SIZE          info.pkg_size
@@ -732,29 +768,30 @@ module Oddb2xml
                 xml.GALENIC_FORM  info.galenic_form.description
                 xml.GALENIC_GROUP info.galenic_group ? info.galenic_group.description : "Unknown"
               end
-              xml.COMPOSITIONS {
-                info.compositions.each { |composition|
-                  xml.COMPOSITION {
+              xml.COMPOSITIONS do
+                info.compositions.each do |composition|
+                  xml.COMPOSITION do
                     xml.EXCIPIENS { emit_substance(xml, composition.excipiens) } if composition.excipiens
                     xml.LABEL composition.label if composition.label
                     xml.LABEL_DESCRIPTION composition.label_description if composition.label_description
                     xml.CORRESP composition.corresp if composition.corresp
                     if composition.substances and composition.substances.size > 0
-                      xml.SUBSTANCES {
-                          composition.substances.each { |substance| xml.SUBSTANCE { emit_substance(xml, substance, true) }}
-                      }
+                      xml.SUBSTANCES do
+                        composition.substances.each { |substance| xml.SUBSTANCE { emit_substance(xml, substance, true) }}
+                      end
                     end
-                  }
-                }
-              }
-            } if info and info.compositions
+                  end
+                end
+              end
+            end if info and info.compositions
           end
-        }
+        end
       end
+
       csv_name = File.join(WorkDir, 'oddb_calc.csv')
       CSV.open(csv_name, "w+", :col_sep => ';') do |csv|
-        csv << ['gtin'] + items.values.first.headers
-        items.each do |key, value|
+        csv << ['gtin'] + @calc_items.values.first.headers
+        @calc_items.each do |key, value|
           if value and value.to_array
             csv <<  [key] + value.to_array
           else
@@ -764,67 +801,67 @@ module Oddb2xml
       end
       Oddb2xml.add_hash(_builder.to_xml)
     end
+
     def build_article
       prepare_limitations
       prepare_articles
       idx = 0
       nbr_records = 0
-      @preparations_only = []
       Oddb2xml.log "build_article #{idx} of #{@articles.size} articles"
       _builder = Nokogiri::XML::Builder.new(:encoding => 'utf-8') do |xml|
         xml.doc.tag_suffix = @tag_suffix
         datetime = Time.new.strftime('%FT%T%z')
-        eans_from_refdata = @articles.collect{|refdata|  refdata[:ean] }
+        eans_from_refdata = @articles.collect{|refdata|  refdata[:ean13] }
         eans_from_preparations = @items.keys
         missing_eans = []
         eans_from_preparations.each do |ean|
           next if ean.to_i == 0
-          unless eans_from_refdata.index(ean)
-            @preparations_only << ean
-            missing_eans << ean
+          unless @articles.collect {|x| x[:ean13] }.index(ean)
             item = @items[ean].clone
-            next if defined?(RSpec) && !item[:pharmacode]
-            item[:ean] = ean
+            item[:pharmacode] ||= '123456' if defined?(RSpec)
+            item[:ean13] = ean
             item[:_type] = :preparations_xml
             item[:desc_de] = item[:name_de] + ' ' + item[:desc_de]
             item[:desc_fr] = item[:name_fr] + ' ' + item[:desc_fr]
             @articles << item
           end
+          unless eans_from_refdata.index(ean)
+            missing_eans << ean
+          end
         end
         xml.ARTICLE(XML_OPTIONS) {
-        @articles.sort! { |a,b| a[:ean] <=> b[:ean] }
+        @articles.sort! { |a,b| a[:ean13] <=> b[:ean13] }
         @articles.each do |obj|
           idx += 1
           Oddb2xml.log "build_article #{idx} of #{@articles.size} articles" if idx % 500 == 0
-            item = @items[obj[:ean]]
-            pac,no8 = nil,obj[:ean].to_s[4..11] # BAG-XML(SL/LS)
-              pack_info = nil
-            pack_info = @packs[no8.intern] if no8 # info from Packungen.xlsx from swissmedic_info
+            item = @items[obj[:ean13]]
+            pac,no8 = nil,obj[:ean13].to_s[4..11] # BAG-XML(SL/LS)
+            pack_info = nil
+            pack_info = @packs[no8] if no8 # info from Packungen.xlsx from swissmedic_info
             ppac = nil                        # Packungen
-            ean = obj[:ean]
+            ean = obj[:ean13]
             next if pack_info and /Tierarzneimittel/.match(pack_info[:list_code])
             next if obj[:desc_de] and /ad us vet/i.match(obj[:desc_de])
-            next if obj[:desc_de] and obj[:desc_de].length < 3
-            next if obj[:desc_fr] and obj[:desc_fr].length < 3
             pharma_code = obj[:pharmacode]
-            ean = 0 if sprintf('%013d', ean).match(/^000000/)
+            # ean = 0 if sprintf('%013d', ean).match(/^000000/)
             if obj[:seq]
               pac = obj[:seq][:packages][obj[:pharmacode]]
               pac = obj[:seq][:packages][ean] unless pac
-            elsif ean > 0
+            else
               pac = @items[ean][:packages][ean] if @items and ean and @items[ean] and @items[ean][:packages]
             end
             if no8
               ppac = ((_ppac = pack_info and !_ppac[:is_tier]) ? _ppac : nil)
             end
-            info_zur_rose = nil
+            zur_rose = nil
             if !@infos_zur_rose.empty? && ean && @infos_zur_rose[ean]
-              info_zur_rose = @infos_zur_rose[ean] # zurrose
+              zur_rose = @infos_zur_rose[ean] # zurrose
             end
             xml.ART('DT' => obj[:last_change] ? obj[:last_change] : '') do
               nbr_records += 1
               xml.REF_DATA (obj[:refdata] || @migel[pharma_code]) ? '1' : '0'
-              xml.PHAR  sprintf('%07d', obj[:pharmacode]) if obj[:pharmacode]
+              # xml.PHAR  sprintf('%07d', obj[:pharmacode]) if obj[:pharmacode]
+              xml.PHAR  obj[:pharmacode] if obj[:pharmacode]
               #xml.GRPCD
               #xml.CDS01
               #xml.CDS02
@@ -845,12 +882,10 @@ module Oddb2xml
               #xml.HOSPCD
               #xml.CLINCD
               #xml.ARTTYP
-              if info_zur_rose
-                xml.VAT info_zur_rose[:vat]
+              if zur_rose
+                xml.VAT zur_rose[:vat]
               end
-
-              nincd = detect_nincd(obj)
-              (nincd and nincd == 13) ? xml.SALECD('A') : xml.SALECD( (info_zur_rose && info_zur_rose[:cmut] != '3') ? 'A' : 'I') # XML_OPTIONS
+              emit_salecd(xml, ean, obj)
               if pac and pac[:limitation_points]
                 #xml.INSLIM
                 xml.LIMPTS pac[:limitation_points] unless pac[:limitation_points].empty?
@@ -865,6 +900,9 @@ module Oddb2xml
                 xml.BG(flag ? 'Y' : 'N')
               end
               #xml.EXP
+              if item and item[:substances] and substance = item[:substances].first
+                xml.QTY   "#{substance[:quantity]}#{substance[:unit] ? ' ' + substance[:unit] : ''}"
+              end if false # TODO: get qty/unit from refdata name
               xml.DSCRD obj[:desc_de]            if obj[:desc_de] and not obj[:desc_de].empty?
               xml.DSCRF obj[:desc_fr]            if obj[:desc_fr] and not obj[:desc_fr].empty?
               xml.DSCRF obj[:desc_de]            if !obj[:desc_fr] or obj[:desc_fr].empty?
@@ -922,7 +960,7 @@ module Oddb2xml
               }
               xml.ARTBAR {
                 xml.CDTYP  'E13'
-                xml.BC     /^9999|^0000|^0$/.match(ean.to_s) ? 0 : sprintf('%013d', ean)
+                xml.BC     ean #  /^9999|^0000|^0$/.match(ean.to_s) ? 0 : sprintf('%013d', ean)
                 xml.BCSTAT 'A' # P is alternative
                 #xml.PHAR2
               } if ean
@@ -941,21 +979,22 @@ module Oddb2xml
                   }
                 end
               end
-              if info_zur_rose
-                price = info_zur_rose[:price]
+              if zur_rose
+                price = zur_rose[:price]
                 xml.ARTPRI {
                   xml.PTYP  "ZURROSE"
                   xml.PRICE price
                 }
                 xml.ARTPRI {
                   xml.PTYP  "ZURROSEPUB"
-                  xml.PRICE info_zur_rose[:pub_price]
+                  xml.PRICE zur_rose[:pub_price]
                 }
                 xml.ARTPRI {
                   xml.PTYP  "RESELLERPUB"
                   xml.PRICE (price.to_f*(1 + (@options[:percent].to_f/100))).round_by(0.05).round(2)
                 } if @options[:percent] != nil
               end
+              nincd = detect_nincd(obj)
               if nincd
                 xml.ARTINS {
                   xml.NINCD nincd
@@ -971,7 +1010,7 @@ module Oddb2xml
           }
         }
       end
-      Oddb2xml.log "build_article. Done #{idx} of #{@articles.size} articles " + ( @preparations_only.size > 0 ? ('. Only in preparations.xml '+ @preparations_only.join(' ')) : '')
+      Oddb2xml.log "build_article. Done #{idx} of #{@articles.size} articles"
       Oddb2xml.add_hash(_builder.to_xml)
     end
     def build_fi
@@ -1121,19 +1160,18 @@ module Oddb2xml
       Oddb2xml.add_hash(_builder.to_xml)
     end
     def detect_nincd(de_idx)
-      if @lppvs[de_idx[:ean].to_s] # LPPV
+      if @lppvs[de_idx[:ean13].to_s] # LPPV
         20
       elsif @items[de_idx[:pharmacode]] # BAG-XML (SL/LS)
         10
       elsif (de_idx[:migel] or # MiGel (xls)
-             de_idx[:_type] == :preparations_xml or
              de_idx[:_type] == :nonpharma) # MiGel (swissindex)
         13
       else
         # fallback via EAN
-        bag_entry_via_ean = @items.values.select do |i|
-          next unless i[:packages]
-          i[:packages].values.select {|_pac| _pac[:ean].to_s == de_idx[:ean].to_s }.length != 0
+        bag_entry_via_ean = @items.values.select do |item|
+          next unless item[:packages]
+          item[:packages].values.select {|_pac| _pac[:ean13].to_s.eql?(de_idx[:ean13].to_s) }.length != 0
         end
         if bag_entry_via_ean.length > 0
           10
@@ -1191,12 +1229,12 @@ module Oddb2xml
       prepare_articles
       rows = []
       @articles.each do |obj|
-          ean = obj[:ean]
+          ean = obj[:ean13]
           next if ((ean.to_s.length != 13) and !ean14)
           next if obj[:type] == :nonpharma
           row = ''
           pack_info = nil
-          if (x = @packs.find{|k,v| v[:ean].to_i == ean})
+          if (x = @packs.find{|k,v| v[:ean13].eql?(ean)})
             pack_info = x[1]
           end
           # Oddb2tdat.parse
@@ -1209,16 +1247,16 @@ module Oddb2xml
           end
             # :swissmedic_numbers
           if pac
-            no8 = pac[:swissmedic_number8].intern
+            no8 = pac[:swissmedic_number8]
           end
           if pac and pac[:prices] == nil and no8
             ppac = ((ppac = pack_info and ppac[:is_tier]) ? ppac : nil)
             pac = ppac if ppac
           end
           row << "%#{DAT_LEN[:RECA]}s"  % '11'
-          info_zur_rose = @infos_zur_rose[ean] # zurrose
-          if info_zur_rose && info_zur_rose[:cmut]
-            row << info_zur_rose[:cmut]
+          zur_rose = @infos_zur_rose[ean] # zurrose
+          if zur_rose && zur_rose[:cmut]
+            row << zur_rose[:cmut]
           else
             row << '1'
           end
@@ -1285,7 +1323,7 @@ module Oddb2xml
       rows = []
       @articles.each do |obj|
           row = ''
-          next if ((obj[:ean].to_s.length != 13) and !ean14)
+          next if ((obj[:ean13].to_s.length != 13) and !ean14)
           # Oddb2tdat.parse_migel
           row << "%#{DAT_LEN[:RECA]}s"  % '11'
           row << "%#{DAT_LEN[:CMUT]}s"  % if (phar = obj[:pharmacode] and phar.size > 3)
@@ -1306,11 +1344,324 @@ module Oddb2xml
           row << "%#{DAT_LEN[:CBGG]}s"  % '0'
           row << "%#{DAT_LEN[:CIKS]}s"  % ' ' # no category
           row << "%0#{DAT_LEN[:ITHE]}d" %  0
-          row << obj[:ean].to_s.rjust(DAT_LEN[:CEAN], '0')
+          row << obj[:ean13].to_s.rjust(DAT_LEN[:CEAN], '0')
           row << "%#{DAT_LEN[:CMWS]}s"  % '1' # nonpharma
           rows << row
         end
       rows.join("\n")
     end
+    def emit_salecd(xml, ean13, obj)
+      zur_rose = nil
+      if !@infos_zur_rose.empty? && ean13 && @infos_zur_rose[ean13]
+        zur_rose = @infos_zur_rose[ean13] # zurrose
+      end
+      nincd = detect_nincd(obj)
+      status = (nincd && nincd == 13) ?  'A' : (zur_rose && zur_rose[:cmut] != '3') ? 'A' : 'I'
+      xml.SALECD(status) { xml.comment( "expiry_date #{obj[:expiry_date]}") if obj[:expiry_date] }
+    end
+
+    def build_artikelstamm
+      @@emitted_v5_gtins = []
+      @csv_file = CSV.open(File.join(WorkDir, "Elexis_Artikelstamm_v5.csv"), "w+")
+      @csv_file << ['gtin', 'price', 'galenic_form', 'pkg_size', 'pexf', 'ppub', 'iksnr', 'atc_code', 'active_substance', 'original', 'it-code', 'sl-liste']
+      @csv_file.sync = true
+      variant = "build_artikelstamm"
+      # @infos_zur_rose.delete_if { |key, val| val[:cmut].eql?('3') } # collect only active zur rose item
+      # No. Marco did not filter it, eg. 8804121 in rtikelstamm_oddb2xml_051217_v5.xm
+      def check_name(obj, lang = :de)
+        ean = obj[:ean13]
+        refdata = @refdata[ean]
+        if lang == :de
+          name = (refdata && refdata[:desc_de]) ? refdata[:desc_de] : obj[:sequence_name]
+        elsif lang == :fr
+          name = (refdata && refdata[:desc_fr]) ? refdata[:desc_fr] : obj[:sequence_name]
+        else
+          return '--missing--'
+        end
+        return '--missing--' if !name || name.empty? || name.length < 3
+        name
+      end
+      def override(xml, id, field, default_value)
+        has_overrides =  /\d{13}/.match(id.to_s) ? @@article_overrides[id.to_i] : @@product_overrides[id.to_i]
+        unless (has_overrides && has_overrides[field.to_s])
+          cmd = "xml.#{field} \"#{default_value.to_s.gsub('"','')}\""
+        else
+          new_value = has_overrides[field.to_s]
+          if new_value.to_s.eql?(default_value.to_s)
+            xml.comment('obsolete override')
+            cmd = "xml.#{field} \"#{new_value}\""
+          else
+            xml.comment("override #{default_value.to_s} with")
+            cmd ="xml.#{field} \"#{new_value}\""
+          end
+        end
+        eval cmd if default_value
+      end
+      def emit_items(xml)
+        nr_items = 0
+        gtins_to_article = {}
+        @articles.each {|article| gtins_to_article[article[:ean13]] = article }
+        gtins = gtins_to_article.keys + @infos_zur_rose.keys + @packs.values.collect{|x| x[:ean13]}
+        gtins = (gtins-@@gtin2ignore)
+        gtins.sort!.uniq!
+        @nr_items = gtins.size
+        gtins.each do |ean13|
+          pac,no8 = nil,ean13.to_s[4..11] # BAG-XML(SL/LS)
+          next if ean13 == 0
+          obj = gtins_to_article[ean13] || @infos_zur_rose[ean13]
+          if obj
+            obj = @packs[no8].merge(obj) if @packs[no8]
+          else
+            obj = @packs[no8] # obj not yet in refdata. Use data from swissmedic_package.xlsx
+          end
+          nr_items += 1
+          Oddb2xml.log "build_article #{nr_items} of #{gtins.size} articles" if nr_items % 5000 == 0
+          item = @items[ean13]
+          pack_info = nil
+          pack_info = @packs[no8] if no8 && /#{ean13}/.match(@packs[no8].to_s) # info from Packungen.xlsx from swissmedic_info
+          next if pack_info && /Tierarzneimittel/.match(pack_info[:list_code])
+          next if obj[:desc_de] && /ad us vet/i.match(obj[:desc_de])
+          sequence    = obj[:seq]
+          unless sequence
+            if  @packs[no8] && /#{ean13}/.match(@packs[no8].to_s)
+              sequence = {:packages =>{ean13 => @packs[no8]}}
+              obj[:seq] = sequence.clone
+            end
+          end
+          if no8
+            ppac = ((_ppac = pack_info and !_ppac[:is_tier]) ? _ppac : nil)
+          end
+          if sequence
+            unless obj[:seq][:packages].keys.index(ean13)
+              # puts "unable to find  #{ean13} in #{obj[:seq][:packages].keys}"
+              next
+            end
+            sequence[:packages].each do |gtin, package|
+              pkg_gtin = package[:ean13].clone
+              pharma_code = @refdata[pkg_gtin]
+              if @refdata[pkg_gtin] && @refdata[pkg_gtin][:pharmacode]
+                pharma_code = @refdata[pkg_gtin][:pharmacode]
+              else
+                pharma_code = obj[:pharmacode]
+              end
+# 
+              info = @calc_items[pkg_gtin]
+              if @@emitted_v5_gtins.index(pkg_gtin)
+                next
+              else
+                @@emitted_v5_gtins << pkg_gtin.clone
+              end
+              options = {'PHARMATYPE' => 'P'}
+              xml.ITEM(options) do
+                name = (@refdata[pkg_gtin] ? @refdata[pkg_gtin][:desc_de] : nil) || obj[:desc_de] || obj[:sequence_name]
+                xml.GTIN pkg_gtin.to_s.rjust(13, '0')
+                override(xml, pkg_gtin, :PHAR, pharma_code)
+                xml.SALECD('A')
+                # maxLength for DSCR is 50 for Artikelstamm v3
+                xml.DSCR(name) # for description for zur_rose
+                xml.DSCRF(obj[:desc_fr] || '--missing--')
+                xml.COMP  do # Manufacturer
+                  xml.NAME  obj[:company_name]
+                  xml.GLN   obj[:company_ean]
+                end
+                pexf = ppub = nil
+                if package[:prices]
+                  pexf ||= package[:prices][:exf_price][:price]
+                  ppub ||= package[:prices][:pub_price][:price]
+                elsif @items[ean13] &&  @items[ean13][:packages] && @items[ean13][:packages][ean13] && (bag_prices = @items[ean13][:packages][ean13][:prices])
+                  pexf ||= bag_prices[:exf_price][:price]
+                  ppub ||= bag_prices[:pub_price][:price]
+                else
+                  pexf ||= obj[:price]
+                  ppub ||= obj[:pub_price]
+                end
+                ppub = nil if ppub && ppub.size == 0
+                pexf = nil if pexf && pexf.size == 0
+                xml.PEXF pexf if pexf
+                xml.PPUB ppub if ppub
+                measure = ''
+                if info
+                  # MEASSURE Measurement Unit,e.g. Pills or milliliters
+                  #             <DSCR>HIRUDOID Creme 3 mg/g 40 g</DSCR>
+                  xml.PKG_SIZE info.pkg_size.to_i if info.pkg_size
+                  if info.measure
+                    measure = info.measure
+                  elsif info.pkg_size && info.unit
+                    measure = info.pkg_size + ' ' + info.unit
+                  elsif info.pkg_size
+                    measure = info.pkg_size
+                  end
+                  xml.MEASURE   measure
+                  xml.MEASUREF  measure
+                  # Die Darreichungsform dieses Items. zB Tablette(n) oder Spritze(n)
+                  xml.DOSAGE_FORM  info.galenic_form.descriptions['de'] if info.galenic_form.descriptions['de']
+                  xml.DOSAGE_FORMF info.galenic_form.descriptions['fr'] if info.galenic_form.descriptions['fr']
+                end
+                xml.SL_ENTRY          'true' if  @items[pkg_gtin]
+                xml.IKSCAT            package[:swissmedic_category] if package[:swissmedic_category] && package[:swissmedic_category].length > 0
+                xml.GENERIC_TYPE sequence[:org_gen_code] if sequence[:org_gen_code] && !sequence[:org_gen_code].empty?
+                xml.LPPV              'true' if @lppvs[pkg_gtin.to_s] # detect_nincd
+                case item[:deductible]
+                when 'Y'; xml.DEDUCTIBLE 20; # 20%
+                when 'N'; xml.DEDUCTIBLE 10; # 10%
+                else #     xml.DEDUCTIBLE '' # k.A.
+                end if item && item[:deductible]
+                xml.PRODNO            ppac[:prodno] if ppac && ppac[:prodno] # pkg_gtin.to_s[4..11]
+                csv = []
+                @csv_file << [pkg_gtin, name, package[:unit], measure,
+                              pexf ? pexf : '',
+                              ppub ? ppub : '',
+                              package[:prodno],  package[:atc_code], package[:substance_swissmedic],
+                              sequence[:org_gen_code],  package[:ith_swissmedic],
+                              @items[pkg_gtin] ? 'SL' : '',
+                              ]
+              end
+            end
+          else # non pharma
+             @csv_file << [ ean13, (obj[:desc_de] || obj[:description]), '', '',
+                          obj[:price], obj[:pub_price], '', '', '', '', '', '' ]
+            if @@emitted_v5_gtins.index(ean13)
+              next
+            else
+              @@emitted_v5_gtins << ean13.clone
+            end
+            # Set the pharmatype to 'Y' for outdated products, which are no longer found
+            # in refdata/packungen
+            patched_pharma_type = (/^7680/.match(ean13.to_s.rjust(13, '0')) ? 'P': 'N' )
+            xml.ITEM({'PHARMATYPE' => patched_pharma_type }) do
+              xml.GTIN ean13.to_s.rjust(13, '0')
+              xml.PHAR obj[:pharmacode]
+              emit_salecd(xml, ean13, obj)
+              xml.DSCR(obj[:desc_de] || obj[:description]) # for description for zur_rose
+              xml.DSCRF(obj[:desc_fr] || '--missing--')
+              xml.COMP  do
+                xml.GLN obj[:company_ean]
+              end if obj[:company_ean] && !obj[:company_ean].empty?
+              xml.PEXF obj[:price]      if obj[:price] && !obj[:price].empty?
+              xml.PPUB obj[:pub_price]  if obj[:pub_price] && !obj[:pub_price].empty?
+            end
+          end
+        end
+        @csv_file.close if @csv_file && !@csv_file.closed?
+        nr_items
+      end
+      unless @prepared
+        prepare_limitations
+        prepare_articles
+        prepare_products
+        add_missing_products_from_swissmedic(true)
+        prepare_calc_items(suppress_composition_parsing: true)
+        @prepared = true
+        @old_rose_size = @infos_zur_rose.size
+        @infos_zur_rose.each do |ean13, value|
+          if /^7680/.match(ean13.to_s) && @options[:artikelstamm]
+            @infos_zur_rose.delete(ean13)
+          end
+        end if false
+        @new_rose_size = @infos_zur_rose.size
+      end
+      nr_products = 0
+      nr_articles = 0
+      @nr_articles = 0
+      used_limitations = []
+      Oddb2xml.log "#{variant}: Deleted #{@old_rose_size - @new_rose_size} entries from ZurRose where GTIN start with 7680 (Swissmedic)"
+      # Oddb2xml.log "#{variant} #{nr_products} of #{@products.size} articles and ignore #{@@gtin2ignore.size} GTINS specified via #{@@ignore_file}"
+      _builder = Nokogiri::XML::Builder.new(:encoding => 'utf-8') do |xml|
+        xml.doc.tag_suffix = @tag_suffix
+        datetime = Time.new.strftime('%FT%T%z')
+        elexis_strftime_format = "%FT%T\.%L%:z"
+        @@cumul_ver = (Date.today.year-2013)*12+Date.today.month
+        options_xml =  {
+          'xmlns'  => 'http://elexis.ch/Elexis_Artikelstamm_v5',
+          'CREATION_DATETIME' => Time.new.strftime(elexis_strftime_format),
+          'BUILD_DATETIME'    => Time.new.strftime(elexis_strftime_format),
+          'DATA_SOURCE'       => 'oddb2xml'
+        }
+        emitted_prodno = []
+        xml.comment("Produced by #{__FILE__} version #{VERSION} at #{Time.now}")
+        xml.ARTIKELSTAMM(options_xml) do
+          xml.PRODUCTS do
+            products = @products.sort_by { |ean13, obj| ean13 }
+            products.each do |product|
+              ean13 = product[0]
+              obj = product[1]
+              next if /^Q/i.match(obj[:atc])
+              sequence = obj[:seq]
+              ean = obj[:ean13]
+              next unless check_name(obj, :de)
+              ppac = ((_ppac = @packs[ean.to_s[4..11]] and !_ppac[:is_tier]) ? _ppac : {})
+              unless ppac
+                ppac = @packs.find{|pac| pac.ean == ean }.first
+              end
+              prodno = ppac[:prodno] if ppac[:prodno] and !ppac[:prodno].empty?
+              next unless prodno
+              next unless sequence && sequence[:name_de]
+              next if emitted_prodno.index(prodno)
+              emitted_prodno << prodno
+              nr_products += 1
+              xml.PRODUCT do
+                xml.PRODNO prodno
+                if sequence
+                  xml.SALECD('A') # these products are always active!
+                  override(xml, prodno, :DSCR,  (sequence[:name_de] + ' ' + sequence[:desc_de]).strip)
+                  override(xml, prodno, :DSCRF, (sequence[:name_fr] + ' ' + sequence[:desc_fr]).strip)
+                end
+                xml.ATC sequence[:atc_code] if sequence[:atc_code] && !sequence[:atc_code].empty?
+                if sequence[:packages] && (first_package = sequence[:packages].values.first) &&
+                   (first_limitation = first_package[:limitations].first)
+                  lim_code = first_limitation[:code]
+                  used_limitations << lim_code unless used_limitations.index(lim_code)
+                  xml.LIMNAMEBAG lim_code
+                end
+                if sequence && sequence[:substances]
+                  value = nil
+                  if sequence[:substances].size > 1
+                    value = 'Verschiedene Kombinationen'
+                  elsif sequence[:substances].first
+                    value = sequence[:substances].first[:name]
+                  else
+                    value = obj[:sub]
+                  end
+                  override(xml, prodno, :SUBSTANCE, value) if value
+                end
+              end
+            end
+          end
+          emitted_lim_code = []
+          xml.LIMITATIONS do
+            @limitations.sort! { |left, right| left[:code] <=> right[:code] }
+            @limitations.each do |lim|
+              next unless used_limitations.index(lim[:code])
+              next if emitted_lim_code.index(lim[:code])
+              emitted_lim_code << lim[:code]
+              xml.LIMITATION do
+                xml.LIMNAMEBAG lim[:code] # original LIMCD
+                xml.DSCR       lim[:desc_de]
+                xml.DSCRF      lim[:desc_fr]
+                xml.LIMITATION_PTS  (lim[:value].to_s.length > 1 ? lim[:value] : 1)
+              end
+            end
+          end
+          xml.ITEMS do
+            nr_articles = emit_items(xml)
+          end
+        end
+      end
+      Oddb2xml.log "#{variant}. Done #{nr_products} of #{@products.size} products, #{@limitations.size} limitations and #{nr_articles}/#{@nr_articles} articles. @@emitted_v5_gtins #{@@emitted_v5_gtins.size}"
+      # we don't add a SHA256 hash for each element in the article
+      # Oddb2xml.add_hash(_builder.to_xml)
+      # doc = REXML::Document.new( source, { :raw => :all })
+      # doc.write( $stdout, 0 )
+      lines = []
+      lines << "  - #{sprintf('%5d', @products.size)} products"
+      lines << "  - #{sprintf('%5d', @limitations.size)} limitations"
+      lines << "  - #{sprintf('%5d', @nr_articles)} articles"
+      lines << "  - #{sprintf('%5d', @@gtin2ignore.size)} ignored GTINS"
+      @@articlestamm_v5_info_lines = lines
+      _builder.to_xml({:indent => 4, :encoding => 'UTF-8'})
+    end
+    def self.articlestamm_v5_info_lines
+      @@articlestamm_v5_info_lines
+    end
   end
 end