@php if ($office==1) {//Los Leones $nombre_sucursal="IOPA Providencia"; $direccion_sucursal="AV. Los Leones 391, Providencia"; $telefono_sucursal="22 87 60 900"; }else if($office==2){//Huerfanos $nombre_sucursal="IOPA Santiago Centro"; $direccion_sucursal="Paseo Huérfanos 1147, piso 3, oficina 346."; $telefono_sucursal="22 87 60 900"; } else if($office==3){//La Florida $nombre_sucursal="IOPA La Florida"; $direccion_sucursal="Av. Vicuña Mackenna Oriente 6969, piso 11."; $telefono_sucursal="22 87 60 900"; } else if($office==4){//Buin $nombre_sucursal="IOPA Buin"; $direccion_sucursal="Av. Bernardo O'Higgins 385 - Buin."; $telefono_sucursal="22 87 60 900"; } else if($office==5){//Buin $nombre_sucursal="IOPA Maipu"; $direccion_sucursal="Av. Los Pajaritos 3195, piso 16, oficina 1606."; $telefono_sucursal="22 87 60 900"; } else if($office==6){//Plaza Egana $nombre_sucursal="IOPA Plaza Egaña"; $direccion_sucursal="Avenida Ossa 235, La Reina."; $telefono_sucursal="22 87 60 900"; } else{ $nombre_sucursal="IOPA PROVIDENCIA"; $direccion_sucursal="AV. Los Leones 391, Providencia"; $telefono_sucursal="22 87 60 900"; } @endphp
{{$nombre_sucursal}}
{{$direccion_sucursal}}
SERVICIO AL CLIENTE
{{$telefono_sucursal}}
www.iopa.cl

RECETA MÉDICA



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" // // /table>"; @endphp
";*/ 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 "
$titulo_receta

"; if(!empty($rc_od_sph)){ echo " "; }else{ echo " "; } if(!empty($rc_od_cyl)){ echo " "; }else{ echo " "; } if(($rc_od_ax >= 0) && ($rc_od_ax!='') ){ echo " "; }else{ echo " "; } echo " "; if(!empty($rc_oi_sph)){ echo " "; }else{ echo " "; } if(!empty($rc_oi_cyl)){ echo " "; }else{ echo " "; } if(($rc_oi_ax>=0) && ($rc_oi_ax!='')){ echo " "; }else{ echo " "; } echo "
OD $rc_od_sph Esf   $rc_od_cyl Cil   Eje $rc_od_ax"."º  
OI $rc_oi_sph Esf   $rc_oi_cyl Cil   Eje $rc_oi_ax"."º  
"; } 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 "
$titulo_receta

"; if(!empty($rl_od_sph)){ echo " "; }else{ echo " "; } if(!empty($rl_od_cyl)){ echo " "; }else{ echo " "; } if(($rl_od_ax >= 0) && ($rl_od_ax!='')){ echo " "; }else{ echo " "; } echo " "; if(!empty($rl_oi_sph)){ echo " "; }else{ echo " "; } if(!empty($rl_oi_cyl)){ echo " "; }else{ echo " "; } if(($rl_oi_ax >= 0) && ($rl_oi_ax!='')){ echo " "; }else{ echo " "; } echo "
OD $rl_od_sph Esf   $rl_od_cyl Cil   Eje $rl_od_ax"."º  
OI $rl_oi_sph Esf   $rl_oi_cyl Cil   Eje $rl_oi_ax"."º  
"; } else { echo "
$titulo_receta
"; if(!empty($rl_od_sph)){ echo " "; }else{ echo " "; } if(!empty($rl_od_cyl)){ echo " "; }else{ echo " "; } if(($rl_od_ax>=0) && ($rl_od_ax!='')){ echo " "; }else{ echo " "; } echo " "; if(!empty($rl_oi_sph)){ echo " "; }else{ echo " "; } if(!empty($rl_oi_cyl)){ echo " "; }else{ echo " "; } if(($rl_oi_ax>=0) && ($rl_oi_ax!='')){ echo " "; }else{ echo " "; } echo "
LEJOS
OD $rl_od_sph Esf   $rl_od_cyl Cil   Eje $rl_od_ax"."º  
OI $rl_oi_sph Esf   $rl_oi_cyl Cil   Eje $rl_oi_ax"."º  
"; if(!empty($rc_od_sph)){ echo " "; }else{ echo " "; } if(!empty($rc_od_cyl)){ echo " "; }else{ echo " "; } if(($rc_od_ax>=0) && ($rc_od_ax!='')){ echo " "; }else{ echo " "; } echo " "; if(!empty($rc_oi_sph)){ echo " "; }else{ echo " "; } if(!empty($rc_oi_cyl)){ echo " "; }else{ echo " "; } if(($rc_oi_ax>=0) && ($rc_oi_ax!='')){ echo " "; }else{ echo " "; } echo "
CERCA
OD $rc_od_sph Esf   $rc_od_cyl Cil   Eje $rc_od_ax"."º  
OI $rc_oi_sph Esf   $rc_oi_cyl Cil   Eje $rc_oi_ax"."º  

"; } $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 ""; } if(!empty($dp_cerca)){ echo " "; } if(!empty($observaciones_anteojos)){ echo ""; } if(!empty($texto_con_ciclopejia)){ echo ""; } if(!empty($rojo_verde)){ echo " "; } if(!empty($detalle_anteojo)) { echo ""; echo "
DP LEJOS: $dp_lejos
DP CERCA: $dp_cerca
OBSERVACIONES:
"; echo nl2br($observaciones_anteojos); echo "
$texto_con_ciclopejia
$texto_rojo_verde
DETALLE LENTE: $detalle_anteojo
"; } /*}*/ } // echo "