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.
• Rotina utilizada para permitir selecionar endereço para impressão de boletos.
• 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.

...

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

...

• • 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;

...