CPC-RTGRAGLO.P
Produto: | Gestão de Planos de Saúde |
Módulo: | Todos |
Versão: | 12.x.x |
Assuntos: | 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.