CPC-BOGENERATEDSIB.p

• Rotina utilizada para permitir que a data limite de envio para beneficiários sem CNS seja alterada.
• Caso o cliente não queira executar a chamada da CPC no seu programa deve colocar CPC Ativo como não.

Localização

• Inclusão de ponto antes da validação da data de verificação de beneficiários sem CNS no programa bogeneratedsib.p

Ponto de Utilização

• "VALIDA-CNS"

Include das definições das tabelas temporárias

• cpc-bogeneratedsib.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-bogeneratedsib-entrada

def temp-table tmp-cpc-bogeneratedsib-entrada no-undo

field in-evento-programa                   as char format "x(06)"
field nm-ponto-chamada-cpc            as char format "x(15)"
field cd-erro                                        as int
field cd-modalidade                           like modalid.cd-modalidade
field cd-reg-propost                           like reg-plano-saude.cdn-plano-ans
field cd-mod-usuario                         like usuario.cd-modalidade
field cd-reg-usuario                           like reg-plano-saude.cdn-plano-ans
field in-registro-plano                        like propost.in-registro-plano
field nr-ter-adesao                             like propost.nr-ter-adesao
field cd-usuario                                 like usuario.cd-usuario
field nm-usuario                                like usuario.nm-usuario
field nm-contratante                          like contrat.nm-contratante
field ds-erro                                      as char format "x(81)"
field ds-status                                   as char format "x(13)"
field ds-acao-registro                      as char format "x(14)".

Definição campo a campo da tabela de entrada

• • • Nm-ponto-chamada-cpc - Nome do ponto de chamada da CPC dentro do programa que a utiliza.
    • Cd-erro – Codigo de erro.
    • Cd-modalidade – Código da modalidade
    • Cd-reg-propost – Código do registro da proposta
    • Cd-mod-usuario – Código da modalidade do usuário
    • Cd-reg-usuario – Código do registro do usuário
    • In-registro-plano – Início do registro do plano
    • Nr-ter-adesao – Número do termo de adesão
    • Cd-usuario – Código do usuário
    • Nm-usuario – Nome do usuário
    • Nm-contratante – Nome do Contratante
    • Ds-erro – Descrição do erro
    • Ds-status – Descrição do status
    • Ds-acao-registro – Descrição da ação do registro

Tabela de saída tmp-cpc-bogeneratedsib-saida

def temp-table tmp-cpc-bogeneratedsib-saida no-undo

field lg-undo-retry                       as log
field lg-erro                                 as log
field ds-mensagem                    as char format "x(80)"
field lg-considera-erro               as log
field lg-invalida-modalidade      as log
field lg-invalida-proposta           as log
field lg-invalida-usuario             as log
field cd-cnpj                                like contrat.nr-cgc-cpf
field nr-cei                                  like contrat.nr-cei
field dt-cns-obrigatorio               as date format 99/99/9999.

Definição campo a campo da tabela de saída

• • • lg-undo-retry - Campo que controla se erros aconteceram dentro da CPC. Se o retorno desta variável for igual a SIM, indicará que erros aconteceram e se o retorno for igual à NÃO, indicará que o processo foi concluído por completo.
    • ds-mesagem - Campo que retorna mensagem de erro, se ocorrido dentro da CPC.
    • lg-considera-erro – Log para considerar erro ou não
    • lg-invalida-modalidade – Log para invalidar a modalidade
    • lg-invalida-proposta – Log para invalidar a proposta
    • lg-invalida-usuario – Log para invalidar o usuário
    • cd-cnpj – Código do cnpj
    • nr-cei – Número do CEI
    • dt-cns-obrigatorio - Variável de controle da data da CNS.