CPC-RC0118E.P

• Rotina chamada no programa de atualização da data limite para a tabela de preços dos insumos de procedimentos médicos;
• 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 Rc0118e.p, é permitirá ao usuário selecionar a quantidade de casas decimais que deseja arredondar a quantidade de Quantidade de Moeda do insumo (do prestador).

Ponto de Utilização

  Âncora__RefHeading__24705_2053127524__RefHeading__24705_2053127524 Âncora__RefHeading__10860_486694287__RefHeading__10860_486694287 Âncora__RefHeading__6071_213273755__RefHeading__6071_213273755 Âncora__RefHeading__15469_644533341__RefHeading__15469_644533341 Âncora__RefHeading__91367_1756225838__RefHeading__91367_1756225838Ponto de Utilização

• "ARRED-INSUMO"

Âncora__RefHeading__24707_2053127524__RefHeading__24707_2053127524 Âncora__RefHeading__10862_486694287__RefHeading__10862_486694287 Âncora__RefHeading__6073_213273755__RefHeading__6073_213273755 Âncora__RefHeading__15471_644533341__RefHeading__15471_644533341 Âncora__RefHeading__91369_1756225838__RefHeading__91369_1756225838Include das definições das tabelas temporárias

• cpc-rc0118e.i

Âncora__RefHeading__24709_2053127524__RefHeading__24709_2053127524 Âncora__RefHeading__10864_486694287__RefHeading__10864_486694287 Âncora__RefHeading__6075_213273755__RefHeading__6075_213273755 Âncora__RefHeading__15473_644533341__RefHeading__15473_644533341 Âncora__RefHeading__91371_1756225838__RefHeading__91371_1756225838Tabelas de entrada e saída
anchor__RefHeading__24711_2053127524__RefHeading__24711_2053127524 Âncora__RefHeading__10866_486694287__RefHeading__10866_486694287 Âncora__RefHeading__6077_213273755__RefHeading__6077_213273755 Âncora__RefHeading__15475_644533341__RefHeading__15475_644533341 Âncora__RefHeading__91373_1756225838__RefHeading__91373_1756225838

Tabela de entrada tmp-cpc-rc0118e-entrada

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

field in-evento-programa                       as char format "x(10)"
field nm-ponto-chamada-cpc                 as char format "x(15)"
field qt-moeda-insumo                         like preinpr.qt-moeda-insumo
field nr-casas-dec

...

                               as int.

...

Definição campo a campo da tabela de entrada

• in-evento-programa – Evento do programa que chama a cpc-rc0118e.
• nm-ponto-chamada-cpc – Nome do ponto de chamada.
• qt-moeda-insumo – Quantidade de Moeda gravado na tabela.
• nr-casas-dec – Número de casas decimais do arredondamento.

...

...

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

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

field lg-undo-retry

...

                             as log
field ds-mensagem-retorno                 as char format "x(75)"
field qt-moeda-insumo                       like preinpr.qt-moeda-insumo
field nr-casas-dec

...

                             as int.

...

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 aconteceram e NÃO se o processo foi concluído por completo.
• ds-mensagem-erro – Deve conter mensagem referente ao erro.
• qt-moeda-insumo – Quantidade de Moeda após o arredondamento, levando em consideração o número de casas decimais indicada pelo usuário.
• nr-casas-dec – Número de casas decimais que será arredondada a quantidade.

...