CPC-RTTXADM.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.

...

__RefHeading__10144_486694287 Âncora__RefHeading__5355_213273755__RefHeading__5355_213273755 Âncora__RefHeading__14753_644533341__RefHeading__14753_644533341 Âncora__RefHeading__90651_1756225838__RefHeading__90651_1756225838Localização

• Dentro do programa rttxadm.p

...

• .

Ponto de Utilização

"TAXA-ADM-ESPEC"

...

"APOS-SOBTXPRO" - a partir da versão 12.1.2407

         Âncora__RefHeading__23991_2053127524__RefHeading__23991_2053127524 Âncora__RefHeading__10146_486694287__RefHeading__10146_486694287 Âncora__RefHeading__5357_213273755__RefHeading__5357_213273755 Âncora__RefHeading__14755_644533341__RefHeading__14755_644533341 Âncora__RefHeading__90653_1756225838__RefHeading__90653_1756225838Ponto de Utilização
"CALCULO"
Âncora__RefHeading__23993_2053127524__RefHeading__23993_2053127524 Âncora__RefHeading__10148_486694287__RefHeading__10148_486694287 Âncora__RefHeading__5359_213273755__RefHeading__5359_213273755 Âncora__RefHeading__14757_644533341__RefHeading__14757_644533341 Âncora__RefHeading__90655_1756225838__RefHeading__90655_1756225838Include das definições das tabelas temporárias

• cpc-rttxadm.i

...

__RefHeading__5361_213273755 Âncora__RefHeading__14759_644533341__RefHeading__14759_644533341 Âncora__RefHeading__90657_1756225838__RefHeading__90657_1756225838Tabelas de entrada e saída
Âncora__RefHeading__23997_2053127524__RefHeading__23997_2053127524 Âncora__RefHeading__10152_486694287__RefHeading__10152_486694287 Âncora__RefHeading__5363_213273755__RefHeading__5363_213273755 Âncora__RefHeading__14761_644533341__RefHeading__14761_644533341 Âncora__RefHeading__90659_1756225838__RefHeading__90659_1756225838

Tabela de entrada

...

tt-cpc-rttxadm-entrada

def temp-table tt-cpc-rttxadm-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 nr-rowid-usuario as rowid
field cd-tab-preco-proc as character format "xxx/99"
field lg-procedimento as logical

...

field cd-unidade-executante as int.
   

...

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-na-tela – Indicaor 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).
    • nr-rowid-usuario - rowid para a tabela de usuários da base (tabela "usuario").
    • 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")

...

• • • .
    • cd-unidade-executante - código da unidade do prestador executante.

Tabela de saída tt

...

-cpc-rttxadm-saida

def temp-table tt-cpc-rttxadm-saida no-undo
field lg-undo-retry as logical
field ds-mensagem-relatorio as char format "x(75)"
field pc-taxa-par as dec format ">>9.99999"
field pc-tx-inter-par as dec format ">>9.99999"

...

field lg-atualiza-pc-taxa as logical
field lg-atualiza-pc-tx-inter as logical.

...

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-relatorio – Variável que recebe a descrição dos erros que ocorreram na CPC.

...

• • • pc-taxa

...

• • • -par -

...

• • • percentual de taxa

...

• • • administrativa.
    • pc-taxa-

...

• • • inter-par

...

• • • - percentual de taxa

...

• • • de intercâmbio.
    • lg-atualiza-pc-taxa - indica se deve atualizar o percentual de taxa administrativa.
    • lg-atualiza-pc-tx-inter - indica se deve atualizar o percentual de taxa de intercâmbio.