name ?? '') . ' ' . ($_u->lastname ?? '')); if ($_n !== '') { $clinicademo_sig_user_name = $_n; } elseif (!empty($_u->username)) { $clinicademo_sig_user_name = $_u->username; } } } if (!isset($_GET['pacient_id'])) { die('Paciente ID requerido'); } $pacientId = intval($_GET['pacient_id']); $con = Database::getCon(); $pacient = $con->query("SELECT * FROM pacient WHERE id = $pacientId")->fetch_object(); if (!$pacient) die('Paciente no encontrado'); $age = $pacient->birthdate ? floor((time() - strtotime($pacient->birthdate)) / (365.25 * 24 * 60 * 60)) : ''; $sexo = $pacient->sex === 'F' ? 'Femenino' : ($pacient->sex === 'M' ? 'Masculino' : ''); // Cama del paciente $cama = ''; $admCama = $con->query("SELECT * FROM admission WHERE pacient_id = $pacientId ORDER BY created_at DESC LIMIT 1")->fetch_object(); if ($admCama && !empty($admCama->room_id)) { $r = $con->query("SELECT no_cama, numero, habitacion FROM room WHERE id = " . intval($admCama->room_id))->fetch_object(); if ($r) { $cama = trim(($r->habitacion ?? '') . ' ' . ($r->no_cama ?? '')); if (!$cama) $cama = 'Habitación ' . ($r->numero ?? $admCama->room_id); } } // Glicemias $glicemias = []; $res = $con->query("SELECT g.*, u.name AS user_name, u.lastname AS user_lastname FROM patient_glicemias g LEFT JOIN user u ON g.created_by = u.id WHERE g.pacient_id = $pacientId ORDER BY g.created_at ASC"); while ($r = $res->fetch_assoc()) { $glicemias[] = $r; } require_once 'tcpdf/tcpdf.php'; $pdf = new TCPDF('P', 'mm', 'A4', true, 'UTF-8', false); $pdf->SetCreator('Cedimik'); $pdf->SetAuthor('Cedimik'); $pdf->SetTitle('Control de Glicemias - ' . PacientData::fullName($pacient)); $pdf->setPrintHeader(false); $pdf->setPrintFooter(false); $pdf->SetMargins(12, 12, 12); $pdf->SetAutoPageBreak(true, 14); $pdf->SetFont('helvetica', '', 9); $pdf->AddPage(); // Header $pdf->Image('assets/images/logo/logo.png', 12, 8, 28, 14, 'PNG'); $pdf->SetFont('helvetica', 'B', 14); $pdf->SetXY(44, 8); $pdf->Cell(150, 7, 'CONTROL DE GLICEMIAS', 0, 1, 'L'); $pdf->SetFont('helvetica', '', 8); $pdf->SetXY(44, 15); $pdf->Cell(150, 4, 'Cedimik', 0, 1, 'L'); // Datos del paciente $pdf->Ln(2); $pdf->SetFont('helvetica', 'B', 9); $pdf->SetFillColor(108, 117, 125); // Bootstrap secondary gray $pdf->SetTextColor(255, 255, 255); $pdf->Cell(0, 6, ' DATOS DEL PACIENTE', 1, 1, 'L', true); $pdf->SetTextColor(0, 0, 0); $html = '

Nombre	' . htmlspecialchars($pacient->name) . '	Edad	' . $age . ' años	Cama	' . htmlspecialchars($cama ?: '-') . '
C.I.	' . htmlspecialchars($pacient->dni ?? '-') . '	Sexo	' . $sexo . '

'; $pdf->writeHTML($html, true, false, false, false, ''); $pdf->Ln(3); // Registros - un cuadro por glicemia con cuadro de firma a la derecha $tableLeft = 12; $boxSize = 25; $contentW = 186 - $boxSize; // 161mm if (count($glicemias) > 0) { // Header de la tabla $tblHtml = ' '; foreach ($glicemias as $g) { $fecha = date('d/m/Y', strtotime($g['created_at'])); $hora = date('H:i', strtotime($g['created_at'])); $valor = number_format((float)$g['valor'], 1); $unidad = $g['unidad'] ?? 'mg/dL'; $obs = $g['observaciones'] ?? ''; $user = trim(($g['user_name'] ?? '') . ' ' . ($g['user_lastname'] ?? '')); if (!$user) $user = '-'; // Color de la celda de glicemia según rango. Solo se aplica color cuando el valor está fuera de lo normal (v < 70 o v > 180). Normal no se tiñe. $v = (float)$g['valor']; if ($v < 70) { $bgColor = '#ffc107;'; // warning yellow (Bootstrap) $colorLabel = 'Hipoglicemia'; } elseif ($v > 180) { $bgColor = '#dc3545;'; // danger red (Bootstrap) $colorLabel = 'Hiperglicemia'; } else { $bgColor = ''; // sin teñir (Normal) $colorLabel = 'Normal'; } $obsHtml = $obs !== '' ? nl2br(htmlspecialchars($obs)) : 'Sin corrección'; $tblHtml .= ' '; } $tblHtml .= '

Fecha	Hora	Glicemia	Corrección con insulina	Firma
' . $fecha . '	' . $hora . '	' . $valor . ' ' . htmlspecialchars($unidad) . ' ' . $colorLabel . '	' . $obsHtml . '	' . htmlspecialchars($user) . '

'; $pdf->writeHTML($tblHtml, true, false, false, false, ''); } else { $pdf->SetFont('helvetica', 'I', 9); $pdf->Cell(0, 6, 'No hay glicemias registradas para este paciente.', 1, 1, 'L'); } // Footer $pdf->SetY(-12); $pdf->SetFont('helvetica', 'I', 7); $pdf->Cell(0, 3, 'Control de Glicemias - Cedimik | Generado por: ' . $clinicademo_sig_user_name . ' | ' . date('d/m/Y H:i:s'), 0, 1, 'C'); $pdf->Output('Glicemias_' . $pacientId . '.pdf', 'I');