pointPadding: 0,
borderWidth: 0,
shadow: true
}
},
series:[';
$cont .= '<h3 style="background:#e9e9e9;padding-top:7px;padding-bottom:7px;width:100%;text-align:center;">Promedio de Dias de Estancia</h3>
<center>';
$variable = $_POST['variable1'];
if (empty($variable)) {
$variable = 2014;
}
$cont .= '
<form method="POST" action="./?url=indicadores_promedio_dias&sbm=3">
Desde el Año: <input style="width:60px;" type="number" id="variable1" name="variable1" min="2013" max="' . $ds->dime('agno') . '" value="2013"><br>
<center>
<button type="submit" class="btn btn-primary" >Enviar</button>
</center>
</form>
';
$cont .= '<div id="mostrargrafica" style="min-width: 310px; height: 500px;"></div>';
$total = 0;
$x = 1;
while ($variable <= $ds->dime('agno')) {
$mes = 1;
$datos .= '';
if ($x == 1) {
$datos .= '{
name: ' . $comillas . '' . $variable . '' . $comillas . ',
data: [';
</center>
<br><br>
<b>Médico:</b> ' . $datos_profesional->obtener('PRIMER_NOMBRE') . ' ' . $datos_profesional->obtener('APELLIDO_PATERNO') . '<br><br>
<b>Firma:</b> _______________________________________
';
} elseif (!empty($agenda)) {
$archivofinal = 'Agenda-del-' . $_GET['fecha'] . '';
$cita = new Accesatabla('citas_medicas');
$var = explode("-", $_GET['fecha']);
$html .= '
<center style="margin-top:-30px">
<h3 class="fd-title" style="font-size:16px">AGENDA DE CITAS MÉDICAS</h3>
</center>
<div style="width:100%;font-size:14px">
<b>Citas del día ' . $var[2] . ' de ' . $ds->dime('mes-' . $var[1] . '') . ' de ' . $var[0] . '</b><br><br>
<table class="tabla" width="100%" cellspacing="0" style="font-size:14px">
<tr class="fd-head-tabla">
<th style="width:100px">No Equipo Médico</th>
<th>Hora</th>
<th>Cédula</th>
<th>Paciente</th>
<th>Profesional</th>
<th>Servicio</th>
</tr>';
$h = $cita->buscardonde('FECHA = "' . $_GET['fecha'] . '" AND RESERVADA = 1 ORDER BY ID_EQUIPO_MEDICO, HORA');
if ($h == 0) {
echo '<script>alert("No existen pacientes agendados en esta fecha.");location.href="./?url=domiciliaria_agenda&sbm=1"</script>';
} else {
while ($h) {
$personas->buscardonde('ID_PACIENTE = ' . $cita->obtener('ID_PACIENTE') . '');
<td style="text-align:left;padding-left:17%;">Primer Apellido:</td>
</tr>
<tr>
<td><input type="text" id="primerapellido" name="primerapellido" value="' . $datos->obtener('APELLIDO_PATERNO') . '" placeholder="Primer Apellido" required="required"></td>
</tr>
<tr>
<td style="text-align:left;padding-left:17%;">Segundo Apellido:</td>
</tr>
<tr>
<td><input type="text" id="segundoapellido" name="segundoapellido" value="' . $datos->obtener('APELLIDO_MATERNO') . '" placeholder="Segundo Apellido" ></td>
</tr>
<tr>
<td style="text-align:left;padding-left:17%;">Fecha de Nacimiento:</td>
</tr>
<tr>
<td><input type="date" id="fechanacimiento" name="fechanacimiento" value="' . $fecha . '" placeholder="AAAA-MM-DD" required="required" max="' . $ds->dime('agno') . '-12-31" min="1915-01-01"></td>
</tr>
<tr>
<td style="text-align:left;padding-left:17%;">Lugar de Nacimiento:</td>
</tr>
<tr>
<td><input type="text" id="lugarnacimiento" name="lugarnacimiento" value="' . $datos->obtener('LUGAR_NACIMIENTO') . '" placeholder="Lugar de Nac."></td>
</tr>
<tr>
<td style="text-align:left;padding-left:17%;">Sexo:</td>
</tr>
<tr>
<td>
<select id="sexo" name="sexo" required="required">
<option value="">SELECCIONE SEXO</option>';
$s = $sexo->buscardonde('ID_SEXO > 0');
<button class="btn btn-default" type="submit"><img src="./iconos/search.png"/></button>
</form>
</center>';
$inicio = $_POST['fechainicial'];
$final = $_POST['fechafinal'];
if (!empty($inicio) and !empty($final)) {
$x = $escala->buscardonde('ID_PACIENTE = ' . $idp . ' AND FECHA BETWEEN "' . $inicio . '" AND "' . $final . '" ORDER BY FECHA');
if ($x == 0) {
$script = '
<center style="color:red;"><h3>No existen datos dentro de ' . $inicio . ' y ' . $final . ' para el paciente ' . $paciente->obtener('PRIMER_NOMBRE') . ' ' . $paciente->obtener('APELLIDO_PATERNO') . '</h3></center>';
} else {
$n = 1;
while ($x) {
$fecha = explode("-", $escala->obtener('FECHA'));
if ($n == 1) {
$categoria = $comillas . '' . $fecha[2] . ' ' . $ds->dime('mes-' . $fecha[1]) . '' . $comillas;
$categoriatabla = $fecha[2] . ' ' . $ds->dime('mes-' . $fecha[1]);
$dolor = $escala->obtener('DOLOR');
$dolortabla = $dolor;
if ($dolortabla >= 7) {
$fondodolor = ' style="background:#c00"';
$dolortabla = '<strong style="color:#fff;">' . $dolortabla . '</strong>';
} else {
$fondodolor = '';
}
$cansancio = $escala->obtener('CANSANCIO');
$cansanciotabla = $cansancio;
if ($cansanciotabla >= 7) {
$fondocans = ' style="background:#c00"';
$cansanciotabla = '<strong style="color:#fff;">' . $cansanciotabla . '</strong>';
} else {
<?php
include_once './mvc/modelo/Accesatabla.php';
include_once './mvc/modelo/diseno.php';
$ds = new Diseno();
$id = $_GET['id'];
if ($_SESSION['idgu'] != 3) {
if ($_SESSION['idgu'] == 1) {
$vista = 'ambulatoria_atencionalpaciente&sbm=2&id=' . $id . '';
} else {
$vista = 'inicio';
}
echo '<script>alert("Solo los profesionales pueden registrar las respuestas de las interconsultas."); location.href="./?url=' . $vista . '"</script>';
} else {
$respuesta = new Accesatabla('respuesta_interconsulta');
$interconsulta = new Accesatabla('interconsulta');
$i = $interconsulta->buscardonde('ID_INTERCONSULTA = ' . $_POST['cod_interconsulta'] . '');
if ($i) {
$respuesta->colocar("ID_INTERCONSULTA", $_POST['cod_interconsulta']);
$respuesta->colocar("ID_PROFESIONAL", $_SESSION['idp']);
$respuesta->colocar("FECHA", '"' . $ds->dime('fecha') . '"');
$respuesta->colocar("OBSERVACIONES", $_POST['observaciones']);
$respuesta->colocar("ID_PACIENTE", $id);
$respuesta->salvar();
$msj = 'Respuesta de Interconsulta Registrada.';
} else {
$msj = 'El codigo de la Interconsulta no existe.';
}
echo '<script>alert("' . $msj . '"); location.href="./?url=ambulatoria_atencionalpaciente&id=' . $id . '&sbm=2"</script>';
}
$sw = 0;
if (!empty($_GET['idsoap']) || $_GET['s'] == 1) {
$url = '<script>location.href="./?url=soap&id=' . $_GET['id'] . '&idsoap=' . $_GET['idsoap'] . '&t=2"</script>';
$sw = 1;
}
if ($_SESSION['idgu'] < 3) {
if ($_SESSION['idgu'] == 1) {
$vista = 'ambulatoria_atencionalpaciente&sbm=2&id=' . $id . '';
} else {
$vista = 'inicio';
}
echo '<script>alert("Solo los profesionales pueden registrar las respuestas de las interconsultas."); location.href="./?url=' . $vista . '"</script>';
} else {
$atencion->colocar("ID_PROFESIONAL", $_SESSION['idp']);
$atencion->colocar("ID_PACIENTE", $id);
$atencion->colocar("FECHA", '' . $ds->dime('fecha') . '');
$atencion->colocar("HORA_INICIO", $_POST['hora_inicio']);
$atencion->colocar("HORA_FIN", $_POST['hora_fin']);
$atencion->colocar("MINUTOS_UTILIZADOS", $_POST['minutos']);
$atencion->colocar("OBSERVACION", $_POST['observacion']);
$atencion->colocar("TIPO_CONTACTO", $_POST['tipo']);
$atencion->colocar("E_MAIL", $_POST['email']);
$atencion->colocar("TELEFONO", $_POST['telefono']);
$atencion->colocar("MOTIVO", $_POST['motivo']);
$atencion->salvar();
if ($sw == 0) {
if ($sbm == 8) {
$url = 'contacto_telefonico&id=' . $id . '&sbm=' . $sbm . '';
} else {
$url = 'ambulatoria_atencionalpaciente&id=' . $id . '&sbm=' . $sbm . '';
}
$dia .= $_SESSION['fecha'][2];
} else {
$dia = $_SESSION['fecha'][2];
}
if ($_SESSION['fecha'][1] < 10) {
$mes .= '0';
$mes .= $_SESSION['fecha'][1];
} else {
$mes = $_SESSION['fecha'][1];
}
$fecha = $_SESSION['fecha'][0] . '-' . $mes . '-' . $dia . '';
} else {
$fecha = $_SESSION['fecha'][0] . '-' . $_SESSION['fecha'][1] . '-' . $_SESSION['fecha'][2] . '';
}
} else {
$fecha = $ds->dime('fecha');
}
if (!empty($id)) {
$citas->buscardonde('ID_CITA = ' . $id . '');
$readonly = 'readonly';
$disabled = 'disabled';
$fecha = $citas->obtener('FECHA');
$idequipo = $citas->obtener('ID_EQUIPO_MEDICO');
if ($citas->obtener('RESERVADA') == 1) {
$si = 'checked';
$no = '';
} else {
$no = 'checked';
$si = '';
}
}
<?php
include_once './mvc/modelo/diseno.php';
$ds = new Diseno();
include_once './mvc/modelo/Accesatabla.php';
$escala = new Accesatabla('escala_edmonton');
$det_soap = new Accesatabla('detalle_soap');
$sbm = $_GET['sbm'];
$idp = $_GET['idp'];
$sw = $_GET['sw'];
$idsoap = $_GET['idsoap'];
$escala->nuevo();
$escala->colocar('ID_PACIENTE', $idp);
$escala->colocar('COMPLETADO_POR', $_POST['completado']);
$escala->colocar('TIPO_CATEGORIA', $_POST['categoria']);
$escala->colocar('FECHA', $ds->dime('fecha'));
$escala->colocar('DOLOR', $_POST['dolor']);
$escala->colocar('CANSANCIO', $_POST['cansancio']);
$escala->colocar('NAUSEA', $_POST['nausea']);
$escala->colocar('DEPRESION', $_POST['depresion']);
$escala->colocar('ANSIEDAD', $_POST['ansiedad']);
$escala->colocar('SOMNOLENCIA', $_POST['somnolencia']);
$escala->colocar('APETITO', $_POST['apetito']);
$escala->colocar('BIENESTAR', $_POST['bienestar']);
$escala->colocar('AIRE', $_POST['aire']);
$escala->colocar('DORMIR', $_POST['dormir']);
$escala->salvar();
$sql = 'SELECT max(ID_ESCALA) as id FROM escala_edmonton';
$matriz = $ds->db->obtenerarreglo($sql);
$id = $matriz[0][id];
if (!empty($sw)) {
</div>
</fieldset>
</div>
<div class="span4">
<fieldset>
<legend>
Última Consulta
</legend>';
if (empty($id_soap)) {
$cont .= '<div style="color:red;text-align:center;height:90px;padding-top:30px;">No se le ha registrado consulta a este paciente.</div>';
} else {
$cont .= '
<div style="margin-top:-7px;">
<table class="table2" style="height:86px;margin-bottom:0px;">
<tr>
<td><b>' . $day . ' / ' . $ds->dime('mes-' . $month) . ' / ' . $agno . '</b></td>
</tr>
<tr>
<td><b>Motivo Consulta:</b> ' . $soap->obtener('MOTIVO_CONSULTA') . '</td>
</tr>
<tr>
<td style="text-align:left;font-weight:bold;padding-left:10px;">Cuidados y Tratamientos</td>
</tr>
<tr>
<td><b>Cuidado:</b>' . $cuidado . '</td>
</tr>
<tr>
<td>
<div class="overthrow" style="height:45px;overflow:auto;">
' . $tratamiento . '
</div>
$det_soap = new Accesatabla('detalle_soap');
$imp_diag = new Accesatabla('impresion_diagnostica');
$det_imp_diag = new Accesatabla('detalle_impresion_diagnostica');
$trazabilidad = new Accesatabla('trazabilidad');
$cuidados = new Accesatabla('cuidados_tratamientos');
$recetas = new Accesatabla('recetas_medicas');
$det_recetas = new Accesatabla('detalle_receta');
$idp = $_GET['id'];
$idsoap = $_GET['idsoap'];
$t = $_GET['t'];
$sw = $_GET['sw'];
$id_impresion = $_GET['idimp'];
$cuidado = $_GET['idc'];
$receta = $_GET['idrecipe'];
$fecha = '"';
$fecha .= $ds->dime('fecha');
$fecha .= '"';
if (empty($idsoap)) {
$soap->nuevo();
} else {
$soap->buscardonde('ID_SOAP = ' . $idsoap . '');
}
$idtrazabilidad = $idp . '_' . $ds->dime("agno") . "/" . $ds->dime("mes") . "/" . $ds->dime("dia");
if ($sw == 1) {
$trazabilidad->colocar('ID_TRAZABILIDAD', $idtrazabilidad);
$trazabilidad->colocar('ID_PACIENTE', $idp);
$trazabilidad->colocar('FECHA', $fecha);
$trazabilidad->salvar();
$soap->colocar('ID_TRAZABILIDAD', $idtrazabilidad);
$soap->colocar('ID_PACIENTE', $idp);
$soap->colocar('FECHA', $ds->dime('fecha'));
</div>
</fieldset>
</div>
<div class="span4">
<fieldset>
<legend>
Última Consulta
</legend>';
if (empty($id_soap)) {
$cont .= '<div style="color:red;text-align:center;height:95px;padding-top:30px;">No se le ha registrado consulta a este paciente.</div>';
} else {
$cont .= '
<div style="margin-top:-7px;padding-bottom:5px;">
<table class="table2" style="height:86px;margin-bottom:0px;">
<tr>
<td><b>' . $day . ' / ' . $ds->dime('mes-' . $month) . ' / ' . $agno . '</b></td>
</tr>
<tr>
<td><b>Motivo Consulta:</b> ' . $soap->obtener('MOTIVO_CONSULTA') . '</td>
</tr>
<tr>
<td style="text-align:left;font-weight:bold;padding-left:10px;">Cuidados y Tratamientos</td>
</tr>
<tr>
<td><b>Cuidado:</b> ' . $cuidado . '</td>
</tr>
<tr>
<td>
<div class="overthrow" style="height:45px;overflow:auto;">
' . $tratamiento . '
</div>
<?php
include_once './mvc/modelo/diseno.php';
$ds = new Diseno();
echo $ds->dime('fecha');
//$sql = 'select d.PRIMER_NOMBRE, d.SEGUNDO_NOMBRE, d.APELLIDO_PATERNO, u.NO_IDENTIFICACION from pacientes p, datos_pacientes d, usuarios u where p.ID_USUARIO = u.ID_USUARIO AND p.ID_PACIENTE = d.ID_PACIENTE';
//$sql = 'ALTER TABLE `cuidados_paliativos_panama`.`profesionales_salud` ADD COLUMN `ID_USUARIO` INTEGER(11)) UNSIGNED NOT NULL AFTER `ID_ESPECIALIDAD_MEDICA`;';
$sql = 'CREATE TABLE `cuidados_paliativos_panama`.`respuesta_interconsulta` (
`ID_RESPUESTA_INTERCONSULTA` INTEGER UNSIGNED NOT NULL AUTO_INCREMENT,
`ID_INTERCONSULTA` INTEGER UNSIGNED NOT NULL,
`ID_PROFESIONAL` INTEGER UNSIGNED NOT NULL,
`FECHA` DATE NOT NULL,
`OBSERVACIONES` TEXT NOT NULL,
PRIMARY KEY (`ID_RESPUESTA_INTERCONSULTA`),
CONSTRAINT `FK_respuesta_interconsulta_interconsulta` FOREIGN KEY `FK_respuesta_interconsulta_interconsulta` (`ID_INTERCONSULTA`)
REFERENCES `interconsulta` (`ID_INTERCONSULTA`)
ON DELETE RESTRICT
ON UPDATE RESTRICT
)
ENGINE = InnoDB;
';
$sql = 'ALTER TABLE `cuidados_paliativos_panama`.`atencion_paciente` MODIFY COLUMN `MINUTOS_UTILIZADOS` INTEGER UNSIGNED DEFAULT NULL;';
/*$sql = 'ALTER TABLE `cuidados_paliativos_panama`.`respuesta_interconsulta` ADD COLUMN `ID_PACIENTE` INTEGER UNSIGNED NOT NULL AFTER `OBSERVACIONES`;';
$sql = '
CREATE TABLE `cuidados_paliativos_panama`.`atencion_paciente` (
`ID_ATENCION` INTEGER UNSIGNED NOT NULL AUTO_INCREMENT,
`ID_PROFESIONAL` INTEGER UNSIGNED NOT NULL,
`ID_PACIENTE` INTEGER UNSIGNED NOT NULL,
`FECHA` VARCHAR(45) NOT NULL DEFAULT "0000-00-00",
`HORA_INICIO` VARCHAR(45) DEFAULT NULL,
`HORA_FIN` VARCHAR(45) DEFAULT NULL,
<table class="table2 borde-tabla overthrow" width="100%">
<tr class="fd-tabla-gris">
<th>Hora</th>
<th>Presión Arterial</th>
<th>Frecuencia Cardiaca</th>
<th>Frecuencia Respiratoria</th>
<th>Frecuencia Cardiaca Fetal</th>
<th>Temperatura</th>
<th>Peso<small>(Kg)</small></th>
<th>Talla<small>(mts)</small></th>
</tr>
<tr align="center">
<td style="padding-top:10px"><input style="width:50px;" type="text" name="hora" value="';
$hora = $examenfisico->obtener('HORA');
if ($hora == '') {
if ($ds->dime('hora') < 10) {
$hora .= '0';
}
$hora .= $ds->dime('hora');
$hora .= ':';
if ($ds->dime('minuto') < 10) {
$hora .= '0';
}
$hora .= $ds->dime('minuto');
}
$cont .= '' . $hora . '" ' . $readonly . '></td>
<td style="padding-top:10px"><input style="width:50px;" type="text" name="pa" value="' . $examenfisico->obtener('PRESION_ARTERIAL') . '" ' . $readonly . ' required="required"></td>
<td style="padding-top:10px"><input style="width:50px;" type="text" name="fc" value="' . $examenfisico->obtener('FRECUENCIA_CARDIACA') . '" ' . $readonly . ' required="required"></td>
<td style="padding-top:10px"><input style="width:50px;" type="text" name="fr" value="' . $examenfisico->obtener('FRECUENCIA_RESPIRATORIA') . '" ' . $readonly . ' required="required"></td>
<td style="padding-top:10px"><input style="width:50px;" type="text" name="fcf" value="' . $examenfisico->obtener('FRECUENCIA_CARDIACA_FETAL') . '" ' . $readonly . '></td>
<td style="padding-top:10px"><input style="width:50px;" type="text" name="temperatura" value="' . $examenfisico->obtener('TEMPERATURA') . '" ' . $readonly . ' required="required"></td>
$_SESSION['idgu'] = $usuarios->obtener('ID_GRUPO_USUARIO');
$_SESSION['terminos'] = $usuarios->obtener('TERMINOS');
$p = $pacientes->buscardonde('ID_USUARIO = ' . $usuarios->obtener('ID_USUARIO') . '');
$pr = $profesional->buscardonde('ID_USUARIO = ' . $usuarios->obtener('ID_USUARIO') . '');
if ($p != 1 and $pr != 1) {
$_SESSION['user'] = $usuarios->obtener('NO_IDENTIFICACION');
} elseif ($p == 1) {
$datos_pacientes->buscardonde('ID_PACIENTE = ' . $pacientes->obtener('ID_PACIENTE') . '');
$_SESSION['user'] = $datos_pacientes->obtener('PRIMER_NOMBRE') . ' ' . $datos_pacientes->obtener('APELLIDO_PATERNO');
$_SESSION['idp'] = $datos_pacientes->obtener('ID_PACIENTE');
} elseif ($pr == 1) {
$datos_profesionales->buscardonde('ID_PROFESIONAL = ' . $profesional->obtener('ID_PROFESIONAL') . '');
$_SESSION['user'] = $datos_profesionales->obtener('PRIMER_NOMBRE') . ' ' . $datos_profesionales->obtener('APELLIDO_PATERNO');
$_SESSION['idp'] = $datos_profesionales->obtener('ID_PROFESIONAL');
}
$hora = $ds->dime('hora');
$minutos = $ds->dime('minuto');
if ($hora < 10) {
$hora = '0';
$hora .= $ds->dime('hora');
}
if ($minutos < 10) {
$minutos = '0';
$minutos .= $ds->dime('minuto');
}
$fecha .= $ds->dime('agno') . '-' . $ds->dime('mes') . '-' . $ds->dime('dia') . '/';
$fecha .= $hora . ':' . $minutos . '';
$sesiones->nuevo();
$sesiones->colocar("ID_USUARIO", $usuarios->obtener('ID_USUARIO'));
$sesiones->colocar("FECHA_SESION", $fecha);
$sesiones->colocar("IP_USUARIO", $ds->ip());
include_once './mvc/modelo/Accesatabla.php';
include_once './mvc/modelo/diseno.php';
$ds = new Diseno();
$_SESSION['error_profesional'] = '';
$_SESSION['fecha_1'] = '';
$citas = new Accesatabla('citas_medicas');
$profesional = new Accesatabla('datos_profesionales_salud');
$paciente = new Accesatabla('datos_pacientes');
$servicio = new Accesatabla('servicios_medicos');
$equipos = new Accesatabla('equipo_medico');
$sbm = $_GET['sbm'];
$c = $_GET['c'];
$contador = $c;
for ($x = 0; $x < $c; $x++) {
if ($x == 0) {
$next = explode("-", $ds->diasig($ds->dime('dia'), $ds->dime('mes'), $ds->dime('agno')));
} else {
$next = explode("-", $ds->diasig((int) $next[2], (int) $next[1], (int) $next[0]));
}
}
if (empty($c)) {
$fecha = '' . $ds->dime('dia es') . ' ' . $ds->dime('dia') . ' de ' . $ds->dime('mes-' . $ds->dime('mes') . '') . ' del ' . $ds->dime('agno') . '';
$next[0] = $ds->dime('agno');
$next[1] = $ds->dime('mes');
$next[2] = $ds->dime('dia');
} else {
$fecha = '' . $ds->diasdespues('' . $c . '') . ' ' . $next[2] . ' de ' . $ds->dime('mes-' . $next[1] . '') . ' del ' . $next[0] . '';
}
$date = $next[0] . '-' . $next[1] . '-' . $next[2];
$_SESSION['fecha'] = $next;
if (!empty($_POST['fecha'])) {
$_SESSION[errorpa] = '<div style="color:RED;padding-top:7px">Este paciente ya existe en esta Actividad</div>';
} else {
$diagnostico->nuevo();
$diagnostico->salvar();
$sql = 'SELECT max(ID_DIAGNOSTICO) as id FROM diagnostico';
$matriz = $ds->db->obtenerArreglo($sql);
$iddiagnostico = $matriz[0][id];
$detallediagnostico->nuevo();
$detallediagnostico->colocar('ID_DIAGNOSTICO', $iddiagnostico);
$detallediagnostico->colocar('ID_CIE10', $_POST['cie10']);
$detallediagnostico->colocar('ID_FRECUENCIA', $_POST['frecdiag']);
$detallediagnostico->colocar('ID_PROFESIONAL', $_SESSION['idp']);
$detallediagnostico->colocar('OBSERVACION', $_POST['observacion']);
$detallediagnostico->salvar();
$fecha = '"';
$fecha .= $ds->dime('agno') . '-' . $ds->dime('mes') . '-' . $ds->dime('dia');
$fecha .= '"';
$idtrazabilidad = $idpaciente . '_' . $ds->dime('agno') . '/' . $ds->dime('mes') . '/' . $ds->dime('dia');
$trazabilidad->nuevo();
$trazabilidad->colocar("ID_TRAZABILIDAD", $idtrazabilidad);
$trazabilidad->colocar("ID_PACIENTE", $idpaciente);
$trazabilidad->colocar("FECHA", $fecha);
$trazabilidad->salvar();
$a = $actividad->buscardonde('ACTIVIDAD = "' . $_POST['actividad'] . '" AND ID_FRECUENCIA = ' . $_POST['frecact'] . ' AND ID_PROFESIONAL = ' . $_SESSION['idp'] . '');
if ($a) {
$idactividad = $actividad->obtener('ID_ACTIVIDAD');
} else {
$actividad->nuevo();
$actividad->colocar('ACTIVIDAD', $_POST['actividad']);
$actividad->colocar('ID_FRECUENCIA', $_POST['frecact']);
$actividad->colocar('ID_PROFESIONAL', $_SESSION['idp']);
$idpaciente = $_GET['idp'];
$idsoap = $_GET['idsoap'];
$trazabilidad = new Accesatabla('trazabilidad');
$historiapaciente = new Accesatabla('historia_paciente');
$examenfisico = new Accesatabla('examen_fisico');
$tipoexamen = new Accesatabla('tipo_examen');
$resultados = new Accesatabla('resultados_examen_diagnostico');
$diagnostico = new Accesatabla('diagnostico');
$detallediagnostico = new Accesatabla('detalle_diagnostico');
$detallesoap = new Accesatabla('detalle_soap');
$sbm = $_GET['sbm'];
if ($_SESSION['idgu'] < 3) {
echo '<script>alert("No tiene permitido entrar a estas vistas.")</script><SCRIPT languague="JAVASCRIPT">location.href = "./?url=inicio"</SCRIPT>';
} else {
$fecha = '"';
$fecha .= $ds->dime("agno") . "-" . $ds->dime("mes") . "-" . $ds->dime("dia");
$fecha .= '"';
$idtrazabilidad = $idpaciente . "_" . $ds->dime("agno") . "/" . $ds->dime("mes") . "/" . $ds->dime("dia");
$trazabilidad->colocar("ID_TRAZABILIDAD", $idtrazabilidad);
$trazabilidad->colocar("ID_PACIENTE", $idpaciente);
$trazabilidad->colocar("FECHA", $fecha);
$trazabilidad->salvar();
$examenfisico->colocar("ID_PACIENTE", $idpaciente);
$examenfisico->colocar("HORA", $_POST['hora']);
$examenfisico->colocar("PRESION_ARTERIAL", $_POST['pa']);
$examenfisico->colocar("FRECUENCIA_CARDIACA", $_POST['fc']);
$examenfisico->colocar("FRECUENCIA_RESPIRATORIA", $_POST['fr']);
$examenfisico->colocar("FRECUENCIA_CARDIACA_FETAL", $_POST['fcf']);
$examenfisico->colocar("TEMPERATURA", $_POST['temperatura']);
$examenfisico->colocar("PESO", $_POST['peso']);
$examenfisico->colocar("TALLA", $_POST['talla']);