de.oddb 2.0.0

data/lib/oddb/drugs/product.rb

@@ -0,0 +1,25 @@
+#!/usr/bin/env ruby
+# Drugs::Product -- de.oddb.org -- 09.08.2006 -- hwyss@ywesee.com
+
+require 'oddb/model'
+
+module ODDB
+  module Drugs
+    class Product < Model
+      belongs_to :company
+      has_many :sequences, on_delete(:cascade), delegates(:substances, :packages)
+      multilingual :name
+      def initialize
+        @sequences = []
+      end
+      def atcs
+        sequences.collect { |sequence| sequence.atc }.compact.uniq
+      end
+      def packages
+        sequences.inject([]) { |memo, seq|
+          memo.concat(seq.packages)
+        }
+      end
+    end
+  end
+end

data/lib/oddb/drugs/sequence.rb

@@ -0,0 +1,68 @@
+#!/usr/bin/env ruby
+# Drugs::Sequence -- de.oddb.org -- 31.08.2006 -- hwyss@ywesee.com
+
+require 'oddb/model'
+
+module ODDB
+  module Drugs
+    class Sequence < Model
+      attr_accessor :marketable, :fachinfo_url, :patinfo_url
+      belongs_to :atc, delegates(:ddds)
+      belongs_to :product, delegates(:company)
+      has_many :compositions, 
+        delegates(:active_agents, :doses, :substances),
+        on_delete(:cascade)
+      has_many :feedbacks, on_delete(:cascade)
+      has_many :packages, on_delete(:cascade), on_save(:cascade)
+      is_coded
+      multilingual :name
+      m10l_document :fachinfo
+      m10l_document :patinfo
+      def cascading_name(language)
+        str = name.send language
+        if str.to_s.empty? && product
+          str = product.name.send language
+        end
+        str
+      end
+      def comparable?(other)
+        other.is_a?(Sequence) && compositions == other.compositions
+      end
+      def comparables
+        atc.sequences.select { |sequence|
+          comparable?(sequence)
+        }
+      end
+      def ddds # ddds depend on the sequence's Route of Administration
+        forms = galenic_forms
+        if(forms.size == 1 && (atc_class = atc) \
+           && (group = forms.first.group) \
+           && (roa = group.administration))
+          atc_class.ddds.select { |ddd| 
+            ddd.administration == roa }
+        else
+          []
+        end
+      end
+      def galenic_forms
+        compositions.collect { |comp| comp.galenic_form }.compact.uniq
+      end
+      def identical?(other)
+        comparable?(other) && other.product == product \
+          && compositions.each_with_index { |comp, idx| 
+          unless(comp.galenic_form.eql?(other.compositions.at(idx).galenic_form))
+            return false
+          end
+        } && true
+      end
+      def include?(substance, dose=nil, unit=nil)
+        compositions.any? { |comp|
+          comp.include?(substance, dose, unit)
+        }
+      end
+      def registration
+        code(:registration, 'EU')
+      end
+    end
+  end
+end

data/lib/oddb/drugs/substance.rb

@@ -0,0 +1,31 @@
+#!/usr/bin/env ruby
+# Drugs::Substance -- de.oddb.org -- 12.09.2006 -- hwyss@ywesee.com
+
+require 'oddb/model'
+
+module ODDB
+  module Drugs
+    class Substance < Model
+      include Comparable
+      belongs_to :group
+      has_many :active_agents, delegates(:packages)
+      is_coded
+      multilingual :name
+      def merge(other)
+        name.merge other.name
+        other.active_agents.dup.each { |agent|
+          agent.substance = self
+          agent.save
+        }
+        other.delete
+        save
+      end
+      def ==(other)
+        super || name == other
+      end
+      def <=>(other)
+        name <=> other.name
+      end
+    end
+  end
+end

data/lib/oddb/drugs/substance_group.rb

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

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,94 @@
+#!/usr/bin/env ruby
+# Export::Csv -- de.oddb.org -- 22.07.2008 -- hwyss@ywesee.com
+
+require 'fastercsv'
+
+module ODDB
+  module Export
+    module Csv
+class Packages
+  def export(packages, components, language = :de, io=nil)
+    atcs = partition packages
+    str = FasterCSV.generate { |csv|
+      atcs.each { |list|
+        csv << atc_line(list.atc, language)
+        list.each { |pac|
+          csv << package_line(pac, components, language)
+        }
+      }
+    }
+    if io
+      io << str
+    else
+      str
+    end
+  end
+  def 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 active_agents(package, lang)
+    package.active_agents.join('|')
+  end
+  def 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 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 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 price_exfactory(package, lang)
+    package.price(:exfactory)
+  end
+  def price_festbetrag(package, lang)
+    package.price(:festbetrag)
+  end
+  def price_public(package, lang)
+    package.price(:public)
+  end
+  def product(package, language)
+    (product = package.product) && product.name
+  end
+  def pzn(package, lang)
+    package.code(:cid)
+  end
+  def 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,137 @@
+#!/usr/bin/env ruby
+# Export::Server -- de.oddb.org -- 10.10.2007 -- hwyss@ywesee.com
+
+require 'date'
+require 'drb'
+require 'oddb/config'
+require File.join('oddb', 'persistence', ODDB.config.persistence, 'export')
+require 'oddb/export/csv'
+require 'oddb/export/xls'
+require 'oddb/export/yaml'
+require 'oddb/util/mail'
+require 'zip/zip'
+
+module ODDB
+  module Export
+    module Server
+      def Server.export_csv
+        pacs = Drugs::Package.all
+        components = [ :pzn, :product, :active_agents, :size, :price_exfactory,
+                       :price_public, :price_festbetrag, :ddd_prices, :company ]
+        safe_export Csv::Packages, 'de.oddb.csv', pacs, components, :de
+      end
+      def Server.export_chde_xls
+        if uri = ODDB.config.remote_databases.first
+          safe_export Export::Xls::ComparisonDeCh, 'chde.xls', uri
+        end
+      end
+      def Server.export_yaml
+        safe_export Export::Yaml::Drugs, 'de.oddb.yaml'
+      end
+      def Server.export_fachinfo_yaml
+        safe_export Export::Yaml::Fachinfos, "fachinfos.de.oddb.yaml"
+      end
+      def Server.export_patinfo_yaml
+        safe_export Export::Yaml::Patinfos, "patinfos.de.oddb.yaml"
+      end
+      def Server.report_download
+        # Note: if the day is in new month from the last week,
+        # it may not include all the log information.
+        subject = sprintf("de.ODDB.org Report - Download-Statistics - %s", 
+                          Time.now.strftime('%m/%Y'))
+        time = Time.now
+        log_dir = File.join(ODDB.config.download_log_dir, time.year.to_s)
+        log_file = File.join(log_dir, time.month.to_s + '.log')
+        begin
+          lines = File.readlines(log_file)
+        rescue StandardError => e
+          lines = [
+             "Nothing to Report.",
+             nil,
+             e.class,
+             e.message
+          ] + e.backtrace
+        end
+        Util::Mail.notify_admins(subject, lines)
+      end
+      def Server.run(today = Date.today)
+        on_monthday(1, today) {
+          export_chde_xls
+        }
+        on_monthday(2, today) do
+          export_info_yaml :fachinfo
+          export_info_yaml :patinfo
+        end
+        on_weekday(0, today) do
+          report_download
+        end
+      end
+      def Server.on_monthday(day, today = Date.today, &block)
+        if(today.day == day)
+          block.call
+        end
+      end
+      def Server.on_weekday(wday, today = Date.today, &block)
+        # 0-6, 0:Sunday
+        if(today.wday == wday)
+          block.call
+        end
+      end
+      def Server.safe_export(exporter_class, name, *args, &block)
+        dir = ODDB.config.export_dir or raise "Please configure 'export_dir'"
+        FileUtils.mkdir_p(dir)
+        Tempfile.open(name, dir) { |fh|
+          exporter = exporter_class.new
+          args.push fh
+          exporter.export *args
+          fh.close
+          newpath = File.join(dir, name)
+          FileUtils.mv(fh.path, newpath)
+          FileUtils.chmod(0644, newpath)
+          compress(dir, name)
+          # This is a temporary solution for a NoMethodError bug
+          # See the bug http://dev.ywesee.com/wiki.php/Masa/20101020-debug-importChdeXls#DebugChde
+          if(exporter_class ==  Export::Xls::ComparisonDeCh)
+            unless(exporter.error_data.empty?)
+              message = "\nThe chde.xls file was generated successfully.\n\n"
+              message += "The following data was not able to be compared due to a NoMethodError:\n"
+              backtrace_info = "The original backtrace information:\n" + exporter.backtrace_info.join("\n").to_s + "\n"
+              raise NoMethodError, message + exporter.error_data.join("\n").to_s + "\n\n" + backtrace_info
+            end
+          end
+        }
+        name
+      rescue StandardError => err
+        subject = sprintf("%s: %s", 
+                          Time.now.strftime('%c'), exporter_class)
+        lines = [
+          sprintf("%s: %s#export", 
+                  Time.now.strftime('%c'), exporter_class)
+        ]
+        lines.push(err.class, err.message, *err.backtrace)
+        Util::Mail.notify_admins(subject, lines)
+      end
+      def Server.compress(dir, name)
+        FileUtils.mkdir_p(dir)
+        Dir.chdir(dir)
+        tmp_name = name + '.tmp'
+        gz_name = tmp_name + '.gz'
+        zip_name = tmp_name + '.zip'
+        gzwriter = 	Zlib::GzipWriter.open(gz_name)
+        zipwriter = Zip::ZipOutputStream.open(zip_name)
+        zipwriter.put_next_entry(name)
+        File.open(name, "r") { |fh|
+          fh.each { |line|
+            gzwriter << line
+            zipwriter.puts(line)
+          }
+        }
+        gzwriter.close if(gzwriter)
+        zipwriter.close if(zipwriter)
+        FileUtils.mv(gz_name, name + '.gz')
+        FileUtils.mv(zip_name, name + '.zip')
+        name
+      end
+    end
+  end
+end