CPC-RTVALORI.P

• Rotina utilizada para permitir a alteração das quantidades de moedas para Operacional Honorario e Filme na valorização do movimento.
• Rotina utilizada para permitir a alteração dos valores de honorários após sua valoração conforme regra específica do cliente.
• Rotina utilizada para permitir a aplicação de percentual no procedimento valorizado e um percentual em um procedimento associado ao procedimento valorizado.
• 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.
• Rotina utilizada para alterar o valor percentual para Honorário, Operacional e Filme.
• Rotina utilizada para permitir que a operadora sobreponha a parametrização padrão de cotação e percentual aplicado pela cotação e percentual definidos no cadastro especifico.

Localização

• Dentro da rotina Rtvalori.p, independente do tipo de valorização (Pagamento ou Cobrança).

Ponto de Utilização

"ATRIBUI-QT-MOED" e "QT-MOED-COBRANC": Retorna a quantidade de moedas para Operacional, Honorario e Filme.

"PERC-PROC-ASSOC": Retorna os percentuais a aplicar no procedimento valorizado e no procedimento associado.

"QT-MOED-PAGTO": Retorna a quantidade de moedas para Operacional e o valor dos honorários

"VALOR-MOVTO": Retorna o valor de honorários conforme regra específica do cliente.

"ATRIBUI-VL-HONO": Ponto de chamada, que permite alterar o valor do Honorário medico valorizado pra o movimento.

"REGRA-APLICA": Ponto de chamada que permite alterar a divisão de Honorário, Operacional e Filme para o movimento através de percentual aplicado.

"COTACAO-PAGTO": Ponto de chamada que permite reduzir o tempo de resposta (time-out) das autorizações de guias através do autorizador SCS.

"MOEDA-PERC-ESP": Permite parametrizar nas tabelas moccolat e mocpglat o código da moeda genérico ou um parâmetro para pegar todas as tabelas e com isso definir uma cotação para todas as moedas.

"ALT-PORT": Permite alteração dos valores (honorário, operacional e filme) após a consulta da tabela "portproc".

"ANTES-VALORIZA": Permite alteração do campo local de atendimento.

"DESC-MOCCOLAT": Ponto de chamada que desconsidera a parametrização referente à Moeda X Cotação Local Atendimento para Cobrança.   

"DESC-MOCPGLAT": Ponto de chamada que desconsidera a parametrização referente à Moeda X Cotação Local Atendimento para Pagamento.

"CRIA-TEMP-SAIDA": permite alterar os valores de honorário, custo operacional e filme no final do processo. Disponível a partir da versão 12.1.2507.

Include das definições das tabelas temporárias

• cpc-rtvalori.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-rtvalori-entrada

def temp-table tmp-cpc-rtvalori-entrada no-undo

field in-evento-programa as char format "x(10)"
field nm-ponto-chamada-cpc as char format "x(15)"
field cd-unidade like moviproc.cd-unidade
field cd-prestador like moviproc.cd-prestador
field cd-especialidade like esp-med.cd-especialid
field tp-valorizacao as char format "x(3)"
field dt-realizacao as date
field hr-realizacao as char format "x(8)"
field nr-rowid-proposta as rowid
field nr-rowid-usuario as rowid
field nr-rowid-unicamco as rowid
field nr-rowid-out-uni as rowid
field nr-rowid-docrecon as rowid
field nr-rowid-moviproc as rowid
field cd-modulo like mod-cob.cd-modulo
field cd-procedimento as int format 99999999
field qt-procedimento like moviproc.qt-procedimentos
field qt-honorarios like taprampr.qt-moeda-honorario
field qt-operacional like taprampr.qt-moeda-operacional
field qt-filme-aux like taprampr.qt-moeda-filme
field cd-moeda-honorarios like precproc.cd-moeda-cop-urg
field cd-moeda-operacional like precproc.cd-moeda-cop-urg
field cd-moeda-filme like precproc.cd-moeda-cop-urg
field cd-tab-preco-proc like taprampr.cd-tab-preco-proc
field dt-internacao as date
field hr-internacao as char format "x(8)"
field dt-alta as date
field hr-alta as char format "x(8)"
field vl-honorarios like moviproc.vl-honorarios-medicos
field cd-local-atendimento like locaaten.cd-local-atendimento
field dt-base-valor like moviproc.dt-base-valor
field cd-grupo-prestador like gruppres.cd-grupo-prestador
field qt-moeda like moviproc.qt-moeda
field in-tipo-valori as char format "x(03)"
field lg-urgencia like moviproc.lg-urgencia
field lg-urgencia-cob like moviproc.lg-urgencia
field cd-unidade-prestador-exec like moviproc.cd-unidade-prestador
field cd-prestador-exec like moviproc.cd-prestador
field qt-repasse like moviproc.qt-repasse
field cd-clinica like moviproc.cd-clinica
field rowid-qtmpgpre as rowid
field in-tipo-valorizacao as char
field r-acrdespr as rowid
field r-taprampr as rowid
field rowid-precproc as rowid
field in-moeda as char
field lg-undo-retry as logical
field h-buffer-tmp-rtvalori-entrada as handle.

Definição campo a campo da tabela de entrada

• • • in-evento-programa – Evento do programa que chama a cpc-rtvalori.p.
    • nm-ponto-chamada-cpc – Nome do ponto de cpc.
    • cd-unidade – Código da Unidade do prestador executante do movimento.
    • cd-prestador – Código do Prestador Executante do movimento.
    • especialidade – Especialidade medica do prestador executante do movimento.
    • tp-valorizacao – Tipo de valorização usada Pagamento (PAG) Cobrança (COB).
    • dt-realização – Data da realização do movimento.
    • hr-realização – Hora da realização do movimento.
    • dt-internacao – Data da internação do beneficiário.
    • hr-internacao – Hora da internação do beneficiário.
    • dt-alta – Data da alta do beneficiário.
    • hr-alta – Hora alta do beneficiário.
    • nr-rowid-proposta – ROWID de acesso a tabela PROPOSTA, quando beneficiário da base.
    • nr-rowid-usuario – ROWID de acesso a tabela USUARIO, quando beneficiário da base.
    • nr-rowid-unicamco – ROWID de acesso a tabela UNICAMCO, quando beneficiário de intercâmbio.
    • nr-rowid-out-uni – ROWID de acesso a tabela OUT-UNI, quando beneficiário de intercâmbio.
    • nr-rowid-docrecon – ROWID de acesso a tabela DOCRECON.
    • nr-rowid-moviproc – ROWID de acesso a tabela MOVIPROC.
    • cd-modulo – Modulo de cobertura do movimento.
    • cd-procedimento – Código AMB.
    • qt-procedimento – Quantidade do procedimento valorizado.
    • qt-honorarios – Quantidade de moeda para honorários médicos.
    • qt-operacional – Quantidade de moeda para operacional médico.
    • qt-filme – Quantidande de moeda para filme utilizado.
    • cd-moeda-honorarios – Código de Moedas para honorários médicos.
    • cd-moeda-operacional – Código de Moedas para operacional médico.
    • cd-moeda-filme - Código de Moedas para filme.
    • cd-tab-preco-proc – Tabela de Quantidade de moedas (tabela médica) cobrança.
    • vl-honorarios – Valor dos honorários médicos.
    • cd-local-atendimento – Código do local de atendimento.
    • dt-base-valor – Data base para cálculo de valores.
    • cd-grupo-prestador – Código do grupo de prestadores.
    • in-tipo-valori - Indica o tipo de valorização (COB OU PAG).
    • lg-urgencia - Indica Urgência.
    • lg-urgencia-cob - Indica Urgência para cobrança.
    • r-acrdespr - Rowid da tabela acrdespr
    • r-taprampr - Rowid da tabela taprampr
    • rowid-precproc - Rowid da tabela precproc
    • in-moeda - indica Moeda para cobrança
    • lg-undo-retry - indica se ocorreu erro no processo padrão de valorização
    • h-buffer-tmp-rtvalori-entrada - buffer do registro corrente da tabela temporária "tmp-rtvalori-entrada"
      
      

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

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

field lg-undo-retry                                 as log
field qt-moeda-honorarios                    like taprampr.qt-moeda-honorarios
field qt-moeda-operacional                  like taprampr.qt-moeda-operacional
field qt-moeda-filme                             like taprampr.qt-moeda-filme
field cd-moeda-honorarios                   like precproc.cd-moeda-cop-urg
field cd-moeda-operacional                  like precproc.cd-moeda-cop-urg
field cd-moeda-filme                            like precproc.cd-moeda-cop-urg
field lg-aplicou-perc                              as logical
field pc-aplicar                                      as dec
field vl-honorarios                                 like moviproc.vl-honorarios-medicos
field lg-altera-honorarios                       as log
field cd-procedimento-assoc                 as int format 99999999
field pc-proced-assoc                           as dec
field lg-aplicou-regra-honorario             as log
field lg-aplicou-regra-operacional          as log
field lg-aplicou-regra-filme                     as log
field lg-prossegue                                 as log
field lg-achou-regra                               as log
field nr-cotacao                                     like moccolat.nr-cotacao
field lg-achou-regra-perc                       as log
field lg-acresc-desc                               as log
field pc-aplicado                                   like moccolat.pc-aplicado
field lg-achou-regra-moeda-cot             as log
field ds-mensagem                              as char format "x(100)"
field pc-aplicacao-acrdespr          as dec format "999.9999999999"
field lg-altera-vl-operacional as logical
field vl-operacional as dec
field lg-altera-vl-filme as logical
field vl-filme as dec.

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.
    • qt-moeda-honorarios – Quantidande de moedas para honorários médicos.
    • qt-moeda-operacional – Quantidande de moedas para operacional médico.
    • qt-moeda-filmes – Quantidande de moeda para filme utilizado.
    • cd-moeda-honorarios – Código de Moedas para honorários médicos.
    • cd-moeda-operacional - Código de Moedas para custo operacional.
    • cd-moeda-filme - Código de Moedas para filme.
    • vl-honorarios – Valor para honorários médicos.
    • lg-altera-honorarios – Indicador se deve sobrepor ou não a valoração dos honorários médicos.
    • cd-procedimento-assoc – Código do procedimento associado ao procedimento valorizado.
    • pc-proced-assoc – Percentual a ser aplicado no procedimento valorizado.
    • lg-aplicou-regra-honorario – Indica se altera o percentual para honorário.
    • lg-aplicou-regra-operacional – Indica se altera o percentual para operacional.
    • lg-aplicou-regra-filme – Indica se altera o percentual para filme.
    • lg-procegue – Variável lógica que identifica se a unidade do prestador é ou não a mesma cadastrada na paramecp.
    • lg-achou-regra – Variável lógica que identifica se achou ou não a regra.
    • nr-cotacao – Número da cotação.
    • lg-achou-regra-perc – Campo para indicar se foi encontrado alguma regra para percentual.
    • lg-acresc-desc – Campo para indicar se o percentual é de acréscimo ou de desconto.
    • pc-aplicado – Percentual aplicado.
    • lg-achou-regra-moeda-cot – Campo para indicar se foi encontrado alguma regra para cotação de moeda.
    • ds-mensagem – Descrição da mensagem.
    • pc-aplicacao-acrdespr - Percentual de aplicação
    • lg-altera-vl-operacional - indica se deve alterar o valor do custo operacional
    • vl-operacional - valor do custo operacional
    • lg-altera-vl-filme - indica se deve alterar o valor do filme
    • vl-filme - valor do filme