//<script LANGUAGE="JavaScript">
function toForm() {
	document.form.edad.focus();
}
function derecha(e) {
if (navigator.appName == 'Netscape' && (e.which == 3 || e.which == 2)){
alert('mexdoctors.com')
return false;
}
else if (navigator.appName == 'Microsoft Internet Explorer' && (event.button == 2)){
alert('mexdoctors.com')
}
}
document.onmousedown=derecha

nextfield = "edad";
netscape = "";
ver = navigator.appVersion; len = ver.length;
for(iln = 0; iln < len; iln++) if (ver.charAt(iln) == "(") break;
netscape = (ver.charAt(iln+1).toUpperCase() != "C");

function keyDown(DnEvents) {
k = (netscape) ? DnEvents.which : window.event.keyCode;
if (k == 13) {
if (nextfield == 'ec') return true;
else {
eval('document.form.' + nextfield + '.focus()');
return false;
      }
   }
}
document.onkeydown = keyDown;
if (netscape) document.captureEvents(Event.KEYDOWN|Event.KEYUP);

var winopts =
"toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=1,resizable=0,width=630,height=450"
function product(filename){
  winname = "temp"
  smallwindow = window.open(filename,winname,winopts)
  if (navigator.appVersion.indexOf("(X11") != -1 ||
    navigator.appVersion.indexOf("(Mac") != -1)
       smallwindow = window.open(filename,winname,winopts)
}
function NewWindow(mypage, myname, w, h, scroll) {
var winl = (screen.width - w) / 2;
var wint = (screen.height - h) / 2;
winprops = 'height=' +h+ ',width=' +w+ ',top=' + wint + ',left=' + winl + ',scrollbars=' +scroll+ ',resizable=no'
win = window.open(mypage, myname, winprops)
if (parseInt(navigator.appVersion) >= 4) { win.window.focus(); }
}
function jumpNow(element) {
  var newloc = element.options[element.selectedIndex].value;
  if (newloc != '') top.location=newloc;
}

function MM_displayStatusMsg(msgStr) { //v1.0
  status=msgStr;
  document.MM_returnValue = true;
}

function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
var Col_HDL  = new Array("25","26","27","28","29","30","31","32","33","34","35","36","37","38","39","40","41","42","43","44","45","46","47","48","49","50","51","52","53","54","55","56","57","58","59","60","61","62","63","64","65","66","67","68","69","70","71","72","73","74","75","76","77","78","79","80","81","82","83","84","85","86","87","88","89","90","91","92","93","94","95","96");
var Ptos_HDL = new Array("7","7","6","6","6","5","5","5","4","4","4","3","3","3","2","2","2","2","1","1","1","1","0","0","0","0","-1","-1","-1","-1","-1","-2","-2","-2","-2","-2","-3","-3","-3","-3","-3","-3","-4","-4","-4","-4","-4","-4","-4","-5","-5","-5","-5","-5","-5","-5","-6","-6","-6","-6","-6","-6","-6","-7","-7","-7","-7","-7","-7","-7","-7","-7");

var Puntos   = new Array("0","1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","19","20","21","22","23","24","25","26","27","28","29","30","31","32");
var Prob_10  = new Array("2","2","2","2","2","3","3","4","4","5","6","6","7","8","9","10","12","13","14","16","18","19","21","23","25","27","29","31","33","36","38","40","42");

var Edad   = new Array("30","31","32","33","34","35","36","37","38","39","40","41","42","43","44","45","46","47","48","49","50","51","52","53","54","55","56","57","58","59","60","61","62","63","64","65","66","67","68","69","70","71","72","73","74");
var Ptos_eh  = new Array("-2","-1","0","0","1","2","2","3","3","4","5","5","6","6","7","7","8","8","9","9","10","10","11","11","11","12","12","13","13","13","14","14","15","15","15","16","16","16","17","17","17","18","18","18","19");
var Ptos_em  = new Array("-12","-11","-9","-8","-6","-5","-4","-3","-2","-1","0","1","2","2","3","4","4","5","5","6","6","7","7","8","8","8","9","9","9","9","9","10","10","10","10","10","10","10","11","11","11","11","11","11","11");
var Riesgo_m = new Array("1","1","1","1","1","1","1","1","1","1","2","2","2","2","2","5","5","5","5","5","8","8","8","8","8","12","12","12","12","12","13","13","13","13","13","9","9","9","9","9","12","12","12","12","12");
var Riesgo_h = new Array("3","3","3","3","3","5","5","5","5","5","6","6","6","6","6","10","10","10","10","10","14","14","14","14","14","16","16","16","16","16","21","21","21","21","21","30","30","30","30","30","24","24","24","24","24");

var TA_sist  = new Array("98","99","100","101","102","103","104","105","106","107","108","109","110","111","112","113","114","115","116","117","118","119","120","121","122","123","124","125","126","127","128","129","130","131","132","133","134","135","136","137","138","139","140","141","142","143","144","145","146","147","148","149","150","151","152","153","154","155","156","157","158","159","160","161","162","163","164","165","166","167","168","169","170","171","172","173","174","175","176","177","178","179","180","181","182","183","184","185");
var Ptos_TA  = new Array("-2","-2","-2","-2","-2","-2","-2","-1","-1","-1","-1","-1","-1","-1","-1","0","0","0","0","0","0","0","0","1","1","1","1","1","1","1","1","1","2","2","2","2","2","2","2","2","2","2","3","3","3","3","3","3","3","3","3","3","4","4","4","4","4","4","4","4","4","4","4","5","5","5","5","5","5","5","5","5","5","5","5","6","6","6","6","6","6","6","6","6","6","6","6","6");

var s = 0;
var sexo=1;
function Validar(objec) { 
    if (objec == "h") {
	if (eval('document.form.' + objec + '[0].checked') == true) {
	    document.form.h.value = 1;}
	else { document.form.h.value = 2; }
	sexo = document.form.h.value;
    }
    if (objec != "h") {
	var valor = parseFloat(eval('document.form.' + objec + '.value'));
    	if (valor == 0 || isNaN(valor)) {
	    alert ("Este campo debe ser numérico."); 
	    s=1;
	    nextfield = objec;
	    eval('document.form.' + nextfield + '.focus()'); }
    	else { 
	    s=0; }
    	if (objec == "edad") {
	    if (valor<=29 || valor>=75) {
	    	alert ("La edad debe estar comprendida entre 30 y 74 años."); 
	        nextfield = objec;
	    	eval('document.form.' + nextfield + '.focus()');
	    	s=1;}
    	    else { 
	    	s=0; }
        }
    	if (objec=="ct") {
	    if (valor<=138 || valor>=331) {
	    	alert ("El colesterol total debe estar comprendido entre 139 y 330 mg/dl. Para valores superiores, introduzca el valor 330."); 
	    	nextfield = objec;
	    	eval('document.form.' + nextfield + '.focus()');
	    	s=1;}
    	    else {
	    	s=0; }
    	}
    	if (objec == "hdl") {
	    if (valor<=24 || valor>=97) {
	    	alert ("El HDL-Colesterol debe estar comprendido entre 25 y 96 mg/dl.");
	    	nextfield = objec;
	    	eval('document.form.' + nextfield + '.focus()'); 
	    	s=1;}
    	    else {
	    	s=0; }
    	}
    	if (objec=="tas") {
	    if (valor <=97 || valor>=186) {
	    	alert("El TAS en mmHg debe estar comprendido entre 98 y 185. Para valores superiores, introduzca el valor 185.");
	    	nextfield = objec;
	    	eval('document.form.' + objec + '.focus()');
	    	s=1; }
    	    else {
	    	s=0;}
    	}
    }
}

function Selec(selection) {
    Validar(selection);
    if (selection == "edad") {
	var selected = eval('document.form.' +selection+'.value');
	var c = 1;
    	for ( c ; c <= Edad.length; c++) {
	    if (selected == Edad[c]) {
    	  	if (sexo == 1) {
	    	    document.form.rm.value = Riesgo_h[c]; 
	    	    document.form.valor_edad.value = Ptos_eh[c];}
    	  	else {
	    	    document.form.rm.value = Riesgo_m[c]; 
	    	    document.form.valor_edad.value = Ptos_em[c];}
    	    break
	    }
	}
   	campo_rm = parseFloat(document.form.rm.value);
	campo_edad = parseFloat(document.form.valor_edad.value);
    }
    if (selection == "h") {
	if (eval('document.form.' + selection + '[0].checked') == true) {
	    document.form.h.value = 1;}
	else { document.form.h.value = 2; }
	sexo = document.form.h.value;
	if (s != 1 && document.form.edad.value != "") { Selec("edad"); }
    }
    if (selection == "ct") {
    	val = eval('document.form.' + selection + '.value');
    	if (val >= 139 && val <= 151) { document.form.valor_ct.value = "-3";}
    	if (val >= 152 && val <= 166) { document.form.valor_ct.value = "-2";}
    	if (val >= 167 && val <= 182) { document.form.valor_ct.value = "-1";}
    	if (val >= 183 && val <= 199 || val == 0) { document.form.valor_ct.value = "0";}
    	if (val >= 200 && val <= 219) { document.form.valor_ct.value = "1";}
    	if (val >= 220 && val <= 238) { document.form.valor_ct.value = "2";}
    	if (val >= 239 && val <= 262) { document.form.valor_ct.value = "3";}
    	if (val >= 263 && val <= 288) { document.form.valor_ct.value = "4";}
    	if (val >= 289 && val <= 315) { document.form.valor_ct.value = "5";}
    	if (val > 316) { document.form.valor_ct.value = "6";}
    	campo_ct = parseFloat(document.form.valor_ct.value);
    }
    if (selection == "hdl") {
	if (s != 1) {
    	    var val = eval('document.form.' + selection + '.value');
    	    var c = 1;
    	    for (c; c <= Col_HDL.length; c++) {
	        if (val == Col_HDL[c]) {
	  	   campo_hdl = Ptos_HDL[c]; }
    	    }
    	    document.form.valor_hdl.value = campo_hdl;
	}
    }
    if (selection == "tas") {
	if (s != 1) {
	    var val1 = eval('document.form.' + selection + '.value');
    	    var c = 1;
    	    for (c; c <= TA_sist.length; c++) {
	        if (val1 == TA_sist[c]) {
	            campo_tas = Ptos_TA[c]; }
    	    }
    	    document.form.valor_tas.value = campo_tas;
	}
    }
    if (document.form.edad.value != "" && document.form.ct.value != "" && document.form.hdl.value != "" && document.form.hdl.value != "" && document.form.tas.value != "") {
	Corregir(sexo,s); }
    if (document.form.edad.value != "" && document.form.ct.value != "" && document.form.hdl.value != "" && document.form.hdl.value != "" && document.form.tas.value != "" && s == 2) {
	Calculos(sexo,edad,campo_edad,campo_ct,campo_hdl,campo_tas,campo_tab,campo_dia,campo_hvi,s); }
 }
function Selec_Check(sexo,checkbox,s) {
	var checked = eval('document.form.' + checkbox + '.checked');
	if (eval('document.form.' + checkbox + '.checked') == true) {
	    if (checkbox == "tabaco") {	campo_tab = document.form.tabaco.value; }
	    if (checkbox == "diabetes") {			
				if (sexo == 1) { campo_dia = 3;}
				else if (sexo == 2){campo_dia = 6;}
	    }
	    if (checkbox == "hvi") {	campo_hvi = document.form.hvi.value; }
	}
    if (document.form.edad.value != "" && document.form.ct.value != "" && document.form.hdl.value != "" && document.form.hdl.value != "" && document.form.tas.value != "" && s != 1) {
	Corregir(sexo,s); }
    if (document.form.edad.value != "" && document.form.ct.value != "" && document.form.hdl.value != "" && document.form.hdl.value != "" && document.form.tas.value != "" && s == 2) {		
	Calculos(sexo,edad,campo_edad,campo_ct,campo_hdl,campo_tas,campo_tab,campo_dia,campo_hvi,s); }
}
function Corregir(sexo,s) {
    if ((document.form.edad.value <= 29 || document.form.edad.value >= 75) || (document.form.ct.value <= 138 || document.form.ct.value >= 331) || (document.form.hdl.value <= 24 || document.form.hdl.value >= 97) || (document.form.tas.value <= 97 || document.form.tas.value >= 186)) {
			alert ("Los cálculos no se realizarán debido a que los datos introducidos son erróneos.");
			s = 1;
		}
    else {
//    	sexo = document.form.h.value;
//    	if (isNaN(sexo)) { sexo = 1;}
    	edad = parseFloat(document.form.edad.value);
    	valor_edad = parseFloat(document.form.valor_edad.value);
    	valor_ct = parseFloat(document.form.valor_ct.value);
    	valor_hdl = parseFloat(document.form.valor_hdl.value);
    	if (isNaN(valor_hdl)) {
    	    var val = eval(document.form.hdl.value);
	    		val = val.toString();
    	    var c = 1;
    	    for (c; c <= Col_HDL.length; c++) {
	    			if (val == Col_HDL[c]) { campo_hdl = Ptos_HDL[c]; }
    	    }
    		document.form.valor_hdl.value = campo_hdl;
	    	valor_hdl = parseFloat(document.form.valor_hdl.value);
    	}
    	valor_tas = parseFloat(document.form.valor_tas.value);
			if (document.form.tabaco.checked == true) { valor_tab = parseFloat(document.form.tabaco.value);}
    	else { valor_tab = 0; }
    	if (document.form.diabetes.checked == true) {			
	    	if (sexo == 2) { 	valor_diab = 6; }
	    	else if(sexo == 1){ valor_diab = 3; }
    		}
    	else { valor_diab = 0; }
    	if (document.form.hvi.checked == true) {  valor_hvi = 9; }
    	else { valor_hvi = 0; }
	if (s != 1) {
    	Calculos(sexo,edad,valor_edad,valor_ct,valor_hdl,valor_tas,valor_tab,valor_diab,valor_hvi,s); }
}

function Calculos(sexo,edad,v_edad,ct,hdl,tas,tab,diab,hvi,s) {
    if (document.form.edad.value == "") { var puntos = ""; }
    else {
	if (document.form.ct.value == "") { var puntos = ""; }
	else {
	    if (document.form.hdl.value == "") { var puntos = ""; }
	    else {
		if (document.form.tas.value == "") { var puntos = ""; }
		else { puntos = v_edad + ct + hdl + tas + tab + diab + hvi; }
	    }
	}
    }
    document.form.puntos.value = puntos;
    if (document.form.ct.value >= 300) { document.form.rc.value = "Alto"; }
    else {
	if (puntos == 0) { 
	    document.form.rc.value = ""; 
	    document.form.ec.value = "";}
    	else {
	    if (puntos < 10) {
	    	document.form.rc.value = "Bajo"; }
	    else {
	    	if (puntos < 20) {
		    document.form.rc.value = "Medio"; }
   	    	else { document.form.rc.value = "Alto"; }
	    }
    	}
    }
    if (puntos > 32) {
	document.form.ec.value = "> 42"; }
    else {
	puntos = puntos.toString();
	var c = 1;
	for (c; c < Puntos.length; c++) {
	    if (puntos == Puntos[c]) {
		campo_ec = Prob_10[c]; }
	}
	document.form.ec.value = campo_ec;
    }
    s=2;
}
}
//</script>