ccls-ccls_engine 3.11.0

data/app/models/instrument.rb

@@ -0,0 +1,26 @@
+class Instrument < ActiveRecordShared
+
+	acts_as_list
+	default_scope :order => :position
+
+	acts_like_a_hash
+
+	belongs_to :project
+	belongs_to :interview_method
+	has_many :instrument_versions
+
+	validates_presence_of   :project_id
+	validates_presence_of   :project, :if => :project_id
+
+	validates_presence_of   :name
+	validates_length_of     :name, :maximum => 250, :allow_blank => true
+
+	validates_complete_date_for :began_use_on, :allow_nil => true
+	validates_complete_date_for :ended_use_on, :allow_nil => true
+
+	#	Return name
+	def to_s
+		name
+	end
+
+end

data/app/models/instrument_type.rb

@@ -0,0 +1,17 @@
+#	==	requires
+#	*	description ( unique and > 3 chars )
+#	*	project
+class InstrumentType < ActiveRecordShared
+
+	acts_as_list
+	default_scope :order => :position
+
+	acts_like_a_hash
+
+	belongs_to :project
+	has_many :instrument_versions
+
+	validates_presence_of   :project_id
+	validates_presence_of   :project, :if => :project_id
+
+end

data/app/models/instrument_version.rb

@@ -0,0 +1,28 @@
+#	==	requires
+#	*	key ( unique )
+#	*	description ( unique and > 3 chars )
+#	*	interview_type_id
+class InstrumentVersion < ActiveRecordShared
+
+	acts_as_list
+	default_scope :order => :position
+
+	acts_like_a_hash
+
+	belongs_to :language
+	belongs_to :instrument_type
+	belongs_to :instrument
+	has_many :interviews
+
+	validates_presence_of   :instrument_type_id
+	validates_presence_of   :instrument_type, :if => :instrument_type_id
+
+	validates_complete_date_for :began_use_on, :allow_nil => true
+	validates_complete_date_for :ended_use_on, :allow_nil => true
+
+	#	Returns description
+	def to_s
+		description
+	end
+
+end

data/app/models/interview.rb

@@ -0,0 +1,122 @@
+#	==	requires
+#	*	address_id
+#	*	interviewer_id
+#	*	study_subject_id
+class Interview < ActiveRecordShared
+
+	belongs_to :study_subject
+	attr_protected( :study_subject_id, :study_subject )
+
+	##
+	#	why is this here?	Homex for assigning interview outcome
+	accepts_nested_attributes_for :study_subject
+
+	belongs_to :address
+	belongs_to :interviewer, :class_name => 'Person'
+	belongs_to :instrument_version
+	belongs_to :interview_method
+	belongs_to :language
+	belongs_to :subject_relationship
+
+	delegate :is_other?, :to => :subject_relationship, :allow_nil => true, :prefix => true
+
+	validates_complete_date_for :began_on, :allow_nil => true
+	validates_complete_date_for :ended_on, :allow_nil => true
+	validates_complete_date_for :intro_letter_sent_on, :allow_nil => true
+
+	validates_length_of :subject_relationship_other, :maximum => 250, :allow_blank => true
+	validates_length_of :respondent_first_name,      :maximum => 250, :allow_blank => true
+	validates_length_of :respondent_last_name,       :maximum => 250, :allow_blank => true
+
+	validate :presence_of_subject_relationship_other,
+		:if => :subject_relationship_is_other?
+
+	validates_absence_of :subject_relationship_other,
+		:message => "not allowed",
+		:if => :subject_relationship_id_blank?
+
+	validates_inclusion_of :began_at_hour, :in => (1..12),
+		:allow_blank => true
+	validates_inclusion_of :began_at_minute, :in => (0..59),
+		:allow_blank => true
+	validates_format_of    :began_at_meridiem, :with => /\A(AM|PM)\z/i,
+		:allow_blank => true
+	validates_inclusion_of :ended_at_hour, :in => (1..12),
+		:allow_blank => true
+	validates_inclusion_of :ended_at_minute, :in => (0..59),
+		:allow_blank => true
+	validates_format_of    :ended_at_meridiem, :with => /\A(AM|PM)\z/i,
+		:allow_blank => true
+
+	before_save :update_intro_operational_event,
+		:if => :intro_letter_sent_on_changed?
+
+	before_save :set_began_at
+	before_save :set_ended_at
+	attr_protected :began_at
+	attr_protected :ended_at
+
+	#	Returns string containing respondent's first and last name
+	def respondent_full_name
+		[respondent_first_name, respondent_last_name].compact.join(' ')
+	end
+
+protected
+
+	def set_began_at
+		if [began_on, began_at_hour,began_at_minute,began_at_meridiem].all?
+			self.began_at = DateTime.parse(
+				"#{began_on} #{began_at_hour}:#{began_at_minute} #{began_at_meridiem}")
+#				"#{began_on} #{began_at_hour}:#{began_at_minute} #{began_at_meridiem} PST")
+		else
+			self.began_at = nil
+		end
+	end
+
+	def set_ended_at
+		if [ended_on, ended_at_hour,ended_at_minute,ended_at_meridiem].all?
+			self.ended_at = DateTime.parse(
+				"#{ended_on} #{ended_at_hour}:#{ended_at_minute} #{ended_at_meridiem}")
+#				"#{ended_on} #{ended_at_hour}:#{ended_at_minute} #{ended_at_meridiem} PST")
+		else
+			self.ended_at = nil
+		end
+	end
+
+	def subject_relationship_id_blank?
+		subject_relationship_id.blank?
+	end
+
+	def update_intro_operational_event
+		oet = OperationalEventType['intro']
+		hxe = study_subject.enrollments.find_by_project_id(Project['HomeExposures'].id)
+		if oet && hxe
+			oe = hxe.operational_events.find(:first,
+				:conditions => { :operational_event_type_id => oet.id } )
+			if oe
+				oe.update_attributes(
+					:description => oet.description,
+					:occurred_on => intro_letter_sent_on
+				)
+			else
+#				hxe.operational_events << OperationalEvent.create!(
+				OperationalEvent.create!(
+					:enrollment => hxe,
+					:operational_event_type => oet,
+					:description => oet.description,
+					:occurred_on => intro_letter_sent_on
+				)
+			end
+		end
+	end
+
+	#	custom validation for custom message without standard attribute prefix
+	def presence_of_subject_relationship_other
+		if subject_relationship_other.blank?
+			errors.add(:subject_relationship_other, ActiveRecord::Error.new(
+				self, :base, :blank, { 
+					:message => "You must specify a relationship with 'other relationship' is selected." } ) )
+		end
+	end
+
+end

data/app/models/interview_method.rb

@@ -0,0 +1,17 @@
+# don't know exactly
+class InterviewMethod < ActiveRecordShared
+
+	acts_as_list
+	default_scope :order => :position
+
+	acts_like_a_hash
+
+	has_many :interviews
+	has_many :instruments
+
+	#	Returns description
+	def to_s
+		description
+	end
+
+end

data/app/models/interview_outcome.rb

@@ -0,0 +1,16 @@
+# don't know exactly
+class InterviewOutcome < ActiveRecordShared
+
+	acts_as_list
+	default_scope :order => :position
+
+	acts_like_a_hash
+
+	has_many :homex_outcomes
+
+	#	Returns description
+	def to_s
+		description
+	end
+
+end

data/app/models/language.rb

@@ -0,0 +1,28 @@
+#	==	requires
+#	*	code ( unique )
+#	*	description ( unique and > 3 chars )
+class Language < ActiveRecordShared
+
+	acts_as_list
+	default_scope :order => :position
+
+	acts_like_a_hash
+
+	has_many :interviews
+	has_many :instrument_versions
+
+	validates_presence_of   :code
+	validates_uniqueness_of :code
+
+	#	Returns description
+	def to_s
+		description
+	end
+
+	#	Returns boolean of comparison
+	#	true only if key == 'other'
+	def is_other?
+		key == 'other'
+	end
+
+end

data/app/models/live_birth_data_update.rb

@@ -0,0 +1,142 @@
+class LiveBirthDataUpdate < ActiveRecordShared
+
+	has_attached_file :csv_file,
+		YAML::load(ERB.new(IO.read(File.expand_path(
+			File.join(File.dirname(__FILE__),'../..','config/live_birth_data_update.yml')
+		))).result)[Rails.env]
+
+	def to_candidate_controls
+		results = []
+		if !self.csv_file_file_name.blank? &&
+				File.exists?(self.csv_file.path)
+			(f=FasterCSV.open( self.csv_file.path, 'rb',{
+				:headers => true })).each do |line|
+
+#	masterid,ca_co_status,biomom,biodad,date,mother_full_name,mother_maiden_name,father_full_name,child_full_name,child_dobm,child_dobd,child_doby,child_gender,birthplace_country,birthplace_state,birthplace_city,mother_hispanicity,mother_hispanicity_mex,mother_race,mother_race_other,father_hispanicity,father_hispanicity_mex,father_race,father_race_other
+
+				if line['ca_co_status'] == 'case'
+					study_subject = StudySubject.find_by_icf_master_id(line['masterid'])
+					if study_subject
+						results.push(study_subject)
+					else
+						results.push("Could not find study_subject with masterid #{line['masterid']}")
+						next
+					end
+				elsif line['ca_co_status'] == 'control'
+					study_subject = StudySubject.find_by_icf_master_id(line['masterid'])
+					unless study_subject
+						results.push("Could not find study_subject with masterid #{line['masterid']}")
+						next
+					end
+
+					dob = unless( 
+							line['child_doby'].blank? || 
+							line['child_dobm'].blank? ||
+							line['child_dobd'].blank? )
+						Date.new(
+							line['child_doby'].to_i, 
+							line['child_dobm'].to_i, 
+							line['child_dobd'].to_i)
+					else
+						nil
+					end
+					child_names  = line["child_full_name"].to_s.split_name
+					father_names = line["father_full_name"].to_s.split_name
+					mother_names = line["mother_full_name"].to_s.split_name
+#
+#	incoming data may be strings, but 
+#		nil DOES NOT EQUAL "" for integer comparison
+#	so MUST nilify blank integer fields or will never find
+#	the record and will create duplicates every time.
+#
+#					biomom = ( ( line["biomom"].blank? ) ? nil : line["biomom"] )
+#					biodad = ( ( line["biodad"].blank? ) ? nil : line["biodad"] )
+#					mother_hispanicity = ( (line["mother_hispanicity"].blank? ) ?
+#						nil : line["mother_hispanicity"] )
+#					mother_race = ( (line["mother_race"].blank? ) ?
+#						nil : line["mother_race"] )
+#					father_hispanicity = ( (line["father_hispanicity"].blank? ) ?
+#						nil : line["father_hispanicity"] )
+#					father_race = ( (line["father_race"].blank? ) ?
+#						nil : line["father_race"] )
+
+					candidate_control_options = {
+#						:related_patid => identifier.patid,
+						:related_patid => study_subject.patid,
+						:mom_is_biomom => line["biomom"].nilify_blank,
+						:dad_is_biodad => line["biodad"].nilify_blank,
+#"date":nil 	#	some event's occurred on
+						:first_name  => child_names[0],
+						:middle_name => child_names[1],
+						:last_name   => child_names[2],
+#						:father_first_name  => father_names[0],	#	doesn't exist
+#						:father_middle_name => father_names[1],	#	doesn't exist
+#						:father_last_name   => father_names[2],	#	doesn't exist
+						:mother_first_name  => mother_names[0],
+						:mother_middle_name => mother_names[1],
+						:mother_last_name   => mother_names[2],
+						:mother_maiden_name => line["mother_maiden_name"],
+						:dob => dob,
+						:sex => line["child_gender"],
+#"birthplace_country":"United States" 	#	doesn't exist
+#"birthplace_state":"CA" 	#	doesn't exist
+#"birthplace_city":"Oakland" 	#	doesn't exist
+						:mother_hispanicity_id => line["mother_hispanicity"].nilify_blank,
+#"mother_hispanicity_mex":"2" 	#	doesn't exist
+						:mother_race_id => line["mother_race"].nilify_blank,
+#"mother_race_other":nil 	#	doesn't exist
+						:father_hispanicity_id => line["father_hispanicity"].nilify_blank,
+#"father_hispanicity_mex":"2" 	#	doesn't exist
+						:father_race_id => line["father_race"].nilify_blank
+#"father_race_other":nil	#	doesn't exist
+					}
+					candidate_control = CandidateControl.find(:first,
+						:conditions => candidate_control_options )
+
+					if candidate_control.nil?
+						candidate_control = CandidateControl.create( candidate_control_options )
+						#	TODO what if there's an error?
+					end
+#					unless candidate_control.new_record?
+#						results.push(candidate_control.id)
+#					end
+					results.push(candidate_control)
+
+				else
+					results.push("Unexpected ca_co_status :#{line['ca_co_status']}:")
+				end	#	elsif line['ca_co_status'] == 'control'
+			end	#	(f=FasterCSV.open( self.csv_file.path, 'rb',{ :headers => true })).each
+		end	#	if !self.csv_file_file_name.blank? && File.exists?(self.csv_file.path)
+		results	#	TODO why am I returning anything?  will I use this later?
+	end	#	def to_candidate_controls
+
+end
+
+
+#	Probably better to move this somewhere more appropriate
+#	Perhaps CommonLib::StringExtension
+#	Trying to get actual names from hospital, so, hopefully,
+#	this won't be needed.
+
+String.class_eval do
+
+	def split_name
+		#	Really only want to split on spaces so just remove the problem chars.
+		#	May have to add others later.
+		names  = self.gsub(/\240/,' ').split
+		first  = names.shift.to_s.squish
+		last   = names.pop.to_s.squish
+		middle = names.join(' ').squish
+		[first,middle,last]
+	end
+
+end
+
+#	Object and not String because could be NilClass
+Object.class_eval do
+
+	def nilify_blank
+		( self.blank? ) ? nil : self
+	end
+
+end

data/app/models/operational_event.rb

@@ -0,0 +1,99 @@
+#	==	requires
+#	*	operational_event_type_id
+class OperationalEvent < ActiveRecordShared
+
+	default_scope :order => 'occurred_on DESC'
+	belongs_to :enrollment
+	belongs_to :operational_event_type
+
+	validates_presence_of :enrollment_id
+	validates_presence_of :enrollment, :if => :enrollment_id
+
+	validates_presence_of :operational_event_type_id
+	validates_presence_of :operational_event_type, :if => :operational_event_type_id
+
+	validates_complete_date_for :occurred_on, :allow_nil => true
+	validates_length_of :description, :maximum => 250, :allow_blank => true
+	validates_length_of :event_notes, :maximum => 65000, :allow_blank => true
+
+	#	Returns description
+	def to_s
+		description
+	end
+
+#	TODO perhaps move the search stuff into OperationalEventSearch?
+
+	#	find wrapper
+	def self.search(options={})
+		find(:all,
+			:joins => joins(options),
+			:order => order(options),
+			:conditions => conditions(options)
+		)
+	end
+
+	before_save :copy_operational_event_type_description
+
+protected
+
+	def copy_operational_event_type_description
+		if self.description.blank?
+			self.description = operational_event_type.description
+		end
+	end
+
+	def self.valid_orders
+		%w( id occurred_on description type )
+	end
+
+	def self.valid_order?(order)
+		valid_orders.include?(order)
+	end
+
+	def self.order(options={})
+		if options.has_key?(:order) && valid_order?(options[:order])
+			order_string = case options[:order]
+				when 'type' then 'operational_event_types.description'
+				else options[:order]
+			end
+			dir = case options[:dir].try(:downcase)
+				when 'asc'  then 'asc'
+				when 'desc' then 'desc'
+				else 'desc'
+			end
+			[order_string,dir].join(' ')
+		else
+			nil
+		end
+	end
+
+	def self.joins(options={})
+#	TODO may have to use sql for LEFT JOINS rather than the rails symbol
+		joins = []
+		if options.has_key?(:order) && valid_order?(options[:order])
+			case options[:order]
+				when 'type' then joins << :operational_event_type
+#	'LEFT JOIN operational_event_types ON operational_events.operational_event_type_id = operational_event_types.id',
+			end
+		end	
+		if options.has_key?(:study_subject_id) and !options[:study_subject_id].blank?
+			joins << :enrollment
+#	'LEFT JOIN enrollments ON operational_events.enrollment_id = enrollments.id',
+		end
+		joins
+	end
+
+	def self.conditions(options={})
+		conditions = [[],[]]
+		if options.has_key?(:study_subject_id) and !options[:study_subject_id].blank?
+			conditions[0] << '(enrollments.study_subject_id = ?)'
+			conditions[1] << options[:study_subject_id]
+		end
+		unless conditions.flatten.empty?
+			[ conditions[0].join(' AND '), *(conditions[1].flatten) ]
+		else
+			nil
+		end
+	end
+
+end