| Produto: | TOTVS Saúde Planos |
|---|---|
| Linha de Produto: | Linha Protheus |
| Segmento: | Saude |
| Módulo: | PTU |
| Função: | PLSUA400 |
| Story: | DSAUPC-21886 |
Implementação da versão 16.5 do Layout A400 do PTU.
Implementada a versão 16.5 do Layout A400 do PTU conforme manual. No campo NIVEL_EXCLUSAO criamos processos para que gere registros na tabela de Prestador Substituto (B7O). Isso vai atender aos novos itens 11 - Plano/ Produto X Serviços de internação e 12 - Plano/ Produto X Serviços de urgência e Emergência. Também foi ajustado o processo para os itens 09- Serviços de Internação e 10- Serviços de Urgência e Emergência.
Ajuste da versão:
Exclusão de serviço:
Para aplicar as atualizações acima, basta aplicar o novo layout A400P e o patch. Abaixo, vamos demonstrar como gerar as novas movimentações.
Aplicar o novo layout:
No cadastro de "Grupo de Serviços" (BH7) foram criados 2 novos campos.
Classif. (BH7_CLASSI) : Neste campos informe se o grupo é 09 - Serviços de Internação ou 10 - Serviços de Urgência e Emergência.
Plan.Serv. (BH7_CLASRV): Neste campos informe se o grupo é 11- Plano/ Produto X Serviços de Internação ou 12- Plano/ Produto X Serviços de Urgência e Emergência.
Os Grupos de Serviços acima, ficam vinculados à RDA através do Local de Atendimento X Grupo de Serviços. Veja
Se nesta tela eu deletar 1 registro, será gerado registros na tabela de Prestadores Substitutos (B7O). Exclusões através desta tela de Grupo de serviços, geram movimentações na B7O com nível 09 ou 10 (09 - Serviços de Internação ou 10 - Serviços de Urgência e Emergência.)
Exemplo:
Na tela acima, exclui o código 501 - Análises Clínicas. Antes de gerar dado na tabela B7O o sistema vai ver se o conteúdo do campo Classif. é 09 ou 10 na tabela de grupo de Serviços. Desta forma consegue gerar registros na B7O. Veja:
Acima, veja que no Nível Exclusão ficou o conteúdo 09 que estava na tabela Grupo de Serviços (BH7).
No cadastro de Rede de atandimento botão Outras Ações, agora há a opção "Exclusão de Planos" Esta nova tela comporta os campos abaixo:
Esta tela é baseada nos cadastros que você tem em Grupos de Serviços na RDA (BIN), por isso o campo Operadora.
Operadora: Operadora a qual pertence o cadastro.
Código RDA: RDA que estou posicionado na tela.
Código Local: Local de atendimento que está meu Grupo de Serviço
SCPA/SUSEP: Caso preencha esse campo, o sistema vai buscar seus Planos que tem esse código. A busca é feita pelos 2 códigos ao mesmo tempo e vai trazer resultados quando o campo Situação ANS (BI3_SITANS ) for diferente de 3 e Guia Médico (BI3_GUIMED) seja igual a 1.
Rede EDI: Tem o mesmo tratamento do campo acima (SCPA/SUSEP), porém ele busca registros no campo BI3_REDEDI. Isso pode ocasionar resultados com mais de 1 plano, nesse caso todos planos encontrados serão enviados no arquivo. É uma exclusão por Rede.
Grp.Serviço: Aqui são os Grupos de Serviço que você tem vinculado na tabela de Grupo de Serviços na RDA (BIN).
Data de Bloq.: Data do bloqueio que será utilizada para envio no arquivo.
Cada registro inserido nesta tela será gerado um tipo de exclusão 11 ou 12. Caso você inclua um registro que o sistema não encontre dados, a tela não será gravada.
Incluindo um Registro na nova tela (B4L), gerando uma movimentação na tabela B7O. Repare que quando é apresentado o select na tabela B7O, vem vários registros, isso aconteceu porque utilizei a exclusão por Rede e tenho vários plano vinculados a esta rede. Caso tivesse utilizado a exclusão por SCPA/SUSEP apareceria somente um resultado.:
Agora um exemplo de como o sistema se comporta caso eu utilize um SCPA/SUSEP ou Rede que não existe na minha base:
Sempre que deletarmos 1 registro no Grupo de Serviço Vinculado a RDA (BIN) o sistema checa se há um cadastro correspondente na nova tela (B4L), caso exista ele deleta o cadastro na nova tela (B4L) e o registro gerado pela nova tela na B7O. Isso porque a nova tela é baseada no Grupo de serviço vinculado a RDA (BIN). Tanto é, que a consulta padrão da nova tela apresenta registros da tabela BIN.
Se eu deletar um registro na tela nova (B4L), o sistema vai deletar também o registro criado por ela na tabela B7O.
A nova tela de Exclusão de Planos, não aceita a alteração do registro. Caso tenha errado um cadastro, deverá exclui-lo.
Criado Tabela B4L - Exclusão de Planos A400 - Chave única (X2_UNICO): B4L_FILIAL+B4L_CODINT+B4L_CODRDA+B4L_CODLOC+B4L_PLANOS+B4L_REDEDI+B4L_GRPSER
Campos:
| Campo | Título | Descrição | Tamanho | Tipo | Propriedade | Inicializador Padrão | Uso | Validação Sistema | Consulta Padrão | Modo Edição |
|---|---|---|---|---|---|---|---|---|---|---|
| B4L_FILIAL | Filial | Filial | Caracter | |||||||
| B4L_CODINT | Operadora | Operadora | 4 | Caracter | Visualizar | PLSINTPAD() | Usado-Browse | |||
| B4L_CODRDA | Código RDA | Código RDA | 6 | Caracter | Visualizar | BAU->BAU_CODIGO | Usado-Browse | |||
| B4L_CODLOC | Código Local | Código Local | 3 | Caracter | Visualizar | Usado-Browse | ||||
| B4L_PLANOS | SCPA/SUSEP | SCPA ou SUSEP | 20 | Caracter | Alterar | Usado-Browse | PLSLIMB4L("B4L_PLANOS") | Inclui | ||
| B4L_REDEDI | Rede EDI | Rede EDI | 4 | Caracter | Alterar | Usado-Browse | PLSLIMB4L("B4L_REDEDI") | Inclui | ||
| B4L_GRPSER | Grp.Serviço | Grupo de Serviço | 3 | Caracter | Alterar | Usado-Browse-Obrigat. | ExistCPO("BIN",M->B4L_CODRDA+M->B4L_CODINT+M->B4L_CODLOC+M->B4L_GRPSER) | PLSBH7 | Inclui | |
| B4L_DATBLO | Data de Bloqueio | Data de Bloqueio | 8 | Caracter | Alterar | Usado-Browse-Obrigat. | Inclui |
Indice:
| Índice | Ordem | Chave | Descrição |
|---|---|---|---|
| B4L | 1 | B4L_FILIAL+B4L_CODINT+B4L_CODRDA+B4L_CODLOC+B4L_PLANOS+B4L_REDEDI+B4L_GRPSER | Filial +Operadora + Código RDA + Codigo Local + SCPA/ SUSEP + Rede EDI + Grp.Serviço |
Consulta Padrão:
| Alias | Tipo | Sequência | Coluna | Descrição | Contém |
|---|---|---|---|---|---|
| PLSBH7 | 1 | 01 | DB | Grupo Serviço X RDA | BIN |
| PLSBH7 | 2 | 01 | 01 | Codigo + Operadora | |
| PLSBH7 | 4 | 01 | 01 | Codigo Grupo | BIN_CODGRU |
| PLSBH7 | 4 | 01 | 01 | Desc.Local | POSICIONE('BH7',1,XFILIAL('BH7')+BIN->BIN_CODGRU,'BH7_DESCRI') |
| PLSBH7 | 4 | 01 | 01 | Codigo local | BIN_CODLOC |
| PLSBH7 | 4 | 01 | 01 | Operadora | PLSGRVLOC(BIN->BIN_CODINT) |
| PLSBH7 | 5 | 01 | BIN->BIN_CODGRU | ||
| PLSBH7 | 5 | 01 | Codigo Local | PLSGRVLOC(BIN->BIN_CODLOC) | |
| PLSBH7 | 6 | 01 | M->B4L_CODRDA = BIN->BIN_CODIGO |
Novos campos na tabela BH7:
| Campo | Título | Descrição | Tamanho | Tipo | Propriedade | Lista de Opções | Uso | Validação Sistema |
|---|---|---|---|---|---|---|---|---|
| BH7_CLASSI | Classif. | Classificação do Serviço | 2 | Caracter | Alterar | 09=Serviços de Internação;10=Serviços de Urgência e Emergência; | Usado - Browse | PERTENCE("09|10| ") |
| BH7_CLASRV | Plan.Serv | Plano/Produto x Serviços | 2 | Caracter | Alterar | 11=Plano/Produto X Serviços de Internação;12=Plano/Produto X Serviços de Urgência e Emergência; | Usado - Browse | PERTENCE("11|12| ") |
Novo índice Criado na tabela B7O:
| Índice | Ordem | Chave | Descrição |
|---|---|---|---|
| B7O | 1 | B7O_FILIAL+B7O_CODRDA+B7O_NVEXC+B7O_PRESUB+B7O_REDEXC+B7O_PLAEXC+B7O_ENDEXC+B7O_LABBLO+B7O_LABSUS+B7O_CODGRU | Filial + Cód. RDA + Niv.Exclusao + Prest.Subst. +Rede Excluid+Plano Exclui+End Excluido+Cod. Loc Blo+Cód Loc Sub +Exc. Servico |
| B7O | 5 | B7O_FILIAL+B7O_CODRDA+B7O_NVEXC+B7O_PLAEXC+B7O_ENDEXC+B7O_CODGRU | Filial + Cód. RDA + Niv.Exclusao + Plano Exclui + End Excluido + Exc. Servico |
Alteração da Chave Única da Tabela B7O. Nova Chave única(X2_UNICO):
| Tabela | Chave Única |
|---|---|
| B7O | B7O_FILIAL+B7O_CODRDA+B7O_NVEXC+B7O_PRESUB+B7O_REDEXC+B7O_PLAEXC+B7O_ENDEXC+B7O_LABBLO+B7O_LABSUS+B7O_CODGRU |
É necessário que o cliente tenha criado os campos do ticket abaixo:
DSAUPC-19534 DT Ajustes PTU A400 - Batch V16.1
Não se aplica