PROCEDURE gerar_boleto(p_tipo_cliente        IN VARCHAR2, --PF / PJ
                         p_nome                IN outros_emit_sac_pf.nome%TYPE,
                         p_cpf_cnpj            IN outros_emit_sac_pf.cpf%TYPE,
                         p_cod_inscricao       IN portal.form_email_resposta.cod_resposta%TYPE,
                         p_estudante           IN VARCHAR2, -- S/N
                         p_parametro_descricao IN portal.parametros.parametro%TYPE,
                         p_seq_relatorio       OUT NUMBER,
                         p_ok                  OUT INTEGER,
                         p_mensagem            OUT VARCHAR2) AS
    mensagem_erro_padrao VARCHAR2(100) := 'Falha ao realizar sua solicitação. Favor tente novamente mais tarde';

    v_tipo_cliente_fornec emitentes_sacados.tipo_emitente_sacado%TYPE;
    v_sequence            NUMBER;
    v_sequence_null       NUMBER;
    v_cod_emitente        NUMBER;

    v_num_boleto_avulso NUMBER;
    v_num_recibo        NUMBER;
    v_erro              NUMBER;

    p_vet_tipodoc_financ  sabius.pkg_geracao_avulso.vetnumber;
    p_vet_verba           sabius.pkg_geracao_avulso.vetnumber;
    p_vet_valor           sabius.pkg_geracao_avulso.vetnumber;
    p_vet_qtdedoc_financ  sabius.pkg_geracao_avulso.vetnumber;
    p_vet_complemento     sabius.pkg_geracao_avulso.vetstring;
    p_vet_doc_financ      sabius.pkg_geracao_avulso.vetnumber;
    p_vet_verba_financ    sabius.pkg_geracao_avulso.vetnumber;
    p_vet_num_doc_financ  sabius.pkg_geracao_avulso.vetstring;
    p_vet_banco           sabius.pkg_geracao_avulso.vetnumber;
    p_vet_agencia         sabius.pkg_geracao_avulso.vetnumber;
    p_vet_conta           sabius.pkg_geracao_avulso.vetnumber;
    p_vet_dv_conta        sabius.pkg_geracao_avulso.vetstring;
    p_vet_servico_unimed  sabius.pkg_geracao_avulso.vetstring;
    p_vet_servico_medhosp sabius.pkg_geracao_avulso.vetnumber;
    p_vet_valor_servico   sabius.pkg_geracao_avulso.vetnumber;
    p_vet_prestador       sabius.pkg_geracao_avulso.vetnumber;
    p_vet_unimed          sabius.pkg_geracao_avulso.vetnumber;
    p_vet_unidade         sabius.pkg_geracao_avulso.vetstring;
    p_vet_tipo_doc        sabius.pkg_geracao_avulso.vetnumber;
    p_vet_num_doc         sabius.pkg_geracao_avulso.vetnumber;

    v_qtd_titulo NUMBER;
    v_qtd_boleto NUMBER;
    v_usuario    sabius.usuarios.cod_usuario%TYPE;

    v_dados_param VARCHAR(500);

    v_data_nasc outros_emit_sac_pf.data_nascimento%TYPE := NULL;
    v_sexo      outros_emit_sac_pf.sexo%TYPE := NULL;
    v_rg        outros_emit_sac_pf.rg%TYPE := NULL;

    v_conta        titulo_avulso.cod_conta_unimed%TYPE;
    v_valor_boleto titulo_avulso.valor_total%TYPE := 60.00;

  BEGIN
    v_dados_param := 'Tipo cliente: ' || p_tipo_cliente || ' | Nome: ' ||
                     p_nome || ' | CPF/CNPJ: ' || p_cpf_cnpj ||
                     ' | Inscrição: ' || p_cod_inscricao;

    IF p_tipo_cliente = 'PF' THEN
      v_tipo_cliente_fornec := 6;
      v_conta               := 87;
      v_data_nasc           := TO_DATE('01/09/2016', 'dd/mm/yyyy');
      v_sexo                := 'M';
      v_rg                  := '0';

      IF p_estudante = 'S' THEN
        v_valor_boleto := v_valor_boleto / 2;
      END IF;
    ELSE
      v_tipo_cliente_fornec := 7;
      v_conta               := 85;
    END IF;

    p_ok := 0;
    p_mensagem := NULL;
    p_vet_tipodoc_financ(1) := 24;
    p_vet_verba(1) := 519;
    p_vet_valor(1) := v_valor_boleto;
    p_vet_qtdedoc_financ(1) := 1;
    p_vet_complemento(1) := p_cod_inscricao;
    p_vet_doc_financ(1) := NULL;
    p_vet_verba_financ(1) := NULL;
    p_vet_num_doc_financ(1) := NULL;
    p_vet_banco(1) := NULL;
    p_vet_agencia(1) := NULL;
    p_vet_conta(1) := NULL;
    p_vet_dv_conta(1) := NULL;
    p_vet_servico_unimed(1) := NULL;
    p_vet_servico_medhosp(1) := NULL;
    p_vet_valor_servico(1) := NULL;
    p_vet_prestador(1) := NULL;
    p_vet_unimed(1) := NULL;
    p_vet_unidade(1) := NULL;
    p_vet_tipo_doc(1) := NULL;
    p_vet_num_doc(1) := NULL;

    pkg_geracao_avulso.carrega_dados_detalhe_ant(1, p_vet_tipodoc_financ,
                                                 p_vet_verba, p_vet_valor,
                                                 p_vet_qtdedoc_financ,
                                                 p_vet_complemento, 0,
                                                 p_vet_doc_financ,
                                                 p_vet_verba_financ,
                                                 p_vet_num_doc_financ,
                                                 p_vet_banco, p_vet_agencia,
                                                 p_vet_conta, p_vet_dv_conta,
                                                 0, p_vet_servico_unimed,
                                                 p_vet_servico_medhosp,
                                                 p_vet_valor_servico,
                                                 p_vet_prestador,
                                                 p_vet_unimed, p_vet_unidade,
                                                 0, p_vet_tipo_doc,
                                                 p_vet_num_doc, 293,
                                                 v_sequence, p_mensagem);

    IF p_mensagem IS NULL THEN

      SELECT MAX(e.cod_emitente_sacado) + 1
        INTO v_cod_emitente
        FROM emitentes_sacados e;

      sabius.pkg_geracao_avulso.carrega_dados_outro_pf_pj(63,
                                                          v_tipo_cliente_fornec,
                                                          p_nome,
                                                          v_data_nasc,
                                                          v_sexo, v_rg,
                                                          p_cpf_cnpj, 'CE'
                                                          /* UF */, 9533
                                                          /* Cidade */, 20
                                                          /*Bairro*/, 9041
                                                          /* Logradouro */,
                                                          949 /* Número */,
                                                          NULL
                                                          /* Complemento */,
                                                          60150160 /* Cep */,
                                                          293
                                                          /* Processo */,
                                                          v_sequence,
                                                          p_mensagem);

    END IF;

    IF p_mensagem IS NULL THEN
      v_sequence_null := 0;
      sabius.pkg_geracao_avulso .gera_avulso(63, 293,
                                             EXTRACT(YEAR FROM SYSDATE),
                                             EXTRACT(MONTH FROM SYSDATE),
                                             SYSDATE, SYSDATE + 2,
                                             v_tipo_cliente_fornec,
                                             v_cod_emitente, NULL, NULL,
                                             NULL, 48, v_valor_boleto, 'S',
                                             63, v_conta, 'N', NULL, USER,
                                             v_sequence, v_sequence_null,
                                             v_num_boleto_avulso,
                                             v_num_recibo, p_mensagem,
                                             v_erro);
      --commit;
      IF p_mensagem IS NULL THEN
        sabius.pkg_geracao_boleto_avulso.gera_boleto(63,
                                                     v_num_boleto_avulso,
                                                     v_num_boleto_avulso,
                                                     293, v_qtd_titulo,
                                                     v_qtd_boleto,
                                                     p_mensagem, v_usuario,
                                                     p_seq_relatorio);
        IF p_seq_relatorio IS NOT NULL THEN
          p_ok := 1;
          UPDATE temp_relatorio
             SET campo_21 =
                  (SELECT MAX(valor)
                     FROM portal.parametros
                    WHERE parametro = p_parametro_descricao)
           WHERE num_relatorio = p_seq_relatorio;
        END IF;
      END IF;
    END IF;
    IF p_mensagem IS NOT NULL THEN
      portal.pkg_servicos_gerais.log_error(v_dados_param, p_mensagem,
                                           'PORTAL.pkg_servicos_gerais.gerar_boleto');
      p_ok       := 0;
      p_mensagem := 'Falha ao realizar inscrição. Favor tente novamente mais tarde.';
    END IF;
  EXCEPTION
    WHEN OTHERS THEN
      ROLLBACK;
      p_ok := 0;
      portal.pkg_servicos_gerais.log_error(v_dados_param,
                                           SQLERRM || ' | ' ||
                                            DBMS_UTILITY.format_error_backtrace,
                                           'PORTAL.pkg_servicos_gerais.gerar_boleto');
      p_mensagem := mensagem_erro_padrao;

  END;