Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Produto:

TOTVS Saúde Planos

Linha de Produto:

Linha Protheus 

Segmento:

Saude 

Módulo:AUTORIZADOR
Função:AUTORIZAÇÃO SADT
Ticket:19092257
Requisito/Story/Issue (informe o requisito relacionado) :DSAUBE-23603


02. SITUAÇÃO/REQUISITO

Disponibilizar um ponto de entrada onde é possivel enviar guias do Portal Autorizador para auditoria sem que tenha que parametrizar no procedimento.

03. SOLUÇÃO

Realizada implementação da passagem do parametro lOriHAT para o ponto de entrada PLSAUT02(PE Cobertura Procedimentos).

Exemplo:

User Function PLSAUT02
local aDadosPar  := aClone(paramixb)
local aRetPad    := aClone(aDadosPar[1]) //Retorno padrao, e o que o sistema ja criticou ate o momento com suas regras padroes...
local cCdTbPd    := aDadosPar[4] //Codigo do Tipo de Tabela
local cCodPro    := aDadosPar[5] //Codigo do Procedimento
local cLocalExec := aDadosPar[8] //"1" processamento via atendimento "2" processameto via cotas medicas (mudanca de fase)
local cTipGui    := aDadosPar[23]
local lOriHat    := aDadosPar[29]
local lSistemaAut:= aRetPad[1] //Sistema no padrao autorizou ou nao?
local aRetFuncao := aClone(aRetPad) //retorno padrao desta funcao...
local aCriticas  := {}    
local cCodCriEsp := "025"
local cDesCriEsp := "Este atendimento precisa de auditoria"
local cNivel

// Se o sistema padrão autorizou, 
// Se a critica 025 esta ativa
// Se esta vindo do atendimento e não mudança de fase 
// Se é um atendimento vindo do HAT
If lSistemaAut .And. PLSPOSGLO(PLSINTPAD(),cCodCriEsp,cDesCriEsp,cLocalExec) .and. cLocalExec == '1' .and. lOriHat .and. cTipGui $ '03;07;08;09;11'
    cNivel := "HAT" 
    aadd(aCriticas,{cCodCriEsp,PLSBCTDESC(),"",BCT->BCT_NIVEL,BCT->BCT_TIPO,cCdTbPd,cCodPro})
    aRetFuncao := {.F.,aCriticas,cNivel,"",.F.}
Endif

Return(aRetFuncao)


04. DEMAIS INFORMAÇÕES

Não se aplica

05. ASSUNTOS RELACIONADOS

Não se aplica