Histórico da Página

...

• Rotina utilizada para permitir a alteração das quantidades de moedas para Operacional Honoraio 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.

...

"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.

Include das definições das tabelas temporárias

...

Tabela de entrada tmp-cpc-rtvalori-entrada

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

field in-evento-programa                      as 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 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 as rowid
field nr-rowid-usuario                             as rowid
field nr-rowid-unicamco                         as rowid
field nr-rowid-out-uni                              as as rowid
field nr-rowid-docrecon                          as as rowid
field nr-rowid-moviproc                          as as rowid
field cd-modulo                                     like mod-cob.cd-modulo
field cd-procedimento                           as int format 99999999
field qt-procedimento                            like 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 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 like taprampr.cd-tab-preco-proc
field dt-internacao                                as as date
field hr-internacao                                as 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 like locaaten.cd-local-atendimento
field dt-base-valor                                like 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 r-acrdespr                                     as 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                                    taprampr as rowid
field rowid-precproc                             as field rowid-precproc as rowid
field in-moeda                                      moeda as char..

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"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 – RECID ROWID de acesso a tabela PROPOSTA, quando beneficiário da base.
    • nr-rowid-usuario – RECID ROWID de acesso a tabela USUARIO, quando beneficiário da base.
    • nr-rowid-unicamco – RECID ROWID de acesso a tabela UNICAMCO, quando beneficiário de intercâmbio.
    • nr-rowid-out-uni – RECID ROWID de acesso a tabela OUT-UNI, quando beneficiário de intercâmbio.
    • nr-rowid-docrecon – RECID ROWID de acesso a tabela DOCRECON.
    • nr-rowid-moviproc – RECID 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 – Quantidande Quantidade de moeda para honorários médicos.
    • qt-operacional – Quantidande 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.
      
      

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

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

...