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.

...

Ponto de Utilização

• "ALTERA-VALORES"

• "APOS-VAL-DIV"

• "ANTES-EXPORTA"

• "DENTRO-LE-MOVTO"

• "DEPOIS-SOMA-VL"

• "DEPOIS-FRAME"
• "ANTES-SEL-FAT"

• "LENDO-PROPOST" - liberação a partir da versão 12.1.2311

• "APOS-LE-PROPOST" - liberação a partir da versão 12.1.2311

• "APOS-TP-EXPORT" - liberação a partir da versão 12.1.2311

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    as char format "x(01)"
field r-movto                                         as    as rowid
field cd-contratante                                 like notaserv.cd-contratante
field cd-unidade-prestador                      like   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   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  like mov-insu.vl-cobrado

                       field cd-evento                                          as int

                       field cd-unidade                                       as int

                       field cd-unidade-prestadora                    as int

                       field cd-transacao                                    as int

                       field nr-serie-doc-original                        as char

                      field nr-doc-original                                  as int

                      field nr-doc-sistema                                  as int

                      field nr-processo                                      as int

                      field in-resultado-divisao                          as char

                      field h-tmp-contrat                                  as handle.

                      field cd-modalidade              like modalid.cd-modalidade
                      field in-tipo-exportacao         as int
                      field in-funcao                  as char.

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;

...

• cd-evento - Código do evento

• cd-unidade - Código da unidade

• cd-unidade-prestadora - Código da unidade prestadora;

• cd-transação – Código da transação
• nr-serie-doc-original – Código da série do documento
• nr-doc-original – Código do documento original
• nr-doc-sistema  – Código do documento sistema
• nr-processo  – Código do processo
• in-resultado-divisão - Identificador da divisão de honorários
• h-tmp-contrat - Tabela temporária de contratante.
• cd-modalidade - Código da modalidade a ser exportada
• in-tipo-exportacao - Indica o tipo de exportação: movimentos de custo operacional ou que não sejam de custo operacional
• in-funcao - Indica se o processo é de Exportação ou Reexportação

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   as dec format "->>,>>>,>>>,>>9.99"
field vl-honorario-medico                  like 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  like mov-insu.vl-cobrado

                       field lg-encontrou-registro                 as log

                       field lg-reexportacao-parcial              as log

                       field lg-next                    as log. 

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;

...

• lg-encontrou-registro - Indica se existe registro
• lg-reexportacao-parcial - Indica se reexporta parcial.
• lg-next - Indica se desconsidera o registro no processo.