Histórico da Página
...
Realizada implementação da passagem do parametro lOriHAT para o ponto de entrada PLSAUT02(PE Cobertura Procedimentos).
Exemplo:
Bloco de código | ||
---|---|---|
| ||
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
Templatedocumentos |
---|
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas