Dentro da rotina rtclpart.p (Calculo da participação do SERIOUS).
"FIM-PROGRAMA"
cpc-rtclpart.i
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)".
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.
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.
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.