function generarMYPDF_HC($atributosHC, $labelCabecera, $datosCabecera, $datosPie, $antecedentes, $arrayHC, $modo, $nombreReporte, $parametros, $historiaOdontograma, $nroPlaca, $idPrograma)
{
$pdf = new TCPDF(PDF_PAGE_ORIENTATION, PDF_UNIT, PDF_PAGE_FORMAT, true, 'UTF-8', TRUE);
$pdf->SetCreator(PDF_CREATOR);
$pdf->SetAuthor('Angel Augusto Sayes');
$pdf->SetTitle('Historia Clinica Atención');
$pdf->SetFooterMargin(PDF_MARGIN_FOOTER);
$pdf->SetAutoPageBreak(TRUE, 20);
$pdf->setPrintHeader(false);
$pdf->setPrintFooter(true);
$pdf->setImageScale(PDF_IMAGE_SCALE_RATIO);
if (@file_exists(dirname(__FILE__) . '/lang/eng.php')) {
require_once dirname(__FILE__) . '/lang/eng.php';
$pdf->setLanguageArray($l);
}
$pdf->SetFont('HelveticaB', 'B', 20);
$pdf->AddPage();
$pdf->SetFont('Helvetica', '', 12);
$sizeDatos = 12;
$sizeTitulo = 12;
$sizeSubtitulo = 12;
$family = "Helvetica";
$styleNormal = "N";
$styleNegrita = "B";
///////////////////////////////////INICIO CABECERA///////////////////////////////////
$cabeceraReporte .= '
<table>
<tr>
<td>
<table border="0">
<tr>
<td>
<table border="0" height="30">
<tr>
<td width="80"><strong>Paciente:</strong></td>
<td width="290">' . utf8_encode($datosCabecera[2]) . ' </td>
</tr>
</table>
</td>
</tr>
</table>
<table border="0">
<tr>
<td>
<table border="0" height="30">
<tr>
<td width="100"><strong>Número H.C.:</strong></td>
<td width="100">' . utf8_encode($datosCabecera[4]) . ' </td>
</tr>
</table>
</td>
</tr>
</table>
<table border="0">
<tr>
<td>
<table border="0" height="30">
<tr>
<td width="120"><strong>Hora Atencion:</strong></td>
<td width="100">' . utf8_encode($datosCabecera[10]) . '</td>
<td width="50"><strong>Edad: </strong></td>
<td width="150">' . ($datosCabecera[3] . '') . '</td>
<td width="80"><strong>Afiliacion:</strong></td>
<td width="200">' . utf8_encode($datosCabecera[11]) . '</td>
</tr>
</table>
</td>
</tr>
</table>
<table border="0">
<tr>
<td>
<table border="0" height="30">
<tr>
<td width="80"><strong>Servicio:</strong> </td>
<td width="500">' . utf8_encode($datosCabecera[6]) . " - " . utf8_encode($datosCabecera[5]) . ' </td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
';
/////////////////////////////////// FIN CABECERA///////////////////////////////////
/////////////////////////////////// IMPRESION REPORTE ////////////////////////////
// $pdf->Image('../../../imagen/logo/membrete.jpg', '', '', 190, "auto");
$pdf->writeHTML('<br><br><br><br><br><br><br><br>', true, true, true, true, 'a');
$pdf->writeHTML($cabeceraReporte, true, true, true, true, 'a');
$medicoFIrma = $datosCabecera[8];
// print_r($historiaOdontograma);
if ($historiaOdontograma) {
$pdf->writeHTML('<br><br>', true, false, false, false, '');
$pdf->Write(0, 'ODONTOGRAMA', '', 0, 'L', true, 0, false, false, 0);
$pdf->Image('../../../tcPDF/tcpdf/tcpdf/images/line.jpg', '', '', 190, 1);
$ancho = 180;
$alto = 90;
$xPrincipal = 15;
$yPrincipal = 60;
$pdf->Image('../../../imagen/odontograma/odontograma.png', $xPrincipal, $yPrincipal, $ancho, $alto, '', '', '', true, 100);
$pdf->writeHTML('<br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br>', true, false, false, false, '');
$pdf->writeHTML('<br>', true, false, false, false, '');
$pdf->SetFont($family, $styleNormal, $sizeDatos);
$contador = count($historiaOdontograma);
$cadenHistoriaOdontograma = '';
for ($x = 0; $x <= $contador - 1; $x++) {
$cadenHistoriaOdontograma .= '
<br><table style="border-bottom:1px inset;" width="660" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#F8F8F8"><font size="10"><b>' . utf8_encode($historiaOdontograma[$x][0]) . ' :</b></font></td>
</tr>
</table>';
$cadena = '';
for ($y = 3; $y <= 8; $y++) {
$cadena .= $historiaOdontograma[$x][$y] . ' ';
}
if ($historiaOdontograma[$x][12] != 'Sin Imagen') {
$imagen = "Con Imagen";
} else {
$imagen = $historiaOdontograma[$x][12];
}
$cadenHistoriaOdontograma .= '
<br><table border="0" width="675" cellpadding="0" cellspacing="0">
<tr>
<td><font size="8"><b>Diente 1: </b><table border="1" width="60" align="center"><tr><td>' . utf8_encode($historiaOdontograma[$x][1]) . '</td></tr></table></font></td>
<td><font size="8"><b>Tercero: </b><table border="1" width="60" align="center"><tr><td>' . utf8_encode($historiaOdontograma[$x][10]) . '</td></tr></table></font></td>
<td><font size="8"><b>Caras: </b></font>' . utf8_encode($cadena) . '</td>
</tr>
<tr>
<td><font size="8"><b>Diente 2: </b><table border="1" width="60" align="center"><tr><td>' . utf8_encode($historiaOdontograma[$x][2]) . '</td></tr></table></font></td>
<td><font size="8"><b>Estado: </b><table border="1" width="60" align="center"><tr><td>' . utf8_encode($historiaOdontograma[$x][11]) . '</td></tr></table></font></td>
<td><font size="8"><b>Observacion: </b></font>' . utf8_encode($historiaOdontograma[$x][9]) . '</td>
</tr>
</table>';
}
$pdf->writeHTML($cadenHistoriaOdontograma, true, false, false, false, '');
$pdf->writeHTML('<br>', true, false, false, false, '');
}
if ($nroPlaca[0][9]) {
$cadenaPlaca .= '
<table width="200" border="1" cellpadding="3" cellspacing="0">
<tr>
<td bgcolor="#F8F8F8" align="center" height="20"><strong>Placa</strong></td>
<td bgcolor="#F8F8F8" align="center" height="20"><strong>' . $nroPlaca[0][9] . '</strong></td>
</tr>
';
$cadenaPlaca .= '</table>';
$pdf->SetFont($family, $styleNegrita, $sizeSubtitulo);
$pdf->writeHTML('<br>', true, false, false, false, '');
$pdf->Write(0, 'NRO. PLACA', '', 0, 'L', true, 0, false, false, 0);
$pdf->Image('../../../imagen/logo/linea.jpg', '', '', 190, "auto");
$pdf->writeHTML('<br>', true, false, false, false, '');
$pdf->SetFont($family, $styleNormal, $sizeDatos);
$pdf->writeHTML($cadenaPlaca, true, false, false, false, '');
}
if (utf8_decode($datosCabecera[12]) == '0002') {
require_once "../../clogica/LActoMedico.php";
$_LActo = new LActoMedico();
$respuestaProcedimientos = $_LActo->lProcedimientosCitaReporte($idPrograma);
// print_r($respuestaProcedimientos);
$cadenaProcedimientos .= '
<table width="675" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="20" bgcolor="#F8F8F8" width="100" align="center"><strong>Codigo</strong></td><td bgcolor="#F8F8F8" align="center" width="600" height="20"><strong>Descripcion Servicio</strong></td>
</tr>';
foreach ($respuestaProcedimientos as $key => $value) {
$cadenaProcedimientos .= '
<tr>
<td>' . utf8_decode($value[1]) . '</td>
<td>' . utf8_decode($value[2]) . '</td>
</tr>';
}
$cadenaProcedimientos .= '</table>';
$pdf->SetFont($family, $styleNegrita, $sizeSubtitulo);
$pdf->writeHTML('<br>', true, false, false, false, '');
$pdf->Write(0, 'PROCEDIMIENTOS', '', 0, 'L', true, 0, false, false, 0);
$pdf->Image('../../../imagen/logo/linea.jpg', '', '', 190, "auto");
//$pdf->writeHTML('<br>', true, false, false, false, '');
$pdf->SetFont($family, $styleNormal, $sizeDatos);
$pdf->writeHTML($cadenaProcedimientos, true, false, false, false, '');
}
/* ===================================================================================================== */
/* ===================================== Antecedentes ========================================== */
if ($antecedentes) {
$fechaAnterior = "";
$numAntecedente = 0;
$contadorAntecedentes = count($antecedentes);
for ($xx = 0; $xx <= $contadorAntecedentes - 1; $xx++) {
if ($antecedentes[$xx][2] != $antecedentes[$xx + 1][2]) {
$cadenaAntecedentes .= '<table width="700" border="0" cellspacing="1">';
$cadenaAntecedentes .= '<tr colspan="2">';
$cadenaAntecedentes .= '<td width="600" align="left" >';
$cadenaAntecedentes .= '<strong>' . utf8_decode($antecedentes[$xx][2]) . ' - ' . utf8_decode($antecedentes[$xx][3]) . '</strong>';
$cadenaAntecedentes .= '</td>';
$cadenaAntecedentes .= '</tr>';
$cadenaAntecedentes .= '<tr>';
$cadenaAntecedentes .= '<td width="50" align="left">';
$cadenaAntecedentes .= '</td>';
$cadenaAntecedentes .= '<td>';
$cadenaAntecedentes .= '<strong>Observación: </strong>';
$cadenaAntecedentes .= '</td>';
$cadenaAntecedentes .= '</tr>';
$cadenaAntecedentes .= '<tr>';
$cadenaAntecedentes .= '<td width="50" align="left">';
$cadenaAntecedentes .= '</td>';
$cadenaAntecedentes .= '<td border="0">';
$cadenaAntecedentes .= utf8_decode($antecedentes[$xx][4]);
$cadenaAntecedentes .= '</td>';
$cadenaAntecedentes .= '</tr>';
$cadenaAntecedentes .= '<tr>';
$cadenaAntecedentes .= '<td width="50" align="left">';
$cadenaAntecedentes .= '</td>';
$cadenaAntecedentes .= '<td border="0">';
$cadenaAntecedentes .= '<ul><li><strong>Parentesco: </strong>';
foreach ($antecedentes as $key => $value) {
if ($value[2] == $antecedentes[$xx][2]) {
$cadenaAntecedentes .= '' . $value[7] . ',';
}
}
$cadenaAntecedentes .= '</li></ul>';
$cadenaAntecedentes .= '</td>';
$cadenaAntecedentes .= '</tr>';
$cadenaAntecedentes .= '</table>';
$cadenaAntecedentes .= '<br>';
}
}
$pdf->SetFont($family, $styleNegrita, $sizeSubtitulo);
$pdf->writeHTML('<br>', true, false, false, false, '');
$pdf->Write(0, 'ANTECEDENTES', '', 0, 'L', true, 0, false, false, 0);
$pdf->Image('../../../imagen/logo/linea.jpg', '', '', 190, "auto");
$pdf->writeHTML('<br>', true, false, false, false, '');
$pdf->SetFont($family, $styleNormal, $sizeDatos);
$pdf->writeHTML($cadenaAntecedentes, true, false, false, false, '');
}
/* ===================================================================================================== */
/* ===================================================================================================== */
/* ===================================================================================================== */
/* ===================================== HC ======================================= */
$datosmedico = "";
foreach ($arrayHC as $i => $value) {
//----------------------------
$imprimeMotCon = false;
$imprimeTriaje = false;
$imprimeExaMed = false;
$imprimeDiagnostico = false;
$imprimeTratamientos = false;
//----------------------------
$medicamentoso = null;
$practicaMedica = null;
$motivoConsulta = $arrayHC[$i][0];
$triaje = $arrayHC[$i][1];
$examenesMedicos = $arrayHC[$i][2];
$diagnosticos = $arrayHC[$i][3];
$tratamientos = $arrayHC[$i][4];
if ($tratamientos != null) {
$medicamentoso = $tratamientos[0][0];
$practicaMedica = $tratamientos[0][1];
}
//$datosMed = $arrayHC[$i][5];
// $fechaAtencion = $arrayHC[$i][6];
// $instalacion = $datosMed[0][8] . " - " . $datosMed[0][7] . " - " . $datosMed[0][6];
// $medico = $datosMed[0][2] . " " . $datosMed[0][3] . " " . $datosMed[0][4];
$datosmedico = '<table width="700" border="0" cellspacing="1"><tr><td width="100">' . $fechaAtencion . '</td> <td width="300">' . $instalacion . '</td><td width="300">' . $medico . '</td></tr></table>';
//================================================================================
//================================== Motivo Consulta ===========================
//================================================================================
$numMotConsulta = 0;
$cadenaMotCon = "";
if ($motivoConsulta != null) {
foreach ($motivoConsulta as $x => $valuex) {
$numMotConsulta++;
$cadenaMotCon .= '<table width="675" border="0"><tr><td><table width="650" border="0" cellspacing="3">
<tr><td width="20"><strong>' . $numMotConsulta . '.</strong></td><td width="55"><strong>Sintoma :</strong></td><td width="580">' . $motivoConsulta[$x][2] . ' - ' . $motivoConsulta[$x][3] . '</td> </tr>
<tr><td></td><td><strong>Descripción:</strong></td><td>' . $motivoConsulta[$x][4] . '</td></tr>
</table></td></tr></table>';
}
$imprimeMotCon = true;
}
//=================================== fin ====================================
//================================================================================
//================================================================================
//================================== Triaje ===========================
//================================================================================
$cadenaTriaje = "";
if ($triaje != null) {
$cadenaTriaje .= '<table width="660" border="0" cellspacing="0">
<tr>
<td><strong>Peso (Kg.) : </strong>' . $triaje[0]["nPeso"] . '</td>
<td><strong>Talla (m.) : </strong>' . $triaje[0]["nTalla"] . '</td>
<td><strong>Temp. (ºC) : </strong>' . $triaje[0]["nTemperatura"] . '</td>
<td><strong>Frec. Cardiaca (min) : </strong>' . $triaje[0]["iFrecuenciaCardiaca"] . '</td>
</tr>
<tr>
<td><strong>Pres. Arterial (mmHg) : </strong>' . $triaje[0]["vPresionArterial"] . '</td>
<td><strong>Frec. Respiratoria (min) : </strong>' . $triaje[0]["iFrecuenciaRespiratoria"] . '</td>
<td><strong>Sat. O2(%) : </strong>' . $triaje[0]["nSaturacionOxigeno"] . '</td>
<td><strong>IMC : </strong>' . round($triaje[0]["nPeso"] / pow(2, $triaje[0]["nTalla"] / 100), 2) . '</td>
</tr>
</table>';
$imprimeTriaje = true;
}
//=================================== fin ====================================
//================================================================================
//================================================================================
//================================== Examenes ===========================
//================================================================================
$cadenaExamenes = "";
if ($examenesMedicos != null) {
foreach ($examenesMedicos as $filaExamen) {
$pruebasExamenes = $filaExamen[0];
//$filaExamen[0]=$datosExamenes
// echo $idPrueba.'<br>';
//--------------------------------------------------------------------------------------
if ($pruebasExamenes != null) {
$idPruebaAux = "";
$numero = count($pruebasExamenes);
$m = 0;
$cadenaExamenesAux = "";
foreach ($pruebasExamenes as $fila) {
$m++;
$idPrueba = $fila[1];
// echo $idPrueba.'<br>';
$nombreCampo = $fila[4];
$iiDCombo = $fila[8];
if (!($idPrueba == $idPruebaAux)) {
$nombrePrueba = $fila[2];
if ($m == 1) {
$cadenaExamenesAux .= '<table width="675" border="0" cellpadding="3" cellspacing="0" ><tr><td>';
}
// $cadenaExamenesAux.='<table width="675" border="0" cellpadding="3" cellspacing="0" ><tr><td height="20" bgcolor="#F8F8F8" align="center"><strong>' . utf8_encode($nombrePrueba) . '</strong></td></tr><tr><td>';
}
$iIdTipoDato = $fila[5];
switch ($iIdTipoDato) {
case 1:
//integer
if ($fila[9] != "") {
// $cadenaExamenesAux.='<table width="650" border="0" cellpadding="3" cellspacing="0">
// <tr><td width="150"><strong>' . utf8_encode($nombreCampo) . ':</strong></td>
// <td width="500">' . $fila[9] . '</td></tr>
// </table>';
$cadenaExamenesAux .= '<strong>' . utf8_encode($nombreCampo) . ' : </strong>' . $fila[9] . ' ';
}
break;
case 2:
//varchar
if ($fila[10] != "") {
// $cadenaExamenesAux.='<table width="650" border="0" cellpadding="3" cellspacing="0">
// <tr><td width="150"><strong>' . utf8_encode($nombreCampo) . ':</strong></td>
// <td width="500">' . $fila[10] . '</td></tr>
// </table>';
$cadenaExamenesAux .= '<strong>' . utf8_encode($nombreCampo) . ' : </strong>' . $fila[10] . ' ';
}
break;
case 3:
//datetime
if ($fila[11] != "") {
// $cadenaExamenesAux.='<table width="650" border="0" cellpadding="3" cellspacing="0">
// <tr><td width="150"><strong>' . utf8_encode($nombreCampo) . ':</strong></td>
// <td width="500">' . $fila[11] . '</td></tr>
// </table>';
$cadenaExamenesAux .= '<strong>' . utf8_encode($nombreCampo) . ' : </strong>' . $fila[11] . ' ';
}
break;
case 4:
//decimal
if ($fila[12] != "") {
// $cadenaExamenesAux.='<table width="650" border="0" cellpadding="3" cellspacing="0">
// <tr><td width="150"><strong>' . utf8_encode($nombreCampo) . ':</strong></td>
// <td width="500">' . $fila[12] . '</td></tr>
// </table>';
$cadenaExamenesAux .= ' <strong>' . utf8_encode($nombreCampo) . ' : </strong>' . $fila[12] . ' ';
}
break;
case 5:
//bolean
if ($fila[13] == 1 || $fila[13] == 0) {
// $cadenaExamenesAux.='<table width="650" border="0" cellpadding="3" cellspacing="0">
// <tr><td width="150"><strong>' . utf8_encode($nombreCampo) . '</strong></td>
// <td width="500">';
$cadenaExamenesAux .= '<strong>' . utf8_encode($nombreCampo) . ' : </strong>';
if ($fila[13] == '1') {
$cadenaExamenesAux .= "si";
} else {
if ($fila[13] == '0') {
$cadenaExamenesAux .= "no";
} else {
$cadenaExamenesAux .= "null";
}
}
$cadenaExamenesAux .= ' ';
// $cadenaExamenesAux.='</td></tr></table>';
}
break;
case 6:
//combo
require_once "../../clogica/LActoMedico.php";
$_LActo = new LActoMedico();
$iCombo = $fila[14];
if ($iCombo != "") {
$valorCombo = $_LActo->valorComboExamen($iCombo);
$cadenaAuxCombo = "";
if ($valorCombo) {
foreach ($valorCombo as $v => $valorCbo) {
if ($valorCbo[0] != "") {
// $cadenaAuxCombo.='<table width="650" border="0" cellpadding="3" cellspacing="0">
// <tr><td width="150"><strong>' . utf8_encode($nombreCampo) . ':</strong></td>
// <td width="500">' . $valorCbo[0] . '</td></tr>
// </table>';
$cadenaAuxCombo .= '<strong>' . utf8_encode($nombreCampo) . ' : </strong>' . $valorCbo[0] . ' ';
}
}
$cadenaExamenesAux .= $cadenaAuxCombo;
}
}
break;
case 7:
//texto
if ($fila[15] != "") {
// $cadenaExamenesAux.='<table width="650" border="0" cellpadding="3" cellspacing="0">
// <tr><td width="100"><strong>' . utf8_encode($nombreCampo) . ':</strong></td>
// <td width="550">' . utf8_encode($fila[15]) . '</td></tr>
// </table>';
$cadenaExamenesAux .= '<strong>' . utf8_encode($nombreCampo) . ' : </strong>' . utf8_encode(nl2br($fila[15])) . ' ';
}
break;
}
if ($m == $numero) {
$cadenaExamenesAux .= '</td></tr></table>';
}
$idPruebaAux = $fila[1];
}
$cadenaExamenes .= $cadenaExamenesAux;
//--------------------------------------------------------------------------------------
}
}
$imprimeExaMed = true;
}
//=================================== fin ====================================
//================================================================================
//================================================================================
//================================== Diagnóstico ===========================
//================================================================================
$numDiagnostico = 0;
$cadenaDiagnostico = "";
if ($diagnosticos != null) {
//660
$cadenaDiagnostico .= '<table width="675" border="0" cellpadding="3" cellspacing="0">
<tr><td height="20" width="100" bgcolor="#F8F8F8"><strong>Código Cie</strong></td><td width="400" bgcolor="#F8F8F8" align="center"><strong>Descripción</strong></td><td width="175" bgcolor="#F8F8F8" align="center"><strong>Tipo Diagnóstico</strong></td></tr>';
foreach ($diagnosticos as $x => $valuex) {
$cadenaDiagnostico .= '<tr><td>' . utf8_encode($diagnosticos[$x][1]) . '</td><td>' . utf8_encode($diagnosticos[$x][2]) . '</td><td>' . utf8_encode($diagnosticos[$x][6]) . '</td></tr>';
}
$cadenaDiagnostico .= '</table>';
$imprimeDiagnostico = true;
}
//=================================== fin ====================================
//================================================================================
//=============================================================================
//================================== Tratamientos ==========================
//================================================================================
$numMedicamentoso = 0;
$cadenaTratamientos = '';
$cadenaMedicamentoso = '';
if ($medicamentoso != null) {
$cadenaMedicamentoso .= '<table width="675" border="0" cellpadding="0" cellspacing="0"><tr><td>
<table width="675" cellpadding="3" cellspacing="0"><tr><td height="20" bgcolor="#F8F8F8" align="center">
<strong>Receta médica</strong></td></tr></table></td></tr><tr><td>';
$cadenaMedicamentoso .= '<table width="675" border="1" cellpadding="3" cellspacing="0">
<tr>
<td width="25" bgcolor="#F8F8F8" align="center"><strong> Nro</strong></td>
<td width="205" bgcolor="#F8F8F8" align="center"><strong>Nombre </strong></td>
<td width="100" bgcolor="#F8F8F8" align="center"><strong>Presentación </strong></td>
<td width="70" bgcolor="#F8F8F8" align="center"><strong>Cantidad </strong></td>
<td width="275" bgcolor="#F8F8F8" align="center"><strong>Observación </strong></td>
</tr>';
foreach ($medicamentoso as $x => $valuex) {
$numMedicamentoso++;
$cadenaMedicamentoso .= '<tr>
<td><strong>' . $numMedicamentoso . '.</strong></td>
<td>' . utf8_encode($medicamentoso[$x][2]) . '</td>
<td>' . utf8_encode($medicamentoso[$x][5]) . '</td>
<td align="center">' . utf8_encode($medicamentoso[$x][3]) . '</td>
<td>' . utf8_encode($medicamentoso[$x][4]) . '</td>
</tr>';
}
$cadenaMedicamentoso .= '</table>';
$cadenaMedicamentoso .= '</td></tr></table>';
$imprimeTratamientos = true;
}
$numPracticaMedica = 0;
$cadenaPracticaMedica = '';
if ($practicaMedica != null) {
$cadenaPracticaMedica .= '<table width="675" border="0" cellpadding="0" cellspacing="0"><tr><td>
<table width="675" cellpadding="3" cellspacing="0"><tr><td height="20" bgcolor="#F8F8F8" align="center">
<strong>Procedimientos médicos</strong></td></tr></table></td></tr><tr><td>';
$cadenaPracticaMedica .= '<table width="675" border="1" cellpadding="3" cellspacing="0">
<tr>
<td width="25" bgcolor="#F8F8F8" align="center"><strong>Nro</strong></td>
<td width="205" bgcolor="#F8F8F8" align="center"><strong>Nombre </strong></td>
<td width="80"bgcolor="#F8F8F8" align="center"><strong>Codigo Seg </strong></td>
<td width="365" bgcolor="#F8F8F8" align="center"><strong>Observación </strong></td>
</tr>';
foreach ($practicaMedica as $x => $valuex) {
$numPracticaMedica++;
// $cadenaPracticaMedica.='<table width="660" border="0" cellpadding="0" cellspacing="0"><tr><td>';
// $cadenaPracticaMedica.='<table width="660" border="0" cellpadding="0" cellspacing="3">
$cadenaPracticaMedica .= '<tr>
<td><strong>' . $numPracticaMedica . '.</strong></td>
<td>' . utf8_encode($practicaMedica[$x][2]) . '</td>
<td>' . utf8_encode($practicaMedica[$x][5]) . '</td>
<td>' . utf8_encode($practicaMedica[$x][3]) . '</td>
</tr>';
// </table>';
// $cadenaPracticaMedica.='</td></tr></table>';
}
$cadenaPracticaMedica .= '</table>';
$cadenaPracticaMedica .= '</td></tr></table>';
$imprimeTratamientos = true;
}
if ($cadenaMedicamentoso != '' || $cadenaPracticaMedica != '') {
$cadenaTratamientos .= $cadenaMedicamentoso . $cadenaPracticaMedica;
} else {
if ($cadenaMedicamentoso != '') {
$cadenaTratamientos .= $cadenaPracticaMedica;
} else {
if ($cadenaPracticaMedica != '') {
$cadenaTratamientos .= $cadenaMedicamentoso;
}
}
}
//=================================== fin ====================================
//================================================================================
//--------------------------------------------------------------------------------
$pdf->SetFont($family, $styleNegrita, $sizeTitulo);
$pdf->writeHTML($datosmedico, false, false, false, false, '');
//$pdf->Image('../../../tcPDF/tcpdf/tcpdf/images/line.jpg', '', '', 190, 1);
//$pdf->writeHTML('<br>', true, false, false, false, '');
//--------------------------------------------------------------------------------
if ($imprimeMotCon) {
$pdf->SetFont($family, $styleNegrita, $sizeSubtitulo);
$pdf->writeHTML('<br>', true, false, false, false, '');
$pdf->Write(0, 'MOTIVO DE CONSULTA', '', 0, 'L', true, 0, false, false, 0);
$pdf->Image('../../../imagen/logo/linea.jpg', '', '', 190, "auto");
$pdf->writeHTML('<br>', true, false, false, false, '');
$pdf->SetFont($family, $styleNormal, $sizeDatos);
$pdf->writeHTML($cadenaMotCon, true, false, false, false, '');
// $pdf->writeHTML('<br>', true, false, false, false, '');
}
//--------------------------------------------------------------------------------
if ($imprimeTriaje) {
$pdf->SetFont($family, $styleNegrita, $sizeSubtitulo);
$pdf->writeHTML('<br>', true, false, false, false, '');
$pdf->Write(0, 'TRIAJE', '', 0, 'L', true, 0, false, false, 0);
$pdf->Image('../../../imagen/logo/linea.jpg', '', '', 190, "auto");
$pdf->writeHTML('<br>', true, false, false, false, '');
$pdf->SetFont($family, $styleNormal, $sizeDatos);
$pdf->writeHTML($cadenaTriaje, true, false, false, false, '');
// $pdf->writeHTML('<br>', true, false, false, false, '');
}
//--------------------------------------------------------------------------------
if ($imprimeExaMed) {
$pdf->SetFont($family, $styleNegrita, $sizeSubtitulo);
//$pdf->writeHTML('<br>', true, false, false, false, '');
$pdf->Write(0, 'EXAMENES MEDICOS', '', 0, 'L', true, 0, false, false, 0);
$pdf->Image('../../../imagen/logo/linea.jpg', '', '', 190, "auto");
$pdf->writeHTML('<br>', true, false, false, false, '');
$pdf->SetFont($family, $styleNormal, $sizeDatos);
$pdf->writeHTML($cadenaExamenes, true, false, false, false, '');
// $pdf->writeHTML('<br>', true, false, false, false, '');
}
//--------------------------------------------------------------------------------
if ($imprimeDiagnostico) {
$pdf->SetFont($family, $styleNegrita, $sizeSubtitulo);
$pdf->writeHTML('<br>', true, false, false, false, '');
$pdf->Write(0, 'DIAGNOSTICO', '', 0, 'L', true, 0, false, false, 0);
$pdf->Image('../../../imagen/logo/linea.jpg', '', '', 190, "auto");
$pdf->writeHTML('<br>', true, false, false, false, '');
$pdf->SetFont($family, $styleNormal, $sizeDatos);
$pdf->writeHTML($cadenaDiagnostico, true, false, false, false, '');
// $pdf->writeHTML('<br>', true, false, false, false, '');
}
//--------------------------------------------------------------------------------
if ($imprimeTratamientos) {
$pdf->SetFont($family, $styleNegrita, $sizeSubtitulo);
$pdf->writeHTML('<br>', true, false, false, false, '');
$pdf->Write(0, 'TRATAMIENTOS', '', 0, 'L', true, 0, false, false, 0);
$pdf->Image('../../../imagen/logo/linea.jpg', '', '', 190, "auto");
$pdf->writeHTML('<br>', true, false, false, false, '');
$pdf->SetFont($family, $styleNormal, $sizeDatos);
$pdf->writeHTML($cadenaTratamientos, true, false, false, false, '');
// $pdf->writeHTML('<br>', true, false, false, false, '');
}
//$contadorLinea = count($medicoFIrma);
require_once "../../clogica/LActoMedico.php";
$_LActo = new LActoMedico();
$respuestaFirma = $_LActo->lFirmaMedico($idPrograma);
$cadenaFirma = '
<table>
<tr>
<td></td>
<td>';
for ($x = 0; $x <= strlen($medicoFIrma) - 1 + 6; $x++) {
$cadenaFirma .= '_';
}
$cadenaFirma .= '</td>
</tr>
<tr>
<td></td>
<td><B>' . utf8_encode($respuestaFirma[0][1]) . '</B></td>
</tr>
<TR>
<td></td>
<td><B>RNE:</B>' . utf8_encode($respuestaFirma[0][3]) . ' - <B>CMP:</B>' . utf8_encode($respuestaFirma[0][2]) . '</td>
</TR>
</table>';
// $pdf->Write(0, '', '', 0, 'L', true, 0, false, false, 0);
// $pdf->Write(0, '', '', 0, 'L', true, 0, false, false, 0);
// $pdf->Write(0, '', '', 0, 'L', true, 0, false, false, 0);
// $pdf->Write(0, '', '', 0, 'L', true, 0, false, false, 0);
// $pdf->Write(0, '', '', 0, 'L', true, 0, false, false, 0);
$pdf->Write(0, '', '', 0, 'L', true, 0, false, false, 0);
$pdf->writeHTML($cadenaFirma, true, false, false, false, 'C');
}
/* ===================================================================================================== */
/* ===================================================================================================== */
// -----------------------------------------------------------------------------
//Close and output PDF document
$pdf->Output($nombreReporte, 'I');
//============================================================+
// END OF FILE
//============================================================+
}
function generarMYPDF_HC_Completo($atributosHC, $labelCabecera, $datosCabecera, $datosPie, $antecedentes, $arrayHC, $modo, $nombreReporte, $parametros)
{
// create new PDF document
$pdf = new TCPDF(PDF_PAGE_ORIENTATION, PDF_UNIT, $parametros["PDF_PAGE_FORMAT"], true, 'UTF-8', false);
// set document information
$pdf->SetCreator(PDF_CREATOR);
$pdf->SetAuthor('Nicola Asuni');
$pdf->SetTitle('TCPDF Example 048');
$pdf->SetSubject('TCPDF Tutorial');
$pdf->SetKeywords('TCPDF, PDF, example, test, guide');
// set default header data
$pdf->SetHeaderData(PDF_HEADER_LOGO, PDF_HEADER_LOGO_WIDTH, PDF_HEADER_TITLE . ' 048', PDF_HEADER_STRING);
// remove default header/footer
$pdf->setPrintHeader($parametros["PRINT_HEADER"]);
$pdf->setPrintFooter($parametros["PRINT_FOOTER"]);
// set header and footer fonts
$pdf->setHeaderFont(array(PDF_FONT_NAME_MAIN, '', PDF_FONT_SIZE_MAIN));
$pdf->setFooterFont(array(PDF_FONT_NAME_DATA, '', PDF_FONT_SIZE_DATA));
// set default monospaced font
$pdf->SetDefaultMonospacedFont(PDF_FONT_MONOSPACED);
//set margins
$pdf->SetMargins($parametros["PDF_MARGIN_LEFT"], $parametros["PDF_MARGIN_TOP"], $parametros["PDF_MARGIN_RIGHT"]);
$pdf->SetHeaderMargin($parametros["PDF_MARGIN_HEADER"]);
$pdf->SetFooterMargin($parametros["PDF_MARGIN_FOOTER"]);
//set auto page breaks
$pdf->SetAutoPageBreak($parametros["AUTO_PAGE_BREAK"], $parametros["PDF_MARGIN_BOTTOM"]);
//set image scale factor
$pdf->setImageScale(PDF_IMAGE_SCALE_RATIO);
//set some language-dependent strings
// $pdf->setLanguageArray($l);
// ---------------------------------------------------------
// set font
$pdf->SetFont('helvetica', 'B', 20);
// add a page
$pdf->AddPage();
// $pdf->Write(0, 'Example of HTML tables', '', 0, 'L', true, 0, false, false, 0);
$pdf->SetFont('helvetica', '', 8);
//======================================================================================================
$sizeDatos = 6;
$sizeTitulo = 9;
$sizeSubtitulo = 6;
$family = "helvetica";
$styleNormal = "N";
$styleNegrita = "B";
/* ======================================= Obs ============================================ */
// width->0, height->1, top->2, left->3, color->4 TipoLetra=>5 EstiloLetra=>6 TamañoLetra=>6
/* ===================================================================================================== */
$lblCabecera = array();
// $lblDetalle=array();
// $lblPie=array();
$styleCL = array();
$styleCD = array();
// $styleDL=array();
// $styleDD=array();
// $stylePL=array();
// $stylePD=array();
$o_classGeneral = new classGeneral();
$o_classGeneral->setLabelCabecera($labelCabecera, $atributosHC);
$styleCL = $o_classGeneral->getStyleCL();
$styleCD = $o_classGeneral->getStyleCD();
$lblCabecera = $o_classGeneral->getLblCabecera();
/* ===================================================================================================== */
/* ===================================================================================================== */
/* ===================================================================================================== */
/* ===================================== Cabecera =================================================== */
if ($modo == 1) {
foreach ($lblCabecera as $i => $value) {
$isImg = substr($lblCabecera[$i], -4);
if ($isImg == ".jpg" || $isImg == ".png" || $isImg == ".gif") {
$pdf->Image('../../../tcPDF/tcpdf/tcpdf/images/' . $lblCabecera[$i], $styleCL[$i][3], $styleCL[$i][2], $styleCL[$i][0], $styleCL[$i][1], '', '', '', false, 300);
} else {
$color = $styleCL[$i][4];
$pdf->SetTextColor($color[0], $color[1], $color[2]);
$pdf->SetFont($styleCL[$i][5], $styleCL[$i][6], $styleCL[$i][7]);
$pdf->MultiCell($styleCL[$i][0], $styleCL[$i][1], $lblCabecera[$i], 0, 'L', 0, 1, $styleCL[$i][3], $styleCL[$i][2], true);
}
}
}
$indice = array_keys($datosCabecera);
foreach ($indice as $val => $z) {
$isImgx = substr($datosCabecera[$z], -4);
if ($isImgx == ".jpg" || $isImgx == ".png" || $isImgx == ".gif") {
$pdf->Image($datosCabecera[$z], $styleCD[$i][3], $styleCD[$i][2], $styleCD[$i][0], $styleCD[$i][1], '', '', '', false, 300);
} else {
$color = $styleCD[$z][4];
$pdf->SetTextColor($color[0], $color[1], $color[2]);
$pdf->SetFont($styleCD[$z][5], $styleCD[$z][6], $styleCD[$z][7]);
$pdf->MultiCell($styleCD[$z][0], $styleCD[$z][1], $datosCabecera[$z], 0, 'L', 0, 1, $styleCD[$z][3], $styleCD[$z][2], true);
}
}
/* ===================================================================================================== */
/* ===================================== Fin Cabecera ============================================== */
//-------------------------- espacio despues de la cabecera --------------------
$pdf->writeHTML("<br>", true, false, false, false, '');
// -----------------------------------------------------------------------------
/* ===================================================================================================== */
/* ===================================== Antecedentes ========================================== */
$cadenaAntecedentes = "";
if ($antecedentes) {
$fechaAnterior = "";
$numAntecedente = 0;
foreach ($antecedentes as $i => $value) {
$numAntecedente++;
if ($antecedentes[$i][5] == 1) {
$vive = "Si";
} else {
if ($antecedentes[$i][5] == 0) {
$vive = "No";
}
}
$cadenaAntecedentes .= '<table width="700" border="0" cellspacing="1">
<tr>
<td width="40"><strong>' . $numAntecedente . '.</strong></td>
<td width="210"><strong>Parentesco : </strong>' . $antecedentes[$i][7] . '</td>
<td width="80"><strong>Vive : </strong>' . $vive . '</td>
<td width="370"><strong>Sintoma : </strong>' . $antecedentes[$i][2] . ' - ' . $antecedentes[$i][3] . '</td>
</tr>
<tr><td> </td><td colspan="3"><strong>Descripción : </strong>' . utf8_decode($antecedentes[$i][4]) . '</td></tr>
</table>';
}
} else {
$cadenaAntecedentes .= '<table width="700" border="0" cellspacing="1"><tr><td align="center"><strong>No existe registro de antecedentes</strong></td></tr></table>';
}
$pdf->SetFont($family, $styleNegrita, $sizeTitulo);
$pdf->Write(0, 'ANTECEDENTES', '', 0, 'L', true, 0, false, false, 0);
$pdf->Image('../../../tcPDF/tcpdf/tcpdf/images/line.jpg', '', '', 190, 1);
$pdf->writeHTML('<br>', true, false, false, false, '');
$pdf->SetFont($family, $styleNormal, $sizeDatos);
$pdf->writeHTML($cadenaAntecedentes, true, false, false, false, '');
$pdf->writeHTML('<br>', true, false, false, false, '');
/* ===================================================================================================== */
/* ===================================================================================================== */
/* ===================================================================================================== */
/* ===================================== HC ======================================= */
$datosmedico = "";
foreach ($arrayHC as $i => $value) {
//----------------------------
$imprimeMotCon = false;
$imprimeTriaje = false;
$imprimeExaMed = false;
$imprimeDiagnostico = false;
$imprimeTratamientos = false;
//----------------------------
$medicamentoso = null;
$practicaMedica = null;
$motivoConsulta = $arrayHC[$i][0];
$triaje = $arrayHC[$i][1];
$examenesMedicos = $arrayHC[$i][2];
$diagnosticos = $arrayHC[$i][3];
$tratamientos = $arrayHC[$i][4];
if ($tratamientos != null) {
$medicamentoso = $tratamientos[0][0];
$practicaMedica = $tratamientos[0][1];
}
$datosMed = $arrayHC[$i][5];
$fechaAtencion = $arrayHC[$i][6];
$instalacion = $datosMed[0][8] . " - " . $datosMed[0][7] . " - " . $datosMed[0][6];
$medico = $datosMed[0][2] . " " . $datosMed[0][3] . " " . $datosMed[0][4];
$datosmedico = '<table width="700" border="0" cellspacing="1"><tr><td width="100">' . $fechaAtencion . '</td> <td width="300">' . $instalacion . '</td><td width="300">' . $medico . '</td></tr></table>';
//================================================================================
//================================== Motivo Consulta ===========================
//================================================================================
$numMotConsulta = 0;
$cadenaMotCon = "";
if ($motivoConsulta != null) {
foreach ($motivoConsulta as $x => $valuex) {
$numMotConsulta++;
$cadenaMotCon .= '<table width="660" border="0"><tr><td><table width="650" border="0" cellspacing="3">
<tr><td width="15"><strong>' . $numMotConsulta . '.</strong></td><td width="55"><strong>Sintoma :</strong></td><td width="580">' . $motivoConsulta[$x][2] . ' - ' . $motivoConsulta[$x][3] . '</td> </tr>
<tr><td></td><td><strong>Descripción :</strong></td><td>' . $motivoConsulta[$x][4] . '</td></tr>
</table></td></tr></table><br>';
}
$imprimeMotCon = true;
}
//=================================== fin ====================================
//================================================================================
//================================================================================
//================================== Triaje ===========================
//================================================================================
$cadenaTriaje = "";
if ($triaje != null) {
$cadenaTriaje .= '<table width="660" border="0" cellspacing="3"><tr><td width="150"></td><td width="355">
<table width="300" border="0" cellspacing="3">
<tr>
<td width="175"><strong>Peso (Kg.) : </strong>' . $triaje[0]["nPeso"] . '</td>
<td width="175"><strong>Talla (m.) : </strong>' . $triaje[0]["nTalla"] . '</td>
</tr>
<tr>
<td><strong>Temp. (ºC) : </strong>' . $triaje[0]["nTemperatura"] . '</td>
<td><strong>Frec. Cardiaca (min) : </strong>' . $triaje[0]["iFrecuenciaCardiaca"] . '</td>
</tr>
<tr>
<td><strong>Pres. Arterial (mmHg) : </strong>' . $triaje[0]["vPresionArterial"] . '</td>
<td><strong>Frec. Respiratoria (min) : </strong>' . $triaje[0]["iFrecuenciaRespiratoria"] . '</td>
</tr>
<tr>
<td><strong>Sat. O2(%) : </strong>' . $triaje[0]["nSaturacionOxigeno"] . '</td><td></td>
</tr>
</table>
</td><td width="150"></td></tr></table>';
$imprimeTriaje = true;
}
//=================================== fin ====================================
//================================================================================
//================================================================================
//================================== Examenes ===========================
//================================================================================
$cadenaExamenes = "";
if ($examenesMedicos != null) {
foreach ($examenesMedicos as $filaExamen) {
$pruebasExamenes = $filaExamen[0];
//$filaExamen[0]=$datosExamenes
// echo $idPrueba.'<br>';
//--------------------------------------------------------------------------------------
if ($pruebasExamenes != null) {
$idPruebaAux = "";
$numero = count($pruebasExamenes);
$m = 0;
$cadenaExamenesAux = "";
foreach ($pruebasExamenes as $fila) {
$m++;
$idPrueba = $fila[1];
// echo $idPrueba.'<br>';
$nombreCampo = $fila[4];
$iiDCombo = $fila[8];
if (!($idPrueba == $idPruebaAux)) {
$nombrePrueba = $fila[2];
if ($m == 1) {
$cadenaExamenesAux .= '<table width="660" border="1" cellpadding="3" cellspacing="0" ><tr><td height="20" bgcolor="#F8F8F8" align="center"><strong>' . utf8_encode($nombrePrueba) . '</strong></td></tr><tr><td>';
}
}
$iIdTipoDato = $fila[5];
switch ($iIdTipoDato) {
case 1:
//integer
if ($fila[9] != "") {
// $cadenaExamenesAux.='<table width="650" border="0" cellpadding="3" cellspacing="0">
// <tr><td width="150"><strong>' . utf8_encode($nombreCampo) . ':</strong></td>
// <td width="500">' . $fila[9] . '</td></tr>
// </table>';
$cadenaExamenesAux .= '<strong>' . utf8_encode($nombreCampo) . ' : </strong>' . $fila[9] . ' ';
}
break;
case 2:
//varchar
if ($fila[10] != "") {
// $cadenaExamenesAux.='<table width="650" border="0" cellpadding="3" cellspacing="0">
// <tr><td width="150"><strong>' . utf8_encode($nombreCampo) . ':</strong></td>
// <td width="500">' . $fila[10] . '</td></tr>
// </table>';
$cadenaExamenesAux .= '<strong>' . utf8_encode($nombreCampo) . ' : </strong>' . $fila[10] . ' ';
}
break;
case 3:
//datetime
if ($fila[11] != "") {
// $cadenaExamenesAux.='<table width="650" border="0" cellpadding="3" cellspacing="0">
// <tr><td width="150"><strong>' . utf8_encode($nombreCampo) . ':</strong></td>
// <td width="500">' . $fila[11] . '</td></tr>
// </table>';
$cadenaExamenesAux .= '<strong>' . utf8_encode($nombreCampo) . ' : </strong>' . $fila[11] . ' ';
}
break;
case 4:
//decimal
if ($fila[12] != "") {
// $cadenaExamenesAux.='<table width="650" border="0" cellpadding="3" cellspacing="0">
// <tr><td width="150"><strong>' . utf8_encode($nombreCampo) . ':</strong></td>
// <td width="500">' . $fila[12] . '</td></tr>
// </table>';
$cadenaExamenesAux .= ' <strong>' . utf8_encode($nombreCampo) . ' : </strong>' . $fila[12] . ' ';
}
break;
case 5:
//bolean
if ($fila[13] == 1 || $fila[13] == 0) {
// $cadenaExamenesAux.='<table width="650" border="0" cellpadding="3" cellspacing="0">
// <tr><td width="150"><strong>' . utf8_encode($nombreCampo) . '</strong></td>
// <td width="500">';
$cadenaExamenesAux .= '<strong>' . utf8_encode($nombreCampo) . ' : </strong>';
if ($fila[13] == '1') {
$cadenaExamenesAux .= "si";
} else {
if ($fila[13] == '0') {
$cadenaExamenesAux .= "no";
} else {
$cadenaExamenesAux .= "null";
}
}
$cadenaExamenesAux .= ' ';
// $cadenaExamenesAux.='</td></tr></table>';
}
break;
case 6:
//combo
require_once "../../clogica/LActoMedico.php";
$_LActo = new LActoMedico();
$iCombo = $fila[14];
if ($iCombo != "") {
$valorCombo = $_LActo->valorComboExamen($iCombo);
$cadenaAuxCombo = "";
if ($valorCombo) {
foreach ($valorCombo as $v => $valorCbo) {
if ($valorCbo[0] != "") {
// $cadenaAuxCombo.='<table width="650" border="0" cellpadding="3" cellspacing="0">
// <tr><td width="150"><strong>' . utf8_encode($nombreCampo) . ':</strong></td>
// <td width="500">' . $valorCbo[0] . '</td></tr>
// </table>';
$cadenaAuxCombo .= '<strong>' . utf8_encode($nombreCampo) . ' : </strong>' . $valorCbo[0] . ' ';
}
}
$cadenaExamenesAux .= $cadenaAuxCombo;
}
}
break;
case 7:
//texto
if ($fila[15] != "") {
// $cadenaExamenesAux.='<table width="650" border="0" cellpadding="3" cellspacing="0">
// <tr><td width="100"><strong>' . utf8_encode($nombreCampo) . ':</strong></td>
// <td width="550">' . utf8_encode($fila[15]) . '</td></tr>
// </table>';
$cadenaExamenesAux .= '<strong>' . utf8_encode($nombreCampo) . ' : </strong>' . utf8_encode($fila[15]) . ' ';
}
break;
}
if ($m == $numero) {
$cadenaExamenesAux .= '</td></tr></table>';
}
$idPruebaAux = $fila[1];
}
$cadenaExamenes .= $cadenaExamenesAux;
//--------------------------------------------------------------------------------------
}
}
$imprimeExaMed = true;
}
//=================================== fin ====================================
//================================================================================
//================================================================================
//================================== Diagnóstico ===========================
//================================================================================
$numDiagnostico = 0;
$cadenaDiagnostico = "";
if ($diagnosticos != null) {
//660
$cadenaDiagnostico .= '<table width="660" border="1" cellpadding="3" cellspacing="0">
<tr><td height="20" width="100" bgcolor="#F8F8F8"><strong>Código Cie</strong></td><td width="400" bgcolor="#F8F8F8" align="center"><strong>Descripción</strong></td><td width="160" bgcolor="#F8F8F8" align="center"><strong>Tipo Diagnóstico</strong></td></tr>';
foreach ($diagnosticos as $x => $valuex) {
$cadenaDiagnostico .= '<tr><td>' . utf8_encode($diagnosticos[$x][1]) . '</td><td>' . utf8_encode($diagnosticos[$x][2]) . '</td><td>' . utf8_encode($diagnosticos[$x][6]) . '</td></tr>';
}
$cadenaDiagnostico .= '<tr><td colspan="3">
<table width="650" border="0">
<tr>
<td width="60"><strong>Observación :</strong></td>
<td width="590">' . utf8_encode($diagnosticos[0][5]) . '</td>
</tr>
</table></td></tr>';
$cadenaDiagnostico .= '</table>';
$imprimeDiagnostico = true;
}
//=================================== fin ====================================
//================================================================================
//=============================================================================
//================================== Tratamientos ==========================
//================================================================================
$numMedicamentoso = 0;
$cadenaTratamientos = '';
$cadenaMedicamentoso = '';
if ($medicamentoso != null) {
$cadenaMedicamentoso .= '<table width="660" border="1" cellpadding="0" cellspacing="0"><tr><td>
<table width="660" cellpadding="3" cellspacing="0"><tr><td height="20" bgcolor="#F8F8F8" align="center">
<strong>Receta médica</strong></td></tr></table></td></tr><tr><td>';
$cadenaMedicamentoso .= '<table width="660" border="1" cellpadding="3" cellspacing="0">
<tr>
<td width="25" bgcolor="#F8F8F8" align="center"><strong> Nro. </strong></td>
<td width="205" bgcolor="#F8F8F8" align="center"><strong>Nombre </strong></td>
<td width="100" bgcolor="#F8F8F8" align="center"><strong>Presentación </strong></td>
<td width="70" bgcolor="#F8F8F8" align="center"><strong>Cantidad </strong></td>
<td width="260" bgcolor="#F8F8F8" align="center"><strong>Observación </strong></td>
</tr>';
foreach ($medicamentoso as $x => $valuex) {
$numMedicamentoso++;
$cadenaMedicamentoso .= '<tr>
<td><strong>' . $numMedicamentoso . '.</strong></td>
<td>' . utf8_encode($medicamentoso[$x][2]) . '</td>
<td>' . utf8_encode($medicamentoso[$x][5]) . '</td>
<td align="center">' . utf8_encode($medicamentoso[$x][3]) . '</td>
<td>' . utf8_encode($medicamentoso[$x][4]) . '</td>
</tr>';
}
$cadenaMedicamentoso .= '</table>';
$cadenaMedicamentoso .= '</td></tr></table>';
$imprimeTratamientos = true;
}
$numPracticaMedica = 0;
$cadenaPracticaMedica = '';
if ($practicaMedica != null) {
$cadenaPracticaMedica .= '<table width="660" border="1" cellpadding="0" cellspacing="0"><tr><td>
<table width="660" cellpadding="3" cellspacing="0"><tr><td height="20" bgcolor="#F8F8F8" align="center">
<strong>Procedimientos médicos</strong></td></tr></table></td></tr><tr><td>';
$cadenaPracticaMedica .= '<table width="660" border="1" cellpadding="3" cellspacing="0">
<tr>
<td width="25" bgcolor="#F8F8F8" align="center"><strong> Nro. </strong></td>
<td width="205" bgcolor="#F8F8F8" align="center"><strong>Nombre </strong></td>
<td width="80"bgcolor="#F8F8F8" align="center"><strong>Codigo Seg </strong></td>
<td width="350" bgcolor="#F8F8F8" align="center"><strong>Observación </strong></td>
</tr>';
foreach ($practicaMedica as $x => $valuex) {
$numPracticaMedica++;
// $cadenaPracticaMedica.='<table width="660" border="0" cellpadding="0" cellspacing="0"><tr><td>';
// $cadenaPracticaMedica.='<table width="660" border="0" cellpadding="0" cellspacing="3">
$cadenaPracticaMedica .= '<tr>
<td><strong>' . $numPracticaMedica . '.</strong></td>
<td>' . utf8_encode($practicaMedica[$x][2]) . '</td>
<td>' . utf8_encode($practicaMedica[$x][5]) . '</td>
<td>' . utf8_encode($practicaMedica[$x][3]) . '</td>
</tr>';
// </table>';
// $cadenaPracticaMedica.='</td></tr></table>';
}
$cadenaPracticaMedica .= '</table>';
$cadenaPracticaMedica .= '</td></tr></table>';
$imprimeTratamientos = true;
}
if ($cadenaMedicamentoso != '' || $cadenaPracticaMedica != '') {
$cadenaTratamientos .= $cadenaMedicamentoso . '<br><br>' . $cadenaPracticaMedica;
} else {
if ($cadenaMedicamentoso != '') {
$cadenaTratamientos .= $cadenaPracticaMedica;
} else {
if ($cadenaPracticaMedica != '') {
$cadenaTratamientos .= $cadenaMedicamentoso;
}
}
}
//=================================== fin ====================================
//================================================================================
//--------------------------------------------------------------------------------
$pdf->SetFont($family, $styleNegrita, $sizeTitulo);
$pdf->writeHTML($datosmedico, false, false, false, false, '');
$pdf->Image('../../../tcPDF/tcpdf/tcpdf/images/line.jpg', '', '', 190, 1);
$pdf->writeHTML('<br>', true, false, false, false, '');
//--------------------------------------------------------------------------------
if ($imprimeMotCon) {
$pdf->SetFont($family, $styleNegrita, $sizeSubtitulo);
$pdf->Write(0, 'MOTIVO DE CONSULTA', '', 0, 'L', true, 0, false, false, 0);
$pdf->Image('../../../tcPDF/tcpdf/tcpdf/images/line.jpg', 11, '', 25, 1);
$pdf->writeHTML('<br>', true, false, false, false, '');
$pdf->SetFont($family, $styleNormal, $sizeDatos);
$pdf->writeHTML($cadenaMotCon, true, false, false, false, '');
// $pdf->writeHTML('<br>', true, false, false, false, '');
}
//--------------------------------------------------------------------------------
if ($imprimeTriaje) {
$pdf->SetFont($family, $styleNegrita, $sizeSubtitulo);
$pdf->Write(0, 'TRIAJE', '', 0, 'L', true, 0, false, false, 0);
$pdf->Image('../../../tcPDF/tcpdf/tcpdf/images/line.jpg', 11, '', 8, 1);
$pdf->writeHTML('<br>', true, false, false, false, '');
$pdf->SetFont($family, $styleNormal, $sizeDatos);
$pdf->writeHTML($cadenaTriaje, true, false, false, false, '');
// $pdf->writeHTML('<br>', true, false, false, false, '');
}
//--------------------------------------------------------------------------------
if ($imprimeExaMed) {
$pdf->SetFont($family, $styleNegrita, $sizeSubtitulo);
$pdf->Write(0, 'EXAMENES MEDICOS', '', 0, 'L', true, 0, false, false, 0);
$pdf->Image('../../../tcPDF/tcpdf/tcpdf/images/line.jpg', 11, '', 23, 1);
$pdf->writeHTML('<br>', true, false, false, false, '');
$pdf->SetFont($family, $styleNormal, $sizeDatos);
$pdf->writeHTML($cadenaExamenes, true, false, false, false, '');
// $pdf->writeHTML('<br>', true, false, false, false, '');
}
//--------------------------------------------------------------------------------
if ($imprimeDiagnostico) {
$pdf->SetFont($family, $styleNegrita, $sizeSubtitulo);
$pdf->Write(0, 'DIAGNOSTICO', '', 0, 'L', true, 0, false, false, 0);
$pdf->Image('../../../tcPDF/tcpdf/tcpdf/images/line.jpg', 11, '', 16, 1);
$pdf->writeHTML('<br>', true, false, false, false, '');
$pdf->SetFont($family, $styleNormal, $sizeDatos);
$pdf->writeHTML($cadenaDiagnostico, true, false, false, false, '');
// $pdf->writeHTML('<br>', true, false, false, false, '');
}
//--------------------------------------------------------------------------------
if ($imprimeTratamientos) {
$pdf->SetFont($family, $styleNegrita, $sizeSubtitulo);
$pdf->Write(0, 'TRATAMIENTOS', '', 0, 'L', true, 0, false, false, 0);
$pdf->Image('../../../tcPDF/tcpdf/tcpdf/images/line.jpg', 11, '', 18, 1);
$pdf->writeHTML('<br>', true, false, false, false, '');
$pdf->SetFont($family, $styleNormal, $sizeDatos);
$pdf->writeHTML($cadenaTratamientos, true, false, false, false, '');
// $pdf->writeHTML('<br>', true, false, false, false, '');
}
}
/* ===================================================================================================== */
/* ===================================================================================================== */
// -----------------------------------------------------------------------------
//Close and output PDF document
$pdf->Output($nombreReporte, 'I');
//============================================================+
// END OF FILE
//============================================================+
}
function generarMYPDF_HC_Completo($listarPapanicolaum, $parametros, $datos)
{
$pdf = new TCPDF(PDF_PAGE_ORIENTATION, PDF_UNIT, PDF_PAGE_FORMAT, true, 'UTF-8', TRUE);
$pdf->SetCreator(PDF_CREATOR);
$pdf->SetAuthor('Nicola Asuni');
$pdf->SetTitle('TCPDF Example 023');
$pdf->SetSubject('TCPDF Tutorial');
$pdf->SetKeywords('TCPDF, PDF, example, test, guide');
$pdf->SetFooterMargin(PDF_MARGIN_FOOTER);
$pdf->SetAutoPageBreak(TRUE, PDF_MARGIN_BOTTOM);
$pdf->setImageScale(PDF_IMAGE_SCALE_RATIO);
if (@file_exists(dirname(__FILE__) . '/lang/eng.php')) {
require_once dirname(__FILE__) . '/lang/eng.php';
$pdf->setLanguageArray($l);
}
$pdf->AddPage();
$pdf->SetFont('helvetica', '', 8);
$sizeDatos = 6;
$sizeTitulo = 9;
$sizeSubtitulo = 6;
$family = "helvetica";
$styleNormal = "N";
$styleNegrita = "B";
require_once "../../clogica/LActoMedico.php";
$_LActo = new LActoMedico();
$cabecera = '
<table border="0" width="1000">
<tr>
<td width="100"><img src="../../../imagen/logo/HMLO.jpg" width="90"></td>
<td>
<table border="0">
<tr>
<td>
<table border="0" height="30">
<tr>
<td align="center"><font size="16">HOSPITAL MUNICIPAL LOS OLIVOS</font></td>
</tr>
<tr>
<td align="center"><font size="16">PAPANICOLAOU DEL ' . $datos['p2'] . ' AL ' . $datos['p3'] . '</font></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
';
$pdf->SetFont($family, $styleNegrita, $sizeTitulo);
$pdf->writeHTML('<br>', true, false, false, false, '');
$pdf->writeHTML($cabecera, false, false, false, false, '');
$pdf->writeHTML('<br>', true, false, false, false, '');
$pdf->writeHTML('<br>', true, false, false, false, '');
$x = 0;
foreach ($listarPapanicolaum as $key => $value) {
$valorDatosPaciente = $_LActo->datospacientePapanicolaum($listarPapanicolaum[$x][0]);
$datosPaciente = '';
foreach ($valorDatosPaciente as $keyPaciente => $valuePaciente) {
$datosPaciente .= '
<table>
<tr>
<td>
<table border="0">
<tr>
<td>
<table border="0" height="30">
<tr>
<td width="75"><strong>Numero H.C.:</strong></td>
<td width="200">' . utf8_encode($valuePaciente[0]) . ' </td>
<td width="90"><strong>Edad: </strong></td>
<td width="75">' . utf8_encode($valuePaciente[6] . '') . 'años</td>
</tr>
</table>
</td>
</tr>
</table>
<table border="0">
<tr>
<td>
<table border="0" height="30">
<tr>
<td width="75"><strong> Paciente:</strong></td>
<td width="200">' . utf8_encode($valuePaciente[1]) . ' </td>
<td width="90"><strong>Sexo:</strong></td>
<td width="75">' . utf8_encode($valuePaciente[2]) . ' </td>
<td width="90"><strong>Fecha Nac.:</strong></td>
<td width="75">' . utf8_encode($valuePaciente[3]) . ' </td>
</tr>
</table>
</td>
</tr>
</table>
<table border="0">
<tr>
<td>
<table border="0" height="30">
<tr>
<td width="75"><strong>DNI:</strong></td>
<td width="200">' . utf8_encode($valuePaciente[4]) . ' </td>
<td width="90"><strong>Direccion:</strong> </td>
<td width="350">' . utf8_encode($valuePaciente[5]) . ' </td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
';
}
$cadenaExamenesAux = '
<table width="660" border="1" cellpadding="3" cellspacing="0" >
<tr>
<td height="20" bgcolor="#F8F8F8" align="center">
<strong>RESULTADOS - Fecha:' . $listarPapanicolaum[$x][2] . '</strong>
</td>
</tr>
</table>
<table width="660" border="1" cellpadding="3" cellspacing="0">
<tr>
<td width="160" align="center"><strong>Descripcion</strong>
</td>
<td width="200" align="center"><strong>Resultado</strong>
</td>
<td width="300" align="center"><strong>Observacion</strong>
</td>
</tr>
</table>
';
$resultadoLaboratorio = $_LActo->resultadoLaboratorio($listarPapanicolaum[$x][1]);
$resultadoDetalle = '';
$contadorLab = count($resultadoLaboratorio);
//foreach ($resultadoLaboratorio as $keyResulLab => $valueResulLab) {
for ($z = 0; $z <= $contadorLab - 1; $z++) {
if ($z == 0) {
$resultadoDetalle .= '
<table width="660" border="1" cellpadding="3" cellspacing="0">
<tr>
<td align="center"><strong>MEDICO: ' . utf8_encode($resultadoLaboratorio[$z][11]) . '
</strong></td>
</tr>
</table>';
} else {
$resultadoDetalle .= '
<table width="660" border="1" cellpadding="3" cellspacing="0">
<tr>
<td width="160">' . utf8_encode($resultadoLaboratorio[$z][0]) . '
</td>
<td width="200">' . utf8_encode($resultadoLaboratorio[$z][2]) . '
</td>
<td width="300">' . utf8_encode($resultadoLaboratorio[$z][4]) . '
</td>
</tr>
</table>
';
}
}
if ($x <= count($listarPapanicolaum) - 1) {
$x++;
}
$pdf->SetFont($family, $styleNormal, $sizeTitulo);
$pdf->writeHTML('<br>', true, false, false, false, '');
$pdf->writeHTML($datosPaciente, false, false, false, false, '');
$pdf->Image('../../../tcPDF/tcpdf/tcpdf/images/line.jpg', '', '', 190, 1);
$pdf->writeHTML('<br>', true, false, false, false, '');
$pdf->SetFont($family, $styleNormal, $sizeTitulo);
$pdf->writeHTML('<br>', true, false, false, false, '');
$pdf->writeHTML($cadenaExamenesAux, false, false, false, false, '');
$pdf->SetFont($family, $styleNormal, $sizeDatos);
$pdf->writeHTML($resultadoDetalle, false, false, false, false, '');
}
$pdf->Output('Papanicolaou.pdf', 'I');
}
function generarMYPDF_HC_Completo($atributosHC, $labelCabecera, $datosCabecera, $datosPie, $antecedentes, $arrayHC, $modo, $dia, $parametros, $listaAtenciones)
{
$pdf = new TCPDF(PDF_PAGE_ORIENTATION, PDF_UNIT, PDF_PAGE_FORMAT, true, 'UTF-8', TRUE);
$pdf->SetCreator(PDF_CREATOR);
$pdf->SetAuthor('Nicola Asuni');
$pdf->SetTitle('TCPDF Example 023');
$pdf->SetSubject('TCPDF Tutorial');
$pdf->SetKeywords('TCPDF, PDF, example, test, guide');
// $pdf->SetFooterMargin(PDF_MARGIN_FOOTER);
$pdf->SetAutoPageBreak(TRUE, PDF_MARGIN_BOTTOM);
$pdf->setImageScale(PDF_IMAGE_SCALE_RATIO);
if (@file_exists(dirname(__FILE__) . '/lang/eng.php')) {
require_once dirname(__FILE__) . '/lang/eng.php';
$pdf->setLanguageArray($l);
}
$pdf->AddPage();
$pdf->SetFont('helvetica', '', 8);
$sizeDatos = 6;
$sizeTitulo = 9;
$sizeSubtitulo = 6;
$family = "helvetica";
$styleNormal = "N";
$styleNegrita = "B";
$lblCabecera = array();
$styleCL = array();
$styleCD = array();
$o_classGeneral = new classGeneral();
$o_classGeneral->setLabelCabecera($labelCabecera, $atributosHC);
$styleCL = $o_classGeneral->getStyleCL();
$styleCD = $o_classGeneral->getStyleCD();
$lblCabecera = $o_classGeneral->getLblCabecera();
require_once "../../clogica/LActoMedico.php";
$_LActo = new LActoMedico();
$cabecera = '
<table border="0" width="1000">
<tr>
<td width="100"><img src="../../../imagen/logo/HMLO.jpg" width="90"></td>
<td>
<table border="0">
<tr>
<td>
<table border="0" height="30">
<tr>
<td align="center"><font size="16">HOSPITAL MUNICIPAL LOS OLIVOS</font></td>
</tr>
<tr>
<td align="center"><font size="16">H.C. PREVENTIVAS DEL ' . $dia . '</font></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
';
$pdf->SetFont($family, $styleNegrita, $sizeTitulo);
$pdf->writeHTML('<br>', true, false, false, false, '');
$pdf->writeHTML($cabecera, false, false, false, false, '');
$pdf->writeHTML('<br>', true, false, false, false, '');
$pdf->writeHTML('<br>', true, false, false, false, '');
$datosmedico = "";
$x = 0;
foreach ($arrayHC as $i => $value) {
// echo $x."---". $listaAtenciones[$x][0]."<br>";
//
$valorDatosPaciente = $_LActo->datospaciente($listaAtenciones[$x][0]);
$datosPaciente = '';
foreach ($valorDatosPaciente as $keyPaciente => $valuePaciente) {
$datosPaciente .= '
<table>
<tr>
<td>
<table border="0">
<tr>
<td>
<table border="0" height="30">
<tr>
<td width="75"><strong>Numero H.C.:</strong></td>
<td width="200">' . utf8_encode($valuePaciente[0]) . ' </td>
<td width="90"><strong>Edad: </strong></td>
<td width="75">' . utf8_encode($valuePaciente[6] . '') . 'años</td>
</tr>
</table>
</td>
</tr>
</table>
<table border="0">
<tr>
<td>
<table border="0" height="30">
<tr>
<td width="75"><strong> Paciente:</strong></td>
<td width="200">' . utf8_encode($valuePaciente[1]) . ' </td>
<td width="90"> <strong>Sexo:</strong></td>
<td width="75">' . utf8_encode($valuePaciente[2]) . ' </td>
<td width="90"> <strong>Fecha Nac.:</strong></td>
<td width="75">' . utf8_encode($valuePaciente[3]) . ' </td>
</tr>
</table>
</td>
</tr>
</table>
<table border="0">
<tr>
<td>
<table border="0" height="30">
<tr>
<td width="75"><strong>DNI:</strong></td>
<td width="200">' . utf8_encode($valuePaciente[4]) . ' </td>
<td width="90"> <strong>Direccion:</strong> </td>
<td width="350">' . utf8_encode($valuePaciente[5]) . ' </td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
';
}
$imprimeMotCon = false;
$imprimeTriaje = false;
$imprimeExaMed = false;
$imprimeDiagnostico = false;
$imprimeTratamientos = false;
$medicamentoso = null;
$practicaMedica = null;
$motivoConsulta = $arrayHC[$i][0];
$triaje = $arrayHC[$i][1];
$examenesMedicos = $arrayHC[$i][2];
$diagnosticos = $arrayHC[$i][3];
$tratamientos = $arrayHC[$i][4];
if ($tratamientos != null) {
$medicamentoso = $tratamientos[0][0];
$practicaMedica = $tratamientos[0][1];
}
$datosMed = $arrayHC[$i][5];
$fechaAtencion = $arrayHC[$i][6];
$instalacion = $datosMed[0][8] . " - " . $datosMed[0][7] . " - " . $datosMed[0][6];
$medico = $datosMed[0][2] . " " . $datosMed[0][3] . " " . $datosMed[0][4];
$datosmedico = '
<table width="700" border="0" cellspacing="1">
<tr>
<td width="300"><strong>Ambiente: </strong>' . $instalacion . '</td>
<td width="370"><strong>Medico: </strong>' . $medico . '</td>
</tr>
<tr>
<td width="300"><strong>Fecha Atencion: </strong>' . $fechaAtencion . '</td>
</tr>
</table>';
//=================================== fin ====================================
//================================================================================
//================================== Examenes ===========================
//================================================================================
$cadenaExamenes = "";
if ($examenesMedicos != null) {
foreach ($examenesMedicos as $filaExamen) {
$pruebasExamenes = $filaExamen[0];
if ($pruebasExamenes != null) {
$idPruebaAux = "";
$numero = count($pruebasExamenes);
$m = 0;
$cadenaExamenesAux = "";
foreach ($pruebasExamenes as $fila) {
$m++;
$idPrueba = $fila[1];
// echo $idPrueba.'<br>';
$nombreCampo = $fila[4];
$iiDCombo = $fila[8];
if (!($idPrueba == $idPruebaAux)) {
$nombrePrueba = $fila[2];
if ($m == 1) {
$cadenaExamenesAux .= '<table width="660" border="1" cellpadding="3" cellspacing="0" ><tr><td height="20" bgcolor="#F8F8F8" align="center"><strong>' . utf8_encode($nombrePrueba) . '</strong></td></tr><tr><td>';
}
}
$iIdTipoDato = $fila[5];
switch ($iIdTipoDato) {
case 1:
//integer
if ($fila[9] != "") {
$cadenaExamenesAux .= '<strong>' . utf8_encode($nombreCampo) . ' : </strong>' . $fila[9] . ' ';
}
break;
case 2:
//varchar
if ($fila[10] != "") {
$cadenaExamenesAux .= '<strong>' . utf8_encode($nombreCampo) . ' : </strong>' . $fila[10] . ' ';
}
break;
case 3:
//datetime
if ($fila[11] != "") {
$cadenaExamenesAux .= '<strong>' . utf8_encode($nombreCampo) . ' : </strong>' . $fila[11] . ' ';
}
break;
case 4:
//decimal
if ($fila[12] != "") {
$cadenaExamenesAux .= ' <strong>' . utf8_encode($nombreCampo) . ' : </strong>' . $fila[12] . ' ';
}
break;
case 5:
//bolean
if ($fila[13] == 1 || $fila[13] == 0) {
$cadenaExamenesAux .= '<strong>' . utf8_encode($nombreCampo) . ' : </strong>';
if ($fila[13] == '1') {
$cadenaExamenesAux .= "si";
} else {
if ($fila[13] == '0') {
$cadenaExamenesAux .= "no";
} else {
$cadenaExamenesAux .= "null";
}
}
$cadenaExamenesAux .= ' ';
}
break;
case 6:
//combo
require_once "../../clogica/LActoMedico.php";
$_LActo = new LActoMedico();
$iCombo = $fila[14];
if ($iCombo != "") {
$valorCombo = $_LActo->valorComboExamen($iCombo);
$cadenaAuxCombo = "";
if ($valorCombo) {
foreach ($valorCombo as $v => $valorCbo) {
if ($valorCbo[0] != "") {
$cadenaAuxCombo .= '<strong>' . utf8_encode($nombreCampo) . ' : </strong>' . $valorCbo[0] . ' ';
}
}
$cadenaExamenesAux .= $cadenaAuxCombo;
}
}
break;
case 7:
//texto
if ($fila[15] != "") {
$cadenaExamenesAux .= '<strong>' . utf8_encode($nombreCampo) . ' : </strong>' . utf8_encode(nl2br($fila[15])) . ' ';
}
break;
}
if ($m == $numero) {
$resultadoGrupoetareo = $_LActo->grupoEtareoPersona($listaAtenciones[$x][0]);
foreach ($resultadoGrupoetareo as $keyResulEtareo => $valueResulEtareo) {
$cadenaExamenesAux .= '<br><br>Se solicita paquete preventivo segunel grupo etareo ' . utf8_encode($valueResulEtareo[0]);
}
$cadenaExamenesAux .= '</td></tr></table>';
}
$idPruebaAux = $fila[1];
}
$cadenaExamenes .= $cadenaExamenesAux;
}
}
$imprimeExaMed = true;
}
//=================================== fin ====================================
//================================================================================
//================================================================================
//================================== Diagnóstico ===========================
//================================================================================
$numDiagnostico = 0;
$cadenaDiagnostico = "";
if ($diagnosticos != null) {
//660
$cadenaDiagnostico .= '<table width="660" border="1" cellpadding="3" cellspacing="0">
<tr><td height="20" width="100" bgcolor="#F8F8F8"><strong>Código Cie</strong></td><td width="400" bgcolor="#F8F8F8" align="center"><strong>Descripción</strong></td><td width="160" bgcolor="#F8F8F8" align="center"><strong>Tipo Diagnóstico</strong></td></tr>';
foreach ($diagnosticos as $xy => $valuex) {
$cadenaDiagnostico .= '<tr><td>' . utf8_encode($diagnosticos[$xy][1]) . '</td><td>' . utf8_encode($diagnosticos[$xy][2]) . '</td><td>' . utf8_encode($diagnosticos[$xy][6]) . '</td></tr>';
}
$cadenaDiagnostico .= '</table>';
$imprimeDiagnostico = true;
}
//=================================== fin ====================================
//================================================================================
$pdf->SetFont($family, $styleNormal, $sizeTitulo);
$pdf->writeHTML('<br>', true, false, false, false, '');
$pdf->writeHTML($datosPaciente, false, false, false, false, '');
$pdf->Image('../../../tcPDF/tcpdf/tcpdf/images/line.jpg', '', '', 190, 1);
$pdf->writeHTML('<br>', true, false, false, false, '');
$pdf->SetFont($family, $styleNormal, $sizeTitulo);
$pdf->writeHTML($datosmedico, false, false, false, false, '');
$pdf->Image('../../../tcPDF/tcpdf/tcpdf/images/line.jpg', '', '', 190, 1);
$pdf->writeHTML('<br>', true, false, false, false, '');
if ($imprimeExaMed) {
$pdf->SetFont($family, $styleNegrita, $sizeSubtitulo);
$pdf->Write(0, 'EXAMENES MEDICOS', '', 0, 'L', true, 0, false, false, 0);
$pdf->Image('../../../tcPDF/tcpdf/tcpdf/images/line.jpg', 11, '', 23, 1);
$pdf->writeHTML('<br>', true, false, false, false, '');
$pdf->SetFont($family, $styleNormal, $sizeDatos);
$pdf->writeHTML($cadenaExamenes, true, false, false, false, '');
}
if ($imprimeDiagnostico) {
$pdf->SetFont($family, $styleNegrita, $sizeSubtitulo);
$pdf->Write(0, 'DIAGNOSTICO', '', 0, 'L', true, 0, false, false, 0);
$pdf->Image('../../../tcPDF/tcpdf/tcpdf/images/line.jpg', 11, '', 16, 1);
$pdf->writeHTML('<br>', true, false, false, false, '');
$pdf->SetFont($family, $styleNormal, $sizeDatos);
$pdf->writeHTML($cadenaDiagnostico, true, false, false, false, '');
}
if ($x <= count($arrayHC) - 1) {
$x++;
}
}
$pdf->Output('preventivas.pdf', 'I');
}
$datosCabecera[2] = $datosPaciente[0][0];
$datosCabecera[3] = $datosPaciente[0][1];
$datosCabecera[4] = $datosPaciente[0][2];
$datosCabecera[5] = $datosPaciente[0][3];
$datosCabecera[6] = $datosPaciente[0][4];
$datosCabecera[7] = $datosPaciente[0][6];
$datosCabecera[8] = $datosPaciente[0][5];
$datosCabecera[9] = $datosPaciente[0][7];
$datosCabecera[10] = $datosPaciente[0][8];
$datosCabecera[11] = $datosPaciente[0][9];
$datosCabecera[12] = $datosPaciente[0][10];
$datosCabecera[13] = $datosPaciente[0][11];
/* ===================================================================================================== */
/* ======================================= Datos de Detalle ============================================ */
$o_ActionReporte = new ActionReporte();
$oLActoMedico = new LActoMedico();
$listaAtenciones = $o_ActionReporte->listaAtencionesXDia($idPrograma);
//$listaAtenciones[$i][0]--> idPrigramacion
$antecedentes = $o_ActionReporte->rptAntecedentesPRograma($idPrograma);
//serecupera los antecedentes de golpe
$historiaOdontograma = $oLActoMedico->listadoHistoriaDiente($idPrograma);
$simbolosImagen = $oLActoMedico->listaImagenesOdontograma($idPrograma);
$nroPlaca = $oLActoMedico->lstListarNumeroIFExistePlaca($idPrograma);
$arrayHC = array();
foreach ($listaAtenciones as $i => $value) {
$datosMed = $oLActoMedico->atencionMedico($listaAtenciones[$i][0]);
$motivoConsulta = $o_ActionReporte->rptMotivoConsulta($listaAtenciones[$i][0]);
$triaje = $o_ActionReporte->rptTriaje($listaAtenciones[$i][0]);
//------------------------------------------------------------------------------------
$examenesMedicos = $o_ActionReporte->rptExamenesMedicos($listaAtenciones[$i][0]);
$datosExamenes = array();
<tr align="center">
<td>
<h1>Procedimientos Consultas</h1>
</td>
<td style="width:3%">
<img id="Div_ProcedimientoConsultaCuerpoicono" src='../../../imagen/icono/desplegar.png' title='desplegar' alt=""/>
</td>
</tr>
</table>
</div>
<div id="Div_ProcedimientoConsultaCuerpo" style="width:100%;border-style: solid;border-width: 1px">
<?php
$resultadoDatos = $this->arrayDatosConsultaCitaHistoria($datos);
require_once "tablaAngelSayes.php";
$tabla = new TablaAngelSayes();
$oLActoMedico = new LActoMedico();
$array = $oLActoMedico->lCargarTablaProcedientosConsulta($resultadoDatos);
$arrayWidth = array(0 => "110", 1 => "100", 2 => "90", 3 => "700");
$arrayTitulos = array(0 => "Num. Orden ", 1 => "Fecha", 2 => "Afiliacion", 3 => "Servicio");
$arrayAlign = array(0 => "center", 1 => "center", 2 => "center", 3 => "left ");
$arrayType = array(0 => "text", 1 => "text", 2 => "text", 3 => "text");
$arrayCursor = array(0 => "default", 1 => "default", 2 => "default", 3 => "default");
$arrayFunctionXCelda = array(0 => "", 1 => "", 2 => "", 3 => "");
$arrayImagenPorCelda = array(0 => "0", 1 => "0", 2 => "0", 3 => "0");
$arrayUrlImagen = array(0 => "", 1 => "", 2 => "", 3 => "", 4 => "");
$arrayFunction = array(0 => "", 1 => "", 2 => "", 3 => "", 4 => "");
$arrayTitle = array(0 => "", 1 => "", 2 => "", 3 => "");
$numDatosEnviadosFuncionCadena = 1;
$scroll = 1;
$height = "auto";
echo $resultado = $tabla->contructorTabla($scroll, $numDatosEnviadosFuncionCadena, $arrayFunctionXCelda, $arrayTitle, $arrayFunction, $arrayImagenPorCelda, $arrayUrlImagen, $array, $arrayWidth, $arrayTitulos, $arrayAlign, $arrayType, $arrayCursor, $height);
function aGenerarSintomaticoRespiratorio($datos)
{
$o_LActoMedico = new LActoMedico();
$resultado = $o_LActoMedico->lGenerarSintomaticoRespiratorio($datos);
return $resultado[0][0];
}
