* Arcos - MG - CEP 35588-000
*
*
*/
include "../lib/config.inc.php";
include "../lib/func.inc.php";
include "../lib/classes.inc.php";
require_once '../lang/' . $idioma . '.php';
header("Content-type: text/html; charset=ISO-8859-1", true);
if (!checklog()) {
die($frase_log);
}
include "../timbre_head.php";
$paciente = new TPacientes();
$clinica = new TClinica();
$encaminhamento = new TEncaminhamento();
$encaminhamento->Codigo_Paciente = $_GET['codigo'];
$encaminhamento->LoadInfo();
if ($encaminhamento->Encaminhamento == '') {
$encaminhamento->SalvarNovo();
}
if (isset($_POST['send'])) {
$encaminhamento->Encaminhamento = htmlspecialchars(trim($_POST['encaminhamento']), ENT_QUOTES);
$encaminhamento->Salvar();
}
$paciente->LoadPaciente($_GET['codigo']);
$clinica->LoadInfo();
$encaminhamento->LoadInfo();
?>
<br />
<div align="center"><font size="4"><b><?php
$objetivo = new TExObjetivo();
$objetivo->SetDados('codigo_paciente', $_POST['codigo']);
$objetivo->SalvarNovo();
$objetivo = new TInquerito();
$objetivo->SetDados('codigo_paciente', $_POST['codigo']);
$objetivo->SalvarNovo();
$objetivo = new TAtestado();
$objetivo->Codigo_Paciente = $_POST['codigo'];
$objetivo->SalvarNovo();
$objetivo = new TReceita();
$objetivo->Codigo_Paciente = $_POST['codigo'];
$objetivo->SalvarNovo();
$objetivo = new TExame();
$objetivo->Codigo_Paciente = $_POST['codigo'];
$objetivo->SalvarNovo();
$objetivo = new TEncaminhamento();
$objetivo->Codigo_Paciente = $_POST['codigo'];
$objetivo->SalvarNovo();
$objetivo = new TLaudo();
$objetivo->Codigo_Paciente = $_POST['codigo'];
$objetivo->SalvarNovo();
$objetivo = new TAgradecimento();
$objetivo->Codigo_Paciente = $_POST['codigo'];
$objetivo->SalvarNovo();
$strScrp = "alert('Cadastro realizado com sucesso!'); Ajax('pacientes/gerenciar', 'conteudo', 'codigo=" . $_POST[codigo] . "&acao=editar')";
}
$paciente->Salvar();
}
}
if ($_GET[acao] == "editar") {
$strUpCase = "ALTERAÇÂO";
