ramaze.ch.oddb.org 1.0.0

data/lib/oddb/html/view/drugs/ajax/explain_ddd_price.rb

@@ -0,0 +1,87 @@
+#!/usr/bin/env ruby
+# Html::View::Drugs::Ajax::ExplainDddPrice -- de.oddb.org -- 07.03.2007 -- hwyss@ywesee.com
+
+require 'htmlgrid/composite'
+require 'oddb/html/view/drugs/package'
+
+module ODDB
+  module Html
+    module View
+      module Drugs
+        module Ajax
+class ExplainDddPrice < HtmlGrid::Composite
+  include View::Drugs::PackageMethods
+  COMPONENTS = {
+    [0,0] =>  :administration,
+    [2,0] =>  :comment,
+    [0,1]	=>	:ddd,
+    [2,1]	=>	:price_public,
+    [0,2]	=>	:dose,
+    [2,2]	=>	:package_size,
+    [0,3]	=>	:ddd_price_calculation,
+  }
+	COLSPAN_MAP = {
+		[1,3]	=>	3,
+	}
+  CSS_MAP = {
+    [0,0,4,4] => 'calculation',
+  }
+  LABELS = true
+  LEGACY_INTERFACE = false
+  class << self
+    def data(*keys)
+      keys.each { |key|
+        define_method(key) { |model|
+          value key, self.send("_#{key}", model)
+        }
+      }
+    end
+  end
+  data :comment, :ddd, :ddd_price, :dose, :price_public
+  def administration(model)
+    adm = model[:ddd].administration
+    value(:administration, 
+          @lookandfeel.lookup("administration_#{adm}") { adm })
+  end
+  def _comment(model)
+    model[:ddd].comment
+  end
+  def _ddd(model)
+    model[:ddd].dose
+  end
+  def _ddd_price(model)
+    adjust_price model[:package].dose_price(model[:ddd].dose)
+  end
+  def ddd_price_calculation(model)
+    comp = HtmlGrid::Value.new(:ddd_price_calculation, 
+                               model, @session, self)
+    comp.value = @lookandfeel.lookup(:ddd_price_calculation,
+                                     _ddd(model), _dose(model), 
+                                     _price_public(model), 
+                                     _package_size(model), 
+                                     _ddd_price(model))
+    comp
+  end
+  def _dose(model)
+    model[:package].doses.first
+  end
+  def _price_public(model)
+    adjust_price model[:package].price(:public)
+  end
+  def package_size(model)
+    value :size, _package_size(model)
+  end
+  def _package_size(model)
+    size(model[:package])
+  end
+  def value(key, value)
+    val = HtmlGrid::Value.new(key, @model, @session, self)
+    val.value = value
+    val
+  end
+end
+        end
+      end
+    end
+  end
+end

data/lib/oddb/html/view/drugs/ajax/explain_price.rb

@@ -0,0 +1,61 @@
+#!/usr/bin/env ruby
+# Html::View::Drugs::Ajax::ExplainPrice -- de.oddb.org -- 07.03.2007 -- hwyss@ywesee.com
+
+require 'htmlgrid/composite'
+
+module ODDB
+  module Html
+    module View
+      module Drugs
+        module Ajax
+class ExplainPrice < HtmlGrid::Composite
+  COMPONENTS = {
+    [0,0] => :price_db,
+    [0,1] => :tax_sub,
+    [0,2] => :tax_add,
+    [0,3] => :price_local,
+  }
+  CSS_MAP = {
+    [1,0,1,3] => 'price',
+    [0,3]     => 'sum',
+    [1,3]     => 'price sum',
+  }
+  LABELS = true
+  LEGACY_INTERFACE = false
+  def price_local(price)
+    _value :price_local, _price_local(price)
+  end
+  def _price_local(price)
+    price * @lookandfeel.price_factor
+  end
+  def price_db(price)
+    _value :price_db, _price_db(price)
+  end
+  def _price_db(price)
+    price * @lookandfeel.currency_factor
+  end
+  def tax_add(price)
+    _value :tax_add, ['+', _tax_add(price)]
+  end
+  def _tax_add(price)
+    factor = @lookandfeel.tax_factor_add
+    _price_local(price) / (1.0 + factor) * factor
+  end
+  def tax_sub(price)
+    _value :tax_sub, ['-', _tax_sub(price)]
+  end
+  def _tax_sub(price)
+    factor = @lookandfeel.tax_factor_sub
+    _price_db(price) / (1.0 + factor) * factor
+  end
+  def _value(key, price)
+    value = HtmlGrid::Value.new(key, price, @session, self)
+    value.value = price
+    value
+  end
+end
+        end
+      end
+    end
+  end
+end

data/lib/oddb/html/view/drugs/ajax/package_infos.rb

@@ -0,0 +1,105 @@
+#!/usr/bin/env ruby
+# Html::View::Drugs::Ajax::PackageInfos -- de.oddb.org -- 07.03.2007 -- hwyss@ywesee.com
+
+require 'htmlgrid/composite'
+require 'oddb/html/view/drugs/package'
+
+module ODDB
+  module Html
+    module View
+      module Drugs
+        module Ajax
+class PackageInfos < HtmlGrid::Composite
+  include PackageMethods
+  LABELS = true
+  LEGACY_INTERFACE = false
+  COMPONENTS = {
+    [0,0]   => :code_festbetragsgruppe,
+    [0,1,0] => :code_festbetragsstufe,
+    [1,1,0] => :opener_festbetragsstufe,
+    [1,1,1] => :info_festbetragsstufe,
+    [0,2,0] => :code_zuzahlungsbefreit,
+    [1,2,0] => :opener_zuzahlungsbefreit,
+    [1,2,1] => :info_zuzahlungsbefreit,
+    [0,3]   => :code_prescription,
+  }
+  CSS_MAP = {
+    [0,1,1,2] => 'top',
+  }
+  def code_festbetragsgruppe(model)
+    if(code = super)
+      link_festbetrag(code)
+    end
+  end
+  def code_festbetragsstufe(model)
+    if(code = super)
+      link_festbetrag(sprintf("%s: %s", code, 
+                      @lookandfeel.lookup("festbetragsstufe_#{code}")))
+    end
+  end
+  def code_prescription(model)
+    value = HtmlGrid::Value.new(:prescription, model, @session, self) 
+    value.value = super
+    value
+  end
+  def code_zuzahlungsbefreit(model)
+    link = link_zuzahlungsbefreit(model)
+    link.value = super
+    link.label = true
+    link
+  end
+  def info_festbetragsstufe(model)
+    source = link_festbetrag('')
+    source.value = source.href
+    txt = @lookandfeel.lookup(:tt_code_festbetragsstufe).strip
+    hidden = HtmlGrid::Div.new(model, @session, self)
+    hidden.value = [ txt, source ]
+    hidden.set_attribute('style', 'display:none')
+    hidden.css_id = "info_festbetragsstufe#{model.code(:cid)}"
+    hidden.css_class = "hidden"
+    hidden
+  end
+  def info_zuzahlungsbefreit(model)
+    source = link_zuzahlungsbefreit(model)
+    source.value = source.href
+    txt = @lookandfeel.lookup(:tt_code_zuzahlungsbefreit).strip
+    hidden = HtmlGrid::Div.new(model, @session, self)
+    hidden.value = [ txt, source ]
+    hidden.set_attribute('style', 'display:none')
+    hidden.css_id = "info_zuzahlungsbefreit#{model.code(:cid)}"
+    hidden.css_class = "hidden"
+    hidden
+  end
+  def link_festbetrag(code)
+    link = HtmlGrid::Link.new(:festbetrag, model, @session, self)
+    link.value = code
+    link.href = "http://www.die-gesundheitsreform.de/glossar/festbetraege.html"
+    link.label = true
+    link
+  end
+  def link_zuzahlungsbefreit(model)
+    link = HtmlGrid::Link.new(:zuzahlungsbefreit, model, @session, self)
+    link.href = "https://www.gkv-spitzenverband.de/Befreiungsliste_Arzneimittel_Versicherte.gkvnet"
+    link
+  end
+  def opener(code, type)
+    span = HtmlGrid::Span.new(nil, @session, self)
+    span.value = @lookandfeel.lookup(:more)
+    widget = "package_infos#{code}_widget"
+    hidden = "info_#{type}#{code}"
+    span.onclick = "open_explanation('#{widget}', '#{hidden}', this)"
+    span.css_class = 'opener'
+    span
+  end
+  def opener_festbetragsstufe(model)
+    opener(@model.code(:cid), :festbetragsstufe)
+  end
+  def opener_zuzahlungsbefreit(model)
+    opener(@model.code(:cid), :zuzahlungsbefreit)
+  end
+end
+        end
+      end
+    end
+  end
+end

data/lib/oddb/html/view/drugs/ajax/remote_infos.rb

@@ -0,0 +1,44 @@
+#!/usr/bin/env ruby
+# Html::View::Drugs::Ajax::RemoteInfos -- de.oddb.org -- 07.03.2007 -- hwyss@ywesee.com
+
+require 'htmlgrid/composite'
+
+module ODDB
+  module Html
+    module View
+      module Drugs
+        module Ajax
+class RemoteInfos < HtmlGrid::Composite
+  LABELS = true
+  LEGACY_INTERFACE = false
+  COMPONENTS = {
+    [0,0] => :ch_sl_entry,
+    [0,1] => :ch_ikscat,
+  }
+  CSS_MAP = {
+    [0,1] => 'top',
+  }
+  DEFAULT_CLASS = HtmlGrid::Value
+  def ch_sl_entry(model)
+    value = HtmlGrid::Value.new(:ch_sl_entry, model, @session, self)
+    value.value = @lookandfeel.lookup(model.sl_entry ? :yes : :no)
+    value
+  end
+  def ch_ikscat(model)
+    value = HtmlGrid::Value.new(:ch_ikscat, model, @session, self)
+    span = HtmlGrid::Span.new(model, @session, self)
+    span.value = code = model.ikscat.to_s
+    if(code =~ /[AB]/)
+      span.css_class = 'prescription'
+    else
+      span.css_class = 'otc'
+    end
+    value.value = [span, ":", @lookandfeel.lookup("ch_ikscat_#{code}")]
+    value
+  end
+end
+        end
+      end
+    end
+  end
+end

data/lib/oddb/html/view/drugs/atc_browser.rb

@@ -0,0 +1,68 @@
+#!/usr/bin/env ruby
+# Html::View::Drugs::AtcBrowser -- de.oddb.org -- 13.12.2007 -- hwyss@ywesee.com
+
+require 'oddb/html/view/drugs/template'
+require 'oddb/html/view/list'
+require 'oddb/html/view/search'
+
+module ODDB
+  module Html
+    module View
+      module Drugs
+class AtcList < View::List
+  COMPONENTS = {
+    [0,0] => :name,
+    [1,0] => :ddd_link,
+  }
+  OMIT_HEADER = true
+  STRIPED_BG = false
+  #CSS_MAP = { [1,0] => 'atc' }
+  def ddd_link(model)
+    if(model.interesting?)
+      link = HtmlGrid::Link.new(:who_ddd, model, @session, self)
+      link.href = @lookandfeel._event_url(:ddd, [:code, model.code])
+      link.css_class = 'who-ddd square'
+      link
+    end
+  end
+  def name(model)
+    css_map.update( [0,0] => "atc level#{model.level} browser", 
+                    [1,0] => "atc level#{model.level}" )
+    value = if(name = model.name.send(@session.language))
+              [name, " (" << model.code.to_s << ")"]
+            else
+              model.code
+            end
+    search_level = model.level > 1 && (code = @session.user_input(:code)) \
+                      && /^#{model.code}/.match(code) || model.level == 5
+    if search_level && model.packages.empty?
+      return value
+    end
+    link = HtmlGrid::Link.new(model.code, model, @session, self)
+    if search_level
+      link.href = @lookandfeel._event_url(:search, 
+                                          [:query, model.code, :dstype, :compare])
+      link.css_class = 'search'
+    else
+      link.href = @lookandfeel._event_url(:atc_browser, :code => model.code)
+    end
+    link.value = value
+    link
+  end
+end
+class AtcComposite < HtmlGrid::DivComposite
+  COMPONENTS = {
+    [0,0] => InlineSearch, 
+    [0,1] => "atc_browser",
+    [0,2] => AtcList, 
+  }
+  CSS_ID_MAP = ['result-search', 'title']
+  CSS_MAP = { 1 => 'result' }
+end
+class AtcBrowser < Template
+  CONTENT = AtcComposite
+end
+      end
+    end
+  end
+end

data/lib/oddb/html/view/drugs/atc_guidelines.rb

@@ -0,0 +1,94 @@
+#!/usr/bin/env ruby
+# Html::View::Drugs::AtcGuidelines -- de.oddb.org -- 09.03.2007 -- hwyss@ywesee.com
+
+require 'htmlgrid/divlist'
+require 'oddb/html/view/drugs/template'
+require 'oddb/html/view/list'
+
+module ODDB
+  module Html
+    module View
+      module Drugs
+module AtcMethods
+  def atc_description(atc)
+    sprintf("%s - %s", atc.code, atc.name.send(@session.language))
+  end
+end
+class Ddds < View::List
+  COMPONENTS = {
+    [0,0] => :administration, 
+    [1,0] => :dose, 
+    [2,0] => :comment, 
+  }
+  CSS_MAP = {
+    [1,0] => 'doses',
+  }
+  DEFAULT_CLASS = HtmlGrid::Value
+  SORT_HEADER = false
+  def administration(model)
+    ad = model.administration
+    @lookandfeel.lookup("administration_#{ad}") { ad }
+  end
+end
+class AtcGuidelineList < HtmlGrid::DivList
+  include AtcMethods
+  COMPONENTS = {
+    [0,0] => :atc_description, 
+    [1,0] => :guidelines, 
+    [2,0] => :ddd_guidelines, 
+    [3,0] => :ddds, 
+  }
+  @@atc_re = /\b[A-Z]\d{2}([A-Z]([A-Z](\d{2})?)?)?\b/
+  def atc_description(model)
+    div(super, "atc groupheader")
+  end
+  def div(value, klass="atc")
+    unless(value.to_s.strip.empty?)
+      div = HtmlGrid::Div.new(value, @session, self)
+      div.value = value.gsub(@@atc_re) { |match|
+        sprintf("<a href='%s'>%s</a>", 
+                @lookandfeel._event_url(:ddd, [:code, match]), match)
+      }
+      div.css_class = klass
+      div
+    end
+  end
+  def guidelines(model)
+    div(model.guidelines.en)
+  end
+  def ddd_guidelines(model)
+    div(model.ddd_guidelines.en, "atc ddd")
+  end
+  def ddds(model)
+    ddds = model.ddds
+    unless(ddds.empty?)
+      Ddds.new(ddds, @session, self)
+    end
+  end
+end
+class AtcGuidelinesComposite < HtmlGrid::DivComposite
+  include AtcMethods
+  include Snapback
+  COMPONENTS = {
+    [0,0] => :snapback, 
+    [0,1] => InlineSearch, 
+    [0,2] => :atc_description,
+    [0,3] => :atcs,
+  }
+  CSS_ID_MAP = [ 'snapback', 'result-search', 'title' ]
+  CSS_MAP = { 0 => 'before-searchbar'}
+  def atcs(model)
+    list = [model]
+    while(model = model.parent)
+      list.unshift(model)
+    end
+    AtcGuidelineList.new(list, @session, self)
+  end
+end
+class AtcGuidelines < Template
+  CONTENT = AtcGuidelinesComposite
+end
+      end
+    end
+  end
+end