cpc-api-tissloteguia.p1

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.