Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

  • "SCHEDULE"
  • "PREST-NAO-VINC"
  • "OBS-XML-ERRO"
  • "DIR-XML"
  • "LOC-ATEN"
  • "ANTES-CRIA-DOC"
  • "ANTES-PROCESSA"
  • "DEPOIS-PROCESSA"
  • "APOS-RCAPI020"
  • "APOS-API-REGRAS"
  • "COMB-NAO-PERMIT"

Include das definições das tabelas temporárias

  • cpc-rc0310p.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-rc0310p-entrada

...

Exemplo de chamada da cpc:

run cpc/cpc-rc0310p.p (input table tmp-cpc-rc0310p-entrada

...

,
                               

...

      input ?,
   

...

                                 

...

output table tmp-cpc-rc0310p-saida,
                     

...

                input-output table tmp-moviproc,
                                     

...

input-output table tmp-mov-insu,
                             

...

        input-output table tmp-cpc-moviproc) no-error.

Para que não ocorram erros referentes as tabelas temporárias, devem ser acrescidos os comandos na lógica:

{rcp/rcapi021.i "shared"}
{rcp/rcapi022.i "shared"}

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-rc0310p-entrada

def temp-table tmp-cpc-rc0310p-entrada no-undo

field in-evento-programa                        like docrecon.nr-doc-original
field nr-seq-interno                               like moviptmp.nr-seq-interno
field cd-insumo                                    like mov-itmp.cd-insumo
field nr-processo                    as char format "x(10)"
field nm-ponto-chamada-cpc               like moviptmp.nr-processo
field nr-seq-digitacao as char format "x(15)"
field cd-unidade                                    like like moviptmp.nrcd-seq-digitacaounidade
field rw-movimento cd-unidade-prestadora                 like moviptmp.cd-unidade-prestadora
field cd-transacao               as rowid
field aa-guia-atendimento                  like guiautormoviptmp.aacd-guia-atendimentotransacao
field nr-serie-guiadoc-atendimento original                     like guiautor like moviptmp.nr-guiaserie-doc-atendimentooriginal
field dsnr-mensagem-obs doc-original                              as char format "x(100)"
field in-status-lote  like docrecon.nr-doc-original
field nr-seq-interno                               like loteimpmoviptmp.innr-statusseq-loteinterno
field nmcd-diretorio insumo                                    as char format "x(30)"
field lg-imprime-rel  like mov-itmp.cd-insumo
field nr-processo                                  as log init nolike moviptmp.nr-processo
field cdnr-local-atendimento seq-digitacao                          like locaatenmoviptmp.cdnr-localseq-atendimentodigitacao
field cd-unidade-imp rw-movimento                             as rowid
field aa-guia-atendimento                  like docretmpguiautor.cdaa-unidadeguia-impatendimento
field cdnr-prestadorguia-imp atendimento                        like docretmp.cd-prestador-imp
field tp-atendimento     like guiautor.nr-guia-atendimento
field ds-mensagem-obs                      as int format 99
field tp-inter char format "x(100)"
field in-status-lote                               like loteimp.in-status-lote
field nm-diretorio         as int format 99                      

...

 as char format "x(30)"
field lg-imprime-rel                              as log init no
field cd-

...

local-

...

atendimento                

...

 like locaaten.cd-

...

local-

...

atendimento
field cd-unidade-imp                        

...

 like docretmp.cd-unidade-imp
field cd-prestador-imp                      

...

 like docretmp.cd-prestador-imp
field tp-atendimento                          as int format 99
field tp-inter          

...

                           

...

as int format 99
field cd-unidade-carteira                   

...

 like docretmp.cd-unidade-carteira
field cd-carteira-usuario                     

...

like docretmp.cd-carteira-usuario
field ds-

...

xml-erro                                 

...

like paramrc.char-

...

3
field ds-dircarga         

...

                        like

...

paramrc.char-5
field ds-dirresp                                   

...

like paramrc.char-6
field ds-dir-tiss-aux                           

...

 like paramrc.char-2
field nr-lote-prestador                         

...

like lote-import-compltar.cod-lote-prestdor
field lg-especifico                                as

...

logical
field nr-especifico1                              as int
field nr-especifico2                              as int
field nm-arquivo                                 as char
field nm-diretorio                               as char
field nm-extensao                               as char.

Definição campo a campo da tabela de entrada

  • in-evento-programa – Evento do programa que chama a cpc-rc0310p;
  • nm-ponto-chamada – Nome do ponto de chamada. Para este programa poderá ser SCHEDULE ou PREST-NAO-VINC;
  • cd-unidade – Código da Unidade. Campo que faz parte da chave primaria do documento e também do movimento (procedimento ou insumo);
  • cd-prestadora – Código da Unidade Prestador. Campo que faz parte da chave primaria do documento e também do movimento (procedimento ou insumo);
  • cd-transacao – Código da Transação. Campo que faz parte da chave primaria do documento e também do movimento (procedimento ou insumo);
  • nr-serie-doc-original – Código/Número de serie do documento. Campo que faz parte da chave primaria do documento e também do movimento (procedimento ou insumo);
  • nr-doc-original – Número do documento. Campo que faz parte da chave primaria do documento e também do movimento (procedimento ou insumo);
  • nr-seq-interno – Sequencia do Documento. Campo que faz parte da chave primaria do documento e também do movimento (procedimento ou insumo);
  • cd-insumo – Código do Insumo;
  • nr-processo – Número do processo a qual o movimento está vinculado. Campo que faz parte da chave primaria do movimento (procedimento ou insumo);
  • nr-seq-digitacao – Número da sequencia do movimento. Campo que faz parte da chave primaria do movimento (procedimento ou insumo);
  • rw-movimento – Rowid da tabela de movimento (procedimento ou insumo).
  • Aa-guia-atendiemnto – Ano da guia de atendimento.
  • Nr-guia-atendiemnto – Numero da guia de atendimento.
  • Ds-mensagem-obs – Variável com mensagem de observação.
  • In-status-lote – Status do lote.
  • Nm-diretorio – Nome do diretório.
  • LG-imprime-rel – retorna se será ou não impresso o relatório especifico.
  • Cd-local-atendimento – Código do local do atendimento.
  • Cd-unidade-imp – Código da unidade.
  • Cd-prestador-imp – código do prestador.
  • Tp-atendimento – tipo do atendimento
  • Tp-inter - tipo da internação
  • cd-unidade-carteira  - Unidade da carteira do beneficiário

  • cd-carteira-usuario  - Codigo da carteira do beneficiario

  • ds-xml-erro - diretorio do arquivo de erro

  • ds-dircarga  - Diretorio de carga dos arquivos

  • ds-dirresp  - Diretorio de resposta dos arquivos

  • ds-dir-tiss-aux - Diretorio tiss dos arquivos

  • nr-lote-prestador - Codigo do lote do prestador

  • lg-especifico - campo específico do tipo lógico. É devolvido na tabela de saída no ponto "DIR-XML", evento "FRAME", e enviado na tabela de entrada no ponto nos pontos "APOS-RCAPI020" e "APOS-API-REGRAS"
  • nr-especifico1 - campo específico do tipo inteiro. É devolvido na tabela de saída no ponto "DIR-XML", evento "FRAME", e enviado na tabela de entrada no ponto nos pontos "APOS-RCAPI020" e "APOS-API-REGRAS"
  • nr-especifico2 - campo específico do tipo inteiro. É devolvido na tabela de saída no ponto "DIR-XML", evento "FRAME", e enviado na tabela de entrada no ponto "APOS-RCAPI020"na tabela de entrada nos pontos "APOS-RCAPI020" e "APOS-API-REGRAS"
  • nm-arquivo - nome do arquivo de relatório
  • nm-diretorio - diretório do arquivo de relatório
  • nm-extensao - nome da extensão do arquivo


Tabela de saída tmp-cpc-rc0310p-saida

...

field lg-undo-retry                            as log
field aa-periodo                               like perimovi.dt-anoref
field nr-periodo                                like perimovi.nr-perref
field lg-carga-arq                             as log
field lg-carga-autorizador                 as log
field lg-carga-grc                              as log
field lg-carrega                                as log
field lg-consiste                               as log
field lg-importa                                as log
field in-periodo                                as int
field lg-modifica-ident-prest             as log
field lg-schedulado                         as log
field ds-mensagem                         as char format "x(75)"
field ds-mensagem-obs                  as char format "x(100)"
field ds-xml-erro                              like paramrc.char-3
field ds-dircarga                              like paramrc.char-5
field ds-dirresp                                like paramrc.char-6
field lg-imprime-rel                          as log init no
field cd-local-atendimento               like locaaten.cd-local- atendimento
field tp-internacao                           as int format 99
field ds-dir-tiss                                 like paramrc.char-2
field lg-desconsidera-lote                as log
field lg-especifico                            as logical
field nr-especifico1                         as int
field nr-especifico2                         as int.

...

  • lg-undo-retry - Variável que controla se erros aconteceram dentro da CPC deve retornar SIM se erros aconteceram e NÃO se o processo foi concluído por completo.
  • aa-periodo – Ano do período do movimento;
  • nr-periodo – Número do período(mês);
  • lg-carga-arq – Indicador da opção de parâmetros indicando que o arquivo será carregado via diretorio;
  • lg-carga-autorizador – Indicador da opção de parâmetros indicando que o arquivo será processado via Autorizador;
  • lg-carga-grc – Indicador da opção de parâmetros indicando que o arquivo será carregado via integração GRC;
  • lg-carrega – Indicador da opção de parâmetros indicando que o arquivo será somente carregado;
  • lg-consiste – Indicador da opção de parâmetros indicando que o arquivo será consistido;
  • lg-importa – Indicador da opção de parâmetros indicando que o arquivo será importado no Revisão de Contas;
  • in-periodo – Indicador do Período de movimentação de processamento da Conta XML TISS;
  • lg-modifica-ident-prest – Indicador da opção de parâmetros indicando se a identificacao do prestador será alterada em tempo de processamento;
  • lg-schedulado – Indica se a chamada para o programa de Processamento de Lotes Guias aconctecera de forma batch;
  • ds-mensagem – Descrição da mensagem de erro, quando a variável lg-undo-retry estiver ativa.
  • Ds-mensagem-obs – Variável com mensagem de observação.
  • Ds-xml-erro – caminho do XML de erro.
  • Ds-discraga – caminho de carga do XML.
  • Ds-disresp – caminho de resposta do XML.
  • LG-imprime-rel – retorna se será ou não impresso o relatório especifico.
  • Cd-local-atendimento – Código do local de atendimento.
  • Tp-internacao – Tipo da internação
  • ds-dir-tiss - Diretorio dos arquivos tiss.
  • lg-desconsidera-lote – Variável que indica se o lote será ou não desconsiderado.
  • lg-especifico - campo específico do tipo lógico. É devolvido na tabela de saída no ponto "DIR-XML", evento "FRAME", e enviado na tabela de entrada no ponto nos pontos "APOS-RCAPI020" e "APOS-API-REGRAS".
  • nr-especifico1 - campo específico do tipo inteiro. É devolvido na tabela de saída no ponto "DIR-XML", evento "FRAME", e enviado na tabela de entrada no ponto nos pontos "APOS-RCAPI020" e "APOS-API-REGRAS".
  • nr-especifico2 - campo específico do tipo inteiro. É devolvido na tabela de saída no ponto "DIR-XML", evento "FRAME", e enviado na tabela de entrada no ponto nos pontos "APOS-RCAPI020" e "APOS-API-REGRAS".