Location: PHPKode > projects > Castor (medical information manager) > castorV2030-3/castor-ss/ts_guarda1.php
<?php
/*
----------------------------------------------------------------------------------------
Castor is a system to manage medical information.

Copyright (C) 2002, 2003 INTTELMEX/CCD hide@address.com, hide@address.com, hide@address.com

This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
as published by the Free Software Foundation; either version 2
of the License, or any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
-----------------------------------------------------------------------------------------

Castor es un sistema para el manejo de información médica
Copyright (C) 2002, 2003 INTTELMEX/CCD hide@address.com, hide@address.com, hide@address.com

Este programa es Software Libre; usted puede redistribuirlo
y/o modificarlo bajo los términos de la "GNU General Public
License" como lo publica la "FSF Free Software Foundation" version 2,
o de cualquier versión posterior.

Este programa es distribuido con la esperanza de que le será
útil, pero SIN NINGUNA GARANTIA; incluso sin la garantía
implícita por el MERCADEO o EJERCICIO DE ALGUN PROPOSITO en
particular. Vea la "GNU General Public License" para más
detalles.

Usted debe haber recibido una copia de la "GNU General Public
License" junto con este programa, si no, escriba a la "FSF
Free Software Foundation, Inc.", 59 Temple Place - Suite 330,
Boston, MA  02111-1307, USA.
----------------------------------------------------------------------------------------------
*/
/** 
@author Edith Avelino Nolasco <br> hide@address.com
@brief Llama a los métodos necesarios guardar la hoja 1 de la ficha 
*/
//!Llamado por el archivo edicion_fichas.php o por ficha_ts2.php para guardar los datos de la hoja 1 de la ficha de T.S.  @file ts_guarda1.php


//!Toma el valor de la clave del paciente
$idpaciente=$rFc;
$idhoja='5';
//!Toma el valor de la fecha actual
$fecha=date("Y-m-d");

	$canaliza=0;

//  Recuperacion de variables por _POST


if( isset( $_POST["fecha_ficha"] ) )
  $fecha_ficha = $_POST["fecha_ficha"];
if( isset( $_POST["hora_ficha"] ) )
  $hora_ficha = $_POST["hora_ficha"];


if( isset( $_POST["esta_anios"] ) )
  $esta_anios = $_POST["esta_anios"];
if ( isset( $_GET["esta_anios"] ) )
  $esta_anios = $_GET["esta_anios"];

if( isset( $_POST["esta_meses"] ) )
  $esta_meses = $_POST["esta_meses"];
if ( isset( $_GET["esta_meses"] ) )
  $esta_meses = $_GET["esta_meses"];

if( isset( $_POST["esta_dias"] ) )
  $esta_dias = $_POST["esta_dias"];
if ( isset( $_GET["esta_dias"] ) )
  $esta_dias = $_GET["esta_dias"];

if( isset( $_POST["vivienda"] ) )
  $vivienda = $_POST["vivienda"];
if ( isset( $_GET["vivienda"] ) )
  $vivienda = $_GET["vivienda"];

if( isset( $_POST["ultima_calle"] ) )
  $ultima_calle = $_POST["ultima_calle"];
if ( isset( $_GET["ultima_calle"] ) )
  $ultima_calle = $_GET["ultima_calle"];

if( isset( $_POST["ultima_col"] ) )
  $ultima_col = $_POST["ultima_col"];
if ( isset( $_GET["ultima_col"] ) )
  $ultima_col = $_GET["ultima_col"];

if( isset( $_POST["tel"] ) )
  $tel = $_POST["tel"];
if ( isset( $_GET["tel"] ) )
  $tel = $_GET["tel"];


if( isset( $_POST["ultimo_cp"] ) )
  $ultimo_cp = $_POST["ultimo_cp"];
if ( isset( $_GET["ultimo_cp"] ) )
  $ultimo_cp = $_GET["ultimo_cp"];



//   D E S C R I P C I O N   F I S I C A

if( isset( $_POST["piel"] ) )
  $piel = $_POST["piel"];
if ( isset( $_GET["piel"] ) )
  $piel = $_GET["piel"];


if( isset( $_POST["complex"] ) )
  $complex = $_POST["complex"];
if ( isset( $_GET["complex"] ) )
  $complex = $_GET["complex"];


if( isset( $_POST["menton"] ) )
  $menton = $_POST["menton"];
if ( isset( $_GET["menton"] ) )
  $menton = $_GET["menton"];


if( isset( $_POST["labios"] ) )
  $labios = $_POST["labios"];
if ( isset( $_GET["labios"] ) )
  $labios = $_GET["labios"];


if( isset( $_POST["boca"] ) )
  $boca = $_POST["boca"];
if ( isset( $_GET["boca"] ) )
  $boca = $_GET["boca"];


if( isset( $_POST["nariz"] ) )
  $nariz = $_POST["nariz"];
if ( isset( $_GET["nariz"] ) )
  $nariz = $_GET["nariz"];


if( isset( $_POST["cejas"] ) )
  $cejas = $_POST["cejas"];
if ( isset( $_GET["cejas"] ) )
  $cejas = $_GET["cejas"];


if( isset( $_POST["frente"] ) )
  $frente = $_POST["frente"];
if ( isset( $_GET["frente"] ) )
  $frente = $_GET["frente"];


if( isset( $_POST["ojos_col"] ) )
  $ojos_col = $_POST["ojos_col"];
if ( isset( $_GET["ojos_col"] ) )
  $ojos_col = $_GET["ojos_col"];


if( isset( $_POST["ojos_tam"] ) )
  $ojos_tam = $_POST["ojos_tam"];
if ( isset( $_GET["ojos_tam"] ) )
  $ojos_tam = $_GET["ojos_tam"];


if( isset( $_POST["ojos_tip"] ) )
  $ojos_tip = $_POST["ojos_tip"];
if ( isset( $_GET["ojos_tip"] ) )
  $ojos_tip = $_GET["ojos_tip"];


if( isset( $_POST["pelo_tip"] ) )
  $pelo_tip = $_POST["pelo_tip"];
if ( isset( $_GET["pelo_tip"] ) )
  $pelo_tip = $_GET["pelo_tip"];


if( isset( $_POST["pelo_col"] ) )
  $pelo_col = $_POST["pelo_col"];
if ( isset( $_GET["pelo_col"] ) )
  $pelo_col = $_GET["pelo_col"];


if( isset( $_POST["pelo_tam"] ) )
  $pelo_tam = $_POST["pelo_tam"];
if ( isset( $_GET["pelo_tam"] ) )
  $pelo_tam = $_GET["pelo_tam"];


if( isset( $_POST["tatuajes"] ) )
  $tatuajes = $_POST["tatuajes"];
if ( isset( $_GET["tatuajes"] ) )
  $tatuajes = $_GET["tatuajes"];


if( isset( $_POST["tatuajes_1"] ) )
  $tatuajes_1 = $_POST["tatuajes_1"];
if ( isset( $_GET["tatuajes_1"] ) )
  $tatuajes_1 = $_GET["tatuajes_1"];


if( isset( $_POST["tatuajes_2"] ) )
  $tatuajes_2 = $_POST["tatuajes_2"];
if ( isset( $_GET["tatuajes_2"] ) )
  $tatuajes_2 = $_GET["tatuajes_2"];

if( isset( $_POST["tatuajes_3"] ) )
  $tatuajes_3 = $_POST["tatuajes_3"];
if ( isset( $_GET["tatuajes_3"] ) )
  $tatuajes_3 = $_GET["tatuajes_3"];

if( isset( $_POST["cicatriz"] ) )
  $cicatriz = $_POST["cicatriz"];
if ( isset( $_GET["cicatriz"] ) )
  $cicatriz = $_GET["cicatriz"];


if( isset( $_POST["cicatriz_1"] ) )
  $cicatriz_1 = $_POST["cicatriz_1"];
if ( isset( $_GET["cicatriz_1"] ) )
  $cicatriz_1 = $_GET["cicatriz_1"];


if( isset( $_POST["cicatriz_2"] ) )
  $cicatriz_2 = $_POST["cicatriz_2"];
if ( isset( $_GET["cicatriz_2"] ) )
  $cicatriz_2 = $_GET["cicatriz_2"];

if( isset( $_POST["cicatriz_3"] ) )
  $cicatriz_3 = $_POST["cicatriz_3"];
if ( isset( $_GET["cicatriz_3"] ) )
  $cicatriz_3 = $_GET["cicatriz_3"];

if( isset( $_POST["lunar"] ) )
  $lunar = $_POST["lunar"];
if ( isset( $_GET["lunar"] ) )
  $lunar = $_GET["lunar"];

if( isset( $_POST["lunar_1"] ) )
  $lunar_1 = $_POST["lunar_1"];
if ( isset( $_GET["lunar_1"] ) )
  $lunar_1 = $_GET["lunar_1"];

if( isset( $_POST["lunar_2"] ) )
  $lunar_2 = $_POST["lunar_2"];
if ( isset( $_GET["lunar_2"] ) )
  $lunar_2 = $_GET["lunar_2"];

if( isset( $_POST["lunar_3"] ) )
  $lunar_3 = $_POST["lunar_3"];
if ( isset( $_GET["lunar_3"] ) )
  $lunar_3 = $_GET["lunar_3"];

if( isset( $_POST["leporino"] ) )
  $leporino = $_POST["leporino"];
if ( isset( $_GET["leporino"] ) )
  $leporino = $_GET["leporino"];

//   D I S C A P A C I D A D

if( isset( $_POST["disca"] ) )
  $disca = $_POST["disca"];
if ( isset( $_GET["disca"] ) )
  $disca = $_GET["disca"];

if( isset( $_POST["auditiva"] ) )
  $auditiva = $_POST["auditiva"];
if ( isset( $_GET["auditiva"] ) )
  $auditiva = $_GET["auditiva"];

if( isset( $_POST["visual"] ) )
  $visual = $_POST["visual"];
if ( isset( $_GET["visual"] ) )
  $visual = $_GET["visual"];

if( isset( $_POST["motora"] ) )
  $motora = $_POST["motora"];
if ( isset( $_GET["motora"] ) )
  $motora = $_GET["motora"];

if( isset( $_POST["habla"] ) )
  $habla = $_POST["habla"];
if ( isset( $_GET["habla"] ) )
  $habla = $_GET["habla"];




//******************* INICIALIZACIÒN DE VARIABLES**************************///
		
if( $_POST["esta_anios"]=="")
{
//!Inicializa a cero los años de estancia en la DF en caso de no haberse introducido 
	$esta_anios=0;
}

if( $esta_meses=="")
//!Inicializa a cero los meses de estancia en la DF en caso de no haberse introducido 
{
			$esta_meses=0;
}

if( $esta_dias=="")
//!Inicializa a cero los dias de estancia en la DF en caso de no haberse introducido 
{
		$esta_dias=0;
}

if( $ultimo_cp=="")
//!Inicializa el cp  en caso de no haberse introducido 
{
		$ultimo_cp=0;
}


if ( $pelo_col=="" && $pelo_tam=="")
{
//!Inicializa el color del cabello en el caso de que el tip sea calvicie
	$pelo_col=0;
//!Inicializa el tamaño del cabello en el caso de que el tip sea calvicie
	$pelo_tam=0;
}

if ( isset ( $tatuajes ) )
{
	if ( isset ($tatuajes_1) )
//!Toma el valor del campo tatuaje en la cabeza de ser selecciondo
		{$tatu_1=$tatuajes_1;}
	else
//!Se inicializa a cero el campo tatuaje en la cabeza si no es seleccionado
		{$tatuajes_1=0;}

	if ( isset ($tatuajes_2) )
//!Toma el valor del campo tatuaje en laa extremidades de ser selecciondo
		{$tatu_2=$tatuajes_2;}
	else
//!Se inicializa a cero el campo tatuaje en las extremidades si no es seleccionado
		{$tatuajes_2=0;}

	if ( isset ($tatuajes_3) )
//!Toma el valor del campo tatuaje en el tronco de ser selecciondo
		{$tatu_3=$tatuajes_3;}
	else
//!Se inicializa a cero el campo tatuaje en las extremidades si no es seleccionado
		{$tatuajes_3=0;
//!Se forma un vector con los valores de los campos tatuaje en cabeza, extremidades y tronco par guardarlo en el campo tatuajes de la tabla ts_desc_paciente
	$tatuajes="{{$tatu_1},{$tatu_2},{$tatu_3}}";}
}
else
{
//!inicializa a cero la variable que representa al campo tatuajes en la cabeza
	$tatuajes_1=0;
//!inicializa a cero la variable que representa al campo tatuajes en las extremidades
	$tatuajes_2=0;
//!inicializa a cero la variable que representa al campo tatuajes en el tronco
	$tatuajes_3=0;
//!Se forma un vector con los valores de los campos tatuaje en cabeza, extremidades y tronco par guardarlo en el campo tatuajes de la tabla ts_desc_paciente
	$tatuajes="{{$tatuajes_1},{$tatuajes_2},{$tatuajes_3}}";
}

if ( isset ( $cicatriz ) )
{
	if ( isset ($cicatriz_1) )
	//!Toma el valor del campo cictrices en la cabeza de ser selecciondo
		{$cica_1=$cicatriz_1;}
	else
//!Se inicializa a cero el campo cicatrices en la cabeza si no es seleccionado
		{$cicatriz_1=0;}

	if ( isset ($cicatriz_2) )
	//!Toma el valor del campo cictrices en las extremidades de ser selecciondo
		{$cica_2=$cicatriz_2;}
	else
//!Se inicializa a cero el campo cicatrices en las extremidades si no es seleccionado
		{$cicatriz_2=0;}

	if ( isset ($cicatriz_3) )
	//!Toma el valor del campo cictrices en el tronco de ser selecciondo
		{$cica_3=$cicatriz_3;}
	else
//!Se inicializa a cero el campo cicatrices en el tronco si no es seleccionado
		{$cicatriz_3=0;}
//!Se forma un vector con los valores de los campos cicatrices en cabeza, extremidades y tronco par guardarlo en el campo cicatriz de la tabla ts_desc_paciente
	$cicatriz="{{$cica_1},{$cica_2},{$cica_3}}";
}
else
{
//!inicializa a cero la variable que representa al campo cicatriz en la cabeza
	$cicatriz_1=0;
//!inicializa a cero la variable que representa al campo cicatriz en las extremidades
	$cicatriz_2=0;
//!inicializa a cero la variable que representa al campo cicatriz en el tronco
	$cicatriz_3=0;
//!Se forma un vector con los valores de los campos cicatrices en cabeza, extremidades y tronco par guardarlo en el campo cicatriz de la tabla ts_desc_paciente
	$cicat_capturariz="{{$cicatriz_1},{$cicatriz_2},{$cicatriz_3}}";
}

if ( isset ( $lunar ) )
{
	if ( isset ($lunar_1) )
//!Toma el valor del campo lunar en la cabeza de ser selecciondo
		{$luna_1=$lunar_1;}
	else
//!Se inicializa a cero el campo lunar en la cabeza si no es seleccionado
		{$lunar_1=0;}

	if ( isset ($lunar_2) )
//!Toma el valor del campo lunar en las extremidades de ser selecciondo
		{$lunar_2=$lunar_2;}
	else
//!Se inicializa a cero el campo lunar en las extremidades si no es seleccionado
		{$lunar_2=0;}

	if ( isset ($lunar_3) )
//!Toma el valor del campo lunar en el tronco de ser selecciondo
		{$lunar_3=$lunar_3;}
	else
//!Se inicializa a cero el campo lunar en el tronco si no es seleccionado
		{$lunar_3=0;}
//!Se forma un vector con los valores de los campos lunar en cabeza, extremidades y tronco par guardarlo en el campo lunar de la tabla ts_desc_paciente
	$lunar="{{$luna_1},{$luna_2},{$luna_3}}";
}
else
{
//!inicializa a cero la variable que representa al campo lunar en la cabeza
	$lunar_1=0;
//!inicializa a cero la variable que representa al campo lunar en la cabeza
	$lunar_2=0;
//!inicializa a cero la variable que representa al campo lunar en la cabeza
	$lunar_3=0;
//!Se forma un vector con los valores de los campos lunar en cabeza, extremidades y tronco par guardarlo en el campo lunar de la tabla ts_desc_paciente
	$lunar="{{$lunar_1},{$lunar_2},{$lunar_3}}";
}

if ($leporino=="")
{
//!Inicializa a cero el campo labio leporino al no ser  seleccionado
	$leporino=0;
}

if ( isset ( $disca ) )
{
	if ( isset ($auditiva) )
//!Toma el valor del campo discapacidad  auditiva de ser selecciondo
		{$audi=$auditiva;}
	else
//!Se inicializa a cero el campo discapacidad auditiva si no es seleccionado
		{$auditiva=0;}

	if ( isset ($habla) )
//!Toma el valor del campo discapacidad  del habla de ser selecciondo
		{$hab=$habla;}
	else
//!Se inicializa a cero el campo discapacidad del habla si no es seleccionado
		{$habla=0;}

	if ( isset ($motora) )
//!Toma el valor del campo discapacidad  motora de ser selecciondo
		{$moto=$motora;}
	else
//!Se inicializa a cero el campo discapacidad motora si no es seleccionado
		{$motora=0;}

	if ( isset ($visual) )
//!Toma el valor del campo discapacidad  visual de ser selecciondo
		{$visu=$visual;}
	else
//!Se inicializa a cero el campo discapacidad visual si no es seleccionado
		{$visual=0;}
//!Se forma un vector con los valores de los campos discapacidad auditiva, del habla, motora,visual  par guardarlo en el campo tipo_disca de la tabla ts_desc_paciente
	$disca="{{$audi},{$hab},{$moto},{$visu}";
}
else
{
//!inicializa a cero la variable que representa al campo discapacidad auditiva
	$auditiva=0;
//!inicializa a cero la variable que representa al campo discapacidad del habla
	$habla=0;
//!inicializa a cero la variable que representa al campo discapacidad motora
	$motora=0;
//!inicializa a cero la variable que representa al campo discapacidad visual
	$visual=0;
//!Se forma un vector con los valores de los campos discapacidad auditiva, del habla, motora,visual  par guardarlo en el campo tipo_disca de la tabla ts_desc_paciente
	$disca="{{$auditiva},{$habla},{$motora},{$visual}}";
}




//******************* GUARDA LOS DATOS **************************///



//!Crea un objeto del tipo fichasocial
	$fichasocial= new fichasocial();
	
	

	if($editar==1)//para la edicion de datos
	{
	
		$numpagina=3;
//!Busca en la base de datos el idregistro del ùltimo registro de la ficha perteneciente al paciente para darle valor al campo edicion,
// 		$consultasql= new Tquery ( "Select idregistro, idingreso from ts_registro where idpaciente='$idpaciente' order by fecha_captura DESC, hora_captura DESC;");

	$consultasql= new Tquery ( "Select idregistro from ts_registro where idingreso='$idingreso' order by fecha_captura DESC, hora_captura DESC;");

//!Realiza la consulta a la tabla ts_registro
		$id=$consultasql->consulta();
//!Crea un arreglo con los datos obtenidos de la consulta de la tabla ts_registro
		$registro=@pg_fetch_array($id,0);
//!Toma el valor del ùltimo idregistro 
		$edicion=$registro[0];
		//$idingreso=$registro[1];
		
		
		//!Toma el valor del campo idregistro del registro creado
		$idregistro=$fichasocial->agregaRegistro($idpaciente, $idmedico, $idunidad, $fecha_ficha, $hora_ficha, $fecha, $edicion,$idingreso);
	}
	
	else
	{
	
//!edicion=0 indica que se guarda una nueva ficha de T.S correspondiente a un nuevo ingreso
		$edicion=0;
//!Toma el valor del campo idregistro del registro creado
		$idregistro=$fichasocial->agregaRegistro( $idpaciente, $idmedico, $idunidad, $fecha_ficha, $hora_ficha, $fecha, $edicion,$idingreso);
	
	//!Llama al mètodo agregaPaginas, para guardar el numero de la hoja de la Ficha guardada
	$fichasocial->agregaPaginas( $idregistro, $numpagina,$fecha_ficha, $hora_ficha );
	
		
	}	

	
//Busca un registro que contenga los mismos datos y pertenezca al registro del ingreso activo si lo encuentra no guarda los datos de nuevo

	$sql= new Tquery( "SELECT * from  ts_ingreso, ts_registro where  ts_registro.idingreso='$idingreso'  and ts_registro.idregistro=ts_ingreso.idregistro and anios_estancia='$esta_anios' and meses_estancia='$esta_meses' and dias_estancia='$esta_dias' and vivienda='$vivienda' and calle_numero='$ultima_calle'  and colonia='$ultima_col' and cp='$ultimo_cp' and telefono='$tel' order by ts_ingreso.fecha desc;" );

	$regis = $sql->consulta( );
		
	if ( $registro_cap = @pg_fetch_array( $regis,0 ) == false )
	{
	  //echo "editando:";
	
		//!Llama al metodo agregaIngreso para guardar los datos del tiempo de estabcia en el D.F y datos del ultimo domicilio
		
		$fichasocial->agregaIngreso( $idregistro, $esta_anios, $esta_meses, $esta_dias, $vivienda,$ultima_calle, $ultima_col, $ultimo_cp, $tel, $fecha_ficha);
		
	}
	

	$sql= new Tquery("SELECT * from  ts_desc_paciente, ts_registro where
		ts_registro.idingreso='$idingreso'  and ts_registro.idregistro=ts_desc_paciente.idregistro and desc_pelo='{{$pelo_tip}, {$pelo_col}, {$pelo_tam}}'
		and desc_ojos='{{$ojos_tip}, {$ojos_tam}, {$ojos_col}}' and frente='$frente'
		and cejas='$cejas' and nariz='$nariz' and boca='$boca' and labios='$labios'
		and menton='$menton' and piel='$piel' and complex='$complex' and tatuajes='{{$tatuajes_1},{$tatuajes_2},{$tatuajes_3}}'
		and cicatriz='{{$cicatriz_1},{$cicatriz_2},{$cicatriz_3}}' and lunar='{{$lunar_1},{$lunar_2},{$lunar_3}}'
		and lab_lep='$leporino' and tipo_disca='{{$auditiva},{$habla},{$motora},{$visual}}'
		" );
	$desc=$sql->consulta();
	
	
	if ( $desc_capturada=@pg_fetch_array( $desc, 0 ) == false )
	{
			//!Llama al metodo agregaDescripcion para guardar los datos de la descripción fisica
		
		$fichasocial->agregaDescripcion( $idregistro, $pelo_tip, $pelo_col, $pelo_tam, $ojos_tip, $ojos_tam, $ojos_col, $frente,$cejas, $nariz, $boca, $labios, $menton, $piel, $complex, $tatuajes_1, $tatuajes_2, $tatuajes_3, $cicatriz_1, $cicatriz_2,$cicatriz_3, $lunar_1, $lunar_2, $lunar_3, $leporino, $auditiva, $habla, $motora, $visual, $fecha_ficha);
			
			
	}
	

if( isset( $_POST["locatel"] ) )
  $locatel = $_POST["locatel"];
if ( isset( $_GET["locatel"] ) )
  $locatel = $_GET["locatel"];
if( isset( $_POST["capea"] ) )
  $capea = $_POST["capea"];
if ( isset( $_GET["capea"] ) )
  $capea = $_GET["capea"];

	
	if ($locatel!="" || $capea!="")
	{
	
	$sql= new Tquery( "SELECT * from  ts_claves, ts_registro where
				ts_registro.idingreso='$idingreso'  and ts_registro.idregistro=ts_claves.idregistro and cla_locatel='$locatel' and cla_capea='$capea'
						order by ts_claves.idregistro desc;" );
	
		$regis = $sql->consulta( );
		if ( $registro_cap = @pg_fetch_array( $regis, 0 ) == false )
		{
		//echo "</br>se guarda claves";
		//!Llama al mètodo agregaClave para guardar los datos del campo claves
		$fichasocial->agregaClave( $idregistro, $locatel, $capea,$fecha_ficha);
		}
	}

//!Llama al metodo agregaEstatura, para guardar el dato de la estatura
$fichasocial->agregaEstatura( $idhoja, $idregistro, $_POST["estatu"]);




?>
Return current item: Castor (medical information manager)