/*
   Dez/2004
   Copyright Uniware Acessoriua e Consultoria de Informática
   Autor: Alexandre P. Trindade
*/

// Cons. Med.

function chama_result(res_info){
  var res_info;
  var vurl = "chama_result.php?id=" + res_info;
  window.open(vurl,"nova", "dependent=yes,menubar=yes,resizeable=yes,scrollbars=yes");
}
function exibe_result(res_info){
  var res_info;
  var vurl = "../chama_result.php?id=" + res_info;
  window.open(vurl,"nova", "dependent=yes,menubar=yes,resizeable=yes,scrollbars=yes");
}

function AjustaCampos(oForm){
  var oForm,ft,sd,st,i;
  st = "13"; sd = "24";
  i = st.charCodeAt(1);
  ft = oForm.c_tipo.value;
  if (st.indexOf(ft) >= 0 ){
	 oForm.c_valor.value = "";
  }else if (sd.indexOf(ft) >= 0 ){
	 oForm.c_valor.value = "dd/mm/aaaa";
  }else if (ft == 5){
	 oForm.c_valor.value = "M/F";
  }
}

function strhex(s){
   var s,shex,i,j;
   shex = "";
   if (s.length > 0){
      for (i=0;i < s.length;i++ ){
         j = s.charCodeAt(i);
		 if (shex.length < 1){
			 shex = j.toString(16);
		 }else{
		    shex = shex + j.toString(16);
		 }
      }
   }
   return shex;
}

function GetQuery(oForm){
  var oForm,qry = "",ft = 0,fv = "";
  ft = oForm.c_tipo.value;
  fv = oForm.c_valor.value;
  qry = "";
  if (ft==1 || ft==3){
           qry = ft + "#" + fv;
  }else if (ft==2 || ft==4){
           qry = ft + "#" + fv.substr(6,4) + "-" + 
		                    fv.substr(3,2) + "-" + 
		                    fv.substr(0,2);
  }else if (ft==5){
		   qry = ft + "#" + fv.substr(0,1);
  }else if (ft == 100){
		   qry = ft + "#todos";
  }
  if (qry.length > 0){
	  return strhex(qry);
  }else{
     return "";
  }
}

function ChamaPesquisa(oForm,url){
   var oForm,qry;
   qry = GetQuery(oForm);
   if (qry.length > 0){
	   window.location.href = url + "?psq=" + qry;
   }
}