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;

Ponto de Utilização

• "SCHEDULE"
• "PREST-NAO-VINC"
• "OBS-XML-ERRO"
• "DIR-XML"
• "LOC-ATEN"

Include das definições das tabelas temporárias

• cpc-rc0310p.i

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.

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.

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.

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.