CPC-RC0511M.P

• Rotina utilizada para alterar os valores que serão exportados nos campos 13 (VL_SERV_COB), 14 (VL_CO_COB), 15 (VL_FILME_COB) e 48 (VL_PAGO_PREST) do registro 504 do layout PTU.
• 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.

Localização

• Dentro do programa rc0511m.p.

Ponto de Utilização

• "ALTERA-VALORES"

Include das definições das tabelas temporárias

• cpc-rc0511m.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-rc0511m-entrada

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

field nm-ponto-chamada-cpc                   as char format "x(15)"
field in-evento-programa                        as char format "x(06)"
field in-tipo-movto                                 as char format "x(01)"
field r-movto                                         as rowid
field cd-contratante                               like notaserv.cd-contratante
field cd-unidade-prestador                      like moviproc.cd-unidade-prestador
field cd-prestador                                  like moviproc.cd-prestador
field nr-prest-divisao                              as int
field vl-pago-prest                                 as dec format "->>,>>>,>>>,>>9.99"
field vl-honorario-medico                        like moviproc.vl-honorarios-medicos
field vl-operacional                                like moviproc.vl-operacional
field vl-filme                                         like moviproc.vl-filme
field vl-cobrado-sem-taxa                       like mov-insu.vl-cobrado.

Definição campo a campo da tabela de entrada

• • nm-ponto-chmada-cpc – Ponto de chamada da CPC;
  • "ALTERA-VALORES"
  • in-evento-programa – Evento do programa de chamada da CPC;
  • "ALTERARA"
  • in-tipo-movto – Indicador de procedimento ou insumo;
  • r-movto – Rowid da tabela moviproc quando o in-tipo-movto for igual a "P" ou rowid da tabela mov-insu quando o in-tipo-movto for igual a "I";
  • cd-contratante – Código do contrante;
  • cd-unidade-prestador – Código da unidade do prestador;
  • cd-prestador – Código do prestador;
  • nr-prest-divisao - Indica o prestador da divisão de honorários ;
  • vl-pago-prest – Valor pago ao prestador;
  • vl-honorario-medico – Valor para honorários médicos;
  • vl-operacional – Valor operacional;
  • vl-vilme –Valor filme;
  • vl-cobrado-sem-taxa – Valor cobrado sem taxa;

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

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

field lg-undo-retry                            as log
field ds-mensagem-erro                    as char format "x(75)"
field vl-pago-prest                            as dec format "->>,>>>,>>>,>>9.99"
field vl-honorario-medico                  like moviproc.vl-honorarios-medicos
field vl-operacional                          like moviproc.vl-operacional
field vl-filme                                   like moviproc.vl-filme
field vl-cobrado-sem-taxa                 like mov-insu.vl-cobrado.

Definição campo a campo da tabela de saída

• • lg-undo-retry – Indica que ocorreu algum erro durante o processamento.
  • ds-mensagem-erro – Retorna a mensagem da cpc;
  • vl-pago-prest – Valor pago ao prestador;
  • vl-honorario-medico – Valor para honorários médicos;
  • vl-operacional – Valor operacional;
  • vl-filme – Valor filme;
  • vl-cobrado-sem-taxa – Valor cobrado sem taxa;