CPC713_CPC_BOSAU_IMPORT_A550

01. VISÃO GERAL

• 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 no máximo um registro na tabela temporária de saída.

02. LOCALIZAÇÃO

• Antes da criação da Nota.
• Antes de Carregar os movimentos

02. PONTO DE UTILIZAÇÃO

• "ANTES-NOTAPRE"
• "ANTES-CRG-MVTOS"

03. INCLUDE DAS DEFINIÇÕES DAS TABELAS TEMPORARIAS

• cpc-bosau-import-a550.i

05. TABELAS DE ENTRADA

Tabela de entrada tmp-cpc-import-a550-entrada

def temp-table tmp-cpc-import-a550-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 docrecon.cd-unidade
field cd-unidade-imp like docrecon.cd-unidade-imp
field cd-prestador-imp like docrecon.cd-prestador-imp
field nr-lote-imp like docrecon.nr-lote-imp
field nr-sequencia-imp like docrecon.nr-sequencia-imp
field r-refdocrecon as rowid
field r-refmoviproc as rowid
field r-refmov-insu as rowid
field dt-anoref like docrecon.dt-anoref
field nr-perref like docrecon.nr-perref
field nr-versao-layout as int
field in-tipo-arquivo as int
field in-tipo-cobranca as int
field nr-fatura as char format "x(20)"
field nr-ndr as char format "x(20)"
field dt-vencto-fatura as date
field dt-vencto-ndr as date
field vl-tt-aco-serv as dec format ">>>,>>>,>>>,>>9.99"
field vl-tt-aco-taxa as dec format ">>>,>>>,>>>,>>9.99"
field cd-serie-nf like moviproc.cd-serie-nf
field tp-arq-parcial as int.

Definição campo a campo da tabela de entrada

in-evento-programa - Nome do evento do ponto de chamada da cpc.
nm-ponto-chamada - Nome do ponto de chamada da cpc dentro do programa que a utiliza.
cd-unidade - Código da unidade da base.
cd-unidade-imp - Código da unidade do arquivo.
cd-prestador-imp - Código do prestador do arquivo.
nr-lote-imp - Número do lote de importação.
nr-sequencia-imp - Número da sequencia do lote de importação.
r-refdocrecon - Identificador do documento contestado (docrecon).
r-refmoviproc - Identificador do movimento contestado (moviproc).
r-refmov-insu - Identificador movimento contestado (mov-insu).
dt-anoref - Ano de referência.
nr-perref - Mês de referência.
nr-versao-layout - Número da versão do layout do arquivo
in-tipo-arquivo - Tipo do arquivo - conforme R551 campo TP_ARQUIVO.
in-tipo-cobranca - Tipo de cobrança - conforme R551 campo TP_COBRANCA_A500.
nr-fatura - Número da Fatura contestada do A500.
nr-ndr - Número da NDR contestada do A500.
dt-vencto-fatura - Data de vencimento da Fatura.
dt-vencto-ndr - Data de vencimento da NDR.
vl-tt-aco-serv - Valor total acordo do serviço - conforme R559 campo VL_TOT_ACO_SERVICO.
vl-tt-aco-taxa - Valor total acordo da taxa - conforme R559 campo VL_TOT_ACO_TAXA.
cd-serie-nf - Série da fatura do revisão de contas (NOTAPRES).
tp-arq-parcial - Tipo de Arquivo Parcial - conforme R551 campo TP_ARQ_PARCIAL.

Tabela de entrada tmp-cpc-import-a550-entrada-proc

def temp-table tmp-cpc-import-a550-entrada-proc no-undo

field cd-unidade like moviproc.cd-unidade
field cd-unidade-prestadora like moviproc.cd-unidade-prestadora
field cd-transacao like moviproc.cd-transacao
field nr-serie-doc-original like moviproc.nr-serie-doc-original
field nr-doc-original like moviproc.nr-doc-original
field nr-doc-sistema like moviproc.nr-doc-sistema
field nr-processo like moviproc.nr-processo
field nr-seq-digitacao like moviproc.nr-seq-digitacao
field nr-seq-a500 as int format "99999999"
field cd-esp-amb like moviproc.cd-esp-amb
field cd-grupo-proc-amb like moviproc.cd-grupo-proc-amb
field cd-procedimento like moviproc.cd-procedimento
field dv-procedimento like moviproc.dv-procedimento
field dt-realizacao like moviproc.dt-realizacao
field r-moviproc as recid
field cd-unidade-prestador like moviproc.cd-unidade-prestador
field cd-prestador like moviproc.cd-prestador.

Definição campo a campo da tabela de entrada

cd-unidade - Código da unidade da base.
cd-unidade-prestadora - Código da unidade prestadora.
cd-transacao - Código da transação do movimento.
nr-serie-doc-original - Número da série do documento.
nr-doc-original - Número do documento original.
nr-doc-sistema - Número do documento sistema.
nr-processo - Número do processo.
nr-seq-digitação - Número da sequencia de digitação.
nr-seq-a550 - - Número da sequencia do arquivo A550.
cd-esp-amb - Código da especialidade do procedimento.
cd-grupo-proc-amb - Identifica a que grupo de procedimento.
cd-procedimento - Identifica o código do procedimento.
dv-procedimento - Identifica o código do dígito verificador do procedimento.
dt-realizacao - Data de realização do movimento.
r-moviproc - identifica o movimento - moviproc.
cd-unidade-prestador - Código da unidade do prestador.
cd-prestador - Código do prestador.

Tabela de entrada tmp-cpc-import-a550-entrada-insu

def temp-table tmp-cpc-import-a550-entrada-insu no-undo

field cd-unidade like mov-insu.cd-unidade
field cd-unidade-prestadora like mov-insu.cd-unidade-prestadora
field cd-transacao like mov-insu.cd-transacao
field nr-serie-doc-original like mov-insu.nr-serie-doc-original
field nr-doc-original like mov-insu.nr-doc-original
field nr-doc-sistema like mov-insu.nr-doc-sistema
field cd-tipo-insumo like mov-insu.cd-tipo-insumo
field cd-insumo like mov-insu.cd-insumo
field nr-processo like mov-insu.nr-processo
field nr-seq-digitacao like mov-insu.nr-seq-digitacao
field nr-seq-a500 as int format "99999999"
field dt-realizacao like mov-insu.dt-realizacao
field r-mov-insu as recid
field cd-unidade-prestador like mov-insu.cd-unidade-prestador
field cd-prestador like mov-insu.cd-prestador.

Definição campo a campo da tabela de entrada

cd-unidade - Código da unidade da base.
cd-unidade-prestadora - Código da unidade prestadora.
cd-transacao - Código da transação do movimento.
nr-serie-doc-original - Número da série do documento.
nr-doc-original - Número do documento original.
nr-doc-sistema - Número do documento sistema.
nr-processo - Número do processo.
nr-seq-digitação - Número da sequencia de digitação.
nr-seq-a550 - - Número da sequencia do arquivo A550.
cd-tipo-insumo - Código do tipo de insumo - É o agrupamento de insumos.
cd-insumo - É o código de identificação dos itens utilizados nos atendimentos que necessitam de materiais, medicamentos, taxas ou diárias.
dt-realizacao - Data de realização do movimento.
r-mov-insu - identifica o movimento - mov-insu.
cd-unidade-prestador - Código da unidade do prestador.

05. TABELAS DE SAÍDA

Tabela de saída tmp-cpc-import-a550-saida

def temp-table tmp-cpc-import-a550-saida no-undo

field lg-undo-retry as logical
field ds-mensagem as char format "x(75)"
field lg-continua as logical initial yes
field lg-erro as logical
field cd-serie-nf like moviproc.cd-serie-nf.

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

lg-undo-retry – Variável que controla se erros aconteceram dentro da CPC. Se o retorno desta variável for igual a SIM, indicará que erros aconteceram e se o retorno for igual à NÃO, indicará que o processo foi concluído por completo.
ds-mensagem - Mensagem devolvida pela execução da CPC.
lg-continua - Variável que indica se o processo continua ou será parado.
lg-erro - Variável que indica se ocorreu algum erro dentro da CPC.
cd-serie-nf – Série da fatura do revisão de contas (NOTAPRES) .