CPC-RC0514N.P

• 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 documenInsumo;
• 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.