mml-ruby 0.0.2 → 0.0.3

data/lib/xml/id.xml.builder

@@ -0,0 +1,4 @@
+      attributes = {'mmlCm:type' => type, 'mmlCm:tableId' => tableId }
+      attributes['mmlCm:checkDigit'] = checkDigit if checkDigit
+      attributes['mmlCm:checkDigitSchema'] = checkDigitSchema if checkDigitSchema
+      xml.mmlCm :Id,  value, attributes

data/lib/xml/insurance.xml.builder

@@ -0,0 +1,82 @@
+      attributes = {'mmlHi:countryType' => countryType } if countryType
+      xml.mmlHi :HealthInsuranceModule, attributes do
+        attributes = {'mmlHi:ClassCode' => '01'} if insuranceClass.classCode
+        attributes['mmlHi:tableId'] = insuranceClass.tableId if insuranceClass.tableId
+        xml.mmlHi :insuranceClass, insuranceClass.value, attributes if insuranceClass
+        xml.mmlHi :insuranceNumber, insuranceNumber
+        xml.mmlHi :clientId do
+          xml.mmlHi :group, group
+          xml.mmlHi :number, number
+        end
+        xml.mmlHi :familyClass, familyClass
+        xml.mmlHi :clientInfo do
+          xml.mmlHi :personName do
+            clientInfo.personName.each do |name|
+              xml << name.to_xml
+            end
+          end if clientInfo.personName
+          xml.mmlHi :addresses do
+            clientInfo.addresses.each do |address|
+              xml << address.to_xml
+            end
+          end if clientInfo.addresses
+          xml.mmlHi :phones do
+            clientInfo.phones.each do |phone|
+              xml << phone.to_xml
+            end
+          end if clientInfo.phones
+        end if clientInfo
+        xml.mmlHi :continuedDiseases do
+          continuedDiseases.each do |disease|
+            xml.mmlHi :disease, disease
+          end
+        end if continuedDiseases
+        xml.mmlHi :startDate, startDate
+        xml.mmlHi :expiredDate, expiredDate
+        xml.mmlHi :paymentInRatio, paymentInRatio if paymentInRatio
+        xml.mmlHi :paymentOutRatio, paymentOutRatio if paymentOutRatio
+        xml.mmlHi :insuredInfo do
+          xml.mmlHi :facility do
+            xml << insuredInfo.facility.to_xml if insuredInfo.facility
+          end if insuredInfo.facility
+          xml.mmlHi :addresses do
+            insuredInfo.addresses.each do |address|
+              xml << address.to_xml
+            end
+          end if insuredInfo.addresses
+          xml.mmlHi :phones do
+            insuredInfo.phones.each do |phone|
+              xml << phone.to_xml
+            end
+          end if insuredInfo.phones
+        end if insuredInfo
+        xml.mmlHi :workInfo do
+          xml.mmlHi :facility do
+            xml << workInfo.facility.to_xml
+          end if workInfo.facility
+          xml.mmlHi :addresses do
+            workInfo.addresses.each do |address|
+              xml << address.to_xml
+            end
+          end if workInfo.addresses
+          xml.mmlHi :phones do
+            workInfo.phones.each do |phone|
+              xml << phone.to_xml
+            end
+          end
+        end if workInfo
+        xml.mmlHi :publicInsurance do
+          publicInsurance.each do |item|
+            attribute = Hash.new
+            attribute = {'mmlHi:priority' => item.priority} if item.priority
+            xml.mmlHi :publicInsuranceItem, attribute do
+              xml.mmlHi :providerName, item.providerName if item.providerName
+              xml.mmlHi :provider, item.provider
+              xml.mmlHi :recipient, item.recipient
+              xml.mmlHi :startDate, item.startDate
+              xml.mmlHi :expiredDate, item.expiredDate
+              xml.mmlHi :paymentRatio, item.paymentRatio, {'mmlHi:ratioType' => item.ratioType} if item.paymentRatio
+            end
+          end
+        end if publicInsurance
+      end

data/lib/xml/lifestyle.xml.builder

@@ -0,0 +1,6 @@
+      xml.mmlLs :LifestyleModule do
+        xml.mmlLs :occupation, occupation
+        xml.mmlLs :tobacco, tobacco
+        xml.mmlLs :alcohol, alcohol
+        xml.mmlLs :other, other if other
+      end

data/lib/xml/name.xml.builder

@@ -0,0 +1,10 @@
+      attributes = {'mmlNm:repCode' => repCode}
+      attributes[:tableId] = tableId if tableId
+      xml.mmlNm(:Name, attributes) do
+        xml.mmlNm :family, @family if @family
+        xml.mmlNm :middle, @middle if @middle
+        xml.mmlNm :given, @given if @given
+        xml.mmlNm :fullname, @fullname if @fullname
+        xml.mmlNm :prefix, @prefix if @prefix
+        xml.mmlNm :degree, @degree if @degree
+      end

data/lib/xml/patientinfo.xml.builder

@@ -0,0 +1,51 @@
+      xml.mmlPi :PatientModule do
+        xml.mmlPi :uniqueInfo do
+          xml.mmlPi :masterId do
+            xml << masterId.to_xml
+          end
+          otherId.each do |item|
+            xml.mmlPi :otherId, {'mmlPi:type' => item.type} do
+              xml << item.id.to_xml
+            end
+          end if otherId
+        end
+        personName.each do |name|
+          xml.mmlPi :personName do
+            xml << name.to_xml
+          end
+        end
+        xml.mmlPi :birthday, birthday
+        xml.mmlPi :sex, sex
+        if nationality
+          attributes = Hash.new
+          attributes = {'mmlPi:subtype' => nationality.subtype} if nationality.subtype
+          xml.mmlPi :nationality, nationality.value, attributes
+        end
+        if race
+          attributes = Hash.new
+          attributes = {'mmlPi:raceCode' => race.raceCode} if race.raceCode
+          attributes['mmlPi:raceCodeId'] = race.raceCodeId if race.raceCodeId
+          xml.mmlPi :race, race.value, attributes
+        end
+        xml.mmlPi :marital, marital
+        xml.mmlPi :addresses do
+          addresses.each do |address|
+            xml << address.to_xml
+          end
+        end if addresses
+        xml.mmlPi :emailAddresses do
+          emailAddresses.each do |email|
+            xml.mmlCm :email, email
+          end if emailAddresses
+        end if emailAddresses
+        xml.mmlPi :phones do
+          phones.each do |phone|
+            xml << phone.to_xml
+          end
+        end if phones
+        xml.mmlPi :accountNumber, accountNumber if accountNumber
+        xml.mmlPi :socialIdentification, socialIdentification if socialIdentification
+        death_attr = Hash.new
+        death_attr = {'mmlPi:date' => death.date} if death.date
+        xml.mmlPi :death, death.flag.to_s, death_attr unless death.nil?
+      end

data/lib/xml/personalizedinfo.xml.builder

@@ -0,0 +1,25 @@
+      xml.mmlPsi :PersonalizedInfo do
+        xml << id.to_xml
+        xml.mmlPsi :personName do
+          personName.each do |n|
+            xml << n.to_xml
+          end
+        end
+        xml << facility.to_xml if facility
+        xml << department.to_xml if department
+        xml.mmlPsi :addresses do
+          addresses.each do |address|
+            xml << address.to_xml
+          end
+        end if addresses
+        xml.mmlPsi :emailAddresses do
+          emailAddresses.each do |email|
+            xml.mmlCm :email, email
+          end
+        end if emailAddresses
+        xml.mmlPsi :phones do
+          phones.each do |phone|
+            xml << phone.to_xml
+          end
+        end if phones
+      end

data/lib/xml/phone.xml.builder

@@ -0,0 +1,10 @@
+      attributes = {'mmlPh:telEquipType' => telEquipType} if telEquipType
+      xml.mmlPh :Phone, attributes do
+        xml.mmlPh :area, area if area
+        xml.mmlPh :city, city if city
+        xml.mmlPh :number, number if number
+        xml.mmlPh :extension, extension if extension
+        xml.mmlPh :full, full if full
+        xml.mmlPh :country, country if country
+        xml.mmlPh :memo, memo if memo
+      end

data/lib/xml/progresscourse.xml.builder

@@ -0,0 +1,89 @@
+      xml.mmlPc :ProgressCourseModule do
+        xml.mmlPc :FreeExpression do
+          xml << freeExpression
+          extRef.each do |ref|
+            xml << ref.to_xml
+          end if extRef
+        end if freeExpression
+        xml.mmlPc :structuredExpression do
+          structuredExpression.each do |item|
+            xml.mmlPc :problemItem do
+              attributes = Hash.new
+              attributes = {'mmlPc:dxUid' => item.dxUid} if item.dxUid
+              xml.mmlPc :problem, item.problem, attributes
+              xml.mmlPc :subjective do
+                xml.mmlPc :freeNotes, item.subjective.freeNotes if item.subjective.freeNotes
+                xml.mmlPc :subjectiveItem do
+                  item.subjective.subjectiveItem.each do |sitem|
+                    xml.mmlPc :timeExpression, sitem.timeExpression
+                    sitem.eventExpression.each do |event|
+                      xml.mmlPc :eventExpression, event
+                    end if sitem.eventExpression
+                  end
+                end if item.subjective.subjectiveItem
+              end if item.subjective
+              xml.mmlPc :objective do
+                xml.mmlPc :objectiveNotes, item.objective.objectiveNotes if item.objective.objectiveNotes
+                xml.mmlPc :physicalExam do
+                  item.objective.physicalExam.each do |pitem|
+                    xml.mmlPc :physicalExamItem do
+                      xml.mmlPc :title, pitem.title
+                      xml.mmlPc :result, pitem.result
+                      xml.mmlPc :interpretation, pitem.interpretation if pitem.interpretation
+                      xml.mmlPc :referenceInfo do
+                        pitem.referenceInfo.each do |ref|
+                          xml << ref.to_xml
+                        end
+                      end if pitem.referenceInfo
+                    end
+                  end
+                end if item.objective.physicalExam
+                xml.mmlPc :testResult do
+                  xml << item.objective.testResult.value
+                  item.objective.testResult.link.each do |ref|
+                    xml << ref.to_xml
+                  end if item.objective.testResult.link
+                end if item.objective.testResult
+                xml.mmlPc :rxRecord do
+                  xml << item.objective.rxRecord.value
+                  item.objective.rxRecord.link.each do |ref|
+                    xml << ref.to_xml
+                  end if item.objective.rxRecord.link
+                end if item.objective.rxRecord
+                xml.mmlPc :txRecord do
+                  xml << item.objective.txRecord.value
+                  item.objective.txRecord.link.each do |ref|
+                    xml << ref.to_xml
+                  end
+                end if item.objective.txRecord
+              end if item.objective
+              xml.mmlPc :assessment do
+                item.assessment.each do |aitem|
+                  xml.mmlPc :assessmentItem, aitem
+                end
+              end if item.assessment
+              xml.mmlPc :plan do
+                xml.mmlPc :testOrder do
+                  xml << item.plan.testOrder.value
+                  item.plan.testOrder.link.each do |ref|
+                    xml << ref.to_xml
+                  end if item.plan.testOrder.link
+                end if item.plan.testOrder
+                xml.mmlPc :rxOrder do
+                  xml << item.plan.rxOrder.value
+                  item.plan.rxOrder.link.each do |ref|
+                    xml << ref.to_xml
+                  end if item.plan.rxOrder.link
+                end if item.plan.rxOrder
+                xml.mmlPc :txOrder do
+                  xml << item.plan.txOrder.value
+                  item.plan.txOrder.link.each do |ref|
+                    xml << ref.to_xml
+                  end if item.plan.txOrder.link
+                end if item.plan.txOrder
+                xml.mmlPc :planNotes, item.plan.planNotes
+              end if item.plan
+            end
+          end
+        end if structuredExpression
+      end

data/lib/xml/registereddiagnosis.xml.builder

@@ -0,0 +1,27 @@
+      xml.mmlRd :RegisteredDiagnosisModule do
+        attributes = Hash.new
+        attributes = {'mmlRd:code' => code} if code
+        attributes['mmlRd:system'] = system if system
+        xml.mmlRd :diagnosis, attributes, diagnosis
+        xml.mmlRd :diagnosisContens do
+          diagnosisContents.each do |item|
+            attributes = Hash.new
+            attributes = {'mmlRd:code' => item.code} if item.code
+            attributes['mmlRd:system'] = item.system if item.system
+            xml.mmlRd :dxItem, attributes do
+              xml.mmlRd :name, item.name
+            end
+          end
+        end if diagnosisContents
+        xml.mmlRd :categories do
+          categories.each do |category|
+            xml.mmlRd :category, {'mmlRd:tableId' => category.tableId}, category.value
+          end
+        end if categories
+        xml.mmlRd :startDate, startDate if startDate
+        xml.mmlRd :endDate, endDate if endDate
+        xml.mmlRd :outcome, outcome if outcome
+        xml.mmlRd :firstEncounterDate, firstEncounterDate if firstEncounterDate
+        attributes = 
+        xml.mmlRd :relatedHealthInsurance, {'mmlRd:uid' => relatedHealthInsurance} if relatedHealthInsurance
+      end

data/lib/xml/staffinfo.xml.builder

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

data/lib/xml/summary.xml.builder

@@ -0,0 +1,125 @@
+xml.mmlSm :SummaryModule do
+  attributes = Hash.new
+  attributes['mmlSm:start'] = serviceHistory.start if serviceHistory.start
+  attributes['mmlSm:end'] = serviceHistory.end if serviceHistory.end
+  xml.mmlSm :serviceHistory, attributes do
+    xml.mmlSm :outPatient do
+      serviceHistory.outPatient.each do |item|
+        xml.mmlSm :outPatientItem do
+          xml.mmlSm :date, item.date
+          condition_attr = Hash.new
+          condition_attr['mmlSm:first'] = item.first unless item.first.nil?
+          condition_attr['mmlSm:emergency'] = item.emergency unless item.emergency.nil?
+          xml.mmlSm :outPatientCondition, item.outPatientCondition, condition_attr if item.outPatientCondition
+          xml.mmlSm :staffs do
+            item.staffs.each do |staff|
+              xml << staff.to_xml
+            end
+          end if item.staffs
+        end
+      end
+    end if serviceHistory.outPatient
+    xml.mmlSm :inPatient do
+      serviceHistory.inPatient.each do |item|
+        xml.mmlSm :inPatientItem do
+          xml.mmlSm :admission do
+            xml.mmlSm :date, item.admission.date
+            if item.admission.admissionCondition
+              admission_attr = Hash.new
+              admission_attr['mmlSm:emergency'] = item.admission.emergency unless item.admission.emergency.nil?
+              xml.mmlSm :admissionCondition, item.admission.admissionCondition, admission_attr
+            end
+            xml.mmlSm :referFrom do
+              xml << item.admission.referFrom.to_xml
+            end if item.admission.referFrom
+          end
+          xml.mmlSm :discharge do
+            xml.mmlSm :date, item.discharge.date
+            if item.discharge.dischargeCondition
+              discharge_attr = Hash.new
+              discharge_attr['mmlSm:outcome'] = item.discharge.outcome if item.discharge.outcome
+              xml.mmlSm :dischargeCondition, item.discharge.dischargeCondition, discharge_attr
+            end
+            xml.mmlSm :referTo do
+              xml << item.discharge.referTo.to_xml
+            end if item.discharge.referTo
+          end
+          xml.mmlSm :staffs do
+            item.staffs.each do |staff|
+              xml << staff.to_xml
+            end
+          end if item.staffs
+        end
+      end 
+    end if serviceHistory.inPatient
+  end
+  registeredDiagnosis.each do |diagnosis|
+    xml << diagnosis.to_xml
+  end if registeredDiagnosis
+  if deathInfo
+    death_attr = Hash.new
+    death_attr['mmlSm:date'] = deathInfo.date if deathInfo.date
+    death_attr['mmlSm:autopsy'] = deathInfo.autopsy unless deathInfo.autopsy.nil?
+    xml.mmlSm :deathInfo, deathInfo.value, death_attr
+  end
+  surgeryModule.each do |surgery|
+    xml << surgery.to_xml
+  end if surgeryModule
+  xml.mmlSm :chiefComplaints, chiefComplaints if chiefComplaints
+  xml.mmlSm :patientProfile, patientProfile if patientProfile
+  xml.mmlSm :history, history if history
+  xml.mmlSm :physicalExam do
+    xml << physicalExam.value
+    physicalExam.link.each do |link|
+      xml << link.to_xml
+    end if physicalExam.link
+  end if physicalExam
+  xml.mmlSm :clinicalCourse do
+    clinicalCourse.each do |record|
+      record_attr = Hash.new
+      record_attr['mmlSm:date'] = record.date
+      xml.mmlSm :clinicalRecord, record_attr do
+        xml << record.value
+        record.extRef.each do |ref|
+          xml << ref.to_xml
+        end if record.extRef
+        record.relatedDoc.each do |doc|
+          doc_attr = Hash.new
+          doc_attr['mmlSm:relation'] = doc.relation if doc.relation
+          xml.mmlSm :relatedDoc, doc.value, doc_attr
+        end if record.relatedDoc
+      end
+    end
+  end if clinicalCourse
+  xml.mmlSm :dischargeFindings do
+    xml << dischargeFindings.value
+    dischargeFindings.link.each do |link|
+      xml << link.to_xml
+    end if dischargeFindings.link
+  end if dischargeFindings
+  xml.mmlSm :medication do
+    xml << medication.value
+    medication.link.each do |link|
+      xml << link.to_xml
+    end if medication.link
+  end if medication
+  xml.mmlSm :testResults do
+    testResults.each do |test|
+      test_attr = Hash.new
+      test_attr['mmlSm:date'] = test.date if test.date
+      xml.mmlSm :testResult, test_attr do
+        xml << test.value
+        test.link.each do |link|
+          xml << link.to_xml
+        end if test.link
+      end
+    end
+  end if testResults
+  xml.mmlSm :plan do
+    xml << plan.value
+    plan.link.each do |link|
+      xml << link.to_xml
+    end if plan.link
+  end if plan
+  xml.mmlSm :remarks, remarks if remarks
+end