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..
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)
|
