} else {
$resultado = F_INSERE_AUTORIZACAO('1', 'AB', $emissor, $nrseq_requisitante, $nrseq_prestador, $obs, $unimed, $contrato, $familiag, $dependencia, $digito, $cdarea_requisitante, $data3, $nrregistro_usuario, $resultsoli, $nmusu, $nrregistro_pessoa_contr, $rn, $tpplano_usuario, $aocobrarco, $result1, $cdarea_prestador, $data2, $dtvalidade, $hratendimento, $cdocorrencia1, $nrocorrencia, $dtnascimento, '', $via, $cid, $trilha2, $cdsexo, '', '', '', $motivo, $tpautorizacao, '', $cdbiometria_sensor, $dtatendimento, $cdtipo_consulta, $cdtipo_atendimento_tiss, $nrregistro_medico, $aourgencia, $aoemergencia, $txindicacao_clinica, '', '', $noplano, $cdserie_guia_principal, $nrguia_principal, '', $cdespecial, $cdprofissional, $cdtipo_acidente, $vltempo_doenca, $cdtempo_doenca, $cdtipo_saida, $cdtipo_doenca, "", "", "", "", "");
}
// Carlos - Silvia - AAFKBE
// Limpando as variáveis.
session_unregister('vl_doenca');
session_unregister('cdtempodoenca');
session_register('v_nrautorizacao');
//Verificar se o funcionário pode digitar o código do usuário ou passar o cartão - Unimed Birigui - FO nº 2212.059
//Renato - 26/05/2010
if ($AW000006 == 'S' and isset($cdmotivoDigCartao)) {
F_HISTORICO_CARTAO_FUNC($v_nrautorizacao, strtoupper($PHP_AUTH_USER), $cdmotivoDigCartao, $txobsdigcartao);
}
//fim
if ($resultado != 'OK') {
OCIlogoff($conn);
print "<SCRIPT LANGUAGE=JAVASCRIPT>alert('{$resultado}');window.history.back(1);</SCRIPT>";
}
if ($nrcheq != !1 && $erro == 'N' && $awcheque == 'S') {
//atualizando o campo NÚMERO CHEQUE CONSULTA NA autorização
$stmt8 = ociparse($conn, "UPDATE AUTORIZACAO SET NRCHEQUE_CONSULTA = '{$nrcheq}' WHERE NRAUTORIZACAO='{$v_nrautorizacao}'");
OCIexecute($stmt8);
OCIcommit($conn);
OCIFreeStatement($stmt8);
}
//echo "[(5)$viapr]";
F_VALIDA_SERVICO($unimed, $contrato, $familiag, $dependencia, $sv, $dtatendimento, $data2, $data3, $cdespecial, $aocobrarco, $qt, $nivel, 'WEB', $rn . $nmusu, $cid, $nrocorrencia, 'A', '', '', '1', $v_nrautorizacao, $status_digital, $viapr);
//echo "[(6)$viapr]";
// echo "status_digital:".$status_digital;
if ($sitserv != 'CORRETO') {
session_register('sitserv');
/**
* Destrutor da classe
* @return void
*/
public function __destruct()
{
// Verificar porque o AW00MD TAMBÉM abre uma conexão ?????? //
// O correto é utilizar a conexão SOMENTE / UNICA E EXCLUSIVAMENTE, da classe do Oracle //
global $conn;
OCIlogoff($conn);
}
