cpc-rtvalori.p1

Rotina utilizada para permitir a alteração das quantidades de moedas para Operacional Honoraio 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 Operaciona Honoraio e Filme.
"PERC-PROC-ASSOC"
Retorna os percentuais a aplicar no procedimento valorizado e no procedimento associado.
"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.
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.
Definição campo a campo da tabela de entrada
in-evento-programa – Evento do programa que chama a cpc-rtvalori.p. Os valores desse campo podem ser:
"INCLUI" ou "ALTERA"
nm-ponto-chamada-cpc – Sendo: "ATRIBUI-QT-MOED" , "QT-MOED-COBRANC" e "PERC-PROC-ASSOC"
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 – RECID de acesso a tabela PROPOSTA, quando beneficiário da base;
nr-rowid-usuario – RECID de acesso a tabela USUARIO, quando beneficiário da base;
nr-rowid-unicamco – RECID de acesso a tabela UNICAMCO, quando beneficiário de intercâmbio;
nr-rowid-out-uni – RECID de acesso a tabela OUT-UNI, quando beneficiário de intercâmbio;
nr-rowid-docrecon – RECID de acesso a tabela DOCRECON.
nr-rowid-moviproc – RECID 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 – Quantidande de moeda para honorários médicos.
qt-operacional – Quantidande 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.
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)".
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.