Histórico da Página

...

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 "

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>

Árvore de páginas

Versões comparadas

Versão antiga 8

Nova versão Atual

Chave