CPC-RC0310P.P

• Rotina chamada no programa de processamento de lote guias XML TISS, onde permite efetuar o processamento batch.
• 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 do programa rc0310p.p. Para o ponto de chamada "SCHEDULE", no início do programa e foi criado com intuito de executar automaticamente os parâmetros de seleção;
• Dentro do programa rc0310p.p. Para o ponto de chamada "PREST-NAO-VINC", no tratamento do movimentos. Permitirá a operadora efetuar a troca de prestador executante, tranto de procedimentos quanto de insumos, para os documentos em processamento;
• "APOS-RCAPI020": após a chamada do programa "rcp/rcapi020.p", que cria os documentos e chama as APIs que criam os procedimentos e os insumos;
• "APOS-API-REGRAS": após a chamada do programa "api/api-regras-auditoria-movimentos.p".
  
  

Ponto de Utilização

• "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

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                      as char format "x(10)"
field nm-ponto-chamada-cpc               as char format "x(15)"
field cd-unidade                                   like moviptmp.cd-unidade
field cd-unidade-prestadora                 like moviptmp.cd-unidade-prestadora
field cd-transacao                                like moviptmp.cd-transacao
field nr-serie-doc-original                      like moviptmp.nr-serie-doc-original
field nr-doc-original                              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                                 like moviptmp.nr-processo
field nr-seq-digitacao                          like moviptmp.nr-seq-digitacao
field rw-movimento                             as rowid
field aa-guia-atendimento                  like guiautor.aa-guia-atendimento
field nr-guia-atendimento                   like guiautor.nr-guia-atendimento
field ds-mensagem-obs                      as char format "x(100)"
field in-status-lote                               like loteimp.in-status-lote
field nm-diretorio                                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 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 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 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

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

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.

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

• 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 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 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 nos pontos "APOS-RCAPI020" e "APOS-API-REGRAS".