\r\n | \r\n Informe Endocrinológico<\/b><\/font><\/td>\r\n <\/tr>\r\n \r\n | \r\n Generado por \r\n EndocrinoPED [Web PEDiátrica] <\/i><\/font><\/font><\/td>\r\n <\/tr>\r\n \r\n | \r\n \r\n http:\/\/www.webpediatrica.com\/endocrinoped<\/font><\/i><\/font><\/td>\r\n <\/tr>\r\n <\/table>\r\n';
var final_informe='';
var tabla_texto_principio='\r\n \r\n <\/td>\r\n <\/tr>\r\n<\/table>\r\n\r\n \r\n Tablas seleccionadas para \r\n la generación de este informe: ';
var tabla_texto='';
var tabla_texto_final='<\/font><\/td>\r\n <\/tr>\r\n<\/table>';
var sexo, sexo_texto;
if(document.forms.datos_deseados.sexo[0].checked)
{
sexo=1;
sexo_texto='Varón. ';
}
else
{
sexo=0;
sexo_texto='Mujer. ';
}
var identificacionx=document.forms.datos_deseados.identificacion.value;
if(g_fecha_nacimiento==1 || g_fecha_exploracion==1 || identificacionx.length>0)
{
texto_informe+='
\r\n\r\n';
if(identificacionx.length>0)
{
texto_informe+='\r\n Paciente:\r\n <\/b>';
texto_informe+=identificacionx;
texto_informe+='<\/font><\/td>\r\n <\/tr>\r\n';
}
with(document.forms.datos_deseados)
{
var edad=calculo_edad(conversor_fecha_Date(fecha_nacimiento.value),conversor_fecha_Date(fecha_exploracion.value));
}
texto_informe+='\r\n ';
if(g_fecha_nacimiento==1 && g_fecha_exploracion==1)
{
texto_informe+=''+document.forms.datos_deseados.edad_actual.value+". ";
}
if(g_fecha_nacimiento==1)
{
texto_informe+='Fecha de Nacimiento:';
texto_informe+=" "+document.forms.datos_deseados.fecha_nacimiento.value+". ";
}
if(g_fecha_exploracion==1)
{
texto_informe+='Fecha de Exploración:';
texto_informe+=" "+document.forms.datos_deseados.fecha_exploracion.value+".";
}
texto_informe+='<\/font><\/td>\r\n <\/tr>\r\n';
texto_informe+='\r\n ';
texto_informe+='Sexo: '+sexo_texto;
texto_informe+='<\/font><\/td>\r\n <\/tr>';
texto_informe+='<\/table>';
}
else
{
texto_informe+='
';
texto_informe+='\r\n ';
texto_informe+='Sexo: '+sexo_texto;
texto_informe+='<\/font><\/td>\r\n <\/tr>';
texto_informe+='<\/table>';
}
if(g_eg_semanas==1 && g_eg_dias==1 && document.forms.datos_deseados.inclusion5.checked==0)
{
var edad_gestacional, DE, percentilx, pesoRNx,longitudRNx,pcRN;
var antrop1x=document.forms.datos_deseados.antrop1.selectedIndex;
texto_informe+='
\r\n\r\n \r\n Antropometría neonatal. <\/b>\r\n <\/font>';
if(antrop1x==0)tabla_texto+='Antropometría neonatal: [peso y talla: España. 2008; perímetro cefálico: España. Zaragoza 2001. García-Dihinx et al]. ';
if(antrop1x==1)tabla_texto+='Antropometría neonatal: [España. Barcelona 2003. Carrascosa et al]. ';
if(antrop1x==2)tabla_texto+='Antropometría neonatal: [España. Zaragoza 2001. García-Dihinx et al]. ';
if(antrop1x==3)tabla_texto+='Antropometría neonatal: [España. Vizcaya 1996. Delgado et al]. ';
if(antrop1x==4)tabla_texto+='Antropometría neonatal: [España. Zaragoza 2001. Embarazos gemelares. García-Dihinx et al]. ';
texto_informe+='<\/font>\r\n <\/td>\r\n <\/tr>\r\n\r\n ';
with(document.forms.datos_deseados)
{
edad_gestacional=parseInt(eg_semanas.value,10)+parseFloat((eg_dias.value)/7);
texto_informe+="Edad gestacional: "+ eg_semanas.value+"+"+eg_dias.value+" s. ";
}
if(g_pesoRN)
{
pesoRNx=parseInt(document.forms.datos_deseados.pesoRN.value,10);
if(antrop1x==0)DE=DE_x(tabla_peso_rn_espana_2008(),pesoRNx,edad_gestacional,sexo);
if(antrop1x==1)DE=DE_x(tabla_peso_rn_espana_barcelona_2003(),pesoRNx,edad_gestacional,sexo);
if(antrop1x==2)DE=DE_x(tabla_peso_rn_espana_zaragoza_2001(),pesoRNx,edad_gestacional,sexo);
if(antrop1x==3)DE=DE_x(tabla_peso_rn_espana_vizcaya_1996(),pesoRNx,edad_gestacional,sexo);
if(antrop1x==4)DE=DE_x(tabla_peso_rn_gemelar_espana_zaragoza_2001(),pesoRNx,edad_gestacional,sexo);
percentilx=percentil(DE);
texto_informe+="Peso: "+pesoRNx+" gr"+" ("+percentilx+", "+DE+" DE"+"). ";
}
if(g_longitudRN)
{
longitudRNx=xredondeo(parseFloat(document.forms.datos_deseados.longitudRN.value),1);
if(antrop1x==0)DE=DE_x(tabla_longitud_rn_espana_2008(),longitudRNx,edad_gestacional,sexo);
if(antrop1x==1)DE=DE_x(tabla_longitud_rn_espana_barcelona_2003(),longitudRNx,edad_gestacional,sexo);
if(antrop1x==2)DE=DE_x(tabla_longitud_rn_espana_zaragoza_2001(),longitudRNx,edad_gestacional,sexo);
if(antrop1x==3)DE=DE_x(tabla_longitud_rn_espana_vizcaya_1996(),longitudRNx,edad_gestacional,sexo);
if(antrop1x==4)DE=DE_x(tabla_longitud_rn_gemelar_espana_zaragoza_2001(),longitudRNx,edad_gestacional,sexo);
percentilx=percentil(DE);
texto_informe+="Longitud: "+longitudRNx+" cm"+" ("+percentilx+", "+DE+" DE"+"). ";
}
if(g_pcRN)
{
pcRNx=xredondeo(parseFloat(document.forms.datos_deseados.pcRN.value),1);
if(antrop1x==0)DE=DE_x(tabla_pc_rn_espana_zaragoza_2001(),pcRNx,edad_gestacional,sexo);
if(antrop1x==1)DE=DE_x(tabla_pc_rn_espana_barcelona_2003(),pcRNx,edad_gestacional,sexo);
if(antrop1x==2)DE=DE_x(tabla_pc_rn_espana_zaragoza_2001(),pcRNx,edad_gestacional,sexo);
if(antrop1x==3)DE=DE_x(tabla_pc_rn_espana_vizcaya_1996(),pcRNx,edad_gestacional,sexo);
if(antrop1x==4)DE=DE_x(tabla_pc_rn_gemelar_espana_zaragoza_2001(),pcRNx,edad_gestacional,sexo);
percentilx=percentil(DE);
texto_informe+="P.cefálico: "+pcRNx+" cm"+" ("+percentilx+", "+DE+" DE"+"). ";
}
texto_informe+='<\/font><\/td>\r\n <\/tr>\r\n<\/table>\r\n';
}
if(g_peso==1 || g_talla==1 || g_vc==1 || g_vc==1 || g_segmento_i==1 || g_braza==1 || g_lms==1 || g_lb==1 || g_la==1 || g_lmi==1 || g_lm==1 || g_lp==1)
{
var pesox, tallax,imcx, s_corpx, pcx, vcx, antrop2x=document.forms.datos_deseados.antrop2.selectedIndex, antrop3x=document.forms.datos_deseados.antrop3.selectedIndex, antrop4x=document.forms.datos_deseados.antrop4.selectedIndex;
texto_informe+='
\r\n\r\n \r\n Antropometría general. <\/b>\r\n <\/font>';
tabla_texto+='Antropometría general: ';
if(g_peso==1 || g_talla==1)
{
if(antrop2x==0)tabla_texto+='Para talla, peso e imc: [España. 2008]. ';
if(antrop2x==1)tabla_texto+='Para talla, peso e imc: [España. Barcelona 2003. Carrascosa et al]. ';
if(antrop2x==2)tabla_texto+='Para talla, peso e imc: [España. Zaragoza 2002. Ferrandez et al]. ';
if(antrop2x==3)tabla_texto+='Para talla, peso e imc: [España. Bilbao 1988. Hernández et al]. ';
}
texto_informe+='<\/font>\r\n <\/td>\r\n <\/tr>\r\n\r\n ';
if(g_peso)
{
pesox=xredondeo(parseFloat(document.forms.datos_deseados.peso.value),2);
if(antrop2x==0)DE=DE_x(tabla_peso_espana_2008(),pesox,edad,sexo);
if(antrop2x==1)DE=DE_x(tabla_peso_espana_barcelona_2003(),pesox,edad,sexo);
if(antrop2x==2)DE=DE_x(tabla_peso_espana_zaragoza_2002(),pesox,edad,sexo);
if(antrop2x==3)DE=DE_x(tabla_peso_espana_bilbao_1988(),pesox,edad,sexo);
percentilx=percentil(DE);
texto_informe+="Peso: "+pesox+" kg"+" ("+percentilx+", "+DE+" DE"+"). ";
if(g_talla==0)
{
s_corpx=((pesox*4)+7)/(pesox+90);
texto_informe+="Superficie Corporal: "+xredondeo(s_corpx,2)+" m2. ";
}
}
if(g_talla)
{
tallax=xredondeo(parseFloat(document.forms.datos_deseados.talla.value),2);
if(antrop2x==0)DE=DE_x(tabla_talla_espana_2008(),tallax,edad,sexo);
if(antrop2x==1)DE=DE_x(tabla_talla_espana_barcelona_2003(),tallax,edad,sexo);
if(antrop2x==2)DE=DE_x(tabla_talla_espana_zaragoza_2002(),tallax,edad,sexo);
if(antrop2x==3)DE=DE_x(tabla_talla_espana_bilbao_1988(),tallax,edad,sexo);
percentilx=percentil(DE);
var z_talla=DE;
texto_informe+="Talla: "+tallax+" cm"+" ("+percentilx+", "+DE+" DE). ";
}
if(g_peso==1 && g_talla==1)
{
imcx=xredondeo(pesox*10000/(tallax*tallax),2);
if(antrop2x==0)DE=DE_x(tabla_imc_espana_2008(),imcx,edad,sexo);
if(antrop2x==1)DE=DE_x(tabla_imc_espana_barcelona_2003(),imcx,edad,sexo);
if(antrop2x==2)DE=DE_x(tabla_imc_espana_zaragoza_2002(),imcx,edad,sexo);
if(antrop2x==3)DE=DE_x(tabla_imc_espana_zaragoza_2002(),imcx,edad,sexo);
percentilx=percentil(DE);
texto_informe+="IMC: "+imcx+" %"+" ("+percentilx+", "+DE+" DE). ";
s_corpx=Math.sqrt((tallax*pesox)/3600);
texto_informe+="Superficie Corporal: "+xredondeo(s_corpx,2)+" m2. ";
}
if(g_pc==1)
{
pcx=xredondeo(parseFloat(document.forms.datos_deseados.pc.value),2);
if(antrop3x==0)
{
DE=DE_x(tabla_pc_espana_zaragoza_2002(),pcx,edad,sexo);
tabla_texto+='Para perimetro cefalico: [España. Zaragoza 2002. Ferrandez et al]. ';
}
percentilx=percentil(DE);
texto_informe+="P. cefálico: "+pcx+" cm"+" ("+percentilx+", "+DE+" DE"+"). ";
}
if(g_vc==1)
{
vcx=xredondeo(parseFloat(document.forms.datos_deseados.vc.value),2);
if(antrop4x==0)
{
tabla_texto+='Para velocidad de crecimiento: [España. Zaragoza 2002. Ferrandez et al]. ';
with(document.forms.datos_deseados)
{
if(tanner[0].checked)
{
DE=DE_x(tabla_vc1_espana_zaragoza_2002(),vcx,edad,sexo);
percentilx=percentil(DE);
texto_informe+="V. crec. (g1): "+vcx+" cm/año:\n"+" ("+percentilx+", "+DE+" DE"+").";
}
if(tanner[1].checked)
{
DE=DE_x(tabla_vc2_espana_zaragoza_2002(),vcx,edad,sexo);
percentilx=percentil(DE);
texto_informe+="V. crec. (g2): "+vcx+" cm/año:\n"+" ("+percentilx+", "+DE+" DE"+").";
}
if(tanner[2].checked)
{
DE=DE_x(tabla_vc3_espana_zaragoza_2002(),vcx,edad,sexo);
percentilx=percentil(DE);
texto_informe+="V. crec. (g3): "+vcx+" cm/año:\n"+" ("+percentilx+", "+DE+" DE"+").";
}
if(tanner[3].checked)
{
DE=DE_x(tabla_vc4_espana_zaragoza_2002(),vcx,edad,sexo);
percentilx=percentil(DE);
texto_informe+="V. crec. (g4): "+vcx+" cm/año:\n"+" ("+percentilx+", "+DE+" DE"+").";
}
if(tanner[4].checked)
{
DE=DE_x(tabla_vc5_espana_zaragoza_2002(),vcx,edad,sexo);
percentilx=percentil(DE);
texto_informe+="V. crec. (g5): "+vcx+" cm/año:\n"+" ("+percentilx+", "+DE+" DE"+").";
}
}
}
if(antrop4x==1)
{
tabla_texto+='Para velocidad de crecimiento: [España. Bilbao 2002. Sobradillo et al]. ';
DE=DE_x(tabla_vc_espana_bilbao_2002(),vcx,edad,sexo);
percentilx=percentil(DE);
texto_informe+="V. crec.: "+vcx+" cm/año:\n"+" ("+percentilx+", "+DE+" DE"+").";
}
}
if((g_TAS || g_TAD) && g_talla)
{
var xHTA=0;
texto_informe+=" Tensión arterial: ";
tabla_texto+='Para tensión arterial: [NHBPEP Working Group on High Blood Pressure in Children and Adolescent. Pediatrics 2004;114;555-576]. ';
if(g_TAS)
{
TASx=xredondeo(parseFloat(document.forms.datos_deseados.TAS.value),0);
DE=tabla_tension_arterial_sistolica_NHBPEP_2004(edad, sexo, z_talla, TASx);
percentilx=percentil(DE);
if(DE>=1.30)
{
if(DE<1.66) xHTA=1;
else xHTA=3;
}
else xHTA=0;
texto_informe+="Sistólica: "+TASx+" mmHg"+" ("+percentilx+", "+DE+" DE"+"). ";
}
if(g_TAD)
{
TADx=xredondeo(parseFloat(document.forms.datos_deseados.TAD.value),0);
DE=tabla_tension_arterial_diastolica_NHBPEP_2004(edad, sexo, z_talla, TADx);
percentilx=percentil(DE);
if(DE>=1.30)
{
if(DE<1.66) xHTA+=1;
else xHTA+=3;
}
else xHTA+=0;
texto_informe+="Diastólica: "+TADx+" mmHg"+" ("+percentilx+", "+DE+" DE"+").";
}
}
/*Segmentos*/
if((g_segmento_i==1 || g_braza==1 || g_lms==1 || g_lb==1 || g_la==1 || g_lmi==1 || g_lm==1 || g_lp==1) && document.forms.datos_deseados.inclusion6.checked==0)
{
var segmento_ix, segmento_sx, cociente, brazax, lmsx, lbx, lax, indice_ms, lmix, lmx, lpx, indice_mi;
texto_informe+='\r\n | Proporciones corporales: ';
/*Aqui empieza sangrado de segmentos*/
if(g_segmento_i==1 || g_braza==1)
{
texto_informe+=' | | \r\n | - Segmentos. ';
if(g_segmento_i)
{
segmento_ix=xredondeo(parseFloat(document.forms.datos_deseados.segmento_i.value),2);
if(g_talla)
{
segmento_sx=xredondeo(parseFloat(document.forms.datos_deseados.talla.value)-parseFloat(document.forms.datos_deseados.segmento_i.value),2);
cociente=xredondeo(segmento_sx/segmento_ix,1);
texto_informe+="Segmento superior: "+segmento_sx+" cm; segmento inferior: "+segmento_ix+" cm; "+"cociente SS/SI: "+cociente;
}
else
{
texto_informe+="Segmento inferior: "+segmento_ix+" cm. ";
}
}
if(g_braza)
{
brazax=xredondeo(parseFloat(document.forms.datos_deseados.braza.value),1);
texto_informe+="Braza: "+brazax+" cm.";
}
}
/*Aqui termina sangrado de segmentos*/
/*Aqui empieza sangrado de porciones*/
if(g_lms==1 || g_lb==1 || g_la==1 || g_lmi==1 || g_lm==1 || g_lp==1)
{
texto_informe+=' | | \r\n - Porciones. ';
if(g_lms)
{
tabla_texto+='Para long. mb. superior: [Martin R et al. 1962]. ';
lmsx=xredondeo(parseFloat(document.forms.datos_deseados.longitud_ms.value),2);
DE=DE_x(tabla_longitud_total_ms(),lmsx,edad,sexo);
percentilx=percentil(DE);
texto_informe+="Long. m.superior: "+lmsx+" cm ";
if(DE==Infinity) texto_informe+="(no se puede interpretar con las tablas disponibles). ";
else texto_informe+=" ("+percentilx+", "+DE+" DE"+"). ";
}
if(g_lb)
{
tabla_texto+='Para long. brazo: [Malina RM et al. 1973]. ';
lbx=xredondeo(parseFloat(document.forms.datos_deseados.longitud_brazo.value),2);
DE=DE_x(tabla_longitud_brazo(),lbx,edad,sexo);
percentilx=percentil(DE);
texto_informe+="Long. brazo: "+lbx+" cm ";
if(DE==Infinity) texto_informe+="(no se puede interpretar con las tablas disponibles). ";
else
{
texto_informe+="("+percentilx+", "+DE+" DE). ";
}
}
if(g_la)
{
lax=xredondeo(parseFloat(document.forms.datos_deseados.longitud_antebrazo.value),2);
DE=DE_x(tabla_longitud_antebrazo(),lax,edad,sexo);
percentilx=percentil(DE);
texto_informe+="Long. antebrazo: "+lax+" cm ";
if(DE==Infinity) texto_informe+="(no se puede interpretar con las tablas disponibles). ";
else
{
texto_informe+=" ("+percentilx+", "+DE+" DE). ";
}
}
if(g_lb==1 && g_lms==1)
{
indice_ms=xredondeo(lbx/lmsx,2);
if(indice_ms<=0 || indice_ms>10 || isNaN(indice_ms))
texto_informe+="Indice m.superior: incalculable. ";
else
{
texto_informe+="Indice m.superior: "+indice_ms+". ";
}
}
if(g_lmi)
{
tabla_texto+='Para long. mb. inferior: [Snyder. 1975]. ';
lmix=xredondeo(parseFloat(document.forms.datos_deseados.longitud_mi.value),2);
DE=DE_x(tabla_longitud_total_mi(),lmix,edad,sexo);
percentilx=percentil(DE);
texto_informe+="Long. m.inferior: "+lmix+" cm ";
if(DE==Infinity) texto_informe+="(no se puede interpretar con las tablas disponibles). ";
else texto_informe+="("+percentilx+", "+DE+" DE"+"). ";
}
if(g_lm)
{
lmx=xredondeo(parseFloat(document.forms.datos_deseados.longitud_muslo.value),2);
DE=DE_x(tabla_longitud_muslo(),lmx,edad,sexo);
percentilx=percentil(DE);
texto_informe+="Long. muslo: "+lmx+" cm ";
if(DE==Infinity) texto_informe+="(no se puede interpretar con las tablas disponibles). ";
else
{
texto_informe+=" ("+percentilx+", "+DE+" DE). ";
}
}
if(g_lp)
{
lpx=xredondeo(parseFloat(document.forms.datos_deseados.longitud_pierna.value),2);
DE=DE_x(tabla_longitud_pierna(),lpx,edad,sexo);
percentilx=percentil(DE);
texto_informe+="Long. pierna: "+lpx+" cm ";
if(DE==Infinity) texto_informe+="(no se puede interpretar con las tablas disponibles). ";
else
{
texto_informe+=" ("+percentilx+", "+DE+" DE"+"). ";
}
}
if(g_lp==1 || g_lm==1 || g_la==1)tabla_texto+='Para long. antebrazo, muslo y pierna: [Roche AF et al. 1983]. ';
if(g_lp==1 && g_lmi==1)
{
indice_mi=xredondeo(lpx/lmix,2);
if(indice_mi<=0 || indice_mi>10 || isNaN(indice_mi))
texto_informe+="Indice m.inferior: incalculable. ";
else
{
texto_informe+="Indice m.inferior: "+indice_mi+". ";
}
}
}
/*Aqui termina sangrado de porciones*/
texto_informe+='<\/font><\/td>\r\n <\/tr>';
}
/* Pronostico de talla */
if(g_talla==1 && document.forms.datos_deseados.inclusion10.checked==0)
{
var eox=xredondeo(parseFloat(document.forms.datos_deseados.edad_osea.value),1);
var talla_px=xredondeo(parseFloat(document.forms.datos_deseados.talla_p.value),1);
var talla_mx=xredondeo(parseFloat(document.forms.datos_deseados.talla_m.value),1);
var talla_proyectadax;
var pron_talla;
texto_informe+='\r\n | Evaluación de talla adulta: ';
if(g_talla_p==1 && g_talla_m==1)
{
var DE_talla_px, p_talla_px, DE_talla_mx, p_talla_mx, DE_talla_dx, p_talla_dx;
var talla_px=xredondeo(parseFloat(document.forms.datos_deseados.talla_p.value),2);
var talla_mx=xredondeo(parseFloat(document.forms.datos_deseados.talla_m.value),2);
var talla_dx=xredondeo(parseFloat(document.forms.datos_deseados.talla_diana.value),2);
if(antrop2x==0)
{
DE_talla_px=DE_x(tabla_talla_espana_2008(),talla_px,22,1);
DE_talla_mx=DE_x(tabla_talla_espana_2008(),talla_mx,22,0);
DE_talla_dx=DE_x(tabla_talla_espana_2008(),talla_dx,22,sexo);
}
if(antrop2x==1)
{
DE_talla_px=DE_x(tabla_talla_espana_barcelona_2003(),talla_px,22,1);
DE_talla_mx=DE_x(tabla_talla_espana_barcelona_2003(),talla_mx,22,0);
DE_talla_dx=DE_x(tabla_talla_espana_barcelona_2003(),talla_dx,22,sexo);
}
if(antrop2x==2)
{
DE_talla_px=DE_x(tabla_talla_espana_zaragoza_2002(),talla_px,22,1);
DE_talla_mx=DE_x(tabla_talla_espana_zaragoza_2002(),talla_mx,22,0);
DE_talla_dx=DE_x(tabla_talla_espana_zaragoza_2002(),talla_dx,22,sexo);
}
if(antrop2x==3)
{
DE_talla_px=DE_x(tabla_talla_espana_bilbao_1988(),talla_px,22,1);
DE_talla_mx=DE_x(tabla_talla_espana_bilbao_1988(),talla_mx,22,0);
DE_talla_dx=DE_x(tabla_talla_espana_bilbao_1988(),talla_dx,22,sexo);
}
p_talla_px=percentil(DE_talla_px);
p_talla_mx=percentil(DE_talla_mx);
p_talla_dx=percentil(DE_talla_dx);
texto_informe+='<\/td>\r\n <\/tr> | \r\n ';
if(sexo) talla_dianax=(talla_px+talla_mx)/2+6.5;
else talla_dianax=(talla_px+talla_mx)/2-6.5;
texto_informe+="- Talla padre: "+talla_px+" cm"+" ("+p_talla_px+", "+DE_talla_px+" DE). ";
texto_informe+="Talla madre: "+talla_mx+" cm"+" ("+p_talla_mx+", "+DE_talla_mx+" DE). ";
texto_informe+="Talla diana: "+talla_dianax+" ± 5 cm"+" ("+p_talla_dx+", "+DE_talla_dx+" DE). ";
}
texto_informe+='<\/font><\/td>\r\n <\/tr>\r\n';
texto_informe+='\r\n - Pronóstico de talla adulta: <\/font>';
if(g_eo)
{
var diferencia;
if((edad-eox)<1 && (edad-eox)>-1) diferencia='acorde';
if((edad-eox)>=1) diferencia='retrasada';
if((edad-eox)<=-1) diferencia='adelantada';
texto_informe+='[edad ósea de '+eox+' años ('+diferencia+') ]';
}
texto_informe+='<\/td>\r\n <\/tr>\r\n';
if(antrop2x==0)talla_proyectadax=talla_proyectada(edad, sexo, tallax,tabla_talla_espana_2008());
if(antrop2x==1)talla_proyectadax=talla_proyectada(edad, sexo, tallax,tabla_talla_espana_barcelona_2003());
if(antrop2x==2)talla_proyectadax=talla_proyectada(edad, sexo, tallax,tabla_talla_espana_zaragoza_2002());
texto_informe+='\r\n | ... talla proyectada de '+talla_proyectadax+' cm.<\/td>\r\n <\/tr>\r\n';
if(document.forms.datos_deseados.R_BP.value!='' && g_eo==1)
{
texto_informe+=' | \r\n ';
pron_talla=xredondeo(pred_talla_BP(sexo, tallax, edad, eox, talla_px, talla_mx),1);
if(pron_talla==0 || pron_talla==Infinity) texto_informe+="... método de Bayley-Pinneau (BP): incalculable con estos datos. ";
else texto_informe+="... método de Bayley-Pinneau (BP): "+pron_talla+" ± 5 cm. ";
texto_informe+='<\/font><\/td>\r\n <\/tr>\r\n';
}
if(document.forms.datos_deseados.R_RWT.value!='' && g_eo==1 && g_peso==1)
{
texto_informe+='\r\n ';
pron_talla=pred_talla_RWT(sexo, tallax, pesox, edad, eox, talla_px, talla_mx);
if(pron_talla==0 || pron_talla==Infinity) texto_informe+="... método de Roche-Wainer-Thissen (RWT): incalculable con estos datos.";
else texto_informe+="... método de Roche-Wainer-Thissen (RWT): "+pron_talla;
texto_informe+='<\/font><\/td>\r\n <\/tr>\r\n';
}
if(document.forms.datos_deseados.R_KR.value!='' && g_peso==1)
{
texto_informe+='\r\n ';
pron_talla=pred_talla_KR(sexo, tallax, pesox, edad, talla_px, talla_mx);
if(pron_talla==0 || pron_talla==Infinity) texto_informe+="... método de Khamis-Roche (KR): incalculable con estos datos.";
else texto_informe+="... método de Khamis-Roche (KR): "+pron_talla;
texto_informe+='<\/font><\/td>\r\n <\/tr>\r\n';
}
if(document.forms.datos_deseados.R_TWM.value!='' && g_eo==1)
{
texto_informe+='\r\n | ';
var menarquiax=document.forms.datos_deseados.menarquia.checked;
var edad_menarquiax=document.forms.datos_deseados.edad_menarquia.value;
var incremento_tallax=document.forms.datos_deseados.incremento_talla.value;
var incremento_edad_ox=document.forms.datos_deseados.incremento_edad_o.value;
pron_talla=prediccion_talla_TW2(edad,eox,sexo,tallax,menarquiax,edad_menarquiax,incremento_tallax,incremento_edad_ox)[0];
if(pron_talla==0 || pron_tallamasa_grasa_ideal) x='excedente de ';
else x='déficit de ';
texto_informe+=x+(xredondeo((masa_grasa_real-masa_grasa_ideal),1))+" kgs. respecto al ideal. ";
texto_informe+="El compartimento magro pesa "+(pesox-masa_grasa_real)+" kg. ";
}
}
texto_informe+='<\/font><\/td>\r\n <\/tr>\r\n | | | | | | | ';
}
/*Fin de composicion corporal*/
/*Densitometría osea*/
if((g_dmo_l || (g_dmo_cf && edad>=9)) && document.forms.datos_deseados.inclusion9.checked==0)
{
texto_informe+='
\r\n\r\n \r\n Evaluación densitométrica. <\/b>\r\n <\/font><\/td>\r\n <\/tr>\r\n';
if(g_dmo_l==1)
{
texto_informe+='\r\n ';
var dmo_lx=xredondeo(parseFloat(document.forms.datos_deseados.dmo_l.value),3);
DE=DE_x(tabla_DMOlumbar_espana_barcelona_1999(),dmo_lx,edad,sexo);
percentilx=percentil(DE);
var D2x=document.forms.datos_deseados.D2.selectedIndex;
if(D2x==0)tabla_texto+='Densitometría ósea lumbar: [España. Barcelona 1999. Yeste et al]. ';
texto_informe+="Densidad mineral ósea lumbar (L2-L4): "+dmo_lx+" gr/cm2"+" ("+percentilx+", "+DE+" DE)";
texto_informe+='<\/font><\/td>\r\n <\/tr>\r\n';
}
if(g_dmo_cf==1 && document.forms.datos_deseados.inclusion9.checked==0 && edad>=9)
{
texto_informe+='\r\n | ';
var dmo_cfx=xredondeo(parseFloat(document.forms.datos_deseados.dmo_cf.value),3);
DE=DE_x(tabla_DMO_cuellofemoral_espana_barcelona_1999(),dmo_cfx,edad,sexo);
percentilx=percentil(DE);
var D3x=document.forms.datos_deseados.D3.selectedIndex;
if(D3x==0)tabla_texto+='Densitometría ósea de cuello femoral: [España. Barcelona 1999. Yeste et al]. ';
texto_informe+="Densidad mineral ósea de cuello femoral: "+dmo_cfx+" gr/cm2"+" ("+percentilx+", "+DE+" DE)";
texto_informe+='<\/font><\/td>\r\n <\/tr>\r\n';
}
texto_informe+='<\/font><\/td>\r\n <\/tr>\r\n | | | ';
}
/*Fin de densitometria osea*/
var imprimir='\r\n \r\n | <\/td>\r\n <\/tr>\r\n | \r\n | \r\n \r\n  <\/a><\/td>\r\n <\/tr>\r\n<\/table>\r\n';
/*Aqui se encuentra el código que genera definitivamente el informe*/
informe.document.open();
informe.document.write(principio_informe+texto_informe+tabla_texto_principio+tabla_texto+tabla_texto_final+imprimir+final_informe);
informe.document.close();
}
}
/*FIN DE CODIGO GENERADOR DE INFORME*/
/*OTRAS FUNCIONES*/
function peso_ideal_talla(sexo, talla, array_talla, array_peso)
{
var v=1, peso_ideal, edad_p50,porc, DE_tallaxx;
var n=array_talla.length;
if(sexo==0) v=3;
if(talla>array_talla[n-1][v])
{
DE_tallaxx=(talla-array_talla[n-1][v])/array_talla[n-1][v+1];
peso_ideal=xredondeo(array_peso[n-1][v]+DE_tallaxx*array_peso[n-1][v+1],1);
}
else
{
for(i=0;i2.33) return "p>99";
if(z<-2.33) return "p<1";
if(z<0){v=0;z=Math.abs(z);}
else v=1;
for(i=0;i<49;i++)
{
if(z=porc[n][0] && eo1)tallaf=100*talla/porc[n][x+2];
else tallaf=100*talla/porc[n][x+1];
if(isNaN(tallamediap)==true)return tallaf;
if(tallamediap>=168) return(tallaf+tallatercio);
else return(tallaf-tallatercio);
}
/*PREDICCION DE TALLA POR ROCHE-WAINER-THISSEN (RWT). Codigo por J. Guerrero-Fdez. Web PEDiatrica*/
function pred_talla_RWT(sexo, talla, peso, ec, eo, tallap, tallam)
{
var porc= new Array();
porc[0]= new Array(1.125,0.966,0.199,0.606,-0.673,1.632,6.4,1.087,-0.271,0.386,0.434,21.729,6.5);
porc[1]= new Array(1.375,1.032,0.086,0.580,-0.417,-1.841,6.4,1.112,-0.369,0.367,0.094,20.684,6.5);
porc[2]= new Array(1.625,1.086,-0.016,0.559,-0.205,-4.892,6.4,1.134,-0.455,0.349,-0.172,19.957,6.5);
porc[3]= new Array(1.875,1.130,-0.106,0.540,-0.033,-7.528,6.4,1.153,-0.530,0.332,-0.374,19.463,6.5);
porc[4]= new Array(2.125,1.163,-0.186,0.523,0.104,-9.764,6.5,1.170,-0.594,0.316,-0.523,19.131,6.4);
porc[5]= new Array(2.375,1.189,-0.256,0.509,0.211,-11.618,6.5,1.183,-0.648,0.301,-0.625,18.905,6.4);
porc[6]= new Array(2.625,1.207,-0.316,0.496,0.291,-13.114,6.5,1.195,-0.693,0.287,-0.690,18.740,6.4);
porc[7]= new Array(2.875,1.219,-0.369,0.485,0.349,-14.278,6.5,1.204,-0.729,0.274,-0.725,18.604,6.4);
porc[8]= new Array(3.125,1.227,-0.413,0.475,0.388,-15.139,6,1.210,-0.757,0.262,-0.736,18.474,6);
porc[9]= new Array(3.375,1.230,-0.450,0.466,0.410,-15.729,6,1.215,-0.777,0.251,-0.729,18.337,6);
porc[10]= new Array(3.625,1.229,-0.481,0.458,0.419,-16.081,6,1.217,-0.791,0.241,-0.711,18.187,6);
porc[11]= new Array(3.875,1.226,-0.505,0.451,0.417,-16.228,6,1.217,-0.798,0.232,-0.684,18.024,6);
porc[12]= new Array(4.125,1.221,-0.523,0.444,0.405,-16.201,5.8,1.215,-0.800,0.224,-0.655,17.855,5.7);
porc[13]= new Array(4.375,1.214,-0.537,0.437,0.387,-16.034,5.8,1.212,-0.797,0.217,-0.626,17.691,5.7);
porc[14]= new Array(4.625,1.206,-0.546,0.431,0.363,-15.578,5.8,1.206,-0.789,0.210,-0.600,17.548,5.7);
porc[15]= new Array(4.875,1.197,-0.550,0.424,0.335,-15.400,5.8,1.199,-0.777,0.205,-0.582,17.444,5.7);
porc[16]= new Array(5.125,1.188,-0.551,0.418,0.303,-14.990,5.5,1.190,-0.761,0.200,-0.571,17.398,5.6);
porc[17]= new Array(5.375,1.179,-0.548,0.412,0.269,-14.551,5.5,1.180,-0.742,0.197,-0.572,17.431,5.6);
porc[18]= new Array(5.625,1.169,-0.543,0.406,0.234,-14.106,5.5,1.168,-0.721,0.193,-0.584,17.567,5.6);
porc[19]= new Array(5.875,1.160,-0.535,0.400,0.198,-13.672,5.5,1.155,-0.697,0.191,-0.609,17.826,5.6);
porc[20]= new Array(6.125,1.152,-0.524,0.394,0.161,-13.267,5.1,1.140,-0.671,0.190,-0.647,18.229,5.3);
porc[21]= new Array(6.375,1.143,-0.512,0.389,0.123,-12.901,5.1,1.124,-0.644,0.189,-0.700,18.796,5.3);
porc[22]= new Array(6.625,1.135,-0.499,0.383,0.085,-12.583,5.1,1.107,-0.616,0.188,-0.766,19.544,5.3);
porc[23]= new Array(6.875,1.127,-0.484,0.378,0.046,-12.318,5.1,1.089,-0.587,0.189,-0.845,20.489,5.3);
porc[24]= new Array(7.125,1.120,-0.468,0.373,0.006,-12.107,4.8,1.069,-0.557,0.189,-0.938,21.642,5.1);
porc[25]= new Array(7.375,1.113,-0.451,0.369,-0.034,-11.948,4.8,1.049,-0.527,0.191,-1.043,23.011,5.1);
porc[26]= new Array(7.625,1.106,-0.434,0.365,-0.077,-11.834,4.8,1.028,-0.498,0.192,-1.158,24.602,5.1);
porc[27]= new Array(7.875,1.100,-0.417,0.361,-0.121,-11.756,4.8,1.006,-0.468,0.194,-1.284,26.416,5.1);
porc[28]= new Array(8.125,1.093,-0.400,0.358,-0.167,-11.701,4.9,0.983,-0.439,0.196,-1.418,28.448,5.2);
porc[29]= new Array(8.375,1.086,-0.382,0.356,-0.217,-11.652,4.9,0.960,-0.411,0.199,-1.558,30.690,5.2);
porc[30]= new Array(8.625,1.079,-0.365,0.354,-0.270,-11.592,4.9,0.937,-0.384,0.202,-1.704,33.129,5.2);
porc[31]= new Array(8.875,1.071,-0.349,0.353,-0.327,-11.498,4.9,0.914,-0.359,0.204,-1.853,35.747,5.2);
porc[32]= new Array(9.125,1.063,-0.333,0.353,-0.389,-11.349,5.1,0.891,-0.334,0.207,-2.003,38.520,5.3);
porc[33]= new Array(9.375,1.054,-0.317,0.353,-0.455,-11.118,5.1,0.868,-0.311,0.210,-2.154,41.421,5.3);
porc[34]= new Array(9.625,1.044,-0.303,0.355,-0.527,-10.779,5.1,0.845,-0.289,0.212,-2.301,44.415,5.3);
porc[35]= new Array(9.875,1.033,-0.289,0.357,-0.605,-10.306,5.1,0.824,-0.269,0.214,-2.444,47.464,5.3);
porc[36]= new Array(10.125,1.021,-0.276,0.360,-0.690,-9.671,5.2,0.803,-0.250,0.216,-2.581,50.525,5.2);
porc[37]= new Array(10.375,1.008,-0.263,0.363,-0.781,-8.848,5.2,0.783,-0.233,0.217,-2.710,53.548,5.2);
porc[38]= new Array(10.625,0.993,-0.252,0.368,-0.878,-7.812,5.2,0.766,-0.217,0.217,-2.829,56.481,5.2);
porc[39]= new Array(10.875,0.977,-0.241,0.373,-0.983,-6.540,5.2,0.749,-0.203,0.217,-2.936,59.267,5.2);
porc[40]= new Array(11.125,0.960,-0.231,0.378,-1.094,-5.010,5.5,0.736,-0.190,0.216,-3.029,61.841,5.1);
porc[41]= new Array(11.375,0.942,-0.222,0.384,-1.211,-3.206,5.5,0.724,-0.179,0.214,-3.108,84.136,5.1);
porc[42]= new Array(11.625,0.923,-0.213,0.390,-1.335,-1.113,5.5,0.716,-0.169,0.211,-3.171,66.093,5.1);
porc[43]= new Array(11.875,0.902,-0.206,0.397,-1.464,1.273,5.5,0.711,-0.159,0.206,-3.217,67.627,5.1);
porc[44]= new Array(12.125,0.881,-0.198,0.403,-1.597,3.958,6,0.710,-0.151,0.201,-3.245,68.670,5);
porc[45]= new Array(12.375,0.859,-0.191,0.409,-1.735,6.931,6,0.713,-0.143,0.193,-3.254,69.140,5);
porc[46]= new Array(12.625,0.837,-0.184,0.414,-1.875,10.181,6,0.720,-0.136,0.184,-3.244,68.966,5);
porc[47]= new Array(12.875,0.815,-0.177,0.418,-2.015,13.684,6,0.733,-0.129,0.173,-3.214,68.061,5);
porc[48]= new Array(13.125,0.794,-0.170,0.421,-2.156,17.405,6.2,0.752,-0.121,0.160,-3.166,66.339,5);
porc[49]= new Array(13.375,0.773,-0.163,0.422,-2.294,21.297,6.2,0.777,-0.113,0.144,-3.100,63.728,5);
porc[50]= new Array(13.625,0.755,-0.155,0.422,-2.427,25.304,6.2,0.810,-0.105,0.127,-3.015,60.150,5);
porc[51]= new Array(13.875,0.738,-0.146,0.418,-2.553,29.349,6.2,0.850,-0.085,0.106,-2.915,55.522,5);
porc[52]= new Array(14.125,0.724,-0.136,0.412,-2.668,33.345,5.5,0.898,-0.083,0.083,-2.800,49.781,4);
porc[53]= new Array(14.375,0.714,-0.125,0.401,-2.771,37.183,5.5,0.898,-0.083,0.083,-2.800,49.781,4);
porc[54]= new Array(14.625,0.709,-0.112,0.387,-2.856,40.738,5.5,0.898,-0.083,0.083,-2.800,49.781,4);
porc[55]= new Array(14.875,0.709,-0.098,0.367,-2.922,43.869,5.5,0.898,-0.083,0.083,-2.800,49.781,4);
porc[56]= new Array(15.125,0.717,-0.081,0.342,-2.962,46.403,5,0,0,0,0,0,0);
porc[57]= new Array(15.375,0.732,-0.062,0.310,-2.973,48.154,5,0,0,0,0,0,0);
porc[58]= new Array(15.625,0.756,-0.040,0.271,-2.949,48.898,5,0,0,0,0,0,0);
porc[59]= new Array(15.875,0.792,-0.015,0.223,-2.885,48.402,5,0,0,0,0,0,0);
porc[60]= new Array(17,0.839,-0.014,0.167,-2.776,46.391,3.3,0,0,0,0,0,0,0);
var talla_final, v, tallapm;
if(isNaN(tallap)==1 || isNaN(tallam)==1)
{
tallap=177.0;
tallam=163.0;
}
if(isNaN(peso)==1) return(0);
tallapm=(tallap+tallam)/2;
if (sexo) v=1;
else v=7;
for(n=0;n<60;n++)
{
if(ec | | | | | | | | | | | |