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

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

include_once( "hojaMenu_2007.php" );

include( "classFormatos2007.php" );
include( "classHoja202007.php" );
echo "<div>";

function tipo_lesion($numero,$total1,$total2,$total3){
    echo "<td align='center' height=1><p>LAC$numero</p></td><td><p>$total1</td>
		<td align='center' height=1><p>LED$numero</p></td><td><p>$total2</td>
		<td align='center' height=1><p>LOT$numero</p></td><td><p>$total3</td></tr>";
}

$priesgo=0;
$sriesgo=0;
for($i=0;$i<4;$i++)
	$adolescente[$i]=0;

$formato20 = new Hoja202007( $hoja, $fecha1, $fecha2, $idmedico, $idunidad, $estado, $jurisdiccion, $clave );

$formato20->titleHTML ( $dia1, $mes1, $year1, $dia2, $mes2, $year2 );

echo "<br><table border='1' width='98%'><tr align=center><td rowspan=45 width=25>				
		<p><b>A<br>t<br>e<br>n<br>c<br>i<br>o<br>n<br>e<br>s<br><br>
		p<br>o<br>r<br><br>v<br>i<br>o<br>l<br>e<br>n<br>c<br>i<br>a<br><br>y<br><br>
		l<br>e<br>s<br>i<br>o<br>n<br>e<br>s</td><td rowspan=45 width=15></td>";//atenciones por violencia...

echo "<td rowspan=28 width=25><p><b>V<br>i<br>o<br>l<br>e<br>n<br>c<br>i<br>a</td><td colspan=3 rowspan=3></td>
	  <td align='center' colspan=10 height=1><p><b>Violencia familiar</td>
      <td align='center' colspan=2 rowspan=3  width=130><p><b>Otra violencia no familiar</td></tr>
      <td align='center' colspan=10 height=1><p><b>Parentesco del agresor con la víctima</p></td>
	  <tr height=1><td align=center colspan=2  width=130><p><b>Padre/ Padrastro</td><td align=center colspan=2  width=130><p><b>Madre/ Madrastra</td><td align=center colspan=2  width=130><p><b>Cónyuge/Novio(a)/Pareja</td><td align=center colspan=2  width=130><p><b>Hijo/(a)</td><td align=center colspan=2  width=130><p><b>Otro pariente</td>";
echo "<tr height=1 align=center><td></td><td><p><b>Condición de<br>víctima</td><td><p><b>Edad</td><td><p><b>clave</td><td><p><b>Total</td><td><p><b>clave</td><td><p><b>Total</td><td><p><b>clave</td><td><p><b>Total</td><td><p><b>clave</td><td><p><b>Total</td><td><p><b>clave</td><td><p><b>Total</td><td><p><b>clave</td><td><p><b>Total</td></tr>";

echo"<tr height=1><td rowspan=12 width=25 align=center><p><b>N<br>o<br><br>s<br>e<br>x<br>u<br>a<br>l</td>
	<td rowspan=5><p><b>Mujeres NO<br>embarazadas</td><td><p><b>0-9</td>";

	$intervalo1=array(0,10,20,50,60,150,150);
	$intervalo2=array(9,19,49,59,150,150,150);

	for($i=0;$i<5;$i++){
/* ********************************MUJERES NO EMBARAZADAS DE TIPO NO SEXUAL FAMILIAR***************** */
		$lesiones=$formato20->vi_noembarazo_familiar('A',$intervalo1[$i],$intervalo2[$i],0,2);
		$mnefnsp[$i]=pg_num_rows($lesiones);//padre
		$lesiones=$formato20->vi_noembarazo_familiar('C',$intervalo1[$i],$intervalo2[$i],0,2);
		$mnefnsp1[$i]=pg_num_rows($lesiones);//padrastro
		$lesiones=$formato20->vi_noembarazo_familiar('B',$intervalo1[$i],$intervalo2[$i],0,2);
		$mnefnsm[$i]=pg_num_rows($lesiones);//Madre
		$lesiones=$formato20->vi_noembarazo_familiar('D',$intervalo1[$i],$intervalo2[$i],0,2);
		$mnefnsm1[$i]=pg_num_rows($lesiones);//MadrastrA
		$lesiones=$formato20->vi_noembarazo_familiar('E',$intervalo1[($i)],$intervalo2[($i)],0,2);
		$mnefnsc[$i]=pg_num_rows($lesiones);//conyuge
		$lesiones=$formato20->vi_noembarazo_familiar('G',$intervalo1[($i)],$intervalo2[($i)],0,2);
		$mnefnsn[$i]=pg_num_rows($lesiones);//novio/pareja
		$lesiones=$formato20->vi_noembarazo_familiar('F',$intervalo1[($i)],$intervalo2[($i)],0,2);
		$mnefnsh[$i]=pg_num_rows($lesiones);//hijo
		$lesiones=$formato20->vi_noembarazo_familiar('H',$intervalo1[$i],$intervalo2[$i],0,2);
		$mnefnso[$i]=pg_num_rows($lesiones);//otro
/* ********************************HOMBRES DE TIPO NO SEXUAL FAMILIAR************************************ */
		$lesiones=$formato20->vi_noembarazo_familiar('A',$intervalo1[$i],$intervalo2[$i],0,1);
		$hfnsp[$i]=pg_num_rows($lesiones);//padre
		$lesiones=$formato20->vi_noembarazo_familiar('C',$intervalo1[$i],$intervalo2[$i],0,1);
		$hfnsp1[$i]=pg_num_rows($lesiones);//padrastro
		$lesiones=$formato20->vi_noembarazo_familiar('B',$intervalo1[$i],$intervalo2[$i],0,1);
		$hfnsm[$i]=pg_num_rows($lesiones);//Madre
		$lesiones=$formato20->vi_noembarazo_familiar('D',$intervalo1[$i],$intervalo2[$i],0,1);
		$hfnsm1[$i]=pg_num_rows($lesiones);//MadrastrA
		$lesiones=$formato20->vi_noembarazo_familiar('E',$intervalo1[($i)],$intervalo2[($i)],0,1);
		$hfnsc[$i]=pg_num_rows($lesiones);//conyuge
		$lesiones=$formato20->vi_noembarazo_familiar('G',$intervalo1[($i)],$intervalo2[($i)],0,1);
		$hfnsn[$i]=pg_num_rows($lesiones);//novio/pareja
		$lesiones=$formato20->vi_noembarazo_familiar('F',$intervalo1[($i)],$intervalo2[($i)],0,1);
		$hfnsh[$i]=pg_num_rows($lesiones);//hijo
		$lesiones=$formato20->vi_noembarazo_familiar('H',$intervalo1[$i],$intervalo2[$i],0,1);
		$hfnso[$i]=pg_num_rows($lesiones);//otro
/* ********************************MUJERES NO EMBARAZADAS DE TIPO SEXUAL FAMILIAR************************* */
		$lesiones=$formato20->vi_noembarazo_familiar('A',$intervalo1[$i],$intervalo2[$i],1,2);
		$mnefsp[$i]=pg_num_rows($lesiones);//padre
		$lesiones=$formato20->vi_noembarazo_familiar('C',$intervalo1[$i],$intervalo2[$i],1,2);
		$mnefsp1[$i]=pg_num_rows($lesiones);//padrastro
		$lesiones=$formato20->vi_noembarazo_familiar('B',$intervalo1[$i],$intervalo2[$i],1,2);
		$mnefsm[$i]=pg_num_rows($lesiones);//Madre
		$lesiones=$formato20->vi_noembarazo_familiar('D',$intervalo1[$i],$intervalo2[$i],1,2);
		$mnefsm1[$i]=pg_num_rows($lesiones);//MadrastrA
		$lesiones=$formato20->vi_noembarazo_familiar('E',$intervalo1[($i)],$intervalo2[($i)],1,2);
		$mnefsc[$i]=pg_num_rows($lesiones);//conyuge
		$lesiones=$formato20->vi_noembarazo_familiar('G',$intervalo1[($i)],$intervalo2[($i)],1,2);
		$mnefsn[$i]=pg_num_rows($lesiones);//novio/pareja
		$lesiones=$formato20->vi_noembarazo_familiar('F',$intervalo1[($i)],$intervalo2[($i)],1,2);
		$mnefsh[$i]=pg_num_rows($lesiones);//hijo
		$lesiones=$formato20->vi_noembarazo_familiar('H',$intervalo1[$i],$intervalo2[$i],1,2);
		$mnefso[$i]=pg_num_rows($lesiones);//otro
/* ********************************HOMBRES DE TIPO SEXUAL FAMILIAR************************************** */
		$lesiones=$formato20->vi_noembarazo_familiar('A',$intervalo1[$i],$intervalo2[$i],1,1);
		$hfsp[$i]=pg_num_rows($lesiones);//padre
		$lesiones=$formato20->vi_noembarazo_familiar('C',$intervalo1[$i],$intervalo2[$i],1,1);
		$hfsp1[$i]=pg_num_rows($lesiones);//padrastro
		$lesiones=$formato20->vi_noembarazo_familiar('B',$intervalo1[$i],$intervalo2[$i],1,1);
		$hfsm[$i]=pg_num_rows($lesiones);//Madre
		$lesiones=$formato20->vi_noembarazo_familiar('D',$intervalo1[$i],$intervalo2[$i],1,1);
		$hfsm1[$i]=pg_num_rows($lesiones);//MadrastrA
		$lesiones=$formato20->vi_noembarazo_familiar('E',$intervalo1[($i)],$intervalo2[($i)],1,1);
		$hfsc[$i]=pg_num_rows($lesiones);//conyuge
		$lesiones=$formato20->vi_noembarazo_familiar('G',$intervalo1[($i)],$intervalo2[($i)],1,1);
		$hfsn[$i]=pg_num_rows($lesiones);//novio/pareja
		$lesiones=$formato20->vi_noembarazo_familiar('F',$intervalo1[($i)],$intervalo2[($i)],1,1);
		$hfsh[$i]=pg_num_rows($lesiones);//hijo
		$lesiones=$formato20->vi_noembarazo_familiar('H',$intervalo1[$i],$intervalo2[$i],1,1);
		$hfso[$i]=pg_num_rows($lesiones);//otro
}

for($i=1;$i<3;$i++)
{
/* ********************************MUJERES EMBARAZADAS DE TIPO NO SEXUAL FAMILIAR***************** */
		$lesiones=$formato20->vi_embarazo_familiar('A',$intervalo1[$i],$intervalo2[$i],0);
		$mefnsp[$i]=pg_num_rows($lesiones);//padre
		$lesiones=$formato20->vi_embarazo_familiar('C',$intervalo1[$i],$intervalo2[$i],0);
		$mefnsp1[$i]=pg_num_rows($lesiones);//padrastro
		$lesiones=$formato20->vi_embarazo_familiar('B',$intervalo1[$i],$intervalo2[$i],0);
		$mefnsm[$i]=pg_num_rows($lesiones);//Madre
		$lesiones=$formato20->vi_embarazo_familiar('D',$intervalo1[$i],$intervalo2[$i],0);
		$mefnsm1[$i]=pg_num_rows($lesiones);//MadrastrA
		$lesiones=$formato20->vi_embarazo_familiar('E',$intervalo1[$i],$intervalo2[$i],0);
		$mefnsc[$i]=pg_num_rows($lesiones);//conyuge
		$lesiones=$formato20->vi_embarazo_familiar('G',$intervalo1[$i],$intervalo2[$i],0);
		$mefnsn[$i]=pg_num_rows($lesiones);//novio/pareja
		$lesiones=$formato20->vi_embarazo_familiar('F',$intervalo1[($i)],$intervalo2[($i)],0);
		$mefnsh[$i]=pg_num_rows($lesiones);//hijo
		$lesiones=$formato20->vi_embarazo_familiar('H',$intervalo1[$i],$intervalo2[$i],0);
		$mefnso[$i]=pg_num_rows($lesiones);//otro
/* ********************************MUJERES EMBARAZADAS DE TIPO SEXUAL FAMILIAR***************** */
		$lesiones=$formato20->vi_embarazo_familiar('A',$intervalo1[$i],$intervalo2[$i],1);
		$mefsp[$i]=pg_num_rows($lesiones);//padre
		$lesiones=$formato20->vi_embarazo_familiar('C',$intervalo1[$i],$intervalo2[$i],1);
		$mefsp1[$i]=pg_num_rows($lesiones);//padrastro
		$lesiones=$formato20->vi_embarazo_familiar('B',$intervalo1[$i],$intervalo2[$i],1);
		$mefsm[$i]=pg_num_rows($lesiones);//Madre
		$lesiones=$formato20->vi_embarazo_familiar('D',$intervalo1[$i],$intervalo2[$i],1);
		$mefsm1[$i]=pg_num_rows($lesiones);//MadrastrA
		$lesiones=$formato20->vi_embarazo_familiar('E',$intervalo1[$i],$intervalo2[$i],1);
		$mefsc[$i]=pg_num_rows($lesiones);//conyuge
		$lesiones=$formato20->vi_embarazo_familiar('G',$intervalo1[$i],$intervalo2[$i],1);
		$mefsn[$i]=pg_num_rows($lesiones);//novio/pareja
		$lesiones=$formato20->vi_embarazo_familiar('F',$intervalo1[($i)],$intervalo2[($i)],1);
		$mefsh[$i]=pg_num_rows($lesiones);//hijo
		$lesiones=$formato20->vi_embarazo_familiar('H',$intervalo1[$i],$intervalo2[$i],1);
		$mefso[$i]=pg_num_rows($lesiones);//otro

}
for($i=0;$i<=5;$i++)//
{
	$mujeresns[$i]=$formato20->nofamiliar($intervalo1[$i],$intervalo2[$i],0,0,2);//edad,sexual,embarazo,sexo
	$embarazadasns[$i]=$formato20->nofamiliar($intervalo1[$i],$intervalo2[$i],0,1,2);
	$hombresns[$i]=$formato20->nofamiliar($intervalo1[$i],$intervalo2[$i],0,0,1);//no sexual

	$mujeress[$i]=$formato20->nofamiliar($intervalo1[$i],$intervalo2[$i],1,0,2);//sexual
	$embarazadass[$i]=$formato20->nofamiliar($intervalo1[$i],$intervalo2[$i],1,1,2);
	$hombress[$i]=$formato20->nofamiliar($intervalo1[$i],$intervalo2[$i],1,0,1);

}


//clave,total
	$formato20->violencia(0,"01",($mnefnsp[0]+$mnefnsp1[0]));
	$formato20->violencia(0,"17",($mnefnsm[0]+$mnefnsm1[0]));
	$formato20->violencia(2,"",'');
	$formato20->violencia(2,"",'');
	$formato20->violencia(0,"67",$mnefnso[0]);
	$formato20->violencia(1,"01",$mujeresns[0]);

	echo"</tr><tr height=1><td><p><b>10 a 19</b></p></td>";
	$formato20->violencia(0,"02",($mnefnsp[1]+$mnefnsp1[1]));
	$formato20->violencia(0,"18",($mnefnsm[1]+$mnefnsm1[1]));
	$formato20->violencia(0,"33",($mnefnsc[1]+$mnefnsn[1]));
	$formato20->violencia(2,"",'');
	$formato20->violencia(0,"68",$mnefnso[1]);
	$formato20->violencia(1,"02",$mujeresns[1]);

	echo"</tr><tr height=1><td><p><b>20-49</b></p></td>";
	$formato20->violencia(0,"03",($mnefnsp[2]+$mnefnsp1[2]));
	$formato20->violencia(0,"19",($mnefnsm[2]+$mnefnsm1[2]));
	$formato20->violencia(0,"34",($mnefnsc[2]+$mnefnsn[2]));
	$formato20->violencia(0,"53",$mnefnsh[2]);
	$formato20->violencia(0,"69",$mnefnso[2]);
	$formato20->violencia(1,"03",$mujeresns[2]);

	echo"</tr><tr height=1><td><p><b>50 a 59</b></p></td>";
	$padr50=$mnefnsp[3]+$mnefnsp1[3];
	$madr50=$mnefnsm[3]+$mnefnsm1[3];
	echo "<td bgcolor=black></td><td><p>$padr50</td>
	<td bgcolor=black></td><td><p>$madr50</td>";
	$formato20->violencia(0,"35",($mnefnsc[3]+$mnefnsn[3]));
	$formato20->violencia(0,"54",$mnefnsh[3]);
	$formato20->violencia(0,"70",$mnefnso[3]);
	$formato20->violencia(1,"04",$mujeresns[3]);

	echo"</tr><tr height=1><td><p><b>60 y más</b></p></td>";
	$padr60=$mnefnsp[4]+$mnefnsp1[4];
	$madr60=$mnefnsm[4]+$mnefnsm1[4];
	echo "<td bgcolor=black></td><td><p>$padr60</td>
	<td bgcolor=black></td><td><p>$madr60</td>";
	$formato20->violencia(0,"36",($mnefnsc[4]+$mnefnsn[4]));
	$formato20->violencia(0,"55",$mnefnsh[4]);
	$formato20->violencia(0,"71",$mnefnso[4]);
	$formato20->violencia(1,"05",$mujeresns[4]);

echo"</tr><tr><td rowspan=2><p><b>Mujeres<br>embarazadas</td><td><p><b>10 a 19</td>";//mujeres embarazadas
	$formato20->violencia(0,"04",($mefnsp[1]+$mefnsp1[1]));
	$formato20->violencia(0,"20",($mefnsm[1]+$mefnsm1[1]));
	$formato20->violencia(0,"37",$mefnsc[1]);
	$formato20->violencia(2,"",'');
	$formato20->violencia(0,"72",$mefnso[1]);
	$formato20->violencia(1,"06",$embarazadasns[0]);

echo"</tr><tr><td><p><b>20-49</td>";
	$formato20->violencia(0,"05",($mefnsp[2]+$mefnsp1[2]));
	$formato20->violencia(0,"21",($mefnsm[2]+$mefnsm1[2]));
	$formato20->violencia(0,"38",($mefnsc[2]+$mefnsn[2]));
	$formato20->violencia(0,"56",$mefnsh[2]);
	$formato20->violencia(0,"73",$mefnso[2]);
	$formato20->violencia(1,"07",$embarazadasns[2]);

echo"</tr><tr><td rowspan=5><p><b>Hombres</td><td><p><b>0 a 9</td>";//hombres
	$formato20->violencia(0,"06",($hfnsp[0]+$hfnsp1[0]));
	$formato20->violencia(0,"22",($hfnsm[0]+$hfnsm1[0]));
	$formato20->violencia(2,"",($mnefnsc[0]+$mnefnsn[0]));
	$formato20->violencia(2,"",'');
	$formato20->violencia(0,"74",$mnefnso[0]);
	$formato20->violencia(1,"08",$hombresns[0]);

	echo"</tr><tr height=1><td><p><b>10 a 19</b></p></td>";
	$formato20->violencia(0,"07",($hfnsp[1]+$hfnsp1[1]));
	$formato20->violencia(0,"23",($hfnsm[1]+$hfnsm1[1]));
	$formato20->violencia(0,"39",($hfnsn[1]+$hfnsc[1]));
	$formato20->violencia(2,"",'');
	$formato20->violencia(0,"75",$hfnso[1]);
	$formato20->violencia(1,"09",$hombresns[1]);

	echo"</tr><tr height=1><td><p><b>20-49</b></p></td>";
	$formato20->violencia(0,"08",($hfnsp[2]+$hfnsp1[2]));
	$formato20->violencia(0,"24",($hfnsm[2]+$hfnsm1[2]));
	$formato20->violencia(0,"40",($hfnsn[2]+$hfnsc[2]));
	$formato20->violencia(0,"57",$hfnsh[2]);
	$formato20->violencia(0,"76",$hfnso[2]);
	$formato20->violencia(1,"10",$hombresns[2]);

	echo"</tr><tr height=1><td><p><b>50 a 59</b></p></td>";
	$padrh50=$hfnsp[3]+$hfnsp1[3];
	$madrh50=$hfnsm[3]+$hfnsm1[3];
	echo "<td bgcolor=black></td><td><p>$padrh50</td>
	<td bgcolor=black></td><td><p>$madrh50</td>";
	$formato20->violencia(0,"41",($hfnsc[3]+$hfnsn[3]));
	$formato20->violencia(0,"58",$hfnsh[3]);
	$formato20->violencia(0,"77",$hfnso[3]);
	$formato20->violencia(1,"11",$hombresns[3]);

	echo"</tr><tr height=1><td><p><b>60 y más</b></p></td>";
	$padrh60=$hfnsp[4]+$hfnsp1[4];
	$madrh60=$hfnsm[4]+$hfnsm1[4];
	echo "<td bgcolor=black></td><td><p>$padrh60</td>
	<td bgcolor=black></td><td><p>$madrh60</td>";
	$formato20->violencia(0,"42",($hfnsc[4]+$hfnsn[4]));
	$formato20->violencia(0,"59",$hfnsh[4]);
	$formato20->violencia(0,"78",$hfnso[4]);
	$formato20->violencia(1,"12",$hombresns[4]);

echo"</tr><tr><td rowspan=12 align=center><p><b>S<br>e<br>x<br>u<br>a<br>l</td><td rowspan=5><p><b>Mujeres NO<br>Embarazadas</td><td><p><b>0-9</td>";
	$formato20->violencia(0,"09",($mnefsp[0]+$mnefsp1[0]));
	$formato20->violencia(0,"25",($mnefsm[0]+$mnefsm1[0]));
	$formato20->violencia(2,"",'');
	$formato20->violencia(2,"",'');
	$formato20->violencia(0,"79",$mnefso[0]);
	$formato20->violencia(1,"13",$mujeress[0]);

	echo"</tr><tr height=1><td><p><b>10 a 19</b></p></td>";
	$formato20->violencia(0,"10",($mnefsp[1]+$mnefsp1[1]));
	$formato20->violencia(0,"26",($mnefsm[1]+$mnefsm1[1]));
	$formato20->violencia(0,"43",($mnefsc[1]+$mnefsn[1]));
	$formato20->violencia(2,"",'');
	$formato20->violencia(0,"80",$mnefso[1]);
	$formato20->violencia(1,"14",$mujeress[1]);

	echo"</tr><tr height=1><td><p><b>20-49</b></p></td>";
	$formato20->violencia(0,"11",($mnefsp[2]+$mnefsp1[2]));
	$formato20->violencia(0,"27",($mnefsm[2]+$mnefsm1[2]));
	$formato20->violencia(0,"44",($mnefsc[2]+$mnefsn[2]));
	$formato20->violencia(0,"60",$mnefsh[2]);
	$formato20->violencia(0,"81",$mnefso[2]);
	$formato20->violencia(1,"15",$mujeress[2]);

	echo"</tr><tr height=1><td><p><b>50 a 59</b></p></td>";
	$padrs50=$mnefsp[3]+$mnefsp1[3];
	$madrs50=$mnefsm[3]+$mnefsm1[3];
	echo "<td bgcolor=black></td><td><p>$padrs50</td>
	<td bgcolor=black></td><td><p>$madrs50</td>";
	$formato20->violencia(0,"45",($mnefsc[3]+$mnefsn[3]));
	$formato20->violencia(0,"61",$mnefsh[3]);
	$formato20->violencia(0,"82",$mnefso[3]);
	$formato20->violencia(1,"16",$mujeress[3]);

	echo"</tr><tr height=1><td><p><b>60 y más</b></p></td>";
	$padrs60=$mnefsp[4]+$mnefsp1[4];
	$madrs60=$mnefsm[4]+$mnefsm1[4];
	echo "<td bgcolor=black></td><td><p>$padrs60</td>
	<td bgcolor=black></td><td><p>$madrs60</td>";
	$formato20->violencia(0,"46",($mnefsc[4]+$mnefsn[4]));
	$formato20->violencia(0,"62",$mnefsh[4]);
	$formato20->violencia(0,"83",$mnefso[4]);
	$formato20->violencia(1,"17",$mujeress[4]);

echo"</tr><tr><td rowspan=2><p><b>Mujeres<br>embarazadas</td><td><p><b>10 a 19</td>";//mujeres embarazadas
	$formato20->violencia(0,"12",$mefsp[1]+$mefsp1[1]);
	$formato20->violencia(0,"28",$mefsm[1]+$mefsm1[1]);
	$formato20->violencia(0,"47",$mefsc[1]+$mefsn[1]);
	$formato20->violencia(2,"",'');
	$formato20->violencia(0,"84",$mefso[1]);
	$formato20->violencia(1,"18",$embarazadass[0]);

echo"</tr><tr><td><p><b>20-49</td>";
	$formato20->violencia(0,"13",$mefsp[2]+$mefsp1[2]);
	$formato20->violencia(0,"29",$mefsm[2]+$mefsm1[2]);
	$formato20->violencia(0,"48",$mefsc[2]+$mefsn[2]);
	$formato20->violencia(0,"63",$mefsh[2]);
	$formato20->violencia(0,"85",$mefso[2]);
	$formato20->violencia(1,"19",$embarazadass[1]);

echo"</tr><tr><td rowspan=5><p><b>Hombres</td><td><p><b>0 a 9</td>";//hombres
	$formato20->violencia(0,"14",$hfsp[0]+$hfsp1[0]);
	$formato20->violencia(0,"30",$hfsm[0]+$hfsm1[0]);
	$formato20->violencia(2,"",'');
	$formato20->violencia(2,"",'');
	$formato20->violencia(0,"86",$hfso[0]);
	$formato20->violencia(1,"20",$hombress[0]);

	echo"</tr><tr height=1><td><p><b>10 a 19</b></p></td>";
	$formato20->violencia(0,"15",$hfsp[1]+$hfsp1[1]);
	$formato20->violencia(0,"31",$hfsm[1]+$hfsm1[1]);
	$formato20->violencia(0,"49",$hfsc[1]+$hfsn[1]);
	$formato20->violencia(2,"",'');
	$formato20->violencia(0,"87",$hfso[1]);
	$formato20->violencia(1,"21",$hombress[1]);

	echo"</tr><tr height=1><td><p><b>20-49</b></p></td>";
	$formato20->violencia(0,"16",$hfsp[2]+$hfsp1[2]);
	$formato20->violencia(0,"32",$hfsm[2]+$hfsm1[2]);
	$formato20->violencia(0,"50",$hfsc[2]+$hfsn[2]);
	$formato20->violencia(0,"64",$hfsh[2]);
	$formato20->violencia(0,"88",$hfso[2]);
	$formato20->violencia(1,"22",$hombress[2]);

	echo"</tr><tr height=1><td><p><b>50 a 59</b></p></td>";
	$padrhs50=$hfsp[3]+$hfsp1[3];
	$madrhs50=$hfsm[3]+$hfsm1[3];
	echo "<td bgcolor=black></td><td><p>$padrhs50</td>
	<td bgcolor=black></td><td><p>$madrhs50</td>";
	$formato20->violencia(0,"51",$hfsn[3]+$hfsc[3]);
	$formato20->violencia(0,"65",$hfsh[3]);
	$formato20->violencia(0,"89",$hfso[3]);
	$formato20->violencia(1,"23",$hombress[3]);

	echo"</tr><tr height=1><td><p><b>60 y más</b></p></td>";
	$padrhs60=$hfsp[4]+$hfsp1[4];
	$madrhs60=$hfsm[4]+$hfsm1[4];
	echo "<td bgcolor=black></td><td><p>$padrhs60</td>
	<td bgcolor=black></td><td><p>$madrhs60</td>";
		$formato20->violencia(0,"52",$hfsn[4]+$hfsc[4]);
	$formato20->violencia(0,"66",$hfsh[4]);
	$formato20->violencia(0,"90",$hfso[4]);
	$formato20->violencia(1,"24",$hombress[4]);



$rango1=array(0,1,5,10,20,50,60);
$rango2=array(0,4,9,19,49,59,150);


$lesiones =  $formato20->tipo_lesion($rango1[$i],$rango2[$i],2,'A');

$hombres_a = array( 0, 0, 0, 0, 0, 0, 0, 0 );
$hombres_d = array( 0, 0, 0, 0, 0, 0, 0, 0 );
$hombres_o = array( 0, 0, 0, 0, 0, 0, 0, 0 );
$mujeres_a = array( 0, 0, 0, 0, 0, 0, 0, 0 );
$mujeres_d = array( 0, 0, 0, 0, 0, 0, 0, 0 );
$mujeres_o = array( 0, 0, 0, 0, 0, 0, 0, 0 );


for ( $i=0; $row = @pg_fetch_array( $lesiones, $i )  ;$i++ ){
  
  $edad = $row[ 'edad' ];
  $sexo = $row[ 3 ];
  $tipo = $row[ 1 ];
  
  switch ( $tipo ){

  case 'A':
    if( $sexo=='1' ){
      if( $edad>=$rango1[0] && $edad<=$rango2[0] )
	$hombres_a[0] = $hombres_a[0] + 1;
      if( $edad>=$rango1[1] && $edad<=$rango2[1] )
	$hombres_a[1] = $hombres_a[1] + 1;
      if( $edad>=$rango1[2] && $edad<=$rango2[2] )
	$hombres_a[2] = $hombres_a[2] + 1;
      if( $edad>=$rango1[3] && $edad<=$rango2[3] )
	$hombres_a[3] = $hombres_a[3] + 1;
      if( $edad>=$rango1[4] && $edad<=$rango2[4] )
	$hombres_a[4] = $hombres_a[4] + 1;
      if( $edad>=$rango1[5] && $edad<=$rango2[5] )
	$hombres_a[5] = $hombres_a[5] + 1;
      if( $edad>=$rango1[6] && $edad<=$rango2[6] )
	$hombres_a[6] = $hombres_a[6] + 1;
    }
    else {
      if( $edad>=$rango1[0] && $edad<=$rango2[0] )
	$mujeres_a[0] = $mujeres_a[0] + 1;
      if( $edad>=$rango1[1] && $edad<=$rango2[1] )
	$mujeres_a[1] = $mujeres_a[1] + 1;
      if( $edad>=$rango1[2] && $edad<=$rango2[2] )
	$mujeres_a[2] = $mujeres_a[2] + 1;
      if( $edad>=$rango1[3] && $edad<=$rango2[3] )
	$mujeres_a[3] = $mujeres_a[3] + 1;
      if( $edad>=$rango1[4] && $edad<=$rango2[4] )
	$mujeres_a[4] = $mujeres_a[4] + 1;
      if( $edad>=$rango1[5] && $edad<=$rango2[5] )
	$mujeres_a[5] = $mujeres_a[5] + 1;
      if( $edad>=$rango1[6] && $edad<=$rango2[6] )
	$mujeres_a[6] = $mujeres_a[6] + 1;
    }
      
    break;
  case 'E':
    if( $sexo=='1' ){
      if( $edad>=$rango1[0] && $edad<=$rango2[0] )
	$hombres_d[0] = $hombres_d[0] + 1;
      if( $edad>=$rango1[1] && $edad<=$rango2[1] )
	$hombres_d[1] = $hombres_d[1] + 1;
      if( $edad>=$rango1[2] && $edad<=$rango2[2] )
	$hombres_d[2] = $hombres_d[2] + 1;
      if( $edad>=$rango1[3] && $edad<=$rango2[3] )
	$hombres_d[3] = $hombres_d[3] + 1;
      if( $edad>=$rango1[4] && $edad<=$rango2[4] )
	$hombres_d[4] = $hombres_d[4] + 1;
      if( $edad>=$rango1[5] && $edad<=$rango2[5] )
	$hombres_d[5] = $hombres_d[5] + 1;
      if( $edad>=$rango1[6] && $edad<=$rango2[6] )
	$hombres_d[6] = $hombres_d[6] + 1;
    }
    else {
      if( $edad>=$rango1[0] && $edad<=$rango2[0] )
	$mujeres_d[0] = $mujeres_d[0] + 1;
      if( $edad>=$rango1[1] && $edad<=$rango2[1] )
	$mujeres_d[1] = $mujeres_d[1] + 1;
      if( $edad>=$rango1[2] && $edad<=$rango2[2] )
	$mujeres_d[2] = $mujeres_d[2] + 1;
      if( $edad>=$rango1[3] && $edad<=$rango2[3] )
	$mujeres_d[3] = $mujeres_d[3] + 1;
      if( $edad>=$rango1[4] && $edad<=$rango2[4] )
	$mujeres_d[4] = $mujeres_d[4] + 1;
      if( $edad>=$rango1[5] && $edad<=$rango2[5] )
	$mujeres_d[5] = $mujeres_d[5] + 1;
      if( $edad>=$rango1[6] && $edad<=$rango2[6] )
	$mujeres_d[6] = $mujeres_d[6] + 1;
    }

    break;
  default:
    if( $sexo=='1' ){
      if( $edad>=$rango1[0] && $edad<=$rango2[0] )
	$hombres_o[0] = $hombres_o[0] + 1;
      if( $edad>=$rango1[1] && $edad<=$rango2[1] )
	$hombres_o[1] = $hombres_o[1] + 1;
      if( $edad>=$rango1[2] && $edad<=$rango2[2] )
	$hombres_o[2] = $hombres_o[2] + 1;
      if( $edad>=$rango1[3] && $edad<=$rango2[3] )
	$hombres_o[3] = $hombres_o[3] + 1;
      if( $edad>=$rango1[4] && $edad<=$rango2[4] )
	$hombres_o[4] = $hombres_o[4] + 1;
      if( $edad>=$rango1[5] && $edad<=$rango2[5] )
	$hombres_o[5] = $hombres_o[5] + 1;
      if( $edad>=$rango1[6] && $edad<=$rango2[6] )
	$hombres_o[6] = $hombres_o[6] + 1;
    }
    else {
      if( $edad>=$rango1[0] && $edad<=$rango2[0] )
	$mujeres_o[0] = $mujeres_o[0] + 1;
      if( $edad>=$rango1[1] && $edad<=$rango2[1] )
	$mujeres_o[1] = $mujeres_o[1] + 1;
      if( $edad>=$rango1[2] && $edad<=$rango2[2] )
	$mujeres_o[2] = $mujeres_o[2] + 1;
      if( $edad>=$rango1[3] && $edad<=$rango2[3] )
	$mujeres_o[3] = $mujeres_o[3] + 1;
      if( $edad>=$rango1[4] && $edad<=$rango2[4] )
	$mujeres_o[4] = $mujeres_o[4] + 1;
      if( $edad>=$rango1[5] && $edad<=$rango2[5] )
	$mujeres_o[5] = $mujeres_o[5] + 1;
      if( $edad>=$rango1[6] && $edad<=$rango2[6] )
	$mujeres_o[6] = $mujeres_o[6] + 1;
    }

    break;

  }
  
  
}

/*  NOTA IMPORTANTE:
    Se cambio la funcion tipo_lesion debido a que el tiempo de ejecucion se disparaba, creo que debido
    al calculo de edades dentro del WHERE
    Se decidio hacer la separacion de pacientes a 'patin', es decir que con el query me traigo a todos 
    los pacientes con su tipo_lesion, edad y sexo y posteriormente los separo con PHP.
    Se propone optimizar escontrando un punto intermedio, ya sea con el tipo de lesion, o con las edades.
    Lo ideal sería usar las edades las edades.
*/
// for($i=0;$i < 7;$i++){
// $mujeres_a[$i]=$formato20->tipo_lesion($rango1[$i],$rango2[$i],2,'A');
// $mujeres_d[$i]=$formato20->tipo_lesion($rango1[$i],$rango2[$i],2,'E');
// $mujeres_o[$i]=$formato20->tipo_lesion($rango1[$i],$rango2[$i],2,'I');
// $hombres_a[$i]=$formato20->tipo_lesion($rango1[$i],$rango2[$i],1,'A');
// $hombres_d[$i]=$formato20->tipo_lesion($rango1[$i],$rango2[$i],1,'E');
// $hombres_o[$i]=$formato20->tipo_lesion($rango1[$i],$rango2[$i],1,'I');

// }

echo"<tr height=20></tr><tr align= center><td rowspan=16><p><b>L<br>e<br>s<br>i<br>o<br>n<br>e<br>s
		<td colspan=2 ></td><td colspan=2><p><b>Accidental</td>
		<td colspan=2 ><p><b>Desastres</td>
		<td colspan=2 ><p><b>Otras lesiones</td></tr>
		<tr align=center><td></td><td><p><b>Edad</td>
		<td><p><b>clave</td>
		<td><p><b>total</td>
		<td><p><b>clave</td>
		<td><p><b>total</td>
		<td><p><b>clave</td>
		<td><p><b>total</td></tr>
		<tr><td align=center rowspan=7 width=30><p><b>M<br>u<br>j<br>e<br>r<br>e<br>s";

echo"<td><p><b>< 1 año</td>";
tipo_lesion("01",$mujeres_a[0],$mujeres_d[0],$mujeres_o[0]);
echo"<td><p><b>1 a 4</td>";
tipo_lesion("02",$mujeres_a[1],$mujeres_d[1],$mujeres_o[1]);
echo"<td><p><b>5 a 9</td>";
tipo_lesion("03",$mujeres_a[2],$mujeres_d[2],$mujeres_o[2]);
echo"<td><p><b>10 a 19</td>";
tipo_lesion("04",$mujeres_a[3],$mujeres_d[3],$mujeres_o[3]);
echo"<td><p><b>20 a 49</td>";
tipo_lesion("05",$mujeres_a[4],$mujeres_d[4],$mujeres_o[4]);
echo"<td><p><b>50 a 59</td>";
tipo_lesion("06",$mujeres_a[5],$mujeres_d[5],$mujeres_o[5]);
echo"<td><p><b>60 y más</td>";
tipo_lesion("07",$mujeres_a[6],$mujeres_d[6],$mujeres_o[6]);

echo"<tr><td align=center rowspan=7 width=30><p><b>H<br>o<br>m<br>b<br>r<br>e<br>s";
echo"<td><p><b>< 1 año</td>";
tipo_lesion("08",$hombres_a[0],$hombres_d[0],$hombres_o[0]);
echo"<td><p><b>1 a 4</td>";
tipo_lesion("09",$hombres_a[1],$hombres_d[1],$hombres_o[1]);
echo"<td><p><b>5 a 9</td>";
tipo_lesion("10",$hombres_a[2],$hombres_d[2],$hombres_o[2]);
echo"<td><p><b>10 a 19</td>";
tipo_lesion("11",$hombres_a[3],$hombres_d[3],$hombres_o[3]);
echo"<td><p><b>20 a 49</td>";
tipo_lesion("12",$hombres_a[4],$hombres_d[4],$hombres_o[4]);
echo"<td><p><b>50 a 59</td>";
tipo_lesion("13",$hombres_a[5],$hombres_d[5],$hombres_o[5]);
echo"<td><p><b>60 y más</td>";
tipo_lesion("14",$hombres_a[6],$hombres_d[6],$hombres_o[6]);
echo"</tr></tr></table>";

echo "</div>";
echo "</body>";
echo "</html>";

?>

Return current item: Castor (medical information manager)