cpc-pp0610k.p1

Rotina utilizada para relatorio de eventos da producao de prestadores.
Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
Localização
Dentro do PP0610K.p.
Ponto de Utilização
"ANTES-IMP"
Include das definições das tabelas temporárias
CPC-PP0610K.I
Tabelas de entrada e saída e tmp-dados
Tabela de entrada tmp-dados
def temp-table tmp-dados no-undo
field cd-unidade-prestador like movipres.cd-unidade-prestador
field cd-grupo-prestador like preserv.cd-grupo-prestador
field cd-unidade like preserv.cd-unidade
field nm-prestador like preserv.nm-prestador
field cd-prestador like movipres.cd-prestador
field cd-contratante like preserv.cd-contratante
field cd-evento like movipres.cd-evento
field dt-anoref like movipres.dt-anoref
field nr-perref like movipres.nr-perref
field nr-nota-fis as int format "zz,zzz,zz9"
field in-classe-evento like movipres.in-classe-evento
field in-movto like movipres.in-movto
field cd-gr-procedimento like movipres.cd-gr-procedimento
field qt-movto as int format "zzz9"
field dt-realizacao like movipres.dt-realizacao
field vl-movto like movipres.vl-movto
field lg-desc as log format "Sim/Nao"
field dt-inicial like evepropp.dt-inicial
field dt-final like evepropp.dt-final
field cd-tipo-medicina like movipres.cd-tipo-medicina
field cd-mod-plano-tipo-modulo like movipres.cd-mod-plano-tipo-modulo
field nr-nota-parcela like movipres.nr-nota-parcela
field nr-docto-pp like titupres.nr-docto
field parcela like titupres.parcela
Tabela de entrada tmp-cpc-pp0610k-entrada
def temp-table tmp-cpc-pp0610k-entrada no-undo
field in-evento-programa as char format "x(10)"
field nm-ponto-chamada-cpc as char format "x(15)".
Definição campo a campo da tabela de entrada
in-evento-programa – Evento do ponto de chamada.
nm-ponto-chamada-cpc – Nome do ponto de chamada da CPC.
Tabela de entrada tmp-cpc-pp0610k-saida
def temp-table tmp-cpc-pp0610k-saida no-undo
field lg-erro as log
field ds-mensagem as char format "x(75)".
Definição campo a campo da tabela de saída
lg-erro - Variável que controla se erros aconteceram dentro da CPC. Se o retorno desta variável for igual a SIM, indicará que erros aconteceram e se o retorno for igual à NÃO, indicará que o processo foi concluído por completo.
ds-mensagem – Mensagem da ocorrência do erro no processamento da CPC.