CPC-API-TISSLOTEGUIA.p

• Rotina utilizada para localizar o prestador e criar o lote de importacao do arquivo XML Lote Guias (Web Services) Essa rotina de cpc permite devolver o código e a unidade do 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 da api-tissloteguia.p .

Ponto de Utilização

• "CONS-PRESTADOR"
• "CONS-PREST-EXEC"
• "ACESSA-PREST"

Include das definições das tabelas temporárias

• cpc-api-tissloteguia.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-api-tissloteguia-entrada

def temp-table tmp-cpc-api-tissloteguia-entrada no-undo

field nm-ponto-chamada-cpc             as char format "x(15)"
field in-evento-programa                   as char format "x(06)"
field nr-cpf                                         like preserv.nr-cgc-cpf
field nr-prestador                              as char format "x(20)"
field cd-unidade-lote                         like preserv.cd-unidade
field cd-prestador-lote                       like preserv.cd-prestador.

Definição campo a campo da tabela de entrada

• in-evento-programa – Evento do programa que chama CPC-API-LOTE-GUIA.P. O valor desse campo deve ser "CONSULTA";
• nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa API-TISSLOTEGUIA.P. Ex: "CONS-PRESTADOR";
• nr-cpf – Número do cpf do beneficiário ;
• nr-prestador –Número do prestador (Prestador e operadora);
• cd-unidade-lote – Código da unidade do lote recebido;
• cd-prestador-lote – Código do prestador do lote recebido.
• Tabela de prestadores executantes
• def temp-table tmp-prestador-executante
• field cd-unidade like preserv.cd-unidade
• field cd-prestador like preserv.cd-prestador
• index i-tmp-exec is unique primary
• cd-unidade
• cd-prestador.
• cd-unidade –Código da unidade do prestador executante;
• cd-prestador – Código do prestador executante.

Tabela de saída tmp-cpc-api-tisslote-guia-saida

def temp-table tmp-cpc-api-tissloteguia-saida no-undo

field lg-erro                                as logical
field ds-mensagem                   as char format "x(75)"
field nr-cpf                                 like preserv.nr-cgc-cpf
field cd-unidade-prestador        like preserv.cd-unidade
field cd-prestador                      like preserv.cd-prestador.

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

• lg-erro – 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.
• Nr-cpf – Número do cpf do beneficiário;
• cd-carteira-usuario – Numero da carteira do beneficiário;
• cd-unidade-prestador –Código da unidade do prestador;
• cd-prestador – Código do prestador.