de.oddb 2.0.0

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,24 @@
+#!/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
+  def description
+    @description ||= 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,128 @@
+#!/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
+  def initialize(source, remote, currency_rate, 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 ||= if atc = @remote.atc_class
+               Remote::Drugs::Atc.new(@source, atc)
+             end
+  end
+  def code(type, country='CH')
+    case type
+    when :ean
+      @ean ||= 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)
+      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 = self.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 ||= 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
+    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
+  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/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 ||= 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,20 @@
+#!/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
+      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("%i.%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

data/lib/oddb/text/chapter.rb

@@ -0,0 +1,23 @@
+#!/usr/bin/env ruby
+# Text::Chapter -- de.oddb.org -- 24.10.2007 -- hwyss@ywesee.com
+
+module ODDB
+  module Text
+    class Chapter
+      attr_reader :name, :paragraphs
+      def initialize(name)
+        @name = name
+        @paragraphs = []
+      end
+      def add_paragraph(paragraph)
+        @paragraphs.push paragraph unless paragraph.empty?
+      end
+      def append(chapter)
+        @paragraphs.concat chapter.paragraphs
+      end
+      def to_s
+        @paragraphs.join("\n")
+      end
+    end
+  end
+end

data/lib/oddb/text/document.rb

@@ -0,0 +1,42 @@
+#!/usr/bin/env ruby
+# Text::Document -- de.oddb.org -- 26.10.2007 -- hwyss@ywesee.com
+
+require 'oddb/model'
+
+module ODDB
+  module Text
+    ## to migrate Document to be a subclass of Model:
+    #  Drugs::Sequence.all { |seq| need = false; [:fachinfo, :patinfo].each { |key| if(ml = seq.instance_variable_get("@#{key}")); need = true; seq.instance_variable_set("@#{key}", nil); if(doc = ml.de); info = seq.send(key); if(prev = doc.instance_variable_get('@previous_sources')); info.previous_sources[:de] = prev; doc.instance_eval { remove_instance_variable('@previous_sources') }; end; if((source = doc.source) && (saved = Text::Document.find_by_source(source))); doc = saved; end; info.de = doc; info.save; info.de.save; end; end }; seq.save if need }
+    class Document < Model
+      attr_accessor :source, :date, :title
+      attr_reader :chapters
+      def initialize
+        @chapters = []
+      end
+      def add_chapter(chapter)
+        @chapters.push chapter
+      end
+      def chapter(idx_or_name)
+        case idx_or_name
+        when Integer
+          @chapters[idx_or_name]
+        else
+          @chapters.find { |ch| ch.name == idx_or_name }
+        end
+      end
+      def chapter_names
+        @chapters.select { |chapter| 
+          chapter.paragraphs.size > 1 
+        }.collect { |chapter| 
+          chapter.name 
+        }
+      end
+      def remove_chapter(chapter)
+        @chapters.delete(chapter)
+      end
+      def to_s
+        @chapters.join("\n")
+      end
+    end
+  end
+end

data/lib/oddb/text/format.rb

@@ -0,0 +1,37 @@
+#!/usr/bin/env ruby
+# Text::Format -- de.oddb.org -- 19.10.2007 -- hwyss@ywesee.com
+
+module ODDB
+  module Text
+    class Format
+      attr_accessor :start, :end, :values
+      VALID_FORMATS = %w{b i sub sup u}
+      def initialize(*args)
+        @values = []
+        augment *args
+        @start = 0
+        @end = -1
+      end
+      def augment(*args)
+        @values.concat(args & VALID_FORMATS)
+        @values.sort!
+        @values.uniq!
+        @values
+      end
+      def range
+        @start..@end
+      end
+      def ==(other)
+        case other
+        when Format
+          @values == other.values
+        when Array
+          @values == (other & VALID_FORMATS).sort
+        else
+          false
+        end
+      end
+    end
+  end
+end
+

data/lib/oddb/text/paragraph.rb

@@ -0,0 +1,53 @@
+#!/usr/bin/env ruby
+# Text::Paragraph -- de.oddb.org -- 19.10.2007 -- hwyss@ywesee.com
+
+require 'delegate'
+require 'encoding/character/utf-8'
+require 'oddb/text/format'
+
+module ODDB
+  module Text
+    class Paragraph < DelegateClass(String)
+      attr_reader :text, :formats
+      attr_accessor :align
+      def initialize(str='')
+        @formats = []
+        @text = u(str.dup)
+				set_format()
+        super(@text)
+      end
+      def set_format(*args)
+        if(fmt = @formats.last)
+          return if(fmt == args)
+          if(fmt.start == @text.length)
+            @formats.pop
+            fmt = @formats.last
+            if(fmt == args)
+              fmt.end = -1
+              return
+            end
+          else
+            fmt.end	= (@text.length - 1)
+          end
+        end
+        fmt = Text::Format.new(*args)
+        fmt.start = (@text.length)
+        @formats.push(fmt)
+        fmt
+      end
+      def <<(str)
+        if(str.is_a? Paragraph)
+          @align = str.align
+          txt = str.text
+          str.formats.each { |fmt|
+            set_format(*fmt.values)
+            @text << txt[fmt.range]
+          }
+        else
+          @text << str
+        end
+        self
+      end
+    end
+  end
+end

data/lib/oddb/text/picture.rb

@@ -0,0 +1,89 @@
+#!/usr/bin/env ruby
+# Text::Picture -- de.oddb.org -- 24.10.2007 -- hwyss@ywesee.com
+
+module ODDB
+  module Text
+    class Picture < DelegateClass(String)
+      attr_accessor :height, :width, :xscale, :yscale, :height_goal, :width_goal
+      TWIP = 20 ## see http://en.wikipedia.org/wiki/Twip
+      PCNT = 100 
+      BDNS = 180 ## base density
+      DMAX = 360 ## maximum density
+      def initialize
+        super('')
+      end
+      def blob
+        [self].pack('H*')
+      end
+      def digest
+        @digest ||= Digest::MD5.hexdigest(self)
+      end
+      def empty?
+        super #|| !image
+      rescue StandardError => err
+        ODDB.logger.error("Text::Picture") { 
+          sprintf "%s: %s", err.class, err.message
+        }
+        true
+      end
+      def finalize!
+        wmf = File.join ODDB.config.var, path("%s.wmf" % digest)
+        FileUtils.mkdir_p File.dirname(wmf)
+        File.open(wmf, 'w') { |fh| fh.puts blob }
+
+        twidth = @width ? @width * _xscale / PCNT : @width_goal
+        theight = @height ? @height * _yscale / PCNT : @height_goal
+
+        geom = sprintf("%ix%i!", twidth / TWIP, theight / TWIP)
+        path = File.join ODDB.config.var, path("%s.png" % digest)
+        
+        # let imagemagick take care of file-conversion externally
+        out = %x{convert -resize #{geom} #{wmf} #{path}}
+        if $? != 0
+          raise out
+        end
+
+        png = File.read path
+        replace png.unpack('H*').first
+      end
+      def filename
+        @filename ||= "%s.png" % digest
+      end
+      def formats
+        []
+      end
+      def image
+        Magick::Image.from_blob(blob).first
+      end
+      def path(fn = filename)
+        File.join('/images', fn[0,2], fn)
+      end
+      def set_format(*ignore)
+      end
+      def to_png
+        blob
+      end
+      def to_s
+        image.inspect
+      end
+      def _xscale
+        if @xscale
+          @xscale
+        elsif @width && @width_goal
+          PCNT * @width_goal / @width 
+        else
+          PCNT
+        end
+      end
+      def _yscale
+        if @yscale
+          @yscale
+        elsif @height && @height_goal
+          PCNT * @height_goal / @height 
+        else
+          PCNT
+        end
+      end
+    end
+  end
+end