name ?? '') . ' ' . ($_u->lastname ?? '')); if ($_n !== '') { $clinicademo_sig_user_name = $_n; } elseif (!empty($_u->username)) { $clinicademo_sig_user_name = $_u->username; } } } $clinicademo_sig_footer = 'Generado por: ' . $clinicademo_sig_user_name . ' | ' . date('d/m/Y H:i:s'); if (!isset($_GET['id'])) { die('ID requerido'); } $id = intval($_GET['id']); $con = Database::getCon(); $protocol = $con->query("SELECT * FROM surgical_protocol WHERE id = $id")->fetch_object(); if (!$protocol) { die('Protocolo no encontrado'); } $pacient = $con->query("SELECT * FROM pacient WHERE id = $protocol->pacient_id")->fetch_object(); $age = $pacient->birthdate ? floor((time() - strtotime($pacient->birthdate)) / (365.25 * 24 * 60 * 60)) : ''; $sexo = $pacient->sex === 'F' ? 'Femenino' : ($pacient->sex === 'M' ? 'Masculino' : ''); require_once 'tcpdf/tcpdf.php'; $pdf = new TCPDF('P', 'mm', 'A4', true, 'UTF-8', false); $pdf->SetCreator('Laboratorio Demo Clinica Especializada'); $pdf->SetAuthor('Laboratorio Demo Clinica Especializada'); $pdf->SetTitle('Protocolo Quirúrgico - ' . $pacient->name); $pdf->setPrintHeader(false); $pdf->setPrintFooter(false); $pdf->SetMargins(15, 10, 15); $pdf->SetAutoPageBreak(true, 15); $pdf->AddPage(); $pdf->Image('assets/images/logo/logo.png', 15, 8, 30, 15, 'PNG', '', '', true, 150, '', false, false, 0, false, false, false); $pdf->SetFont('helvetica', 'B', 14); $pdf->Cell(0, 8, 'PROTOCOLO QUIRÚRGICO', 0, 1, 'C'); $pdf->Ln(2); // Datos del paciente $pdf->SetFont('helvetica', 'B', 9); $pdf->SetFillColor(44, 62, 80); $pdf->SetTextColor(255, 255, 255); $pdf->Cell(0, 5, ' DATOS DEL PACIENTE', 1, 1, 'L', true); $pdf->SetTextColor(0, 0, 0); $pdf->SetFont('helvetica', '', 9); $html = '

Nombre:	' . htmlspecialchars($pacient->name) . '	Edad:	' . $age . ' años	Sexo:	' . $sexo . '
C.I.:	' . htmlspecialchars($pacient->dni ?? '-') . '	Fecha:	' . date('d/m/Y', strtotime($protocol->fecha)) . '	Hora Inicio:	' . ($protocol->hora_inicio ? date('H:i', strtotime($protocol->hora_inicio)) : '-') . '
Hora Fin:	' . ($protocol->hora_finalizacion ? date('H:i', strtotime($protocol->hora_finalizacion)) : '-') . '	Tipo Operación:	' . htmlspecialchars($protocol->tipo_operacion ?? '-') . '

'; $pdf->writeHTML($html, true, false, false, false, ''); $pdf->Ln(3); // Diagnósticos $pdf->SetFont('helvetica', 'B', 9); $pdf->SetFillColor(44, 62, 80); $pdf->SetTextColor(255, 255, 255); $pdf->Cell(0, 5, ' DIAGNÓSTICOS', 1, 1, 'L', true); $pdf->SetTextColor(0, 0, 0); $html = '

Pre-Operatorio:	' . nl2br(htmlspecialchars($protocol->diagnostico_pre_operatorio ?? '')) . '
Post-Operatorio:	' . nl2br(htmlspecialchars($protocol->diagnostico_post_operatorio ?? '')) . '

'; $pdf->writeHTML($html, true, false, false, false, ''); $pdf->Ln(3); // Equipo Quirúrgico $pdf->SetFont('helvetica', 'B', 9); $pdf->SetFillColor(44, 62, 80); $pdf->SetTextColor(255, 255, 255); $pdf->Cell(0, 5, ' EQUIPO QUIRÚRGICO', 1, 1, 'L', true); $pdf->SetTextColor(0, 0, 0); $html = '

Cirujano:	' . htmlspecialchars($protocol->cirujano ?? '-') . '
1er Ayudante:	' . htmlspecialchars($protocol->primer_ayudante ?? '-') . '
2do Ayudante:	' . htmlspecialchars($protocol->segundo_ayudante ?? '-') . '
3er Ayudante:	' . htmlspecialchars($protocol->tercer_ayudante ?? '-') . '
Instrumentador:	' . htmlspecialchars($protocol->instrumentador ?? '-') . '
Anestesiólogo:	' . htmlspecialchars($protocol->anestesiologo ?? '-') . '
Tipo de Anestesia:	' . htmlspecialchars($protocol->tipo_anestesia ?? '-') . '
Otro Médico Tratante:	' . htmlspecialchars($protocol->otro_medico_tratante ?? '-') . '

'; $pdf->writeHTML($html, true, false, false, false, ''); $pdf->Ln(3); // Descripción $pdf->SetFont('helvetica', 'B', 9); $pdf->SetFillColor(44, 62, 80); $pdf->SetTextColor(255, 255, 255); $pdf->Cell(0, 5, ' DESCRIPCIÓN DEL ACTO OPERATORIO', 1, 1, 'L', true); $pdf->SetTextColor(0, 0, 0); $pdf->SetFont('helvetica', '', 9); $pdf->MultiCell(0, 5, htmlspecialchars($protocol->descripcion_acto_operatorio ?? '(Sin registro)'), 1, 'L'); $pdf->Ln(3); // Hallazgos y Complicaciones $pdf->SetFont('helvetica', 'B', 9); $pdf->SetFillColor(44, 62, 80); $pdf->SetTextColor(255, 255, 255); $pdf->Cell(0, 5, ' HALLAZGOS Y COMPLICACIONES', 1, 1, 'L', true); $pdf->SetTextColor(0, 0, 0); $html = '

Hallazgos Intraoperatorios:	' . nl2br(htmlspecialchars($protocol->hallazgos_intraoperatorios ?? '')) . '
Complicaciones:	' . nl2br(htmlspecialchars($protocol->complicaciones_intraoperatorias ?? '')) . '

'; $pdf->writeHTML($html, true, false, false, false, ''); $pdf->Ln(3); // Material Empleado $pdf->SetFont('helvetica', 'B', 9); $pdf->SetFillColor(44, 62, 80); $pdf->SetTextColor(255, 255, 255); $pdf->Cell(0, 5, ' MATERIAL EMPLEADO', 1, 1, 'L', true); $pdf->SetTextColor(0, 0, 0); $html = '

N° de Gasas:	' . htmlspecialchars($protocol->nro_gasas ?? '-') . '
N° de Compresas:	' . htmlspecialchars($protocol->nro_compresas ?? '-') . '
Materias de Sutura:	' . htmlspecialchars($protocol->materias_sutura ?? '-') . '
Drenaje (Tipo y Cantidad):	' . htmlspecialchars($protocol->drenaje ?? '-') . '
Otros Materiales:	' . htmlspecialchars($protocol->otros_materiales ?? '-') . '
Tamaño y N° Empleado:	' . htmlspecialchars($protocol->tamano_nro_empleado ?? '-') . '

'; $pdf->writeHTML($html, true, false, false, false, ''); $pdf->Ln(8); // Esquema Gráfico (empty box) $pdf->SetFont('helvetica', 'B', 9); $pdf->SetFillColor(44, 62, 80); $pdf->SetTextColor(255, 255, 255); $pdf->Cell(0, 5, ' ESQUEMA GRÁFICO', 1, 1, 'L', true); $pdf->SetTextColor(0, 0, 0); $pdf->SetFillColor(245, 245, 245); $pdf->Rect(15, $pdf->GetY(), 180, 80); $pdf->SetXY(15, $pdf->GetY() + 35); $pdf->SetFont('helvetica', 'I', 8); $pdf->SetTextColor(150, 150, 150); $pdf->Cell(180, 10, '(Espacio para dibujo)', 0, 1, 'C'); $pdf->SetTextColor(0, 0, 0); $pdf->SetY($pdf->GetY() + 45); // Firmas $pdf->Ln(5); $pdf->SetFont('helvetica', '', 9); $pdf->Cell(80, 5, '_________________________', 0, 0, 'C'); $pdf->Cell(25); $pdf->Cell(80, 5, '_________________________', 0, 1, 'C'); $pdf->Cell(80, 5, 'Cirujano', 0, 0, 'C'); $pdf->Cell(25); $pdf->Cell(80, 5, 'Sello y Firma', 0, 1, 'C'); // Footer $pdf->SetY(-10); $pdf->SetFont('helvetica', 'I', 5); $pdf->Cell(0, 3, 'Protocolo Quirúrgico - Laboratorio Demo Clinica Especializada | Generado por: ' . $clinicademo_sig_user_name . ' | ' . date('d/m/Y H:i:s'), 0, 1, 'C'); $pdf->Output('Protocolo_Quirurgico_' . $protocol->id . '.pdf', 'I');