CPC-RC0113R.P

• Rotina para consultar o prestador.
• 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 rc0113r.p, o ponto de chamada "CONS-PRESTADOR" é chamado antes de informar o número da fatura.

Ponto de Utilização

• "CONSULTA"

Include das definições das tabelas temporárias

• cpc-rc0113r.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-rc0113r-entrada

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

field in-evento-programa                    as char format "x(10)"
field nm-ponto-chamada-cpc             as char format "x(15)"
field cd-unidade                                 like notapres.cd-unidade
field cd-unidade-prestador                 like notapres.cd-unidade-prestador
field cd-prestador                               like notapres.cd-prestador
field cd-unidade-seccional                  like preserv.cd-unidade-seccional.

Definição campo a campo da tabela de entrada

• in-evento-programa- Identifica qual evento deve ser executado no momento que está sendo chamada
• nm-ponto-chamada-cpc – Ponto de chamada da cpc
• cd-unidade- Código da unidade
• cd-unidade-prestador – Código da unidade do prestador
• cd-prestador - Código do prestador
• cd-unidade-seccional

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

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

field lg-undo-retry                           as log
field ds-mensagem                        as char.

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

• lg-undo-retry – Variável que controla os erros que podem ocorrer na CPC.
• ds-mensagem– Variável que recebe a descrição dos erros que ocorreram na CPC.