<?php
	include("../Funciones.php");
	include("../funcion/funciones.php");
  	include("../clases/BDConexion.php");
  	include("../clases/clsclinico.php");
  	$objclinico = new clsclinico;
	$a = $manejoideexplociones;
  if ($param==0){
		  $fecha = extraerfechamysql($fecha);
		  $fechatrabajoin= extraerfechamysql($fechatrabajoin);
		  $fechauregla = extraerfechamysql($fechauregla);
		  $fecha3 = extraerfechamysql($fecha3);
		  $fecha4 = extraerfechamysql($fecha4);
		  $fecha5 = extraerfechamysql($fecha5);
		  $fecha6 = extraerfechamysql($fecha6);
		  $fecha7 = extraerfechamysql($fecha7);
		  $fecha8 = extraerfechamysql($fecha8);
		  $fecha9 = extraerfechamysql($fecha9);
		  $fecha10 = extraerfechamysql($fecha10);
		  $fecha11 = extraerfechamysql($fecha11);
		  $fecha12 = extraerfechamysql($fecha12);
		  $fecha13 = extraerfechamysql($fecha13);
		  $fecha14 = extraerfechamysql($fecha14);
		  $fecha15 = extraerfechamysql($fecha15);
		  $fecha16 = extraerfechamysql($fecha16);
		  $fecha17 = extraerfechamysql($fecha17);
		  $fecha18 = extraerfechamysql($fecha18);
		  $fecha19 = extraerfechamysql($fecha19);
		  $fecha20 = extraerfechamysql($fecha20);
		  $fecha21 = extraerfechamysql($fecha21);
		  $fecha22 = extraerfechamysql($fecha22);
		  $fecha23 = extraerfechamysql($fecha23);
		  $fecha24 = extraerfechamysql($fecha24);
		  $fecha25 = extraerfechamysql($fecha25);
		  $fecha26 = extraerfechamysql($fecha26);
		  $fecha27 = extraerfechamysql($fecha27);
		  $fecha28 = extraerfechamysql($fecha28);
		  $fecha29 = extraerfechamysql($fecha29);
		  $fecha30 = extraerfechamysql($fecha30);
		  $fecha31 = extraerfechamysql($fecha31);
		  $fecha32 = extraerfechamysql($fecha32);
		  $fecha33 = extraerfechamysql($fecha33);
		  $fecha34 = extraerfechamysql($fecha34);
		  $fecha35 = extraerfechamysql($fecha35);
		  $fecha36 = extraerfechamysql($fecha36);
		  $fecha37 = extraerfechamysql($fecha37);
		  $fecha38 = extraerfechamysql($fecha38);
		  $fecha39 = extraerfechamysql($fecha39);
		  $fecha40 = extraerfechamysql($fecha40);
		  $fecha41 = extraerfechamysql($fecha41);
		  $fecha42 = extraerfechamysql($fecha42);
		  $fecha43 = extraerfechamysql($fecha43);
		  $fecha44 = extraerfechamysql($fecha44);
		  $fecha45 = extraerfechamysql($fecha45);
		  $fecha46 = extraerfechamysql($fecha46);
		  $fecha47 = extraerfechamysql($fecha47);
		  $fecha48 = extraerfechamysql($fecha48);
		  $fecha49 = extraerfechamysql($fecha49);
		  $fecha50 = extraerfechamysql($fecha50);
		  $fecha51 = extraerfechamysql($fecha51);
		  $fecha52 = extraerfechamysql($fecha52);
		  $cont =1;

   $objclinico->IngresartFichaMedica($fecha,$proy,$tipo_exafisi,$edad,$doc_id,$lug_nac,$genero_sex,$exp_en,$pro_dist,$pro_depa,$pro_dire,$pro_telef,$pro_otro,$estado_civil,
									$grado_instruc,$esp_profe,$esp_carg,$esp_dep,$fechatrabajoin,$esp_tiemserv,$esp_tiemcarg,$esp_endp,$check1,$check2,$check3,$check4,$check5,
									$check6,$check7,$check8,$check9,$check10,$check11,$paret_hta,$paret_acv,$paret_ecoro,$paret_diab,$paret_epilep,$paret_asma,$paret_tbc,
									$paret_var,$paret_canc,$paret_malf,$paret_otr,$antepers_infeIntes,$antepers_broncopul,$antepers_cardiova,$antepers_gastroint,$antepers_higayvias,
									$antepers_renales,$antepers_cerebro,$antepers_piel,$antepers_sexual,$antepers_diabetes,$antepers_desangre,$antepers_tumor,$antepers_reuma,$antepers_sentidos,
									$antepers_malaria,$antepers_otros,$aperanio_a,$aperanio_b,$aperanio_c,$aperanio_d,$aperanio_e,$aperanio_f,$aperanio_g,$aperanio_h,$aperanio_i,$aperanio_j,$aperanio_k,
									$aperanio_l,$aperanio_m,$aperanio_n,$aperanio_o,$aperanio_p,$anteper_detsi,$antepato_psico,$antepato_accident,$antepato_quirurgi,$antepato_exaespe,$antepato_tratami,
									$antepato_usamedi,$antepato_alergi,$antepato_regimenalimen,$antepato_sbpeso,$antepato_deporte,$aptoanio_a,$aptoanio_b,$aptoanio_c,$aptoanio_d,$aptoanio_e,$aptoanio_f,
									$aptoanio_g,$aptoanio_h,$aptoanio_i,$aptoanio_j,$antpato_detsi,$habito_bhalcohol,$habito_droga,$habito_hcoca,$habito_alucino,$habito_sustpsico,$habito_fuma,$habcual_a,
									$habcual_ba,$habcual_bb,$habcual_bc,$habcual_bd,$habcual_be,$antefami_dbm,$antefami_hta,$check12,$check13,$paret_enfmen,$paret_convul,$antfa_detasi,
									$anteuro_enfergeni,$anteuro_cirugine,$anturo_cuala,$anturo_cualb,$anturo_c,$anturo_rc,$anturo_metanti,$anteuro_emba,$anturo_nmes,$anturo_premba,$anteuro_nh,$anturo_parnor,
									$anturo_pprema,$anturo_cesa,$anturo_abort,$fechauregla,$anturo_produemba,$fecha3,$fecha4,$fecha5,$fecha6,$fecha7,$fecha8,$fecha9,$fecha10,$fecha11,$fecha12,$fecha13,$fecha14,
									$fecha15,$fecha16,$fecha17,$fecha18,$fecha19,$fecha20,$fecha21,$fecha22,$fecha23,$fecha24,$fecha25,$fecha26,$fecha27,$fecha28,$fecha29,$fecha30,$fecha31,$fecha32,$fecha33,$fecha34,
									$fecha35,$fecha36,$fecha37,$fecha38,$fecha39,$fecha40,$fecha41,$fecha42,$fecha43,$fecha44,$fecha45,$fecha46,$fecha47,$fecha48,$fecha49,$fecha50,$fecha51,$fecha52,$emp_1,$emp_2,
									$emp_3,$emp_4,$emp_5,$carg_1,$carg_2,$carg_3,$carg_4,$carg_5,$tiemp_1,$tiemp_2,$tiemp_3,$tiemp_4,$tiemp_5,$turno_1,$turno_2,$turno_3,$turno_4,$turno_5,$frfisico_1,$frfisico_2,
									$frfisico_3,$frfisico_4,$frfisico_5,$frquim_1,$frquim_2,$frquim_3,$frquim_4,$frquim_5,$frbiolg_1,$frbiolg_2,$frbiolg_3,$frbiolg_4,$frbiolg_5,$frdeinsg_1,$frdeinsg_2,$frdeinsg_3,
									$frdeinsg_4,$frdeinsg_5,$frergo_1,$frergo_2,$frpsico_1,$frpsico_2,$frpsico_3,$trabaHelitrans,$traenaltura,$a,$frotros,$especi_ot,$observ,$meses,$alos_firma,$diasde_firma,$cont);
 Redirigir("../ficha_medica.php?a=1");
 //echo "Grabar por primera vez";
  
  				}
  else{
  
   if ($param==1){ 
 		$cont = $objclinico->DevolverContaFichaMedica($doc_id);
		$cont  = ($cont) + 1;
		$fecha = extraerfechamysql($fecha);
		  $fechatrabajoin= extraerfechamysql($fechatrabajoin);
		  $fechauregla = extraerfechamysql($fechauregla);
		  $fecha3 = extraerfechamysql($fecha3);
		  $fecha4 = extraerfechamysql($fecha4);
		  $fecha5 = extraerfechamysql($fecha5);
		  $fecha6 = extraerfechamysql($fecha6);
		  $fecha7 = extraerfechamysql($fecha7);
		  $fecha8 = extraerfechamysql($fecha8);
		  $fecha9 = extraerfechamysql($fecha9);
		  $fecha10 = extraerfechamysql($fecha10);
		  $fecha11 = extraerfechamysql($fecha11);
		  $fecha12 = extraerfechamysql($fecha12);
		  $fecha13 = extraerfechamysql($fecha13);
		  $fecha14 = extraerfechamysql($fecha14);
		  $fecha15 = extraerfechamysql($fecha15);
		  $fecha16 = extraerfechamysql($fecha16);
		  $fecha17 = extraerfechamysql($fecha17);
		  $fecha18 = extraerfechamysql($fecha18);
		  $fecha19 = extraerfechamysql($fecha19);
		  $fecha20 = extraerfechamysql($fecha20);
		  $fecha21 = extraerfechamysql($fecha21);
		  $fecha22 = extraerfechamysql($fecha22);
		  $fecha23 = extraerfechamysql($fecha23);
		  $fecha24 = extraerfechamysql($fecha24);
		  $fecha25 = extraerfechamysql($fecha25);
		  $fecha26 = extraerfechamysql($fecha26);
		  $fecha27 = extraerfechamysql($fecha27);
		  $fecha28 = extraerfechamysql($fecha28);
		  $fecha29 = extraerfechamysql($fecha29);
		  $fecha30 = extraerfechamysql($fecha30);
		  $fecha31 = extraerfechamysql($fecha31);
		  $fecha32 = extraerfechamysql($fecha32);
		  $fecha33 = extraerfechamysql($fecha33);
		  $fecha34 = extraerfechamysql($fecha34);
		  $fecha35 = extraerfechamysql($fecha35);
		  $fecha36 = extraerfechamysql($fecha36);
		  $fecha37 = extraerfechamysql($fecha37);
		  $fecha38 = extraerfechamysql($fecha38);
		  $fecha39 = extraerfechamysql($fecha39);
		  $fecha40 = extraerfechamysql($fecha40);
		  $fecha41 = extraerfechamysql($fecha41);
		  $fecha42 = extraerfechamysql($fecha42);
		  $fecha43 = extraerfechamysql($fecha43);
		  $fecha44 = extraerfechamysql($fecha44);
		  $fecha45 = extraerfechamysql($fecha45);
		  $fecha46 = extraerfechamysql($fecha46);
		  $fecha47 = extraerfechamysql($fecha47);
		  $fecha48 = extraerfechamysql($fecha48);
		  $fecha49 = extraerfechamysql($fecha49);
		  $fecha50 = extraerfechamysql($fecha50);
		  $fecha51 = extraerfechamysql($fecha51);
		  $fecha52 = extraerfechamysql($fecha52);
   $objclinico->IngresartFichaMedica($fecha,$proy,$tipo_exafisi,$edad,$doc_id,$lug_nac,$genero_sex,$exp_en,$pro_dist,$pro_depa,$pro_dire,$pro_telef,$pro_otro,$estado_civil,
									$grado_instruc,$esp_profe,$esp_carg,$esp_dep,$fechatrabajoin,$esp_tiemserv,$esp_tiemcarg,$esp_endp,$check1,$check2,$check3,$check4,$check5,
									$check6,$check7,$check8,$check9,$check10,$check11,$paret_hta,$paret_acv,$paret_ecoro,$paret_diab,$paret_epilep,$paret_asma,$paret_tbc,
									$paret_var,$paret_canc,$paret_malf,$paret_otr,$antepers_infeIntes,$antepers_broncopul,$antepers_cardiova,$antepers_gastroint,$antepers_higayvias,
									$antepers_renales,$antepers_cerebro,$antepers_piel,$antepers_sexual,$antepers_diabetes,$antepers_desangre,$antepers_tumor,$antepers_reuma,$antepers_sentidos,
									$antepers_malaria,$antepers_otros,$aperanio_a,$aperanio_b,$aperanio_c,$aperanio_d,$aperanio_e,$aperanio_f,$aperanio_g,$aperanio_h,$aperanio_i,$aperanio_j,$aperanio_k,
									$aperanio_l,$aperanio_m,$aperanio_n,$aperanio_o,$aperanio_p,$anteper_detsi,$antepato_psico,$antepato_accident,$antepato_quirurgi,$antepato_exaespe,$antepato_tratami,
									$antepato_usamedi,$antepato_alergi,$antepato_regimenalimen,$antepato_sbpeso,$antepato_deporte,$aptoanio_a,$aptoanio_b,$aptoanio_c,$aptoanio_d,$aptoanio_e,$aptoanio_f,
									$aptoanio_g,$aptoanio_h,$aptoanio_i,$aptoanio_j,$antpato_detsi,$habito_bhalcohol,$habito_droga,$habito_hcoca,$habito_alucino,$habito_sustpsico,$habito_fuma,$habcual_a,
									$habcual_ba,$habcual_bb,$habcual_bc,$habcual_bd,$habcual_be,$antefami_dbm,$antefami_hta,$check12,$check13,$paret_enfmen,$paret_convul,$antfa_detasi,
									$anteuro_enfergeni,$anteuro_cirugine,$anturo_cuala,$anturo_cualb,$anturo_c,$anturo_rc,$anturo_metanti,$anteuro_emba,$anturo_nmes,$anturo_premba,$anteuro_nh,$anturo_parnor,
									$anturo_pprema,$anturo_cesa,$anturo_abort,$fechauregla,$anturo_produemba,$fecha3,$fecha4,$fecha5,$fecha6,$fecha7,$fecha8,$fecha9,$fecha10,$fecha11,$fecha12,$fecha13,$fecha14,
									$fecha15,$fecha16,$fecha17,$fecha18,$fecha19,$fecha20,$fecha21,$fecha22,$fecha23,$fecha24,$fecha25,$fecha26,$fecha27,$fecha28,$fecha29,$fecha30,$fecha31,$fecha32,$fecha33,$fecha34,
									$fecha35,$fecha36,$fecha37,$fecha38,$fecha39,$fecha40,$fecha41,$fecha42,$fecha43,$fecha44,$fecha45,$fecha46,$fecha47,$fecha48,$fecha49,$fecha50,$fecha51,$fecha52,$emp_1,$emp_2,
									$emp_3,$emp_4,$emp_5,$carg_1,$carg_2,$carg_3,$carg_4,$carg_5,$tiemp_1,$tiemp_2,$tiemp_3,$tiemp_4,$tiemp_5,$turno_1,$turno_2,$turno_3,$turno_4,$turno_5,$frfisico_1,$frfisico_2,
									$frfisico_3,$frfisico_4,$frfisico_5,$frquim_1,$frquim_2,$frquim_3,$frquim_4,$frquim_5,$frbiolg_1,$frbiolg_2,$frbiolg_3,$frbiolg_4,$frbiolg_5,$frdeinsg_1,$frdeinsg_2,$frdeinsg_3,
									$frdeinsg_4,$frdeinsg_5,$frergo_1,$frergo_2,$frpsico_1,$frpsico_2,$frpsico_3,$trabaHelitrans,$traenaltura,$a,$frotros,$especi_ot,$observ,$meses,$alos_firma,$diasde_firma,$cont);
		Redirigir("../ficha_medica.php?aler=3");
		//echo "Grabar por segunda vez";
			     }
  
    }
  
  
  
  
  
  
  
  
  /*/////////////////////////////////////////////////////////////////////////////////////
     if (($existe==1)&&($param==0)){
	 			$rs=$objclinico->DevolverPersonalxDni($doc_id);
				$fila=$objclinico->NextRow($rs);
				$nombres=$fila['appat_per']." ".$fila['apmat_per']." ".$fila['nom_per'];
				$fechanac=extraerfechanormal($fila['fnac_per']);
				$var1=$fecha;
	            Redirigir("../ficha_medica.php?aler=2&param=1&nombres=$nombres&fechanac=$fechanac&fecha=$fecha&proy=$proy&tipo_exafisi=$tipo_exafisi&edad=$edad&doc_id=$doc_id&lug_nac=$lug_nac&genero_sex=$genero_sex&exp_en=$exp_en&fecha=$fecha&proy=$proy&tipo_exafisi=$tipo_exafisi&edad=$edad&doc_id=$doc_id&lug_nac=$lug_nac&genero_sex=$genero_sex&exp_en=$exp_en&pro_dist=$pro_dist&pro_depa=$pro_depa&pro_dire=$pro_dire&pro_telef=$pro_telef&pro_otro=$pro_otro&estado_civil=$estado_civil&grado_instruc=$grado_instruc&esp_profe=$esp_profe&esp_carg=$esp_carg&esp_dep=$esp_dep&fechatrabajoin=$fechatrabajoin&esp_tiemserv=$esp_tiemserv&esp_tiemcarg=$esp_tiemcarg&esp_endp=$esp_endp&check1=$check1&check2=$check2&check3=$check3&check4=$check4&check5=$check5&check6=$check6&check7=$check7&check8=$check8&check9=$check9&check10=$check10&check11=$check11&paret_hta=$paret_hta&paret_acv=$paret_acv&paret_ecoro=$paret_ecoro&paret_diab=$paret_diab&paret_epilep=$paret_epilep&paret_asma=$paret_asma&paret_tbc=$paret_tbc&paret_var=$paret_var&paret_canc=$paret_canc&paret_malf=$paret_malf&paret_otr=$paret_otr&antepers_infeIntes=$antepers_infeIntes&antepers_broncopul=$antepers_broncopul&antepers_cardiova=$antepers_cardiova&antepers_gastroint=$antepers_gastroint&antepers_higayvias=$antepers_higayvias&antepers_renales=$antepers_renales&antepers_cerebro=$antepers_cerebro&antepers_piel=$antepers_piel&antepers_sexual=$antepers_sexual&antepers_diabetes=$antepers_diabetes&antepers_desangre=$antepers_desangre&antepers_tumor=$antepers_tumor&antepers_reuma=$antepers_reuma&antepers_sentidos=$antepers_sentidos&antepers_malaria=$antepers_malaria&antepers_otros=$antepers_otros&aperanio_a=$aperanio_a&aperanio_b=$aperanio_b&aperanio_c=$aperanio_c&aperanio_d=$aperanio_d&aperanio_e=$aperanio_e&aperanio_f=$aperanio_f&aperanio_g=$aperanio_g&aperanio_h=$aperanio_h&aperanio_i=$aperanio_i&aperanio_j=$aperanio_j&aperanio_k=$aperanio_k&aperanio_l=$aperanio_l&aperanio_m=$aperanio_m&aperanio_n=$aperanio_n&aperanio_o=$aperanio_o&aperanio_p=$aperanio_p&anteper_detsi=$anteper_detsi&antepato_psico=$antepato_psico&antepato_accident=$antepato_accident&antepato_quirurgi=$antepato_quirurgi&antepato_exaespe=$antepato_exaespe&antepato_tratami=$antepato_tratami&antepato_usamedi=$antepato_usamedi&antepato_alergi=$antepato_alergi&antepato_regimenalimen=$antepato_regimenalimen&antepato_sbpeso=$antepato_sbpeso&antepato_deporte=$antepato_deporte&aptoanio_a=$aptoanio_a&aptoanio_b=$aptoanio_b&aptoanio_c=$aptoanio_c&aptoanio_d=$aptoanio_d&aptoanio_e=$aptoanio_e&aptoanio_f=$aptoanio_f&aptoanio_g=$aptoanio_g&aptoanio_h=$aptoanio_h&aptoanio_i=$aptoanio_i&aptoanio_j=$aptoanio_j&antpato_detsi=$antpato_detsi&habito_bhalcohol=$habito_bhalcohol&habito_droga=$habito_droga&habito_hcoca=$habito_hcoca&habito_alucino=$habito_alucino&habito_sustpsico=$habito_sustpsico&habito_fuma=$habito_fuma&habcual_a=$habcual_a&habcual_ba=$habcual_ba&habcual_bb=$habcual_bb&habcual_bc=$habcual_bc&habcual_bd=$habcual_bd&habcual_be=$habcual_be&antefami_dbm=$antefami_dbm");
				
	       }*/


?>