CPC-BOSAU-PROCESSA-A500.P

Produto:	TOTVS 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}

Tabelas de entrada e de saída

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.

def temp-table tmp-cpc-processa-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.

O retorno de um registro da tabela temporária de saída tmp-cpc-processa-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.

/* --------------------------------------------------------- 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      .