Árvore de páginas

Versões comparadas

Chave

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

...

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 "

topconn

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)





Templatedocumentos


HTML
<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}

.aui-tabs.horizontal-tabs>.tabs-menu>.menu-item.active-tab a::after { 
	background: #FF9900; !important 
}

.menu-item.active-tab { 
	border-bottom: none !important; 
}

</style>