Tiny File Manager

Back Back Up Advanced Editor

<?php
require_once __DIR__ . '/../model/ReportesPdf.php';
require_once __DIR__ . '/../tcpdf_min/tcpdf.php';
class ReportesControllers
{

public function exportar_pdf()
    {
        if (!isset($_SESSION['usuario'])) {
            header('Location: /login/index');
            exit;
        }

$cedula = $_GET['cedula'] ?? '';
        if (!$cedula) die("No se indicó cédula");

$modelo = new ReportesModel();
        $paciente = $modelo->obtenerHojaVida($cedula);
        $diagnosticos = $modelo->obtenerDiagnosticos($cedula);

if (!$paciente) die("Paciente no encontrado");

// Crear PDF
        $pdf = new TCPDF();
        $pdf->SetCreator(PDF_CREATOR);
        $pdf->SetAuthor('Avicampo');
        $pdf->SetTitle('Historia Clínica - ' . $paciente['nombre']);
        $pdf->SetMargins(15, 20, 15);
        $pdf->AddPage();

// Logo
        $logo = $_SERVER['DOCUMENT_ROOT'] . '/casos_medicos1/public/assets/logo_avicampo.png';
        if (file_exists($logo)) $pdf->Image($logo, 15, 10, 40);

// Foto paciente
        $foto = $_SERVER['DOCUMENT_ROOT'] . '/casos_medicos1/public/' . $paciente['foto'];
        if (!empty($paciente['foto']) && file_exists($foto)) $pdf->Image($foto, 150, 10, 40);

$pdf->Ln(20);
        $pdf->SetFont('helvetica', 'B', 16);
        $pdf->Cell(0, 10, 'Historia Clínica - ' . $paciente['nombre'], 0, 1, 'C');

// Datos Generales y Laborales
 $pdf->SetFont('helvetica', '', 10);
 $html = '<h4>Datos Generales</h4>
 <table cellpadding="4" border="1">
 <tr><td>Cédula:</td><td>' . $paciente['cedula'] . '</td></tr>
 <tr><td>Nombre:</td><td>' . $paciente['nombre'] . '</td></tr>
 <tr><td>Fecha Nacimiento:</td><td>' . $paciente['fecha_nacimiento'] . '</td></tr>
 <tr><td>Edad:</td><td>' . $paciente['edad'] . '</td></tr>
 <tr><td>Sexo:</td><td>' . $paciente['sexo'] . '</td></tr>
 <tr><td>Estado:</td><td>' . $paciente['estado'] . '</td></tr>
 </table>

<h4>Datos Laborales</h4>
 <table cellpadding="4" border="1">
 <tr><td>AFP:</td><td>' . $paciente['afp'] . '</td></tr>
 <tr><td>EPS:</td><td>' . $paciente['eps'] . '</td></tr>
 <tr><td>ARL:</td><td>' . $paciente['arl'] . '</td></tr>
 <tr><td>Tipo Contrato:</td><td>' . $paciente['tipo_contrato'] . '</td></tr>
 <tr><td>Empresa:</td><td>' . $paciente['empresa'] . '</td></tr>
 <tr><td>Planta:</td><td>' . $paciente['planta'] . '</td></tr>
 <tr><td>Regional:</td><td>' . $paciente['regional'] . '</td></tr>
 <tr><td>Centro Trabajo:</td><td>' . $paciente['centro_trabajo'] . '</td></tr>
 <tr><td>Cargo Inicial:</td><td>' . $paciente['cargo_inicial'] . '</td></tr>
 <tr><td>Fecha Inicio:</td><td>' . $paciente['fecha_inicio'] . '</td></tr>
 <tr><td>Nuevo Cargo:</td><td>' . $paciente['cargo_reubicado'] . '</td></tr>
 <tr><td>Productividad:</td><td>' . $paciente['productividad'] . '</td></tr>
 <tr><td>Semanas Cotización:</td><td>' . $paciente['semanas_cotizacion'] . '</td></tr>
 <tr><td>Tipo Rehabilitación:</td><td>' . $paciente['tipo_rehabilitacion'] . '</td></tr>
 </table>';

$pdf->writeHTML($html, true, false, true, false, '');

// Diagnósticos
        $pdf->Ln(5);
        $pdf->SetFont('helvetica', 'B', 12);
        $pdf->Cell(0, 6, 'Diagnósticos', 0, 1);
        $pdf->SetFont('helvetica', '', 10);

if (!empty($diagnosticos)) {
            foreach ($diagnosticos as $d) {
                $pdf->MultiCell(
                    0,
                    5,
                    "Fecha: " . $d['fecha'] .
                        " | Estado: " . ($d['estado'] ?? '-') .
                        " | Diagnóstico: " . ($d['diagnostico_descripcion'] ?? '-') .
                        "\nPeso: " . ($d['peso'] ?? '-') .
                        " | Talla: " . ($d['talla'] ?? '-') .
                        " | IMC: " . ($d['imc'] ?? '-') .
                        "\nOrigen: " . ($d['origen'] ?? '-') .
                        " | Calificación: " . ($d['calificacion_origen'] ?? '-') .
                        "\nTipo Reintegro: " . ($d['tipo_reintegro'] ?? '-') .
                        " | Tiempo Recomendación: " . ($d['tiempo_recomendacion'] ?? '-') .
                        "\nFunciones Iniciales: " . ($d['funciones_iniciales'] ?? '-') .
                        "\nFunciones Actuales: " . ($d['funciones_actuales'] ?? '-') .
                        "\nRecomendaciones: " . ($d['recomendaciones'] ?? '-'),
                    0,
                    'J',
                    false,
                    1
                );
                $pdf->Ln(2);
            }
        } else {
            $pdf->Cell(0, 5, "No hay diagnósticos registrados", 0, 1);
        }

// Generar PDF
        $pdf->Output('Historia_Clinica_' . $paciente['cedula'] . '.pdf', 'D');
    }
}