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.

...

__RefHeading__6886_486694287__RefHeading__6886_486694287 Âncora__RefHeading__2097_213273755__RefHeading__2097_213273755 Âncora__RefHeading__11495_644533341__RefHeading__11495_644533341 Âncora__RefHeading__87393_1756225838__RefHeading__87393_1756225838Localizaçã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";

...

__RefHeading__20735_2053127524 Âncora__RefHeading__6890_486694287__RefHeading__6890_486694287 Âncora__RefHeading__2101_213273755__RefHeading__2101_213273755 Âncora__RefHeading__11499_644533341__RefHeading__11499_644533341 Âncora__RefHeading__87397_1756225838__RefHeading__87397_1756225838Include das definições das tabelas temporárias

• cpc-pr0311l.i

...

Tabelas de entrada e saída
Âncora__RefHeading__20739_2053127524__RefHeading__20739_2053127524 Âncora__RefHeading__6894_486694287__RefHeading__6894_486694287 Âncora__RefHeading__2105_213273755__RefHeading__2105_213273755 Âncora__RefHeading__11503_644533341__RefHeading__11503_644533341anchor__RefHeading__87401_1756225838__RefHeading__87401_1756225838

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.

...