CPC-PR0311L.P

• Rotina para permitir a substituição do Valor trazido como default no campo Val Est Ant Parto no cadastro de Gestante X Proc X Especialidade (RC-12-L).
• 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.

Localização

• Dentro do da rotina pr0311l (cadastro de Gestante X Proc X Especialidade (RC-12-L),
• antes de ser mostrado o default do campo Val Est Ant Parto. É executado o evento "VAL-ANT-PARTO" que permite a substituição do Valor trazido como default no campo Val Est Ant Parto.

Pontos de Utilização

• "VAL-ANT-PARTO";

Include das definições das tabelas temporárias

• cpc-pr0311l.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpcpr0311l-entrada

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

field nm-ponto-chamada-cpc                         as char format "x(15)".

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.

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

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

field lg-undo-retry                                      as logical
field ds-mensagem-erro                           as char
field qt-val-ant                                           as int format "x(999)".

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 acontecerem e NÃO se o processo foi concluído por completo;
• ds-mensagem-erro – Deve conter mensagem de erro ou qualquer outro tipo de mensagem.
• qt-val-ant – Variável que controla a quantidade default para o campo Val Est Ant Parto no cadastro de Gestante X Proc X Especialidade no RC-12-L.