• Rotina para calculo da participação (Fator Moderador). Essa rotina deve devolver o valor da participação e o percentual (se utilizado) na qual fará a sobreposição dos valores calculados pelo sistema.
• 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 da rotina rtclpart.p (Calculo da participação do TOTVS12).

Ponto de Utilização

"FIM-PROGRAMA"

"ALT-REAJ-PART"

"ESPEC-PARTIC"

"VALIDA-PROGRAMA"

Include das definições das tabelas temporárias

• cpc-rtclpart.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-rtclpart-entrada

def temp-table tmp-cpc-rtclpart-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 lg-urgencia                                             as logical
field lg-sem-cobertura                                    as logical
field nr-rowid-usuario                                     as rowid
field nr-rowid-proposta                                   as rowid
field nr-rowid-precproc                                   as rowid
field nr-rowid-movto                                       as rowid
field cd-modulo                                              like mod-cob.cd-modulo
field cd-forma-pagto-cob                                like formpaga.cd-forma-pagto
field in-tipo-movimento                                   as char format "x(01)"
field cd-grupo-proc                                         like ambproce.cd-grupo-proc
field cd-amb                                                   like pl-mo-am.cd-amb
field cd-tipo-insumo                                       like insumos.cd-tipo-insumo
field cd-insumo                                              like insumos.cd-insumo
field vl-completo-do-movimento                    like mov-insu.vl-insumo
field qt-movimento                                        like mov-insu.qt-insumo
field qt-faixa-participacao                              like fxparpro.qt-faixa-inicial
field dt-base-valor                                         like mov-insu.dt-base-valor
field cd-transacao                                         like moviptmp.cd-transacao
field dt-anoref                                               like moviptmp.dt-anoref
field nr-perref                                                like moviptmp.nr-perref
field cd-unidade-prestador-exec                   like moviptmp.cd-unidade-prestador
field cd-prestador-exec                                 like moviptmp.cd-prestador
field cd-esp-prest-executante                       like moviptmp.cd-esp-prest-executante
field vl-honorario                                           like moviproc.vl-honorarios-medicos
field vl-operacional                                       like moviproc.vl-operacional
field vl-filme                                                  like moviproc.vl-filme
field cd-local-atendimento                            like locaaten.cd-local-atendimento
field cd-clinica                                              like moviproc.cd-clinica
field vl-taxa-participacao                              like mov-insu.vl-desconto-prestador
field pc-taxa-participacao                             like fxparpro.pc-part-cob-urg
field lg-simulacao                                         as log
field in-modulo-execucao                             as char format "x(03)"
field nr-proposta                                           like propost.nr-proposta
field cd-modalidade                                      like modalid.cd-modalidade
field cd-usuario                                             as int
field lg-vl-pagto-real                                      as log
field nr-ter-adesao                                        like propost.nr-ter-adesao
field cd-plano                                                as int
field cd-tipo-plano                                         as int
field aa-guia-atendimento like guiautor.aa-guia-atendimento
field nr-guia-atendimento like guiautor.aa-guia-atendimento
field cd-vinculo-prest-exe                            like previesp.cd-vinculo.

Definição campo a campo da tabela de entrada

• • • in-evento-programa – Evento do programa que chama a rotina rtclpart, na qual será passada para a cpc-rtclpart.p.
    • nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza.
    • lg-mensagem-na-tela – Indica se as mensagens de erro devem ser dispostas na tela ou não. Caso o indicador for não o campo da tabela de saída ds-mensagem-relatorio deve ser preenchido. (não obrigatório).
    • lg-urgencia – indica se o movimento foi executado em urgencia.
    • lg-sem-cobertura – indica se o beneficiário possui ou não cobertura do movimento.
    • nr-rowid-usuario – rowid do beneficiário , para find na tabela usuário. (beneficiários da base).
    • nr-rowid-proposta – rowid da proposta, para find na tabela propost. (proposta do beneficiário da base).
    • nr-rowid-precproc – rowid da tabela de moedas e carencias e participações para pegar o valor ou percentual para calculo da mesma.
    • nr-rowid-movto – caso o movimento seja um procedimento este campo terá o rowid da tabela moviproc, e caso o movimento seja um insumo este campo terá o rowid da tabela mov-insu. Este campo somente poderá ser utilizado quando o cálculo da participação for realizado sobre as tabelas moviproc ou mov-insu.
    • cd-modulo – modulo de cobertura do movimento.
    • cd-forma-pagto-cob – forma de pagamento de cobrança.
    • in-tipo-movimento – indica o tipo do movimento em questão pode ser "P" – procedimentos ou "I" insumos.
    • cd-grupo-proc – Grupo do procedimento do cadastro de procedimentos campo grupo do procedimento. Somente preenchido se o in-tipo-movimento for "P".
    • cd-amb – Código do procedimento com 8 posições (completo). Somente preenchido se o in-tipo-movimento for "P".
    • cd-tipo-insumo – Tipo do insumo do movimento. Somente preenchido se o in-tipo-movimento for "I".
    • cd-insumo – Código do insumo. Somente preenchido se o in-tipo-movimento for "I".
    • vl-completo-movimento – Valor total do movimento tanto para procedimento quanto para insumos.
    • qt-movimento – Quantidade total do movimento tanto para procedimento quanto para insumos.
    • qt-faixa-participação – Quantidade da faixa para calculo da participação escalonada, campo enviado pelo calculo do controle quantitativo. Tanto para procedimento quanto para insumos.
    • dt-base-valor – Data base para calculo da participação, conforme parametrização da transação.
    • cd-transacao – Transação do RC na qual foi digitado o movimento.
    • dt-anoref e nr-perref – Ano e numero do período de referencia na qual foi digitado o movimento.
    • cd-unidade-prestasdor-exec – Código da unidade do prestador executante.
    • cd-prestador-exec – Código do prestador executante.
    • cd-esp-prest-executante – Especialidade do prestador executante.
    • vl-honorario – Valor do honorário de cobrança para procedimentos. Somente preenchido se o in-tipo-movimento for "P" e se possuir o valor.
    • vl-operacional – Valor do operacional de cobrança para procedimentos. Somente preenchido se o in-tipo-movimento for "P" e se possuir o valor.
    • vl-filme – Valor do Filme de cobrança para procedimentos. Somente preenchido se o in-tipo-movimento for "P" e se possuir o valor.
    • cd-local-atendimento – Código do local de atendimento baseado nas parametrizações do RC.
    • cd-clinica – Código da clinica baseado nas parametrizações do AC.
    • vl-taxa-participacao - Valor da taxa de participação
    • pc-taxa-participacao - Percentual da taxa de participação
    • lg-simulacao - Campo que identifica se foi rodado uma simulação ou não.
    • in-modulo-execucao - Campo que identifica o módulo a qual a rotina RTCLPART foi chamada.
    • nr-proposta - Código da proposta.
    • cd-modalidade - Código da modalidade.
    • cd-usuario - Código do beneficiário.
    • lg-vl-pagto-real
    • nr-ter-adesao - Código do contrato (termo de adesão).
    • cd-plano - Código do plano.
    • cd-tipo-plano - Código do tipo de plano.
    • aa-guia-atendimento - Ano da guia de atendimento.
    • nr-guia-atendimento - Número da guia de atendimento
    • cd-vinculo-prest-exe - Vinculo do prestador executante

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

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

field lg-undo-retry as logical
field ds-mensagem-relatorio as char format "x(75)"
field vl-taxa-participacao like mov-insu.vl-desconto-prestador
field pc-taxa-participacao like fxparpro.pc-part-cob-urg
field lg-valido as log.

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-relatorio – Deve conter mensagens de erro ou qualquer outro tipo de mensagem. Utilizado em conjunto com a entrada lg-mensagem-na-tela. Se lg-mensagem-na-tela for Não então esse campo deve ser preenchido.
  • vl-taxa-participacao – Valor da participação calculado pela rotina.
  • pc-taxa-participacao – Percentual de participação utilizado para calculo quando a mesma for por percentual sobre o valor do movimento.
  • lg-valido – Indicador se o programa é válido.