CPC-BOSAU-EXTRA-EVENTS-AUTOMATIC-GENERATION.P

Produto:	Gestão de Planos de Saúde
Módulo:	Todos
Versão:	A partir da 12.1.2507
Assuntos:	cpc-bosau-extra-events-automatic-generation

Rotina utilizada no processo de geração automática de eventos extras.

Pontos de Utilização

"ANT-COPIA-MOV"
"ANT-GEN-OPT"
"FIM-GEN-VAL-PER"

Include das definições das tabelas temporárias

cpc-bosau-extra-events-automatic-generation.i

Tabelas de entrada e de saída

Tabela de entrada tmp-cpc-bosau-extra-events-ent

def temp-table tmp-cpc-bosau-extra-events-ent no-undo
field nm-ponto-chamada as char format "x(15)"
field movipres-par as rowid
field h-movipres-par as handle
field dt-realizacao-par like movipres.dt-realizacao
field nr-perref-param like movipres.nr-perref
field dt-anoref-param like movipres.dt-anoref

field h-tmpExtraEventsAutomaticGen as handle
field h-tmpProviders as handle
field h-tp-erro as handle
field h-stream-rel as handle
field ct-gerados as int.

Definição campo a campo da tabela de entrada

nm-ponto-chamada-cpc - indica o nome do ponto de chamada
movipres-par - rowid da tabela movipres
h-movipres-par - handle da tabela temporária
dt-realizacao-par - data de realização do evento
nr-perref-param - período de realização do evento
dt-anoref-param - ano de realização do evento
h-tmpExtraEventsAutomaticGen - handle da temp-table tmpExtraEventsAutomaticGen
h-tp-erro - handle da temp-table tp-erro
h-stream-rel - handle da stream s-rel.
c-gerados - quantidade de eventos gerados.

Tabela de saída tmp-cpc-bosau-extra-events-sai

def temp-table tmp-cpc-bosau-extra-events-sai no-undo
field lg-undo-retry as logical
field ds-mensagem as char
field lg-erro as logical
field ct-gerados as int.

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

lg-undo-retry - indica se ocorreu erro no processo e faz undo/retry.
ds-mensagem - mensagem com a descrição do erro ocorrido no processamento da CPC
lg-erro - indica se ocorreu erro
c-gerados - quantidade de eventos gerados.