ramaze.ch.oddb.org 1.0.0

data/lib/oddb/regulatory/authority.rb

@@ -0,0 +1,14 @@
+#!/usr/bin/env ruby
+# Regulatory::Authority -- ch.oddb.org -- 23.07.2009 -- hwyss@ywesee.com
+
+require 'oddb/model'
+
+module ODDB
+  module Regulatory
+    class Authority < Model
+      attr_accessor :url
+      multilingual :name
+      has_many :registrations
+    end
+  end
+end

data/lib/oddb/regulatory/registration.rb

@@ -0,0 +1,15 @@
+#!/usr/bin/env ruby
+# Regulatory::Registration -- ch.oddb.org -- 23.07.2009 -- hwyss@ywesee.com
+
+require 'oddb/model'
+
+module ODDB
+  module Regulatory
+    class Registration < Model
+      attr_accessor :code, :registration_date, :revision_date, :expiration_date,
+                    :deactivation_date
+      belongs_to :authority
+      has_many :sequences
+    end
+  end
+end

data/lib/oddb/remote/business/company.rb

@@ -0,0 +1,23 @@
+#!/usr/bin/env ruby
+# Remote::Business::Company -- de.oddb.org -- 16.02.2007 -- hwyss@ywesee.com
+
+require 'oddb/remote/object'
+require 'oddb/remote/drugs/product'
+require 'oddb/util/multilingual'
+
+module ODDB
+  module Remote
+    module Business
+class Company < Remote::Object
+  def name
+    @name ||= ODDB::Util::Multilingual.new(:de => @remote.name)
+  end
+  def products
+    @products ||= @remote.registrations.collect do |reg|
+      Remote::Drugs::Product.new(@source, reg)
+    end
+  end
+end
+    end
+  end
+end

data/lib/oddb/remote/drugs/active_agent.rb

@@ -0,0 +1,27 @@
+#!/usr/bin/env ruby
+# Remote::Drugs::ActiveAgent -- de.oddb.org -- 16.02.2007 -- hwyss@ywesee.com
+
+require 'oddb/remote/object'
+require 'oddb/remote/drugs/substance'
+
+module ODDB
+  module Remote
+    module Drugs
+class ActiveAgent < Remote::Object
+  def dose
+    @dose ||= @remote.dose
+  end
+  def substance
+    @substance ||= Remote::Drugs::Substance.new(@source, @remote.substance)
+  end
+  def <=>(other)
+    if(dose.nil?)
+      substance <=> other.substance
+    else
+      [substance, dose] <=> [other.substance, other.dose]
+    end
+  end
+end
+    end
+  end
+end

data/lib/oddb/remote/drugs/atc.rb

@@ -0,0 +1,32 @@
+#!/usr/bin/env ruby
+# Remote::Drugs::Atc -- de.oddb.org -- 16.02.2007 -- hwyss@ywesee.com
+
+require 'oddb/remote/object'
+require 'oddb/util/multilingual'
+
+module ODDB
+  module Remote
+    module Drugs
+class Atc < Remote::Object
+  delegate :code, :parent_code, :descriptions, :synonyms, :guidelines,
+           :ddd_guidelines
+  def initialize *args
+    super
+    @ddds = {}
+  end
+  def name
+    @name ||= Util::Multilingual.new(:de => @remote.name)
+  end
+  def ddds(administration)
+    @ddds[administration] ||= @remote.ddds.inject([]) { |memo, (roa, ddd)| 
+      memo.push ddd if roa == administration 
+      memo
+    }
+  end
+  def interesting?
+    false
+  end
+end
+    end
+  end
+end

data/lib/oddb/remote/drugs/dose.rb

@@ -0,0 +1,8 @@
+#!/usr/bin/env ruby
+# Dose -- de.oddb.org -- 16.02.2007 -- hwyss@ywesee.com
+
+## in remote, Dose is in a different namespace
+require 'oddb/drugs/dose'
+module ODDB
+  Dose = Drugs::Dose
+end

data/lib/oddb/remote/drugs/galenic_form.rb

@@ -0,0 +1,25 @@
+#!/usr/bin/env ruby
+# Remote::Drugs::GalenicForm -- de.oddb.org -- 16.02.2007 -- hwyss@ywesee.com
+
+require 'oddb/util/multilingual'
+require 'oddb/remote/object'
+require 'oddb/drugs/galenic_group'
+
+module ODDB
+  module Remote
+    module Drugs
+class GalenicForm < Remote::Object
+  delegate :all_descriptions
+  def description
+    @description ||= ODDB::Util::Multilingual.new(:de => @remote.de)
+  end
+  def group
+    @group ||= ODDB::Drugs::GalenicGroup.find_by_name(groupname)
+  end
+  def groupname
+    @groupname ||= @remote && @remote.galenic_group.de
+  end
+end
+    end
+  end
+end

data/lib/oddb/remote/drugs/package.rb

@@ -0,0 +1,126 @@
+#!/usr/bin/env ruby
+# Remote::Drugs::Package -- de.oddb.org -- 16.02.2007 -- hwyss@ywesee.com
+
+require 'oddb/util/money'
+require 'oddb/util/multilingual'
+require 'oddb/remote/object'
+require 'oddb/remote/business/company'
+require 'oddb/remote/drugs/active_agent'
+require 'oddb/remote/drugs/atc'
+require 'oddb/remote/drugs/dose'
+require 'oddb/remote/drugs/galenic_form'
+require 'oddb/remote/drugs/part'
+require 'oddb/remote/drugs/unit'
+
+module ODDB
+  module Remote
+    module Drugs
+class Package < Remote::Object
+  delegate :ddds, :ikscat, :sl_entry, :prices, :feedbacks, :ikskey, :pharmacode
+  def initialize(source, remote, currency_rate=1.0, tax_factor=1.0)
+    @tax_factor = tax_factor.to_f
+    @currency_rate = currency_rate.to_f
+    @cache = {}
+    super(source, remote)
+  end
+  def active_agents
+    @active_agents ||= @remote.active_agents.collect { |act|
+      Remote::Drugs::ActiveAgent.new(@source, act)
+    }
+  end
+  def atc
+    @atc ||= Remote::Drugs::Atc.new(@source, @remote.atc_class)
+  end
+  def code(type, country='CH')
+    case type
+    when :ean
+      @ean ||= ODDB::Util::Code.new(:ean, @remote.barcode, 'CH')
+    end
+  end
+  def company
+    @company ||= Remote::Business::Company.new(@source, @remote.company)
+  end
+  def comparables
+    local_comparables.concat @remote.comparables.collect { |pac|
+      Package.new(@source, pac, @currency_rate, @tax_factor)
+    }
+  end
+  def comparable_size
+    @comparable_size ||= @remote.comparable_size
+  end
+  def ddds
+    @ddds ||= galenic_forms.inject([]) { |memo, form|
+      if(group = form.group)
+        memo.concat atc.ddds(group.administration)
+      end
+      memo
+    }
+  end
+  def dose_price(dose)
+    if(price = price(:public))
+      pdose = doses.first.want(dose.unit)
+      ODDB::Util::Money.new((dose / pdose).to_f * (price.to_f / size))
+    end
+  rescue StandardError
+  end
+  def galenic_forms
+    @galenic_forms ||= @remote.galenic_forms.collect { |form|
+      Remote::Drugs::GalenicForm.new(@source, form)
+    }
+  end
+  def local_comparables
+    comparables = []
+    doses = active_agents.collect { |act| act.dose }
+    if(doses.size == 1 \
+       && (atc = ODDB::Drugs::Atc.find_by_code(self.atc.code)))
+      descriptions = galenic_forms.collect { |form| form.description.de }
+      groupnames = galenic_forms.collect { |form| form.groupname }
+      range = (size*0.75)..(size*1.25)
+      atc.products.each { |prod|
+        prod.sequences.each { |seq|
+          if(seq.doses == doses)
+            descs = []
+            names = []
+            seq.galenic_forms.each { |form|
+              descs.push form.description
+              if grp = form.group
+                names.push grp.name
+              end
+            }
+            if(descs == descriptions || groupnames.all? { |name|
+               names.any? { |other| other == name } })
+              comparables.concat seq.packages.select { |pac|
+                range.include?(pac.size)
+              }
+            end
+          end
+        }
+      }
+    end
+    comparables
+  end
+  def name
+    @name ||= ODDB::Util::Multilingual.new(:de => @remote.name_base)
+  end
+  def parts
+    @parts ||= @remote.parts.collect { |part| 
+      Remote::Drugs::Part.new(@source, part)
+    }
+  end
+  def price(type)
+    case type
+    when :public, :exfactory
+      @cache.fetch(type) { @cache.store(type, remote_price(type)) }
+    end
+  end
+  def remote_price(key)
+    pr = @remote.send("price_#{key}").to_f * @currency_rate / @tax_factor
+    ODDB::Util::Money.new(pr.to_f) if(pr > 0)
+  end
+  def size
+    @size ||= comparable_size.qty
+  end
+end
+    end
+  end
+end

data/lib/oddb/remote/drugs/part.rb

@@ -0,0 +1,30 @@
+#!/usr/bin/env ruby
+# Remote::Drugs::Part -- de.oddb.org -- 16.05.2008 -- hwyss@ywesee.com
+
+require 'oddb/remote/object'
+
+module ODDB
+  module Remote
+    module Drugs
+class Part < Remote::Object
+  delegate :multi, :size, :measure
+  def comparable_size
+    @comparable_size ||= @remote.comparable_size
+  end
+  def quantity
+    nil
+  end
+  def unit
+    @unit ||= begin
+                cstr = if comform = @remote.commercial_form
+                         comform.de
+                       else
+                         comparable_size.unit
+                       end
+                @unit = Remote::Drugs::Unit.new(@source, cstr)
+              end
+  end
+end
+    end
+  end
+end

data/lib/oddb/remote/drugs/product.rb

@@ -0,0 +1,19 @@
+# Remote::Drugs::Product -- ch.oddb.org -- 22.07.2009 -- hwyss@ywesee.com
+
+require 'oddb/remote/drugs/sequence'
+
+module ODDB
+  module Remote
+    module Drugs
+class Product < Remote::Object
+  delegate :iksnr, :registration_date, :revision_date, :expiration_date,
+           :inactive_date
+  def sequences
+    @sequences ||= @remote.sequences.collect do |seqnr, seq|
+      Remote::Drugs::Sequence.new @source, seq
+    end
+  end
+end
+    end
+  end
+end

data/lib/oddb/remote/drugs/sequence.rb

@@ -0,0 +1,46 @@
+# Remote::Drugs::Sequence -- ch.oddb.org -- 22.07.2009 -- hwyss@ywesee.com
+
+require 'oddb/remote/drugs/atc'
+require 'oddb/remote/drugs/package'
+require 'oddb/remote/util/m10l_document'
+
+module ODDB
+  module Remote
+    module Drugs
+class Sequence < Remote::Object
+  delegate :name_base, :compositions
+  def atc
+    @atc or begin
+      if atc = @remote.atc_class
+        @atc = Remote::Drugs::Atc.new @source, atc
+      end
+    end
+  end
+  def fachinfo
+    @fachinfo or begin
+      if fi = @remote.fachinfo
+        Remote::Util::M10lDocument.new @source, fi
+      end
+    end
+  end
+  def packages
+    @remote.packages.collect do |ikscd, pac|
+      Remote::Drugs::Package.new @source, pac
+    end
+  end
+  def patinfo
+    @patinfo or begin
+      if pi = @remote.patinfo
+        pi.descriptions.each do |key, doc|
+          if doc.respond_to?(:__drbref=)
+            doc.__drbref = @remote.__drbref + "@patinfo:#{key}"
+          end
+        end
+        Remote::Util::M10lDocument.new @source, pi
+      end
+    end
+  end
+end
+    end
+  end
+end

data/lib/oddb/remote/drugs/substance.rb

@@ -0,0 +1,20 @@
+#!/usr/bin/env ruby
+# Remote::Drugs::Substance -- de.oddb.org -- 16.02.2007 -- hwyss@ywesee.com
+
+require 'oddb/remote/object'
+require 'oddb/util/multilingual'
+
+module ODDB
+  module Remote
+    module Drugs
+class Substance < Remote::Object
+  def name
+    @name ||= ODDB::Util::Multilingual.new(:de => @remote.de)
+  end
+  def <=>(other)
+    name <=> other.name
+  end
+end
+    end
+  end
+end

data/lib/oddb/remote/drugs/unit.rb

@@ -0,0 +1,19 @@
+#!/usr/bin/env ruby
+# Remote::Drugs::Unit -- de.oddb.org -- 16.02.2007 -- hwyss@ywesee.com
+
+require 'oddb/remote/object'
+require 'oddb/util/multilingual'
+
+module ODDB 
+  module Remote
+    module Drugs
+class Unit < Remote::Object
+  attr_reader :name
+  def initialize(source, name)
+    @name = Util::Multilingual.new(:de => name)
+    super
+  end
+end
+    end
+  end
+end

data/lib/oddb/remote/object.rb

@@ -0,0 +1,36 @@
+#!/usr/bin/env ruby
+# Remote::Object -- de.oddb.org -- 16.02.2007 -- hwyss@ywesee.com
+
+module ODDB
+  module Remote
+    class Object
+      attr_reader :source, :remote
+      def initialize(source, remote)
+        @source = source
+        @remote = remote
+        @cache = {}
+      end
+=begin
+      def method_missing(*args, &block)
+        @cache[args] ||= @remote.send(*args, &block)
+      rescue
+        "remote: #{self.class}##{args.join(', ')}"
+      end
+=end
+      def uid
+        sprintf("%s#%s", @source, @remote.__drbref)
+      end
+      class << self
+        def delegate(*args)
+          args.each { |arg|
+            define_method(arg) { 
+              var = "@#{arg}"
+              instance_variable_get(var) \
+                || instance_variable_set(var, @remote.send(arg))
+            }
+          }
+        end
+      end
+    end
+  end
+end