pedigree_form.js

// pedigree form
(function(pedigree_form, $, undefined) {

	$("#select_all_gene_tests").on('change', function (e) {
	    if(this.value === "S") {
	    	// select all mutation search to be negative
	    	$("#gene_test").find("select[name$='_gene_test']").val("S").change();
			$("#gene_test").find("select[name$='_gene_test_result']").val("N").change();
	    } else if(this.value === "T") {
	    	// select all direct gene tests to be negative
	    	$("#gene_test").find("select[name$='_gene_test']").val("T").change();
			$("#gene_test").find("select[name$='_gene_test_result']").val("N").change();
	    } else if(this.value === "N") {
	    	// select all gene tests to be negative
	    	$("#gene_test").find("select[name$='_gene_test_result']").val("N").change();
	    } else if(this.value === "reset") {
	    	$("#gene_test").find("select[name$='_gene_test']").val("-").change();
	    	$("#gene_test").find("select[name$='_gene_test_result']").val("-").change();
	    }
	});

	$('#acc_FamHist_div').on('click', '#id_proband, #id_exclude', function(e) {
		var name = $('#id_name').val();
		if($(this).attr("id") === 'id_proband' && $(this).is(':checked')) {
			var msg = "You are about to switch the index family member. Risk factor information (e.g. BMI "+
			          "etc) will be cleared for the current index. Ensure you have saved the pedigree file "+
			          "before continuing.";

			$('<div id="msgDialog">'+msg+'</div>').dialog({
	    		title: "WARNING - save before continuing",
	    		width: 350,
	    		buttons: {
		        	"Continue": function () {
		                $(this).dialog('close');
		                var dataset = pedcache.current(opts);
		                opts.dataset = ptree.copy_dataset(dataset);
		                pedigree_util.setProband(opts.dataset, name, true);
		                ptree.rebuild(opts);
		                reset_n_sync(opts);
		                $('#id_proband').prop("disabled", true);
		            },
		            "Cancel": function () {
		                $(this).dialog('close');
		                $("#id_proband").prop('checked', false);
		                $('#id_proband').prop("disabled", false);
		            }
	    		}
			});
		} else if($(this).attr("id") === 'id_exclude') {
			var dataset = pedcache.current(opts);
            opts.dataset = ptree.copy_dataset(dataset);
			var idx = pedigree_util.getIdxByName(opts.dataset, name);
			if($(this).is(':checked'))
				opts.dataset[idx].exclude = true;
			else
				delete opts.dataset[idx].exclude;
			ptree.rebuild(opts);
		}
	});

	pedigree_form.update = function(opts) {
		$('.node_save').click(function() {
			pedigree_form.save(opts);
		});

		// advanced options - model parameters
		$("input[id$='_mut_sensitivity'], input[id$='_mut_frequency']").prop('disabled', true);
		$('#id_use_custom_mutation_sensitivities').change(function() {
			$("input[id$='_mut_sensitivity']").prop('disabled', !$(this).is(":checked"));
		});

		$('#id_mutation_frequencies').change(function() {
			$("input[id$='_mut_frequency']").prop('disabled', (this.value !== 'Custom'));
			// note pedigree_form.mutation_frequencies is set in the view see pedigree_section_js.html
			if(pedigree_form.bc_mutation_frequencies && this.value !== 'Custom') {
				var bcmfreq = pedigree_form.bc_mutation_frequencies[this.value];
				for (var gene in bcmfreq)
					$('#id_'+gene.toLowerCase()+'_bc_mut_frequency').val(bcmfreq[gene]);

				var obcmfreq = pedigree_form.oc_mutation_frequencies[this.value];
				for (var gene in obcmfreq)
					$('#id_'+gene.toLowerCase()+'_oc_mut_frequency').val(obcmfreq[gene]);
			}

			if(this.value === 'Ashkenazi') {  // update canrisk FH radio settings
				$('#orig_ashk').prop( "checked", true );
			} else {
				$('#orig_unk').prop( "checked", true );
			}
			pedigree_form.save_ashkn(opts); // save ashkenazi updates
		});
	};

	// handle family history change events (undo/redo/delete)
	$(document).on('fhChange', function(e, opts){
		try {
			var id = $('#id_name').val();  // get name from hidden field
			var node = pedigree_util.getNodeByName(pedcache.current(opts), id)
			if(node === undefined)
				$('form > fieldset').prop("disabled", true);
			else
				$('form > fieldset').prop('disabled', false);
		} catch(err) {
			console.warn(err);
		}
    })

	pedigree_form.nodeclick = function(node) {
		$('form > fieldset').prop('disabled', false);
		// clear values
		$('#person_details').find("input[type=text], input[type=number]").val("");
		$('#person_details select').val('').prop('selected', true);

		// assign values to input fields in form
		if(node.sex === 'M' || node.sex === 'F')
			$('input[name=sex][value="'+node.sex+'"]').prop('checked', true);
		else
			$('input[name=sex]').prop('checked', false);

		if(!('status' in node))
			node.status = 0;
		$('input[name=status][value="'+node.status+'"]').prop('checked', true);
		// show lock symbol for age and yob synchronisation
		$('#age_yob_lock').removeClass('fa-lock fa-unlock-alt');
		(node.status == 1 ? $('#age_yob_lock').addClass('fa-unlock-alt') : $('#age_yob_lock').addClass('fa-lock'))

		if('proband' in node) {
			$('#id_proband').prop('checked', node.proband);
			$('#id_proband').prop("disabled", true);
		} else {
			$('#id_proband').prop('checked', false);
			$('#id_proband').prop("disabled", !('yob' in node))
		}

		if('exclude' in node) {
			$('#id_exclude').prop('checked', node.exclude);
		} else {
			$('#id_exclude').prop('checked', false);
		}

/*		if('ashkenazi' in node) {
			$('#id_ashkenazi').prop('checked', (node.proband == 1 ? true: false));
		} else {
			$('#id_ashkenazi').prop('checked', false);
		}*/

		// year of birth
		if('yob' in node) {
			$('#id_yob_0').val(node.yob);
		} else {
			$('#id_yob_0').val('-');
		}

		// clear pathology
		$('select[name$="_bc_pathology"]').val('-');
		// clear gene tests
		$('select[name*="_gene_test"]').val('-');

		// disable sex radio buttons if the person has a partner
		$("input[id^='id_sex_']").prop("disabled", (node.parent_node && node.sex !== 'U' ? true : false));

		// disable pathology for male relatives (as not used by model)
		// and if no breast cancer age of diagnosis
		$("select[id$='_bc_pathology']").prop("disabled",
				(node.sex === 'M' || (node.sex === 'F' && !('breast_cancer_diagnosis_age' in node)) ? true : false));

		// approximate diagnosis age
		$('#id_approx').prop('checked', (node.approx_diagnosis_age ? true: false));
		pedigree_form.update_diagnosis_age_widget();

		for(var key in node) {
			if(key !== 'proband' && key !== 'sex') {
				if($('#id_'+key).length) {	// input value
					if(key.indexOf('_gene_test')  !== -1 && node[key] !== null && typeof node[key] === 'object') {
						$('#id_'+key).val(node[key].type);
						$('#id_'+key+'_result').val(node[key].result);
					} else {
						$('#id_'+key).val(node[key]);
					}
				} else if(key.indexOf('_diagnosis_age') !== -1) {
					if($("#id_approx").is(':checked')) {
						$('#id_'+key+'_1').val(round5(node[key])).prop('selected', true);
					} else {
						$('#id_'+key+'_0').val(node[key]);
					}
				}
			}
		}

		try {
			$('#person_details').find('form').valid();
		} catch(err) {
			console.warn('valid() not found');
		}
	};

	function update_ashkn(newdataset) {
		// Ashkenazi status, 0 = not Ashkenazi, 1 = Ashkenazi
		if($('#orig_ashk').is(':checked')) {
			$.each(newdataset, function(i, p) {
				if(p.proband)
					p.ashkenazi = 1;
			});
		} else {
			$.each(newdataset, function(i, p) {
				delete p.ashkenazi;
			});
		}
	}

	// Save Ashkenazi status
	pedigree_form.save_ashkn = function(opts) {
		var dataset = pedcache.current(opts);
		var newdataset = ptree.copy_dataset(dataset);
		update_ashkn(newdataset);
		opts.dataset = newdataset;
		ptree.rebuild(opts);
	}

    pedigree_form.save = function(opts) {
		var dataset = pedcache.current(opts);
		var name = $('#id_name').val();
		var newdataset = ptree.copy_dataset(dataset);
		var person = pedigree_util.getNodeByName(newdataset, name);
		if(!person) {
			console.warn('person not found when saving details');
			return;
		}
		$("#"+opts.targetDiv).empty();

		// individual's personal and clinical details
		var yob = $('#id_yob_0').val();
		if(yob && yob !== '') {
			person.yob = yob;
		} else {
			delete person.yob;
		}

		// to change proband
		is_proband = $('#id_proband').is(':checked');
		if(is_proband){
			pedigree_util.setProband(newdataset, name, is_proband);
		} else {
			$.each(newdataset, function(){
				if(this.name == name)
					delete this.proband;
			})
		}

		// current status: 0 = alive, 1 = dead
		if($('#dead').is(':checked')){
			person.status = 1;
		} else {
			person.status = 0;
		}

		// booleans switches
		var switches = ["miscarriage", "adopted_in", "adopted_out", "termination", "stillbirth"];
		for(var iswitch=0; iswitch<switches.length; iswitch++){
			var attr = switches[iswitch];
			var s = $('#id_'+attr);
			if(s.length > 0){
				if(s.is(":checked"))
					person[attr] = true;
				else
					delete person[attr];
			}
		}

		// current sex
		var sex = $('#id_sex').find("input[type='radio']:checked");
		if(sex.length > 0){
			person.sex = sex.val();
		}

		// Ashkenazi status, 0 = not Ashkenazi, 1 = Ashkenazi
		update_ashkn(newdataset);

		// ^above doesn't save the ashkenazi status? This function MAY get redundant when above is used
		if($('#id_ashkenazi').is(':checked'))
			person.ashkenazi = 1;
		else {
			person.ashkenazi = 0;
		}

		if($('#id_approx').is(':checked')) // approximate diagnosis age
			person.approx_diagnosis_age = true;
		else
			delete person.approx_diagnosis_age;

		$("#person_details select[name*='_diagnosis_age']:visible, #person_details input[type=text]:visible, #person_details input[type=number]:visible").each(function() {
			var name = (this.name.indexOf("_diagnosis_age")>-1 ? this.name.substring(0, this.name.length-2): this.name);
			
			if($(this).val()) {
				var val = $(this).val();
				if(name.indexOf("_diagnosis_age") > -1 && $("#id_approx").is(':checked'))
					val = round5(val);
				person[name] = val;
			} else {
				delete person[name];
			}
		});
		

		// disease checkboxes
		$('.disease-checkbox').each(function() {
			if(this.checked)
				person[$(this).attr('name')] = true;
			else
				delete person[$(this).attr('name')];
		});

		// genetic test
		$('#person_details select[id$="_gene_test_type"]').each(function() {
			if($(this).val() !== '0') {
				person[$(this).attr('name')] = {'type': $(this).val(), 'result': $("#id_" + $(this).attr('name') + "_result").val()};
			} else {
				delete person[$(this).attr('name')];
			}
		});

		// pathology tests
		$('#person_details select[id$="_bc_pathology"]').each(function() {
			if($(this).val() !== '-') {
				person[$(this).attr('name')] = $(this).val();
			} else {
				delete person[$(this).attr('name')];
			}
		});

		try {
			$('#person_details').find('form').valid();
		} catch(err) {
			console.warn('valid() not found');
		}

		ptree.syncTwins(newdataset, person);
		opts.dataset = newdataset;
		ptree.rebuild(opts);
    };

    pedigree_form.update_diagnosis_age_widget = function() {
		if($("#id_approx").is(':checked')) {
			$("[id$='_diagnosis_age_0']").each(function( index ) {
				if($(this).val() !== '') {
					var name = this.name.substring(0, this.name.length-2);
					$("#id_"+name+"_1").val(round5($(this).val())).prop('selected', true);
				}
			});

			$("[id$='_diagnosis_age_0']").hide();
			$("[id$='_diagnosis_age_1']").show();
		} else {
			$("[id$='_diagnosis_age_1']").each(function( index ) {
				if($(this).val() !== '') {
					var name = this.name.substring(0, this.name.length-2);
					$("#id_"+name+"_0").val($(this).val());
				}
			});

			$("[id$='_diagnosis_age_0']").show();
			$("[id$='_diagnosis_age_1']").hide();
		}
    };

    // round to 5, 15, 25, 35 ....
    function round5(x1) {
    	var x2 = (Math.round((x1-1) / 10) * 10);
    	return (x1 < x2 ? x2 - 5 : x2 + 5);
    }

}(window.pedigree_form = window.pedigree_form || {}, jQuery));