mml-ruby 0.0.2 → 0.0.3

data/lib/mml/common.rb

@@ -1,25 +1,9 @@
 require 'builder'
 
 module MML
-  class BaseName
-    attr_reader :value, :repCode
-    attr_accessor :tableId
-
-    def initialize(args ={})
-      %W(value repCode tableId).each do |item|
-        self.send("#{item}=", args[item.to_sym])
-      end      
-    end
-
-    def value=(value)
-      raise ArgumentError, 'value is mandatory' if value.nil?
-      @value = value
-    end
-
-    def repCode=(repCode)
-      raise ArgumentError, 'repCode is mandatory' if repCode.nil?
-      @repCode = repCode
-    end
+  class BaseName < Base
+    mandatory_attribute :value, :repCode
+    optional_attribute :tableId
   end
 
   class FacilityName < BaseName
@@ -31,276 +15,50 @@ module MML
   end
 
   class Name < BaseName
-    attr_accessor :family, :given, :middle, :fullname, :prefix, :degree
-
-    def initialize(args = {})
-      %W(family given middle fullname prefix degree repCode tableId).each do |item|
-        self.send("#{item}=", args[item.to_sym])
-      end
-    end
+    optional_attribute :family, :given, :middle, :fullname, :prefix, :degree
 
     undef value=
-
-    def to_xml
-      xb = Builder::XmlMarkup.new
-      xb.mmlNm(:Name, {'mmlNm:repCode' => @repCode, 'mmlNm:tableId' => @tableId}) do
-        xb.mmlNm :family, @family if @family
-        xb.mmlNm :middle, @middle if @middle
-        xb.mmlNm :given, @given if @given
-        xb.mmlNm :fullname, @fullname if @fullname
-        xb.mmlNm :prefix, @prefix if @prefix
-        xb.mmlNm :degree, @degree if @degree
-      end
-    end
   end
 
-  class Id
-    attr_reader :value, :type, :tableId
-    attr_accessor :checkDigit, :checkDigitSchema
-
-    def initialize(args = {})
-      self.value = args[:value]
-      self.type = args[:type]
-      self.tableId = args[:tableId]
-      self.checkDigit = args[:checkDigit]
-      self.checkDigitSchema = args[:checkDigitSchema]
-    end
-
-    def value=(value)
-      raise ArgumentError, 'value should not be nil' if value.nil? or value.empty?
-      @value = value
-    end
-
-    def type=(type)
-      raise ArgumentError, 'type should no be nil' if type.nil? or type.empty?
-      @type = type
-    end
-
-    def tableId=(tableId)
-      raise ArgumentError, 'table id is required' if tableId.nil? or type.empty?
-      @tableId = tableId
-    end
-
-    def to_xml
-      xb = Builder::XmlMarkup.new
-      attributes = {'mmlCm:type' => type, 'mmlCm:tableId' => tableId }
-      attributes['mmlCm:checkDigit'] = checkDigit if checkDigit
-      attributes['mmlCm:checkDigitSchema'] = checkDigitSchema if checkDigitSchema
-      xb.mmlCm :Id,  value, attributes
-    end
+  class Id < Base
+    mandatory_attribute :value, :type, :tableId
+    optional_attribute :checkDigit, :checkDigitSchema
   end
 
-  class ExtRef
-    attr_accessor :contentType, :medicalRole, :title
-    attr_reader :href
-
-    def initialize(args = {})
-      self.contentType = args[:contentType]
-      self.medicalRole = args[:medicalRole]
-      self.title = args[:title]
-      self.href = args[:href]
-    end
-
-    def href=(href)
-      raise ArgumentError, 'href is mandatory' if href.nil?
-      @href = href
-    end
-
-    def to_xml
-      xb = Builder::XmlMarkup.new
-      attributes = { 'mmlCm:href' => href }
-      attributes['mmlCm:contentType'] = contentType if contentType
-      attributes['mmlCm:medicalRole'] = medicalRole if medicalRole
-      attributes['mmlCm:title'] = title if title
-      xb.mmlCm :extRef, attributes
-    end
+  class ExtRef < Base
+    mandatory_attribute :href
+    optional_attribute :contentType, :medicalRole, :title
   end
 
-  class Address
-    attr_reader :repCode
-    attr_accessor :addressClass, :tableId, :homeNumber, :town, :city, :prefecture, :full, :zip, :countryCode
-
-    def initialize(args = {})
-      %W(repCode addressClass tableId full homeNumber town city prefecture zip countryCode).each do |item|
-        self.send("#{item}=", args[item.to_sym])
-      end
-    end
-
-    def repCode=(repCode)
-      raise ArgumentError, 'repCode is mandatory' if repCode.nil?
-      @repCode = repCode
-    end
-
-    def to_xml
-      xb = Builder::XmlMarkup.new
-      attributes = { 'mmlAd:repCode' => repCode }
-      attributes['mmlAd:addressClass'] = addressClass
-      attributes['mmlAd:tableId'] = tableId
-      xb.mmlAd :Address, attributes do
-        xb.mmlAd :homeNumber, homeNumber if homeNumber
-        xb.mmlAd :town, town if town
-        xb.mmlAd :city, city if city
-        xb.mmlAd :prefecture, prefecture if prefecture
-        xb.mmlAd :full, full if full
-        xb.mmlAd :zip, zip if zip
-        xb.mmlAd :countryCode, countryCode if countryCode
-      end
-    end
+  class Address < Base
+    mandatory_attribute :repCode
+    optional_attribute :addressClass, :tableId, :homeNumber, :town, :city, :prefecture, :full, :zip, :countryCode
   end
 
-  class Phone
-    attr_accessor :telEquipType, :area, :city, :number, :extension, :country, :memo
-
-    def initialize(args = {})
-      %W(telEquipType area city number extension country memo).each do |item|
-        self.send("#{item}=", args[item.to_sym])
-      end
-    end
-
-    def to_xml
-      xb = Builder::XmlMarkup.new
-      attributes = {'mmlPh:telEquipType' => telEquipType} if telEquipType
-      xb.mmlPh :Phone, attributes do
-        xb.mmlPh :area, area if area
-        xb.mmlPh :city, city if city
-        xb.mmlPh :number, number if number
-        xb.mmlPh :extension, extension if extension
-        xb.mmlPh :country, country if country
-        xb.mmlPh :memo, memo if memo
-      end
-    end
+  class Phone < Base
+    optional_attribute :telEquipType, :area, :city, :number, :extension, :full, :country, :memo
   end
 
-  class Facility
-    attr_reader :name
-    attr_accessor :id
-
-    def initialize(args = {})
-      %W(name id).each do |item|
-        self.send("#{item}=", args[item.to_sym])
-      end
-    end
-
-    def name=(name)
-      raise ArgumentError, 'name is mandatory' if name.nil? or name.empty?
-      @name = name
-    end
-
-    def to_xml
-      xb = Builder::XmlMarkup.new
-      xb.mmlFc :Facility do
-        name.each do |n|
-          attributes = {'mmlFc:repCode' => n.repCode}
-          attributes['mmlFc:tableId'] = n.tableId if n.tableId
-          xb.mmlFc :name, n.value, attributes
-        end
-        xb << id.to_xml if id
-      end
-    end
+  class Facility < Base
+    mandatory_attribute :name
+    optional_attribute :id
   end
 
   class Department < Facility
-    def initialize(args = {})
-      super
-    end
 
-    def to_xml
-      xb = Builder::XmlMarkup.new
-      xb.mmlDp :Department do
-        name.each do |n|
-          attributes = { 'mmlDp:repCode' => n.repCode}
-          attributes['mmlDp:tableId'] = n.tableId if n.tableId
-          xb.mmlDp :name, n.value, attributes
-        end
-        xb << id.to_xml if id
-      end
-    end
   end
 
-  class PersonalizedInfo
-    attr_reader :id, :personName
-    attr_accessor :facility, :department, :addresses, :emailAddresses, :phones
-
-    def initialize(args = {})
-      %W(id personName facility department addresses emailAddresses phones).each do |item|
-        send "#{item}=", args[item.to_sym]
-      end
-    end
-
-    def id=(id)
-      @id = id
-    end
-
-    def personName=(personName)
-      @personName = personName
-    end
-
-    def to_xml
-      xb = Builder::XmlMarkup.new
-      xb.mmlPsi :PersonalizedInfo do
-        xb << id.to_xml
-        xb.mmlPsi :personName do
-          personName.each do |n|
-            xb << n.to_xml
-          end
-        end
-        xb << facility.to_xml if facility
-        xb << department.to_xml if department
-        xb.mmlPsi :addresses do
-          addresses.each do |address|
-            xb << address.to_xml
-          end
-        end if addresses
-        xb.mmlPsi :emailAddresses do
-          emailAddresses.each do |email|
-            xb.mmlCm :email, email
-          end
-        end if emailAddresses
-        xb.mmlPsi :phones do
-          phones.each do |phone|
-            xb << phone.to_xml
-          end
-        end if phones
-      end
-    end
+  class PersonalizedInfo < Base
+    mandatory_attribute :id, :personName
+    optional_attribute :facility, :department, :addresses, :emailAddresses, :phones
   end
 
-  class CreatorLicense
-    attr_accessor :tableId, :value
-
-    def initialize(args = {})
-      @tableId = args[:tableId]
-      @value = args[:value]
-    end
+  class CreatorLicense < Base
+    optional_attribute :tableId, :value
   end
 
-  class CreatorInfo
-    attr_reader :personalizedInfo, :creatorLicense
-
-    def initialize(args = {})
-      self.personalizedInfo = args[:personalizedInfo]
-      self.creatorLicense = args[:creatorLicense]
-    end
-
-    def personalizedInfo=(personalizedInfo)
-      raise ArgumentError, 'personalizedInfo is mandatory' if personalizedInfo.nil?
-      @personalizedInfo = personalizedInfo
-    end
-
-    def creatorLicense=(creatorLicense)
-      raise ArgumentError, 'creatorLicense is mandatory' if creatorLicense.nil? or creatorLicense.empty?
-      @creatorLicense = creatorLicense
-    end
-
-    def to_xml
-      xb= Builder::XmlMarkup.new
-      xb.mmlCi :CreatorInfo do
-        xb << personalizedInfo.to_xml
-        creatorLicense.each do |license|
-          attributes = {'mmlCi:tableId' => license.tableId} if license.tableId
-          xb.mmlCi :creatorLicense, license.value, attributes
-        end
-      end
-    end
+  class CreatorInfo < Base
+    mandatory_attribute :personalizedInfo, :creatorLicense
   end
+
 end

data/lib/mml/version.rb

@@ -1,3 +1,3 @@
 module MML
-  VERSION = "0.0.2"
+  VERSION = "0.0.3"
 end

data/lib/xml/address.xml.builder

@@ -0,0 +1,12 @@
+      attributes = { 'mmlAd:repCode' => repCode }
+      attributes['mmlAd:addressClass'] = addressClass
+      attributes['mmlAd:tableId'] = tableId
+      xml.mmlAd :Address, attributes do
+        xml.mmlAd :homeNumber, homeNumber if homeNumber
+        xml.mmlAd :town, town if town
+        xml.mmlAd :city, city if city
+        xml.mmlAd :prefecture, prefecture if prefecture
+        xml.mmlAd :full, full if full
+        xml.mmlAd :zip, zip if zip
+        xml.mmlAd :countryCode, countryCode if countryCode
+      end

data/lib/xml/baseclinic.xml.builder

@@ -0,0 +1,36 @@
+      xml.mmlBc :BaseClinicModule do
+        xml.mmlBc :allergy do
+          allergy.each do |item|
+            xml.mmlBc :allergyItem do
+              xml.mmlBc :factor, item.factor
+              xml.mmlBc :severity, item.severity if item.severity
+              xml.mmlBc :identifiedDate, item.identifiedDate if item.identifiedDate
+              xml.mmlBc :memo, item.memo if item.memo
+            end
+          end
+        end if allergy
+        xml.mmlBc :bloodtype do
+          xml.mmlBc :abo, bloodtype.abo
+          xml.mmlBc :rh, bloodtype.rh if bloodtype.rh
+          xml.mmlBc :others do
+            bloodtype.others.each do |other|
+              xml.mmlBc :other do
+                xml.mmlBc :typeName, other.typeName
+                xml.mmlBc :typeJudgement, other.typeJudgement
+                xml.mmlBc :description, other.description if other.description
+              end
+            end
+          end if bloodtype.others
+          xml.mmlBc :memo, bloodtype.memo if bloodtype.memo
+        end if bloodtype
+        xml.mmlBc :infection do
+          infection.each do |item|
+            xml.mmlBc :infectionItem do
+              xml.mmlBc :factor, item.factor
+              xml.mmlBc :examValue, item.examValue
+              xml.mmlBc :identifiedDate, item.identifiedDate if item.identifiedDate
+              xml.mmlBc :memo, item.memo if item.memo
+            end
+          end
+        end if infection
+      end

data/lib/xml/creatorinfo.xml.builder

@@ -0,0 +1,6 @@
+xml.mmlCi :CreatorInfo do
+  xml << personalizedInfo.to_xml
+  creatorLicense.each do |license|
+    xml << license.to_xml
+  end
+end

data/lib/xml/creatorlicense.xml.builder

@@ -0,0 +1,3 @@
+attributes = Hash.new
+attributes['mmlCi:tableId'] = tableId if tableId
+xml.mmlCi :creatorLicense, value, attributes

data/lib/xml/department.xml.builder

@@ -0,0 +1,8 @@
+      xml.mmlDp :Department do
+        name.each do |n|
+          attributes = { 'mmlDp:repCode' => n.repCode}
+          attributes['mmlDp:tableId'] = n.tableId if n.tableId
+          xml.mmlDp :name, n.value, attributes
+        end
+        xml << id.to_xml if id
+      end

data/lib/xml/extref.xml.builder

@@ -0,0 +1,5 @@
+      attributes = { 'mmlCm:href' => href }
+      attributes['mmlCm:contentType'] = contentType if contentType
+      attributes['mmlCm:medicalRole'] = medicalRole if medicalRole
+      attributes['mmlCm:title'] = title if title
+      xml.mmlCm :extRef, attributes

data/lib/xml/facility.xml.builder

@@ -0,0 +1,8 @@
+      xml.mmlFc :Facility do
+        name.each do |n|
+          attributes = {'mmlFc:repCode' => n.repCode}
+          attributes['mmlFc:tableId'] = n.tableId if n.tableId
+          xml.mmlFc :name, n.value, attributes
+        end
+        xml << id.to_xml if id
+      end

data/lib/xml/firstclinic.xml.builder

@@ -0,0 +1,47 @@
+      xml.mmlFcl :FirstClinicModule do
+        xml.mmlFcl :familyHistory do
+          familyHistory.each do |item|
+            xml.mmlFcl :familyHistoryItem do
+              xml.mmlFcl :relation, item.relation
+              xml << item.registeredDiagnosis.to_xml
+              xml.mmlFcl :age, item.age
+              xml.mmlFcl :memo, item.memo
+            end
+          end
+        end if familyHistory
+        xml.mmlFcl :childhood do
+          xml.mmlFcl :birthInfo do
+            xml << birthInfo.facility.to_xml if birthInfo.facility
+            xml.mmlFcl :deliveryWeeks, birthInfo.deliveryWeeks if birthInfo.deliveryWeeks
+            xml.mmlFcl :deliveryMethod, birthInfo.deliveryMethod if birthInfo.deliveryMethod
+            xml.mmlFcl :bodyWeight, birthInfo.bodyWeight, {'mmlFcl:unit' => birthInfo.bodyWeightUnit} if birthInfo.bodyWeight
+            xml.mmlFcl :bodyHeight, birthInfo.bodyHeight, {'mmlFcl:unit' => birthInfo.bodyHeightUnit} if birthInfo.bodyHeight
+            xml.mmlFcl :chestCircumference, birthInfo.chestCircumference, {'mmlFcl:unit' => birthInfo.chestCircumferenceUnit} if birthInfo.chestCircumference
+            xml.mmlFcl :headCircumference, birthInfo.headCircumference, {'mmlFcl:unit' => birthInfo.headCircumferenceUnit} if birthInfo.headCircumference
+            xml.mmlFcl :memo, birthInfo.memo if birthInfo.memo
+          end if birthInfo
+          xml.mmlFcl :vaccination do
+            vaccination.each do |item|
+              xml.mmlFcl :vaccinationItem do
+                xml.mmlFcl :vaccine, item.vaccine
+                xml.mmlFcl :injected, item.injected
+                xml.mmlFcl :age, item.age if item.age
+                xml.mmlFcl :memo, item.memo if item.memo
+              end
+            end
+          end if vaccination
+        end if birthInfo or vaccination
+        xml.mmlFcl :pastHistory do
+          xml.mmlFcl :freeNote, pastHistory.freeNote if pastHistory.freeNote
+          pastHistory.pastHistoryItem.each do |item|
+            xml.mmlFcl :pastHistoryItem do
+              xml.mmlFcl :timeExpression, item.timeExpression
+              item.eventExpression.each do |event|
+                xml.mmlFcl :eventExpression, event
+              end if item.eventExpression
+            end
+          end if pastHistory.pastHistoryItem
+        end if pastHistory
+        xml.mmlFcl :chiefComplaints, chiefComplaints if chiefComplaints
+        xml.mmlFcl :presentIllnessNotes, presentIllnessNotes if presentIllnessNotes
+      end