01. DADOS GERAIS

Produto:	TOTVS Saúde Planos
Linha de Produto:	Linha Protheus
Segmento:	Saude
Módulo:	CONFIGURAÇÕES ANS TISS
Função:
Ticket:	14425679
Requisito/Story/Issue (informe o requisito relacionado) :	DSAUBE-18785

02. SITUAÇÃO/REQUISITO

O sistema não contemplava a associação de duas ou mais Dut's a um roll de procedimento, se fazendo a necessidade de adequação.

03. SOLUÇÃO

Tela Roll de Procedimentos ANS

Para adequação da rotina "Roll de Procedimentos Ans", foi adicionado um grid na tela, onde será realizada a associação do Roll de Procedimentos com os Dut's da rotina "Cadastro Dut". Obs. Os campos "Código DUT" e "DUT Subitem" foram removidos da tela de "Roll de Procedimentos".

Conforme nas imagens abaixo, o campo "Tabela DUT", deverá ser preenchido com o código da tabela. Será através desse campo que o F3 do "Código DUT" e "Cod. Subitem" do grid apresentará os DUT's que poderão ser preenchidos.

Veja que na tela de Rolls, os itens preenchidos no grid são os mesmos que estão contidos no "Cadastro de DUT":

A opção Cadastro DUT no menu do Roll de Procedimentos foi retirado do menu, e realocado dentro do cadastro do Roll.

Os DUT's que serão apresentados nessa tela, serão o que vão estar posicionados no grid. Exemplo: Veja que está posicionado no DUT de subitem 01, logo o item apresentado é o respectivo:

Tela de Auditoria

Na tela de auditoria, no browse Críticas foi removido a opção de DUT, onde era apresentada as informações do DUT.

Na tela de Parecer, foram adicionados os campos "Subitem DUT" e "Tabela DUT". Que serão obrigatórios o preenchimento caso o procedimento tenha Itens cadastrados no Roll de Procedimentos.
Ao abrir a tela de parecer, caso o procedimento tenha apenas um item no roll de procedimento, o cadastro será carregado com este item, caso contrário será necessário selecionar um DUT através do F3 do campo Código DUT.

Caso seja clicado em "Salvar" e os dados do DUT estiverem vazios, se o procedimento houver um DUT associado no Roll de Procedimentos, será apresentada uma crítica informando que é obrigatório a associação do DUT na Guia.

Com as informações do DUT preenchidas, será possível visualizar as informações na opção "Outras Ações > DUT"

04. DEMAIS INFORMAÇÕES

Atualização Dicionário de Dados

A inclusão da Tabela BKY:

Tabela	Descrição	Ac. Filial	Ac. Unidade	Ac. Empresa
BKY	Roll de Procedimentos Dut's	Compartilhado	Exclusivo	Exclusivo

A inclusão no Arquivo SX3:

Tabela	Campo	Tipo	Ordem	Tamanho	Titulo	Descrição	Picture	Valid.	Inicializador Padrão	Consulta Padrão	Visual?	Contexto	Obrigatório	Modo Edição
BKY	BKY_FILIAL	Caracter	01	8	Filial	Filial do Sistema	@!
BKY	BKY_CODROL	Caracter	02	16	Codigo Roll	Codigo do Roll	@!					Real
BKY	BKY_TABDUT	Caracter	03	3	Tabela DUT	Tabela DUT	@!					Real
BKY	BKY_CODDUT	Caracter	04	3	Codigo DUT	Codigo do DUT	@!	Vazio() .Or. ExistCpo('BKK',FWFldGet('BRW_TABDUT')+FWFldGet('BKY_CODDUT'),1)		BKKDUT		Real	Sim	FWFldGet('BRW_DUT') == "1"
BKY	BKY_DUTSUB	Caracter	05	2	Cod. SubItem	Codigo do SubItem	@!	Vazio() .Or. ExistCpo('BKK',FWFldGet('BRW_TABDUT')+FWFldGet('BKY_CODDUT')+FWFldGet('BKY_DUTSUB'),1)		BKKSUB		Real		FWFldGet('BRW_DUT') == "1"
BKY	BKY_TITDUT	Caracter	06	254	Titulo DUT	Titulo do DUT	@!		IIF(INCLUI, "", POSICIONE("BKK", 1, XFILIAL("BKK") + BKY->BKY_TABDUT + BKY->BKY_CODDUT + BKY->BKY_DUTSUB, "BKK_TITULO"))		Visualizar	Virtual

A inclusão no Arquivo SIX:

Ordem	Descrição	Campo
1	Código Roll + Tabela DUT + Código DUT + Cód. SubItem	BKY_FILIAL+BKY_CODROL+BKY_TABDUT+BKY_CODDUT+BKY_DUTSUB

A inclusão no Arquivo SX3:

Tabela	Campo	Tipo	Ordem	Tamanho	Decimal	Titulo	Descrição	Picture	Inicializador Padrão	Visual?	Contexto
B72	B72_TABDUT	Caracter	39	3	0	Tabela DUT	Tabela DUT	@!	PLDUTB72('3',BR8->BR8_CODPAD,BR8->BR8_CODPSA)	Visualizar	Real

Atualização no Arquivo SX3:

Tabela	Campo	Consulta Padrão	Valid.	Inicializador Padrão
B72	B72_CODDUT	BKYDUT		PLDUTB72('1',BR8->BR8_CODPAD,BR8->BR8_CODPSA)
B72	B72_SUBDUT			PLDUTB72('2',BR8->BR8_CODPAD,BR8->BR8_CODPSA)
BRW	BRW_TABDUT		Vazio() .Or. (ExistCpo('BJO',M->BRW_TABDUT,1) .And. PL09BDatTB(M->BRW_TABDUT)) .And. PL95BTabDUT()

A inclusão no Arquivo SXB (Consulta Padrão):

Alias	Tipo	Sequência	Descrição	CONTÉM
BKYDUT	1	01	DUT do Roll	BKK
BKYDUT	2	01	Tabela Dut + Código
BKYDUT	4	01	Tabela DUT	BKK_CODTAB
BKYDUT	4	02	Código DUT	BKK_CODDUT
BKYDUT	4	03	Cód. SubItem	BKK_CODSUB
BKYDUT	4	04	Título DUT	BKK_TITULO
BKYDUT	5	01		BKK->BKK_CODDUT
BKYDUT	5	02		BKK->BKK_CODSUB
BKYDUT	5	03		BKK->BKK_CODTAB
BKYDUT	6	01		PLFilDUTAud(M->B72_CODPRO)

Atualização no Arquivo SXB (Consulta Padrão):

Alias	Tipo	Sequência	Descrição	CONTÉM
BKKSUB	6	01		(FWFldGet('BRW_TABDUT') == BKK->BKK_CODTAB .And. FWFldGet('BKY_CODDUT') == BKK->BKK_CODDUT) .And. !Empty(BKK->BKK_CODSUB)

A inclusão de gatilhos no Arquivo SX7:

Campo	Sequência	Regra	Tipo	Cnt. Dominio	Seek	Alias Pesq.	Ordem Pesq.	Chave
BKY_CODDUT	001	BKK->BKK_TITULO	Primário	BKY_TITDUT	Sim	BKK	1	XFILIAL("BKK") + FWFldGet("BRW_TABDUT") + FWFldGet("BKY_CODDUT") + FWFldGet("BKY_DUTSUB")
BKY_DUTSUB	001	BKK->BKK_TITULO	Primário	BKY_TITDUT	Sim	BKK	1	XFILIAL("BKK") + FWFldGet("BRW_TABDUT") + FWFldGet("BKY_CODDUT") + FWFldGet("BKY_DUTSUB")
BKY_CODDUT	002	""	Primário	BKY_DUTSUB	Não		0

Importante

A alteração de dicionário referente a essa implementação estará disponível no próximo pacote de Expedição Contínua do módulo SIGAPLS.

05. ASSUNTOS RELACIONADOS

Cadastro DUT - PLSA09B

Árvore de páginas

14425679 DSAUBE-18785 DT Adequação do Roll de Procedimentos