CPC-WAC0033A.P

Rotina utilizada para:

• Permitir visualizar o tipo de plano do beneficiário.
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.

Localização

• Dentro do programa wac0033a.p.

Ponto de Utilização

"TROCA-DESC"

Include das definições das tabelas temporárias

• cpc-wac0033a.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-wac0012a1-entrada

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

field in-evento-programa                      as char format "x(06)"
field nm-ponto-chamada-cpc               as char format "x(15)"
field cd-modalidade                             like propost.cd-modalidade
field cd-plano                                       like propost.cd-plano
field cd-tipo-plano                                like propost.cd-tipo-plano

Definição campo a campo da tabela de entrada

• • • in-evento-programa – Evento do programa que chama a cpc-wac0033a.p.
    • nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa wac0033a.w:
    • "TROCA-DESC".
    • cd-modalidade – código da modalidade do beneficiário.
    • cd-plano – código do plano do beneficiário.
    • cd-tipo-plano – código do tipo de plano do beneficiário.

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

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

field lg-undo-retry                      as log
field ds-mensagem                   as char format "x(75)"
field ds-tipo-plano                     like ti-pl-sa.nm-tipo-plano

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

• • lg-undo-retry – Variável 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-mensagem - Mensagem que deverá ser retornada ao usuário, quando indicação de ocorrência de erro.
  • ds-tipo-plano – descrição do tipo de plano do beneficiário.