8086308 DSAUBE-10393 DT Ponto de Entrada PLSDEPTO

01. DADOS GERAIS

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

02. SITUAÇÃO/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

Para maiores informações do parâmetro MV_SETORAT, consulte a documentação no link Encaminhamento de Guia na Auditoria.

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âmetro	Tipo	Descrição
PARAMIXB1	Caractere	Origem do movimento: 1=Guias de Consultas/Serviços;2=Guia de Internação;3=Outros;6=Novo Autorizador
PARAMIXB2	Caractere	Tipo de crítica/glosa: 0=Operacional;1=Técnica;2=Administrativa
PARAMIXB3	Lógico	Tipo de autorização: .T.=Autorização;.F.=Liberação
PARAMIXB4	Caractere	Caráter da internação: E=Eletiva;U=Urgência/Emergência;N=Não Aplicável
PARAMIXB5	Lógico	Guia futura ?: .T. = Sim; .F. = Não
PARAMIXB6	Lógico	É guia de reembolso? .T. = Sim; .F. = Não
PARAMIXB7	Lógico	É evolução ? .T. = Sim; .F. = Não
PARAMIXB8	Lógico	É guia de internação ? .T. = Sim; .F. = Não
PARAMIXB9	Array	Array contendo detalhes dos Itens da critica
PARAMIXB10	Array	Array contendo estrutura de dicionário do arquivo de críticas
PARAMIXB11	Array	Array contendo detalhes dos procedimentos da guia
PARAMIXB12	Array	Array contendo estrutura de dicionário do arquivo de procedimentos da guia
PARAMIXB13	Caractere	Alias da tabela de procedimentos da guia.
PARAMIXB14	Caractere	Alias da tabela de criticas da guia,
PARAMIXB15	Caractere	Regime de internação da guia: 1=Hospitalar;2=Hospital-Dia;3=Domiciliar
PARAMIXB16	Ló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	Caractere	Có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)

Árvore de páginas