- 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 SERIOUS).
Ponto de Utilização
"FIM-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-amb.cd-amb
field cd-tipo-insumo like insumo.cd-tipo-insumo
field cd-insumo like insumo.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 moviproc.cd-local-atendimento
field cd-clinica like moviproc.cd-clinica
field lg-simulacao as log
field in-modulo-execucao as char format "x(03)".
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. Os valores desse campo podem ser:
"INCLUI", "ALTERA", "EXCLUI".
nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para a rotina rtclpart.p:
"FIM-PROGRAMA"
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.
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.
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.
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.
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas