Histórico da Página

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)