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

Copyright (C) 2002, 2003 INTTELMEX 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 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.
----------------------------------------------------------------------------------------------
*/
	include("estilos.php");
	include("funciones.php");
	include("classTquery.php");
	include("descripcion.php");
?>

</table>
</div>

<div id="main2">


	<h3>Hoja 3 SISPA 2003</h3><br>
	<div id="link">
		<?php include("menu.php");
				include("menu_formatos.php");
		?>
</div>

	</div>

</div>
<div id="main3">

<?php

function kid_sano($fecha1,$fecha2,$unidad,$tipo_usuario,$tipo_reporte,$entidad,$jurisdiccion){

               if($tipo_usuario==1)		//Medico es $tipo_usuario=1
               {
                        $sql=new Tquery("SELECT * from sanos where fecha BETWEEN '$fecha1' and '$fecha2' and
											idunidad='$unidad';");
                        $data=$sql->consulta();

               }//end if
               else if (($tipo_usuario==2)&&($tipo_reporte==1)) // reporte estatal para superusuario
               {
                        $sql=new Tquery("SELECT * from sanossu where fecha BETWEEN '$fecha1' and '$fecha2'  and
											estado='$entidad';");
                        $data=$sql->consulta();

               }// end esle if
               else if (($tipo_usuario==2)&&($tipo_reporte==2)) // reporte jurisdiccional para superusuario
               {
                        $sql=new Tquery("SELECT * from sanossu where fecha BETWEEN '$fecha1' and '$fecha2' and
										estado='$entidad' and jurisdiccion=$jurisdiccion;");
                        $data=$sql->consulta();

               }// end esle if

                //---------------------------------inicializa contadores----------------------------------------------------
                for($k=0;$k<5;$k++)
                {
                        $sano[$k]=0;
                }// end for
        //------------------------------------------------------------------------------------------------

                 for($i=0; $consultas=@pg_fetch_array($data,$i); $i++)
                 {
                        $date_consulta=explode("-",$consultas[0]);

                        $date_born=explode("-",$consultas[1]);
                        $edad= $date_consulta[0]-$date_born[0];

                        if(  ($date_consulta[1]<$date_born[1]) || (($date_consulta[1]==$date_born[1])&& ($date_consulta[2]<$date_born[2] )) )
                        { $edad--;}

                         if ($edad<1)
                                {
                                        if ($consultas[2]==1) { $sano[0]++;}
                                        else if ($consultas[2]==2)  { $sano[1]++;}
                                }
                                else if ( $edad==1   )
                                {
                                        if ($consultas[2]==1) { $sano[2]++;}
                                        else if ($consultas[2]==2)  { $sano[3]++;}
                                }
                                else if ( ($edad>=2)&&($edad<=4)   )
                                {
                                        if ($consultas[2]==1) { $sano[4]++;}
                                        else if ($consultas[2]==2)  { $sano[5]++;}
                                }

                 }// end for
             echo "IV SALUD DEL NIÑO";
	echo "<table border=1>";
	echo "<tr ><td rowspan=2></td><td rowspan=2><p>CLAVE</td><td colspan=3><p>MENOR DE 1 AÑO</td>
		 <td colspan=3><p>DE 1 AÑO</td><td colspan=3><p>DE 2 A 4 AÑOS</td></tr>";
	echo "<tr><td><p>PRIMERA VEZ</td><td><p>SUBSECUENTE</td><td><p>TOTAL</td>
		 <td><p>PRIMERA VEZ</td><td><p>SUBSECUENTE</td><td><p>TOTAL</td>
		 <td><p>PRIMERA VEZ</td><td><p>SUBSECUENTE</td><td><p>TOTAL</td></tr>";
	echo "<tr><td><p>CONSULTA A SANO</td><td><p>1301</td>";
	echo "<td><p>$sano[0]</td><td><p>$sano[1]";
	$suma1=$sano[0]+$sano[1];
	echo "<td><p>$suma1</td><td><p>$sano[2]</td><td><p>$sano[3]</td>";
	$suma2=$sano[2]+$sano[3];
	echo "<td><p>$suma2</td><td><p>$sano[4]</td><td><p>$sano[5]</td>";
	$suma3=$sano[4]+$sano[5];
	echo "<td><p>$suma3</td></tr></table><br>";
}// end function kid_sano


function kid_diarrea($fecha1,$fecha2,$unidad,$tipo_usuario,$tipo_reporte,$entidad,$jurisdiccion){

                if($tipo_usuario==1)
               {
                        $sql=new Tquery("SELECT * from  kid_diarrea where fecha BETWEEN '$fecha1' and '$fecha2'
										and idunidad='$unidad';");
                        $data=$sql->consulta();

               }//end if
               else if (($tipo_usuario==2)&&($tipo_reporte==1)) // reporte estatal para superusuario
               {
                        $sql=new Tquery("SELECT * from  kid_diarreasu where fecha BETWEEN '$fecha1' and '$fecha2'
										and estado='$entidad';");
                        $data=$sql->consulta();

               }// end esle if
               else if (($tipo_usuario==2)&&($tipo_reporte==2)) // reporte jurisdiccional para superusuario
               {
                        $sql=new Tquery("SELECT * from  kid_diarreasu where fecha BETWEEN '$fecha1' and '$fecha2'
										and  estado='$entidad' and jurisdiccion=$jurisdiccion;");
                        $data=$sql->consulta();

               }// end esle if


                //---------------------------------inicializa contadores----------------------------------------------------  ç
                $recuperados=0;
                $a=0;
                $b=0;
                $c=0;
                $promocion=0;
                for($k=0;$k<9;$k++)
                {
                        $primera[$k]=0;
                        $segunda[$k]=0;
                }// end for
        //------------------------------------------------------------------------------------------------

                 for($i=0; $consultas=@pg_fetch_array($data,$i); $i++)
                 {
                        $date_consulta=explode("-",$consultas[0]);
                        $date_born=explode("-",$consultas[1]);
                        $edad= $date_consulta[0]-$date_born[0];
                        if(  ($date_consulta[1]<$date_born[1]) || (($date_consulta[1]==$date_born[1]) &&
							 ($date_consulta[2]<$date_born[2] )) )
                        {
							$edad--;
						}

                        if($consultas[4]!=0) $recuperados++;
                         $promocion+=$consultas[6];
                        switch($consultas[3]) {
                                case 1:  $a+=$consultas[5];
                                break;
                                case 2: $b+=$consultas[5];
                                break;
                                case 3: $c+=$consultas[5];
                                break;
                        }//end switch

                      //-------------------------------------------por edad--------------------------------------------------------------------------------
                         if ($edad<1)
                                {
                                        switch($consultas[3]){
                                        case 1:
                                                         if ($consultas[7]==1) { $primera[0]++;}
                                                        else if ($consultas[7]==2)  { $segunda[0]++;}
                                        break;
                                        case 2:
                                                        if ($consultas[7]==1) { $primera[1]++;}
                                                        else if ($consultas[7]==2)  { $segunda[1]++;}
                                        break;
                                        case 3:
                                                        if ($consultas[7]==1) { $primera[2]++;}
                                                        else if ($consultas[7]==2)  { $segunda[2]++;}
                                        break;
                                        }//end switch
                                }
                                else if ( $edad==1   )
                                {
                                        switch($consultas[3]){
                                        case 1:
                                                         if ($consultas[7]==1) { $primera[3]++;}
                                                        else if ($consultas[7]==2)  { $segunda[3]++;}
                                        break;
                                        case 2:
                                                        if ($consultas[7]==1) { $primera[4]++;}
                                                        else if ($consultas[7]==2)  { $segunda[4]++;}
                                        break;
                                        case 3:
                                                        if ($consultas[7]==1) { $primera[5]++;}
                                                        else if ($consultas[7]==2)  { $segunda[5]++;}
                                        break;
                                        }//end switch
                                }
                                else if ( ($edad>=2)&&($edad<=4)   )
                                {
                                       switch($consultas[3]){
                                        case 1:
                                                         if ($consultas[7]==1) { $primera[6]++;}
                                                        else if ($consultas[7]==2)  { $segunda[6]++;}
                                        break;
                                        case 2:
                                                        if ($consultas[7]==1) { $primera[7]++;}
                                                        else if ($consultas[7]==2)  { $segunda[7]++;}
                                        break;
                                        case 3:
                                                        if ($consultas[7]==1) { $primera[8]++;}
                                                        else if ($consultas[7]==2)  { $segunda[8]++;}
                                        break;
                                        }//end switch
                                }
                          //----------------------------------------------------------------------------------------------------------------------------------------

                 }// end for
        echo "ENFERMEDAD DIARREICA";

	echo "<table border=1>";
	echo "<tr><td rowspan=2><small><p>CONSULTAS SEGUN COMPLICACIONES MENORES DE 5 AÑOS</td>";
	echo "<td rowspan=2><p>CLAVE</td><td colspan=3><p>MENOR DE 1 AÑO</td>
		 <td colspan=3><p>DE 1 AÑO</td><td colspan=3><p>DE 2 A 4 AÑOS</td>
		 <td rowspan=2><p>TOTAL A MENOR DE 5</tr>";
	echo "<tr><td><p>PLAN A</td><td><p>PLAN B</td><td><p>PLAN C</td>
		 <td><p>PLAN A</td><td><p>PLAN B</td><td><p>PLAN C</td>
		 <td><p>PLAN A</td><td><p>PLAN B</td><td><p>PLAN C</td></tr>";
	echo "<tr><td><p>PRIMERA VEZ</td><td><p>1302</td>";
              $tp=0;
	for($k=0;$k<9;$k++)
	{
		echo "<td><p>$primera[$k]</td>";
		$tp+=$primera[$k];
	}
	echo "<td><p>$tp</td></tr><tr><td><p>SUBSECUENTE</td><td><p>1303</td>";
             $ts=0;
	for($k=0;$k<9;$k++)
	{
		echo "<td><p>$segunda[$k]</td>";
		$ts+=$segunda[$k];
	}
	echo "<td><p>$ts</td></tr><td><p>TOTAL</td><td><p>1304</td>";
	for($k=0;$k<9;$k++)
	{
		$total=$primera[$k]+$segunda[$k];
		echo "<td><p>$total</td>";
	}
	$total=$tp+$ts;
	echo "<td><p>$total</td>";
	echo "</tr></table>";

	echo "<br><table border=1>";
	echo "<tr><td rowspan=2><p>CLAVE</td><td rowspan=2><p>DESHIDRATADOS RECUPERADOS</td>
		  <td colspan=4><p>SOBRES VSO ENTREGADOS</td></tr>";
	echo "<tr><td><p>PLAN A</td><td><p>PLAN B</td><td><p>PLAN C</td><td><p>EN PROMOCION</td></tr>";
	echo "<tr><td><p>1305</td>";
	echo "<td><p>$recuperados</td>";
             echo "<td><p>$a</td>";
             echo "<td><p>$b</td>";
             echo "<td><p>$c</td>";
             echo "<td><p>$promocion</td>";
	echo "</tr></table><br>";
}// end function kid_diarrea

function kid_ira($fecha1,$fecha2,$unidad,$tipo_usuario,$tipo_reporte,$entidad,$jurisdiccion){

               if($tipo_usuario==1)
               {
                        $sql=new Tquery("SELECT * from  kid_ira where fecha BETWEEN '$fecha1' and '$fecha2' and idunidad='$unidad';");
                        $data=$sql->consulta();

               }//end if
               else if (($tipo_usuario==2)&&($tipo_reporte==1)) // reporte estatal para superusuario
               {
                        $sql=new Tquery("SELECT * from  kid_irasu where fecha BETWEEN '$fecha1' and '$fecha2'  and estado='$entidad';");
                        $data=$sql->consulta();

               }// end esle if
               else if (($tipo_usuario==2)&&($tipo_reporte==2)) // reporte jurisdiccional para superusuario
               {
                        $sql=new Tquery("SELECT * from  kid_irasu where fecha BETWEEN '$fecha1' and '$fecha2' and  estado='$entidad' and jurisdiccion=$jurisdiccion;");
                        $data=$sql->consulta();

               }// end esle if

                //---------------------------------inicializa contadores----------------------------------------------------
                $np=0;
                $ns=0;
                for($k=0;$k<6;$k++)
                {
                        $primera[$k]=0;
                        $segunda[$k]=0;
                }// end for
        //------------------------------------------------------------------------------------------------

                 for($i=0; $consultas=@pg_fetch_array($data,$i); $i++)
                 {
                        $date_consulta=explode("-",$consultas[0]);
                        $date_born=explode("-",$consultas[1]);
                        $edad= $date_consulta[0]-$date_born[0];
                        if(  ($date_consulta[1]<$date_born[1]) || (($date_consulta[1]==$date_born[1])&& ($date_consulta[2]<$date_born[2] )) )
                        { $edad--;}

                     $consultas[5]=chop($consultas[5]);
                      if(  ($consultas[5]=="J12")|| ($consultas[5]=="J13")|| ($consultas[5]=="J14")|| ($consultas[5]=="J15")|| ($consultas[5]=="J16")||
                            ($consultas[5]=="J17")|| ($consultas[5]=="J18")||  ($consultas[5]=="P23") )
                       {
                                         switch($consultas[4]) {
                                                case 1:  $np++;
                                                break;
                                                case 2: $ns++;
                                                break;
                                         }//end switch
                       }// end if


                      //-------------------------------------------por edad--------------------------------------------------------------------------------
                         if ($edad<1)
                                {
                                        switch($consultas[3]){
                                        case 1:
                                                         if ($consultas[4]==1) { $primera[0]++;}
                                                        else if ($consultas[4]==2)  { $segunda[0]++;}
                                        break;
                                        case 2:
                                                        if ($consultas[4]==1) { $primera[1]++;}
                                                        else if ($consultas[4]==2)  { $segunda[1]++;}
                                        break;
                                        }//end switch
                                }
                                else if ( $edad==1   )
                                {
                                        switch($consultas[3]){
                                        case 1:
                                                         if ($consultas[4]==1) { $primera[2]++;}
                                                        else if ($consultas[4]==2)  { $segunda[2]++;}
                                        break;
                                        case 2:
                                                        if ($consultas[7]==4) { $primera[3]++;}
                                                        else if ($consultas[7]==2)  { $segunda[3]++;}
                                        break;

                                        }//end switch
                                }
                                else if ( ($edad>=2)&&($edad<=4)   )
                                {
                                       switch($consultas[3]){
                                        case 1:
                                                         if ($consultas[4]==1) { $primera[4]++;}
                                                        else if ($consultas[4]==2)  { $segunda[4]++;}
                                        break;
                                        case 2:
                                                        if ($consultas[4]==1) { $primera[5]++;}
                                                        else if ($consultas[4]==2)  { $segunda[5]++;}
                                        break;

                                        }//end switch
                                }
                          //----------------------------------------------------------------------------------------------------------------------------------------

                 }// end for


	echo "<table border=1>";
	echo "<tr><td rowspan=2><small><p>INFECCION RESPIRATORIA AGUDA<br>CONSULTA SEGUN
		 TRATAMIENTO MENORES DE 5 AÑOS</td>";
	echo "<td rowspan=2><p>CLAVE</td><td colspan=2><p>MENOR DE 1</td><td colspan=2><p>DE 1 año</td>
		 <td colspan=2><p>DE 2 A 4 AÑOS</td><td rowspan=2><p>TOTAL A MENOR DE 5</td>
		 <td rowspan=2><p>CONSULTAS POR NEUMONIA</td></tr>";
	echo "<tr><td><p>SOLO SINTOMATICO</td><td><p>CON ANTIBIOTICO</td>
		 <td><p>SOLO SINTOMATICO</td><td><p>CON ANTIBIOTICO</td>
		 <td><p>SOLO SINTOMATICO</td><td><p>CON ANTIBIOTICO</td></tr>";
	echo "<tr><td><p>PRIMERA VEZ</td><td><p>1306</td>";
	$tip=0;
	for($k=0;$k<6;$k++)
	{
		$tip+=$primera[$k];
		echo "<td><p>$primera[$k]</td>";
	}
	echo "<td><p>$tip</td><td><p>$np</td></tr><tr><td><p>SUBSECUENTE</td><td><p>1307</td>";
	$tis=0;
	for($k=0;$k<6;$k++)
	{
		$tis+=$segunda[$k];
		echo "<td><p>$segunda[$k]</td>";
	}
	echo "<td><p>$tis</td><td><p>$ns</td></tr><tr><td><p>TOTAL</td><td><p>1307</td>";
	for($k=0;$k<6;$k++)
	{
		$suma=$primera[$k]+$segunda[$k];
		echo "<td><p>$suma</td>";
	}
	$suma=$tip+$tis;
	$suman=$np+$ns;
	echo "<td><p>$suma</td><td><p>$suman</td></tr>";
	echo "</table><br>";

}// end function kid_ira

function kid_nutricion($fecha1,$fecha2,$unidad,$tipo_usuario,$tipo_reporte,$entidad,$jurisdiccion)
{
	$fecha_actual=date("Y")."-".date("m")."-".date("d");
	$fecha_inicio=date("Y")-5;
	$fecha_inicio=$fecha_inicio."-".date("m")."-".date("d");
	if($tipo_usuario==1)
	{

		$sql=new Tquery("	select
								pacientes.fecha,
								signos_vitales.peso,
								pacientes.idsexo
							from
								pacientes,
								consulta,
								signos_vitales
							where
								pacientes.idpaciente=consulta.idpaciente and
								consulta.fecha>='$fecha1' and consulta.fecha<='$fecha2' and
								pacientes.fecha>'$fecha_inicio' and
								consulta.idconsulta=signos_vitales.idsecuencia and
								signos_vitales.idhoja=1 and
								consulta.idunidad='$unidad';");

		$sql_registro=new Tquery("	SELECT
									pacientes.fecha,
									signos_vitales.peso,
									pacientes.idsexo
								where
									consulta.idconsulta=nutricion_registro.idconsulta and
									consulta.fecha>='$fecha1' and
									consulta.fecha<='$fecha2' and
									pacientes.idpaciente=consulta.idpaciente and
									pacientes.fecha>'$fecha_inicio' and
									consulta.idunidad='$unidad' and
									consulta.idconsulta=signos_vitales.idsecuencia and
									signos_vitales.idhoja=1;");


		$sql_control=new Tquery("	SELECT
									pacientes.fecha,
									signos_vitales.peso,
									pacientes.idsexo
								where
									nutricion_control.fecha>='$fecha1' and
									nutricion_control.fecha<='$fecha2' and
									pacientes.fecha>'$fecha_inicio' and
									signos_vitales.idhoja=18 and
									signos_vitales.idsecuencia=nutricion_control.idcontrol and
									nutricion_control.idregistro=nutricion_registro.idregistro and
									nutricion_registro.idconsulta=consulta.idconsulta and
									consulta.idpaciente=pacientes.idpaciente and
									consulta.idunidad='$unidad';");
	}
	else if (($tipo_usuario==2)&&($tipo_reporte==1)) // reporte estatal para superusuario
    {

		$sql=new Tquery("	select
								pacientes.fecha,
								signos_vitales.peso,
								pacientes.idsexo
							from
								pacientes,
								consulta,
								signos_vitales
							where
								pacientes.idpaciente=consulta.idpaciente and
								consulta.fecha>='$fecha1' and consulta.fecha<='$fecha2' and
								pacientes.fecha>'$fecha_inicio' and
								consulta.idconsulta=signos_vitales.idsecuencia and
								signos_vitales.idhoja=1 and
								unidades.estado='$entidad' and
								unidades.clave_unidad=consulta.idunidad;");

		$sql_registro=new Tquery("	SELECT
									pacientes.fecha,
									signos_vitales.peso,
									pacientes.idsexo
								where
									consulta.idconsulta=nutricion_registro.idconsulta and
									consulta.fecha>='$fecha1' and
									consulta.fecha<='$fecha2' and
									pacientes.idpaciente=consulta.idpaciente and
									pacientes.fecha>'$fecha_inicio' and
									consulta.idconsulta=signos_vitales.idsecuencia and
									signos_vitales.idhoja=1 and
									unidades.estado='$entidad' and
									unidades.clave_unidad=consulta.idunidad;");


		$sql_control=new Tquery("	SELECT
									pacientes.fecha,
									signos_vitales.peso,
									pacientes.idsexo
								where
									nutricion_control.fecha>='$fecha1' and
									nutricion_control.fecha<='$fecha2' and
									pacientes.fecha>'$fecha_inicio' and
									signos_vitales.idhoja=18 and
									signos_vitales.idsecuencia=nutricion_control.idcontrol and
									nutricion_control.idregistro=nutricion_registro.idregistro and
									nutricion_registro.idconsulta=consulta.idconsulta and
									consulta.idpaciente=pacientes.idpaciente and
									unidades.estado='$entidad' and
									unidades.clave_unidad=consulta.idunidad;");
	}
	else if (($tipo_usuario==2)&&($tipo_reporte==2)) // reporte jurisdiccional para superusuario
	{
		$sql=new Tquery("	select
								pacientes.fecha,
								signos_vitales.peso,
								pacientes.idsexo
							from
								pacientes,
								consulta,
								signos_vitales
							where
								pacientes.idpaciente=consulta.idpaciente and
								consulta.fecha>='$fecha1' and consulta.fecha<='$fecha2' and
								pacientes.fecha>'$fecha_inicio' and
								consulta.idconsulta=signos_vitales.idsecuencia and
								signos_vitales.idhoja=1 and
								unidades.estado='$entidad' and
								unidades.clave_unidad=consulta.idunidad and
								unidades.jurisdiccion=$jurisdiccion;");

		$sql_registro=new Tquery("	SELECT
									pacientes.fecha,
									signos_vitales.peso,
									pacientes.idsexo
								where
									consulta.idconsulta=nutricion_registro.idconsulta and
									consulta.fecha>='$fecha1' and
									consulta.fecha<='$fecha2' and
									pacientes.idpaciente=consulta.idpaciente and
									pacientes.fecha>'$fecha_inicio' and
									consulta.idconsulta=signos_vitales.idsecuencia and
									signos_vitales.idhoja=1 and
									unidades.estado='$entidad' and
									unidades.clave_unidad=consulta.idunidad and
								unidades.jurisdiccion=$jurisdiccion;");


		$sql_control=new Tquery("	SELECT
									pacientes.fecha,
									signos_vitales.peso,
									pacientes.idsexo
								where
									nutricion_control.fecha>='$fecha1' and
									nutricion_control.fecha<='$fecha2' and
									pacientes.fecha>'$fecha_inicio' and
									signos_vitales.idhoja=18 and
									signos_vitales.idsecuencia=nutricion_control.idcontrol and
									nutricion_control.idregistro=nutricion_registro.idregistro and
									nutricion_registro.idconsulta=consulta.idconsulta and
									consulta.idpaciente=pacientes.idpaciente and
									unidades.estado='$entidad' and
									unidades.clave_unidad=consulta.idunidad and
									unidades.jurisdiccion=$jurisdiccion;");
	}

	$ejecutasql=$sql->consulta();
	$ejecuta_registro=$sql_registro->consulta();
	$ejecuta_control=$sql_control->consulta();


	for($j=0;$j<9;$j++)
	{
		$dgrave[$j]=0;
		$dmoderada[$j]=0;
		$dleve[$j]=0;
		$nnormal[$j]=0;
		$sobrepeso[$j]=0;
	}

	for($i=0;$datos=@pg_fetch_array($ejecutasql,$i);$i++)
	{

		edad($datos[0],$anios,$meses);

		if($anios<1 && $meses<10)
		{
		 	$clave=$datos[2]."00".$meses;
			$define=clasifica((int)$clave,$datos[1]);

		}
		else if($anios<1 && $meses>=10)
		{
			$clave=$datos[2]."0".$meses;
			$define=clasifica((int)$clave,$datos[1]);


		}
		else if($anios>=1 && $meses>=10)
		{
			$clave=$datos[2].$anios.$meses;
			$define=clasifica((int)$clave,$datos[1]);

		}
		else if($anios>=1 && $meses<10)
		{
			$clave=$datos[2].$anios."0".$meses;
			$define=clasifica((int)$clave,$datos[1]);

		}

	
		if($anios<1)
		{
			switch($define)
			{
				case 1:$dgrave[0]++;
					break;
				case 2:$dmoderada[0]++;
					break;
				case 3:$dleve[0]++;
					break;
				case 4:$nnormal[0]++;
					break;
				case 5:$sobrepeso[0]++;
					break;
			}
		}
		else if($anios>=1 && $anios<2)
		{
			switch($define)
			{
				case 1:$dgrave[1]++;
					break;
				case 2:$dmoderada[1]++;
					break;
				case 3:$dleve[1]++;
					break;
				case 4:$nnormal[1]++;
					break;
				case 5:$sobrepeso[1]++;
					break;
			}
		}
		else if($anios>=2 && $anios<5)
		{
			switch($define)
			{
				case 1:$dgrave[2]++;
					break;
				case 2:$dmoderada[2]++;
					break;
				case 3:$dleve[2]++;
					break;
				case 4:$nnormal[2]++;
					break;
				case 5:$sobrepeso[2]++;
					break;
			}
		}

	}


	for($i=0;$datos_registro=@pg_fetch_array($ejecuta_registro,$i);$i++)
	{

		edad($datos_registro[0],$anios,$meses);

		if($anios<1 && $meses<10)
		{

		 	$clave=$datos_registro[2]."00".$meses;

			$define=clasifica((int)$clave,$datos_registro[1]);

		}
		else if($anios<1 && $meses>=10)
		{
			$clave=$datos_registro[2]."0".$meses;
			$define=clasifica((int)$clave,$datos_registro[1]);


		}
		else if($anios>=1 && $meses>=10)
		{
			$clave=$datos_registro[2].$anios.$meses;
			$define=clasifica((int)$clave,$datos_registro[1]);

		}
		else if($anios>=1 && $meses<10)
		{
			$clave=$datos_registro[2].$anios."0".$meses;
			$define=clasifica((int)$clave,$datos_registro[1]);

		}



		if($anios<1)
		{
			switch($define)
			{
				case 1:$dgrave[3]++;
					break;
				case 2:$dmoderada[3]++;
					break;
				case 3:$dleve[3]++;
					break;
				case 4:$nnormal[3]++;
					break;
				case 5:$sobrepeso[3]++;
					break;
			}
		}
		else if($anios>=1 && $anios<2)
		{
			switch($define)
			{
				case 1:$dgrave[4]++;
					break;
				case 2:$dmoderada[4]++;
					break;
				case 3:$dleve[4]++;
					break;
				case 4:$nnormal[4]++;
					break;
				case 5:$sobrepeso[4]++;
					break;
			}
		}
		else if($anios>=2 && $anios<5)
		{
			switch($define)
			{
				case 1:$dgrave[5]++;
					break;
				case 2:$dmoderada[5]++;
					break;
				case 3:$dleve[5]++;
					break;
				case 4:$nnormal[5]++;
					break;
				case 5:$sobrepeso[5]++;
					break;
			}
		}


	}

	for($i=0;$datos_control=@pg_fetch_array($ejecuta_control,$i);$i++)
	{

		edad($datos_control[0],$anios,$meses);

		if($anios<1 && $meses<10)
		{

		 	$clave=$datos_control[2]."00".$meses;

			$define=clasifica((int)$clave,$datos_control[1]);

		}
		else if($anios<1 && $meses>=10)
		{
			$clave=$datos_control[2]."0".$meses;
			$define=clasifica((int)$clave,$datos_control[1]);


		}
		else if($anios>=1 && $meses>=10)
		{
			$clave=$datos_control[2].$anios.$meses;
			$define=clasifica((int)$clave,$datos_registro[1]);

		}
		else if($anios>=1 && $meses<10)
		{
			$clave=$datos_control[2].$anios."0".$meses;
			$define=clasifica((int)$clave,$datos_control[1]);

		}



		if($anios<1)
		{
			switch($define)
			{
				case 1:$dgrave[6]++;
					break;
				case 2:$dmoderada[6]++;
					break;
				case 3:$dleve[6]++;
					break;
				case 4:$nnormal[6]++;
					break;
				case 5:$sobrepeso[6]++;
					break;
			}
		}
		else if($anios>=1 && $anios<2)
		{
			switch($define)
			{
				case 1:$dgrave[7]++;
					break;
				case 2:$dmoderada[7]++;
					break;
				case 3:$dleve[7]++;
					break;
				case 4:$nnormal[7]++;
					break;
				case 5:$sobrepeso[7]++;
					break;
			}
		}
		else if($anios>=2 && $anios<5)
		{
			switch($define)
			{
				case 1:$dgrave[8]++;
					break;
				case 2:$dmoderada[8]++;
					break;
				case 3:$dleve[8]++;
					break;
				case 4:$nnormal[8]++;
					break;
				case 5:$sobrepeso[8]++;
					break;
			}
		}


	}

	echo "<br><table border=1>";
	echo "<tr><td rowspan=2><p>ESTADO DE NUTRICION</td><td rowspan=2><p>CLAVE</td>
		 <td colspan=3><p>CONSULTAS</td><td colspan=3><p>INGRESOS A CONTROL</td><td colspan=3><p>NIÑOS EN CONTROL</td></tr>";
	echo "<tr><td><p><small>MENOR DE 1 AÑO</td><td><p><small>DE 1 AÑO</td><td><p><small>DE 2 a 4 AÑOS</td>
				<td><p><small>MENOR DE 1 AÑO</td><td><p><small>DE 1 AÑO</td><td><p><small>DE 2 a 4 AÑOS</td>
				<td><p><small>MENOR DE 1 AÑO</td><td><p><small>DE 1 AÑO</td><td><p><small>DE 2 a 4 AÑOS</td></tr>";
	echo "<tr><td><p>OBESIDAD Y SOBREPESO</td><td><p>1309</td>";
	for($i=0;$i<9;$i++) echo "<td><p>$sobrepeso[$i]</td>";
	echo "</tr>";
	echo "<tr><td><p>NORMAL</td><td><p>1310</td>";
	for($i=0;$i<9;$i++) echo "<td><p>$nnormal[$i]</td>";

	echo "</tr><tr><td><p>DESNUTRICION LEVE</td><td><p>1311</td>";
	for($i=0;$i<9;$i++) echo "<td><p>$dleve[$i]</td>";

	echo "<tr><td><p>DESNUTRICION MODERADA</td><td><p>1309</td>";
	for($i=0;$i<9;$i++) echo "<td><p>$dmoderada[$i]</td>";

	echo "</tr><tr><td><p>DESNUTRICION GRAVE</td><td><p>1309</td>";
	for($i=0;$i<9;$i++) echo "<td><p>$dgrave[$i]</td>";

	echo "</tr></table>";
}// end function kid_nutricion

//-----------------------------------------------------------------------principal---------------------------------------------------------------------------
$tiempo_inicio=microtime();

$idunidad=chop($idunidad);

$fecha1=$year1."-".$mes1."-".$dia1;
$fecha2=$year2."-".$mes2."-".$dia2;

$sql=new Tquery("SELECT clave_unidad,localidad,jurisdiccion,municipio FROM unidades WHERE clave_unidad='$idunidad';");
$data=$sql->consulta();
$aux=@pg_fetch_array($data,0);

echo "<p>SISPA-SS-I 2003<br>";
echo "Hoja 3 DE 10";
echo "<br><p>Reporte:<table><tr><td><table><tr><td><table border=1><tr>";
echo "<td colspan=3><p>DEL</td>";
echo "<td colspan=3><p>Al</td>";
echo "<tr><td><p>dia</td><td><p>mes</td><td><p>año</td><td><p>dia</td><td><p>mes</td><td><p>año</td></tr><tr>";
echo "<td><p>$dia1</td><td><p>$mes1</td><td><p>$year1</td><td><p>$dia2</td><td><p>$mes2</td><td><p>$year2</td></tr>";
echo "</table><br><td>";

if($clave==1)
{
		echo "<table border=1><tr>";
		echo "<td><p>Unidad</td>";
		echo "<td><p>Localidad</td>";
		echo "<td><p>Jurisdicción</td>";
		echo "<td><p>Entidad</td></tr><tr>";
		for($k=0;$k<4;$k++) echo "<td><p>$aux[$k]</td>";
		echo "</tr></table></table></table>";
}
else if($clave==2)
{
		$sql=new Tquery("select estado from estados where idestado='$estado';");
		$estado_tabla=$sql->consulta();
		$estado_datos=pg_fetch_array($estado_tabla,0);

		if($tipo==1)
		{

			echo "<p>$Inf_reporte_para_el_estado_de:$estado_datos[0]</p></td></table>";
		}
		else
		{
			echo "<p>$Inf_reporte_para_la_jurisdiccion $jurisdiccion $txt_del_estado_de:$estado_datos[0]</p></td></table>";
		}
}

echo "<p>";

kid_sano($fecha1,$fecha2,$idunidad,$clave,$tipo,$estado,$jurisdiccion) ;
kid_diarrea($fecha1,$fecha2,$idunidad,$clave,$tipo,$estado,$jurisdiccion)  ;
kid_ira($fecha1,$fecha2,$idunidad,$clave,$tipo,$estado,$jurisdiccion);
kid_nutricion($fecha1,$fecha2,$idunidad,$clave,$tipo,$estado,$jurisdiccion) ;

$d=date ("d");
$m=date("m");
$a=date("Y");
echo "$txt_fecha_de_elaboracion: $d / $m / $a";

$tiempo_fin=microtime();
echo "<br>Tiempo de inicio=$tiempo_inicio<br>";
echo "Tiempo de fin=$tiempo_fin<br>";
$diferencia=$tiempo_fin-$tiempo_inicio;
echo "Diferencia de tiempos=$diferencia";
 ?>
</div>
</body>
</html>
Return current item: Castor (medical information manager)