Histórico da Página
Follow-ups automáticos na inclusão de
assuntos jurídicos e alteração do correspondenteAssuntos Jurídicos, na alteração do correspondente, ao tombar distribuição e ao alterar responsável pelo processo
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||
Segmento: | Jurídico | ||||
Módulo: | SIGAJURI | ||||
Rotina: |
| ||||
País(es): | Todos | ||||
Banco(s) de Dados: | Todos | ||||
Tabelas Utilizadas: | O0J - Filtros Follow-up Automático / O0K - Modelos disparados | ||||
Sistema(s) Operacional(is): | Windows |
Descrição
Inclusão de cadastro de Follow-ups automáticos automático, onde será informado são informados os filtros e a movimentação desejada para cada modelo, sendo:
1- Inclusão de processo (Ao incluir o processo, o follow-up
seráé gerado automaticamente de acordo com as informações do modelo, podendo abrir o cadastro, quando o tipo de geração é com intervenção de usuário e;
2 - Alteração de
correspondente (Será gerado follow-upscorrespondente (Follow-up gerado de acordo com o cadastro, quando o correspondente for alterado no processo);
3 - Audiência Distribuição (Follow-up gerado ao tombar a distribuição)
4 - Alteração de Responsável (Follow-up gerado ao alterar o responsável do processo)
Procedimento para Implantação
O sistema é atualizado logo após a aplicação do pacote de atualizações deste chamado.
- Aplique o patch do chamado e execute uma vez a rotina UPDDISTR.
Logo após a execução desta rotina é alterado o dicionário de dados da base, conforme especificações abaixo:
Atualizações do Compatibilizador
- Criação de tabela no arquivo SX2– Tabelas:
Chave | Nome | Modo | PYME |
O0J | Follow-ups Automáticos | C | S |
Chave | Nome | Modo | PYME |
O0K | Modelos Disparados | C | S |
2. Criação de Campos no arquivo SX3 – Campos:
- Tabela O0J - Follow-ups Automáticos
Campo | O0J_FILIAL | ||
Tipo | C | ||
Tamanho | 8 | ||
Decimal | 0 | ||
Formato | @! | ||
Título | Filial | ||
Descrição | Filial do Sistema | ||
Usado | Não | ||
Obrigatório | Não | ||
Browse | Sim | Relação | Val. Sistema |
Help | Filial do Sistema |
Campo | O0J_COD |
Tipo | C - Caracter |
Tamanho | 5 |
Decimal | 0 |
Formato | @! |
Título | Código |
Descrição | Cód Follow-up Automatico |
Nível | 1 |
Usado | Sim |
Obrigatório | Sim |
Browse | Não |
Validação | ExistChav('O0J',M->O0J_COD,1) |
Inicializador Padrão | GetSXENum("O0J","O0J_COD") |
Visual | Visualizar |
Contexto | Real |
Modal | Sim |
Help | Código do Follow-up Automático |
Campo | O0J_TIPOAS | |
Tipo | C - Caracter | |
Tamanho | 3 | |
Decimal | 0 | Formato |
Título | Tipo Assunto | |
Descrição | Codigo do tipo de assunto | |
Nível | 1 | |
Usado | Sim | |
Obrigatório | Não | |
Browse | Sim | |
Validação | Vazio() .OR. ExistCPO("NYB", M->O0J_TIPOAS, 1) | Inicializador Padrão|
Visual | Alterar | |
Contexto | Real | |
Modal | Sim | |
Help | Código do tipo de assunto |
Campo | O0J_DTIPAS | |
Tipo | C - Caracter | |
Tamanho | 14 | |
Decimal | 0 | Formato |
Título | Assunto Juri | |
Descrição | Descrição tipo de assunto | |
Nível | 1 | |
Usado | Sim | |
Obrigatório | Não | |
Browse | Não | Validação |
Inicializador Padrão | IF(!INCLUI,POSICIONE("NYB", 1, XFILIAL("NYB") + O0J->O0J_TIPOAS, "NYB_DESC"),'') | |
Visual | Visualizar | |
Contexto | Real | |
Modal | Sim | |
Help | Descrição tipo de assunto |
Campo | O0J_CAREAJ | |
Tipo | C - Caracter | |
Tamanho | 5 | |
Decimal | 0 | Formato|
Título | Cod AreA Jur | |
Descrição | Código Área Jurídica | |
Nível | 1 | |
Usado | Sim | |
Obrigatório | Não | |
Browse | Sim | |
Validação | Vazio() .OR. JAVLDCAMPO('O0JMASTER','O0J_CAREAJ','NRB','NRB_ATIVO','1' ) .And. JurVldRest('NRB',M->O0J_CAREAJ) | |
Inicializador Padrão | IF(!INCLUI,POSICIONE("NYB", 1, XFILIAL("NYB") + O0J->O0J_TIPOAS, "NYB_DESC"),'') | |
Visual | Alterar | |
Contexto | Real | |
Modal | Sim | |
Help | Código Área Jurídica |
Campo | O0J_DAREAJ | |
Tipo | C - Caracter | |
Tamanho | 50 | |
Decimal | 0 | Formato|
Título | Área | |
Descrição | Descrição área jurídica | |
Nível | 1 | |
Usado | Sim | |
Obrigatório | Não | |
Browse | Não | Validação|
Inicializador Padrão | IF(!INCLUI,POSICIONE("NYB", 1, XFILIAL("NYB") + O0J->O0J_TIPOAS, "NYB_DESC"),'') | |
Visual | Visualizar | |
Contexto | Real | |
Modal | Sim | |
Help | Descrição área jurídica |
Campo | O0J_COBJET | |
Tipo | C - Caracter | |
Tamanho | 3 | |
Decimal | 0 | Formato|
Título | Cod. Assunto | |
Descrição | Código do assunto | |
Nível | 1 | |
Usado | Sim | |
Obrigatório | Não | |
Browse | Sim | |
Validação | (ExistCpo('NQ4',M->O0J_COBJET,1).And.JurVldRest('NQ4',M->O0J_COBJET)).OR.Vazio() | |
Inicializador Padrão | IF(!INCLUI,POSICIONE("NYB", 1, XFILIAL("NYB") + O0J->O0J_TIPOAS, "NYB_DESC"),'') | |
Visual | Alterar | |
Contexto | Real | |
Modal | Não | |
Help | Código do assunto |
Campo | O0J_DOBJET | |
Tipo | C - Caracter | |
Tamanho | 100 | |
Decimal | 0 | |
Formato | @S30 | |
Título | Assunto | |
Descrição | Descrição do Assunto | |
Nível | 1 | |
Usado | Sim | |
Obrigatório | Não | |
Browse | Não | Validação|
Inicializador Padrão | IF(!INCLUI,Posicione('NQ4',1,xFilial('NQ4')+O0J->O0J_COBJET,'NQ4_DESC'),'') | |
Visual | Visualizar | |
Contexto | Real | |
Modal | Não | |
Help | Descrição do Assunto |
Campo | O0K_FILIAL | ||
Tipo | C | ||
Tamanho | 8 | ||
Decimal | 0 | Formato||
Título | Filial | ||
Descrição | Filial do Sistema | ||
Usado | Não | ||
Obrigatório | Não | ||
Browse | Não | Relação | Val. Sistema |
Help | Filial do Sistema |
Campo | O0K_COD | |
Tipo | C - Caracter | |
Tamanho | 5 | |
Decimal | 0 | Formato|
Título | Código | |
Descrição | Codigo Modelo disparado | |
Nível | 1 | |
Usado | Sim | |
Obrigatório | Sim | |
Browse | Sim | |
Validação | ExistChav('O0K',M->O0K_COD,1) | |
Inicializador Padrão | GETSXENUM("O0K","O0K_COD") | |
Visual | Visualizar | |
Contexto | Real | |
Modal | Sim | |
Help | Codigo Modelo disparado |
Campo | O0K_CFWAUT | |
Tipo | C - Caracter | |
Tamanho | 5 | |
Decimal | 0 | Formato|
Título | Cod Fup Aut | |
Descrição | Código Follow-up Automati | |
Nível | 1 | |
Usado | Sim | |
Obrigatório | Sim | |
Browse | Sim | Validação|
Inicializador Padrão | Visual | Alterar |
Contexto | Real | |
Modal | Sim | |
Help | Código Follow-up Automático |
Campo | O0K_CODMOV | |
Tipo | C - Caracter | |
Tamanho | 1 | |
Decimal | 0 | Formato|
Título | Cod Moviment | |
Descrição | Código do movimento | |
Nível | 1 | |
Usado | Sim | |
Obrigatório | Sim | |
Browse | Sim | |
Validação | Pertence("121234") | |
CBoxOpções | 1=Inclusão de Processo;2=Alteração de correspondente;3=Audiência Distribuição;4=Alteração de Responsável | |
Visual | Alterar | |
Contexto | Real | |
Modal | Sim | |
Help | Código do movimento |
Campo | O0K_CODMOD | ||
Tipo | C - Caracter | ||
Tamanho | 5 | ||
Decimal | 0 | Formato | |
Título | Cod Modelo | ||
Descrição | Código Modelo Follow-up | ||
Nível | 1 | ||
Usado | Sim | ||
Obrigatório | Sim | ||
Browse | Sim | Validação | Inicializador Padrão|
Visual | Alterar | ||
Contexto | Real | ||
Modal | Sim | ||
Help | Codigo Modelo Follow-up |
Campo | O0K_DESCRI |
Tipo | C - Caracter |
Tamanho | 50 |
Decimal | 0 |
Título | Descrição |
Descrição | Descrição tipo do modelo |
Nível | 1 |
Usado | Sim |
Obrigatório | Não |
Browse | Não |
Relação | IF(!INCLUI,JADESCMOD(O0K->O0K_CODMOD),'') |
Visual | Visualizar |
Contexto | Virtual |
Modal | Sim |
Help | Descrição tipo do modelo |
Importante:
O tamanho dos campos que possuem grupo pode variar conforme ambiente em uso.
5. Criação ou Alteração 3. Inclusão de Consulta Padrão no arquivo SXB – Consulta Padrão:
- Pesquisa B05PLSPesquisa O0KNRT:
Alias | (XB_ALIAS)O0KNRT | |
Tipo | (XB_TIPO)1 | |
Sequência | (XB_SEQ)01 | |
Coluna | (XB_COLUNA)DB | |
Descrição | (XB_DESCRI)Modelo | |
Contém | (XB_CONTEM) | NRT |
46. Criação ou Alteração de Índices no arquivo SIX – Índices:
Índice | AA1O0J |
Ordem | 61 |
Chave | AA1O0J_FILIAL+AA1O0J_CODVENCOD |
Descrição | Cod. VendedorCódigo |
Proprietário | S |
7. Criação ou Alteração de Parâmetros no arquivo SX6 – Parâmetros:
Nome da Variável | (X6_VAR) |
Tipo | (X6_TIPO) |
Descrição | (X6_DESCRIC + X6_DESC1 + X6_DESC2) |
Valor Padrão | (X6_CONTEUD) |
Índice | O0J |
Ordem | 2 |
Chave | O0J_FILIAL+O0J_TIPOAS+O0J_CAREAJ+O0J_COBJET |
Descrição | Tipo Assunto + Cod Area Jur + Cod. Assunto |
Proprietário | S |
Índice | O0K |
Ordem | 1 |
Chave | O0K_FILIAL+O0K_COD |
Descrição | Código |
Proprietário | S |
5. Criação 8. Criação ou Alteração (mantenha somente a instrução correspondente) de Gatilhos no arquivo SX7 – Gatilhos:
- Tabela BD5 – Contas Médicas:O0J – Follow-up Automático
Campo |
O0J_CAREAJ |
Sequência |
001 |
Campo |
domínio | O0J_DAREAJ |
Tipo |
P |
Regra |
NRB->NRB_DESC |
Posiciona? |
S |
Chave |
Informe o conteúdo do (X7_CHAVE)
Condição
Informe o conteúdo do (X7_CONDIC)
Proprietário
Informe o conteúdo do (X7_PROPRI)
Campo
O0J_COD
Tipo
C - Caracter
Tamanho
5
Decimal
0
Formato
@!
Título
Código
Descrição
Cód Follow-up Automatico
Nível
1
Usado
Sim
Obrigatório
Sim
Browse
Visual
Contexto
Modal
Help
Código do Follow-up Automático
Procedimento para Configuração
(Estes procedimentos devem ser feitos quando for necessário configurar parâmetros e/ou rotinas no menu).
CONFIGURAÇÃO DE PARÂMETROS
- No Configurador (SIGACFG), acesse Ambientes/Cadastros/Parâmetros (CFGX017). Crie/configure (mantenha somente a instrução correspondente) o(s) parâmetro(s) a seguir:
(É necessário criar uma tabela para cada parâmetro descrito no item Parâmetro(s), da tabela Características do Requisito)
Itens/Pastas
Descrição
Nome:
Tipo:
Informe o Tipo do parâmetro
Cont. Por.:
Informe o Conteúdo padrão
Descrição:
CONFIGURAÇÃO DE MENUS
2. No Configurador (SIGACFG), acesse Ambientes/Cadastro/Menu (CFGX013). Informe a nova opção de menu do informe o nome do módulo, conforme instruções a seguir:
Menu | Informe o Menu em que estará localizada a rotina |
Submenu | Informe o Submenu em que estará localizada a rotina |
Nome da Rotina | Informe o Título da rotina |
Programa | Informe o Fonte da rotina |
Módulo | Informe o Nome do(s) produto(s) a ser utilizado ou “Todos” |
Tipo | Informe a Função |
xFilial('NRB')+M->O0J_CAREAJ | |
Proprietário | S |
Campo | O0J_TIPOAS |
Sequência | 001 |
Campo domínio | O0J_DTIPAS |
Tipo | P |
Regra | NYB->NYB_DESC |
Posiciona? | S |
Chave | XFILIAL("NYB") + M->O0J_TIPOAS |
Proprietário | S |
Campo | O0J_COBJET |
Sequência | 001 |
Campo domínio | O0J_DOBJET |
Tipo | P |
Regra | NQ4->NQ4_DESC |
Posiciona? | S |
Chave | XFILIAL('NQ4')+M->O0J_COBJET |
Proprietário | S |
Campo | O0K_CODMOD |
Sequência | 001 |
Campo domínio | O0K_DESCRI |
Tipo | P |
Regra | IIF(!EMPTY(M->O0K_CODMOD),JADESCMOD(M->O0K_CODMOD),'') |
Posiciona? | S |
Chave | xFilial('O0K')+M->O0K_CODMOD |
Proprietário | S |
Procedimento para Utilização
Exemplo:
- Cadastro do modelo de Follow-Up
- No modulo Gestão Jurídica (SIGAJURI), acesse Atualizações / Jurídico / Follow-ups / Modelos.
- Clique na opção Incluir
- Preencha os dados necessários para o Modelo e clique em Confirmar para finalizar a operação
- Clique em Fechar na mensagem de Registro inserido.
- Cadastro do Follow-Up Automático
No modulo Gestão Jurídica (SIGAJURI), acesse Atualizações / Jurídico / Follow-ups / Follow-up Automático.
Escolha a opção Incluir
- Preencha os dados necessários para o Follow-Up Automático que serão iguais ao criar o processo
- Informe o Código da Movimentação que o FW executará ao ser Acionado
- Clique em Fechar na mensagem de Registro inserido.
- Inclusão de um Processo
- No modulo Gestão Jurídica (SIGAJURI), acesse Atualizações / Assuntos Jurídicos / Pesquisas.
- Escolha o Tipo de Assunto Contencioso e clique em Incluir
- Informe os dados do Processo e para gerar o Follow-Up as informações tem que ser iguais ao informado no Cadastro de FW Automático e clique em Confirmar.
- Clique em Fechar na mensagem de Registro inserido.
- Para visualizar os Follow-Ups gerados clique em Outras Ações / Follow-Ups
- Será apresentada a tela com os Follow-Ups criados.
Procedimento para Utilização
- Descreva os procedimentos, passo a passo (caso de uso), que serão realizados pelos usuários para que a melhoria seja visualizada identificando as seguintes informações:
- Localização da rotina no menu;
- Localização dos novos campos e/ou perguntas e respectivas pastas de cadastro que são visualizadas pelo usuário;
- Caso seja necessário ter algum cadastro feito previamente, faça uma observação.
Exemplo:
1. No Plano de Saúde (SIGAPLS), acesse Atualizações / Produto Saúde / Produto Saúde (PLSA800).
O sistema apresenta a janela de produtos cadastrados.
2. Posicione o cursor em um produto e clique em Alterar.
3. Na pasta Cobertura/Carências selecione a subpasta Tipo de Prestador.
4. Dê duplo clique no campo TP Prestador (BCW_TIPPRE).
O sistema apresenta a janela Tipo de Prestador – Coparticipação – Alterar.
5. Informe os dados conforme orientação do help de campo e observe o preenchimento do novo campo:
Som. p/Compra (BCW_SOMCOM): selecione Sim para indicar se a coparticipação cadastrada será válida somente para efeito de compra de procedimentos ou Não, caso contrário.
6. Confira os dados e confirme.
Vídeo
- Vídeo hospedado no youtube e inserido no template por meio da macro Widget Connector.
** Canal do youtube e software de vídeoem definição.
Título do Vídeo: | Disponibilizado pelo Marketing. |
Introdução: | Disponibilizado pelo Marketing. |
Passo a Passo: | Capturar diretamente do sistema. |
Finalização: | Disponibilizado pelo Marketing. |
Ponto de Entrada
Descrição:
Informe o Menu em que estará localizada a rotina
Localização:
Informe o Submenu em que estará localizada a rotina
Eventos:
Informe o Título da rotina
Programa Fonte:
Informe o Fonte da rotina
Função:
Informe o Nome do(s) produto(s) a ser utilizado ou “Todos”
Retorno:
Nome
Tipo
Descrição
Obrigatório
Exemplo:
#Include 'Protheus.ch'
User Function CN120ALT()
Local aCab:= PARAMIXB[1]
Local cTipo:= PARAMIXB[2]
If cTipo == '1'
aCab[4][2]:= 'NF' //Validações do usuário
EndIf
Return aCab