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');
}
if ($sitserv == !1 or $sitserv == 'CORRETO') {
$cdocorrencia2 = !1;
$aoaprovacao = !1;
} else {
$cdocorrencia2 = $sitserv;
$aoaprovacao = 'N';
}
$nrsequencia++;
$resultado = F_INSERE_SERVICO_AUTORIZACAO($v_nrautorizacao, $sv, $qt, $cdocorrencia2, $nrocorrenciaserv, '', '', '', '', $unimed, $emissor, '', '', '');
if ($nrocorrencia == "" && $nrocorrenciaserv == "") {
if ($cdsv == !1) {
print "<SCRIPT LANGUAGE=JAVASCRIPT>alert('Não foi encontrado Serviço com este Código!');</SCRIPT>";
} else {
$datahora = $dtdigitacao . $hrdigitacao;
$txsenhaautempr = 'N';
$result = F_VALIDA_USUARIO($unimed, $dependencia, $digito, $datahora, $contrato, $familia, 'Autorização', '0', '0', '', '0', 'N', $cdabrangenciausu, 'A', '', '', '');
if ($situsu == 'CORRETO') {
$cdocorrencia1 = !1;
$aoaprovacao = !1;
} else {
$cdocorrencia1 = $situsu;
$aoaprovacao = 'N';
}
$aocobrarco = 'N';
// echo "$datahora";
F_VALIDA_SERVICO($unimed, $contrato, $familia, $dependencia, $sv, $datahora, $data2, $data3, $cdespecialidade, $aocobrarco, $qt, $nivel, 'Autorização', $rn . $nmusu, strtoupper($cid), $nrocorrencia, 'A', '', '', $cdtipo_guia, '', $status_digital, '');
if ($sitserv == !1 or $sitserv == 'CORRETO') {
$cdocorrencia2 = !1;
$aoaprovacao = !1;
} else {
$cdocorrencia2 = $sitserv;
$aoaprovacao = 'N';
}
$stmt01 = ociparse($conn, "begin :retfc := F_DADOS_AUTORIZ_127('{$unimed}','{$contrato}','{$familiag}','{$dependencia}','{$digito}','','','','',:nmempresa,:nmusuario,:dtinicio,:dtnascimento,:tpplano,:tpcontrato,:nrregistro_soli,:nmsolicitante,:nrregistro_prest,:nmprestador,:cdespecial,:especialidade,:aoutiliza_cheque_consulta,:cdespecial_req,:nrseq_prestador,:nrseq_requisitante); end;");
OCIbindbyname($stmt01, "retfc", $retfc, 7);
OCIbindbyname($stmt01, "nmempresa", $nmempresa, 60);
OCIbindbyname($stmt01, "nmusuario", $nmusuario, 60);
OCIbindbyname($stmt01, "dtinicio", $dtinicio, 10);
OCIbindbyname($stmt01, "dtnascimento", $dtnascimento, 10);
OCIbindbyname($stmt01, "tpplano", $tpplano, 35);
OCIbindbyname($stmt01, "tpcontrato", $tpcontrato, 35);