Histórico da Página
Follow-ups automáticos na inclusão de assuntos jurídicos e alteração do correspondente
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, onde será informado 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-ups de acordo com o cadastro, quando o correspondente for alterado no 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("12") |
Opções | 1=Inclusão de Processo;2=Alteração de correspondente |
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 |
Importante:
O tamanho dos campos que possuem grupo pode variar conforme ambiente em uso.
3. Inclusão de Consulta Padrão no arquivo SXB – Consulta Padrão:
- Pesquisa O0KNRT:
Alias | O0KNRT |
Tipo | 1 |
Sequência | 01 |
Coluna | DB |
Descrição | Modelo |
Contém | NRT |
4. Criação ou Alteração de Índices no arquivo SIX – Índices:
Índice | O0J |
Ordem | 1 |
Chave | O0J_FILIAL+O0J_COD |
Descrição | Código |
Proprietário | S |
Í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 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)
xFilial('NRB')+M->O0J_CAREAJ | |
Condição | |
Proprietário | S |
Condição
Informe o conteúdo do (X7_CONDIC)
Proprietário
Campo | O0J_ |
TIPOAS |
Sequência |
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 |
001 | |
Campo domínio | O0J_DTIPAS |
Tipo | P |
Regra | NYB->NYB_DESC |
Posiciona? | S |
Chave | XFILIAL("NYB") + M->O0J_TIPOAS |
Condição | |
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 |
Condição | |
Proprietário | S |
Procedimento para Utilização
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 Jurídico (SIGAPLSSIGAJUR), acesse Atualizações / Produto Saúde / Produto Saúde (PLSA800)./ Jurídico / Follow-up / Follow-up Automatico
O sistema apresenta a janela de produtos cadastradostela inicial do cadastro.
2. Posicione o cursor em um produto e clique em Alterar. Incluir
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.
Informar os dados para o filtro, e no grid informar a movimentação e o modelo
4. Clique em confirmar
5. No Jurídico (SIGAJUR), acesse Atualizações / Assuntos Juridicos / Pesquisas / Incluir 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.Após incluir, será gerado follow-ups de acordo com as informações cadastradas no modelo
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 aCabfollow-ups