ramaze.ch.oddb.org 1.0.0

data/lib/oddb/drugs/unit.rb

@@ -0,0 +1,12 @@
+#!/usr/bin/env ruby
+# Drugs::Unit -- de.oddb.org -- 14.11.2006 -- hwyss@ywesee.com
+
+require 'oddb/model'
+
+module ODDB
+  module Drugs
+    class Unit < Model
+      multilingual :name
+    end
+  end
+end

data/lib/oddb/export.rb

@@ -0,0 +1,4 @@
+#!/usr/bin/env ruby
+# Export -- de.oddb.org -- 10.10.2007 -- hwyss@ywesee.com
+
+require 'oddb/export/server'

data/lib/oddb/export/csv.rb

@@ -0,0 +1,89 @@
+#!/usr/bin/env ruby
+# Export::Csv -- de.oddb.org -- 22.07.2008 -- hwyss@ywesee.com
+
+require 'csv'
+
+module ODDB
+  module Export
+    module Csv
+class Packages
+  def self.export(packages, components, language = :de)
+    atcs = partition packages
+    CSV.generate { |csv|
+      atcs.each { |list|
+        csv << atc_line(list.atc, language)
+        list.each { |pac|
+          csv << package_line(pac, components, language)
+        }
+      }
+    }
+  end
+  def self.atc_line(atc, language)
+    if atc
+      result = [atc.code]
+      if name = atc.name
+        result.push name.send(language)
+      end
+      result
+    else
+      ['ATC-Code nicht bekannt']
+    end
+  end
+  def self.active_agents(package, lang)
+    package.active_agents.join('|')
+  end
+  def self.ddd_prices(package, language)
+    ddds = []
+    package.ddds.each_with_index { |ddd, idx|
+      ddds.push sprintf("%s (%s)", package.dose_price(ddd.dose), 
+                        ddd.administration)
+    }
+    ddds.join '|'
+  end
+  def self.package_line(package, components, language)
+    components.collect { |key|
+      value = if respond_to?(key)
+                self.send key, package, language
+              elsif package.respond_to?(key)
+                package.send key
+              end
+      case value
+      when Util::Multilingual
+        value.send language
+      else
+        value
+      end
+    }
+  end
+  def self.partition(packages)
+    atcs = {}
+    packages.each { |package|
+      code = (atc = package.atc) ? atc.code : 'X'
+      (atcs[code] ||= Util::AnnotatedList.new(:atc => atc)).push(package)
+    }
+    atcs.sort.collect { |code, packages|
+      packages
+    }
+  end
+  def self.price_exfactory(package, lang)
+    package.price(:exfactory)
+  end
+  def self.price_festbetrag(package, lang)
+    package.price(:festbetrag)
+  end
+  def self.price_public(package, lang)
+    package.price(:public)
+  end
+  def self.product(package, language)
+    (product = package.product) && product.name
+  end
+  def self.pzn(package, lang)
+    package.code(:cid)
+  end
+  def self.size(package, language)
+    package.parts.collect { |part| part.to_s(language) }.join('+')
+  end
+end
+    end
+  end
+end

data/lib/oddb/export/l10n_sessions.rb

@@ -0,0 +1,30 @@
+#!/usr/bin/env ruby
+# Export::SessionStub -- de.oddb.org -- 11.12.2007 -- hwyss@ywesee.com
+
+require 'oddb/html/util/lookandfeel'
+require 'oddb/html/util/session'
+
+module ODDB
+  module Export
+    class SessionStub
+      attr_reader :flavor, :http_protocol, :default_language, :server_name
+      attr_accessor :language, :lookandfeel
+      def initialize
+        @flavor = Html::Util::Session::DEFAULT_FLAVOR
+        @http_protocol = 'http'
+        @default_language = 'de'
+        @server_name = ODDB.config.server_name
+      end
+      def method_missing(*args)
+      end
+    end
+    def Export.l10n_sessions(&block)
+      stub = SessionStub.new
+      Html::Util::Lookandfeel::DICTIONARIES.each_key { |lang|
+        stub.language = lang
+        stub.lookandfeel = Html::Util::Lookandfeel.new(stub)
+        block.call(stub)
+      }
+    end
+  end
+end

data/lib/oddb/export/rss.rb

@@ -0,0 +1,44 @@
+#!/usr/bin/env ruby
+# Export::Rss -- de.oddb.org -- 10.12.2007 -- hwyss@ywesee.com
+
+require 'oddb/util/feedback'
+require 'oddb/export/l10n_sessions'
+
+module ODDB
+  module Export
+    module Rss
+class Exporter
+  def initialize
+    @rss_dir = File.join(ODDB.config.var, 'rss')
+    @name = self.class.name[/[^:]+$/]
+    @filename = @name.downcase + ".rss"
+  end
+  def export
+    items = sorted_items
+    return if(items.empty?)
+    Export.l10n_sessions { |session|
+      dir = File.join(@rss_dir, session.language)
+      FileUtils.mkdir_p(dir)
+      path = File.join(dir, @filename)
+      tmp = File.join(dir, '.' << @filename)
+      File.open(tmp, 'w') { |io|
+        io.puts rss(items, session)
+      }
+      File.rename(tmp, path)
+    }
+  end
+  def rss items, session
+    require "oddb/html/view/rss/#{@name.downcase}"
+    klass = Html::View::Rss.const_get @name
+    view = klass.new(items, session, nil)
+    view.to_html(CGI.new('html4'))
+  end
+end
+class Feedback < Exporter
+  def sorted_items
+    Util::Feedback.newest(:all)
+  end
+end
+    end
+  end
+end

data/lib/oddb/export/server.rb

@@ -0,0 +1,58 @@
+#!/usr/bin/env ruby
+# Export::Server -- de.oddb.org -- 10.10.2007 -- hwyss@ywesee.com
+
+require 'date'
+require 'drb'
+require 'oddb/config'
+require 'oddb/export/xls'
+require 'oddb/export/yaml'
+require 'oddb/util/mail'
+
+module ODDB
+  module Export
+    module Server
+      def Server.remote_export_chde
+        if(uri = ODDB.config.remote_databases.first)
+          remote = DRb::DRbObject.new(nil, uri)
+          safe_export(Export::Xls::ComparisonDeCh) { |exporter|
+            remote.remote_export("chde.xls") { |path|
+              File.open(path, 'w+') { |io| exporter.export(uri, io) }
+            }
+          }
+        end
+      end
+      def Server.remote_export_yaml
+        if(uri = ODDB.config.remote_databases.first)
+          remote = DRb::DRbObject.new(nil, uri)
+          safe_export(Export::Yaml::Drugs) { |exporter|
+            remote.remote_export("de.oddb.yaml") { |path|
+              File.open(path, 'w') { |io| exporter.export(io) }
+            }
+          }
+        end
+      end
+      def Server.run(today = Date.today)
+        on_monthday(1, today) {
+          remote_export_chde
+        }
+      end
+      def Server.on_monthday(day, today = Date.today, &block)
+        if(today.day == day)
+          block.call
+        end
+      end
+      def Server.safe_export(exporter, &block)
+        block.call(exporter.new)
+      rescue StandardError => err
+        subject = sprintf("%s: %s", 
+                          Time.now.strftime('%c'), exporter)
+        lines = [
+          sprintf("%s: %s#export", 
+                  Time.now.strftime('%c'), exporter)
+        ]
+        lines.push(err.class, err.message, *err.backtrace)
+        Util::Mail.notify_admins(subject, lines)
+      end
+    end
+  end
+end

data/lib/oddb/export/xls.rb

@@ -0,0 +1,119 @@
+#!/usr/bin/env ruby
+# encoding: utf-8
+# Export::Xls -- de.oddb.org -- 13.03.2007 -- hwyss@ywesee.com
+
+require 'fileutils'
+require 'spreadsheet/excel'
+require 'oddb/remote/drugs/package'
+require 'oddb/util/comparison'
+
+module ODDB
+  module Export
+    module Xls
+class ComparisonDeCh
+  @@iconv = Iconv.new('latin1//IGNORE//TRANSLIT', 'utf8')
+  def export(drb_uri, io)
+    write_xls(io, collect_comparables(drb_uri))
+  end
+  def adjust_price(price)
+    price * currency_rate * tax_factor
+  end
+  def collect_comparables(drb_uri)
+    data = []
+    DRb::DRbObject.new(nil, drb_uri).remote_each_package { |remote|
+      package = Remote::Drugs::Package.new(drb_uri, remote,
+                                           1.0 / currency_rate, 
+                                           tax_factor)
+      if(package.price(:public) \
+         && (comparable = package.local_comparables.select { |pac|
+            pac.price(:public)
+          }.sort_by { |pac|
+            pac.price(:public)
+          }.first))
+        data.push [comparable, package]
+      end
+      nil # don't return data from the block across drb
+    }
+    data
+  end
+  def collect_cell(local, remote, format = "%s (%s)", &block)
+    lval = block.call(local) rescue StandardError
+    rval = block.call(remote) rescue StandardError
+    lval == rval ? lval : sprintf(format, lval, rval)
+  end
+  def currency_rate
+    @currency_rate ||= Currency.rate('EUR', 'CHF')
+  end
+  def tax_factor
+    1.076 / 1.19
+  end
+  def write_row(worksheet, idx, local, remote)
+    comparison = Util::Comparison.new(local, remote)
+    lexf = local.price(:exfactory)
+    rexf = remote.price(:exfactory)
+    data = [
+      collect_cell(local, remote) { |x| 
+        x.name.de || x.product.name.de },
+      collect_cell(local, remote) { |x|
+        size, _ = x.comparable_size
+        size.to_s
+      },
+      adjust_price(local.price(:public)).to_s,
+      collect_cell(local, remote) { |x| x.company.name.de },
+      local.code(:cid).to_s,
+      remote.code(:ean).to_s,
+      collect_cell(local, remote) { |x| 
+        x.galenic_forms.first.description.de },
+      collect_cell(local, remote) { |x| 
+        x.active_agents.first.dose.to_s },
+      collect_cell(local, remote) { |x| 
+        x.active_agents.first.substance.name.de },
+      remote.atc.code,
+      remote.ikscat,
+      remote.sl_entry ? 'SL' : '',
+      sprintf("%+4.2f", adjust_price(comparison.absolute)),
+      sprintf("%+4.2f%%", comparison.difference),
+      sprintf("%4.2f", comparison.factor),
+      (adjust_price(lexf) if lexf).to_s,
+      (adjust_price(rexf) if rexf).to_s,
+    ]
+    if(lexf && rexf)
+      data.push sprintf("%+4.2f", adjust_price(comparison.absolute_exfactory)),
+        sprintf("%+4.2f%%", comparison.difference_exfactory)
+    end
+    worksheet.write idx, 0, data
+  end
+  def write_xls(io, data)
+    workbook = Spreadsheet::Excel.new(io)
+    worksheet = workbook.add_worksheet('Preisvergleich')
+    fmt_title = Spreadsheet::Format.new(:bold => true)
+    workbook.add_format(fmt_title)
+    worksheet.write 0, 0, [
+      "Name DE (Name CH)",
+      "Pkg Grösse DE (Pkg Grösse CH)",
+      "AVP inkl. Mwst in CHF nach Abzug und Zuschlag",
+      "Hersteller DE (Hersteller CH)",
+      "PZN", "EAN",
+      "Gal Form DE (gal. Form CH)",
+      "Stärke (Schreibweise CH)",
+      "Wirkstoff (Schreibweise CH)",
+      "ATC-Code", "Abgabekategorie CH", "SL Schweiz",
+      "Preisunterschied inkl. Mwst. in CHF",
+      "Preisunterschied in % (normalisiert)",
+      "Packungsäquivalenzfaktor",
+      "FAP DE exkl. MwSt (errechnet)",
+      "FAP CH exkl. MwSt",
+      "Preisunterschied FAP in CHF ",
+      "Preisunterschied FAP in % (normalisiert)",
+    ], fmt_title
+    data.sort_by { |local, remote| 
+      local.name.de || local.product.name.de
+    }.each_with_index { |(local, remote), idx|
+      write_row(worksheet, idx.next, local, remote)
+    }
+    workbook.close
+  end
+end
+    end
+  end
+end

data/lib/oddb/export/yaml.rb

@@ -0,0 +1,123 @@
+#!/usr/bin/env ruby
+# Export::Yaml -- de.oddb.org -- 09.10.2007 -- hwyss@ywesee.com
+
+require 'fixes/yaml'
+require 'oddb/business/company'
+require 'oddb/drugs'
+
+module ODDB
+  module OddbUri
+    YAML_URI = '!de.oddb.org,2007'
+    yaml_as YAML_URI
+		def to_yaml_type
+			"#{YAML_URI}/#{self.class}"
+		end
+    def to_yaml( opts = {} )
+      YAML::quick_emit( self.object_id, opts ) { |out|
+        out.map( taguri ) { |map|
+          to_yaml_map(map)
+        }
+      }
+    end
+    def to_yaml_map(map)
+      if(respond_to?(:oid) && id = oid)
+        map.add("oid", id) 
+      end
+      to_yaml_properties.each { |m|
+        map.add( m[1..-1], instance_variable_get( m ) )
+      }
+    end
+  end
+  module Yaml
+    include OddbUri
+    def to_yaml_properties
+      super - self.class.connections - self.class.connectors
+    end
+    def Yaml.append_features(mod)
+      super
+      mod.module_eval {
+        class << self 
+          def export(*args)
+            define_method(:to_yaml_properties) {
+              super().push(*args).uniq.reject { |name| 
+                instance_variable_get(name).nil? }
+            }
+          end
+        end
+      }
+    end
+  end
+  class Model
+    include Yaml
+  end
+  module Util
+    class Code
+      include OddbUri 
+      def to_yaml_map(map)
+        super
+        map.add('value', value)
+      end
+      def to_yaml_properties
+        super - [:@values]
+      end
+    end
+    class Multilingual
+      include OddbUri
+    end
+  end
+  module Business
+    class Company
+      export :@name
+    end
+  end
+  module Drugs
+    class ActiveAgent
+      export :@substance
+    end
+    class Atc
+      export :@ddds
+    end
+    class Composition
+      export :@active_agents, :@parts
+    end
+    class Dose
+      include OddbUri
+      def to_yaml_properties
+        [ :@val, :@unit ]
+      end
+    end
+    class GalenicForm
+      export :@group
+    end
+    class Package
+      def to_yaml_map(map)
+        super
+        map.add('prices', self.prices.inject({}) { |memo, price|
+          memo.store(price.type, price.to_f)
+          memo 
+        } )
+      end
+      def to_yaml_properties
+        (super - [:@prices]).push(:@parts)
+      end
+    end
+    class Product
+      export :@company, :@sequences
+    end
+    class Sequence
+      export :@atc, :@compositions, :@packages
+    end
+    class Substance
+      export :@group
+    end
+  end
+  module Export
+    module Yaml
+class Drugs
+  def export(io)
+    ODDB::Drugs::Product.all { |product| io.puts product.to_yaml }
+  end
+end
+    end
+  end
+end