oddb2xml 1.0.9 → 1.0.10

data/History.txt

@@ -1,3 +1,7 @@
+=== 1.0.10 / 25.12.2012
+
+* Add ORPH and COOL from swissmedic xls
+
 === 1.0.9 / 11.12.2012
 
 * Added Substance Updater via BAG-XML from the Substance Branch.

data/README.md

@@ -1,6 +1,6 @@
 # oddb2xml
 
-oddb2xml, creates xml files using swissINDEX, BAG-XML and Swissmedic XLS.
+oddb2xml, creates xml files using swissINDEX and BAG-XML.
 
 
 ## usage
@@ -25,8 +25,8 @@ Usage:
 option examples.
 
 ```
-$ oddb2xml                              # => oddb_article.xml, oddb_product.xml
-$ oddb2xml -t md                        # => md_article.xml, md_product.xml
+$ oddb2xml                              # => oddb_article.xml, oddb_product.xml, oddb_substance.xml
+$ oddb2xml -t md                        # => md_article.xml, md_product.xml, md_substance.xml
 $ oddb2xml -a nonpharma -t md -c tar.gz # => md_xml_dd.mm.yyyy_hh.mm.tar.gz
 ```
 
@@ -104,11 +104,13 @@ For example, if `-t _swiss` is given then oddb2xml creates product.xml as swiss_
     <CPT_SWISS>
       <CPTCMP_SWISS>
         <LINE_SWISS>0</LINE_SWISS>
+        <SUBNO_SWISS>100</SUBNO_SWISS>
         <QTY_SWISS>1000</QTY_SWISS>
         <QTYU_SWISS>U.</QTYU_SWISS>
       </CPTCMP_SWISS>
       <CPTCMP_SWISS>
         <LINE_SWISS>1</LINE_SWISS>
+        <SUBNO_SWISS>105</SUBNO_SWISS>
         <QTY_SWISS>10000</QTY_SWISS>
         <QTYU_SWISS>U.</QTYU_SWISS>
       </CPTCMP_SWISS>
@@ -123,3 +125,28 @@ For example, if `-t _swiss` is given then oddb2xml creates product.xml as swiss_
   </RESULT_SWISS>
 </PRODUCT_SWISS>
 ```
+
+### substance.xml
+
+product.xml has relation to substance as `<SUBNO>`.
+
+```
+<?xml version="1.0" encoding="utf-8"?>
+<SUBSTANCE xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://wiki.oddb.org/wiki.php?pagename=Swissmedic.Datendeklaration" CREATION_DATETIME="2012-12-11T14:27:17.4444763+0900" PROD_DATE="2012-12-11T14:27:17.4444763+0900" VALID_DATE="2012-12-11T14:27:17.4444763+0900">
+  <SB DT="">
+    <SUBNO>1</SUBNO>
+    <NAML>3-Methoxy-butylis acetas</NAML>
+  </SB>
+  <SB DT="">
+    <SUBNO>2</SUBNO>
+    <NAML>4-Methylbenzylidene camphor</NAML>
+  </SB>
+  ...
+  <RESULT>
+    <OK_ERROR>OK</OK_ERROR>
+    <NBR_RECORD>1441</NBR_RECORD>
+    <ERROR_CODE/>
+    <MESSAGE/>
+  </RESULT>
+</SUBSTANCE>
+```

data/lib/oddb2xml/builder.rb

@@ -17,11 +17,14 @@ end
 
 module Oddb2xml
   class Builder
-    attr_accessor :subject, :index, :items, :tag_suffix
+    attr_accessor :subject, :index, :items, :orphans, :fridges,
+                  :tag_suffix
     def initialize
       @subject    = nil
       @index      = {}
       @items      = {}
+      @orphans    = []
+      @fridges    = []
       @tag_suffix = nil
       if block_given?
         yield self
@@ -138,7 +141,8 @@ module Oddb2xml
               #xml.DOSEU
               #xml.DRGFD
               #xml.DRGFF
-              #xml.ORPH
+              seq[:packages].values.first[:swissmedic_number] =~ /(\d{5})(\d{3})/
+              xml.ORPH @orphans.include?($1.to_s) ? true : false
               #xml.BIOPHA
               #xml.BIOSIM
               #xml.BFS
@@ -267,7 +271,12 @@ module Oddb2xml
                 xml.LIMPTS bg_pac[:limitation_points] unless bg_pac[:limitation_points].empty?
               end
               #xml.GRDFR
-              #xml.COOL
+              if bg_pac
+                if !bg_pac[:swissmedic_number].empty? and
+                   bg_pac[:swissmedic_number].to_s =~ /(\d{5})(\d{3})/
+                  xml.COOL 1 if @fridges.include?($1.to_s)
+                end
+              end
               #xml.TEMP
               #xml.CDBG
               #xml.BG

data/lib/oddb2xml/cli.rb

@@ -15,13 +15,23 @@ module Oddb2xml
       @mutex = Mutex.new
       @items = {} # Items from Preparations.xml in BAG
       @index = {} # Base index from swissINDEX
+      @orphans = [] # Orphaned drugs from Swissmedic xls
+      @fridges = [] # ReFridge drugs from Swissmedic xls
       LANGUAGES.each do |lang|
         @index[lang] = {}
       end
     end
     def run
       threads = []
-      # bag_xml
+      # swissmedic
+      [:orphans, :fridges].each do |type|
+        threads << Thread.new do
+          downloader = SwissmedicDownloader.new
+          io = downloader.download_by(type)
+          self.instance_variable_set("@#{type.to_s}", SwissmedicExtractor.new(io, type).to_arry)
+        end
+      end
+      # bag
       threads << Thread.new do
         downloader = BagXmlDownloader.new
         xml = downloader.download
@@ -62,6 +72,8 @@ module Oddb2xml
             builder.subject    = sbj
             builder.index      = index
             builder.items      = @items
+            builder.orphans    = @orphans
+            builder.fridges    = @fridges
             builder.tag_suffix = @options[:tag_suffix]
           end
           if file =~ /(product)/

data/lib/oddb2xml/downloader.rb

@@ -96,4 +96,36 @@ XML
       end
     end
   end
+  class SwissmedicDownloader < Downloader
+    HOST = 'http://www.swissmedic.ch'
+    def init
+    end
+    def download_by(index=:orphans)
+      case index
+      when :orphans
+        @url ||= "#{HOST}/daten/00081/index.html?lang=de"
+        xpath =  "//div[@id='sprungmarke0_4']//a[@title='Humanarzneimittel']"
+      when :fridges
+        @url ||= "#{HOST}/daten/00080/00254/index.html?lang=de"
+        xpath =  "//table[@class='swmTableFlex']//a[@title='B3.1.35-d.xls']"
+      end
+      file = "swissmedic_#{index}.xls"
+      begin
+        agent = Mechanize.new
+        page = agent.get(@url)
+        if link = page.search(xpath).first
+          url = HOST + link['href']
+          response = agent.get(url)
+          response.save_as file
+        end
+        return File.open(file, 'rb')
+      rescue Timeout::Error
+        retrievable? ? retry : raise
+      ensure
+        if File.exists? file
+          File.unlink file
+        end
+      end
+    end
+  end
 end

data/lib/oddb2xml/extractor.rb

@@ -1,6 +1,7 @@
 # encoding: utf-8
 
 require 'nokogiri'
+require 'spreadsheet'
 
 module Oddb2xml
   class Extractor
@@ -117,4 +118,43 @@ module Oddb2xml
       data
     end
   end
+  class SwissmedicExtractor < Extractor
+    def initialize(io, type)
+      book = Spreadsheet.open(io)
+      @sheet = book.worksheet(0)
+      @type  = type
+    end
+    def to_arry
+      data = []
+      case @type
+      when :orphans
+        i = 1
+        @sheet.each do |row|
+          if number = extract_number(row, i)
+            data << number
+          end
+        end
+      when :fridges
+        i,c = 1,7
+        @sheet.each do |row|
+          if number = extract_number(row, i) and row[c] and row[c].to_s == 'x'
+            data << row[i].to_i.to_s
+          end
+        end
+      end
+      data.uniq
+    end
+    private
+    def extract_number(row, i)
+      begin
+        if (row[i] and number = row[i].to_i.to_s and number =~ /^\d{5}$/)
+          return number
+        else
+          nil
+        end
+      rescue NoMethodError
+        nil
+      end
+    end
+  end
 end

data/lib/oddb2xml/version.rb

@@ -1,3 +1,3 @@
 module Oddb2xml
-  VERSION = "1.0.9"
+  VERSION = "1.0.10"
 end

data/oddb2xml.gemspec

@@ -22,6 +22,7 @@ Gem::Specification.new do |gem|
   gem.add_dependency 'mechanize'
   gem.add_dependency 'nokogiri'
   gem.add_dependency 'savon'
+  gem.add_dependency 'spreadsheet'
 
   gem.add_development_dependency 'rspec'
   gem.add_development_dependency 'webmock'

metadata

@@ -1,13 +1,13 @@
 --- !ruby/object:Gem::Specification 
 name: oddb2xml
 version: !ruby/object:Gem::Version 
-  hash: 5
+  hash: 3
   prerelease: 
   segments: 
   - 1
   - 0
-  - 9
-  version: 1.0.9
+  - 10
+  version: 1.0.10
 platform: ruby
 authors: 
 - Yasuhiro Asaka, Zeno R.R. Davatz
@@ -15,7 +15,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2012-12-11 00:00:00 Z
+date: 2012-12-25 00:00:00 Z
 dependencies: 
 - !ruby/object:Gem::Dependency 
   name: rdoc
@@ -86,6 +86,7 @@ files:
 - spec/downloader_spec.rb
 - spec/extractor_spec.rb
 - spec/spec_helper.rb
+- .gemtest
 homepage: 
 licenses: []