CPC-RTCOBVAL.P

• Verificar o tipo de cobertura (normal, intercambio ou repasse) para valorizacao de procedimentos e insumos .
• 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 rtcobval.p, o ponto de chamada "TAXA-ADM-ESPEC" para calcular a taxa de intercambio especifica.

Âncora__RefHeading__23973_2053127524__RefHeading__23973_2053127524 Âncora__RefHeading__10128_486694287__RefHeading__10128_486694287 Âncora__RefHeading__5339_213273755__RefHeading__5339_213273755 Âncora__RefHeading__14737_644533341__RefHeading__14737_644533341 Âncora__RefHeading__90635_1756225838__RefHeading__90635_1756225838Ponto de Utilização

"CALCULO"

...

Include das definições das tabelas temporárias

• cpc-rtcobval.

...

• i 

Tabelas de entrada e saída

...

Tabela de entrada tmp-cpc-rtcobval-entrada

def temp-table tt-cpc-rtcobval-entrada no-undo

field in-evento-programa

...

                                     as char format "x(06)"
field nm-ponto-chamada-cpc                               as char format "x(15)"
field lg-mensagem-na-tela                                   as logical
field nr-rowid-out-uni                                             as rowid
field cd-tab-preco-proc

...

                                         as character format "xxx/99"
field lg-procedimento

...

                                            as logical

...

Definição campo a campo da tabela de entrada

• • in-evento-programa- Identifica qual evento deve ser executado no momento que está sendo chamada.
  • nm-ponto-chamada-cpc – Ponto de chamada da cpc.
  • lg-mensagem-tela – Indicador de que as mensagens geradas na CPC poderão ou não ser mostradas em tela.
  • nr-rowid-out-uni – Rowid para a tabela de beneficiários de outras unidades (tabela out-uni).
  • cd-tab-preco-proc – Código da tabela de preço do Procedimento.
  • lg-procedimento – Indicador de que a chamada foi feita para um Procedimento ("P").

...

...

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

def temp-table tt-cpc-rtcobval-saida no-undo

field lg-undo-retry                                         as logical
field ds-mensagem-relatorio                     as char format "x(75)"
field pc-taxa-aca-par                                   as dec format ">>9.99999"
field pc-taxa-acp-par                                   as dec format ">>9.99999"

...

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

• • lg-undo-retry – Variável que controla os erros que podem ocorrer na CPC.
  • ds-mensagem – Variável que recebe a descrição dos erros que ocorreram na CPC.
  • Pc-taxa-aca-par - Percentual de taxa a ser cobrada sobre os atos cred. auxiliares.
  • Pc-taxa-acp-par – Percentual de taxa a ser cobrada sobre os atos cred. principais

...

• • .