Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

CPC-RTVLPERC.P

Produto:

Gestão de Planos de Saúde

Módulo:Todos
Versão:12.x.x
Assuntos:

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.