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