Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

CPC-VP0113A.P

Produto:

Gestão de Planos de Saúde

Módulo:Todos
Versão:12.x.x
Assuntos:

cpc-vp0113a.p

  • Rotina chamada na opção elimina do programa de manutenção de contratantes.
  • Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
  • Será permitido para esta CPC apenas um registro na tabela temporária de saída. Caso possuir mais de um registro um erro será reportado.

Localização

  • Dentro do programa vp0113a.p, após o elimina do contratante (pessoa física e jurídica).
  • Dentro do programa vp0113a.p, antes de eliminar o contratante (pessoa física e jurídica).

Ponto de Utilização

"INICIO-ELIMINA"
"ANTES-EXCLUI"

Include das definições das tabelas temporárias

  • cpc-vp0113a.i

Tabelas de entrada e saída


Tabela de entrada tmp-cpc-vp0113a-entrada

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

field nm-ponto-chamada-cpc

...

                     as char format "x(15)"
field nr-insc-contrat                                     like contrat.nr-insc-contrat

...

Definição campo a campo da tabela de entrada

      • nm-ponto-chamada – Nome do Ponto de Utilização, que deve ser "INICIO-ELIMINA".
      • nr-ins-contrat – Número da inscrição do contratante.

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

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

field lg-undo-retry

...

                       as log
field ds-mensagem-erro             as char format "x(75)"

...

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

      • lg-undo-retry – Variável que controla se erros aconteceram dentro da CPC deve retornar SIM se erros aconteceram e NÃO se o processo foi concluído por completo.
      • ds-mensagem-erro – Deve conter mensagens de erro caso ocorram.