cpc-rtvlperc.p1

Rotina utilizada para regras especificas de percentual para o pagamento de procedimentos.
Rotina utilizada para valorizar procedimentos de acordo com os parâmetros cadastrados, para o ponto de chamada "VAL-ESPEC".
Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
Localização
Dentro do programa rtvlperc.p.
Ponto de Utilização
"REGRAS-ESPEC"
"CONTA-PROCED"
"VAL-ESPEC"
"ANTES-PERC"
Include das definições das tabelas temporárias
cpc- rtvlperc.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc- rtvlperc -entrada
def temp-table tmp-cpc-rtvlperc-entrada no-undo
field nm-ponto-chamada-cpc as char format "x(15)"
field cd-unidade-prestador like moviproc.cd-unidade-prestador
field cd-prestador like moviproc.cd-prestador
field cd-unidade-carteira like moviproc.cd-unidade-carteira
field cd-carteira-usuario like moviproc.cd-carteira-usuario
field pc-regra-div-hono-pag like pedivreg.pc-regra-divisao-honor
field pc-regra-div-opera-pag like pedivreg.pc-regra-divisao-opera
field pc-regra-div-filme-pag like pedivreg.pc-regra-divisao-filme
field pc-regra-div-hono-cob like pedivreg.pc-regra-divisao-honor
field pc-regra-div-opera-cob like pedivreg.pc-regra-divisao-opera
field pc-regra-div-filme-cob like pedivreg.pc-regra-divisao-filme
field cd-grupo-divisao like pedvproc.cd-grupo-divisao
field tp-atendimento like pedvproc.tp-atendimento
field dt-limite like pedvproc.dt-limite
field qt-proc-docto as int format 9999
field lg-considera-movto as log
field nr-rowid-movimento as rowid
field cd-unidade-prestadora like moviproc.cd-unidade-prestadora
field cd-transacao like moviproc.cd-transacao
field nr-serie-doc-original like moviproc.nr-serie-doc-original
field nr-doc-original like moviproc.nr-doc-original
field nr-doc-sistema like moviproc.nr-doc-sistema
field cd-esp-amb like moviproc.cd-esp-amb
field cd-grupo-proc-amb like moviproc.cd-grupo-proc-amb
field cd-procedimento like moviproc.cd-procedimento
field dv-procedimento like moviproc.dv-procedimento
field qt-procedimento like moviproc.qt-procedimento
field dt-realizacao like moviproc.dt-base-valor
field vl-honorarios like moviproc.vl-honorarios-medicos
field vl-operacional like moviproc.vl-operacional
field vl-filme like moviproc.vl-filme
field in-tp-controle as char format "x(01)"
field in-evento-programa as char format "x(20)".
Definição campo a campo da tabela de entrada
nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza.
Cd-unidade-carteira – Variavel que guarda o código da unidade da carteira do usuario.
Cd-carteira-usuario – Variavel que guarda o código da carteira do usuário.
PC-regra-div-hono-pag – Variavel que guarda a porcentagem da regra de honorário de pagamento.
PC-regra-div-opera-pag – Variável que guarda a porcentagem da regra operacional de pagamento.
PC-regra-div-filme-pag – Variavel que guarda a porcentagem da regra de filme de pagamento.
PC-regra-div-hono-cob – Variavel que guarda a porcentagem da regra de honorário de cobrança.
PC-regra-div-opera-cob – Variável que guarda a porcentagem da regra operacional de cobrança.
PC-regra-div-filme-cob – Variavel que guarda a porcentagem da regra de filme de cobrança.
cd-grupo-divisao – Variavel que guarda o código do grupo de divisão da regra.
Tp-atendimento – Variavel que guarda o tipo de atendimento da regra.
Dt-limite – Variavel que guarda a data limite da regra.
Qt-proc-docto – Variavel que guarda a quantidade de procedimentos.
Lg-libera-conta – Variavel que controla se irá liberar ou não a conta.
nr-rowid-movimento – Variável que guarda o rowid da tabela.
Cd-unidade-prestadora – Variável que guarda o código da unidade do prestador.
Cd-transação – Variável que guarda o código da transação.
Nr-serie-doc-original – Variável que guarda o numero de serie do documento original.
Nr-doc-original – Variável que guarda o numero do documento original.
Nr-doc-sistema – Variável que guarda o numero do documento do sistema.
cd-esp-amb – Indica o código da especialidade do procedimento
cd-grupo-proc-amb – Indica o código do grupo do procedimento
cd-procedimento – Indica o código do procedimento
dv-procedimento – Indica o dígito verificador do procedimento
qt-procedimento – Variável que guarda a quantidade de procedimento.
Dt-realizacao – Variável que guarda a data de realização.
Vl-honorarios – Variável que guarda o valor dos honorários do procedimento.
Vl-operacional – Variável que guarda o valor operacional do procedimento.
Vl-filme – Variável que guarda o valor filme do procedimento.
In-tp-controle – Variável que guarda o tipo de controle.
In-evento-programa – Variável que guarda o evento do programa.
Tabela de saída tmp-cpc- rtvlperc -saida
def temp-table tmp-cpc-rtvlperc-saida no-undo
field lg-erro as log
field ds-mensagem as char format "x(80)"
field vl-honorarios like moviproc.vl-honorarios-medicos
field vl-operacional like moviproc.vl-operacional
field vl-filme like moviproc.vl-filme
field pc-regra-div-hono-pag like pedivreg.pc-regra-divisao-honor
field pc-regra-div-opera-pag like pedivreg.pc-regra-divisao-opera
field pc-regra-div-filme-pag like pedivreg.pc-regra-divisao-filme
field pc-regra-div-hono-cob like pedivreg.pc-regra-divisao-honor
field pc-regra-div-opera-cob like pedivreg.pc-regra-divisao-opera
field pc-regra-div-filme-cob like pedivreg.pc-regra-divisao-filme
field lg-considera-movto as log
field lg-encontrou-reg-especifica as log.
Definição campo a campo da tabela de saída
lg-erro – Variável que controla se erros aconteceram dentro da CPC.
ds-mensagem – descrição da mensagem de erro caso ocorra, dentro na cpc.
Vl-honorarios – Variável que guarda o valor dos honorários do procedimento.
Vl-operacional – Variável que guarda o valor operacional do procedimento.
Vl-filme – Variável que guarda o valor filme do procedimento.
PC-regra-divi-hono-pag – Variavel que guarda a porcentagem da regra de honorário de pagamento.
PC-regra-div-opera-pag – Variável que guarda a porcentagem da regra operacional de pagamento.
PC-regra-div-filme-pag – Variavel que guarda a porcentagem da regra de filme de pagamento.
PC-regra-divi-hono-cob – Variavel que guarda a porcentagem da regra de honorário de cobrança.
PC-regra-div-opera-cob – Variável que guarda a porcentagem da regra operacional de cobrança.
PC-regra-div-filme-cob – Variavel que guarda a porcentagem da regra de filme de cobrança.
Lg-considera-movto – Variavel que controla se irá considerar o movimento ou não.
lg-encontrou-reg-especifica – Variavel que indica se existe regra específica ou não nos parâmetros dos Grupos de Percentuais para não gerar erro.