cpc-wac0033a.p0

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;