cpc-wac0022a.p1

Rotina chamada no programa de impressão do relatório de títulos do prestador através do WAC;
Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
Localização
Wac0022a.p
Ponto de Utilização
"DETALHE-EVENTO"
Esse ponto de chamada permite adicionar instruções HTML na listagem dos eventos de um título na primeira coluna da tabela. Obs. A CPC será chamada somente em eventos onde não seja possível detalhar, ou seja, todos os eventos diferentes de produção.
"MONTA-GLOSA"
Ponto de chamdada para validar se a glosa será ou não listada.
"GERAR-PLANILHA"
Ponto de chamada para geração de planilhas Excel.
"ANTES-IMP"
Esse ponto de chamada mascarar uma glosa para produção.
Include das definições das tabelas temporárias
cpc-wac0022a.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-wac0022a-entrada
def temp-table tmp-cpc-wac0022a-entrada no-undo
field in-evento-programa as char format "x(10)"
field nm-ponto-chamada-cpc as char format "x(15)"
field cd-clinica like clinpres.cd-clinica
field cd-unidade like preserv.cd-unidade
field cd-prestador like movipres.cd-prestador
field cd-unidade-prestador like movipres.cd-unidade-prestador
field referencia like movipres.referencia
field cd-tipo-medicina like movipres.cd-tipo-medicina
field nr-nota-parcela like movipres.nr-nota-parcela
field cd-evento like movipres.cd-evento
field rw-movipres as rowid.
Definição campo a campo da tabela de entrada
in-evento-programa – Evento do programa que chama a cpc-wac0022a.
nm-ponto-chamada-cpc – Nome do ponto de chamada.
cd-clinica – Código da clínica logada
cd-unidade – Código da unidade da base
cd-prestador – Código do prestador logado
cd-unidade-prestador – Código da unidade do prestador
referencia – Referência do título
cd-tipo-medicina – Tipo de medicina do título
nr-nota-parcela – Número da nota
cd-evento – Código do evento do título
rw-movipres – Identificador da tabela Movipres
Tabela de entrada e saída tmp-glosas-benef-entrada
def temp-table tmp-glosas-benef-entrada no-undo
field cd-cod-glo like codiglos.cd-cod-glo
field ds-cod-glo like codiglos.ds-cod-glo
field cd-unidade like mov-insu.cd-unidade
field cd-unidade-prestadora like mov-insu.cd-unidade-prestadora
field cd-transacao like mov-insu.cd-transacao
field nr-serie-doc-original like mov-insu.nr-serie-doc-original
field nr-doc-original like mov-insu.nr-doc-original
field nr-doc-sistema like mov-insu.nr-doc-sistema
field nr-processo like mov-insu.nr-processo
field nr-seq-digitacao like mov-insu.nr-seq-digitacao
field lg-mostra-glosa as log.
Tabela de saída tmp-cpc-wac0022a-saida
def temp-table tmp-cpc-wac0022a-saida no-undo
field lg-erro as log
field ds-mensagem as char
field ds-mensagem-auxiliar as char
field lg-gerar-planilha as log
field ds-diretorio-publicado as char
field in-delimitador as char format "x(01)"
field in-extensao-arquivo as char
field vl-glosa-insu-aux as dec format ">>>,>>9.99"
field vl-glosa-proc-aux as dec format ">>>,>>9.99".
Definição campo a campo da tabela de saída
lg-erro-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.
ds-mensagem – Deve conter mensagem de saída.
ds-mensagem-auxiliar – Deve conter mensagem de saída.
lg-gerar-planilha – Indicador que informa se deve ser gerado planilha
ds-diretorio-publicado – Caminho do diretório onde a planilha foi gerada.
in-delimitador – Caractere delimitador
in-extensao-arquivo – Extensão do arquivo gerado
vl-glosa-insu-aux – Valor glosado de Insumos
vl-glosa-proc-aux – Valor glosado de procedimentos