Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Usuário desconhecido (nayland)

Gravado em

comparado com

Nova versão 2

changes.mady.by.user Usuário desconhecido (nayland)

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.


01. DADOS GERAIS

Linha de Produto:Microsiga Protheus
Segmento:Saúde
Módulo:SIGAPLS - Plano de Saúde
Função:PLSA973
Ticket:
Issue:DSAUBE-11834


02. REQUISITO

Ao utilizar o Ponto de Entrada (P.E.) PLSDEPTO, o sistema alterava o código do departamento na tabela de Auditoria (B53), no campo B53_CODDEP, conforme esperado.

Contudo, na tabela de Encaminhamento (B71), o código do departamento (B71_CODDEP) não era alterado, conforme o P.E., ficando informações divergentes entre as tabelas B53 e B71.


03. SOLUÇÃO

Realizado ajuste para que a informação do P.E. PLSDEPTO seja refletida também na tabela de Encaminhamento, pois originalmente, não era esperado essa situação.

Agora, se o P.E. existir no ambiente, tanto a tabela de Auditoria e Encaminhamento serão alteradas pelo valor do P.E..


04. DEMAIS INFORMAÇÕES

CONFIGURAÇÃO DE PARÂMETROS

  1. No Configurador (SIGACFG), acesse Ambientes/Cadastros/Parâmetros (CFGX017). Crie o(s) parâmetro(s) a seguir:

Itens/Pasta

Descrição

Nome:MV_PLDAYIN
Tipo:Numérico
Cont. Por.:0
Descrição:Informe a quantidade de dias retroativos que é permitido realizar a internação de um beneficiário baseado na data de digitação.


05. ASSUNTOS RELACIONADOS

Ponto de Entrada 

PLSDEPTO

Descrição

O Ponto de Entrada (P.E.) PLSDEPTO está localizado no fonte PLSA790C, na função SetAuditoria, que permite personalizar a gravação do campo de departamento responsável pela Auditoria, no campo B53_CODDEP e na tabela de Encaminhamento, no campo B71_CODDEP.

Caso o parâmetro MV_SETORAT esteja vazio ou ausente no ambiente, a guia encaminhada para a auditoria fica sem um código de departamento responsável, além de não gerar o registro de encaminhamento. 

Agora, tanto se o parâmetro MV_SETORAT contiver valor ou se o P.E. PLSDEPTO existir no ambiente, o campo de departamento responsável será preenchido na tabela de auditoria (B53) e o encaminhamento será criado, de acordo com o código gravado na tabela de auditoria.


Fonte

PLSA790C


Parâmetros

O P.E. recebe os seguintes parâmetros:

ParâmetroTipoDescrição
PARAMIXB1CaractereOrigem do movimento: 1=Guias de Consultas/Serviços;2=Guia de Internação;3=Outros;6=Novo Autorizador  
PARAMIXB2CaractereTipo de crítica/glosa: 0=Operacional;1=Técnica;2=Administrativa
PARAMIXB3LógicoTipo de autorização: .T.=Autorização;.F.=Liberação
PARAMIXB4CaractereCaráter da internação: E=Eletiva;U=Urgência/Emergência;N=Não Aplicável  
PARAMIXB5LógicoGuia futura ?: .T. = Sim; .F. = Não
PARAMIXB6LógicoÉ guia de reembolso? .T. = Sim; .F. = Não
PARAMIXB7LógicoÉ evolução ? .T. = Sim; .F. = Não
PARAMIXB8LógicoÉ guia de internação ? .T. = Sim; .F. = Não
PARAMIXB9ArrayArray contendo detalhes dos Itens da critica
PARAMIXB10ArrayArray contendo estrutura de dicionário do arquivo de críticas
PARAMIXB11ArrayArray contendo detalhes dos procedimentos da guia
PARAMIXB12ArrayArray contendo estrutura de dicionário do arquivo de procedimentos da guia
PARAMIXB13CaractereAlias da tabela de procedimentos da guia.
PARAMIXB14CaractereAlias da tabela de criticas da guia,
PARAMIXB15CaractereRegime de internação da guia: 1=Hospitalar;2=Hospital-Dia;3=Domiciliar  
PARAMIXB16LógicoÉ uma auditoria participativa?



Retorno

O P.E. deve retornar uma string, contendo o código do departamento, que será gravado nos campos B53_CODDEP e B71_CODDEP.

Parâmetro

Variável

Tipo

Descrição

Obrigatório

cCodDep

cCodDep

CaractereCódigo do Departamento responsável pela guia em auditoria.Sim



Exemplo

#INCLUDE "PROTHEUS.CH"
#Include "totvs.ch" 


USER FUNCTION PLSDEPTO()
local aParam       := paramixb
local cParam1     := aParam[1]
local cParam2     := aParam[2]
local cParam3     := aParam[3]
local cParam4     := aParam[4]
local cParam5     := aParam[5]
local cParam6     := aParam[6]
local cParam7     := aParam[7]
local cParam8     := aParam[8]
local cParam9     := aParam[9]
local cParam10   := aParam[10]
local cParam11   := aParam[11]
local cParam12   := aParam[12]
local cParam13   := aParam[13]
local cParam14   := aParam[14]
local cParam15   := aParam[15]
local cParam16   := aParam[16]
local cCdDepAd  := ""

if ( cParam1 == "1" )
     cCdDepAd := "077" // Auditoria de Consulta
elseif ( cParam1 == "2" )
     cCdDepAd := "001" // Departamento Geral
endif

Return (cCdDepAd)


...