cpc-bogeneratedsib.p1

• 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.