browserName = navigator.appName;
browserVer = parseInt(navigator.appVersion);
if (browserName == "Netscape" && browserVer >= 3) browserVer = "1";
else if (browserName == "Microsoft Internet Explorer" && browserVer == 4) browserVer = "1";
else browserVer = "2";

function recargas() {
  window.open('lptsepara.htm','newwin');
}

function AlternarImag(nombre, fuente) {
        if (((navigator.appName == "Netscape") & (VersionNav.substring(0,1) >=3)) || (VersionNav.substring (0,1) >= 4)) {
        imagen = new Object();
        imagen = nombre;
        imagen.src = fuente;
        }
}

function llena() {
  this.length = llena.arguments.length 
  for (var i = 0; i < this.length; i++)
      this[i] = llena.arguments[i]
}

function fecha() {
  semana = new llena("Domingo","Lunes","Martes","Miercoles","Jueves","Viernes","Sabado")
  meses = new llena("Enero","Febrero","Marzo","Abril","Mayo","Junio","Julio","Agosto","Setiembre","Octubre","Noviembre","Diciembre")
  today = new Date()
  hoy= ""
  cadena = ""+today
  mes = today.getMonth()
  dia = today.getDay()
  ano = today.getYear()
  hoy = "Perú, "+semana[dia]+" "+eval(cadena.substring(7, 10))+" de "+ meses[mes]+ " de "+ano
  return hoy
}

function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_findObj(n, d) { //v3.0
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document); return x;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}

function sale(formu) {
    nombre=eval("document."+formu+".elements[0].name");
    eval("document."+formu+"."+nombre+".select()");
    eval("document."+formu+"."+nombre+".focus()");
//    eval("document.frmlinea."+nombre+".select()");
//    eval("document.frmlinea."+nombre+".focus()");
}

function mover(obj, formu, evt) {
  var i,j=1;
  var p=0;
  atextos = new Array();
  if (window.event.keyCode == 13) {
     for(i=0;i<eval("document."+formu+".length");i++) {
         if (eval("document."+formu+".elements[i].type")=="text") { 
	     atextos[p]=eval("document."+formu+".elements[i].name")
	     p++;
	 }
      }
   for(i=0;i<p;i++) {
         if (atextos[i]==obj.name) { 
	    if (i==(p-1)) i=-1;
            nombre=atextos[i+1];
            eval("document."+formu+"."+nombre+".select()");
            eval("document."+formu+"."+nombre+".focus()");
	    break;
	 }
      }
  }
 }

function queda(obje, formu) {
  var i;
  for(i=0;i<eval("document."+formu+".length");i++) {
      if (eval("document."+formu+".elements[i].name") == obje.name) break;
     }
  nombre=eval("document."+formu+".elements[i].name");
  eval("document."+formu+"."+nombre+".select()");
  eval("document."+formu+"."+nombre+".focus()");
}

function MM_validateForm() { //v3.0
  var objeto,i,p,q,nm,test,num,min,max,errors='',args=MM_validateForm.arguments;
  for (i=0; i<(args.length-2); i+=3) { 
    test=args[i+2]; 
    val=MM_findObj(args[i]);
    objeto=val;
    //alert(i+" - "+args[0]+" - "+args[1]+" - "+args[2]+" - "+val+" - "+val.name+" - "+val.value+" - "+val.type);
    if (val) { 
       nm=val.name; 
       if ((val=val.value)!="") {
          if (test.indexOf('isEmail')!=-1) { 
               p=val.indexOf('@');
               if (p<1 || p==(val.length-1)) errors+='- '+nm+' must contain an e-mail address.\n';
             } else 
               if (test!='R') { 
                   num = parseFloat(val);
                   if (val!=''+num)  errors+='- '+nm+' must contain a number.\n';
                   if (test.indexOf('inRange') != -1) { 
                         p=test.indexOf(':');
                         min=test.substring(8,p); 
                         max=test.substring(p+1);
                         if (num<min || max<num) errors+='- '+nm+' se permite Nros. Unicamente entre '+min+' and '+max+'.\n';
                }
           }
       } else
        if (test.charAt(0) == 'R') errors += '- '+nm+' is required.\n'; 
     }
   } 
   if (errors) {alert('A Ocurrido un Error al Ingresar los datos:\n'+errors);
   queda(objeto,args[1]);}
   document.MM_returnValue = (errors == '');
}

function cleanUp(){
    document.close()
}

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

function widthwindow(frmopen,titwindow,frmsource,idcampo){
    newwindow=window.open("",titwindow,"width=550,height=200,scroll=yes,menubar=yes");
    frms=frmopen+("?frs="+frmsource+"&campo="+idcampo)
    alert(frms)
    newwindow.location.href=frms;
//?frmsour=frmsource;
//&campo=idcampo;
}

function opensearch(frmopen,titwindow,tbase,frmsource,idcampo){
    frms=frmopen+("?frmsource="+frmsource+"&"+idcampo+"&tablas="+titwindow+"&base="+tbase)
//    alert(frms);
    location.href=frms;
//?frmsour=frmsource;
//&campo=idcampo;
}

function Abrelistado() 
{
  //Listado de Detalle maestros
//windid=window.open("festividad.htm","","height=160,width=190,status=no,toolbar=no,resizable=no,scrollbars=no,location=no,top=0,left:0");
//if (windid.opener) window.opener=self;
  //window.open("despistaje.htm","","height=198,width=300,status=no,toolbar=no,resizable=no,scrollbars=no,location=no,top=200,left:120")	
   //window.open("presenta.htm","","height=300,width=250,status=no,toolbar=no,resizable=no,scrollbars=yes,location=no,top=300,left:400")	
}

function abredetalle(pagina,titulo) 
{
//Listado de Detalle maestros
//windpp=window.open("visita.htm","","height=200,width=200,status=no,toolbar=no,resizable=no,scrollbars=no,location=no,top=0,left=400");
//if (windpp.opener) window.opener=self;

}

function abremas(pagina,titulo) 
{
  //Listado de Detalle maestros
// windidp=window.open(pagina,titulo,"height=200,width=180,status=no,toolbar=no,resizable=no,scrollbars=no,location=no,top=100,left:350")	
// if (windidp.opener) window.opener=self;
}

function abremasa(pagina,titulo) 
{
  //Listado de Detalle maestros
 windidp=window.open(pagina,titulo,"height=400,width=580,status=no,toolbar=no,resizable=no,scrollbars=yes,location=no,top=100,left:350")	
 if (windidp.opener) window.opener=self;
}


function abrefoto(pagina,titulo) 
{
  //Listado de Detalle maestros
 windif=window.open(pagina,titulo,"height=400,width=400,status=no,toolbar=no,resizable=no,scrollbars=no,location=no,top=50,left:50")	
 if (windif.opener) window.opener=self;
}


function reapply(){
 setTimeout("slideit()",1000)
 return true
}
window.onerror=reapply
var image1=new Image()
image1.src="graficos/hospitalario.jpg"
var image2=new Image()
image2.src="graficos/ambulatorio.jpg"
var image3=new Image()
image3.src="graficos/oncologica.jpg"
var image4=new Image()
image4.src="graficos/odontologico.jpg"
var image5=new Image()
image5.src="graficos/sepelio.jpg"

////change number of images below
var number_of_images=5
//change speed below (in seconds)
var speed=2
var step=1
var whichimage=1

function slideit(){
 if (!document.images)
    return
 if (document.all)
    slide.filters.blendTrans.apply()
    document.images.slide.src=eval("image"+step+".src")
 if (document.all)
    slide.filters.blendTrans.play()
    whichimage=step
 if (step<number_of_images)
     step++
 else {
    step=1
 }
 if (document.all)
     setTimeout("slideit()",speed*2000+1000)
 else
     setTimeout("slideit()",speed*2000)
}

function slidelink(){
if (whichimage==1)
   window.location="pam/hospitalario.php"
else if (whichimage==2)
   window.location="pam/ambulatorio.php"
else if (whichimage==3)
   window.location="pam/oncologico.php"
else if (whichimage==4)
   window.location="pam/odontologico.php"
else if (whichimage==5)
   window.location="pam/sepelio.php"
}


if (browserVer == 1) {
a1 = new Image(110,69);
a1.src = "graficos/ccalera.jpg";
a2 = new Image(110,69);
a2.src = "graficos/celcuadro.jpg";
a3 = new Image(110,69);
a3.src = "graficos/cmamacona.jpg";
}

//image swapping function:
function hiLite(imgDocID, imgObjName, comment) {

document.images[imgDocID].src = eval(imgObjName + ".src");
window.status = comment; return true;
}

function check(contents) {
    if (!contents) return false;
    if (contents.length<7) {
        alert('Error: Ingrese Correctamente el Codigo..');
        return false;
     }
    if (contents.substr(0,1)=='-') {
        alert('Error: No Ingrese numeros negativos .');
        return false;
     }
   return true;
}

function enviar(formu,actId,actMo) {
   if (actId==2) {
      wbusca=window.open("frm-buscador.php?valor=&codig=uno&ixi=0&xas=6","","height=300,width=450,status=no,toolbar=no,resizable=no,scrollbars=no,location=no,top=200,left=300");
      if (wbusca.opener) window.opener=self;
   } else if (actId==13) {
      wbusca=window.open("statcta.php?codigo="+actMo,"","height=300,width=600,status=no,toolbar=no,resizable=no,scrollbars=yes,location=no,top=200,left=300");
      if (wbusca.opener) window.opener=self;
   } else if (actId==6) {
        eval("document."+formu+".vales.value=0");
        eval("document."+formu+".nombres.value=0");
        eval("document."+formu+".codigo.value=0");
        eval("document."+formu+".modoEv.value=0");
        eval("document."+formu+".btprint.value=0");
        eval("document."+formu+".submit()");
   } else if (actId==8){
          if (document.frmnota.codigo.value<1) alert('!! Error !! Escriba Correctamente el Codigo..');
          else if (document.frmnota.vales.value<7) alert('!! Error !! Escriba Correctamente el No. de Carnet..');
          else {
            eval("document."+formu+".accionId.value="+actId);
            eval("document."+formu+".submit()");
          }
  } else if (actId==10) {
       eval("document."+formu+".accionId.value="+actId);
       eval("document."+formu+".submit()");
  }
}

function marcar_todos(checked,frmopen) {
  len=eval("document."+frmopen+".elements.length");
  var i=0;
  for (i=0;i<len;i++) {
    e=eval("document."+frmopen+".elements[i]");
    if (e.type=='checkbox')
 {
     eval("document."+frmopen+".elements[i].checked=checked");
    }
  }
}

function numChecked(frmopen)
{
j=0;
// alert(e.name+frmopen+" "+e.type+" "+e.checked); 
for(var i=0;i< eval("document."+frmopen+".length");i++)
 {
   e=eval("document."+frmopen+".elements[i]");
   
   if (e.type=='checkbox' && e.checked)
 {
       j++;
    }
 }
//alert("Valor de J "+j); 
return j;
}

function joinChecked(frmopen)
{
var j=0;
var cad="";
// alert(e.name+frmopen+" "+e.type+" "+e.checked); 
for(var i=0;i< eval("document."+frmopen+".length");i++)
 {
   e=eval("document."+frmopen+".elements[i]");
   if (e.type=='checkbox' && e.checked)
    {
       cad=cad+e.name;
    }
 }
return cad;
}

function borrar_item(frmopen,actId) {
   var cadn;
  if (numChecked(frmopen)) {
      if (actId=='6' || actId=='7') {
        cadn=joinChecked(frmopen)
        eval("document."+frmopen+".accionId.value="+actId);
//        eval("document."+frmopen+".selecto.value="+cadn);
        document.frmnota.selecto.value=cadn;
      } else if (actId==4) {
        alert("4"+actId);
        eval("document."+frmopen+".accionId.value="+actId);
        eval("document."+frmopen+".modoEv.value=0");
	}
      eval("document."+frmopen+".submit()");
  } else
  {
    window.alert("Primero debe seleccionar al menos un item..");
  }
}