Module: ODDB::Html::State::Drugs::Events

Included in:
Global
Defined in:
lib/oddb/html/state/drugs/global.rb

Instance Method Summary collapse

Instance Method Details

#_compare(code) ⇒ Object 



41
42
43
44
45
46
47
48
49
50
51
 
# File 'lib/oddb/html/state/drugs/global.rb', line 41

def _compare(code)
  if(package = _package_by_code(code))
    result = ODDB::Util::AnnotatedList.new(package.comparables)
    if(@session.lookandfeel.enabled?(:remote_databases, false))
      result.concat(_remote_comparables(package))
    end
    result.origin = package
    result.query = code
    Compare.new(@session, result)
  end
end

#_complete(result) ⇒ Object 



52
53
54
55
56
57
58
59
60
61
 
# File 'lib/oddb/html/state/drugs/global.rb', line 52

def _complete(result)
  atcs = {}
  result.dup.each { |package|
    if((atc = package.atc) && !atcs[atc])
      atcs.store(atc, true)
      result.concat(atc.packages)
    end
  }
  result.uniq!
end

#_explain_ddd_price(code, idx) ⇒ Object 



68
69
70
71
72
73
74
 
# File 'lib/oddb/html/state/drugs/global.rb', line 68

def _explain_ddd_price(code, idx)
  if((package = _package_by_code(code)) \
     && (ddd = package.ddds.at(idx)))
    Ajax::ExplainDddPrice.new(@session, 
                              :ddd => ddd, :package => package)
  end
end

#_explain_price(code) ⇒ Object 



75
76
77
78
79
 
# File 'lib/oddb/html/state/drugs/global.rb', line 75

def _explain_price(code)
  if(package = _package_by_code(code))
    Ajax::ExplainPrice.new(@session, package.price(:public))
  end
end

#_fachinfo(uid) ⇒ Object 



80
81
82
83
84
 
# File 'lib/oddb/html/state/drugs/global.rb', line 80

def _fachinfo(uid)
  if(sequence = ODDB::Drugs::Sequence.find_by_uid(uid))
    Fachinfo.new(@session, sequence)
  end
end

#_feedback(code) ⇒ Object 



85
86
87
88
89
 
# File 'lib/oddb/html/state/drugs/global.rb', line 85

def (code)
  if(item = _package_by_code(code) || _sequence_by_code(code))
    Feedback.new(@session, item)
  end
end

#_package(code) ⇒ Object 



96
97
98
99
100
 
# File 'lib/oddb/html/state/drugs/global.rb', line 96

def _package(code)
  if(package = _package_by_code(code))
    Package.new(@session, package)
  end
end

#_package_by_code(code) ⇒ Object 



101
102
103
104
105
 
# File 'lib/oddb/html/state/drugs/global.rb', line 101

def _package_by_code(code)
  ODDB::Drugs::Package.find_by_code(:type => 'cid', 
                                    :value   => code, 
                                    :country => 'DE')
end

#_package_infos(code) ⇒ Object 



106
107
108
109
110
 
# File 'lib/oddb/html/state/drugs/global.rb', line 106

def _package_infos(code)
  if(package = _package_by_code(code))
    Ajax::PackageInfos.new(@session, package)
  end
end

#_patinfo(uid) ⇒ Object 



111
112
113
114
115
 
# File 'lib/oddb/html/state/drugs/global.rb', line 111

def _patinfo(uid)
  if(sequence = ODDB::Drugs::Sequence.find_by_uid(uid))
    Patinfo.new(@session, sequence)
  end
end

#_products(query) ⇒ Object 



116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
 
# File 'lib/oddb/html/state/drugs/global.rb', line 116

def _products(query)
  result = ODDB::Util::AnnotatedList.new
  result.query = query
  if(query)
    if(query == '0-9')
      alpha, others = partitioned_keys(ODDB::Drugs::Product.name_keys(1))
      others.each { |key|
        result.concat(ODDB::Drugs::Product.search_by_name(key))
      }
    else
      result.concat(ODDB::Drugs::Product.search_by_name(query.downcase))
    end
  end
  Products.new(@session, result)
end

#_remote(uri, &block) ⇒ Object 



131
132
133
134
135
 
# File 'lib/oddb/html/state/drugs/global.rb', line 131

def _remote(uri, &block)
  block.call DRbObject.new(nil, uri)
rescue StandardError => e
  warn e.message 
end

#_remote_comparables(package) ⇒ Object 



136
137
138
139
140
141
142
 
# File 'lib/oddb/html/state/drugs/global.rb', line 136

def _remote_comparables(package)
  if(atc = package.atc)
    _remote_packages { |remote| 
      remote.remote_comparables(ODBA::DRbWrapper.new(package))
    }
  end
end

#_remote_infos(uid) ⇒ Object 



143
144
145
146
147
 
# File 'lib/oddb/html/state/drugs/global.rb', line 143

def _remote_infos(uid)
  if(pac = _remote_package(uid))
    Ajax::RemoteInfos.new(@session, pac)
  end
end

#_remote_package(id) ⇒ Object 



148
149
150
151
152
153
154
155
156
 
# File 'lib/oddb/html/state/drugs/global.rb', line 148

def _remote_package(id)
  source, ref = id.split('.', 2)
  uri = ODDB.config.remote_databases.at(source.to_i)
  if(pac = DRbObject._load(Marshal.dump([uri, ref])))
    rate = _remote(uri) { |remote| 
      remote.get_currency_rate("EUR") }
    Remote::Drugs::Package.new(source, pac, rate, _tax_factor)
  end
end

#_remote_packages(&block) ⇒ Object 



157
158
159
160
161
162
163
164
165
166
167
168
169
 
# File 'lib/oddb/html/state/drugs/global.rb', line 157

def _remote_packages(&block)
  result = []
  ODDB.config.remote_databases.each_with_index { |uri, source|
    _remote(uri) { |remote|
      rate = remote.get_currency_rate("EUR")
      block.call(remote).each { |pac|
        result.push Remote::Drugs::Package.new(source, pac, rate, 
                                               _tax_factor)
      }
    }
  }
  result
end

#_search(query, dstype) ⇒ Object 



177
178
179
180
181
182
183
 
# File 'lib/oddb/html/state/drugs/global.rb', line 177

def _search(query, dstype)
  result = _search_local(query, dstype)
  if(@session.lookandfeel.enabled?(:remote_databases, false))
    result.concat(_search_remote(query))
  end
  Result.new(@session, result)
end

#_search_append_products(query, result) ⇒ Object 



184
185
186
187
188
189
190
191
192
193
194
195
 
# File 'lib/oddb/html/state/drugs/global.rb', line 184

def _search_append_products(query, result)
  table = {}
  result.each do |package|
    table.store package.product.uid, true
  end
  products = ODDB::Drugs::Product.search_by_name(query)
  products.reject! do |prod| table[prod.uid] end
  products.collect! do |prod|
    Util::KnowItAll.new prod, :active_agents => [], :parts => [], :ddds => []
  end
  result.concat products
end

#_search_append_sequences(query, result) ⇒ Object 



196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
 
# File 'lib/oddb/html/state/drugs/global.rb', line 196

def _search_append_sequences(query, result)
  table = {}
  result.each do |package|
    table.store package.sequence.uid, true
  end
  sequences = ODDB::Drugs::Sequence.search_by_product(query)
  sequences.reject! do |seq| table[seq.uid] end
  sequences.collect! do |seq|
    parts = seq.compositions.collect do |comp|
      Util::KnowItAll.new nil, :unit => comp.galenic_form
    end
    Util::KnowItAll.new seq, :active_agents => [], :parts => parts,
                             :ddds => [], :sequence => seq
  end
  result.concat sequences
end

#_search_by(key, query, result) ⇒ Object 



212
213
214
 
# File 'lib/oddb/html/state/drugs/global.rb', line 212

def _search_by(key, query, result)
  result.concat ODDB::Drugs::Package.send("search_by_#{key}", query)
end

#_search_local(query, dstype) ⇒ Object 



215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
 
# File 'lib/oddb/html/state/drugs/global.rb', line 215

def _search_local(query, dstype)
  result = ODDB::Util::AnnotatedList.new
  result.query = query
  result.dstype = dstype || ODDB.config.default_dstype
  if(query.length < 3)
    result.error = :e_query_short
  else
    case dstype
    when 'company'
      _search_by(:company, query, result)
    when 'substance'
      _search_by(:substance, query, result)
    when 'compare'
      _search_by(:atc, query, result)
      _search_by(:company, query, result) if result.empty?
      _search_by(:substance, query, result) if result.empty?
      _complete(_search_by(:name, query, result)) if result.empty?
      _complete(_search_by(:product, query, result)) if result.empty?
    when 'indication'
      seqs = ODDB::Drugs::Sequence.search_by_fachinfo_indications_de(query)
      seqs.each { |seq| result.concat seq.packages }
    else
      _search_by(:name, query, result)
      _search_by(:product, query, result) if result.empty?
      _search_append_sequences(query, result)
      _search_append_products(query, result)
    end
  end
  result
end

#_search_remote(query) ⇒ Object 



245
246
247
 
# File 'lib/oddb/html/state/drugs/global.rb', line 245

def _search_remote(query)
  _remote_packages { |remote| remote.remote_packages(query) }
end

#_sequence_by_code(code) ⇒ Object 



248
249
250
 
# File 'lib/oddb/html/state/drugs/global.rb', line 248

def _sequence_by_code(code)
  ODDB::Drugs::Sequence.find_by_uid(code)
end

#_tax_factor ⇒ Object 



170
171
172
 
# File 'lib/oddb/html/state/drugs/global.rb', line 170

def _tax_factor
  @session.lookandfeel.tax_factor
end

#compare_remote ⇒ Object 



32
33
34
35
36
37
38
39
40
 
# File 'lib/oddb/html/state/drugs/global.rb', line 32

def compare_remote
  if((uid = @session.user_input(:uid)) \
     && (package = _remote_package(uid)))
    result = ODDB::Util::AnnotatedList.new(package.comparables)
    result.origin = package
    result.query = uid
    CompareRemote.new(@session, result)
  end
end

#ddd ⇒ Object 



62
63
64
65
66
67
 
# File 'lib/oddb/html/state/drugs/global.rb', line 62

def ddd
  if((code = @session.user_input(:code)) \
     && (atc = ODDB::Drugs::Atc.find_by_code(code)))
    AtcGuidelines.new(@session, atc)
  end
end

#limited?(*args) ⇒ Boolean

Returns:

  • (Boolean) 


90
91
92
 
# File 'lib/oddb/html/state/drugs/global.rb', line 90

def limited?(*args)
  super && !@session.allowed?('view', ODDB.config.auth_domain)
end

#navigation ⇒ Object 



93
94
95
 
# File 'lib/oddb/html/state/drugs/global.rb', line 93

def navigation
  [:products, :atc_browser, :downloads].concat(super)
end

#search ⇒ Object 



173
174
175
176
 
# File 'lib/oddb/html/state/drugs/global.rb', line 173

def search
  _search(@session.persistent_user_input(:query),
          @session.persistent_user_input(:dstype) || ODDB.config.default_dstype)
end