CPC-RTVLPERC.P

• 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 – Variável que guarda o código da unidade da carteira do usuário.
    • Cd-carteira-usuario – Variável que guarda o código da carteira do usuário.
    • PC-regra-div-hono-pag – Variável 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 – Variável que guarda a porcentagem da regra de filme de pagamento.
    • PC-regra-div-hono-cob – Variável 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 – Variável que guarda a porcentagem da regra de filme de cobrança.
    • cd-grupo-divisao – Variável que guarda o código do grupo de divisão da regra.
    • Tp-atendimento – Variável que guarda o tipo de atendimento da regra.
    • Dt-limite – Variável que guarda a data limite da regra.
    • Qt-proc-docto – Variável que guarda a quantidade de procedimentos.
    • Lg-libera-conta – Variável 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 – Variável 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 – Variável que guarda a porcentagem da regra de filme de pagamento.
    • PC-regra-divi-hono-cob – Variável 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 – Variável que guarda a porcentagem da regra de filme de cobrança.
    • Lg-considera-movto – Variável que controla se irá considerar o movimento ou não.
    • lg-encontrou-reg-especifica – Variável que indica se existe regra específica ou não nos parâmetros dos Grupos de Percentuais para não gerar erro.