CPC-RTGRAGLO.P

• Rotina para permitir que algumas glosas não sejam geradas. Essa rotina deve devolver se a glosa será gerada ou não.
• Rotina para permitir alterar as glosas geradas antes da gravação.
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
• Será permitido para esta CPC apenas um registro na tabela temporária de saída. Caso possuir mais de um registro um erro será reportado.

Localização

• Dentro da rotina rtgraglo.p 

Ponto de Utilização

• "DESC-GLOSA"
• "ANTES-CARREGA"
• "GLOSA-PRINC"
• "CRIAR-GLOSA"
• "MENSISTE-CLASSE"
• "ANTES-TIPO-TAR"

Include das definições das tabelas temporárias

• cpc-rtgraglo.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-rtgraglo-entrada

def temp-table tmp-cpc-rtgraglo-entrada no-undo

field nm-ponto-chamada-cpc                            as char format "x(15)"
field in-evento-programa                                    as char format "x(10)"
field cd-tipo-tarefa                                              as integer
field cd-classe-erro                                            ike claserro.cd-classe-erro
field dt-realizacao                                              like moviproc.dt-realizacao
field in-modulo                                                   as character format "x(02)"
field nr-maquina                                                 like procusos.nr-maquina
field cd-unidade                                                 like moviproc.cd-unidade
field cd-unidade-prest                                        like moviproc.cd-unidade-prestadora
field cd-transacao                                              like moviproc.cd-transacao
field nr-serie-doc-orig                                        like moviproc.nr-serie-doc-original
field nr-doc-orig                                                  like moviproc.nr-doc-original
field nr-doc-sistema                                           like moviproc.nr-doc-sistema
field nr-processo                                                like moviproc.nr-processo
field nr-seq-digitacao                                         like moviproc.nr-seq-digitacao
field aa-guia-atend                                             like guiautor.aa-guia-atendimento
field nr-guia-atend                                              like guiautor.nr-guia-atendimento
field in-origem-glosa                                          like movrcglo.in-origem-glosa
field cd-classe-error                                           like claserro.cd-classe-erro.

Definição campo a campo da tabela de entrada

• • • In-evento-programa – Evento do programa que chama a rotina rtgraglo, na qual será passada para a cpc-rtgraglo.p.: DESCONSIDERA
    • Nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para a rotina rtlocart.p: DESC-GLOSA.
    • Lg-mens-tela – Indica se as mensagens de erro devem ser dispostas na tela ou não. Caso o indicador for não o campo da tabela de saída ds-mensagem deve ser preenchido. (não obrigatório).
    • Cd-tipo-tarefa- Tarefa a ser executada.
      • 4 – Gravar a classe de erro e o código da glosa na tabela temporária.
      • 5 – Carregar glosas já existentes para a tabela temporária.
      • 6 – Descarregar glosas da tabela temporária para a tabela do banco.
    • Classe-erro- Código da classe de erro.
    • Dt-realizacao- data da realização.
    • In-modulo- indica o modulo AC – AT – RC.
    • Nr-maquina- Numero da maquina.
    • Cd-unidade- código da unidade.
    • Cd-unidade-prest- Código da unidade prestadora.
    • Cd-transacao- Código da transação.
    • Nr-serie-doc-orig- serie do documento original.
    • Nr-doc-orig- Número do documento original.
    • Nr-doc-sistema- sequencia.
    • Nr-processo- Numero do processo.
    • Nr-seq-digitacao- Sequencia da digitação.
    • Aa-guia-atend- Ano da guia de atendimento.
    • Nr-guia-atend- Numero da guia de atendimento.
    • In-origem-glosa-par- Origem da glosa, P = Procedimento e I = Insumo.
    • cd-classe-error - Código da classe de erro.

Tabela de saída tmp-cpc-rtgraglo-saida

def temp-table tmp-cpc-rtgraglo-saida no-undo

field lg-erro                             as log
field ds-mensagem                as char format "x(75)"
field lg-glosar                         as logical initial yes
field cd-mensagem                like mensiste.cd-mensagem
field lg-altera-classe-erro       as logical
field cd-classe-erro                like claserro.cd-classe-erro.

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

• Lg-erro – 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 mensagens de erro ou qualquer outro tipo de mensagem. Utilizado em conjunto com a entrada lg-mens-tela. Se lg-mens-tela for Não então esse campo deve ser preenchido.
• Lg-glosar- Indica se dentro do programa rtgraglo.p deve glosar o movimento:
  • Sim – vai glosar o movimento.
  • Não – não vai glosar movimento.
• cd-mensagem - Código da mensagem a ser retornada
• lg-altera-classe-erro - Indica se altera a classe de erro
• cd-classe-erro - Novo código da classe de erro conforme parâmetro anterior.