CPC-RTCLPART1.P

• 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 entrada tmp-rtclpart-entrada

               def temp-table tmp-rtclpart-entrada no-undo
                               field in-evento-programa as char format "x(06)"
                               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 lg-simulacao as log
                               field in-modulo-execucao as char format "x(03)"
                               field lg-recalcula-percentual as log init yes
                               field aa-guia-atendimento like guiautor.aa-guia-atendimento
                               field nr-guia-atendimento like guiautor.aa-guia-atendimento
                               field lg-fratura as log init no
                               field cd-tipo-guia like tip-guia.cd-tipo-guia
                               field nr-recid-unicamco as recid
                               field nr-recid-out-uni as recid
                               field cd-unidade-principal like docrecon.cd-unidade-principal
                               field cd-prestador-principal like docrecon.cd-prestador-principal
                               field cd-vinculo-prest-exe like previesp.cd-vinculo
                               field dt-postagem-arq like mov-insu.dt-base-valor
                               field pc-desc-hono as dec
                               field pc-desc-operacional as dec
                               field pc-desc-filme as dec.

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.

.