<?php
//============================================================+
// File name   : example_012.php
// Begin       : 2008-03-04
// Last Update : 2013-05-14
//
// Description : Example 012 for TCPDF class
//               Graphic Functions
//
// Author: Nicola Asuni
//
// (c) Copyright:
//               Nicola Asuni
//               Tecnick.com LTD
//               www.tecnick.com
//               info@tecnick.com
//============================================================+

/**
 * Creates an example PDF TEST document using TCPDF
 * @package com.tecnick.tcpdf
 * @abstract TCPDF - Example: Graphic Functions
 * @author Nicola Asuni
 * @since 2008-03-04
 */
header("Content-Type:text/html;charset=utf-8");
// Incluir librerias de datos
include_once('../php_conexion.php'); 
include_once('../Class/funciones.php');
$idpac=$_GET['idpac'];
//$acumulado=0;
$queryinfpac=mysqli_query($conexion,"SELECT * FROM paciente WHERE idpaciente=$idpac ORDER BY idpaciente DESC LIMIT 1");
$datainfpac=mysqli_fetch_array($queryinfpac);
/*$querycaja=mysqli_query($conexion,"SELECT importe FROM caja WHERE idpaciente=$idpac");
while ($rowcaja=mysqli_fetch_array($querycaja)) {
    $acumulado+=$rowcaja['importe'];
}*/
$meses = array("Enero","Febrero","Marzo","Abril","Mayo","Junio","Julio","Agosto","Septiembre","Octubre","Noviembre","Diciembre");
if ($datainfpac['tipodoc']=="dni"){
    $tipodoc="DNI";
}elseif ($datainfpac['tipodoc']=="ce") {
    $tipodoc="Carnet de extranjeria";
}elseif($datainfpac['tipodoc']=="pas") {
    $tipodoc="Pasaporte";
}

// Include the main TCPDF library (search for installation path).
require_once('../tcpdf/tcpdf.php');

// Extend the TCPDF class to create custom Header and Footer
class MYPDF extends TCPDF {

    //Page header
    public function Header() {
        // Logo
        $image_file = 'logoumsomd.png';
        $this->Image($image_file, 12, 6, 45, '', 'PNG', '', 'T', false, 300, '', false, false, 0, false, false, false);
        // Position at 15 mm from bottom
        //$this->SetY(25);
        // Set font
        //$this->SetFont('times', 'BI', 20);
        // Title
        //$this->Cell(0, 10, 'Informe Citológico', 0, false, 'C', 0, '', 0, false, 'M', 'M');
    }

    // Page footer
    public function Footer() {
        // Position at 15 mm from bottom
        $this->SetY(-10);
        // Set font
        $this->SetFont('helvetica', 'I', 10);
        // set color for background
		$this->SetFillColor(193, 274, 255);
        // Page number
        //$this->Cell(0, 10, 'Page '.$this->getAliasNumPage().'/'.$this->getAliasNbPages(), 0, false, 'C', 0, '', 0, false, 'T', 'M');
        $this->Cell(0, 5, 'CONSULTORIO: AV. MICAELA BASTIDAS Nº443 EDIFICIO EL ROBLE OF. Nº 801 TELF: 084-248494', 0, false, 'C', 0, '', 0, false, 'T', 'M');
    }
}

// create new PDF document
$pdf = new MYPDF(PDF_PAGE_ORIENTATION, PDF_UNIT, PDF_PAGE_FORMAT, true, 'UTF-8', false);

//establecer margenes
//$pdf->SetMargins(5,5,10);
$pdf->setHeaderMargin(10);
$pdf->SetFooterMargin(0);
$pdf->setPrintFooter(false);

// set document information
$pdf->SetCreator(PDF_CREATOR);
$pdf->SetAuthor('Jose HUiñapi');
$pdf->SetTitle('CONSENTIMIENTO INFORMADO');
$pdf->SetSubject('Paciente');
$pdf->SetKeywords('Consentimiento, PDF, Paciente');

// set default header data
    $pdf->SetHeaderData(PDF_HEADER_LOGO, PDF_HEADER_LOGO_WIDTH, PDF_HEADER_TITLE, PDF_HEADER_STRING);

// disable header and footer
//$pdf->setPrintHeader(false);
//$pdf->setPrintFooter(false);

// CONJUNTO CABESERA Y PIE DE PAGINA

    $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(PDF_MARGIN_LEFT, PDF_MARGIN_TOP, PDF_MARGIN_RIGHT);
$pdf->SetHeaderMargin(PDF_MARGIN_HEADER);
$pdf->SetFooterMargin(PDF_MARGIN_FOOTER);

// set auto page breaks
$pdf->SetAutoPageBreak(TRUE, PDF_MARGIN_BOTTOM);

// set image scale factor
$pdf->setImageScale(PDF_IMAGE_SCALE_RATIO);

// set some language-dependent strings (optional)
if (@file_exists(dirname(__FILE__).'/lang/eng.php')) {
	require_once(dirname(__FILE__).'/lang/eng.php');
	$pdf->setLanguageArray($l);
}

// ---------------------------------------------------------

// set font
$pdf->SetFont('times', 'B', 12);
// add page
$pdf->AddPage('P','A4');

//ESTILOS PARA GRAFICOS
$style = array('width' => 0.5, 'cap' => 'butt', 'join' => 'miter', 'dash' => '3,3,3,3', 'phase' => 10, 'color' => array(0, 0, 0));
$style2 = array('width' => 0.5, 'cap' => 'butt', 'join' => 'miter', 'dash' => 0, 'color' => array(0, 0, 0));
$style3 = array('width' => 1, 'cap' => 'round', 'join' => 'round', 'dash' => '2,10', 'color' => array(255, 0, 0));
$style4 = array('L' => 0,
                'T' => array('width' => 0.25, 'cap' => 'butt', 'join' => 'miter', 'dash' => '20,10', 'phase' => 10, 'color' => array(100, 100, 255)),
                'R' => array('width' => 0.50, 'cap' => 'round', 'join' => 'miter', 'dash' => 0, 'color' => array(50, 50, 127)),
                'B' => array('width' => 0.75, 'cap' => 'square', 'join' => 'miter', 'dash' => '30,10,5,10'));
$style5 = array('width' => 0.25, 'cap' => 'butt', 'join' => 'miter', 'dash' => 0, 'color' => array(0, 64, 128));
$style6 = array('width' => 0.5, 'cap' => 'butt', 'join' => 'miter', 'dash' => '10,10', 'color' => array(0, 128, 0));
$style7 = array('width' => 0.5, 'cap' => 'butt', 'join' => 'miter', 'dash' => 0, 'color' => array(255, 128, 0));

//$txt = <<<EOD
//CONSULTORIO DE ANATOMIA PATOLOGICA Y CITOLOGIA
//EOD;

//$pdf->SetY(15);
//$pdf->Write(1, $txt, '', 0, 'C', true, 0, false, false, 0);

//Titulo
$pdf->Write(0, 'CONSENTIMIENTO INFORMADO', '', 0, 'C', true, 0, false, false, 0);

//Cuerpo
$html='<span style="text-align:justify;"><p>Yo, <b>'.$datainfpac['nombre'].' '.$datainfpac['apepaterno'].' '.$datainfpac['apematerno'].'</b>, identificado con '.$tipodoc.' N° <b>'.$datainfpac['numdoc'].'</b>, concedo autorización expresa para que UMSO PERU S.A.C. me realice la prueba para detección de ANTICUERPOS IgG/IgM SARS CoV-2 (test rápido). Dicha prueba se realiza a través de punción venosa, cumpliendo estrictamente las recomendaciones establecidas por el fabricante y las medidas de bioseguridad estándar.</p><p>Asimismo, tomo conocimiento y autorizo expresamente que, de obtenerse un resultado positivo, este podría corresponder a un falso positivo salvo que el departamento médico determine lo contrario. En caso sea confirmado positivo, me comprometo a cumplir con un aislamiento domiciliario por el lapso de 14 días.</p><p>Adicionalmente, tomo conocimiento y autorizo que los resultados sean enviados a la plataforma del Ministerio de Salud para el registro estadístico correspondiente, así como al médico ocupacional de mi empleador.</p><p>Al mismo tiempo, tomo conocimiento y dejo constancia expresa que, los estudios de investigación a la fecha demuestran que, no todo paciente infectado por SARS-CoV-2 y que desarrolle la enfermedad (COVID-19) tiene una prueba serológica positiva. Es decir que, el resultado de la prueba que se me está practicando, puede mostrar un resultado negativo, y, sin embargo, desarrollar la enfermedad con posterioridad, en cuyo caso, se deberán evaluar los datos epidemiológicos, clínicos, radiológicos, y laboratoriales para definir la enfermedad.</p><p>Certifico que (I) he tenido la oportunidad de preguntar sobre esta prueba, (II) me explicaron los beneficios que se espera pueda obtener con esta prueba, (III) me respondieron las preguntas que realicé, y (IV) entiendo lo que es y cuáles son sus riesgos. También, dejo constancia que tengo conocimiento que nos encontramos ante una Pandemia declarada por la Organización Mundial de la Salud – OMS y que si bien, sé que puedo negarme a la realización de la prueba, esto puede implicar que propague el virus, por lo que entiendo que debo hacerme la prueba.</p><p>Cusco, '.substr($datainfpac['fecha'], 8).' de '.$meses[substr($datainfpac['fecha'], 5, -3)-1].' de '.substr($datainfpac['fecha'], 0, -6).'</p><p></p><p></p><p></p><p>Firma:</p><p>Nombre: <b>'.$datainfpac['nombre'].' '.$datainfpac['apepaterno'].' '.$datainfpac['apematerno'].'</b><br />'.$tipodoc.': <b>'.$datainfpac['numdoc'].'</b></p><p>Flebotomista o personal médico – asistencial que realizó la toma de muestra:</p></span>';

$pdf->SetFont('times', '', 11.5);
$pdf->writeHTML($html, true, 0, true, true);

$pdf->setCellMargins(0, 1, 0, 1);
$pdf->SetFillColor(255,255,255);
$pdf->SetTextColor(0,0,0);
$pdf->SetXY(50, 265);
$pdf->MultiCell(0, 3, 'Firma y sello Medico', 0, 'L', 1, 0, '', '', true, 0, true, true, 40, 'T');
$pdf->SetXY(120, 265);
$pdf->MultiCell(0, 3, 'Firma y sello Biologa', 0, 'L', 1, 0, '', '', true, 0, true, true, 40, 'T');

$pdf->AddPage('P','A4');

$pdf->SetFont('times', 'B', 12);
//Titulo
$pdf->Write(0, 'DESESTIMIENTO INFORMADO', '', 0, 'C', true, 0, false, false, 0);

$pdf->SetFont('times', '', 11);
//Cuerpo
$desentimiento='<span style="text-align:justify;"><p>Yo, <b>'.$datainfpac['nombre'].' '.$datainfpac['apepaterno'].' '.$datainfpac['apematerno'].'</b>, identificado con '.$tipodoc.' N° <b>'.$datainfpac['numdoc'].'</b>, he sido informado y conozco explícitamente de la naturaleza y riesgos que implica negarme a hacerme la prueba, así como de los beneficios de conocer mi diagnóstico, sin embargo, por medio del presente manifiesto de forma libre y consciente mi DESISTIMIENTO para realizarme la prueba serológica para el estudio del SARS-CoV-2 responsable de COVID-19, haciéndome único y exclusivo responsable de las consecuencias que pueden derivarse de esta decisión y exonerando en tal sentido a UMSO PERU S.A.C., a sus miembros y a mi médico tratante de cualquier consecuencia hacia mi estado de salud derivada de mi probado desistimiento.</p><p>Asimismo, dejo constancia que, tengo conocimiento que en caso me desista de realizarme esta prueba, UMSO PERU S.A.C. comunicará dicho hecho a las autoridades pertinentes, así como a mi empleador.</p><p>Cusco, '.substr($datainfpac['fecha'], 8).' de '.$meses[substr($datainfpac['fecha'], 5, -3)-1].' de '.substr($datainfpac['fecha'], 0, -6).'</p><p></p><p></p><p></p><p></p><p></p><p>Firma del paciente o responsable:</p><p>Nombre: <b>'.$datainfpac['nombre'].' '.$datainfpac['apepaterno'].' '.$datainfpac['apematerno'].'</b><br />'.$tipodoc.': <b>'.$datainfpac['numdoc'].'</b></p><p>Parentesco (en caso que no sea suscrito por el Paciente):</p></span>';

$pdf->SetFont('times', '', 11.5);
$pdf->writeHTML($desentimiento, true, 0, true, true);

$pdf->AddPage('P','A4');

$pdf->SetFont('times', 'B', 12);
//Titulo
$pdf->Write(0, 'DECLARACION JURADA', '', 0, 'C', true, 0, false, false, 0);

$pdf->SetFont('times', '', 11);
$pdf->Write(0, '(Art. IV.3.- RM 111- 2020-MINEM)', '', 0, 'C', true, 0, false, false, 0);

//cuerpo
$declaracion='<span style="text-align:justify;"><p>Con fecha '.substr($datainfpac['fecha'], 8).' de '.$meses[substr($datainfpac['fecha'], 5, -3)-1].' de '.substr($datainfpac['fecha'], 0, -6).', yo:<b>'.$datainfpac['nombre'].' '.$datainfpac['apepaterno'].' '.$datainfpac['apematerno'].'</b>, identificado con '.$tipodoc.' N° <b>'.$datainfpac['numdoc'].'</b>, de la empresa <b>'.$datainfpac['empresa'].'</b>, en cumplimiento al protocolo para la implementación de medidas de prevención y respuesta frente al COVID-19 En el marco de las acciones de traslado de personas de las unidades mineras y unidades de producción  (RM 111-2020 MINEM/DM) declaro bajo juramento la siguiente información relacionada al COVID-19:</p><p>1)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<b>NO</b> tener síntomas relacionados al COVID-19 como sensación de alza térmica o fiebre, dolor de garganta, tos seca, congestión nasal, o rinorrea (secreción nasal), anosmia (perdida de olfato), Disgeusia (perdida de gusto), dolor abdominal, náuseas, diarrea, falta de aire o dificultad para respirar, desorientación o confusión, dolor en el pecho, coloración azul en los labios (cianosis), entre otros.<br />2)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<b>SI</b> tener síntomas relacionados al COVID-19 (especificar):<br />______________________________________________________________________________________________________________________________________________________________________________<br />3) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<b>NO</b> pertenecer al grupo de riesgo definido en el apartado N° 8 del documento técnico de prevención y atención de personas afectadas por el COVID-19 en el Perú (RM 39-2020-MINSA) que señala que son las personas mayores de 60 años o que tienen enfermedades cardiovasculares, diabetes, enfermedad pulmonar crónico, hipertensión arterial, cáncer u otras enfermedades crónicas.<br />4) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<b>SI</b> pertenece al grupo de riesgo, señalado en el párrafo anterior (especificar):<br />______________________________________________________________________________________________________________________________________________________________________________<br />5) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<b>NO</b> haber tenido contacto con un paciente con sospecha o diagnosticado con COVID-19<br />6) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<b>SI</b> haber tenido contacto con un paciente sospechoso o diagnostico con COVID-19<br />En caso de responder SI a la pregunta anterior, declaro:<br />• NO haber cumplido la cuarentena de 14 días en aislamiento social<br />• SI haber cumplido la cuarentena de 14 días en aislamiento social</p><p></p><p></p><p></p><p></p><p>Firma:</p><p>Nombres:<b>'.$datainfpac['nombre'].' '.$datainfpac['apepaterno'].' '.$datainfpac['apematerno'].'</b><br />'.$tipodoc.' N°:<b>'.$datainfpac['numdoc'].'</b><br />Fecha:'.$datainfpac['fecha'].'</p></span>';

$pdf->SetFont('times', '', 11.5);
$pdf->writeHTML($declaracion, true, 0, true, true);
$pdf->SetXY(20, 90);
$pdf->Cell(5, 0, '', 1, 1, 'C', 0, '', 1);
$pdf->SetXY(20, 117);
$pdf->Cell(5, 0, '', 1, 1, 'C', 0, '', 1);
$pdf->SetXY(20, 135);
$pdf->Cell(5, 0, '', 1, 1, 'C', 0, '', 1);
$pdf->SetXY(20, 160);
$pdf->Cell(5, 0, '', 1, 1, 'C', 0, '', 1);
$pdf->SetXY(20, 177);
$pdf->Cell(5, 0, '', 1, 1, 'C', 0, '', 1);
$pdf->SetXY(20, 183);
$pdf->Cell(5, 0, '', 1, 1, 'C', 0, '', 1);
// set cell padding
/*$pdf->setCellPaddings(0, 0, 0, 0);

// set cell margins
$pdf->setCellMargins(0, 1, 0, 1);
$pdf->SetFillColor(255,255,255);
$pdf->SetTextColor(0,0,0);
//TITULO
$pdf->SetFont('helvetica', 'BI', 10);
$pdf->SetXY(0, 10);
$pdf->MultiCell(0, 3, 'CONSULTORIO DE ANATOMIA PATOLOGICA Y CITOLOGICA', 0, 'C', 1, 0, '', '', true, 0, true, true, 40, 'T');
$pdf->SetXY(0, 15);
$pdf->MultiCell(140, 3, 'Dr. David Acurio Zárate', 0, 'C', 1, 0, '', '', true, 0, true, true, 40, 'T');


$pdf->SetXY(13, 45);
$pdf->MultiCell(40, 3, 'FECHA: ', 0, 'J', 1, 0, '', '', true, 0, true, true, 40, 'T');
$pdf->SetFont('helvetica', 'I', 10);
$pdf->MultiCell(100, 3, ': '.$datainfpac['fechareg'].' | '.date("g:i a"), 0, 'L', 1, 0, '', '', true, 0, false, true, 40, 'T');
$pdf->SetFont('helvetica', 'BI', 10);
$pdf->MultiCell(28, 3, 'Codigo Nº', 0, 'J', 1, 0, '', '', true, 0, true, true, 40, 'T');
$pdf->SetFont('helvetica', 'I', 10);
$pdf->Cell(20, 0, ': '.str_pad($datainfpac['codpaciente'], 6, "0", STR_PAD_LEFT), 0, 1, 'L', 0, '', 1);

//DATOS DEL PACIENTE
$pdf->SetFont('helvetica', 'BI', 10);
$pdf->SetXY(13, 55);
$pdf->MultiCell(40, 3, 'CLIENTE', 0, 'J', 1, 0, '', '', true, 0, true, true, 40, 'T');
$pdf->SetFont('helvetica', 'I', 10);
$pdf->MultiCell(100, 3, ': '.$datainfpac['apepaterno'].' '.$datainfpac['apematerno'].' '.$datainfpac['nombres'], 0, 'L', 1, 0, '', '', true, 0, false, true, 40, 'T');
$pdf->SetFont('helvetica', 'BI', 10);
$pdf->MultiCell(28, 3, $tipodoc, 0, 'J', 1, 0, '', '', true, 0, true, true, 40, 'T');
$pdf->SetFont('helvetica', 'I', 10);
$pdf->MultiCell(25, 3, ': '.$datainfpac['numdoc'], 0, 'L', 1, 0, '', '', true, 0, false, true, 40, 'T');
$pdf->SetXY(13, 65);
$pdf->SetFont('helvetica', 'BI', 10);
$pdf->MultiCell(40, 3, 'DIRECCION', 0, 'J', 1, 0, '', '', true, 0, true, true, 40, 'T');
$pdf->SetFont('helvetica', 'I', 10);
$pdf->MultiCell(140, 3, ': '.$datainfpac['direccion'], 0, 'L', 1, 0, '', '', true, 0, false, true, 40, 'T');

//DATOS DE EXAMEN
$pdf->SetXY(13, 85);
$pdf->SetFont('helvetica', 'BI', 10);
$pdf->MultiCell(40, 3, 'FECHA DE ENTREGA', 0, 'J', 1, 0, '', '', true, 0, true, true, 40, 'T');
$pdf->SetFont('helvetica', 'I', 10);
$pdf->MultiCell(140, 3, ': '.$datainfpac['fechaentrega'], 0, 'L', 1, 0, '', '', true, 0, false, true, 40, 'T');
$pdf->SetXY(13, 95);
$pdf->SetFont('helvetica', 'BI', 10);
$pdf->MultiCell(40, 3, 'TOTAL', 0, 'J', 1, 0, '', '', true, 0, true, true, 40, 'T');
$pdf->SetFont('helvetica', 'I', 10);
$pdf->MultiCell(140, 3, ': S/.'.sprintf("%01.2f",$datainfpac['precioexamen']), 0, 'L', 1, 0, '', '', true, 0, false, true, 40, 'T');
$pdf->SetXY(13, 105);
$pdf->SetFont('helvetica', 'BI', 10);
$pdf->MultiCell(40, 3, 'A CUENTA', 0, 'J', 1, 0, '', '', true, 0, true, true, 40, 'T');
$pdf->SetFont('helvetica', 'I', 10);
$pdf->MultiCell(140, 3, ': S/.'.sprintf("%01.2f",$acumulado), 0, 'L', 1, 0, '', '', true, 0, false, true, 40, 'T');
$pdf->SetXY(13, 115);
$pdf->SetFont('helvetica', 'BI', 10);
$pdf->MultiCell(40, 3, 'SALDO', 0, 'J', 1, 0, '', '', true, 0, true, true, 40, 'T');
$pdf->SetFont('helvetica', 'I', 10);
if ($acumulado!=0) {
    $saldo=sprintf("%01.2f",($datainfpac['precioexamen']-$acumulado));
}else{
    $saldo=sprintf("%01.2f",0);
}
$pdf->MultiCell(140, 3, ': S/.'.$saldo, 0, 'L', 1, 0, '', '', true, 0, false, true, 40, 'T');
$pdf->SetXY(13, 125);
$pdf->SetFont('helvetica', 'BI', 10);
$pdf->MultiCell(185, 3, 'USUARIO', 0, 'R', 1, 0, '', '', true, 0, true, true, 40, 'T');

//PIE DE PAGINA
$pdf->SetFont('helvetica', 'I', 10);
$pdf->SetXY(13, 135);
$pdf->MultiCell(180, 3, 'CONSULTORIO: AV. MICAELA BASTIDAS Nº443 EDIFICIO EL ROBLE OF. Nº 801 TELF: 084-248494', 0, 'C', 1, 0, '', '', true, 0, true, true, 40, 'T');
//LINEA
$pdf->Line(5, 148, 205, 148, $style);*/

mysqli_close($conexion);
// ---------------------------------------------------------
// move pointer to last page
$pdf->lastPage();

//Close and output PDF document
$pdf->Output($datainfpac['numdoc'].'-'.$datainfpac['apepaterno'].' '.$datainfpac['apematerno'].' '.$datainfpac['nombre'].'.pdf', 'I');

//============================================================+
// END OF FILE
//============================================================+
?>
