Nombre: {{$array_resultado['nombres_paciente'] ?? ''}}
RUT: {{$array_resultado['rut_paciente'] ?? ''}}
Edad: {{$array_resultado['edad_paciente'] ?? ''}} años
Dirección: {{$array_resultado['direccion_paciente'] ?? ''}}, {{$array_resultado['comuna_paciente'] ?? ''}}
Fecha: {{$array_resultado['fecha_receta'] ?? ''}}
Indicaciones Médicas:
@php
$array_res_rp = $array_resultado['array_datos_res_rp'] ?? array();
$array_res_rpa = $array_resultado['array_datos_res_rpa'] ?? array();
$forma_lente = '';
if(isset($array_res_rpa[0]['codigo_tipo_forma_lente2']))//* Actualizado el 02-10-2023 se agrega nuevo campo al sql codigo_tipo_forma_lente2 por problema del campo codigo_tipo_forma_lente
$forma_lente = $array_res_rpa[0]['codigo_tipo_forma_lente2'];//* Actualizado el 02-10-2023 se agrega nuevo campo al sql codigo_tipo_forma_lente2 por problema del campo codigo_tipo_forma_lente
$titulo_receta = '';
if($forma_lente==1){
$titulo_receta = 'Receta de Anteojos';
}elseif($forma_lente==2){
$titulo_receta = 'Receta de Lente de Contacto';
}else{
$titulo_receta = 'Receta de Anteojos';
}
$titulo_receta= strtoupper($titulo_receta);
$registros = count($array_res_rp);
$division = $registros / 3;
$division = strtok($division,".");
$resto = fmod($registros,3);
if($resto > 0)
$division++;
$i=0;
$j=0;
$pag=0;
$y=0;
/*
echo"
";*/
foreach ($array_res_rp as $row_rp) {
// print_r($row_rp);
$resto = fmod($i,3);
$i++;
$j++;
//sl
//od
$sl_od_sph = $row_rp['sl_od_sph_m'];
if($sl_od_sph!=''){
if(substr($sl_od_sph,0,1) != "+" && $sl_od_sph > 0)
$sl_od_sph = "+".$sl_od_sph;
}
$sl_od_cyl = $row_rp['sl_od_cyl_m'];
if($sl_od_cyl!=''){
if(substr($sl_od_cyl,0,1) != "+" && $sl_od_cyl > 0)
$sl_od_cyl = "+".$sl_od_cyl;
}
$sl_od_ax = $row_rp['sl_od_ax_m'];
if($sl_od_ax!=''){
$sl_od_ax = $sl_od_ax;
}
$sl_vision_lejos_od = $row_rp['sl_vision_lejos_od_m'];
//$envio .= "document.forma.sl_vision_lejos_od.value=".$sl_vision_lejos_od.";";
//oi
$sl_oi_sph = $row_rp['sl_oi_sph_m'];
if($sl_oi_sph!=''){
if(substr($sl_oi_sph,0,1) != "+" && $sl_oi_sph > 0)
$sl_oi_sph = "+".$sl_oi_sph;
}
$sl_oi_cyl = $row_rp['sl_oi_cyl_m'];
if($sl_oi_cyl!=''){
if(substr($sl_oi_cyl,0,1) != "+" && $sl_oi_cyl > 0)
$sl_oi_cyl = "+".$sl_oi_cyl;
}
$sl_oi_ax = $row_rp['sl_oi_ax_m'];
if($sl_oi_ax!=''){
$sl_oi_ax = $sl_oi_ax;
}
$sl_vision_lejos_oi = $row_rp['sl_vision_lejos_oi_m'];
//$envio .= "document.forma.sl_vision_lejos_oi.value=".$sl_vision_lejos_oi.";";
//rl
//od
$rl_od_sph = $row_rp['rl_od_sph_m'];
if($rl_od_sph!=''){
if(substr($rl_od_sph,0,1) != "+" && $rl_od_sph > 0)
$rl_od_sph = "+".$rl_od_sph;
}
$rl_od_cyl = $row_rp['rl_od_cyl_m'];
if($rl_od_cyl!=''){
if(substr($rl_od_cyl,0,1) != "+" && $rl_od_cyl > 0)
$rl_od_cyl = "+".$rl_od_cyl;
}
$rl_od_ax = '';//* Agregado el 08-09-2023
$rl_od_ax_m = $row_rp['rl_od_ax_m'];
if($rl_od_ax_m!=''){
$rl_od_ax = $rl_od_ax_m;
}
$rl_vision_lejos_od = $row_rp['rl_vision_lejos_od_m'];
//$envio .= "document.forma.rl_vision_lejos_od.value=".$rl_vision_lejos_od.";";
//oi
$rl_oi_sph = $row_rp['rl_oi_sph_m'];
if($rl_oi_sph!=''){
if(substr($rl_oi_sph,0,1) != "+" && $rl_oi_sph > 0)
$rl_oi_sph = "+".$rl_oi_sph;
}
$rl_oi_cyl = $row_rp['rl_oi_cyl_m'];
if($rl_oi_cyl!=''){
if(substr($rl_oi_cyl,0,1) != "+" && $rl_oi_cyl > 0)
$rl_oi_cyl = "+".$rl_oi_cyl;
}
$rl_oi_ax = $row_rp['rl_oi_ax_m'];
if($rl_oi_ax!=''){
$rl_oi_ax = $rl_oi_ax;
}
$rl_vision_lejos_oi = $row_rp['rl_vision_lejos_oi_m'];
//$envio .= "document.forma.rl_vision_lejos_oi.value=".$rl_vision_lejos_oi.";";
//sc
//od
$sc_od_add = $row_rp['sc_od_add_m'];
if($sc_od_add!=''){
// $envio .= "document.forma.sc_od_add.value=".$sc_od_add.";";
}
$sc_od_sph = $row_rp['sc_od_sph_m'];
if($sc_od_sph!=''){
if(substr($sc_od_sph,0,1) != "+" && $sc_od_sph > 0)
$sc_od_sph = "+".$sc_od_sph;
}
$sc_od_cyl = $row_rp['sc_od_cyl_m'];
if($sc_od_cyl!=''){
if(substr($sc_od_cyl,0,1) != "+" && $sc_od_cyl > 0)
$sc_od_cyl = "+".$sc_od_cyl;
}
$sc_od_ax = $row_rp['sc_od_ax_m'];
if($sc_od_ax!=''){
$sc_od_ax = $sc_od_ax;
}
$sc_vision_cerca_jaeger_od = $row_rp['sc_jaeger_od_m'];
//$envio .= "document.forma.sc_vision_cerca_jaeger_od.value=".$sc_vision_cerca_jaeger_od.";";
//oi
$sc_oi_add = $row_rp['sc_oi_add_m'];
if($sc_oi_add!=''){
// $envio .= "document.forma.sc_oi_add.value=".$sc_oi_add.";";
}
$sc_oi_sph = $row_rp['sc_oi_sph_m'];
if($sc_oi_sph!=''){
if(substr($sc_oi_sph,0,1) != "+" && $sc_oi_sph > 0)
$sc_oi_sph = "+".$sc_oi_sph;
}
$sc_oi_cyl = $row_rp['sc_oi_cyl_m'];
if($sc_oi_cyl!=''){
if(substr($sc_oi_cyl,0,1) != "+" && $sc_oi_cyl > 0)
$sc_oi_cyl = "+".$sc_oi_cyl;
}
$sc_oi_ax = $row_rp['sc_oi_ax_m'];
if($sc_oi_ax!=''){
$sc_oi_ax = $sc_oi_ax;
}
$sc_vision_cerca_jaeger_oi = $row_rp['sc_jaeger_oi_m'];
//$envio .= "document.forma.sc_vision_cerca_jaeger_oi.value=".$sc_vision_cerca_jaeger_oi.";";
//
//rc
//od
$rc_od_add = $row_rp['rc_od_add_m'];
if($rc_od_add!=''){
// $envio .= "document.forma.rc_od_add.value=".$rc_od_add.";";
}
$rc_od_sph = $row_rp['rc_od_sph_m'];
if($rc_od_sph!=''){
if(substr($rc_od_sph,0,1) != "+" && $rc_od_sph > 0)
$rc_od_sph = "+".$rc_od_sph;
}
$rc_od_cyl = $row_rp['rc_od_cyl_m'];
if($rc_od_cyl!=''){
if(substr($rc_od_cyl,0,1) != "+" && $rc_od_cyl > 0)
$rc_od_cyl = "+".$rc_od_cyl;
}
$rc_od_ax = $row_rp['rc_od_ax_m'];
if($rc_od_ax!=''){
$rc_od_ax = $rc_od_ax;
}
$rc_vision_cerca_jaeger_od = $row_rp['rc_jaeger_od_m'];
//$envio .= "document.forma.rc_vision_cerca_jaeger_od.value=".$rc_vision_cerca_jaeger_od.";";
//oi
$rc_oi_add = $row_rp['rc_oi_add_m'];
if($rc_oi_add!=''){
// $envio .= "document.forma.rc_oi_add.value=".$rc_oi_add.";";
}
$rc_oi_sph = $row_rp['rc_oi_sph_m'];
if($rc_oi_sph!=''){
if(substr($rc_oi_sph,0,1) != "+" && $rc_oi_sph > 0)
$rc_oi_sph = "+".$rc_oi_sph;
}
$rc_oi_cyl = $row_rp['rc_oi_cyl_m'];
if($rc_oi_cyl!=''){
if(substr($rc_oi_cyl,0,1) != "+" && $rc_oi_cyl > 0)
$rc_oi_cyl = "+".$rc_oi_cyl;
}
$rc_oi_ax = $row_rp['rc_oi_ax_m'];
if($rc_oi_ax!=''){
$rc_oi_ax = $rc_oi_ax;
}
$rc_vision_cerca_jaeger_oi = $row_rp['rc_jaeger_oi_m'];
//$envio .= "document.forma.rc_vision_cerca_jaeger_oi.value=".$rc_vision_cerca_jaeger_oi.";";
$dp_cerca = $row_rp['dp_cerca_m'];
//$envio .= "document.forma.dp_cerca.value=".$dp_cerca.";";
$dp_lejos = $row_rp['dp_lejos_m'];
//$envio .= "document.forma.dp_lejos.value=".$dp_lejos.";";
/*if ($tipo==4){*/
$titulo_receta= strtoupper($titulo_receta);
if(($rl_od_sph == '') && ($rl_oi_sph == '') && ($rl_od_cyl == '') && ($rl_oi_cyl == '') && ($rl_od_ax == '') && ($rl_oi_ax == '') && ($rl_vision_lejos_od == '') && ($rl_vision_lejos_oi == ''))
{//si todos los campos de receta lejos son == a 0 o a vacio, mostrara los datos de receta cerca
echo "
OD
";
if(!empty($rc_od_sph)){
echo "
$rc_od_sph Esf
";
}else{
echo "
";
}
if(!empty($rc_od_cyl)){
echo "
$rc_od_cyl Cil
";
}else{
echo "
";
}
if(($rc_od_ax >= 0) && ($rc_od_ax!='') ){
echo "
Eje $rc_od_ax"."º
";
}else{
echo "
";
}
echo "
OI
";
if(!empty($rc_oi_sph)){
echo "
$rc_oi_sph Esf
";
}else{
echo "
";
}
if(!empty($rc_oi_cyl)){
echo "
$rc_oi_cyl Cil
";
}else{
echo "
";
}
if(($rc_oi_ax>=0) && ($rc_oi_ax!='')){
echo "
Eje $rc_oi_ax"."º
";
}else{
echo "
";
}
echo "
";
}
elseif(($rc_od_sph == '') && ($rc_oi_sph == '') &&
($rc_od_cyl == '') && ($rc_oi_cyl == '') &&
($rc_od_ax == '') && ($rc_oi_ax == '') &&
($rc_vision_cerca_jaeger_od == '' || $rc_vision_cerca_jaeger_od == 0) && ($rc_vision_cerca_jaeger_oi == '' || $rc_vision_cerca_jaeger_oi == 0))
{//si todos los campos de receta cerca son == a 0 o a vacio, mostrara los datos de receta lejos
echo "
OD
";
if(!empty($rl_od_sph)){
echo "
$rl_od_sph Esf
";
}else{
echo "
";
}
if(!empty($rl_od_cyl)){
echo "
$rl_od_cyl Cil
";
}else{
echo "
";
}
if(($rl_od_ax >= 0) && ($rl_od_ax!='')){
echo "
Eje $rl_od_ax"."º
";
}else{
echo "
";
}
echo "
OI
";
if(!empty($rl_oi_sph)){
echo "
$rl_oi_sph Esf
";
}else{
echo "
";
}
if(!empty($rl_oi_cyl)){
echo "
$rl_oi_cyl Cil
";
}else{
echo "
";
}
if(($rl_oi_ax >= 0) && ($rl_oi_ax!='')){
echo "
Eje $rl_oi_ax"."º
";
}else{
echo "
";
}
echo "
";
}
else
{
echo "
LEJOS
OD
";
if(!empty($rl_od_sph)){
echo "
$rl_od_sph Esf
";
}else{
echo "
";
}
if(!empty($rl_od_cyl)){
echo "
$rl_od_cyl Cil
";
}else{
echo "
";
}
if(($rl_od_ax>=0) && ($rl_od_ax!='')){
echo "
Eje $rl_od_ax"."º
";
}else{
echo "
";
}
echo "
OI
";
if(!empty($rl_oi_sph)){
echo "
$rl_oi_sph Esf
";
}else{
echo "
";
}
if(!empty($rl_oi_cyl)){
echo "
$rl_oi_cyl Cil
";
}else{
echo "
";
}
if(($rl_oi_ax>=0) && ($rl_oi_ax!='')){
echo "
Eje $rl_oi_ax"."º
";
}else{
echo "
";
}
echo "
CERCA
OD
";
if(!empty($rc_od_sph)){
echo "
$rc_od_sph Esf
";
}else{
echo "
";
}
if(!empty($rc_od_cyl)){
echo "
$rc_od_cyl Cil
";
}else{
echo "
";
}
if(($rc_od_ax>=0) && ($rc_od_ax!='')){
echo "
Eje $rc_od_ax"."º
";
}else{
echo "
";
}
echo "
OI
";
if(!empty($rc_oi_sph)){
echo "
$rc_oi_sph Esf
";
}else{
echo "
";
}
if(!empty($rc_oi_cyl)){
echo "
$rc_oi_cyl Cil
";
}else{
echo "
";
}
if(($rc_oi_ax>=0) && ($rc_oi_ax!='')){
echo "
Eje $rc_oi_ax"."º
";
}else{
echo "
";
}
echo "
";
}
$detalle_forma_lente = '';//* Agregado el 07-09-2023
$detalle_forma_lente_descripcion = array();//* Agregado el 07-09-2023
if(count($array_res_rpa) > 0){
foreach ($array_res_rpa as $row_rpa) {
//abajo
$observaciones_anteojos = $row_rpa['observaciones'];
$con_ciclopejia = $row_rpa['con_ciclopejia'];
$rojo_verde = $row_rpa['rojo_verde'];
$forma_lente = $row_rpa['codigo_tipo_forma_lente2'];//* Actualizado el 02-10-2023 se agrega nuevo campo al sql codigo_tipo_forma_lente2 por problema del campo codigo_tipo_forma_lente
// $nombre_forma_lente = ucfirst(strtolower(devuelve_nombre_tabla($link,"TIPO_FORMA_LENTE",$forma_lente)));
$nombre_forma_lente = $row_rpa['nombre_forma_lente'];
$detalle_forma_lente .= $row_rpa['codigo_tipo_detalle_forma_lente'].',';
$detalle_forma_lente_descripcion[] = strtoupper($row_rpa['detalle_anteojo']);// Agregado el 07-09-2023
$detalle_forma_lente_s = explode(',',$detalle_forma_lente);
$cantiidad = count($detalle_forma_lente_s) - 1;
if($con_ciclopejia==1){
$cheked_ciclo = 'checked';
}else{
$cheked_ciclo = '';
}
if($rojo_verde==1){
$cheked_roj_ver = 'checked';
}else{
$cheked_roj_ver = '';
}
}
}else{
$observaciones_anteojos = '';
$con_ciclopejia = '';
$rojo_verde = '';
$forma_lente = '';
$detalle_forma_lente = '';
}
if($con_ciclopejia == 1){
$texto_con_ciclopejia = 'CON CICLOPLEJÍA';
}
if($rojo_verde == 1){
$texto_rojo_verde = 'ROJO/VERDE';
}
$detalle_anteojo = implode(", ", $detalle_forma_lente_descripcion);// Agregado el 07-09-2023
if(!empty($detalle_anteojo)){
$detalle_anteojo .=".";
}
echo "";
if(!empty($dp_lejos)){
echo "
DP LEJOS: $dp_lejos
";
}
if(!empty($dp_cerca)){
echo "
DP CERCA: $dp_cerca
";
}
if(!empty($observaciones_anteojos)){
echo "
OBSERVACIONES: "; echo nl2br($observaciones_anteojos);
echo "
";
}
if(!empty($texto_con_ciclopejia)){
echo "
$texto_con_ciclopejia
";
}
if(!empty($rojo_verde)){
echo "
$texto_rojo_verde
";
}
if(!empty($detalle_anteojo))
{
echo "
DETALLE LENTE: $detalle_anteojo
";
echo "
";
}
/*}*/
}
// echo "
//
// /table>";
@endphp
{{$array_resultado['sexo_profesional'] ?? ''}} {{$nombre_medico ?? ''}}
RUT: {{$array_resultado['rut_profesional'] ?? ''}} REG-SIS Nº {{$array_resultado['reg_sis'] ?? ''}}
MÉDICO OFTALMÓLOGO
LA FLORIDA
PROVIDENCIA
PLAZA EGAÑA
Av. Vicuña Mackenna Oriente 6969. piso 11
Av. Los Leones 391
Av. Ossa 235, oficina 200
MAIPÚ
SANTIAGO CENTRO
BUIN
Av. Los Pajaritos 3195 Oficina 1606
Paseo Huérfanos 1147. Oficina 346
Av. Bernardo O'Higgins 385