CPC-WAC0022A.P

• 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.