<!--
function noTomar()
{ var metodo = new String();

  final:
  {
// Este programa es propiedad intelectual de ARMECASAN LIMITADA. Todos los derechos reservados.
  
    Nombre = nofumar.Nombre.value;
    cantidad = nofumar.cantidad.value
    nume = Math.round(nofumar.cantidad.value * nofumar.tipo.value * nofumar.bebida.value);
    var fecha = new Date();

    numero = Math.round(nume/120)
    if (numero > 7) numero = 7;
    if (numero < 1) numero = 1;
    minimo = numero * 30;
    if ((cantidad <= 0)||(Nombre.length < 1))
              {alert("Debe escribir el correo electronico y la cantidad de licor que consume el paciente");
                 break final;}
    
    metodo = "<li>Por ahora solo deben darle <b> un trago cada " + Math.round(24/numero) + " horas.</b><br> Solo puede tomar " + numero + " tragos al día<br><br>\n";
    mes = fecha.getMonth() + 1;
    dia = fecha.getDate();
    ano = fecha.getYear();

    var m = ""

    if (mes == 1) m = "Enero"
    if (mes == 2) m = "Febrero"
    if (mes == 3) m = "Marzo"
    if (mes == 4) m = "Abril"
    if (mes == 5) m = "Mayo"
    if (mes == 6) m = "Junio"
    if (mes == 7) m = "Julio"
    if (mes == 8) m = "Agosto"
    if (mes == 9) m = "Septiembre"
    if (mes == 10) m = "Octubre"
    if (mes == 11) m = "Noviembre"
    if (mes == 12) m = "Diciembre"


    var fechaac = "Fecha: " + dia + " de " + m + " del " + ano 
    
    var p = Math.round(100/numero)
    
    if (p < 7) p = 7

    while (numero > 0)
    {
      numero -= 1;
      dia += p;
      while (dia > 30)
      {dia -= 30;
       mes += 1;
       if (mes > 12) {mes -=12; ano +=1};
      }


    if (mes == 1) m = "Enero"
    if (mes == 2) m = "Febrero"
    if (mes == 3) m = "Marzo"
    if (mes == 4) m = "Abril"
    if (mes == 5) m = "Mayo"
    if (mes == 6) m = "Junio"
    if (mes == 7) m = "Julio"
    if (mes == 8) m = "Agosto"
    if (mes == 9) m = "Septiembre"
    if (mes == 10) m = "Octubre"
    if (mes == 11) m = "Noviembre"
    if (mes == 12) m = "Diciembre"

    if (numero == 0) metodo +="<li> El <b>" + dia + " de " + m + " del " + ano + "</b> ya no debe volver a tomar licor";
    else
    {if ((mes == 2)&&(dia > 28)) {metodo +="<li> A partir del <b>28 de Febrero del " + ano + "</B> solo deben darle <b> un trago cada "+ Math.round(24/numero) + " horas</b>.<br>Solo puede tomar " + numero + " tragos al día<br><br>\n";}
        else {Math.round(24/numero); metodo +="<li> A partir del <b>" + dia + " de " + m + " del " + ano + "</B> solo deben darle <b>un trago cada "+ Math.round(24/numero) + " horas.</b><br>Solo puede tomar " + numero + " tragos al día<br><br>\n";}
     }
     };
nofumar.Nombre.value=" » " + nofumar.Nombre.value + " « "

document.nofumar.submit();
alert("En este momento le enviaran el metodo de desintoxicacion.");
nofumar.Nombre.value="";
      
document.writeln("<html><head><title>Desintoxicación alcohólica</title></head><body bgcolor=#B9D1EA style='text-align:justify'><blockquote><font face='HELVETICA,ARIAL' size=2><CENTER><h3><i>Programa de desintoxicacion alcoholica<br></i></center><br>http://www.atencionhispana.com</h3>")
document.writeln("<br><img src=banner.gif><br><iframe name='google_ads_frame' width='728' height='90' frameborder='0' src='http://pagead2.googlesyndication.com/pagead/ads?client=ca-pub-2986659292136877&dt=1184804534399&lmt=1184804534&alt_color=A4F8E6&format=728x90_as&output=html&correlator=1184804534399&channel=7430388024&url=http%3A%2F%2Fwww.atencionhispana.com%2Fejerc.html&color_bg=B9D1EA&color_text=000000&color_link=0000FF&color_url=000000&color_border=B9D1EA&ad_type=text&cc=841&flash=9&u_h=768&u_w=1024&u_ah=738&u_aw=1024&u_cd=16&u_tz=-360&u_his=2&u_java=true' marginwidth='0' marginheight='0' vspace='0' hspace='0' allowtransparency='true' scrolling='no'></iframe><br>")
document.writeln(fechaac)
document.writeln("<br><br>")
document.writeln("<h3>Paciente: " + Nombre + "</h3>")
document.writeln("<b>El total de alcohol puro que consume diariamente es de <u>" + nume + " mililitros</u></b>.<br>")
document.writeln("RECOMENDACION: Imprima esta página para que conserve este método individualizado. <input onclick=window.print() type=button value=Imprimir name=B1><br><br>")
document.writeln("A continuación se le ha elaborado un calendario en el cual aparecerán fechas en las")
document.writeln("que debe reducir gradualmente el consumo de licor.")
document.writeln("<br><br>")
document.writeln("De esta forma se irá reduciendo lentamente para dar tiempo a que el paciente pueda adaptarse a la falta de alcohol en su cuerpo,")
document.writeln(" dando tiempo a que su metabolismo se adapte. Esto es necesario porque el alcohol sustituye la función de una enzima en las células y si se le quita de un solo se le puede hacer daño a sus nervios y al cerebro. <u>Su paciente necesita consumir un minimo de "+ minimo + " ml de alcohol al dia</u> para no caer en el <b>Sindrome de deprivacion alcoholica.</b>")
document.writeln("<br><br>")
document.writeln("Este método ha demostrado ser sumamente exitoso en Europa, por lo")
document.writeln("que lo invitamos a que lo intente, pero siempre debe estar bajo supervisión médica y de un familiar responsable. <br><br>")
document.writeln("Si no logra cumplir con las metas señaladas vuelva")
document.writeln("a dar los datos del paciente para realizarle un nuevo cálculo.")
document.writeln("<br><hr><br>")
document.writeln("</font>")
document.writeln("Este método de desintoxicación alcohólica se ha calculado específicamente para el paciente <b>" + Nombre + ".</B> Debe llevar al paciente a un control con el médico por lo menos cada 15 días.<br><br><center>")
document.writeln("<br><br><br><table border=2 width=550 bordercolor=black cellpadding=7><tr><td><br><br><center><h3>Método de desintoxicación alcohólica</h3></center><tr><th>Cuando el paciente tenga necesidad de beber licor debe darle segun las indicaciones de este calendario. Si ya no pide licor ya no le siga dando.<tr><th> Un trago = 30 ml de alcohol (1 onza)<br>Debe utilizarse un licor con concentración alta de alcohol como el whiskey<tr><td><br>" + metodo + "</table></center>")
document.writeln("<br><br>Además deben aplicarle los medicamentos que le indique el médico y también las siguientes indicaciones:<br><center><table border=1 width=550 style='text-align:justify; line-height:7mm' bordercolor=black cellpadding=7><tr><td><li><b>Dexa-neurobión:</b> 1 ampolla IM cada 12 horas # 6 ampollas<li><b>Cloprim:</b> 1 tableta antes de cada comida # 10 tabletas<li><b>Vitamina C MK:</b> 2 tabletas después de cada comida # 30 tabletas <li><b>Ejercicio:</b><br> Debe hacer 10 minutos al día de un ejercicio aeróbico  que lo haga sudar, como correr o bicicleta estática<li><b>Dieta:</b> <u>Debe evitar las carnes, el aceite y las grasas en las comidas</u>.<br> Debe comer frutas frescas y ensaladas frescas con hojas verdes (como repollo, lechuga, apio, espinaca, brócoli) y vegetales frescos (rábano, zanahoria, tomate, pepino).<br> Además puede comer pastas, frijoles, arroz, pan, tortilla y si no es diabético puede comer cosas dulces. <li><b>Terapia de grupo:</b> Deben llevarlo al grupo de ALCOHOLICOS ANONIMOS. </table></center>")
document.writeln("</BODY></html>")
history.go(0)

  
  }
}
//-->

