...
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
Card documentos |
---|
Informacao | Use esse box para destacar informações relevantes e/ou de destaque. |
---|
Titulo | IMPORTANTE! |
---|
|
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) |
...
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>
|