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
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas