Árvore de páginas

Versões comparadas

Chave

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

CPC-BOSAU-PROCESSA-A500.P

Produto:

Gestão de Planos de SaúdeTOTVS Saúde Planos - Linha Datasul

Módulo:HRC - Revisão de Contas Médicas
Versão:A partir da 12.1.29.15, 12.1.31.10 e 12.1.32.5
Assuntos:

cpc-bosau-processa-A500


  • Programa para importação do PTU A500 XML.
  • Caso o cliente não queira executar a chamada da CPC deve colocar "CPC ativo" como "não" no seu cadastro.

Pontos de utilização

  • "ANTES-CRIA-DOC" - Permite a validação e/ou alteração dos dados dos documento e movimentos importados antes da criação dos registros nas tabelas do banco de dados;
  • "DEPOIS-CRIA-DOC" - Ponto localizado no final do processo após a criação dos documentos com os movimentos importados, nesse ponto as tabelas temporárias (tmp-documento, tmp-procedimento e tmp-insumo) possuem a chave do documento/movimento criado na base o que possibilita a localização dos registros. A alteração das tabelas temporárias não terão impacto na importação dos movimentos.

Include das definições das tabelas temporárias

  • {cpc/cpc-bosau-processa-A500.i}


...

Bloco de código
titleTabela de entrada: tmp-cpc-processa-A500-entrada
def temp-table tmp-cpc-processa-a500-entrada no-undo
field nm-ponto-chamada-cpc as char format "x(15)"
field in-evento-programa as char format "x(06)"
field idi-tipo-arquivo-ptu as integer.
Definição campo a campo da tabela de entrada
  • in-evento-programa - nome do evento (utilizado para pontos que possuem múltiplas chamadas);
  • nm-ponto-chamada-cpc - nome do ponto de chamada da CPC;
  • idi-tipo-arquivo-ptu - indicador do tipo de arquivo importado. Valores: 500 - PTU A500 Cobrança, 520 - PTU A500 Aviso.


Bloco de código
titleTabela de saída: tmp-cpc-processa-A500-saida
def temp-table tmp-cpc-importprocessa-a500-saida no-undo
field lg-undo-retry as log
field cd-erro as integer
field ds-mensagem as char format "x(75)".

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

  • lg-undo-retry - campo que indica se ocorreram erros na CPC. Deve retornar "yes" se ocorrer algum erro ou "no" se o processo for concluído sem erros;
  • cd-erro - código do erro, pode ser valor zero

...

  • ;
  • ds-mensagem - mensagem de erro que deve ser retornada para o programa chamador caso ocorra algum erro na CPC

...

  • .
Informações

O retorno de um registro da tabela temporária de saída tmp-cpc-importprocessa-a500-saida é obrigatório


O programa da CPC deve receber as tabelas tmp-documento, tmp-procedimento e tmp-insumo que estão definidas na include:

  • {hrc/bosau/bosau-processa-a500.i}


Exemplo da definição dos parâmetros de entrada para o programa CPC-BOSAU-PROCESSA-A500.P.

Bloco de código
/* --------------------------------------------------------- TEMPORARIAS --- */
{cpc/cpc-bosau-processa-a500.i}
{hrc/bosau/bosau-processa-a500.i}

/* ---------------------------------------------------------- PARAMETROS --- */
define input        parameter table for tmp-cpc-processa-a500-entrada.
define output       parameter table for tmp-cpc-processa-a500-saida.
define input-output parameter table for tmp-documento   .
define input-output parameter table for tmp-procedimento.
define input-output parameter table for tmp-insumo      .