cpc-rtgraglo.p0

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"
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 like 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.
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).
Nm-programa- Nome do programa chamador da rotina rtlocart.p.
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
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.
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.