<?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>