ramaze.ch.oddb.org 1.0.0

data/lib/oddb/drugs/ddd.rb

@@ -0,0 +1,24 @@
+#!/usr/bin/env ruby
+# Drugs::Ddd -- de.oddb.org -- 20.11.2006 -- hwyss@ywesee.com
+
+require 'oddb/model'
+
+module ODDB
+  module Drugs
+    class Ddd < Model
+      attr_reader :administration
+      attr_accessor :dose, :comment
+      belongs_to :atc
+      def initialize(administration)
+        @administration = administration
+      end
+      def to_s
+        if(@comment)
+          sprintf("%s: %s (%s)", @administration, @dose, @comment)
+        else
+          sprintf("%s: %s", @administration, @dose)
+        end
+      end
+    end
+  end
+end

data/lib/oddb/drugs/dose.rb

@@ -0,0 +1,107 @@
+#!/usr/bin/env ruby
+# Drugs::Dose -- de.oddb.org -- 07.11.2006 -- hwyss@ywesee.com
+
+require 'oddb/util/quanty'
+
+module ODDB
+  module Drugs
+    class Dose < Quanty
+      include Comparable
+      alias :qty :val 
+      np = '-?[0-9]+(?:[.,][0-9]+)?' ## numerical pattern
+      @@range_ptrn = %r{(#{np})\s*-\s*(#{np})}
+      @@cnc_ptrn = %r{([^/]*)/\s*(#{np})\s*(.*)}
+      def Dose.from_quanty(other)
+        Dose.new(other.val, other.unit)
+      end
+      def initialize(qty, unit=nil)
+        qty_str = ''
+        if(match = @@range_ptrn.match(qty.to_s))
+          qty = round(match[1].to_f)..round(match[2].to_f)
+        end
+        if(qty.is_a?(Range))
+          qty_str = "#{qty.first}-#{qty.last}"
+          qty = (qty.first + qty.last) / 2.0
+          @not_normalized = [qty_str, unit].compact.join(' ')
+        end
+        if(match = @@cnc_ptrn.match(unit.to_s))
+          qty_str = round(qty).to_s
+          div = round(match[2])
+          @not_normalized = [
+            qty_str, 
+            [match[1].strip, div].join(' / '), 
+            match[3],
+          ].join
+          qty = qty.to_f/div.to_f
+          unit = [match[1].strip,match[3].strip].join('/')
+        end
+        qty = round(qty)
+        unit = unit.to_s.tr('L', 'l')
+        fuzzy_retry = true
+        strict_retry = true
+        begin
+          super(qty, unit)
+        rescue StandardError => e
+          if(fuzzy_retry)
+            unit = unit[0,2]
+            fuzzy_retry = false
+            retry
+          elsif(strict_retry)
+            unit = ''
+            strict_retry = false
+            retry
+          end
+        end
+      end
+      def to_f
+        begin
+          super
+        rescue StandardError
+          @val * @fact.factor
+        end
+      end
+      def to_i
+        @val.to_i
+      end
+      def to_s
+        @not_normalized or 
+        begin
+          val = if(@val.is_a? Float)
+            sprintf('%.3f', @val).gsub(/0+$/, '')
+          else
+            @val
+          end
+          [val, @unit].join(' ')
+        end
+      end
+      def * (other)
+        Dose.from_quanty(super)
+      end
+      def + (other)
+        Dose.from_quanty(super)
+      end
+      def / (other)
+        Dose.from_quanty(super)
+      end
+      def - (other)
+        Dose.from_quanty(super)
+      end
+      def <=>(other)
+        begin
+          (@val * 1000).round <=> (adjust(other) * 1000).round
+        rescue StandardError
+          @unit <=> other.unit
+        end
+      end
+      private
+      def round(qty)
+        qty = qty.to_s.gsub(/'/, '').gsub(',', '.')
+        if(qty.to_f == qty.to_i)
+          qty.to_i
+        else
+          qty.to_f
+        end
+      end
+    end
+  end
+end

data/lib/oddb/drugs/galenic_form.rb

@@ -0,0 +1,21 @@
+#!/usr/bin/env ruby
+# Drugs::GalenicForm -- de.oddb.org -- 11.09.2006 -- hwyss@ywesee.com
+
+require 'oddb/model'
+require 'oddb/drugs/galenic_group'
+
+module ODDB
+  module Drugs
+    class GalenicForm < Model
+      is_coded
+      multilingual :description
+      alias :name :description
+      belongs_to :group
+      def ==(other)
+        super || (!@group.nil? && @group == other.group)
+      rescue
+        false
+      end
+    end
+  end
+end

data/lib/oddb/drugs/galenic_group.rb

@@ -0,0 +1,17 @@
+#!/usr/bin/env ruby
+# Drugs::GalenicGroup -- de.oddb.org -- 21.02.2007 -- hwyss@ywesee.com
+
+require 'oddb/model'
+
+module ODDB
+  module Drugs
+    class GalenicGroup < Model
+      multilingual :name
+      has_many :galenic_forms
+      attr_accessor :administration
+      def initialize(groupname, language='de')
+        name.send("%s=" % language, groupname)
+      end
+    end
+  end
+end

data/lib/oddb/drugs/package.rb

@@ -0,0 +1,87 @@
+#!/usr/bin/env ruby
+# Drugs::Package -- de.oddb.org -- 14.11.2006 -- hwyss@ywesee.com
+
+require 'oddb/business/price'
+require 'oddb/config'
+require 'oddb/model'
+require 'time'
+
+module ODDB
+  module Drugs
+    class Package < Model
+      belongs_to :sequence, 
+        delegates(:active_agents, :atc, :company, :compositions, :ddds, :doses,
+                  :fachinfo_url, :fachinfo, :galenic_forms, :patinfo,
+                  :patinfo_url, :product, :registration, :substances)
+      has_many :feedbacks, on_delete(:cascade)
+      has_many :parts, on_delete(:cascade), delegates(:comparable_size)
+      has_many :prices
+      is_coded
+      multilingual :name
+      def comparable?(other)
+        return false unless(other.is_a?(Package))
+        csizes = comparable_size.collect { |psize|
+          [(psize*0.75), (psize*1.25)]
+        }
+        osizes = other.comparable_size
+        idx = -1
+        osizes.length == csizes.length && csizes.all? { |lower, upper|
+          idx += 1
+          size = osizes.at(idx)
+          lower <= size && size <= upper
+        }
+      end
+      def comparables
+        @sequence.comparables.inject([]) { |memo, sequence|
+          memo.concat sequence.packages.select { |package|
+            (package != self) && comparable?(package)
+          }
+        }
+      end
+      def dose_price(dose)
+        if(price = price(:public))
+          pdose = doses.first.want(dose.unit)
+          Util::Money.new((dose / pdose).to_f * (price.to_f / size))
+        end
+      rescue StandardError
+      end
+      def price(type, country=ODDB.config.country)
+        prices.find { |money| money.is_for?(type, country) }
+      end
+      def price_exfactory(country=ODDB.config.country)
+        price(:exfactory, country)
+      end
+      def _price_exfactory(country=ODDB.config.country)
+        if((price = price(:public, country)) \
+           && (code = code(:prescription)) && code.value)
+          c = ODDB.config
+          efp = (price - c.pharmacy_premium) * 100 /
+            (100.0 + c.vat + c.pharmacy_percentage) 
+          efp.type = :exfactory
+          efp.country = country
+          efp
+        end
+      end
+      unless(instance_methods.include?(:__sequence_writer__))
+        alias :__sequence_writer__ :sequence=
+      end
+      def sequence=(seq)
+        old = @sequence
+        __sequence_writer__(seq)
+        if(seq)
+          comps = seq.compositions
+          parts.each_with_index { |part, idx|
+            part.composition = comps.at(idx)
+            part.save
+          }
+        else
+          parts.each { |part| part.composition = nil }
+        end
+        seq
+      end
+      def size
+        parts.inject(0) { |memo, part| memo + part.comparable_size.qty }
+      end
+    end
+  end
+end

data/lib/oddb/drugs/part.rb

@@ -0,0 +1,56 @@
+#!/usr/bin/env ruby
+# encoding: utf-8
+# Drugs::Part -- de.oddb.org -- 14.11.2006 -- hwyss@ywesee.com
+
+require 'oddb/model'
+require 'oddb/drugs/dose'
+
+module ODDB
+  module Drugs
+    class Part < Model
+      belongs_to :package, delegates(:sequence)
+      belongs_to :composition, delegates(:active_agents)
+      ## A partial package can be described as e.g. 
+      #  10 x 5 Ampoules of 20 ml 
+      #   ^----------------------- :multi    - Numeric
+      #       ^------------------- :size     - Numeric
+      #              ^------------ :unit     - Unit (a multilingual)
+      #                      ^---- :quantity - Dose 
+      attr_accessor :unit, :quantity, :multi
+      attr_reader :size
+      def initialize
+        super
+        @size = 1
+      end
+      def comparable_size
+        (@quantity || Dose.new(1)) * (@size || 1) * (@multi || 1)
+      end
+      def size=(size)
+        size ||= 1
+        if(size.to_f == size.to_i.to_f)
+          @size = size.to_i
+        else
+          @size = size.to_f
+        end
+      end
+      def to_s(language=:de)
+        parts = []
+        multi = @multi.to_i
+        if(multi > 1)
+          parts.push multi, 'x'
+        end
+        size = @size.to_i
+        if(size > 1)
+          parts.push(size)
+        end
+        if(unit = @unit)
+          parts.push(unit.name.send(language))
+        end
+        if(quantity = @quantity)
+          parts.push 'à', quantity
+        end
+        parts.join(' ')
+      end
+    end
+  end
+end

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,61 @@
+#!/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 :packages, on_delete(:cascade), on_save(:cascade)
+      has_many :registrations, on_save(:cascade)
+      is_coded
+      multilingual :name
+      m10l_document :fachinfo
+      m10l_document :patinfo
+      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