DT PE Alterar Validação da Crítica 038 para as Redes de Atendimento

01. DADOS GERAIS

02. SITUAÇÃO/REQUISITO

Necessidade de criar ponto de entrada para manipular o retorno da função que valida no atendimento a crítica 038 ("Produto do usuário não permite atendimento por esta Rede de Atendimento.") para as redes de atendimento.

03. SOLUÇÃO

Implementado ponto de entrada PLVLDRDA que permite alterar o retorno da validação da crítica 038 para as redes de atendimento. O ponto de entrada será chamado ao final da validação padrão.

04. DEMAIS INFORMAÇÕES

Ponto de Entrada: PLVLDRDA

Descrição: Permite alterar o retorno da validação da crítica 038 para as redes de atendimento.

Parâmetros: 

• • PARAMIXB[1] → lRet 
  • PARAMIXB[2] → aRet 
  • PARAMIXB[3] → aDadUsr
  • PARAMIXB[4] → cLocalExec
  • PARAMIXB[5] → cCodPad
  • PARAMIXB[6] → cCodPro
  • PARAMIXB[7] → aBD6
  • PARAMIXB[8] → aRDAWeb
  • PARAMIXB[9] → cAlias

Retorno: Array com duas posições, sendo:

• • 1 - Lógico, Define se o beneficiário não apresentará a crítica 038 para a rede de atendimento (.f. ou .t.)
  • 2 - Array, Dados da crítica quando o retorno lógico for false (.f.).
    • Exemplo: aAdd(aRetCustom, {"038", PLSBCTDESC(), "", BCT→BCT_NIVEL, BCT→BCT_TIPO, cCodPad, cCodPro})

#include "Protheus.ch"

user function PLVLDRDA()

    local lRetPadrao := PARAMIXB[1]
    local aRetPadrao := PARAMIXB[2]
    local aDadUsr := PARAMIXB[3]
    local cLocalExec := PARAMIXB[4]
    local cCodPad := PARAMIXB[5]
    local cCodPro := PARAMIXB[6]
    local aBD6 := PARAMIXB[7]
    local aRDAWeb := PARAMIXB[8]
    local cAlias := PARAMIXB[9]
    local lRetCustom := .t.
    local aRetCustom := {}

    // Tratamento customizado
    lRetCustom := lRetPadrao
    aRetCustom := aRetPadrao
    
return {lRetCustom, aRetCustom}

05. ASSUNTOS RELACIONADOS

        Não se aplica