cpc-rtclpart1.p1

Rotina utilizada no cálculo da participação com o objetivo de substituir a regra do reajuste da participação aplicada no cálculo da participação. Se existir registros cadastrados em FP-02-K (Manutenção do Reajuste da Participação) e a CPC estiver ativa, vale a regra da CPC. Essa rotina deve devolver o valor da participação já com o reajuste aplicado, 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á utilizado para esta CPC apenas um registro na tabela temporária de saída.
Localização
Dentro da rtclpart.p,
Ponto de Utilização
"ALT-REAJ-PART"
Include das definições das tabelas temporárias
cpc-rtclpart1.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-rtclpart1-entrada
def temp-table tmp-cpc-rtclpart1-entrada no-undo
field in-evento-programa as char format "x(06)"
field nm-ponto-chamada-cpc as char format "x(15)"
field cd-modalidade like reaj-partic-fp.cd-modalidade
field nr-proposta like reaj-partic-fp.nr-proposta
field cd-plano like reaj-partic-fp.cd-plano
field cd-tipo-plano like reaj-partic-fp.cd-tipo-plano
field dt-limite like fp-reaj-part.dt-limite
field vl-taxa like mov-insu.vl-desconto-prestador
field nr-rowid-precproc as rowid
fiels lg-urgencia as log
field dt-base-valor as date
field dt-proposta like propost.dt-parecer.
Definição campo a campo da tabela de entrada
in-evento-programa – Indica o evento, que pode ser ALT-REAJ-PART
nm-ponto-chamada-cpc – Indica o ponto de chamada, que pode ser ALT-REAJ-PART
cd-modalidade – Código da modalidade do termo de adesão
nr-proposta – Número da proposta do beneficiario
cd-plano – Código do plano de saúde
cd-tipo-plano – Código do tipo de plano de saúde
dt-limite – Data base do movimento
vl-taxa – Valor da participação calculado pela rotina rtclpart.p.
nr-rowid-precproc – Identificação do registro da precproc apontado
lg-urgencia – Indica a urgência do movimento
dt-base-valor – Data limite do movimento
dt-proposta – Data Inicial ou Final do movimento
Tabela de saída tmp-cpc-rtclpart1-saida
def temp-table tmp-cpc-rtclpart1-saida no-undo
fields lg-undo-retry as logical
fields ds-mens-rel as char format "x(75)"
fields vl-taxa like mov-insu.vl-desconto-prestador
fields pc-aplicacao like reaj-partic-fp.pc-aplicacao.
Definição campo a campo da tabela saída
lg-undo-retry – Indica se ocorreu erro durante processamento da cpc.
Ds-mens-rel – Descrição do erro quando retornar com erro
vl-taxa – Valor da participação calculado pela rotina com o reajuste já aplicado.
pc-aplicacao – Percentual de aplicação da participação
.