Histórico da Página

...

Produto:

TOTVS Saúde Planos

Solucoes_totvs

Solucao

Solucoes_totvs_cross

SolucaoCross

Solucoes_totvs_parceiros

SolucaoParceiros

Solucoes_totvs_parceirosexptotvs

SolucaoParcsExpsTOTVS

Linha de Produto:

Linha Protheus

Linhas_totvs

Segmento:

Saude

Segmentos_totvs

Segmento

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.

Image Modified

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

Image Modified

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

Image Modified

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:

Image Modified

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.

Image Modified

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.

Image Modified

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	@!		IF(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

Codigo Roll

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

Card documentos

Informacao	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.
Titulo	Importante

05. ASSUNTOS RELACIONADOS

Não se aplicaCadastro Dut - PLSA09B

Templatedocumentos

Árvore de páginas

Versões comparadas

Versão antiga 18

Nova versão 19

Chave

02. SITUAÇÃO/REQUISITO

03. SOLUÇÃO

Tela Roll de Procedimentos ANS

Tela de Auditoria

04. DEMAIS INFORMAÇÕES

Atualização Dicionário de Dados

05. ASSUNTOS RELACIONADOS