Location: PHPKode > projects > Castor (medical information manager) > castorV2030-3/castor-ss/vernota_geri.php
<?php

/*
----------------------------------------------------------------------------------------
Castor is a system to manage medical information.

Copyright (C) 2002, 2003 INTTELMEX/CCD 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

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 Despliega los datos de la nota 
*/

//!Despliega los datos de la nota de gericultura que ha sido seleccionada. Incluye los archivos:validar_geri.js, estilos.php, classTquery.php, funciones.php, descripcion.php, classTnum_rows.php, menu.php, envia_des.php, imprimir_geri.php @file vernota_geri.php


echo "<html>
	<head>
	<script language =\"JavaScript\" SRC=\"validar_geri.js\"></script>
	<script language=\"JavaScript\" type=\"text/javascript\">
	</head>
	<body> ";

include ("estilos.php");
include ("idiomas.php");
//!se utiliza para poder mostrar los datos generales  del paciente en pantalla
$pac=1;
include ("classTquery.php");
include("funciones.php");
include ("descripcion.php");
include("classTnum_rows.php");
include("imprimir_geri.php");

	echo "<div id=\"main2\">";
	echo "<div id=\"link\">";
	
	echo "<h3>$Inf_evaluaciones_de_gericultura</h3><br>";
	
	include ("menu.php");
	echo "</div><br></div>";
	echo "<div id=\"main3\">";


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

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

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


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


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


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


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


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


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


	
if($nota==1)
{
	
	echo "</br><table border=1> <tr><td><p>$txt_fecha_de_elaboracion</p></td><td><p>$txt_gericultista</p></td><td><p>$txt_unidad</p></td><td><p>$txt_tipo $txt_de $txt_nota</p></td></tr>";
	
	echo "<td><p>$fecha_not</p></td>";
	echo "<td><p>$geri</p></td><td><p>$unidad</p></td><td><p>$tipo_not</p></td></tr></table>";
	echo "</br><table border=1> <tr><td><p>$txnot</p></td></tr></table>";

//!Toma el valor de la clave del paciente
	$idpaciente=chop($idpaciente);
//!Crea una cadena con el nombre para la  imagen a crear
	$cadena_archivo="img/hoja1".$idpaciente.".png";
	$borra="rm -rf hoja1$idpaciente*.png";
	system($borra);
//!Llama a la función notas para generar la imagen de impresión
	$apunta=notas($idmedico,$idunidad,$nombre_me,$nombre_uni,$Nombres,$idpaciente, $fecha_not,$geri,$unidad,$tipo_not,$txnot);
	ImagePNG($apunta,$cadena_archivo);
	ImageDestroy($apunta);
	echo "</br></br>";
	printf("<a href=\"$cadena_archivo\" target=\"blanck\" class=\"two\">");
	echo " $txt_imprimir $txt_nota<br></a>";
	
}

if($nota==2)
{
//!;


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


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


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


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


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


	$aux=ereg_replace("{",'',$chd);
//!da valor a  las variables $higiene,$conducta,$deam 
	list($higiene,$conducta,$deam)=split( '[,}]', $aux);
	
	$aux=ereg_replace("{",'',$ubicacion);
//!da valor a  las variables $persona,$tiempo,$espacio
	list($persona,$tiempo,$espacio)=split( '[,}]', $aux);
$ubica="";	
	if($persona==1)
	{$ubica.="Persona: SI,";}
	else
	{$ubica.="Persona: NO,";}
	
	if($tiempo==1)
	{$ubica.="Tiempo: SI,";}
	else
	{$ubica.="Tiempo: NO,";}
	
	if($espacio==1)
	{$ubica.="Espacio: SI,";}
	else
	{$ubica.="Espacio: NO,";}
	
//!Busca en la base de datos el valor correspondiente a las variables $higiene, $conducta en el catalogo geri_cat_eval_inicial
	$sql = new Tquery("select descripcion from geri_cat_eval_inicial where ideval = '$higiene' or ideval='$conducta'");
//!Realiza la conculta a la tabla geri_cat_eval_inicial
	$sql=$sql->consulta();
//!Guarda en un arreglo el valor correspondiente a la columna descripción de la tabla geri_cat_eval_inicial para la variable $higiene
	$higien=@pg_fetch_array($sql,0);
//!Guarda en un arreglo el valor correspondiente a la columna descripción de la tabla geri_cat_eval_inicial para la variable $conducta
	$conduct=@pg_fetch_array($sql,1);
//!Busca en la base de datos el valor correspondiente a las variables $deam en el catalogo geri_cat_deambula	
	$sql = new Tquery("select descripcion from geri_cat_deambula where iddeam = '$deam'");
//!Realiza la conculta a la tabla geri_cat_deambula
	$sql=$sql->consulta();
//!Guarda en un arreglo el valor correspondiente a la columna descripción de la tabla geri_cat_deambula para la variable $deam
	$deambula=@pg_fetch_array($sql,0);
	
//!Busca en la base de datos el valor correspondiente a las variables $condicion en el catalogo geri_cat_condicion			
	$sql=new Tquery("select descripcion from geri_cat_condicion where idcond='$condicion'");
//!Realiza la conculta a la tabla geri_cat_condicion
	$sql=$sql->consulta();
//!Guarda en un arreglo el valor correspondiente a la columna descripción de la tabla geri_cat_deambula para la variable $condicion
	$condicion=@pg_fetch_array($sql,0);
	
	echo "</br><table border=1> <tr><td><p>$txt_fecha_de_elaboracion</p></td><td><p>$txt_gericultista</p></td><td><p>$txt_unidad</p></td><td><p>$txt_tipo $txt_de $txt_nota</p></td></tr>";
	
	echo "<td><p>$fecha_not</p></td>";
	echo "<td><p>$geri</p></td><td><p>$unidad</p></td><td><p>Evaluacion_Inicial</p></td></tr></table>";
	
	
	echo "</br><table border=1> ";
	echo "<tr><td><p>$txt_higiene</p></td><td><p>$higien[0]</p></td></tr>
		<tr><td><p>$txt_conducta</p></td><td><p>$conduct[0]</p></td></tr>
		<tr><td><p>$txt_ubicacion</p></td><td><p>$ubica</p></td></tr>
		<tr><td><p>$txt_deambulacion</p></td><td><p>$deambula[0]</p></td></tr>
		<tr><td><p>$txt_alimentacion</p></td><td><p>$alimentacion</p></td></tr>
		<tr><td><p>$txt_condicion</p></td><td><p>$condicion[0]</p></td></tr>
		</table>";
	echo "</br><table border=1> 
		<tr><td align=center><p>$txt_diagnostico_gerentologico</p></td></tr>
		<tr><td align=center><p>$diagnostico</p></td></tr></table>";
	
	

//!Toma el valor de la clave del paciente
	$idpaciente=chop($idpaciente);
//!Cadena con el nombre para la imagen a generar
	$cadena_archivo="img/hoja".$idpaciente.".png";
	$borra="rm -rf hoja1$idpaciente*.png";
	system($borra);
//!Llama a la función 	eval_inicial para generar la imagen de impresión para la nota de ingreso
	$apunta=eval_inicial($idmedico,$idunidad,$nombre_me,$nombre_uni,$Nombres,$idpaciente, $fecha_not, $geri, $unidad,$higien[0],$conduct[0],$ubica,$deambula[0],$alimentacion,$condicion[0],$diagnostico);
	ImagePNG($apunta,$cadena_archivo);
	ImageDestroy($apunta);
	echo "</br></br>";
	printf("<a href=\"$cadena_archivo\" target=\"blanck\" class=\"two\">");
	echo " $txt_imprimir $txt_nota<br></a>";
	
}



if($nota==3)//imprime la evaluación de katz
{

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

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

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

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

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

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

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

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

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

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



//!Reemplaza los caracteres para formar una cadena 
$estado=ereg_replace("{",'',$evaluacion);
//!Lista los datos de los campos baño,vestido, uso del retrete, trasaldo, continencia, alimentarse
list($var,$var1,$var2,$var3,$var4,$var5)=split( '[,}]', $estado);
	
	switch($calif)
	{
		case "A":		$calif.=": Auto suficiente";
					break;
		case "G":		$calif.=": Dependencia Total";
					break;
		default:		$calif.=": Funcionalidad Parcial";
	
	}

	echo "</br><table border=1><tr><td><p>$txt_fecha_de_elaboracion</p></td><td align=center><p>$txt_unidad</p></td><td align=center><p>$txt_gericultista</p></td><td align=center><p>$Bot_evaluacion</p></td><td align=center><p>$txt_clasificacion</p></td></tr>";
	echo "<tr><td><p>$fecha</td>";
	echo "<td><p>$unidad</p></td><td><p>$geri</p></td><td><p>KATZ</p></td><td><p>$calif</p></td></tr></table>";
	
	 echo "</br><table border=1><tr><td><p>$txt_indice</p></td><td><p>$txt_estado</p></td><td><p>$txt_observacion</p></td></tr>";
	 echo "<tr><td><p>$txt_banado</p></td><td><p>";
	
	 if($var==1)
	 {echo "Independiente";}
	 else
	 {echo "Dependiente";}
	 echo "</td>";
	 echo "<td><p>$espec_bano</p></td>";
	 
	 
	echo "<tr><td><p>$txt_vestido</p></td><td><p>";
	 if($var1==1)
	 {echo "Independiente";}
	 else
	 {echo "Dependiente";}
	 echo "</td>";
	 echo "<td><p>$espec_vestir</p></td>";
	
	
	echo "<tr><td><p>$txt_uso_del_retrete</p></td><td><p>";
	  if($var2==1)
	 {echo "Independiente";}
	 else
	 {echo "Dependiente";}
	 echo "</td>";
	 echo "<td><p>$espec_wc</p></td>";
	
	
	echo "<tr><td><p>$txt_traslado</p></td><td><p>";
	 if($var3==1)
	 {echo "Independiente";}
	 else
	 {echo "Dependiente";}
	 echo "</td>";
	 echo "<td><p>$espec_traslado</p></td>";
	
	echo "<tr><td><p>$txt_continencia</p></td><td><p>";
	 if($var4==1)
	 {echo "Independiente";}
	 else
	 {echo "Dependiente";}
	 echo "</td>";
	 echo "<td><p>$espec_contin</p></td>";
	
	
	echo "<tr><td><p>$txt_alimentarse</p></td><td><p>";
	 if($var5==1)
	 {echo "Independiente";}
	 else
	 {echo "Dependiente";}
	 echo "</td>";
	 echo "<td><p>$espec_comida</p></td>";
	
	echo "</tr></table>";
	
	echo "</br><table border=1><tr><td align = center><p>$Inf_nota_de_evaluacion</td></tr>";
	echo "<tr><td><p>$notat</p></td></tr></table>";
	
//!Toma el valor de la clave del paciente	
	$idpaciente=chop($idpaciente);
//!Cadena con el nombre de la imagen a generar
	$cadena_archivo="img/hoja1".$idpaciente.".png";
	$borra="rm -rf hoja1$idpaciente*.png";
	system($borra);
//!Llama a la función katz para generar la imagen de impresión
	$apunta=katz($idmedico,$idunidad,$nombre_me,$nombre_uni,$Nombres,$idpaciente, $fecha, $evaluacion, $calif, $espec_bano, $espec_vestir,$espec_wc,$espec_traslado,$espec_contin,$espec_comida,$geri,$unidad,$nota,$notat);
	ImagePNG($apunta,$cadena_archivo);
	ImageDestroy($apunta);
	echo "</br></br>";
	printf("<a href=\"$cadena_archivo\" target=\"blanck\" class=\"two\">");
	echo " $txt_imprimir $txt_hoja 1<br></a>";
	

}	

	echo "<table align =\"center\"><tr>";
	echo "<td>";
	
	echo "<td>";
	echo "<form action=\"ve.php\" method=\"post\">";
	include( "envia_des.php" );
	echo "<input type=\"hidden\" name=\"nombre_me\" value=\"$nombre_me\">";
	echo "<input type=\"hidden\" name=\"variable\" value=\"$idpaciente\">";
	echo "<input type=\"hidden\" name=\"Nombres\" value=\"$Nombres\">";
	echo "<input type=\"hidden\" name=\"idtipo\" value=\"$idtipo\">";
	echo "<input type=\"hidden\" name=\"clave\" value=\"$clave\">";
	echo "<input type=\"hidden\" name=\"idunidad\" value=\"$idunidad\">";
	
	echo "<input type=\"submit\" value=\"$Bot_regresar_al_historial_de_atencion_del_paciente\" class=\"boton\">";
	echo "</form></td></tr></table>";
	
?>
Return current item: Castor (medical information manager)