/***********************************
Uses unobtrusive javascript.

Calculator for BMI and BSA
***********************************/

/****
For the animations. Needs to be available for almost all pages.
****/
function popitup(url) 
{
	newwindow=window.open(url,'name','height=362,width=808');
	if (window.focus) {newwindow.focus()}
	return false;
}

window.onload = function()
{ 
	if(document.getElementById && document.createTextNode) 
	{ 
  		setupfunc(); 
	}
	/*init();*/
} 

setupfunc = function()
{
	var subbsa=document.getElementById("subbsa");

	if (subbsa)
	{
		subbsa.onclick = calculatebsa;
	}

	var subpain=document.getElementById("subpaincalc");
	
	if (subpain)
	{
		self.resizeTo(1000, 780);
		self.moveTo(30, 30);
	}

	var subgord=document.getElementById("subgordcalc");
	
	if (subgord)
	{
		self.resizeTo(500, 780);
		self.moveTo(500, 30);
	}

	var subasthma=document.getElementById("frmasthmascore");

	if (subasthma)
	{
		self.resizeTo(650, 950);
		self.moveTo(0, 0);
		
		for (var i = 0; i < subasthma.q1.length; i++)
		{
			subasthma.q1[i].onclick = calculateasthmascore1;
		}

		for (var i = 0; i < subasthma.q2.length; i++)
		{
			subasthma.q2[i].onclick = calculateasthmascore2;
		}

		for (var i = 0; i < subasthma.q3.length; i++)
		{
			subasthma.q3[i].onclick = calculateasthmascore3;
		}

		for (var i = 0; i < subasthma.q4.length; i++)
		{
			subasthma.q4[i].onclick = calculateasthmascore4;
		}

		for (var i = 0; i < subasthma.q5.length; i++)
		{
			subasthma.q5[i].onclick = calculateasthmascore5;			
		}

		document.getElementById("subasthma").onclick = showanswer;		

		document.getElementById("clrasthma").onclick = clearform;
		

//		document.getElementById("logo").style.visibility = "visible";
//		document.getElementById("total25").style.visibility = "hidden";
//		document.getElementById("total20_24").style.visibility = "hidden";
//		document.getElementById("total19_0").style.visibility = "hidden";

		document.getElementById("logo").style.display = "block";
		document.getElementById("total25").style.display = "none";
		document.getElementById("total20_24").style.display = "none";
		document.getElementById("total19_0").style.display = "none";

	}
	
// set up menstruation calculator
	var submen=document.getElementById("submen");

	if (submen)
	{
		submen.onclick = calculatemen;
		
		var submeni=document.getElementById("submeni");
		submeni.onclick = nextmen;
		
		document.getElementById("meniclr").onclick = clearmeniform;
	}

// set up pregnancy calculator
	var subpreg=document.getElementById("subpreg");
	
	if (subpreg)
	{
		document.getElementById("pregclr").onclick = clearpregform;

		document.getElementById("preglastmen").onclick = calculateduedate;
		
		subpreg.onclick = pregduedate;
	}
	
// Glomerular Filtration Rate (GFR)
	var subgfr=document.getElementById("subgfr")

	if (subgfr)
	{
		subgfr.onclick = calculategfr;
	}

// Headache or Migraine
	var subhom=document.getElementById("subhom");
	
	if (subhom)
	{
		subhom.onclick = calculatehom;
	}

// Dry eye syndrome
	var subdry=document.getElementById("subdry");
	
	if (subdry)
	{
		subdry.onclick = calculatedry;
	}

// ADHD July 2008
	var subadhd=document.getElementById("subadhd");
	
	if (subadhd)
	{
		subadhd.onclick = calculateadhd;
	}

// alcohol
	var subalcohol=document.getElementById("subalcohol");
	
	if (subalcohol)
	{
		subalcohol.onclick = calculatealcohol;
		document.getElementById("frmalcohol").radsex[0].onclick = alccheckpregnancy;
		document.getElementById("frmalcohol").radsex[1].onclick = alccheckpregnancy;
		document.getElementById("frmalcohol").radpreg[0].onclick = alcchecksex;
		document.getElementById("frmalcohol").radpreg[1].onclick = alcchecksex;		
	}

// Blood count
	var subblood=document.getElementById("subblood");
	
	if (subblood)
	{
		subblood.onclick = calculatebloodcount;
	}

// AUDIT
	var subcalcaudit=document.getElementById("subcalcaudit");
	
	if (subcalcaudit)
	{
		subcalcaudit.onclick = calculateAUDIT;
		
		showClass("calcauditquestionlist", "calcauditmale", 1);
	}

// PSA
	var subpsa=document.getElementById("subpsa");
	
	if (subpsa)
	{
		subpsa.onclick = evaluatepsa;
		document.getElementById("divtoolbackground").style.backgroundImage= "none";
	}

// Calcium
	var subcalcium=document.getElementById("btncont");
	var subcalciumeval=document.getElementById("subcalcium");
	
	if (subcalcium)
	{
		subcalcium.onclick = showcalciumtable;
		subcalciumeval.onclick = showcalciumresults;
	}

// FIGO
	var subfigo=document.getElementById("subfigo");
	
	if (subfigo)
	{
		subfigo.onclick = showfigoresults;
	}

// Blood Pressure Results
	var subbp=document.getElementById("subbp");
	
	if (subbp)
	{
		subbp.onclick = showbloodpressureresults;
	}

// LDL Cholesterol Tool
	var subldl=document.getElementById("btnldlcontinue");
	
	if (subldl)
	{
		subldl.onclick = showldlinput;
		document.getElementById("subldl").onclick = showldlresults;
	}

// Schizophrenia Medication Tolerability Tool
	var subschiz=document.getElementById("subschiz");
	
	if (subschiz)
	{
		subschiz.onclick = showschizresults;
		document.getElementById("btnshowform").onclick = showschizinput;
	}

// Somac OTC Tool
	var subhtpa=document.getElementById("subhtpa");
	
	if (subhtpa)
	{
		subhtpa.onclick = showsomacotcresultsone;
		document.getElementById("subhtpb").onclick = showsomacotcresultstwo;
		document.getElementById("subhtpc").onclick = showsomacotcresultsthree;
		document.getElementById("subhtpd").onclick = showsomacotcresultsfour;
		document.getElementById("subhtpe").onclick = showsomacotcresultsfive;
	}

}







function showsomacotcresultsfive()
{
	var frmsomac;
	frmsomac = document.getElementById("frmhtp");

	if (findcheckedvalue(frmsomac.rade1) == 0)
	{
		//If no - go to Answer C (Somac) 
		showsomachtpanswer(3);
	}
	else
	{
		//If yes - go to Answer A (refer to GP)
		showsomachtpanswer(1);
	}
}

function showsomacotcresultsfour()
{
	var frmsomac;
	frmsomac = document.getElementById("frmhtp");

	if (findcheckedvalue(frmsomac.radd1) == 0)
	{
		//If 1 true - go to Answer B (antacid)
		showsomachtpanswer(2);
		hideelem("dive");
	}
	else
	{
		//If 2 true - go to Part E 
		showelem("dive");
		showsomachtpanswer(4);
	}
}

function showsomacotcresultsthree()
{
	var frmsomac;
	frmsomac = document.getElementById("frmhtp");

	if (findcheckedvalue(frmsomac.radc1) == 0 && findcheckedvalue(frmsomac.radc2) == 0 && findcheckedvalue(frmsomac.radc3) == 0 && findcheckedvalue(frmsomac.radc4) == 0 && findcheckedvalue(frmsomac.radc5) == 0 && findcheckedvalue(frmsomac.radc6) == 0 && findcheckedvalue(frmsomac.radc7) == 0)
	{
		//If all no - go to Part D
		showelem("divd");
		showsomachtpanswer(4);
	}
	else
	{
		//If any yes - go to Answer A (refer to GP)
		showsomachtpanswer(1);
		hideelem("divd");
		hideelem("dive");
	}
}
	
function showsomacotcresultstwo()
{
	var frmsomac;
	frmsomac = document.getElementById("frmhtp");

	if (findcheckedvalue(frmsomac.radb1) == 0 && findcheckedvalue(frmsomac.radb2) == 0 && findcheckedvalue(frmsomac.radb3) == 0 && findcheckedvalue(frmsomac.radb4) == 0 && findcheckedvalue(frmsomac.radb5) == 0 && findcheckedvalue(frmsomac.radb6) == 0 && findcheckedvalue(frmsomac.radb7) == 0 && findcheckedvalue(frmsomac.radb8) == 0 && findcheckedvalue(frmsomac.radb9) == 0 && findcheckedvalue(frmsomac.radb10) == 0 && findcheckedvalue(frmsomac.radb11) == 0)
	{
		//If all no - go to Part C
		showelem("divc");
		showsomachtpanswer(4);
	}
	else
	{
		//If any yes - go to Answer A (refer to GP)
		showsomachtpanswer(1);
		hideelem("divc");
		hideelem("divd");
		hideelem("dive");
	}
}

function showsomacotcresultsone()
{
	var frmsomac;
	frmsomac = document.getElementById("frmhtp");
	
	if (findcheckedvalue(frmsomac.rada1) == 0 && findcheckedvalue(frmsomac.rada2) == 0)
	{
		//If all no - go to Answer A (refer to GP)
		showsomachtpanswer(1);
		hideelem("divb");
		hideelem("divc");
		hideelem("divd");
		hideelem("dive");
	}
	else
	{
		//If any yes - continue to Part B
		showelem("divb");
		showsomachtpanswer(4);
	}
}


function loopForm(form) {
    var cbResults = 'Checkboxes: ';
    var radioResults = 'Radio buttons: ';

	var frmsomac;
	frmsomac = document.getElementById("frmhtp");
	radioResults = '';

	if (findcheckedvalue(frmsomac.rada1) == 1)
	{
		radioResults += '&ans=rada1';
	}
	if (findcheckedvalue(frmsomac.rada2) == 1)
	{
		radioResults += '&ans=rada2';
	}
	if (findcheckedvalue(frmsomac.radb1) == 1)
	{
		radioResults += '&ans=radb1';
	}
	if (findcheckedvalue(frmsomac.radb2) == 1)
	{
		radioResults += '&ans=radb2';
	}
	if (findcheckedvalue(frmsomac.radb3) == 1)
	{
		radioResults += '&ans=radb3';
	}
	if (findcheckedvalue(frmsomac.radb4) == 1)
	{
		radioResults += '&ans=radb4';
	}
	if (findcheckedvalue(frmsomac.radb5) == 1)
	{
		radioResults += '&ans=radb5';
	}
	if (findcheckedvalue(frmsomac.radb6) == 1)
	{
		radioResults += '&ans=radb6';
	}
	if (findcheckedvalue(frmsomac.radb7) == 1)
	{
		radioResults += '&ans=radb7';
	}
	if (findcheckedvalue(frmsomac.radb8) == 1)
	{
		radioResults += '&ans=radb8';
	}
	if (findcheckedvalue(frmsomac.radb9) == 1)
	{
		radioResults += '&ans=radb9';
	}
	if (findcheckedvalue(frmsomac.radb10) == 1)
	{
		radioResults += '&ans=radb10';
	}
	if (findcheckedvalue(frmsomac.radb11) == 1)
	{
		radioResults += '&ans=radb11';
	}
	if (findcheckedvalue(frmsomac.radc1) == 1)
	{
		radioResults += '&ans=radc1';
	}
	if (findcheckedvalue(frmsomac.radc2) == 1)
	{
		radioResults += '&ans=radc2';
	}
	if (findcheckedvalue(frmsomac.radc3) == 1)
	{
		radioResults += '&ans=radc3';
	}
	if (findcheckedvalue(frmsomac.radc4) == 1)
	{
		radioResults += '&ans=radc4';
	}
	if (findcheckedvalue(frmsomac.radc5) == 1)
	{
		radioResults += '&ans=radc5';
	}
	if (findcheckedvalue(frmsomac.radc6) == 1)
	{
		radioResults += '&ans=radc6';
	}
	if (findcheckedvalue(frmsomac.radc7) == 1)
	{
		radioResults += '&ans=radc7';
	}
	if (findcheckedvalue(frmsomac.radd1) == 1)
	{
		radioResults += '&ans=radd1';
	}
	if (findcheckedvalue(frmsomac.rade1) == 1)
	{
		radioResults += '&ans=rade1';
	}
	
/*
	for (var i = 0; i < form.elements.length; i++ ) {
        if (form.elements[i].type == 'checkbox') {
            if (form.elements[i].checked == true) {
                cbResults += form.elements[i].value + ' ';
            }
        }
        if (form.elements[i].type == 'radio') {
            alert(form.elements[i].checked);
			if (form.elements[i].checked == true) {
                radioResults += form.elements[i].value + ' ';
            }
        }
    }
*/	
    //document.getElementById("cbResults").innerHTML = cbResults;
    //document.getElementById("radioResults").innerHTML = radioResults;
	return radioResults;
}

function showsomachtpanswer(ians)
{
	var strqstring;
	strqstring = loopForm(document.frmhtp)

	if (ians == 1)
	{
		showelem("eval");
		hideelem("ansb");
		hideelem("ansc");
		showelem("ansa");
		window.open("RecordCalcResults.asp?ans=somachtpmar2009" + strqstring + "&ans=1", "", "width=50,height=50");
	}
	else if (ians == 2)
	{
		showelem("eval");
		hideelem("ansa");
		hideelem("ansc");
		showelem("ansb");
		window.open("RecordCalcResults.asp?ans=somachtpmar2009" + strqstring + "&ans=2", "", "width=50,height=50");
	}
	else if (ians == 3)
	{
		showelem("eval");
		hideelem("ansa");
		hideelem("ansb");
		showelem("ansc");
		window.open("RecordCalcResults.asp?ans=somachtpmar2009" + strqstring + "&ans=3", "", "width=50,height=50");
	}
	else
	{
		hideelem("ansa");
		hideelem("ansb");
		hideelem("ansc");
		hideelem("eval");
	}
}

function malefemaleswap(shide)
{
	//.row1 { background-color: #fef6f3; }
	//.row0 { background-color: #fefdfb; }

	if (shide == 'male') // if they click on male
	{
		document.getElementById("frmschiz").rad21[0].checked = "checked";
		if (navigator.appName == "Microsoft Internet Explorer")
		{
			showelem("rmale");
		}
		else
		{
			document.getElementById("rmale").style.display = "table-row";
		}
		hideelem("rfemale");
		
		document.getElementById("rspace1").style.backgroundColor = "#fef6f3";
		document.getElementById("rspace2").style.backgroundColor = "#fef6f3";
		document.getElementById("rhead").style.backgroundColor = "#fefdfb";
		document.getElementById("rweight").style.backgroundColor = "#fef6f3";		
	}
	else // if they click on female
	{
		document.getElementById("frmschiz").rad20[0].checked = "checked";
		if (navigator.appName == "Microsoft Internet Explorer")
		{
			showelem("rfemale");
		}
		else
		{
			document.getElementById("rfemale").style.display = "table-row";
		}
		hideelem("rmale");

		document.getElementById("rspace1").style.backgroundColor = "#fefdfb";
		document.getElementById("rspace2").style.backgroundColor = "#fefdfb";
		document.getElementById("rhead").style.backgroundColor = "#fef6f3";
		document.getElementById("rweight").style.backgroundColor = "#fef6f3";		
	}
}

function showschizinput()
{
	showelem("divschizinput");
	hideelem("schizcalchead");
	
	//document.getElementById("schizcalchead").style.background = "url(images/tools/bg_schizophrenia_top.jpg)";
	//document.getElementById("schizcalchead").style.backgroundRepeat = "no-repeat";
	//document.getElementById("schizcalchead").style.height = "155px";
}

function showschizresults()
{
	var arrradresults = new Array(22);
	var arrchkresults = new Array(22);
	var i, j;
	var iradtotal;
	var iradcount;
	var soldname, sname;
	var squerystring;
	
	squerystring = "?ans=schizdec2008";	
	iradcount = 1;	
	iradtotal = 0;
	j = 0;
	
	showelem("divschizresultsandref");

	hideelem("divdistressed");

	hideelem("divabsent");
	hideelem("divmoderate");
	hideelem("divsevere");	
	
	for (i=0;i<document.frmschiz.length;i++)
	{
		if (document.frmschiz[i].type=="radio")
		{
			//alert(document.frmschiz[i].name);
			//alert(findchecked(document.frmschiz[document.frmschiz[i].name]));

			soldname = sname;
			sname = document.frmschiz[i].name;

// put radio buttons values into array and add up values
			if (soldname != sname)
			{
				arrradresults[j] = findcheckedvalue(document.frmschiz[document.frmschiz[i].name]);
				iradtotal = iradtotal + parseInt(arrradresults[j]);

				if (parseInt(arrradresults[j]) > 0)
				{
					squerystring += "&ans=" + j + "_" + arrradresults[j];
				}
			}
			
		}

// put check box values into array
		if (document.frmschiz[i].type=="checkbox")
		{
			//alert(document.frmschiz[i].name);
			//alert(document.frmschiz[i].value);
			arrchkresults[j] = document.frmschiz[i].checked;
			//cbResults += form.elements[i].value + ' ';
			j++;
		}

	}

// if any checkbox is true show distressed div
	for (i=0; i<arrchkresults.length; i++)
	{
		if (arrchkresults[i])
		{
			showelem("divdistressed");
			
			squerystring += "&ans=" + i + "_" + arrchkresults[i];
		}

	}

// show results according to radio button total
	if (iradtotal < 22)
	{
		showelem("divabsent");
	}
	else if (iradtotal < 43)
	{
		showelem("divmoderate");
	}
	else
	{
		showelem("divsevere");
	}

	//alert(iradtotal);
	//alert(squerystring);

	window.open("RecordCalcResults.asp" + squerystring, "", "width=50,height=50");

}

function showldlinput()
{
	document.getElementById("ldllevelsinput").style.display = "block";
}

function showldlresults()
{
	var iage;
	var ssex, schd, scad, spad, saaa, sdia, shistory, ssmoker, sbp;
	var fldl, fhdl, ftot, ftri;
	var frmldl;
	var brisk;
	
	if (isNaN(document.getElementById("txtage").value) || document.getElementById("txtage").value == "") 
	{
		document.getElementById("txtage").focus();
		alert('Please enter your age.');
	}
	else
	{
		document.getElementById("ldllevelsresults").style.display = "block";
		document.getElementById("ldlresandref").style.display = "block";
		showelem("divtlc");

		frmldl = document.getElementById("frmldllevels");
		
		iage = document.getElementById("txtage").value;
		
		ssex = findcheckedvalue(frmldl.radsex);
		
		schd = findcheckedvalue(frmldl.radchd);
		scad = findcheckedvalue(frmldl.radcad);
		spad = findcheckedvalue(frmldl.radpad);
		saaa = findcheckedvalue(frmldl.radaaa);
		sdia = findcheckedvalue(frmldl.raddia);
		shistory = findcheckedvalue(frmldl.radhistory);
		ssmoker = findcheckedvalue(frmldl.radsmoker);
		sbp = findcheckedvalue(frmldl.radbp);
		
		fldl = document.getElementById("txtldl").value;
		fhdl = document.getElementById("txthdl").value;
		ftot = document.getElementById("txttot").value;
		ftri = document.getElementById("txttri").value;
		
		if(isNaN(fldl) || fldl == "")
		{
			fldl = 0;
		}
		if(isNaN(fhdl) || fhdl == "")
		{
			fhdl = 0;
		}
		if(isNaN(ftot) || ftot == "")
		{
			ftot = 0;
		}
		if(isNaN(ftri) || ftri == "")
		{
			ftri = 0;
		}
		
		if(schd == "yes" || scad == "yes" || spad == "yes" || saaa == "yes" || sdia == "yes" || shistory == "yes" || ssmoker == "yes" || sbp == "yes")
		{
			brisk = true;
		}
		else
		{
			brisk = false;
		}
		
		if(ssex == "male" && iage > 44)
		{
			brisk = true;
		}
		
		if(ssex == "female" && iage > 54)
		{
			brisk = true;
		}

		window.open("RecordCalcResults.asp?ans=ldlleveldec2008&ans=" + ssex + "&ans=" + iage + "&ans=" + schd + "&ans=" + scad + "&ans=" + spad + "&ans=" + saaa + "&ans=" + sdia + "&ans=" + shistory + "&ans=" + ssmoker + "&ans=" + sbp + "&ans=" + brisk + "&ans=" + fldl + "&ans=" + fhdl + "&ans=" + ftot + "&ans=" + ftri, "", "width=50,height=50");
		
		if(brisk)
		{
			document.getElementById("divrisks").style.display = "block";
		}
		else
		{
			document.getElementById("divrisks").style.display = "none";
		}
		
		// ldl
		if(fldl == 0)
		{
			document.getElementById("ldllvl").innerHTML = "No data - ";
			hideelem("divldloptimal");
			hideelem("divldlnearoptimal");
			hideelem("divldlhigh");
			showelem("divldlnodata");
		}
		else if(fldl < 100)
		{
			document.getElementById("ldllvl").innerHTML = "Optimal - ";
			showelem("divldloptimal");
			hideelem("divldlnearoptimal");
			hideelem("divldlhigh");
			hideelem("divldlnodata");
		}
		else if(fldl < 130)
		{
			document.getElementById("ldllvl").innerHTML = "Near optimal/above optimal - ";
			hideelem("divldloptimal");
			showelem("divldlnearoptimal");
			hideelem("divldlhigh");
			hideelem("divldlnodata");
		}
		else if(fldl < 160)
		{
			document.getElementById("ldllvl").innerHTML = "Borderline high - ";
			hideelem("divldloptimal");
			hideelem("divldlnearoptimal");
			showelem("divldlhigh");
			hideelem("divldlnodata");
		}
		else if(fldl < 190)
		{
			document.getElementById("ldllvl").innerHTML = "High - ";
			hideelem("divldloptimal");
			hideelem("divldlnearoptimal");
			showelem("divldlhigh");
			hideelem("divldlnodata");
		}
		else
		{
			document.getElementById("ldllvl").innerHTML = "Very high - ";
			hideelem("divldloptimal");
			hideelem("divldlnearoptimal");
			showelem("divldlhigh");
			hideelem("divldlnodata");
		}
		
		// hdl
		if(fhdl == 0)
		{
			document.getElementById("hdllvl").innerHTML = "No data - ";
			showelem("divhdlnodata");
			hideelem("divhdlhigh");
			hideelem("divhdlnormal");
			hideelem("divhdllow");
		}
		else if(fhdl < 40)
		{
			document.getElementById("hdllvl").innerHTML = "Low - ";
			hideelem("divhdlnodata");
			hideelem("divhdlhigh");
			hideelem("divhdlnormal");
			showelem("divhdllow");
		}
		else if(fhdl < 60)
		{
			document.getElementById("hdllvl").innerHTML = "Normal - ";
			hideelem("divhdlnodata");
			hideelem("divhdlhigh");
			showelem("divhdlnormal");
			hideelem("divhdllow");
		}
		else
		{
			document.getElementById("hdllvl").innerHTML = "High - ";
			hideelem("divhdlnodata");
			showelem("divhdlhigh");
			hideelem("divhdlnormal");
			hideelem("divhdllow");
		}
		
		// total
		if(ftot == 0)
		{
			document.getElementById("totlvl").innerHTML = "No data - ";
			hideelem("divtotdesirable");
			hideelem("divtothigh");
			showelem("divtotnodata");
		}
		else if(ftot < 200)
		{
			document.getElementById("totlvl").innerHTML = "Desirable - ";
			showelem("divtotdesirable");
			hideelem("divtothigh");
			hideelem("divtotnodata");
		}
		else if(ftot < 240)
		{
			document.getElementById("totlvl").innerHTML = "Borderline high - ";
			hideelem("divtotdesirable");
			showelem("divtothigh");
			hideelem("divtotnodata");
		}
		else
		{
			document.getElementById("totlvl").innerHTML = "High - ";
			hideelem("divtotdesirable");
			showelem("divtothigh");
			hideelem("divtotnodata");
		}
		
		// triglycerides
		if(ftri == 0)
		{
			document.getElementById("trilvl").innerHTML = "No data - ";
			hideelem("divtrinormal");
			hideelem("divtrihigh");
			showelem("divtrinodata");
		}
		else if(ftri < 150)
		{
			document.getElementById("trilvl").innerHTML = "Normal - ";
			showelem("divtrinormal");
			hideelem("divtrihigh");
			hideelem("divtrinodata");
		}
		else if(ftri < 200)
		{
			document.getElementById("trilvl").innerHTML = "Borderline high - ";
			hideelem("divtrinormal");
			showelem("divtrihigh");
			hideelem("divtrinodata");
		}
		else if(ftri < 500)
		{
			document.getElementById("trilvl").innerHTML = "High - ";
			hideelem("divtrinormal");
			showelem("divtrihigh");
			hideelem("divtrinodata");
		}
		else
		{
			document.getElementById("trilvl").innerHTML = "Very high - ";
			hideelem("divtrinormal");
			showelem("divtrihigh");
			hideelem("divtrinodata");
		}
	}	
}

function showelem(elemid)
{
	document.getElementById(elemid).style.display = "block";
}

function hideelem(elemid)
{
	document.getElementById(elemid).style.display = "none";
}

function showbloodpressureresults()
{
	var radbtn, ssex, iage, isys, idia;
	
	radbtn = document.getElementById("frmbloodpressure");
	
	ssex = findcheckedvalue(radbtn.radsex);

	hideelem("divbpresults");
	showelem("divbpresults");

	hideelem("divnormal");
	hideelem("divhighnormal");
	hideelem("divgradeone");
	hideelem("divgradetwo");
	hideelem("divgradethree");
	hideelem("divisolated");
	hideelem("divwide");
	hideelem("divhypo");
	hideelem("divnotes");
	
	if (isNaN(document.getElementById("txtage").value) || document.getElementById("txtage").value == "") 
	{
		alert('Please enter your age.');
		document.getElementById("txtage").focus();
	}
	else
	{
		if (isNaN(document.getElementById("txtsys").value) || document.getElementById("txtsys").value == "") 
		{
			alert('Please enter your systolic blood pressure.');
			document.getElementById("txtsys").focus();
		}
		else
		{
			if (isNaN(document.getElementById("txtdia").value) || document.getElementById("txtdia").value == "") 
			{
				alert('Please enter your diastolic blood pressure.');
				document.getElementById("txtdia").focus();
			}
			else
			{
				iage = document.getElementById("txtage").value;
				isys = document.getElementById("txtsys").value;
				idia = document.getElementById("txtdia").value;
				
				showelem("divresults");
				showelem("divbpresults");
				showelem("divnotes");

			if (isys < 90)
			{
				showelem("divhypo");
			}
			else
			{
				if (idia < 71)
				{
					if (isys < 120)
					{
						showelem("divnormal");
					}
					else if (isys < 140)
					{
						showelem("divhighnormal");
					}
					else if (isys < 160)
					{
						showelem("divisolated");
					}
					else
					{
						showelem("divwide");
					}
				}
				else if (idia < 80)
				{
					if (isys < 120)
					{
						showelem("divnormal");
					}
					else if (isys < 140)
					{
						showelem("divhighnormal");
					}
					else
					{
						showelem("divisolated");
					}
				}
				else if (idia < 90)
				{
					if (isys < 140)
					{
						showelem("divhighnormal");
					}
					else
					{
						showelem("divisolated");
					}
				}
				else if (idia < 100)
				{
					if (isys < 160)
					{
						showelem("divgradeone");
					}
					else if (isys < 180)
					{
						showelem("divgradetwo");
					}
					else
					{
						showelem("divgradethree");
					}
				}
				else if (idia < 110)
				{
					if (isys < 180)
					{
						showelem("divgradetwo");
					}
					else
					{
						showelem("divgradethree");
					}
				}
				else
				{
					showelem("divgradethree");
				}
			}

				window.open("RecordCalcResults.asp?ans=bpdec2008&ans=" + ssex + "&ans=" + iage + "&ans=" + idia + "&ans=" + isys, "", "width=50,height=50");
			}
		}
	}


}

function showfigoresults()
{
	var irad1, irad2, irad3, irad4, irad5, irad6, irad7, irad8;
	var itotal;
	var sanswer = "<h3>Evaluation</h3>";
	var frmfigo;
	
	frmfigo = document.getElementById("frmfigo");

	irad1 = findcheckedvalue(frmfigo.rad1);
	irad2 = findcheckedvalue(frmfigo.rad2);
	irad3 = findcheckedvalue(frmfigo.rad3);
	irad4 = findcheckedvalue(frmfigo.rad4);
	irad5 = findcheckedvalue(frmfigo.rad5);
	irad6 = findcheckedvalue(frmfigo.rad6);
	irad7 = findcheckedvalue(frmfigo.rad7);
	irad8 = findcheckedvalue(frmfigo.rad8);
	
	itotal = parseInt(irad1) + parseInt(irad2) + parseInt(irad3) + parseInt(irad4) + parseInt(irad5) + parseInt(irad6) + parseInt(irad7) + parseInt(irad8);
	
	sanswer += "<br />Patient has a risk score of <strong>" + itotal + "</strong>, which is considered ";
	
	if (itotal < 7)
	{
		sanswer += "<strong>low</strong>.<br /><br />Single agent chemotherapy is recommended as a first line treatment.";
	}
	else
	{
		sanswer += "<strong>high</strong>.<br /><br />Multiple agent chemotherapy is recommended as a first line treatment.";
	}
	
	document.getElementById("figoresults").style.display = "block";
	document.getElementById("figoresults").innerHTML = sanswer;

	window.open("RecordCalcResults.asp?ans=figonov2008&ans=" + irad1 + "&ans=" + irad2 + "&ans=" + irad3 + "&ans=" + irad4 + "&ans=" + irad5 + "&ans=" + irad6 + "&ans=" + irad7 + "&ans=" + irad8, "", "width=50,height=50");

}

function showcalciumtable()
{
	document.getElementById("tblcalciumcontent").style.display="block"
}

function showcalciumresults()
{
	var itotalcalcium;
	var bpreg, blact, bbreastfed, bbottlefed;
	var iage;
	var ssex;

	bpreg = false;
	blact = false;
	bbreastfed = false;
	bbottlefed = false;
	
	document.getElementById("calciumresults").style.display="block";
	
	itotalcalcium = calculatetotalcalcium();

	var radbtn = document.getElementById("frmcalcium");
	
	ssex = findcheckedvalue(radbtn.radsex);

	if (ssex == "male")
	{
		iage = parseInt(document.getElementById("txtage").value, 10);
		if (iage > 0)
		{
			EvaluateCalciumIntake(ssex, iage, bpreg, blact, bbreastfed, bbottlefed, itotalcalcium);
		}
		else
		{
			document.getElementById("txtage").focus();
			alert("Please enter your age.");
		}		
	}
	else if (ssex == "female")
	{
		iage = parseInt(document.getElementById("txtfage").value, 10);
		if (iage > 0)
		{
			if (document.getElementById("chkpreg").checked)
			{
				bpreg = true;
			}
			
			if (document.getElementById("chklact").checked)
			{
				blact = true;
			}
			
			EvaluateCalciumIntake(ssex, iage, bpreg, blact, bbreastfed, bbottlefed, itotalcalcium);
		}
		else
		{
			document.getElementById("txtfage").focus();
			alert("Please enter your age.");
		}		
	}
	else
	{
		iage = parseInt(document.getElementById("txtagemths").value, 10);
		if (iage > 0)
		{
/*
			if (document.getElementById("chkbreast").checked)
			{
				bbreastfed = true;
			}
			
			if (document.getElementById("chkbottle").checked)
			{
				bbottlefed = true;
			}
			
			if (iage > 6)
			{
				EvaluateCalciumIntake(ssex, iage, bpreg, blact, bbreastfed, bbottlefed, itotalcalcium);
			}
			else
			{
				if (bbreastfed || bbottlefed)
				{
					EvaluateCalciumIntake(ssex, iage, bpreg, blact, bbreastfed, bbottlefed, itotalcalcium);
				}
				else
				{
					document.getElementById("chkbreast").focus();
					alert('Please specify how you feed your child.');
				}
			}
*/
			EvaluateCalciumIntake(ssex, iage, bpreg, blact, bbreastfed, bbottlefed, itotalcalcium);
		}
		else
		{
			document.getElementById("txtagemths").focus();
			alert("Please enter your childs age.");
		}		
	}
}

function EvaluateCalciumIntake(ssex, iage, bpreg, blact, bbreastfed, bbottlefed, itotalcalcium)
{
	var idifference, iRDI, sextra;
	sextra = "";

	if (ssex == "infant")
	{
		if(iage > 11)
		{
			iage = parseInt(iage / 12);
			ssex = "child";
		}
	}

	if (ssex == "infant")
	{
		if (iage > 6)
		{
			iRDI = 270;
			sextra = sextra + "<p>Your childs calcium intake was <strong>"
		}
/*
		else
		{
			if (bbottlefed)
			{
				iRDI = 350;
				sextra = sextra + "<p>Your bottle fed child's calcium intake was <strong>"
			}
			else
			{
				iRDI = 210;
				sextra = sextra + "<p>Your breast fed child's calcium intake was <strong>"
			}
		}
*/		
	}
	else if (ssex == "male")
	{
		sextra = sextra + "<p>Your calcium intake was <strong>"
		
		if (iage < 4)
		{
			iRDI = 500;
		}
		else if (iage < 9)
		{
			iRDI = 700;
		}
		else if (iage < 12)
		{
			iRDI = 1000;
		}
		else if (iage < 14)
		{
			iRDI = 1300;
		}
		else if (iage < 19)
		{
			iRDI = 1300;
		}
		else if (iage < 31)
		{
			iRDI = 1000;
		}
		else if (iage < 51)
		{
			iRDI = 1000;
		}
		else if (iage < 71)
		{
			iRDI = 1000;
		}
		else
		{
			iRDI = 1300;
		}
	}
	else
	{
		sextra = sextra + "<p>Your calcium intake was <strong>"
		
		if (iage < 4)
		{
			iRDI = 500;
		}
		else if (iage < 9)
		{
			iRDI = 700;
		}
		else if (iage < 12)
		{
			iRDI = 1000;
		}
		else if (iage < 14)
		{
			iRDI = 1300;
		}
		else if (iage < 19)
		{
			if (bpreg)
			{
				iRDI = 1300;
			}
			else if (blact)
			{
				iRDI = 1300;
			}
			else
			{
				iRDI = 1300;
			}
		}
		else if (iage < 31)
		{
			if (bpreg)
			{
				iRDI = 1000;
			}
			else if (blact)
			{
				iRDI = 1000;
			}
			else
			{
				iRDI = 1000;
			}
		}
		else if (iage < 51)
		{
			if (bpreg)
			{
				iRDI = 1000;
			}
			else if (blact)
			{
				iRDI = 1000;
			}
			else
			{
				iRDI = 1000;
			}
		}
		else if (iage < 71)
		{
			iRDI = 1300;			
		}
		else
		{
			iRDI = 1300;
		}
	}

	idifference = iRDI - itotalcalcium;

	sextra = sextra + itotalcalcium + "</strong>mg.</p>"
	
	document.getElementById("calciumintake").innerHTML = sextra;	


	if (ssex == "infant" && iage < 7)
	{
		document.getElementById("calciumok").style.display = "none";
		document.getElementById("overrdi").style.display = "none";
		document.getElementById("calciumincrease").style.display = "none";
		document.getElementById("calciumintake").style.display = "none";
		document.getElementById("divinfant").style.display = "block";
	}
	else
	{
		document.getElementById("calciumintake").style.display = "block";
		
		if (itotalcalcium < 2500)
		{
			if (idifference > 0)
			{
				document.getElementById("calciumok").style.display = "none";
				document.getElementById("overrdi").style.display = "none";
				document.getElementById("divinfant").style.display = "none";
				document.getElementById("calciumincrease").style.display = "block";
				document.getElementById("calciumincreaseamt").innerHTML = idifference;
				document.getElementById("rdi1").innerHTML = iRDI;
			}
			else
			{
				document.getElementById("calciumincrease").style.display = "none";
				document.getElementById("overrdi").style.display = "none";
				document.getElementById("divinfant").style.display = "none";
				document.getElementById("calciumok").style.display = "block";
				document.getElementById("rdi2").innerHTML = iRDI;		
			}
		}
		else
		{
			document.getElementById("calciumincrease").style.display = "none";		
			document.getElementById("calciumok").style.display = "none";
			document.getElementById("divinfant").style.display = "none";
			document.getElementById("overrdi").style.display = "block";
		}
	}
	
	showelem("calciumrefs");
	
	window.open("RecordCalcResults.asp?ans=calciumnov2008&ans=" + ssex + "&ans=" + iage + "&ans=" + bpreg + "&ans=" + blact + "&ans=" + bbreastfed + "&ans=" + bbottlefed + "&ans=" + itotalcalcium + "&ans=" + iRDI, "", "width=50,height=50");
}

function calculatetotalcalcium()
{
	var itotal;
	
	itotal = 0;
	
	if (document.getElementById("txt1").value > 0) // Milk - regular
		{ itotal = itotal + (document.getElementById("txt1").value * 293); }
	if (document.getElementById("txt2").value > 0) // Milk - skim
		{ itotal = itotal + (document.getElementById("txt2").value * 319); }
	if (document.getElementById("txt3").value > 0) // Milk - reduced fat
		{ itotal = itotal + (document.getElementById("txt3").value * 352); }
	if (document.getElementById("txt4").value > 0) // Milk - low fat
		{ itotal = itotal + (document.getElementById("txt4").value * 416); }

	if (document.getElementById("txt5").value > 0) // Flavoured milk - chocolate, regular
		{ itotal = itotal + (document.getElementById("txt5").value * 334); }
	if (document.getElementById("txt6").value > 0) // Flavoured milk - chocolate, reduced fat
		{ itotal = itotal + (document.getElementById("txt6").value * 352); }

	if (document.getElementById("txt7").value > 0) // Yoghurt - plain
		{ itotal = itotal + (document.getElementById("txt7").value * 353); }
	if (document.getElementById("txt8").value > 0) // Yoghurt - plain, low fat
		{ itotal = itotal + (document.getElementById("txt8").value * 434); }
	if (document.getElementById("txt9").value > 0) // Yoghurt - fruit
		{ itotal = itotal + (document.getElementById("txt9").value * 353); }

	if (document.getElementById("txt10").value > 0) // Cheese - Cheddar
		{ itotal = itotal + (document.getElementById("txt10").value * 310); }
	if (document.getElementById("txt11").value > 0) // Cheese - Edam
		{ itotal = itotal + (document.getElementById("txt11").value * 360); }
	if (document.getElementById("txt12").value > 0) // Cheese - Parmesan
		{ itotal = itotal + (document.getElementById("txt12").value * 460); }

	if (document.getElementById("txt13").value > 0) // Icecream - regular
		{ itotal = itotal + (document.getElementById("txt13").value * 119); }
	if (document.getElementById("txt14").value > 0) // Icecream - low fat
		{ itotal = itotal + (document.getElementById("txt14").value * 146); }

	if (document.getElementById("txt15").value > 0) // Meat - beef, steak
		{ itotal = itotal + (document.getElementById("txt15").value * 6); }
	if (document.getElementById("txt16").value > 0) // Meat - lamb, midloin
		{ itotal = itotal + (document.getElementById("txt16").value * 8); }
	if (document.getElementById("txt17").value > 0) // Chicken - roasted/skin
		{ itotal = itotal + (document.getElementById("txt17").value * 13); }
	if (document.getElementById("txt18").value > 0) // Chicken - roasted/no skin
		{ itotal = itotal + (document.getElementById("txt18").value * 14); }
	if (document.getElementById("txt19").value > 0) // Salmon
		{ itotal = itotal + (document.getElementById("txt19").value * 21); }
	if (document.getElementById("txt20").value > 0) // Eggs
		{ itotal = itotal + (document.getElementById("txt20").value * 25); }

	if (document.getElementById("txt21").value > 0) // Broccoli
		{ itotal = itotal + (document.getElementById("txt21").value * 31); }
	if (document.getElementById("txt22").value > 0) // Apricots
		{ itotal = itotal + (document.getElementById("txt22").value * 33); }
	if (document.getElementById("txt23").value > 0) // Almonds
		{ itotal = itotal + (document.getElementById("txt23").value * 117); }
	if (document.getElementById("txt24").value > 0) // Baked Beans
		{ itotal = itotal + (document.getElementById("txt24").value * 47); }
	if (document.getElementById("txt25").value > 0) // Spinach
		{ itotal = itotal + (document.getElementById("txt25").value * 53); }
	if (document.getElementById("txt26").value > 0) // Apples
		{ itotal = itotal + (document.getElementById("txt26").value * 8); }
	if (document.getElementById("txt27").value > 0) // Oranges
		{ itotal = itotal + (document.getElementById("txt27").value * 38); }
	if (document.getElementById("txt28").value > 0) // Bread
		{ itotal = itotal + (document.getElementById("txt28").value * 24); }
	
	return itotal;
}

function uncheckinfant(sfeed)
{
	if (sfeed == 'breast')
	{
		document.getElementById("chkbottle").checked = "";
	}
	
	if (sfeed == 'bottle')
	{
		document.getElementById("chkbreast").checked = "";
	}
}

function showsex(bsex)
{
	if (bsex == 0)
	{
		showClass("calcauditquestionlist", "calcauditmale", 0);
		showClass("calcauditquestionlist", "calcauditfemale", 1);
		//vrad[0].checked = "checked";
	}
	else
	{
		showClass("calcauditquestionlist", "calcauditmale", 1);
		showClass("calcauditquestionlist", "calcauditfemale", 0);
		//vrad[4].checked = "checked";
	}
	//vrad = document.getElementById("rad2");
	//alert(findcheckedvalue(frmcalcaudit.rad2a));
	//alert(vrad[0].checked);

}

function showClass(strcontainer, strclass, bshow)
{
	var items = document.getElementById(strcontainer).getElementsByTagName('*');

	var regstr = new RegExp(strclass);
	
	for(var i=0; i < items.length; i++)
	{
		if(items[i].className.match(regstr))
		{
			if (bshow == 1)
			{
				items[i].style.display = 'block';

			}
			else
			{
				items[i].style.display = 'none';
				
			}
		}
	}
}


function findcheckedvalue(frm1)
{
	var ansnum;
			
	for (var i = 0; i < frm1.length; i++)
	{
		if(frm1[i].checked)
		{
			ansnum = frm1[i].value;
		}
	}
	return ansnum;			
}

function findchecked(frm1)
{
	var ansnum;
	var i;

	for (i = 0; i < frm1.length; i++)
	{
		if(frm1[i].checked)
		{
			ansnum = i+1;
		}
	}
	return ansnum;
}

// PSA evaluation calc.asp?calc=psa
function evaluatepsa()
{
	if (isNaN(document.getElementById("txtage").value)) 
	{
		alert('Please enter a number.');
		document.getElementById("txtage").focus;
	}
	else
	{
		if (isNaN(document.getElementById("txtpsa").value)) 
		{
			alert('Please enter a number.');
			document.getElementById("txtpsa").focus;
		}
		else
		{
			iage = document.getElementById("txtage").value;
			ipsa = document.getElementById("txtpsa").value;
			
			window.open("RecordCalcResults.asp?ans=psanov2008&ans=" + iage + "&ans=" + ipsa, "", "width=50,height=50");			
			
			bcutoff = 10;

			document.getElementById("psacata").style.display = "none";
			document.getElementById("psacatb").style.display = "none";
			document.getElementById("psacatc").style.display = "none";	
			document.getElementById("psaagediv").style.display = "none";	

			if (iage < 40 || iage > 79)
			{
				document.getElementById("psaagediv").style.display = "block";
			}
			else
			{
				if (iage < 50)
				{
					acutoff = 2.5;
				}
				else if (iage < 60)
				{
					acutoff = 3.5;
				}
				else if (iage < 70)
				{
					acutoff = 4.5;
				}
				else
				{
					acutoff = 6.5;
				}
				
				if (ipsa <= acutoff)
				{
					document.getElementById("psacata").style.display = "block";
				}
				else if (ipsa <= bcutoff)
				{
					document.getElementById("psacatb").style.display = "block";
				}
				else
				{
					document.getElementById("psacatc").style.display = "block";	
				}
				
				if (document.getElementById("psanotes"))
				{
					document.getElementById("psanotes").style.display = "block";
				}
			}

			document.getElementById("divreferences").style.display = "block";
			document.getElementById("divtoolbackground").style.backgroundImage= "url(images/tools/bg_tool_footer.jpg)";
			
		}
	}	
}

// AUDIT alcohol quiz
function calculateAUDIT()
{
	var itotal;
	var frmaudit;
	var radtwovalue;

	itotal = 0;
	frmaudit = document.getElementById("frmcalcaudit");
	
	if(findcheckedvalue(frmaudit.radsex) == 1)
	{
		radtwovalue = parseInt(findcheckedvalue(frmaudit.rad2a));
	}
	else
	{
		radtwovalue = parseInt(findcheckedvalue(frmaudit.rad2b));
	}

	// record the results
	window.open("RecordCalcResults.asp?ans=alcauditoct2008&ans=" + findcheckedvalue(frmaudit.radsex) + "&ans=" + parseInt(findcheckedvalue(frmaudit.rad1)) + "&ans=" + radtwovalue + "&ans=" + parseInt(findcheckedvalue(frmaudit.rad3)) + "&ans=" + parseInt(findcheckedvalue(frmaudit.rad4)) + "&ans=" + parseInt(findcheckedvalue(frmaudit.rad5)) + "&ans=" + parseInt(findcheckedvalue(frmaudit.rad6)) + "&ans=" + parseInt(findcheckedvalue(frmaudit.rad7)) + "&ans=" + parseInt(findcheckedvalue(frmaudit.rad8)) + "&ans=" + parseInt(findcheckedvalue(frmaudit.rad9)) + "&ans=" + parseInt(findcheckedvalue(frmaudit.rad10)), "", "width=50,height=50");

	itotal = itotal + parseInt(findcheckedvalue(frmaudit.rad1)) + radtwovalue + parseInt(findcheckedvalue(frmaudit.rad3)) + parseInt(findcheckedvalue(frmaudit.rad4)) + parseInt(findcheckedvalue(frmaudit.rad5)) + parseInt(findcheckedvalue(frmaudit.rad6)) + parseInt(findcheckedvalue(frmaudit.rad7)) + parseInt(findcheckedvalue(frmaudit.rad8)) + parseInt(findcheckedvalue(frmaudit.rad9)) + parseInt(findcheckedvalue(frmaudit.rad10));

	document.getElementById("calcauditscorehead").style.display = "block";
	document.getElementById("calcauditscore").innerHTML = itotal;
	document.getElementById("calcauditheading").style.display = "block";

	if (itotal < 8)
	{
		document.getElementById("calcauditlow").style.display = "block";
		document.getElementById("calcauditdeveloping").style.display = "none";
		document.getElementById("calcaudithigh").style.display = "none";
		document.getElementById("calcauditprobable").style.display = "none";
	}
	else if (itotal < 16)
	{
		document.getElementById("calcauditlow").style.display = "none";
		document.getElementById("calcauditdeveloping").style.display = "block";
		document.getElementById("calcaudithigh").style.display = "none";
		document.getElementById("calcauditprobable").style.display = "none";
	}
	else if (itotal < 20)
	{
		document.getElementById("calcauditlow").style.display = "none";
		document.getElementById("calcauditdeveloping").style.display = "none";
		document.getElementById("calcaudithigh").style.display = "block";
		document.getElementById("calcauditprobable").style.display = "none";
	}
	else
	{
		document.getElementById("calcauditlow").style.display = "none";
		document.getElementById("calcauditdeveloping").style.display = "none";
		document.getElementById("calcaudithigh").style.display = "none";
		document.getElementById("calcauditprobable").style.display = "block";
	}

}

// Alcohol quiz
function alccheckpregnancy()
{
	var bmale = findcheckedvalue(document.getElementById("frmalcohol").radsex);
	if (bmale == 'male')
	{
		document.getElementById("frmalcohol").radpreg[1].checked = "checked";
	}
}

function alcchecksex()
{
	var bpregnant = findcheckedvalue(document.getElementById("frmalcohol").radpreg);
	if (bpregnant == 'yes')
	{
		document.getElementById("frmalcohol").radsex[1].checked = "checked";
	}
}

function changeprice(selementid, fchange, imin, imax, idecimalplaces, bplus)
{
	var fnewprice;

	fnewprice = parseFloat(document.getElementById(selementid).value);
	
	if (bplus == 1)
	{
		// plus
		fnewprice = fnewprice + fchange;		
		if (fnewprice > imax)
		{
			fnewprice = imax;
		}
	}
	else
	{
		//minus
		fnewprice = fnewprice - fchange;
		if (fnewprice < imin )
		{
			fnewprice = imin;
		}
	}

	document.getElementById(selementid).value = format(fnewprice, idecimalplaces);
	
}

function calculatealcohol()
{
	var itotaldrinks = 0;
	var itotalcost = 0;
	var pout = document.getElementById("txtout").value / 100;
	var pin = 1 - pout;
	var iage = parseInt(document.getElementById("txtage").value, 10);
	var bmale, bpregnant, bhealth, bmental, bmedication;
	
	bmale = findcheckedvalue(document.getElementById("frmalcohol").radsex);
	if (bmale == 'male')
	{
		bmale = true;
	}
	else
	{
		bmale = false;
	}

	bpregnant = findcheckedvalue(document.getElementById("frmalcohol").radpreg);
	if (bpregnant == 'yes')
	{
		bpregnant = true;
	}
	else
	{
		bpregnant = false;
	}
	
	bhealth = findcheckedvalue(document.getElementById("frmalcohol").radhealth);
	if (bhealth == 'yes')
	{
		bhealth = true;
	}
	else
	{
		bhealth = false;
	}
	
	bmental = findcheckedvalue(document.getElementById("frmalcohol").radmental);
	if (bmental == 'yes')
	{
		bmental = true;
	}
	else
	{
		bmental = false;
	}

	bmedication = findcheckedvalue(document.getElementById("frmalcohol").radmed);
	if (bmedication == 'yes')
	{
		bmedication = true;
	}
	else
	{
		bmedication = false;
	}

	// record the results
	window.open("RecordCalcResults.asp?ans=alcoholjuly2008&ans=" + pout + "&ans=" + pin + "&ans=" + iage + "&ans=" + bmale + "&ans=" + bpregnant + "&ans=" + bhealth + "&ans=" + bmental + "&ans=" + bmedication + "&ans=" +  document.getElementById("txtamtbeerbottlefull").value + "&ans=" + document.getElementById("txtamtbeerbottlemid").value + "&ans=" + document.getElementById("txtamtbeerbottlelight").value + "&ans=" + document.getElementById("txtamtbeercartonfull").value + "&ans=" + document.getElementById("txtamtbeercartonmid").value + "&ans=" + document.getElementById("txtamtbeercartonlight").value + "&ans=" + document.getElementById("txtamtbeertapfull").value + "&ans=" + document.getElementById("txtamtbeertapmid").value + "&ans=" + document.getElementById("txtamtbeertaplight").value + "&ans=" + document.getElementById("txtamtspiritcan").value + "&ans=" + document.getElementById("txtamtspiritsoda").value + "&ans=" + document.getElementById("txtamtcartoncan").value + "&ans=" + document.getElementById("txtamtcartonsoda").value + "&ans=" + document.getElementById("txtamtspiritnip").value + "&ans=" + document.getElementById("txtamtspiritbottle").value + "&ans=" + document.getElementById("txtamtwineglass").value + "&ans=" + document.getElementById("txtamtwineserve").value + "&ans=" + document.getElementById("txtamtwinebottle").value + "&ans=" + document.getElementById("txtamtwinecask").value, "", "width=50,height=50");

	if (document.getElementById("txtamtbeerbottlefull").value > 0 )
	{
		itotaldrinks = itotaldrinks + (1.5 * document.getElementById("txtamtbeerbottlefull").value);
		itotalcost = itotalcost + (1.87 * document.getElementById("txtamtbeerbottlefull").value * pin);
		itotalcost = itotalcost + (8 * document.getElementById("txtamtbeerbottlefull").value * pout);		
	}
	
	if (document.getElementById("txtamtbeerbottlemid").value > 0 )
	{
		itotaldrinks = itotaldrinks + (1 * document.getElementById("txtamtbeerbottlemid").value);
		itotalcost = itotalcost + (1.66 * document.getElementById("txtamtbeerbottlemid").value * pin);
		itotalcost = itotalcost + (5.5 * document.getElementById("txtamtbeerbottlemid").value * pout);
	}

	if (document.getElementById("txtamtbeerbottlelight").value > 0 )
	{
		itotaldrinks = itotaldrinks + (0.8 * document.getElementById("txtamtbeerbottlelight").value);
		itotalcost = itotalcost + (1.45 * document.getElementById("txtamtbeerbottlelight").value * pin);
		itotalcost = itotalcost + (5.5 * document.getElementById("txtamtbeerbottlelight").value * pout);
	}

	if (document.getElementById("txtamtbeercartonfull").value > 0 )
	{
		itotaldrinks = itotaldrinks + (1.5 * 24 * document.getElementById("txtamtbeercartonfull").value);
		itotalcost = itotalcost + (1.87 * 24 * document.getElementById("txtamtbeercartonfull").value * pin);
		itotalcost = itotalcost + (8 * 24 * document.getElementById("txtamtbeercartonfull").value * pout);
	}

	if (document.getElementById("txtamtbeercartonmid").value > 0 )
	{
		itotaldrinks = itotaldrinks + (1 * 24 * document.getElementById("txtamtbeercartonmid").value);
		itotalcost = itotalcost + (1.66 * 24 * document.getElementById("txtamtbeercartonmid").value * pin);
		itotalcost = itotalcost + (5.5 * 24 * document.getElementById("txtamtbeercartonmid").value * pout);
	}

	if (document.getElementById("txtamtbeercartonlight").value > 0 )
	{
		itotaldrinks = itotaldrinks + (0.8 * 24 * document.getElementById("txtamtbeercartonlight").value);
		itotalcost = itotalcost + (1.45 * 24 * document.getElementById("txtamtbeercartonlight").value * pin);
		itotalcost = itotalcost + (5.5 * 24 * document.getElementById("txtamtbeercartonlight").value * pout);
	}

	if (document.getElementById("txtamtbeertapfull").value > 0 )
	{
		itotaldrinks = itotaldrinks + (1 * document.getElementById("txtamtbeertapfull").value);
		itotalcost = itotalcost + (1.42 * document.getElementById("txtamtbeertapfull").value * pin);
		itotalcost = itotalcost + (7 * document.getElementById("txtamtbeertapfull").value * pout);
	}

	if (document.getElementById("txtamtbeertapmid").value > 0 )
	{
		itotaldrinks = itotaldrinks + (0.7 * document.getElementById("txtamtbeertapmid").value);
		itotalcost = itotalcost + (1.26 * document.getElementById("txtamtbeertapmid").value * pin);
		itotalcost = itotalcost + (6 * document.getElementById("txtamtbeertapmid").value * pout);
	}

	if (document.getElementById("txtamtbeertaplight").value > 0 )
	{
		itotaldrinks = itotaldrinks + (0.5 * document.getElementById("txtamtbeertaplight").value);
		itotalcost = itotalcost + (1.10 * document.getElementById("txtamtbeertaplight").value * pin);
		itotalcost = itotalcost + (5 * document.getElementById("txtamtbeertaplight").value * pout);
	}

	if (document.getElementById("txtamtspiritcan").value > 0 )
	{
		itotaldrinks = itotaldrinks + (1.5 * document.getElementById("txtamtspiritcan").value);
		itotalcost = itotalcost + (3.00 * document.getElementById("txtamtspiritcan").value * pin);
		itotalcost = itotalcost + (8 * document.getElementById("txtamtspiritcan").value * pout);
	}

	if (document.getElementById("txtamtspiritsoda").value > 0 )
	{
		itotaldrinks = itotaldrinks + (1.5 * document.getElementById("txtamtspiritsoda").value);
		itotalcost = itotalcost + (3.75 * document.getElementById("txtamtspiritsoda").value * pin);
		itotalcost = itotalcost + (8 * document.getElementById("txtamtspiritsoda").value * pout);
	}

	if (document.getElementById("txtamtcartoncan").value > 0 )
	{
		itotaldrinks = itotaldrinks + (1.5 * 24 * document.getElementById("txtamtcartoncan").value);
		itotalcost = itotalcost + (3.00 * 24 * document.getElementById("txtamtcartoncan").value * pin);
		itotalcost = itotalcost + (8 * 24 * document.getElementById("txtamtcartoncan").value * pout);
	}

	if (document.getElementById("txtamtcartonsoda").value > 0 )
	{
		itotaldrinks = itotaldrinks + (1.5 * 24 * document.getElementById("txtamtcartonsoda").value);
		itotalcost = itotalcost + (3.75 * 24 * document.getElementById("txtamtcartonsoda").value * pin);
		itotalcost = itotalcost + (8 * 24 * document.getElementById("txtamtcartonsoda").value * pout);
	}

	if (document.getElementById("txtamtspiritnip").value > 0 )
	{
		itotaldrinks = itotaldrinks + (1 * document.getElementById("txtamtspiritnip").value);
		itotalcost = itotalcost + (1.40 * document.getElementById("txtamtspiritnip").value * pin);
		itotalcost = itotalcost + (7 * document.getElementById("txtamtspiritnip").value * pout);
	}

	if (document.getElementById("txtamtspiritbottle").value > 0 )
	{
		itotaldrinks = itotaldrinks + (24 * document.getElementById("txtamtspiritbottle").value);
		itotalcost = itotalcost + (35.00 * document.getElementById("txtamtspiritbottle").value * pin);
		itotalcost = itotalcost + (7 * 24 * document.getElementById("txtamtspiritbottle").value * pout);
	}

	if (document.getElementById("txtamtwineglass").value > 0 )
	{
		itotaldrinks = itotaldrinks + (1 * document.getElementById("txtamtwineglass").value);
		itotalcost = itotalcost + (2.00 * document.getElementById("txtamtwineglass").value * pin);
		itotalcost = itotalcost + (5 * document.getElementById("txtamtwineglass").value * pout);
	}

	if (document.getElementById("txtamtwineserve").value > 0 )
	{
		itotaldrinks = itotaldrinks + (1.8 * document.getElementById("txtamtwineserve").value);
		itotalcost = itotalcost + (3.60 * document.getElementById("txtamtwineserve").value * pin);
		itotalcost = itotalcost + (8 * document.getElementById("txtamtwineserve").value * pout);
	}

	if (document.getElementById("txtamtwinebottle").value > 0 )
	{
		itotaldrinks = itotaldrinks + (7 * document.getElementById("txtamtwinebottle").value);
		itotalcost = itotalcost + (15.00 * document.getElementById("txtamtwinebottle").value * pin);
		itotalcost = itotalcost + (30 * document.getElementById("txtamtwinebottle").value * pout);
	}

	if (document.getElementById("txtamtwinecask").value > 0 )
	{
		itotaldrinks = itotaldrinks + (36 * document.getElementById("txtamtwinecask").value);
		itotalcost = itotalcost + (14 * document.getElementById("txtamtwinecask").value * pin);
		itotalcost = itotalcost + (70 * document.getElementById("txtamtwinecask").value * pout);
	}

	
	alcoholhideall();
	
	if (bmale)
	{
		if (itotaldrinks > 28)
		{
			document.getElementById("malegt28").style.display = "block";
		}
		else if(itotaldrinks > 14)
		{
			document.getElementById("malegt14").style.display = "block";
		}
		else if (itotaldrinks > 6 )
		{
			document.getElementById("malegt7").style.display = "block";
		}
		else
		{
			document.getElementById("malelt7").style.display = "block";
		}
		
		if (iage > 65 )
		{
			document.getElementById("maleagegt65").style.display = "block";
		}
		
		if (iage > 17 && iage < 25)
		{
			document.getElementById("maleagelt25").style.display = "block";
		}
		
		if (iage < 18)
		{
			document.getElementById("maleagelt18").style.display = "block";
		}
		
		document.getElementById("malespacing").style.display = "block";
	}
	else
	{
		if (itotaldrinks > 14)
		{
			document.getElementById("femalegt14").style.display = "block";
		}
		else if (itotaldrinks > 7)
		{
			document.getElementById("femalegt7").style.display = "block";
		}
		else if (itotaldrinks > 4)
		{
			document.getElementById("femalegt4").style.display = "block";
		}
		else
		{
			document.getElementById("femalelt4").style.display = "block";
		}
		
		if (iage > 65)
		{
			document.getElementById("femaleagegt65").style.display = "block";
		}
		
		if (iage < 25 && iage > 17)
		{
			document.getElementById("femaleagelt25").style.display = "block";
		}
		
		if (iage < 18)
		{
			document.getElementById("femaleagelt18").style.display = "block";
		}
		
		if (bpregnant)
		{
			document.getElementById("pregnant").style.display = "block";
		}
		
		document.getElementById("femalespacing").style.display = "block";
	}
	
	
	if (bhealth)
	{
		document.getElementById("health").style.display = "block";
	}
	
	if (bmental)
	{
		document.getElementById("mental").style.display = "block";
	}
	
	if (bmedication)
	{
		document.getElementById("medication").style.display = "block";
	}
	
	document.getElementById("cost").style.display = "block";

	document.getElementById("txtperweek").innerText = "$" + format(itotalcost, 2);
	document.getElementById("txtperweek").style.display = "block";
	document.getElementById("txtpermonth").innerText = "$" + format(itotalcost * 4, 2);
	document.getElementById("txtpermonth").style.display = "block";
	document.getElementById("txtperyear").innerText = "$" + format(itotalcost * 52, 2);
	document.getElementById("txtperyear").style.display = "block";
	
	document.getElementById("allinfo").style.display = "block";

}

function alcoholhideall()
{
	document.getElementById("malegt28").style.display = "none";
	document.getElementById("malegt14").style.display = "none";
	document.getElementById("malegt7").style.display = "none";
	document.getElementById("malelt7").style.display = "none";
	document.getElementById("maleagegt65").style.display = "none";
	document.getElementById("maleagelt25").style.display = "none";
	document.getElementById("maleagelt18").style.display = "none";
	document.getElementById("malespacing").style.display = "none";
	document.getElementById("femalegt14").style.display = "none";
	document.getElementById("femalegt7").style.display = "none";
	document.getElementById("femalegt4").style.display = "none";
	document.getElementById("femalelt4").style.display = "none";
	document.getElementById("femaleagegt65").style.display = "none";
	document.getElementById("femaleagelt25").style.display = "none";
	document.getElementById("femaleagelt18").style.display = "none";
	document.getElementById("pregnant").style.display = "none";
	document.getElementById("femalespacing").style.display = "none";
	document.getElementById("health").style.display = "none";
	document.getElementById("mental").style.display = "none";
	document.getElementById("medication").style.display = "none";
	document.getElementById("cost").style.display = "none";
	document.getElementById("txtperweek").style.display = "none";
	document.getElementById("txtpermonth").style.display = "none";
	document.getElementById("txtperyear").style.display = "none";
	document.getElementById("allinfo").style.display = "none";
}

// ADHD July 2008
function calculateadhd()
{
	var frmadhd;
	var itotal;
	var iradtwelvevalue;
	
	frmadhd = document.getElementById("frmadhdjuly2008");
	
	itotal = parseInt(findcheckedvalue(frmadhd.rad1)) + parseInt(findcheckedvalue(frmadhd.rad2)) + parseInt(findcheckedvalue(frmadhd.rad3)) + parseInt(findcheckedvalue(frmadhd.rad4)) + parseInt(findcheckedvalue(frmadhd.rad5)) + parseInt(findcheckedvalue(frmadhd.rad6)) + parseInt(findcheckedvalue(frmadhd.rad7)) + parseInt(findcheckedvalue(frmadhd.rad8)) + parseInt(findcheckedvalue(frmadhd.rad9)) + parseInt(findcheckedvalue(frmadhd.rad10)) + parseInt(findcheckedvalue(frmadhd.rad11))

	window.open("RecordCalcResults.asp?ans=adhdjuly2008&ans=" + parseInt(findcheckedvalue(frmadhd.rad1)) + "&ans=" + parseInt(findcheckedvalue(frmadhd.rad2)) + "&ans=" + parseInt(findcheckedvalue(frmadhd.rad3)) + "&ans=" + parseInt(findcheckedvalue(frmadhd.rad4)) + "&ans=" + parseInt(findcheckedvalue(frmadhd.rad5)) + "&ans=" + parseInt(findcheckedvalue(frmadhd.rad6)) + "&ans=" + parseInt(findcheckedvalue(frmadhd.rad7)) + "&ans=" + parseInt(findcheckedvalue(frmadhd.rad8)) + "&ans=" + parseInt(findcheckedvalue(frmadhd.rad9)) + "&ans=" + parseInt(findcheckedvalue(frmadhd.rad10)) + "&ans=" + parseInt(findcheckedvalue(frmadhd.rad11)) + "&ans=" + parseInt(findchecked(frmadhd.rad12)), "", "width=50,height=50");

	if (findchecked(frmadhd.rad12) < 6)
	{
		iradtwelvevalue = 0;	
	}
	else
	{
		iradtwelvevalue = 1;
	}

	itotal = itotal + iradtwelvevalue;
	
	if (itotal < 3)
	{
		document.getElementById("adhdunlikely").style.display = "block";
		document.getElementById("adhdconcerned").style.display = "none";
		document.getElementById("adhdsome").style.display = "none";
		document.getElementById("adhdasap").style.display = "none";
		document.getElementById("adhdunlikely").focus();
	}
	else if (itotal < 6)
	{
		document.getElementById("adhdunlikely").style.display = "none";
		document.getElementById("adhdconcerned").style.display = "block";
		document.getElementById("adhdsome").style.display = "none";
		document.getElementById("adhdasap").style.display = "none";
		document.getElementById("adhdconcerned").focus();
	}
	else if (itotal < 12)
	{
		document.getElementById("adhdunlikely").style.display = "none";
		document.getElementById("adhdconcerned").style.display = "none";
		document.getElementById("adhdsome").style.display = "block";
		document.getElementById("adhdasap").style.display = "none";
		document.getElementById("adhdsome").focus();
	}		
	else
	{
		document.getElementById("adhdunlikely").style.display = "none";
		document.getElementById("adhdconcerned").style.display = "none";
		document.getElementById("adhdsome").style.display = "none";
		document.getElementById("adhdasap").style.display = "block";
		document.getElementById("adhdasap").focus();
	}

}

function showalladhd()
{
	document.getElementById("adhdshowlinkrow").style.display = "none";
	document.getElementById("adhdhidden1").style.display = "block";
	document.getElementById("adhdhidden2").style.display = "block";
	document.getElementById("adhdhidden3").style.display = "block";
	document.getElementById("adhdhidden4").style.display = "block";
	document.getElementById("adhdhidden5").style.display = "block";
	document.getElementById("adhdhidden6").style.display = "block";
	document.getElementById("adhdhidden7").style.display = "block";
	document.getElementById("adhdhidden8").style.display = "block";
	document.getElementById("adhdhidden9").style.display = "block";
	document.getElementById("adhdhidden10").style.display = "block";
	document.getElementById("adhdhidden11").style.display = "block";
	document.getElementById("adhdhidden12").style.display = "block";
	document.getElementById("adhdhidden13").style.display = "block";
	document.getElementById("adhdhidden14").style.display = "block";
	document.getElementById("adhdhidden15").style.display = "block";
	document.getElementById("adhdhidden16").style.backgroundImage = "url(images/tools/bg_tool_footer.jpg)";	
}

// Blood count
function calculatebloodcount()
{
	bloodform = document.getElementById("frmbloodcount");
	
	var bpreg;
	var bathletic;
	var sanswer;
	
	if(findcheckedvalue(bloodform.radpreg) == 'yes'	)
	{
		bpreg = true;
	}
	else
	{
		bpreg = false;
	}

	if(findcheckedvalue(bloodform.radathletic) == 'yes'	)
	{
		bathletic = true;
	}
	else
	{
		bathletic = false;
	}

	// hide all answer rows
	document.getElementById("rowhaemoglobin").style.display = "none";
	document.getElementById("rowmeancorpuscularvolume").style.display = "none";
	document.getElementById("rowmeancorpuscularhaemoglobin").style.display = "none";
	document.getElementById("rowwhitebloodcells").style.display = "none";
	document.getElementById("rowplatelets").style.display = "none";
	document.getElementById("rowlymphocytes").style.display = "none";
	document.getElementById("rowmonocytes").style.display = "none";
	document.getElementById("roweosinophils").style.display = "none";
	document.getElementById("rowneutrophils").style.display = "none";

	var finputvalue1 = 0;
	sanswer = document.getElementById("anshaemoglobin");
	finputvalue1 = parseFloat(document.getElementById("txthaemoglobin").value);
	if(isNaN(finputvalue1))
	{finputvalue1 = 0;}
	else
	{
		if (navigator.appName == "Microsoft Internet Explorer")
		{
			document.getElementById("rowhaemoglobin").style.display = "block";
		}
		else
		{
			document.getElementById("rowhaemoglobin").style.display = "table-row";
		}
		
		sanswer.innerHTML = "Normal";
		
		if(finputvalue1 > 150)
		{
			if(bpreg || bathletic)
				{sanswer.innerHTML = "Your haemoglobin count is above the normal range. In extreme cases this could be due to a haemotological disease.";}
			else
				{sanswer.innerHTML = "Your haemoglobin count is above the normal range. In extreme cases this could be due to a haemotological disease.";}
		}
		else if(finputvalue1 < 115)
		{
			if(bpreg || bathletic)
				{sanswer.innerHTML = "Your haemoglobin count is below the normal range, this is most likely due to your pregnancy or very active lifestyle.";}
			else
				{sanswer.innerHTML = "Your haemoglobin count is below the normal range. This could be indicative of a condition called anaemia.";}
		}
		else
		{sanswer.innerHTML = "Normal";}
		
		if(finputvalue1 == 0){sanswer.innerHTML = "No data";}
	}
	
		
	var finputvalue2 = 0;
	sanswer = document.getElementById("ansmeancorpuscularvolume");
	finputvalue2 = parseFloat(document.getElementById("txtmcv").value);
	if(isNaN(finputvalue2))
	{finputvalue2 = 0;}
	else
	{
		if (navigator.appName == "Microsoft Internet Explorer")
		{
			document.getElementById("rowmeancorpuscularvolume").style.display = "block";
		}
		else
		{
			document.getElementById("rowmeancorpuscularvolume").style.display = "table-row";
		}
		
		sanswer.innerHTML = "Normal";
		
		if(finputvalue2 > 98)
		{
			sanswer.innerHTML = "Your blood is made up of a high proportion of red blood cells. This could indicate that you are dehydrated.";
		}
		else if(finputvalue2 < 77)
		{
			sanswer.innerHTML = "Your blood is made up of a low proportion of red blood cells. This could be indicative of a condition called anaemia.";
		}
		else
		{sanswer.innerHTML = "Normal";}
		
		if(finputvalue2 == 0){sanswer.innerHTML = "No data";}
	}
	
		
	var finputvalue3 = 0;
	sanswer = document.getElementById("ansmeancorpuscularhaemoglobin");
	finputvalue3 = parseFloat(document.getElementById("txtmch").value);
	if(isNaN(finputvalue3))
	{finputvalue3 = 0;}
	else
	{
		if (navigator.appName == "Microsoft Internet Explorer")
		{
			document.getElementById("rowmeancorpuscularhaemoglobin").style.display = "block";
		}
		else
		{
			document.getElementById("rowmeancorpuscularhaemoglobin").style.display = "table-row";
		}
		
		sanswer.innerHTML = "Normal";
		
		if(finputvalue3 > 27)
		{
			sanswer.innerHTML = "Your red blood cells have a high proportion of haemoglobin. This could be indicative of a blood disorder or dehydration.";
		}
		else if(finputvalue3 < 24)
		{
			sanswer.innerHTML = "Your red blood cells have a low proportion of haemoglobin. This could be indicative of a condition called anaemia.";
		}
		else
		{sanswer.innerHTML = "Normal";}
		
		if(finputvalue3 == 0){sanswer.innerHTML = "No data";}
	}
	
	
	var finputvalue4 = 0;
	sanswer = document.getElementById("answhitebloodcells");
	finputvalue4 = parseFloat(document.getElementById("txtwbc").value);
	if(isNaN(finputvalue4))
	{finputvalue4 = 0;}
	else
	{
		if (navigator.appName == "Microsoft Internet Explorer")
		{
			document.getElementById("rowwhitebloodcells").style.display = "block";
		}
		else
		{
			document.getElementById("rowwhitebloodcells").style.display = "table-row";
		}
		
		sanswer.innerHTML = "Normal";
		
		if(finputvalue4 > 10)
		{
			sanswer.innerHTML = "Your leukocyte count is above the normal range. In extreme cases this could be the result of leukaemia or lymphoma.";
		}
		else if(finputvalue4 < 4)
		{
			sanswer.innerHTML = "Your leukocyte count is below the normal range. In extreme cases this called be due to neutropenia.";
		}
		else
		{sanswer.innerHTML = "Normal";}
		
		if(finputvalue4 == 0){sanswer.innerHTML = "No data";}
	}
	
		
	var finputvalue5 = 0;
	sanswer = document.getElementById("ansplatelets");
	finputvalue5 = parseFloat(document.getElementById("txtplatelets").value);
	if(isNaN(finputvalue5))
	{finputvalue5 = 0;}
	else
	{
		if (navigator.appName == "Microsoft Internet Explorer")
		{
			document.getElementById("rowplatelets").style.display = "block";
		}
		else
		{
			document.getElementById("rowplatelets").style.display = "table-row";
		}
		
		sanswer.innerHTML = "Normal";
		
		if(finputvalue5 > 7.5)
		{
			sanswer.innerHTML = "Your haemoglobin level is above the normal range. This could be indicative of a condition called thrombocytosis.";
		}
		else if(finputvalue5 < 2)
		{
			sanswer.innerHTML = "Your haemoglobin level is below the normal range. This could be indicative of a condition called thrombocytopenia.";
		}
		else
		{sanswer.innerHTML = "Normal";}
		
		if(finputvalue5 == 0){sanswer.innerHTML = "No data";}
	}
	
		
	var finputvalue6 = 0;
	sanswer = document.getElementById("anslymphocytes");
	finputvalue6 = parseFloat(document.getElementById("txtlymphocytes").value);
	if(isNaN(finputvalue6))
	{finputvalue6 = 0;}
	else
	{
		if (navigator.appName == "Microsoft Internet Explorer")
		{
			document.getElementById("rowlymphocytes").style.display = "block";
		}
		else
		{
			document.getElementById("rowlymphocytes").style.display = "table-row";
		}
		
		sanswer.innerHTML = "Normal";
		
		if(finputvalue6 > 400)
		{
			sanswer.innerHTML = "Your lymphocyte count is above the normal range. In extreme cases this could be the result of leukaemia or lymphoma.";
		}
		else if(finputvalue6 < 150)
		{
			sanswer.innerHTML = "Your lymphocyte count is below the normal range. In extreme cases this could result in infection.";
		}
		else
		{sanswer.innerHTML = "Normal";}
		
		if(finputvalue6 == 0){sanswer.innerHTML = "No data";}
	}
	
	
	var finputvalue7 = 0;
	sanswer = document.getElementById("ansmonocytes");
	finputvalue7 = parseFloat(document.getElementById("txtmonocytes").value);
	if(isNaN(finputvalue7))
	{finputvalue7 = 0;}
	else
	{
		if (navigator.appName == "Microsoft Internet Explorer")
		{
			document.getElementById("rowmonocytes").style.display = "block";
		}
		else
		{
			document.getElementById("rowmonocytes").style.display = "table-row";
		}
		
		sanswer.innerHTML = "Normal";
		
		if(finputvalue7 > 1.0)
		{
			sanswer.innerHTML = "Your monocyte count is above the normal range. In extreme cases this could be the result of leukaemia or lymphoma.";
		}
		else if(finputvalue7 < 0.2)
		{
			sanswer.innerHTML = "Your monocyte count is below the normal range. In extreme cases this could result in infection.";
		}
		else
		{sanswer.innerHTML = "Normal";}
		
		if(finputvalue7 == 0){sanswer.innerHTML = "No data";}
	}
	
		
	var finputvalue8 = 0;
	sanswer = document.getElementById("anseosinophils");
	finputvalue8 = parseFloat(document.getElementById("txteosinophils").value);
	if(isNaN(finputvalue8))
	{finputvalue8 = 0;}
	else
	{
		if (navigator.appName == "Microsoft Internet Explorer")
		{
			document.getElementById("roweosinophils").style.display = "block";
		}
		else
		{
			document.getElementById("roweosinophils").style.display = "table-row";
		}
		
		sanswer.innerHTML = "Normal";
		
		if(finputvalue8 > 0.5)
		{
			sanswer.innerHTML = "Your eosinophil count is above the normal range. This could be indicative of a condition named eosinophillia.";
		}
		else if(finputvalue8 < 0.02)
		{
			sanswer.innerHTML = "Your eosinophil count is below the normal range. This could be indicative of a condition named eosinopenia.";
		}
		else
		{sanswer.innerHTML = "Normal";}
		
		if(finputvalue8 == 0){sanswer.innerHTML = "No data";}
	}
	
		
	var finputvalue9 = 0;
	sanswer = document.getElementById("ansneutrophils");
	finputvalue9 = parseFloat(document.getElementById("txtneutrophils").value);
	if(isNaN(finputvalue9))
	{finputvalue9 = 0;}
	else
	{
		if (navigator.appName == "Microsoft Internet Explorer")
		{
			document.getElementById("rowneutrophils").style.display = "block";
		}
		else
		{
			document.getElementById("rowneutrophils").style.display = "table-row";
		}
		
		sanswer.innerHTML = "Normal";
		
		if(finputvalue9 > 3.5)
		{
			sanswer.innerHTML = "Your neutrophil count is above the normal range. In extreme cases this could be the result of leukaemia or lymphoma.";
		}
		else if(finputvalue9 < 1)
		{
			sanswer.innerHTML = "Your neutrophil count is below the normal range. In extreme cases this called be due to neutropenia.";
		}
		else
		{sanswer.innerHTML = "Normal";}
		
		if(finputvalue9 == 0){sanswer.innerHTML = "No data";}
	}

	// record results
	window.open("RecordCalcResults.asp?ans=bloodcountjuly2008&ans=" + bpreg + "&ans=" + bathletic + "&ans=" + finputvalue1 + "&ans=" + finputvalue2 + "&ans=" + finputvalue3 + "&ans=" + finputvalue4 + "&ans=" + finputvalue5 + "&ans=" + finputvalue6 + "&ans=" + finputvalue7 + "&ans=" + finputvalue8 + "&ans=" + finputvalue9, "", "width=50,height=50");

}

// Dry eye syndrome questionnaire
function calculatedry()
{
	var itotal;
	var dryform;
	
	dryform = document.getElementById("frmdry");

	itotal = parseInt(findcheckedvalue(dryform.rad1)) + parseInt(findcheckedvalue(dryform.rad2)) + parseInt(findcheckedvalue(dryform.rad3)) + parseInt(findcheckedvalue(dryform.rad4)) + parseInt(findcheckedvalue(dryform.rad5)) + parseInt(findcheckedvalue(dryform.rad6)) + parseInt(findcheckedvalue(dryform.rad7)) + parseInt(findcheckedvalue(dryform.rad8)) + parseInt(findcheckedvalue(dryform.rad9)) + parseInt(findcheckedvalue(dryform.rad10)) + parseInt(findcheckedvalue(dryform.rad11)) + parseInt(findcheckedvalue(dryform.rad12)) + parseInt(findcheckedvalue(dryform.rad13)) + parseInt(findcheckedvalue(dryform.rad14))

	window.open("RecordCalcResults.asp?ans=dryeye&ans=" + parseInt(findcheckedvalue(dryform.rad1)) + "&ans=" + parseInt(findcheckedvalue(dryform.rad2)) + "&ans=" + parseInt(findcheckedvalue(dryform.rad3)) + "&ans=" + parseInt(findcheckedvalue(dryform.rad4)) + "&ans=" + parseInt(findcheckedvalue(dryform.rad5)) + "&ans=" + parseInt(findcheckedvalue(dryform.rad6)) + "&ans=" + parseInt(findcheckedvalue(dryform.rad7)) + "&ans=" + parseInt(findcheckedvalue(dryform.rad8)) + "&ans=" + parseInt(findcheckedvalue(dryform.rad9)) + "&ans=" + parseInt(findcheckedvalue(dryform.rad10)) + "&ans=" + parseInt(findcheckedvalue(dryform.rad11)) + "&ans=" + parseInt(findcheckedvalue(dryform.rad12)) + "&ans=" + parseInt(findcheckedvalue(dryform.rad13)) + "&ans=" + parseInt(findcheckedvalue(dryform.rad14)), "", "width=50,height=50");

	if (itotal < 7)
	{
		document.getElementById("dryunlikely").style.display = "block";
		document.getElementById("drynumber").style.display = "none";
		document.getElementById("drylikely").style.display = "none";		
	}
	else if (itotal < 15)
	{
		document.getElementById("drynumber").style.display = "block";
		document.getElementById("dryunlikely").style.display = "none";		
		document.getElementById("drylikely").style.display = "none";
	}
	else
	{
		document.getElementById("drylikely").style.display = "block";
		document.getElementById("dryunlikely").style.display = "none";		
		document.getElementById("drynumber").style.display = "none";
	}		
}

// when link clicked, show the entire quiz.
function showalldry()
{
//	alert('here');
	document.getElementById("dryshowlinkrow").style.display = "none";
	document.getElementById("hiderow1").style.display = "block";
	document.getElementById("hiderow2").style.display = "block";
	document.getElementById("hiderow3").style.display = "block";
	document.getElementById("hiderow4").style.display = "block";
	document.getElementById("hiderow5").style.display = "block";
	document.getElementById("hiderow6").style.display = "block";
	document.getElementById("hiderow7").style.display = "block";
	document.getElementById("hiderow8").style.display = "block";
	document.getElementById("hiderow9").style.display = "block";
	document.getElementById("hiderow10").style.display = "block";
	document.getElementById("hiderow11").style.display = "block";
	document.getElementById("hiderow12").style.display = "block";
	
	document.getElementById("drytable").style.background = "url(images/tools/dry_eye_tool_bg.jpg)";
	document.getElementById("drytable").style.height = "600px";
	
}

// calculate the expected due date
function pregduedate()
{
	var re = new RegExp;
	re = '^[0-3][0-9]-[0-1][0-9]-[1-2][0-9][0-9][0-9]$';

	if (document.getElementById("pregstartdate").value.match(re))
	{
		var dateArray = document.getElementById("pregstartdate").value.split("-");
	
		var nextDate = new Date(dateArray[2],dateArray[1] - 1,dateArray[0]);

		nextDate.setDate(nextDate.getDate() + 280);
		
		document.getElementById("edd").value = nextDate.getDate() + "-" + (nextDate.getMonth() + 1) + "-" + nextDate.getFullYear()
		
		
		var arrCurrent, arrNext;
		var strCurrent, strNext;
		var dateTemp;
		
		arrCurrent = document.getElementById("pregstartdate").value.split("-");
		arrNext = document.getElementById("edd").value.split("-");
		
		dateTemp = new Date(arrCurrent[2],arrCurrent[1] - 1,arrCurrent[0]);
		strCurrent = dateTemp.getFullYear() + "-" + (dateTemp.getMonth() + 1) + "-" + dateTemp.getDate();
		
		dateTemp = new Date(arrNext[2],arrNext[1] - 1,arrNext[0]);
		strNext = dateTemp.getFullYear() + "-" + (dateTemp.getMonth() + 1) + "-" + dateTemp.getDate();

		
		//window.open("RecordCalcResults.asp?ans=pregnancy&ans=" + document.getElementById("pregstartdate").value + "&ans=" + document.getElementById("edd").value, "", "width=500,height=500");
		window.open("RecordCalcResults.asp?ans=pregnancy&ans=" + strCurrent + "&ans=" + strNext, "", "width=50,height=50");
	}
	else
	{
		alert('Please enter a date in the format of "dd-mm-yyyy". eg 27-03-2007');
	}
}

// get the pregnancy start date
function calculateduedate()
{
	popUpCalendar(document.getElementById("preglastmen"), document.getElementById("pregstartdate"), "dd-mm-yyyy");
}

// clear the pregnancy form
function clearpregform()
{
	document.getElementById("edd").value = "";	
	document.getElementById("pregstartdate").value = "";		
}

// calculate the next menstruation date
function nextmen()
{
	var re = new RegExp;
	re = '^[0-3][0-9]-[0-1][0-9]-[1-2][0-9][0-9][0-9]$';

	if (document.getElementById("menidate").value.match(re))
	{
		var dateArray = document.getElementById("menidate").value.split("-");
		
		var nextDate = new Date(dateArray[2],dateArray[1] - 1,dateArray[0]);
	
		nextDate.setDate(nextDate.getDate() + 28);
		
		document.getElementById("meni").value = nextDate.getDate() + "-" + (nextDate.getMonth() + 1) + "-" + nextDate.getFullYear()
		
		var arrCurrent, arrNext;
		var strCurrent, strNext;
		var dateTemp;
		
		arrCurrent = document.getElementById("menidate").value.split("-");
		arrNext = document.getElementById("meni").value.split("-");
		
		dateTemp = new Date(arrCurrent[2],arrCurrent[1] - 1,arrCurrent[0]);
		strCurrent = dateTemp.getFullYear() + "-" + (dateTemp.getMonth() + 1) + "-" + dateTemp.getDate();
		
		dateTemp = new Date(arrNext[2],arrNext[1] - 1,arrNext[0]);
		strNext = dateTemp.getFullYear() + "-" + (dateTemp.getMonth() + 1) + "-" + dateTemp.getDate();
		
		//window.open("RecordCalcResults.asp?ans=menstruation&ans=" + document.getElementById("menidate").value + "&ans=" + document.getElementById("meni").value, "", "width=500,height=500");
		window.open("RecordCalcResults.asp?ans=menstruation&ans=" + strCurrent + "&ans=" + strNext, "", "width=50,height=50");
	
	}
	else
	{
		alert('Please enter a date in the format of "dd-mm-yyyy". eg 27-03-2007');
	}
}

// get the last menstruation date
function calculatemen()
{
	popUpCalendar(document.getElementById("submen"), document.getElementById("menidate"), "dd-mm-yyyy");
}

// clear the two text boxes
function clearmeniform()
{
	document.getElementById("menidate").value = "";	
	document.getElementById("meni").value = "";		
}

function calculategfr()
{
	// Creatinine clearance = [140 – age (years)] x Lean Body Weight (kg) x 1.23 (if male)
    //     (GFR)                   -----------------------------------------------------------------------
    // (mls / min)                                      Serum creatinine (umol/L)

	var iage, fweight, ssex, fserum, fgfr;

	iage = document.getElementById("gfrage");
	
	fweight = document.getElementById("gfrweight");
	
	ssex = document.getElementById("gfrsex");
	
	fserum = document.getElementById("gfrserum");
	
	gfr = document.getElementById("gfrgfr");

	if (iage.value)
	{
		if (isNaN(iage.value))
		{
			alert("Please enter your age in years.");
			iage.focus();
		}
		else
		{
			if (fweight.value)
			{
				if(isNaN(fweight.value))
				{
					alert("Please enter your weight in kilograms (kg).");
					fweight.focus();
				}
				else
				{
					if (document.frmgfr.gfrsex[0].checked || document.frmgfr.gfrsex[1].checked)
					{
						if (fserum.value)
						{
							if(isNaN(fserum.value))
							{
								alert("Please enter your serum creatinine (umol/L).");
								fserum.focus;
							}
							else
							{
								var patientgfr;
								if(document.frmgfr.gfrsex[0].checked)
								{
									
									patientgfr = format ( ((140 - iage.value) * fweight.value * 1.23)/fserum.value , 4) + " mls/min";
									
									gfr.value = patientgfr;
									
									window.open("RecordCalcResults.asp?ans=gfr&ans=" + iage.value + "&ans=" + fweight.value + "&ans=" + fserum.value + "&ans=male&ans=" + patientgfr, "", "width=50,height=50");
								}
								else
								{
									patientgfr = format ( ((140 - iage.value) * fweight.value)/fserum.value, 4) + " mls/min";
									
									gfr.value = patientgfr;
									
									window.open("RecordCalcResults.asp?ans=gfr&ans=" + iage.value + "&ans=" + fweight.value + "&ans=" + fserum.value + "&ans=female&ans=" + patientgfr, "", "width=50,height=50");
								}
							}
						}
						else
						{
							alert("Please enter your serum creatinine (umol/L).");
							fserum.focus;
						}
					}
					else
					{
						alert("Please choose your sex.");
						ssex.focus();
					}
				}
			}
			else
			{
				alert("Please enter your weight in kilograms (kg).");
				fweight.focus();
			}
		}
	}
	else
	{
		alert("Please enter your age in years..");
		iage.focus();
	}
	
	return false;
}

function calculatebsa() 
{ 
	//BSA = SQR [BW (kg) x Ht (cm) / 3600]

	var weight, height, bsa;

	weight = document.getElementById("bsaweight");

	height = document.getElementById("bsaheight");

	bsa = document.getElementById("bsabsa");

	if (weight.value)
	{
		if (isNaN(weight.value) || weight.value < 0 || weight.value > 600)
		{
			alert("Please enter a weight in kilograms (kg).");
			weight.focus();
		}
		else
		{
			if (height.value)
			{
				if(isNaN(height.value) || height.value < 2 || height.value > 300)
				{
					alert("Please enter a height in centimetres (cm).");
					height.focus();
				}
				else
				{
					bsa.value = format ( Math.sqrt((weight.value * height.value) / 3600), 2);
					
					window.open("RecordCalcResults.asp?ans=bsa&ans=" + weight.value + "&ans=" + height.value + "&ans=" + bsa.value, "", "width=50,height=50");
				}
			}
			else
			{
				alert("Please enter a height in centimetres (cm).");
				height.focus();
			}
		}
	}
	else
	{
		alert("Please enter a weight in kilograms (kg).");
		weight.focus();
	}
	
	return false;
} 


















function calculateasthmascore1()
{
	document.getElementById("q1_score").value = this.value;	
	calculatetotal();
}

function calculateasthmascore2()
{
	document.getElementById("q2_score").value = this.value;	
	calculatetotal();
}

function calculateasthmascore3()
{
	document.getElementById("q3_score").value = this.value;	
	calculatetotal();
}

function calculateasthmascore4()
{
	document.getElementById("q4_score").value = this.value;	
	calculatetotal();
}

function calculateasthmascore5()
{
	document.getElementById("q5_score").value = this.value;	
	calculatetotal();
}

function calculatetotal()
{
	
	var q1 = parseInt(document.getElementById("q1_score").value);
	var q2 = parseInt(document.getElementById("q2_score").value);
	var q3 = parseInt(document.getElementById("q3_score").value);
	var q4 = parseInt(document.getElementById("q4_score").value);
	var q5 = parseInt(document.getElementById("q5_score").value);
	
	document.getElementById("txttotal").value = q1 + q2 + q3 + q4 + q5;
}

function showanswer()
{
	if (parseInt(document.getElementById("txttotal").value) == 25 )
	{
//		document.getElementById("logo").style.visibility = "hidden";
//		document.getElementById("total25").style.visibility = "visible";
//		document.getElementById("total20_24").style.visibility = "hidden";
//		document.getElementById("total19_0").style.visibility = "hidden";

		document.getElementById("logo").style.display = "none";
		document.getElementById("total25").style.display = "block";
		document.getElementById("total20_24").style.display = "none";
		document.getElementById("total19_0").style.display = "none";

	}
	else if ( parseInt(document.getElementById("txttotal").value) < 20 )
	{
		document.getElementById("logo").style.display = "none";
		document.getElementById("total25").style.display = "none";
		document.getElementById("total20_24").style.display = "none";
		document.getElementById("total19_0").style.display = "block";
	}
	else
	{
		document.getElementById("logo").style.display = "none";
		document.getElementById("total25").style.display = "none";
		document.getElementById("total20_24").style.display = "block";
		document.getElementById("total19_0").style.display = "none";
	}
	
	window.open("RecordCalcResults.asp?ans=asthma&ans=" + parseInt(document.getElementById("q1_score").value) + "&ans=" + parseInt(document.getElementById("q2_score").value) + "&ans=" + parseInt(document.getElementById("q3_score").value) + "&ans=" + parseInt(document.getElementById("q4_score").value) + "&ans=" + parseInt(document.getElementById("q5_score").value), "", "width=50,height=50");

}

function clearform()
{
	document.getElementById("q1_score").value = 0;
	document.getElementById("q2_score").value = 0;
	document.getElementById("q3_score").value = 0;
	document.getElementById("q4_score").value = 0;
	document.getElementById("q5_score").value = 0;

	document.getElementById("txttotal").value = 0;

	document.getElementById("logo").style.display = "block";
	document.getElementById("total25").style.display = "none";
	document.getElementById("total20_24").style.display = "none";
	document.getElementById("total19_0").style.display = "none";

	clearselected();

}

function clearselected()
{
	var subasthma=document.getElementById("frmasthmascore");

	if (subasthma)
	{
		
		for (var i = 0; i < subasthma.q1.length; i++)
		{
			subasthma.q1[i].checked = "";
		}

		for (var i = 0; i < subasthma.q2.length; i++)
		{
			subasthma.q2[i].checked = "";
		}

		for (var i = 0; i < subasthma.q3.length; i++)
		{
			subasthma.q3[i].checked = "";
		}

		for (var i = 0; i < subasthma.q4.length; i++)
		{
			subasthma.q4[i].checked = "";
		}

		for (var i = 0; i < subasthma.q5.length; i++)
		{
			subasthma.q5[i].checked = "";			
		}
	}

}

function calculatehom() 
{ 
	//If they say yes to 2 or 3 out of 3 then reply is:
	//You may be experiencing migraines, you should print this page and make an appointment with your doctor to discuss your symptoms.
	
	//If yes to 1 of 3 then reply is:
	//Take note of your symptoms and speak to your doctor about them at your next consult if you are concerned.
	
	//If no to all 3 then:
	//It is most likely you are experiencing headaches, but if you have any concerns please go speak to your doctor.


	var hom;
	var q1;
	var q2;
	var q3;
	var itotal;
	itotal = 0;
	q1 = 0;
	q2 = 0;
	q3 = 0;
	
	hom = document.getElementById("frmhom");
	
	if (hom.hom1[1].checked)
	{
		itotal = itotal + 1;
		q1 = 1;
	}
	
	if (hom.hom2[1].checked)
	{
		itotal = itotal + 1;
		q2 = 1;
	}

	if (hom.hom3[1].checked)
	{
		itotal = itotal + 1;
		q3 = 1;
	}

	if (itotal == 0 )
	{
		document.getElementById("sshow0").style.display = "block";
		document.getElementById("sshow1").style.display = "none";
		document.getElementById("sshow2").style.display = "none";
	}
	else if(itotal == 1)
	{
		document.getElementById("sshow0").style.display = "none";
		document.getElementById("sshow1").style.display = "block";
		document.getElementById("sshow2").style.display = "none";
	}
	else
	{
		document.getElementById("sshow0").style.display = "none";
		document.getElementById("sshow1").style.display = "none";
		document.getElementById("sshow2").style.display = "block";
	}


	window.open("RecordCalcResults.asp?ans=hom&ans=" + q1 + "&ans=" + q2 + "&ans=" + q3 + "&ans=" + itotal, "", "width=50,height=50");
	
	return false;
} 


function format (expr, decplaces)
{
	var str = "" + Math.round (eval(expr) * Math.pow(10, decplaces))
	
	while(str.length <= decplaces)
	{
		str = "0" + str
	}
	
	var decpoint = str.length - decplaces
	
	return str.substring(0, decpoint) + "." + str.substring(decpoint, str.length);
	
	//return str.substring(0, decpoint);
}