/*************************************************************************

 Noviembre 9 de 2007 Inicio del proyecto

 Programador: Hildefonso Chaverra N. misterhch

 Diseñador:     Edwin Torres. monkey

 Asunto: proyecto web

 Descripción: 	Se trata de anunciar noticias.

			Permitir a los usuarios manejar sus diferentes registros

			Estar en contacto por comunicacion administrando base de datos MySql

			Controlar los usuarios mediante tiempos de vencimiento.

estructura.

 directorio base (ej. proy2)	

proy2 |-> index.php					( 0 ) Este es el que arranca la aplicación WEB, si no arranca de una tocará cambiarla a Html.

	|

	-> clases -> -*general.php				( 1 ) unico controlador de las páginas php

	|

	-> css -> principal.css				( 2 ) unico estilos usados por todas las páginas

	|

	-> imagenes -> flecha.gif				( 3 ) indicador para registrarse, usado en "general.php" function entradaUsuarios y en "valida_clave.php", cuando no existe el usuario

			inicio.jpg				( 4 ) Titulo  - Pagina de Inicio -

			main2.jpg				( 5 ) Titulo central  -un cuadrado -

			main.jpg				( 6 ) Foto del ambiente entrado -Programador -

			actualizar.jpg			( 7 ) Titulo - Actualizar Datos -

			cambioclave.jpg			( 8 ) Titulo - Cambio de Clave -

			registro.jpg				( 9 ) Titulo - Registro Usuario -

			grabar.jpg				( 18 ) Titulo - Grabar Registros -

			generar.jpg				( 19 ) Titulo - Generar Archivos -

	|		

	->scripts -> control.js				( 10 ) unico es el control entre páginas, menos la de inicio y la de registrarse que usan HREF, el resto debe usar submit, usando metodo POST y en un ONCLICK o en focus enviado la tarea a RECIBE_TAREA(parametro) que está en "control.js"

	|

	-> paginas -> -*conex.php			( 11 ) Maneja la conexión a la base de datos 

			-*principal.php			( 12 ) Es el entorno principal del usuario ya  registrado, es aquí donde puede llamar las otras páginas, de cambio de clave, actualización de datos, granación de registros y generación de archivos y consulta de registros.

			*actualizar.php			( 13 ) Permite actualizar los datos del usuario, menos las llaves (Cedula, código de usuario y código de quien lo invitó).

			-*cambioclave.php		( 14 ) Permite el cambio de la clave de acceso del usuario

			*registro.php			( 15 ) Es el encargado de registrar los usuarios nuevos

			-*valida_clave.php		( 16 ) controla es acceso al sistema de cada usuario, negando el acceso por clave errada,  permitir tambien la creación del nuevo usuario en este punto y por uúltimo permitiendo la entrada correcta del uaurio y situandolo en la pagina "principal.php" del usuaio

			-*actualiza_usuario.php		( 22 ) Actualiza los datos del usuario por el menú "Actualizar"., no modifica, contraseña y menos la cedula que es llave, no podrá modificar el "codigo del usuario", ni del distribuidor una vez existan

				

*************** Actualizado el 9 de Nov de 2007 a las 11:30am *****************



			-*graba_usuario.php		( 17 ) Graba los datos del nuevo usuario, se evalua al enviar si existe o no.

			-*generar.php			( 20 ) Genera los archivos registrados.

			*pacientes.php			( 21 )  Graba datos de los pacientes.

			-*graba_pacientes.php		( 23 ) Graba el registro de los pacientes en Base de datos

			*pacientesphp.php		( 24 ) Evalua si existe el paciente para traer los datos si se modifica algo se actualiza una vez haga clic en el botón de consulta o procedimiento

			*consultaphp.php			( 25 ) Maneja la consultas Tipo_atencion = "C"

			-*actualiza_clave.php		( 26 ) Cambia la clave en la base de datos y si es correcto para lo envia al inicio de session.

			-*graba_consultas.php		( 27 ) Graba los registros de consulta en la tabla consultas de la base de  datos

			-*entidades.php			( 28 ) Tiene un <TR> con las entidades de salud y la ciudad de donde vive el paciente

			-*entidades_generar.php	( 29 ) contiene las entidades de salud que quiere generar el médico

			*generar_archivos.php		( 30 ) Hace la consulta SQL de los registrar a generar que estén en el rango de fecha y luz muestra en una tabla

			-*crear_archivos.php		( 31 ) Hace los archivos CT, US, AF, AD, AP, AC, cada uno de ellos de acuerdo al rango y además marca en la base de datos con la secuencia

			-*liberados.php		          ( 32 ) Busca y libera todos los registro de la entidad que tengan la secuencia indicada.  llave prestador + entidad + secuencia, tambien libera numero de factura siempre y cuando no sea la entidad SDS001

			-*regenerar.php		          ( 33 ) Busca los registros por cedula_activa + codigo de entidad + secuencia indicada y crea de nuevo los archivos en el disco

			*contactenos.php		          ( 34 ) Es la mensajeria externa de gente que quiere conocer más sobre el negocio.

			-*mensajeria_externa.php          ( 35 ) Todo lo que llegue por contactenos.

			*contacto_interno.php	          ( 36 ) Aqui se crea la correspondencia interna

			-*mensajeria_interna.php          ( 37 ) Todo lo que llegue por mensajeria interna.

			*responder_mensaje.php          ( 38 ) Aqui se responden los mensajes

			-*autorizacion.php	         	( 39 ) Este el que permite que la gente haga sus propia autorización, si no ha pagado una no se podrá crear otra.

			-*descargar_nip.php	          ( 40 ) Sirve para una vez confirmaco el pago de la licencia, se libere y permita al usuario crear una nueva autorizacion de año y mes

			-*cambiar_clave_res.php          ( 41 ) permite cambiar clave automaticamente de los usuarios solo como misterhch

			-*eliminar_consulta.php	          ( 42 ) permite eliminar registros de atenciones médicas, es el boton de los PENDIENTES POR GENERAR 

			-*descarga.php	                    ( 43 ) Descarga uno por uno los archivos del proceso a la maquina del usuario.

			-*descarga_informe.php	           ( 44 ) Descarga el archivo de informes en PDF para que el usuario lo grabe o lo imprima.

ESPECIAL		-*fpdf.php	        			( 45 ) PHP propio de otras fuentes que interactua con la creación del archivo en PDF, lo uso en los reportes

			-*ayuda_descarga.php		( 46 ) Usado para mostrar como descargar archivo cuando los abre directamente. 

			-*ayuda_descarga_ac.php	( 47 ) Usado para mostrar como descargar archivo PDF si está o no instalado.

			-*procedimientosphp.php	( 48 ) Recibe y evalua los registros de  los procedimientos

			-*graba_procedimiento.php	( 49 ) Descarga la informacion en la base de datos 

*************************************************************************/

					//	Aqui esta el JavaScript, todas las paginas para pasar de una a otra deben venir a este recibe_tarea

<!--

var error=0;

var error_n=0;

var campo_errado="N";	

var fech=0;

var fec_nac=0;

var ano=0;

var mes=0;

var dia=0;

var daux2=0;

var fec_sistema=0;

					//*************************************************

					//	CONTROLES PARA PACIENTES.PHP INICIO       //

					//*************************************************

function fecha() {
	fech=new Date();
	ano=fech.getYear();
	mes=fech.getMonth() + 1;
	dia=fech.getDate();
	if (dia < 10){
	   dia= "0" + dia;   
	}
	if (mes < 10){
	   mes= "0" + mes;   
	}
	if (parseInt(ano) < 1900){
		ano=ano + 1900;
	}
	fech = dia + "-" + mes + "-" + ano;
					/* 	  Lo uso al momento de armar los archivos finales para que llegur con la estructura ya armada dd/mm/aaaa 		*/
	fec_sistema = ano + "" + mes + "" + dia;
	document.write(fech);
}

function restaurar_pacientes(){

				//   La idea es que quede como al principio, lo llama cuando esta en la fecha o en la identificación del paciente

	document.abre_session.u_nombre.value = "";

	document.abre_session.u_nombre2.value = "";

	document.abre_session.u_apellido.value = "";

	document.abre_session.u_apellido2.value = "";

	document.abre_session.ide_paci.value = "";

	document.abre_session.tipo_ide.value = "CC";

	document.abre_session.anos.value = "1973";

	document.abre_session.meses.value = "0";

	document.abre_session.tzona.value = "U";

	document.abre_session.tusuario.value = "1";

	document.abre_session.tsexo.value = "M";

	document.abre_session.edad_actual.value = "";

	document.abre_session.dias.length=0;		

}

function eva_faten( faten ){

// 		 se toma la porción de la cadena con substring (indice, indice final - 1)

	var rest_camp = restaurar_pacientes();

	if (faten.length < 10){

		alert ("Por favor digite la fecha en formato dd-mm-aaaa");

	}else{

		fech = faten.substring(6,10) + faten.substring(3,5) + faten.substring(0,2);

						//	Carga la variable con la fecha de atención en formato aaaa-mm-dd para despues descargarla en la base de datos sin intermediarios

		document.abre_session.fecha_atencion.value = faten.substring(6,10) + "-" + faten.substring(3,5) + "-" + faten.substring(0,2);

		if (parseInt(fech) > parseInt(fec_sistema) ){

			alert ("La fecha de atención no puede superar la fecha del sistema");

			document.abre_session.fec_aten.value=dia + "-" + mes + "-" + ano;

			document.abre_session.fec_aten.focus();

		}

	}

}

					//*********************************************

					//	CONTROLES PARA PACIENTES.PHP FIN       //

					//*********************************************

function recibe_tarea(valor){
	if (valor == "valida_clave"){
		valida_clave();
	}
	if (valor == "graba_usuario"){
		document.abre_session.action='graba_usuario.php';
		abrir_session();
	}
					//	Todas las opciones de los menus una vez abierto el ambiente de usuario, al regrezar llamar, abrir, modificar, grabar, generar, cambio clave
					//	Deben tener el formulario que se llame abre_session, para mantener la cedula en todas partes activa.
					//	************************************************************************************      //
					//  	* Seccion de menus Inicio-Actualizar-Cambio de clave-Grabar Registros-Generar archivos
					//      ************************************************************************************      //
	if (valor == "abrir_session"){
		document.abre_session.action="principal.php";
		abrir_session();
	}
					//	Maneja el cambio de lo menús y lleva una variable "$cedula_activa" siempre con la cedula del usuario que es la llave principal
					//	Viaja por un POST y en la página que lo recibe carga de nuevo los datos refrescando cualquier cambio, la variable se carga en principal.php
	if (valor == "actualizar_usuario"){
		document.abre_session.action="actualizar.php";
		abrir_session();
	}	
						//	Aqui se va a hacer la grabacion en base de datos el de arriba es para presentar el formulario por el menú "Actualizar"
	if (valor =="graba_actualizar_usuario"){
		document.abre_session.action="actualiza_usuario.php";
		abrir_session();
	}	
						//	Muestra la ventaa para cambiar la contraseña					
	if (valor == "actualizar_clave"){
		document.abre_session.action="cambioclave.php";
		abrir_session();
	}	
						//	Aqui se va a hacer la grabacion en base de datos el de arriba es para presentar el formulario de cambio de clave
	if (valor == "graba_actualizar_clave"){
		document.abre_session.action="actualiza_clave.php";
		abrir_session();
	}	
						//	Muestra la ventana para grabar pacientes y después consultas o procedimientos
	if (valor == "grabar_registros"){
		document.abre_session.action="pacientes.php";
		abrir_session();
	}	
						//	Muestra la ventana para grabar pacientes y después consultas o procedimientos
	if (valor == "grabar_registros_pacientes"){	
		document.abre_session.action="graba_pacientes.php";
		abrir_session();
	}	
						//	Consulta la identificación del paciente para identificar si tiene datos, es en pacientes
	if (valor == "paciente_existe"){
		document.abre_session.action="pacientesphp.php";
		abrir_session();
	}	
						//	llama las consultas médicas viene desde PACIENTESPHP.PHP en los botones pasando por << GRABA_PACIENTES.PHP	>>
	if (valor == "C"){
		document.abre_session.action="consultaphp.php";
		abrir_session();
	}		
	if (valor == "P"){
		document.abre_session.action="procedimientosphp.php";
		abrir_session();
	}		
						//	Grabará, en la tabla consulta el registro como tal
	if (valor == "grabar_registro_consulta"){
		document.abre_session.neto_consul.disabled=false;
		document.abre_session.action="graba_consulta.php";
		abrir_session();
	}	
						//	Muestra la ventana para generar los archivos
	if (valor == "generar_archivos"){	
		document.abre_session.action="generar.php";
		abrir_session();
	}	
	if (valor == "registros_a_generar"){	
		document.abre_session.action="generar_archivos.php";
		abrir_session();
	}	
	if (valor == "registros_a_facturar"){	
		document.abre_session.action="crear_archivos.php";
		abrir_session();
	}		
	if (valor == "libera_registros"){
		document.abre_session.action='liberados.php';
		abrir_session();
	}
	if (valor == "generar_secuencia"){
		document.abre_session.action='regenerar.php';
		abrir_session();
	}
	if (valor == "graba_mensaje_externo"){
		document.abre_session.action='mensajeria_externa.php';
		abrir_session();
	}
	if (valor == "mensajeria_interna"){
		document.abre_session.action='contacto_interno.php';
		abrir_session();
	}
	if (valor == "graba_mensaje_interno"){
		document.abre_session.action='mensajeria_interna.php';
		abrir_session();
	}
	if (valor == "elimina_consulta"){
		document.abre_session.action='eliminar_consulta.php';
		abrir_session();
	}
							//	Grabará, en la tabla de consultas tambien los procedimientos
	if (valor == "grabar_registro_procedimiento"){
		document.abre_session.neto_proced.disabled=false;
		document.abre_session.action="graba_procedimiento.php";
		abrir_session();
	}	
}	
						//	Control en pacientes.php
function eva_ide_paci( parametro ) {	
	if (parametro.length > 0){
		recibe_tarea("paciente_existe");
	}
}
function calcula_fnaci() {
			/*	var posi=document.abre_session.anos.value.indexOf("|");
				fec_nac = document.abre_session.anos.value.substring(posi + 1, document.abre_session.anos.value.length);
			*/
	fec_nac = document.abre_session.anos.value;
			// Armando la fecha de nacimiento para enviarla a grabar correctamente
	document.abre_session.fecha_nacimiento.value=fec_nac;
	if (document.abre_session.meses.value.length < 2){
		fec_nac += 0 + document.abre_session.meses.value;
		document.abre_session.fecha_nacimiento.value+="-0" + document.abre_session.meses.value;
	}else{
	   fec_nac += document.abre_session.meses.value;
	   document.abre_session.fecha_nacimiento.value+="-" + document.abre_session.meses.value;
	}
	if (document.abre_session.dias.value.length < 2){
		fec_nac += 0 + document.abre_session.dias.value;
		document.abre_session.fecha_nacimiento.value+="-0" + document.abre_session.dias.value;
	}else{
	   fec_nac += document.abre_session.dias.value;
	   document.abre_session.fecha_nacimiento.value+="-" + document.abre_session.dias.value;
	}
	var posi=fech.indexOf("-");
	if (parseInt(posi) > 0){
		fech=fech.substring(6,10) + "" + fech.substring(3,5) + "" + fech.substring(0,2);								
	}
	calcula_edad( fech, fec_nac );
}
function calcula_edad( faten, fnaci ) {
	var edad= new String(faten - fnaci);
	var edadn=edad.length;
	var umedida_edad=" años";
					//Calcula unidad de medida de la edad asi: 1 Años- 2-Meses 3-Dias
	document.abre_session.unidad_medida.value="1";
	if (edad.length == 6 || edad.length == 4 || edad.length == 2){
	   edad = edad.substring(0,2);
	}
	if (edad.length == 5 || edad.length == 3 || edad.length == 1){
	   edad = edad.substring(0,1);
	}
	if (edad == 1){
		umedida_edad=" año";
	}
	if (edadn < 5){
		umedida_edad=" meses";
		if (edad == 1){
			umedida_edad=" mes";
		}
		document.abre_session.unidad_medida.value="2";
	}
	if (edadn < 3){
		umedida_edad=" dias";
		if (edad == 1){
			umedida_edad=" dia";
		}
		document.abre_session.unidad_medida.value="3";
	}
	document.abre_session.edad_actual.value= edad + umedida_edad;
}       
function eva_tusuario( tipo_ide ) {
	if (tipo_ide=="RC" || tipo_ide=="TI" || tipo_ide=="AS" || tipo_ide=="MS"){
		document.abre_session.tusuario.value=2;
	}else{
		document.abre_session.tusuario.value=1;
	}
}
function ano_bisiesto( parametro ) {
	var ano2 = parseInt(parametro);
	daux2 = 0;
	if ((ano2 % 4 == 0) && ((ano2 % 100 !=0) || (ano2 % 400 == 0))){
		daux2 = 4;
	}
		/*  	
			USADO PARA TOMAR POSICIONES QUE VAN SEPARADAS POR POSICIONES DETERMINADAS.
			var posi=parametro.indexOf("|");
			daux2=parametro.substring(0,posi);
		*/
	document.abre_session.dias.length=0;
}
function cambiar_option( lista ) {
	var dlimite=0;
	var daux=0;
	document.abre_session.dias.length =0;
	if (lista == "1" || lista == "3" || lista == "5" || lista == "7" || lista == "8" || lista == "10" || lista == "12") {
		dlimite=31;
	}
	if (lista == "2") {
		dlimite=28;
	}
	if (lista == "4" || lista == "6" || lista == "9" || lista == "11" ) {
		dlimite=30;
	}	
	for (i = 1; i <= dlimite; i++){
		document.abre_session.dias.options[daux] = new Option(i,i);
		daux++;
	}
	if (daux2=="4" && dlimite==28 ) {
		document.abre_session.dias.options[28] = new Option(29,29);
	}
}
function aaaa_disponibles() {
	var y=0;
	for (i = 1900; i <= 2008; i++){
		document.abre_session.anos.options[y] = new Option(i,i);
		if (i == 1973){
			document.abre_session.anos.options[y].selected;
		}
		y++;
	}
}	
					//	***************************************************************************************      //
					//  	* Fin de la Seccion de menus Inicio-Actualizar-Cambio de clave-Grabar Registros-Generar archivos
					//      ************************************************************************************ ***     //
					//	Opciones controldas
function valida_clave(){
	document.abre_session.action="paginas/valida_clave.php";
	document.abre_session.submit();
}
function abrir_session(){
	document.abre_session.submit();
}
					//	Se usa cuando en PACIENTEPHP.PHP se HACE clic en consulta o procedimiento, lo que hace es evaluar la correcta información del paciente.
					//	Antes de llamar el formulario de consulta o procedimiento	
function eva_registro_pacientes( parametro ){
	campo_obligatorio(document.abre_session.fec_aten.name, document.abre_session.fec_aten.value);
	if (error_n==0){
		campo_obligatorio(document.abre_session.ide_paci.name, document.abre_session.ide_paci.value);
	}
	campos_comunes();
	if (error_n==0){
		campo_obligatorio(document.abre_session.edad_actual.name, document.abre_session.edad_actual.value);
	}
	if (error_n==0){
		eva_fecha_valida(document.abre_session.fec_aten.name, document.abre_session.fec_aten.value);
	}		
					//	Confirma que se haya tomado una entidad					
	if (error_n==0){
		campo_obligatorio(document.abre_session.cod_entidad.name, document.abre_session.cod_entidad.value);
	}	
					//	Confirma que se haya tomado una ciudad o municipio de residencia del paciente
	if (error_n==0){
		valida_lugar_de_residencia();
	}	
	if (error_n==0){
		document.abre_session.tipo_atencion.value=parametro;		
		recibe_tarea('grabar_registros_pacientes');
	}		
}
					//	Campos comunes esntre formularios, para evaluar antes de.

function campos_comunes(){	

	if (error_n==0){

		campo_obligatorio(document.abre_session.u_nombre.name, document.abre_session.u_nombre.value);

	}

	if (error_n==0){

		campo_obligatorio(document.abre_session.u_apellido.name, document.abre_session.u_apellido.value);

	}

}

					// 	Evalua que los caracteres digitados sean solo números, esto va en el onkeyup de cada input que lo necesite.

					//	Lo s parametros son la información y el campo donde debe retornar o quien lo evalua.

					//	Evalua los campos que debe estar llenos, es similar a "eva_registro()" de la llamada en -registrese aqui- solo que se va a actualizar datos del usuario

function guardar_cambios(){	

	error_n=0;

	campos_comunes();

	if (error_n==0){

		campo_obligatorio(document.abre_session.u_mail.name, document.abre_session.u_mail.value);

	}

	if (error_n==0){

		document.abre_session.u_usuario.disabled=false;

		document.abre_session.u_distribuidor.disabled=false;

		recibe_tarea('graba_actualizar_usuario');

	}	

}

					//	Evalua que exista información para las claves

function guardar_clave(){	

	document.abre_session.u_clave_act.value=document.abre_session.u_clave_act.value.toLowerCase();		

	campo_obligatorio(document.abre_session.u_clave_act.name, document.abre_session.u_clave_act.value);	

	if (error_n==0){

		document.abre_session.u_clave.value=document.abre_session.u_clave.value.toLowerCase();

		campo_obligatorio(document.abre_session.u_clave.name, document.abre_session.u_clave.value);

	}

	if (error_n==0){

		clave_confirmada();

	}

	if (error_n==0){

		recibe_tarea('graba_actualizar_clave');

	}	

}

					// Evalua los caracteres Validos, letras de a-z, numeros  0-9, signos @ / - . espacio

function caracter_no_valido(evt) {

	evt = (evt) ? evt : event;	

	var charCode = (evt.charCode) ? evt.charCode : ((evt.keyCode) ? evt.keyCode :((evt.which) ? evt.which : 0));		   

	/*

			0 = 48  1=49  2=50  3=51  4=52  5=53  6=54  7=55  8=56  9= 57
			A-Z   65-90 a-z   97-122   -=45 .=46 /=47 espacio=32  enter=13 @ = 64  

	*/

	error_n=1;
	
	if (evt.charCode == 0) { //Este aplica para el Tab. Tomo solo el codigo.
		error_n=0;
	}		

	if (charCode > 47 && charCode < 58) {
		error_n=0;
	}		

	if (charCode > 64 && charCode < 91) {
		error_n=0;
	}

	if (charCode > 96 && charCode < 123) {
		error_n=0;
	}

	if (charCode > 44 && charCode < 48) {
		error_n=0;
	}

	if (charCode == 32 || charCode == 13 || charCode == 64 || charCode == 95) {
		error_n=0;
	}

	if (error_n == 1){
		alert("Caracter no valido en el campo, use: 0-9 a-z @ / - .");
		return false;
	}

	return true;

}

					// Evalua los campos de solo numeros

function soloNumeros(evt) {

	evt = (evt) ? evt : event;	

	var charCode = (evt.charCode) ? evt.charCode : ((evt.keyCode) ? evt.keyCode :((evt.which) ? evt.which : 0));		   

	/*

			0 = 48  1=49  2=50  3=51  4=52  5=53  6=54  7=55  8=56    9= 57

	*/

	

	if (charCode > 31 && (charCode < 48 || charCode > 57)) {	   	   

		alert("Este campo s\u00f3lo acepta n\u00fameros.");

		return false;

	}

	return true;

}

			//cambio de clave con lower

function clavel() {		

	document.abre_session.clave.value=document.abre_session.clave.value.toLowerCase();

	if ((document.abre_session.usuario.value.length > 0) && (document.abre_session.clave.value.length > 0)){

		recibe_tarea('valida_clave');

	}else{

		document.abre_session.usuario.focus();

	}

}	

function campo_obligatorio(nombre_campo, dato) {		

	error_n=0;		

	if (dato == null || dato == ""){

		error_n=1;

		alert("El siguiente campo es necesario para el registro");

		if (nombre_campo=="u_identi"){				

			document.abre_session.u_identi.focus();

		}

		if (nombre_campo=="u_clave"){		

			document.abre_session.u_clave.focus();

		}

		if (nombre_campo=="u_nombre"){				

			document.abre_session.u_nombre.focus();

		}

		if (nombre_campo=="u_apellido"){				

			document.abre_session.u_apellido.focus();

		}

		if (nombre_campo=="u_mail"){

			document.abre_session.u_mail.focus();

		}

						//	Campo en cambio de clave

		if (nombre_campo=="u_clave_act"){

			document.abre_session.u_clave_act.focus();

		}

						//	Campos de pacientes.php y pacientesphp.php

		if (nombre_campo=="fec_aten"){

			document.abre_session.fec_aten.focus();

		}		

		if (nombre_campo=="ide_paci"){

			document.abre_session.ide_paci.focus();

		}		

		if (nombre_campo=="edad_actual"){

			alert("Ingrese correctamente el año, el mes y el día de nacimiento del paciente, para calcular la edad actual.");

			document.abre_session.anos.focus();			

		}		

		if (nombre_campo=="cod_entidad"){

			alert("Seleccione la entidad de salud a la cual pertenece el paciente.");

			document.abre_session.cod_entidad.focus();			

		}

						//	Campos de consultaphp.php

		if (nombre_campo=="cod_consulta"){

			document.abre_session.cod_consulta.focus();

		}

		if (nombre_campo=="factura_consul"){

			document.abre_session.factura_consul.focus();

		}

		if (nombre_campo=="diagppal_consul"){

			document.abre_session.diagppal_consul.focus();

		}

		if (nombre_campo=="u_usuario"){

			document.abre_session.u_usuario.focus();

		}

		if (nombre_campo=="u_nombre"){

			document.abre_session.u_nombre.focus();

		}

		if (nombre_campo=="u_nombre2"){

			document.abre_session.u_nombre2.focus();

		}

		if (nombre_campo=="mensaje"){

			document.abre_session.mensaje.focus();

		}

	}	 

}	

function nombre_minus(nombre_campo, dato) {	

	if (nombre_campo=="u_mail"){

		document.abre_session.u_mail.value=dato.toLowerCase();

	}

}	

function nombre_mayus(nombre_campo, dato) {	

	if (nombre_campo=="u_nombre"){

		document.abre_session.u_nombre.value=dato.toUpperCase();

		if (document.abre_session.u_nombre.opcion=="pacientes"){

			aux_posi = dato.length;

			aux_nombre = (dato.substring(aux_posi - 1, aux_posi)).toUpperCase();

			if (aux_nombre=="A"){

				document.abre_session.tsexo.value = "F";

			}	

		}	

	}

	if (nombre_campo=="ide_paci"){

		document.abre_session.ide_paci.value=dato.toUpperCase();

	}

	if (nombre_campo=="u_nombre2"){

		document.abre_session.u_nombre2.value=dato.toUpperCase();

	}

	if (nombre_campo=="u_apellido"){

		document.abre_session.u_apellido.value=dato.toUpperCase();

	}

	if (nombre_campo=="u_apellido2"){

		document.abre_session.u_apellido2.value=dato.toUpperCase();

	}

	if (nombre_campo=="u_direccion"){

		document.abre_session.u_direccion.value=dato.toUpperCase();

	}

	if (nombre_campo=="u_asistente"){

		document.abre_session.u_asistente.value=dato.toUpperCase();

	}		

						//	Campos de la consulta

	if (nombre_campo=="nautori_consulta"){

		document.abre_session.nautori_consulta.value=dato.toUpperCase();

	}

	if (nombre_campo=="factura_consul"){

		document.abre_session.factura_consul.value=dato.toUpperCase();

	}

	if (nombre_campo=="diagppal_consul"){

		document.abre_session.diagppal_consul.value=dato.toUpperCase();

	}

	if (nombre_campo=="diagrel1_consul"){

		document.abre_session.diagrel1_consul.value=dato.toUpperCase();

	}

	if (nombre_campo=="diagrel2_consul"){

		document.abre_session.diagrel2_consul.value=dato.toUpperCase();

	}

	if (nombre_campo=="diagrel3_consul"){

		document.abre_session.diagrel3_consul.value=dato.toUpperCase();

	}

							//	Numero de factura

	if (nombre_campo=="nro_factura"){

		document.abre_session.nro_factura.value=dato.toUpperCase();

	}					

							//	Modulo de procedimimento							

	if (nombre_campo=="nautori_proced"){

		document.abre_session.nautori_proced.value=dato.toUpperCase();

	}											

	if (nombre_campo=="diagppal_proced"){

		document.abre_session.diagppal_proced.value=dato.toUpperCase();

	}					

	if (nombre_campo=="diagrel1_proced"){

		document.abre_session.diagrel1_proced.value=dato.toUpperCase();

	}					

	if (nombre_campo=="diagrel2_cod_compl_proced"){

		document.abre_session.diagrel2_cod_compl_proced.value=dato.toUpperCase();

	}

}

function evalua_mail() {					 

	var limite = document.abre_session.u_mail.value;

	var error=0;

	var contador=0;

	var uno_a_uno="";

	for (i=0; i < limite.length; i++){

		uno_a_uno = limite.substring(i,i+1);

		if (uno_a_uno == "@"){				

			contador++;			

			if (contador > 1){

				error=1;

				break;

			}else if (i == 0){

				error=1;

				break;

			}

		}			

	}		

	if (error==1 || contador==0){

		alert("Verifique su mail, la estructura correcta es ej: nombreusuario@servidor.com");

		document.abre_session.u_mail.focus();

	}else{

		campo_obligatorio("u_mail", document.abre_session.u_mail.value)

	}

}	

function clave_confirmada() {

	error_n=0;

	document.abre_session.u_clave.value=document.abre_session.u_clave.value.toLowerCase();

	document.abre_session.u_clave2.value=document.abre_session.u_clave2.value.toLowerCase();

	if (document.abre_session.u_clave.value != document.abre_session.u_clave2.value){

		error_n=1;

		alert("La confirmación de la clave, está errada.");

		document.abre_session.u_clave.value = "";

		document.abre_session.u_clave2.value = "";

		document.abre_session.u_clave.focus();

	}	 

}

function eva_registro(){		

	campo_obligatorio(document.abre_session.u_identi.name, document.abre_session.u_identi.value);	

	if (error_n==0){

		campo_obligatorio(document.abre_session.u_clave.name, document.abre_session.u_clave.value)

		if (error_n==0){

			clave_confirmada();

		}

	}	

	if (error_n==0){

		campo_obligatorio(document.abre_session.u_nombre.name, document.abre_session.u_nombre.value)

	}

	if (error_n==0){

		campo_obligatorio(document.abre_session.u_apellido.name, document.abre_session.u_apellido.value)

	}

	if (error_n==0){

		campo_obligatorio(document.abre_session.u_mail.name, document.abre_session.u_mail.value)

	}

	if (error_n==0){

		recibe_tarea('graba_usuario');

	}	

}	

				/*************************************

				  *  Grupo de validaciones de las consultas  *

				  *************************************/

function restaurar_consulta(){

				//   La idea es que quede como al principio, lo llama cuando está en el código de la consulta

    document.abre_session.cod_consulta.value = "";

	document.abre_session.causa_consul.value = "13";

    document.abre_session.finalidad_consul.value = "10";

    document.abre_session.nautori_consulta.value = "";

    document.abre_session.factura_consul.value = "";

    document.abre_session.diagppal_consul.value = "";

    document.abre_session.tdiag_consul.value = "1";

    document.abre_session.diagrel1_consul.value = "";

    document.abre_session.diagrel2_consul.value = "";

    document.abre_session.diagrel3_consul.value = "";

    document.abre_session.valor_consul.value = "0";

    document.abre_session.descuento_consul.value = "0";

    document.abre_session.neto_consul.value = "0";

}

				/*************************************

				  *  Grupo de validaciones de las consultas  *

				  *************************************/

function restaurar_procedimiento(){

				//   La idea es que quede como al principio, lo llama cuando está en el código del procedimiento

    document.abre_session.cod_proced.value = "";

	document.abre_session.nautori_proced.value = "";

	document.abre_session.factura_proced.value = "";

	document.abre_session.causa_ambito_proced.value = "1";	

    document.abre_session.finalidad_proced.value = "1";

    document.abre_session.tdiag_persona_proced.value = "2";

    document.abre_session.diagppal_proced.value = "";    

    document.abre_session.diagrel1_proced.value = "";	

    document.abre_session.diagrel2_cod_compl_proced.value = "";	

    document.abre_session.diagrel3_frealiza_proced.value = "1";	

    document.abre_session.valor_proced.value = "0";	

    document.abre_session.descuento_proced.value = "0";

    document.abre_session.neto_proced.value = "0";

}

					//	Uso una pregunta para confirmar si el valor principal va en cero o no

function eva_valor_consul( valor ) {

    if (parseInt(valor) == 0){

					//	! indica que es no la respuesta 		

		if (! confirm("Falta el valor de la consulta") ){

			document.abre_session.valor_consul.focus();

		}

    } 

}	  

					//	Evalúo valor de la cuota moderadora y se hace la operación para sacar el valor neto de la consulta

function eva_descuento_consul( vbruto, vdescuento ) {

    if ( parseInt(vdescuento) > parseInt(vbruto) ){

		alert ("El descuento no puede ser mayor al valor de la consulta");

        campo_errado = "S";

        document.abre_session.valor_consul.focus();	    

	}else{

        document.abre_session.neto_consul.value = parseInt(vbruto) - parseInt(vdescuento);           

    } 

}

					//	Se usa cuando en PACIENTEPHP.PHP se HACE clic en consulta o procedimiento, lo que hace es evaluar la correcta información del paciente.

					//	Antes de llamar el formulario de consulta o procedimiento	

function eva_registro_consulta(){	

	campo_obligatorio(document.abre_session.cod_consulta.name, document.abre_session.cod_consulta.value);	

	if (document.abre_session.cod_entidad.value=="SDS001"){

		if (error_n==0){

			campo_obligatorio(document.abre_session.factura_consul.name, document.abre_session.factura_consul.value);

		}	

	}

	if (error_n==0){

		campo_obligatorio(document.abre_session.diagppal_consul.name, document.abre_session.diagppal_consul.value);

	}

	if (error_n==0){

		recibe_tarea('grabar_registro_consulta');

	}		

}

		/****************************************

		*	Proceso de la generación de archivos	     *

		*****************************************/

function restaurar_generar(){

				//   La idea es que quede como al principio, lo llama cuando esta en la fecha o en la identificación del paciente

	document.abre_session.fec_aten_ini.value = fech;

	document.abre_session.fec_aten_fin.value = fech;

}

function eva_fec_aten( fecha_enviada ){

// 		 se toma la porción de la cadena con substring (indice, indice final - 1)

	var fecha_enviada_amd;

	if (fecha_enviada < 10){

		alert ("Por favor digite la fecha en formato dd-mm-aaaa");

	}else{

		fecha_enviada_amd = fecha_enviada.substring(6,10) + fecha_enviada.substring(3,5) + fecha_enviada.substring(0,2);

						//	Toma le fecha digitada en formato aaaammdd y la compara con la del sistema y no puede ser superior a la del sistema ni la INICIAL ni la FINAL

		if (parseInt(fecha_enviada_amd) > parseInt(fec_sistema) ){

			alert ("Las fechas a generar no pueden superar la del sistema");

			document.abre_session.fec_aten_ini.focus();

		}		

	}

}

					//	Evalua el registro antes de hacer la consulta

function eva_registro_generar(){
	error_n=0;
	eva_fec_aten(document.abre_session.fec_aten_ini.value);
	if (error_n==0){
		eva_fec_aten(document.abre_session.fec_aten_fin.value);
	}
	if (error_n==0){
		eva_fecha_valida(document.abre_session.fec_aten_ini.name, document.abre_session.fec_aten_ini.value)
	}
	if (error_n==0){
		eva_fecha_valida(document.abre_session.fec_aten_fin.name, document.abre_session.fec_aten_fin.value)
	}
	var fec_ini_aux = document.abre_session.fec_aten_ini.value;
	var fec_fin_aux = document.abre_session.fec_aten_fin.value;
	var fecha_amd_ini, fecha_amd_fin;
	eva_fec_aten( fec_ini_aux );
	if (error_n==0){
		eva_fec_aten( fec_fin_aux );
	}
	if (error_n==0){		
		fecha_amd_ini = fec_ini_aux.substring(6,10) + fec_ini_aux.substring(3,5) + fec_ini_aux.substring(0,2);
		fecha_amd_fin = fec_fin_aux.substring(6,10) + fec_fin_aux.substring(3,5) + fec_fin_aux.substring(0,2);
		if (parseInt(fecha_amd_ini) > parseInt(fecha_amd_fin) ){
			error_n=1;
			alert ("La fecha inicial no puede superar la final");
			document.abre_session.fec_aten_ini.focus();
		}				
	}
	if (error_n==0){
		if (document.abre_session.cod_entidad.value==""){
			error_n=1;
			alert ("Falta seleccionar la entidad para generar los archivos");
			document.abre_session.cod_entidad.focus();
		}
	}	
	if (error_n==0){
		document.abre_session.fecha_ini.value = fec_ini_aux.substring(6,10) + "-" + fec_ini_aux.substring(3,5) + "-" + fec_ini_aux.substring(0,2);;
		document.abre_session.fecha_fin.value = fec_fin_aux.substring(6,10) + "-" + fec_fin_aux.substring(3,5) + "-" + fec_fin_aux.substring(0,2);
		recibe_tarea("registros_a_generar");
	}	
}

function eva_fecha_valida( nombre_campo, fecha_enviada ){

	error_n=0;

	if (fecha_enviada < 10){

		error_n=1;

	}

	if (error_n==0){

		if ((fecha_enviada.substring(2,3) != "-") || (fecha_enviada.substring(5,6) != "-")){

			error_n=1;

		}

		if ((fecha_enviada.substring(2,3) == "/") && (fecha_enviada.substring(5,6) == "/")){

			error_n=2;

		}

	}

	if (error_n==0){

		if (fecha_enviada.substring(6,10) < 1900){

			error_n=1;		

		}

	}	

	if (error_n==0){

		if ((fecha_enviada.substring(3,5) < 1) || (fecha_enviada.substring(3,5)) > 12){

			error_n=1;		

		}

	}	

	if (error_n==0){

		var dlimite=0;

		var lista=fecha_enviada.substring(3,5);

		

		if (lista == "01" || lista == "03" || lista == "05" || lista == "07" || lista == "08" || lista == "10" || lista == "12") {

			dlimite=31;

		}

		if (lista == "02") {

			dlimite=28;

		}

		if (lista == "04" || lista == "06" || lista == "09" || lista == "11" ) {

			dlimite=30;

		}

		

		var ano2 = fecha_enviada.substring(6,10);

		daux2 = 0;

		if ((ano2 % 4 == 0) && ((ano2 % 100 !=0) || (ano2 % 400 == 0))){

			daux2 = 4;

		}

		if (daux2==4 && dlimite==28 ) {

			dlimite==29;

		}

		if (((fecha_enviada.substring(0,2)) > dlimite) || ((fecha_enviada.substring(0,2)) < 1)){

			error_n=1;

		}		

	}	

						// Si la digitan separandola con / se conveierte a - y continua si todo está bien.

	if (error_n==2){

		if (nombre_campo =="fec_aten"){

			document.abre_session.fec_aten.value=fecha_enviada.substring(0,2) + "-" + fecha_enviada.substring(3,5) + "-" + fecha_enviada.substring(6,10);

			error_n=0;

		}

		if (nombre_campo =="fec_aten_ini"){

			document.abre_session.fec_aten_ini.value=fecha_enviada.substring(0,2) + "-" + fecha_enviada.substring(3,5) + "-" + fecha_enviada.substring(6,10);

			error_n=0;

		}

		if (nombre_campo =="fec_aten_fin"){

			document.abre_session.fec_aten_fin.value=fecha_enviada.substring(0,2) + "-" + fecha_enviada.substring(3,5) + "-" + fecha_enviada.substring(6,10);

			error_n=0;

		}

	}

	if (error_n==1){

		alert("Por favor digite la fecha en el siguiente formato dd-mm-aaaa, desde el año 1900 hasta el actual");

		if (nombre_campo =="fec_aten"){

			document.abre_session.fec_aten.focus();

		}

		if (nombre_campo =="fec_aten_ini"){

			document.abre_session.fec_aten_ini.focus();

		}

		if (nombre_campo =="fec_aten_fin"){

			document.abre_session.fec_aten_fin.focus();

		}

	}

}

function valida_lugar_de_residencia() {

	if ((document.abre_session.capitales.value == "0") && (document.abre_session.mas_municipios.value == "0")){

		alert("Falta la ciudad o el municipio donde reside el paciente actualmente.");		

		error_n=1;	

	}

	if (error_n==0){

		if ((document.abre_session.capitales.value != "0") && (document.abre_session.mas_municipios.value != "0")){

			alert("Seleccione solamente una ciudad capital o un municipio donde reside el paciente actualmente.");		

			document.abre_session.capitales.value="0";

			document.abre_session.mas_municipios.value="0";

			error_n=1;	

		}

	}	
	if (document.abre_session.cod_entidad.value == "0"){

		alert("Falta seleccionar la entidad a la cual està afiliado el paciente.");		

		error_n=1;	

	}
	if (error_n==1){		

		document.abre_session.capitales.focus();

	}else{

		if (document.abre_session.mas_municipios.value != "0"){

			document.abre_session.municipio_residente.value = document.abre_session.mas_municipios.value;

		}else{

			document.abre_session.municipio_residente.value = document.abre_session.capitales.value;

		}

	}

}

function eva_registro_facturar() {	
	document.abre_session.fecha_actual.value=fec_sistema;
	var nrofactura=document.abre_session.nro_factura.value;
	if (nrofactura.length==0){
		alert("!.Atención.¡ esta es una factura de borrador y no tendrá efecto real, por FALTA DEL NUMERO DE FACTURA");
	}
	recibe_tarea("registros_a_facturar");
}

function eva_terminos(){
	document.abre_session.aceptar.disabled=true;
	if (document.abre_session.terminos.checked==true){
		document.abre_session.aceptar.disabled=false;
	}
}

function inicia_proceso(opcion, valor){
	document.abre_session.fecha_actual.value=fec_sistema;
	error_n=0;
	if ((valor.length < 1) || (parseInt(valor) < 1)){
		error_n = 1;
		alert("Falta la secuencia para realizar la tarea");
		document.abre_session.nro_secuencia.value=0;
		document.abre_session.nro_secuencia.focus();		
	}
	if (error_n==0){
		if (opcion =="L"){
			recibe_tarea("libera_registros");		
		}
		if (opcion =="R"){
			recibe_tarea("generar_secuencia");
		}
	}		
}

function eva_mensaje(origen){

	campo_obligatorio(document.abre_session.u_usuario.name, document.abre_session.u_usuario.value);

	if (error_n==0){

		campo_obligatorio(document.abre_session.u_nombre.name, document.abre_session.u_nombre.value);

	}	

	if (error_n==0){	

		campo_obligatorio(document.abre_session.u_nombre2.name, document.abre_session.u_nombre2.value);

	}	

	if (error_n==0){	

		campo_obligatorio(document.abre_session.mensaje.name, document.abre_session.mensaje.value);

	}	

	if (error_n==0){	

		if (origen == "externo"){

			recibe_tarea("graba_mensaje_externo");

		}

		if (origen == "interno"){

			recibe_tarea("graba_mensaje_interno");

		}

	}	

}

function responder_mensaje( id_correo ){

	window.open("responder_mensaje.php?id_correo=" + id_correo, "_blank", "menubar=no,toolbar=no,dependent=yes,location=no,status=yes,resizable=yes, width=460px, height=500px,screeny=5,top=3,left=400" );

}

					//	Para responder y liberar los NIP pagados

function responder_mensaje_res( id_correo_res){

	window.open("descargar_nip.php?id_correo_res=" + id_correo_res, "_blank", "menubar=no,toolbar=no,dependent=yes,location=no,status=yes,resizable=yes, width=460px, height=500px,screeny=5,top=3,left=400" );

}

function cambio_clave_res( identif ){

	window.open("cambiar_clave_res.php?identif=" + identif, "_blank", "menubar=no,toolbar=no,dependent=yes,location=no,status=yes,resizable=yes, width=460px, height=500px,screeny=5,top=3,left=400" );

}

function ayuda_descarga(){

	window.open("ayuda_descarga.php", "_blank", "menubar=no,toolbar=no,dependent=yes,location=no,status=yes,resizable=no, width=670px, height=370px,screeny=5,top=3,left=200" );

}

function ayuda_descarga2(){

	window.open("ayuda_descarga_ac.php", "_blank", "menubar=no,toolbar=no,dependent=yes,location=no,status=yes,resizable=no, width=950px, height=630px,screeny=15,top=13,left=40");

}

-->