CPC-VP0112C.P1

• Rotina chamada na opção modifica do programa de manutenção de beneficiários.
• 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 vp0112c.p, após alterar a data de nascimento e calcular a idade do beneficiário.

Ponto de Utilização

"DT-NASCIMENTO"

Include das definições das tabelas temporárias

• cpc-vp0112c.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-vp0112c-entrada

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

field in-evento-programa                         as char format "x(10)"
field nm-ponto-chamada                         as char format "x(15)"
field lg-mensagem-na-tela                      as logical
field cd-modalidade-tit                             like usuario.cd-modalidade
field nr-proposta-tit                                   like usuario.nr-proposta
field cd-usuario-tit                                    like usuario.cd-usuario
field nr-idade                                            as int format "999"
field r-pro-pla                                           as rowid
field dt-inicio                                            like usumodu.dt-inicio
field in-est-civil                                        like usuario.in-est-civil
field cd-grau-parentesco                         like usuario.cd-grau-parentesco
field cd-plano                                           like pla-sau.cd-plano
field cd-tipo-plano                                    like ti-pl-sa.cd-tipo-plano

Definição campo a campo da tabela de entrada

• • • in-evento-programa – Evento do programa que chama a cpc-vp0112c, que deve ser "DT-NASC".
    • nm-ponto-chamada – Nome do Ponto de Utilização, que deve ser "DT-NASCIMENTO".
    • lg-mensagem-na-tela – indica se o programa deverá mostrar mensagens na tela ou executar em batch.
    • cd-modalidade-tit – código da modalidade do beneficiário que esta sendo alterado.
    • nr-proposta-tit – número da proposta do beneficiário que esta sendo alterado.
    • cd-usuario-tit – código do beneficiário que esta sendo alterado.
    • nr-idade – Idade do beneficiário que está sendo alterado.
    • r-pro-pla – Recid da tabela pro-pla (Módulos da proposta). Não informado neste ponto.
    • Dt-inicio – Data de inicio do módulo que será gravado. Não informado neste ponto.
    • In-est-civil – Estado civil do beneficiário que será incluído.
    • Cd-plano – Código do plano do beneficiário que será incluído.
    • Cd-tipo-plano – Código do tipo de plano do beneficiário que será incluído
      
      

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

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

field lg-tem-mensagem                     as logical
field ds-mensagem-retorno               as char format "x(75)"
field lg-continua                                  as logical

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

• • • lg-tem-mensagem - Variável que controla se existe mensagem para informação sobre beneficiário titular a ser alterado.
    • ds-mensagem-retorno – Deve conter mensagem referente ao beneficiário titular a ser alterado.
    • lg-continua – Indica se deve continuar com alteração do beneficiário.