Esempio n. 1
0
     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 == "") {
Esempio n. 2
0
 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);