cpc-rc0514n.p1

Rotina utilizada para permitir a operadora alterar/consultar o status do lote em importação.
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.
Glosar movimentos quando a Guia, Carteira, Procedimento ou insumo forem inválidos.
Rotina utilizada para permitir a alteração de dados da tabela temporária de documentos antes de sua consistência via API.
Localização
Dentro do programa rc0514n.p, quando da consistência do status do lote em importação.
Ponto de Utilização
"STATUS-LOTE"
"GLOSA-IMPORT"
"ANTES-API"
Include das definições das tabelas temporárias
CPC-RC0514N.I
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-rc0514n-entrada
def temp-table tmp-cpc-rc0514n-entrada no-undo
field in-evento-programa as char format "x(06)"
field nm-ponto-chamada-cpc as char format "x(15)"
field cd-unidade like loteimp.cd-unidade
field cd-prestador like loteimp.cd-prestador
field nr-lote like loteimp.nr-lote
field nr-sequencia like loteimp.nr-sequencia
field in-status-lote like loteimp.in-status-lote
field cd-unidade-prestadora like preserv.cd-unidade
field cd-transacao like docrecon.cd-transacao
field nr-serie-doc-original like docrecon.nr-serie-doc-original
field nr-doc-original like docrecon.nr-doc-original
field in-tipo-tabela as int
field nr-seq-interno like docretmp.nr-seq-interno
field cd-tipo-insumo like insumo.cd-tipo-insumo
field cd-insumo like mov-itmp.cd-insumo
field nr-processo like moviptmp.nr-processo
field nr-seq-digitacao like moviptmp.nr-seq-digitacao.
Definição campo a campo da tabela de entrada
in-evento-programa – Evento do programa que chama a cpc-rc0514n.p.
"STATUS-LOTE"
"GLOSA-IMPORT"
nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa rc0514n.p:
"IMPORTACAO".
cd-unidade – Código da Unidade do Prestador;
cd-prestador – Código do Prestador;
nr-lote – Número do Lote em importação;
nr-sequencia – Número da Seqüência do Lote;
in-status-lote – Indicador do status do lote em importação. Poderá ser :
"NC" : Não Carregado;
"NP" : Não Processado;
"CA" : Consistência em Andamento;
"IC" : Importação Concluída.
Cd-unidade-prestadora – Código da Unidade Prestadora;
Cd-transacao – Código da Transação;
Cd-unidade-principal – Código da Unidade do prestador principal;
Cd-prestador-principal – Código do prestador Principal;
Nr-serie-doc-original – Número da Série do documento;
Nr-doc-original – Número do documento;
In-tipo-Tabela – 1 – Docrecon/Docretmp , 2 – Moviproc/Moviptmp, 3 - Mov-insu/Mov-itmp;
Nr-seq-interno – Código da sequencia interna da tabela docretmp;
Cd-tipo-insumo – Código do Tipo de Insumo;
Cd-insumo – Código do Insumo;
Nr-processo – número do processo do movimento;
Nr-seq-digitacao – número da sequência de digitação do movimento;
Tabela de saída tmp-cpc-rc0514n-saida
def temp-table tmp-cpc-rc0514n-saida no-undo
field lg-erro as log
field ds-mensagem as char format "x(80)"
field lg-continua as log.
Definição campo a campo da tabela de saída
lg-erro – Variável que controla se erros aconteceram dentro da CPC deve retornar SIM se erros acontecerem e NÃO se o processo foi concluído por completo.
ds-mensagem – Mensagem de aviso ou de erro.
lg-continua – Variável que controla se o processo de importação do lote deve ou não continuar. Quando o valor deste parâmetro for NÃO, então deverá ter conteúdo válido (Diferente de brancos) no campo ds-mensagem.