ccls-ccls_engine 3.11.0

data/lib/ccls_engine/factory_test_helper.rb

@@ -0,0 +1,276 @@
+module Ccls::FactoryTestHelper
+
+#../ccls_engine/test/unit/ccls/study_subject_test.rb
+#../homex/test/functional/followup/study_subjects_controller_test.rb
+#../homex/test/functional/home_exposure_responses_controller_test.rb
+#../homex/test/functional/interview/study_subjects_controller_test.rb
+#../homex/test/functional/sample/study_subjects_controller_test.rb
+#../homex/test/functional/study_subjects_controller_test.rb
+	def create_home_exposure_with_study_subject(options={})
+		study_subject = project = nil
+		unless options[:patient].nil?
+			options[:study_subject] ||= {}
+			options[:study_subject][:subject_type] = SubjectType['Case']
+		end
+		assert_difference('StudySubject.count',1) {
+			study_subject    = Factory(:study_subject,options[:study_subject]||{})
+		}
+		project = Project.find_or_create_by_key('HomeExposures')
+		assert_not_nil project
+		assert_difference('StudySubject.count',0) {
+		assert_difference('Enrollment.count',1) {
+			Factory(:enrollment, (options[:enrollment]||{}).merge(
+				:study_subject => study_subject, :project => project ))
+		} }
+		unless options[:patient].nil?
+			assert_difference('StudySubject.count',0) {
+			assert_difference('Patient.count',1) {
+				Factory(:patient, :study_subject => study_subject )
+			} }
+		end
+		study_subject
+	end
+
+#../ccls_engine/test/unit/ccls/addressing_test.rb
+#../ccls_engine/test/unit/ccls/interview_test.rb
+#../ccls_engine/test/unit/ccls/sample_test.rb
+#../ccls_engine/test/unit/ccls/study_subject_search_test.rb
+#../homex/test/functional/addressings_controller_test.rb
+#../homex/test/functional/events_controller_test.rb
+#../homex/test/functional/followup/study_subjects_controller_test.rb
+#../homex/test/functional/interview/study_subjects_controller_test.rb
+	alias_method :create_hx_study_subject, 
+		:create_home_exposure_with_study_subject
+
+
+#../ccls_engine/test/unit/ccls/addressing_test.rb
+#../homex/test/functional/addressings_controller_test.rb
+	def create_eligible_hx_study_subject()
+		study_subject = nil
+		assert_nil study_subject
+		assert_difference('Enrollment.count',2) {	#	homex and auto-created ccls
+		assert_difference('StudySubject.count',1) {
+			study_subject = create_hx_study_subject(:enrollment => {
+				:is_eligible => YNDK[:yes] })
+		} }
+		assert_not_nil study_subject
+		assert_study_subject_is_eligible(study_subject)
+		study_subject
+	end
+
+#../ccls_engine/test/unit/ccls/study_subject_interviews_test.rb
+#../homex/test/functional/interview/study_subjects_controller_test.rb
+	def create_hx_interview_study_subject(options={})
+		study_subject = create_hx_study_subject
+		instrument = Factory(:instrument, 
+			:project => Project.find_or_create_by_key('HomeExposures'))
+		instrument_version = Factory(:instrument_version, 
+			:instrument => instrument)
+		interview = Factory(:interview, 
+			:study_subject => study_subject,
+			:instrument_version => instrument_version)
+		study_subject
+	end
+
+	def create_study_subjects(count=0,options={})
+		study_subjects = []
+		count.times{ study_subjects.push(create_study_subject(options)) }
+		return study_subjects
+	end
+
+	def create_study_subjects_with_recruitment_priorities(*priorities)
+		project = nil
+		assert_difference('Project.count',1) {
+			project = Factory(:project)
+		}
+		study_subjects = priorities.collect do |priority|
+			study_subject = nil
+			assert_difference('Enrollment.count',1){	#	auto-created ccls enrollment
+			assert_difference('StudySubject.count',1) {
+				study_subject = create_study_subject
+			} }
+			assert_difference('Enrollment.count',1){
+				Factory(:enrollment, :project => project, 
+					:study_subject => study_subject,
+					:recruitment_priority => priority)
+			}
+			study_subject
+		end
+		return [project,*study_subjects]
+	end
+
+	def create_study_subject_with_gift_card_number(gift_card_number)
+		study_subject = create_study_subject
+		Factory(:gift_card, 
+			:study_subject => study_subject,
+			:number  => gift_card_number )
+		study_subject
+	end
+
+	def create_study_subjects_with_races(count=0,options={})
+		study_subjects = create_study_subjects(count)
+		study_subjects.each{|s|s.races << Factory(:race)}
+		study_subjects
+	end
+
+	def create_study_subject_with_childid(childid)
+		StudySubject.any_instance.stubs(:get_next_childid).returns(childid)
+		study_subject = Factory(:study_subject)
+		StudySubject.any_instance.unstub(:get_next_childid)
+		assert_not_nil study_subject.childid
+		assert_equal childid.to_s, study_subject.childid.to_s
+		study_subject
+	end
+
+	def three_study_subjects_with_childid
+		create_study_subjects_with_childids(9,3,6)
+	end
+
+	def create_study_subject_with_patid(patid)
+		study_subject = Factory(:study_subject)	#not case so shouldn't create patid
+		assert_nil     study_subject.patid
+		study_subject.update_attribute(:patid, patid)
+		assert_not_nil study_subject.patid
+		assert_equal patid.to_s, study_subject.patid.to_s
+		study_subject
+	end
+	alias_method :create_study_subject_with_studyid,
+		:create_study_subject_with_patid
+
+	def three_study_subjects_with_patid
+		create_study_subjects_with_patids(9,3,6)
+	end
+	alias_method :three_study_subjects_with_studyid,
+		:three_study_subjects_with_patid
+
+	def create_study_subject_with_last_name(last_name)
+		create_study_subject( :last_name => last_name )
+	end
+	
+	def three_study_subjects_with_last_name
+		create_study_subjects_with_last_names('9','3','6')
+	end
+
+	def create_study_subject_with_first_name(first_name)
+		create_study_subject( :first_name => first_name )
+	end
+	
+	def three_study_subjects_with_first_name
+		create_study_subjects_with_first_names('9','3','6')
+	end
+
+	def create_study_subject_with_dob(dob)
+		#	Time.parse?  Why not Date? Time.parse parses better.
+		create_study_subject( :dob => Time.parse(dob) )	
+	end
+
+	def three_study_subjects_with_dob
+		create_study_subjects_with_dobs(
+			'12/31/2005','12/31/2001','12/31/2003')
+	end
+
+	#
+	#	three_study_subjects_with_* methods called from StudySubjectSearchTest
+	#
+	def three_study_subjects_with_sample_outcome_on
+		create_study_subjects_with_sample_outcome_ons(
+			'12/31/2005','12/31/2001','12/31/2003')
+	end
+
+	def three_study_subjects_with_sample_outcome
+		create_study_subjects_with_sample_outcomes('9','3','6')
+	end
+
+	def three_study_subjects_with_interview_outcome_on
+		create_study_subjects_with_interview_outcome_ons(
+			'12/31/2005','12/31/2001','12/31/2003')
+	end
+
+#	def three_study_subjects_with_sent_to_subject_on
+#		create_study_subjects_with_sent_to_subject_on(
+#			'12/31/2005','12/31/2001','12/31/2003')
+#	end
+#
+#	def three_study_subjects_with_received_by_ccls_at
+#		create_study_subjects_with_received_by_ccls_at(
+#			'12/31/2005','12/31/2001','12/31/2003')
+#	end
+
+	def create_case_study_subject_with_patid(patid)
+		StudySubject.any_instance.stubs(:get_next_patid).returns(patid)
+		study_subject = create_case_study_subject
+		StudySubject.any_instance.unstub(:get_next_patid)
+		study_subject.reload
+	end
+
+#########
+
+	def method_missing_with_pluralization(symb,*args, &block)
+		method_name = symb.to_s
+		if method_name =~ /^create_(.*)_with_(.*)$/
+			model     = $1.singularize
+			attribute = $2.singularize
+			args.collect do |arg|
+				send("create_#{model}_with_#{attribute}",arg)
+			end
+		else
+			method_missing_without_pluralization(symb, *args, &block)
+		end
+	end
+
+	def self.included(base)
+		base.alias_method_chain( :method_missing, :pluralization 
+			) unless base.respond_to?(:method_missing_without_pluralization)
+	end
+
+
+protected	#	NOT called from the outside
+
+	def create_study_subject_with_sample_outcome_on(date)
+		s = create_hx_study_subject
+		s.update_attributes( 
+			:homex_outcome_attributes => Factory.attributes_for(:homex_outcome,
+				:sample_outcome_on => date) )
+		s
+	end
+
+	def create_study_subject_with_sample_outcome(outcome)
+		s = create_hx_study_subject
+		s.update_attributes( 
+			:homex_outcome_attributes => Factory.attributes_for(:homex_outcome,
+				:sample_outcome_id => outcome) )
+		s
+	end
+
+	def create_study_subject_with_interview_outcome_on(date)
+		create_hx_study_subject(:study_subject => {
+			:homex_outcome_attributes => Factory.attributes_for(:homex_outcome,
+				:interview_outcome_on => date ) })
+	end
+
+#	#	only called through pluralization
+#	def create_study_subject_with_sent_to_subject_on(date)
+#		study_subject = create_hx_study_subject
+#		Factory(:sample,
+#			:study_subject => study_subject,
+#			:sent_to_subject_on => Date.parse(date)
+#		)
+#		study_subject
+#	end
+#
+#	#	only called through pluralization
+#	def create_study_subject_with_received_by_ccls_at(date)
+#		study_subject = create_hx_study_subject
+#		Factory(:sample,
+#			:study_subject => study_subject,
+#			:sent_to_subject_on  => (Date.parse(date) - 10.days),
+##			:collected_at        => (Time.zone.parse(date) - 5.days),
+##			:received_by_ccls_at => Time.zone.parse(date)
+#			:collected_at        => (Date.parse(date) - 5.days),
+#			:received_by_ccls_at => Date.parse(date)
+#		)
+#		study_subject
+#	end
+
+end
+ActiveSupport::TestCase.send(:include, Ccls::FactoryTestHelper)

data/lib/ccls_engine/helper.rb

@@ -0,0 +1,112 @@
+module Ccls::Helper
+
+	def sort_up_image
+		"#{Rails.root}/public/images/sort_up.png"
+	end
+
+	def sort_down_image
+		"#{Rails.root}/public/images/sort_down.png"
+	end
+
+	#	↑ and ↓
+	def sort_link(column,text=nil)
+		#	make local copy so mods to muck up real params which
+		#	may still be references elsewhere.
+		local_params = params.dup
+
+#
+#	May want to NOT flip dir for other columns.  Only the current order.
+#	Will wait until someone else makes the suggestion.
+#
+		order = column.to_s.downcase.gsub(/\s+/,'_')
+		dir = ( local_params[:dir] && local_params[:dir] == 'asc' ) ? 'desc' : 'asc'
+
+		local_params[:page] = nil
+		link_text = text||column
+		classes = ['sortable',order]
+		arrow = ''
+		if local_params[:order] && local_params[:order] == order
+			classes.push('sorted')
+			arrow = if dir == 'desc'
+				if File.exists? sort_down_image
+					image_tag( File.basename(sort_down_image), :class => 'down arrow')
+				else
+					"<span class='down arrow'>&darr;</span>"
+				end
+			else
+				if File.exists? sort_up_image
+					image_tag( File.basename(sort_up_image), :class => 'up arrow')
+				else
+					"<span class='up arrow'>&uarr;</span>"
+				end
+			end
+		end
+		s = "<div class='#{classes.join(' ')}'>"
+		s << link_to(link_text,local_params.merge(:order => order,:dir => dir))
+		s << arrow unless arrow.blank?
+		s << "</div>"
+		s
+	end
+
+	def user_roles
+		s = ''
+		if current_user.may_administrate?
+			s << "<ul>"
+			@roles.each do |role|
+				s << "<li>"
+				if @user.role_names.include?(role.name)
+					s << link_to( "Remove user role of '#{role.name}'", 
+						user_role_path(@user,role.name),
+						:method => :delete )
+				else
+					s << link_to( "Assign user role of '#{role.name}'", 
+						user_role_path(@user,role.name),
+						:method => :put )
+				end
+				s << "</li>\n"
+			end
+			s << "</ul>\n"
+		end
+		s
+	end
+
+	#	Used to replace the _id_bar partial
+	def subject_id_bar(study_subject,&block)
+		stylesheets('study_subject_id_bar')
+		content_for :main do
+			"<div id='id_bar'>\n" <<
+			"<div class='childid'>\n" <<
+			"<span>ChildID:</span>\n" <<
+			"<span>#{study_subject.try(:childid)}</span>\n" <<
+			"</div><!-- class='childid' -->\n" <<
+			"<div class='studyid'>\n" <<
+			"<span>StudyID:</span>\n" <<
+			"<span>#{study_subject.try(:studyid)}</span>\n" <<
+			"</div><!-- class='studyid' -->\n" <<
+			"<div class='full_name'>\n" <<
+			"<span>#{study_subject.full_name}</span>\n" <<
+			"</div><!-- class='full_name' -->\n" <<
+			"<div class='controls'>\n" <<
+			@content_for_id_bar.to_s <<
+			((block_given?)?yield: '') <<
+			"</div><!-- class='controls' -->\n" <<
+			"</div><!-- id='id_bar' -->\n"
+		end
+
+		content_for :main do
+			"<div id='do_not_contact'>\n" <<
+			"Study Subject requests no further contact with Study.\n" <<
+			"</div>\n" 
+		end if study_subject.try(:do_not_contact?)
+	end	#	id_bar_for
+	alias_method :study_subject_id_bar, :subject_id_bar
+
+	#	Just a simple method to wrap the passed text in a span
+	#	with class='required'
+	def required(text)
+		"<span class='required'>#{text}</span>"
+	end
+	alias_method :req, :required
+
+end
+ActionView::Base.send(:include, Ccls::Helper)

data/lib/ccls_engine/icf_master_tracker_update_test_helper.rb

@@ -0,0 +1,121 @@
+module Ccls::IcfMasterTrackerUpdateTestHelper
+
+	def create_test_file_and_icf_master_tracker_update(options={})
+		create_icf_master_tracker_update_test_file(options)
+		icf_master_tracker_update = create_icf_master_tracker_update_with_file
+	end
+
+	def create_icf_master_tracker_update_with_file
+		icf_master_tracker_update = Factory(:icf_master_tracker_update,
+			:csv_file => File.open(csv_test_file_name) )
+		assert_not_nil icf_master_tracker_update.csv_file_file_name
+		icf_master_tracker_update
+	end
+
+	def cleanup_icf_master_tracker_update_and_test_file(icf_master_tracker_update=nil)
+		if icf_master_tracker_update
+			icf_master_tracker_update_file = icf_master_tracker_update.csv_file.path
+			#	explicit destroy to remove attachment
+			icf_master_tracker_update.destroy	
+			unless icf_master_tracker_update_file.blank?
+				assert !File.exists?(icf_master_tracker_update_file)
+			end
+			if File.exists?("test/icf_master_tracker_update/#{icf_master_tracker_update.id}") &&
+				File.directory?("test/icf_master_tracker_update/#{icf_master_tracker_update.id}")
+				Dir.delete("test/icf_master_tracker_update/#{icf_master_tracker_update.id}")
+			end
+		end
+		if File.exists?(csv_test_file_name)
+			#	explicit delete to remove test file
+			File.delete(csv_test_file_name)	
+		end
+		assert !File.exists?(csv_test_file_name)
+	end
+
+	def create_case_for_icf_master_tracker_update
+		icf_master_id = Factory(:icf_master_id,:icf_master_id => '1234FAKE')
+		study_subject = Factory(:complete_case_study_subject)
+		study_subject.assign_icf_master_id
+		assert_equal '1234FAKE', study_subject.icf_master_id
+		study_subject
+	end
+
+	def csv_file_header_array
+#		["Masterid","Motherid","Record_Owner","Datereceived","Lastatt","Lastdisp","Currphone","Vacauthrecd","Recollect","Needpreincentive","Active_Phone","Recordsentformatching","Recordreceivedfrommatching","Sentpreincentive","Releasedtocati","Confirmedcaticontact","Refused","Deceasednotification","Eligible","Confirmationpacketsent","Catiprotocolexhausted","Newphonenumreleasedtocati","Pleanotificationsent","Casereturnedtoberkeleyfornewinf","Casereturnedfromberkeley","Caticomplete","Kitmothersent","Kitinfantsent","Kitchildsent","Kitadolescentsent","Kitmotherrefusedcode","Kitchildrefusedcode","Noresponsetoplea","Responsereceivedfromplea","Senttoinpersonfollowup","Kitmotherrecd","Kitchildrecvd","Thankyousent","Physrequestsent","Physresponsereceived"]
+		%w{Masterid Motherid Record_Owner Datereceived Lastatt Lastdisp Currphone Vacauthrecd Recollect Needpreincentive Active_Phone Recordsentformatching Recordreceivedfrommatching Sentpreincentive Releasedtocati Confirmedcaticontact Refused Deceasednotification Eligible Confirmationpacketsent Catiprotocolexhausted Newphonenumreleasedtocati Pleanotificationsent Casereturnedtoberkeleyfornewinf Casereturnedfromberkeley Caticomplete Kitmothersent Kitinfantsent Kitchildsent Kitadolescentsent Kitmotherrefusedcode Kitchildrefusedcode Noresponsetoplea Responsereceivedfromplea Senttoinpersonfollowup Kitmotherrecd Kitchildrecvd Thankyousent Physrequestsent Physresponsereceived}
+	end
+
+	def csv_file_header
+		csv_file_header_array.collect{|s|"\"#{s}\""}.join(',')
+	end
+
+	def csv_file_study_subject(options={})
+		subject = study_subject_hash.merge(options)
+		csv_file_header_array.collect{|s|"\"#{subject[s]}\""}.join(',')
+	end
+
+	def study_subject_hash
+		{
+			"Masterid" => "1234FAKE",
+			"Motherid" => "4567FAKE"
+
+#			"Record_Owner" => "ICF",
+#			"Datereceived" => "9/9/2011",
+#			"Lastatt" => "12/17/2011",
+#			"Lastdisp" => "113",
+#			"Currphone" => "2 of 2",
+#			"Vacauthrecd" => nil,
+#			"Recollect" => nil,
+#			"Needpreincentive" => "9/17/11 9:29 AM",
+#			"Active_Phone" => nil,
+#			"Recordsentformatching" => "9/16/2011",
+#			"Recordreceivedfrommatching" => "9/16/2011",
+#			"Sentpreincentive" => "9/17/2011",
+#			"Releasedtocati" => "9/17/2011",
+#			"Confirmedcaticontact" => "9/28/2011",
+#			"Refused" => "12/15/2011",
+#			"Deceasednotification" => nil,
+#			"Eligible" => nil,
+#			"Confirmationpacketsent" => nil,
+#			"Catiprotocolexhausted" => "12/17/2011",
+#			"Newphonenumreleasedtocati" => "11/14/2011",
+#			"Pleanotificationsent" => "11/14/2011",
+#			"Casereturnedtoberkeleyfornewinf" => "12/19/2011",
+#			"Casereturnedfromberkeley" => "12/22/2011",
+#			"Caticomplete" => nil,
+#			"Kitmothersent" => nil,
+#			"Kitinfantsent" => nil,
+#			"Kitchildsent" => nil,
+#			"Kitadolescentsent" => nil,
+#			"Kitmotherrefusedcode" => nil,
+#			"Kitchildrefusedcode" => nil,
+#			"Noresponsetoplea" => nil,
+#			"Responsereceivedfromplea" => nil,
+#			"Senttoinpersonfollowup" => nil,
+#			"Kitmotherrecd" => nil,
+#			"Kitchildrecvd" => nil,
+#			"Thankyousent" => nil,
+#			"Physrequestsent" => nil,
+#			"Physresponsereceived" => nil
+		}
+	end
+
+	def create_icf_master_tracker_update_test_file(options={})
+		File.open(csv_test_file_name,'w'){|f|
+			f.puts csv_file_header
+			f.puts csv_file_study_subject(options)
+		}
+	end
+
+	def turn_off_paperclip_logging
+		#	Is there I way to silence the paperclip output?  Yes...
+		Paperclip.options[:log] = false
+		#	Is there I way to capture the paperclip output for comparison?  Don't know.
+	end
+
+#	shouldn't be called test_... as makes it a test method!
+	def csv_test_file_name
+		"icf_master_tracker_update_test_file.csv"
+	end
+
+end