<?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 INNER JOIN examenmedico on paciente.idpaciente=$idpac AND paciente.idpaciente=examenmedico.idpaciente ORDER BY paciente.idpaciente ASC LIMIT 1");
$datainfpac=mysqli_fetch_array($queryinfpac);
$infpactri=mysqli_query($conexion,"SELECT * FROM paciente INNER JOIN triaje on paciente.idpaciente=$idpac AND paciente.idpaciente=triaje.idpaciente ORDER BY paciente.idpaciente ASC LIMIT 1");
$datainfpactri=mysqli_fetch_array($infpactri);
/*$querycaja=mysqli_query($conexion,"SELECT importe FROM caja WHERE idpaciente=$idpac");
while ($rowcaja=mysqli_fetch_array($querycaja)) {
    $acumulado+=$rowcaja['importe'];
}*/
$arraysintomas=explode(",", $datainfpac['sintomas']);
$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, 'DECLARACIÓN JURADA DE SALUD - COVID-19', '', 0, 'C', true, 0, false, false, 0);
$pdf->SetFont('times', '', 11);
$pdf->Write(0, '(Aplica para todos los trabajadores, clientes, contratistas, proveedores)', '', 0, 'C', true, 0, false, false, 0);

//Cuerpo
$html='<span></span><br /><table><tr><td width="20%" align="left">Apellidos y Nombres:</td><td width="55%" style="font-weight: bold;">'.$datainfpac['apepaterno'].' '.$datainfpac['apematerno'].' '.$datainfpac['nombre'].'</td><td width="10%">Edad:</td><td width="15%" style="font-weight: bold;" align="left">'.calculaedad($datainfpac['fechanac']).' años</td></tr></table>';

$empdni='<table><tr><td width="25%">Empresa para la que labora:</td><td width="50%" style="font-weight: bold;" align="left">'.$datainfpac['empresa'].'</td><td width="10%">'.$tipodoc.':</td><td width="15%" style="font-weight: bold;" align="left">'.$datainfpac['numdoc'].' </td></tr></table>';

$motivo='<table><tr><td>Motivo de subida y/o bajada a la Unidad:<span style="font-weight: bold;"> '.$datainfpac['motivounidad'].'</span></td></tr></table>';

$contenido='<table width="100%" align="center" cellpadding="0" bordercolor="#000000"><tr><td bgcolor="gainsboro"  border="1">¿Ha estado Ud. En contacto con algún paciente sospechoso, probable o confirmado con COVID-19? </td></tr><tr><td><table cellspacing="5"><tr><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td border="1">Si'.six($datainfpac['contactocovid']).'</td><td>&nbsp;</td><td border="1">No'.nox($datainfpac['contactocovid']).'</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td></tr></table></td></tr><tr><td bgcolor="gainsboro"  border="1">¿Ha estado Ud. en alguna zona donde hubo casos de COVID-19?</td></tr><tr><td><table cellspacing="5"><tr><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td border="1">Si'.six($datainfpac['zonacovid']).'</td><td>&nbsp;</td><td border="1">No'.nox($datainfpac['zonacovid']).'</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td></tr></table></td></tr><tr><td bgcolor="gainsboro"  border="1">¿Ha estado Ud.en el exterior o en contacto con alguien que haya viajado al exterior en los últimos 14 días?</td></tr><tr><td  align="left" style="font-weight: bold;">Respuesta: '.$datainfpac['detalleviaje'].'</td></tr><tr><td border="1">FACTORES DE RIESGO PARA EL COVID-19</td></tr><tr><td bgcolor="gainsboro"  border="1">¿Es Ud. Mayor de 60 años, o padece alguna enfermedad crónica o degenerativa, tales como: hipertensión arterial, obesidad, enfermedades cardiovasculares, diabetes, asma, enfermedad pulmonar crónica, insuficiencia renal cronica y/o alguna enfermedad o tratamiento inmunosupresor? Cursa en este momento con embarazo o esta en periodo de lactancia?</td></tr><tr><td align="left" style="font-weight: bold;">Respuesta: '.$datainfpac['riesgocovid'].'</td></tr><tr><td bgcolor="gainsboro"  border="1">¿Toma usted medicamentos? Indique Cuales:</td></tr><tr><td  align="left" style="font-weight: bold;">Respuesta: '.$datainfpac['medicacion'].'</td></tr><tr><td bgcolor="gainsboro"  border="1">Actualmente presenta usted alguno de estos síntomas:</td></tr><tr><td>
<table cellspacing="5"><tr><td width="36%" align="left">Fiebre/Sensación de alza térmica</td><td width="7%" border="1">SI'.six($arraysintomas[0]).'</td><td width="7%" border="1">NO'.nox($arraysintomas[0]).'</td><td width="36%" align="left">Estornudos</td><td width="7%" border="1">SI'.six($arraysintomas[1]).'</td><td width="7%" border="1">NO'.nox($arraysintomas[1]).'</td></tr>
<tr><td width="36%" align="left">Malestar General</td><td width="7%" border="1">SI'.six($arraysintomas[2]).'</td><td width="7%" border="1">NO'.nox($arraysintomas[2]).'</td><td width="36%" align="left">Dolor Muscular</td><td width="7%" border="1">SI'.six($arraysintomas[3]).'</td><td width="7%" border="1">NO'.nox($arraysintomas[3]).'</td></tr>
<tr><td width="36%" align="left">Dificultad para Respirar</td><td width="7%" border="1">SI'.six($arraysintomas[4]).'</td><td width="7%" border="1">NO'.nox($arraysintomas[4]).'</td><td width="36%" align="left">Dolor de Cabeza</td><td width="7%" border="1">SI'.six($arraysintomas[5]).'</td><td width="7%" border="1">NO'.nox($arraysintomas[5]).'</td></tr>
<tr><td width="36%" align="left">Dolor de Garganta</td><td width="7%" border="1">SI'.six($arraysintomas[6]).'</td><td width="7%" border="1">NO'.nox($arraysintomas[6]).'</td><td width="36%" align="left">Cansancio y Fatiga</td><td width="7%" border="1">SI'.six($arraysintomas[7]).'</td><td width="7%" border="1">NO'.nox($arraysintomas[7]).'</td></tr>
<tr><td width="36%" align="left">Dolor en el pecho</td><td width="7%" border="1">SI'.six($arraysintomas[8]).'</td><td width="7%" border="1">NO'.nox($arraysintomas[8]).'</td><td width="36%" align="left">Cianosis en labios</td><td width="7%" border="1">SI'.six($arraysintomas[9]).'</td><td width="7%" border="1">NO'.nox($arraysintomas[9]).'</td></tr>
<tr><td width="36%" align="left">Tos Seca</td><td width="7%" border="1">SI'.six($arraysintomas[10]).'</td><td width="7%" border="1">NO'.nox($arraysintomas[10]).'</td><td width="36%" align="left">Congestión Nasal</td><td width="7%" border="1">SI'.six($arraysintomas[11]).'</td><td width="7%" border="1">NO'.nox($arraysintomas[11]).'</td></tr>
<tr><td width="36%" align="left">Anosmia</td><td width="7%" border="1">SI'.six($arraysintomas[12]).'</td><td width="7%" border="1">NO'.nox($arraysintomas[12]).'</td><td width="36%" align="left">Disgeusia</td><td width="7%" border="1">SI'.six($arraysintomas[13]).'</td><td width="7%" border="1">NO'.nox($arraysintomas[13]).'</td></tr>
<tr><td width="36%" align="left">Dolor abdominal</td><td width="7%" border="1">SI'.six($arraysintomas[14]).'</td><td width="7%" border="1">NO'.nox($arraysintomas[14]).'</td><td width="50%" align="left" colspan="3">Otros:</td></tr></table>
</td></tr><tr><td bgcolor="gainsboro"  border="1">Declaro que las respuestas dadas en el presente documento son verdaderas y estoy consciente que el ocultar o falsear información me puede causar daño, a mis familiares, a mis compañeros y/o a terceros,  por lo que asumo TOTAL RESPONSABILIDAD de lo aquí declarado.</td></tr><tr><td><table cellspacing="5"><tr><td border="1" width="40%">TEMPERATURA CORPORAL:</td><td border="1" width="10%">'.$datainfpactri['temperatura'].' C°</td><td width="10%">&nbsp;</td><td border="1" width="20%">FECHA:</td><td border="1" width="20%">'.$datainfpac['fechaevalmed'].'</td></tr></table></td></tr><tr><td><table cellspacing="5" align="center"><tr><td border="1" width="40%">AUTORIZACIÓN DE INGRESO</td><td border="1" width="8%">SI'.six($datainfpac['autingreso']).'</td><td width="8%" border="1">NO'.nox($datainfpac['autingreso']).'</td></tr></table></td></tr></table>';



$pdf->SetFont('times', '', 11);
$pdf->writeHTML($html, true, 0, true, true);
$pdf->SetX(15);
$pdf->writeHTML($empdni, true, 0, true, true);
$pdf->SetX(15);
$pdf->writeHTML($motivo, true, 0, true, true);
$pdf->SetX(15);
$pdf->writeHTML('&nbsp;<br /><table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#000000" bgcolor="gainsboro"><tr><td >Indique Ud. (Por favor SEA SINCERO en sus respuestas) </td></tr></table>', true, 0, true, true);
$pdf->SetX(15);
$pdf->writeHTML($contenido, true, 0, true, true);



//$pdf->setCellMargins(0, 1, 0, 1);
$pdf->SetFillColor(255,255,255);
$pdf->SetTextColor(0,0,0);
$pdf->SetXY(15, 265);
$pdf->writeHTML('<table align="center"><tr><td width="10%">&nbsp;</td><td width="35%">Firma y Nombre del Médico Evaluador</td><td width="10%">&nbsp;</td><td width="35%">Firma y Huella Dactilar del Personal Evaluado</td><td width="10%">&nbsp;</td></tr></table>', true, 0, true, true);
//$pdf->MultiCell(0, 3, 'Firma y sello del médico evaluador CMP N°', 0, 'L', 1, 0, '', '', true, 0, true, true, 40, 'T');
//$pdf->SetXY(120, 265);
//$pdf->MultiCell(0, 3, 'Firma y sello del responsable de laboratorio C.Bg.P N°', 0, 'L', 1, 0, '', '', true, 0, true, true, 40, 'T');


//$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
//============================================================+
?>
