PLSAUT03 - Usuário de Intercâmbio

O ponto de entrada PLSAUT03 permite que o usuário realize verificações e/ou valide as já realizadas pelo sistema na checagem de cobertura de um usuário de intercâmbio.
O ponto é acionado após as verificações padrão do sistema.

PLSXAUT.PRW

PLSAUT03 - Usuário de Intercâmbio ( [ aRet ], [ dData ], [ cHora ], [ cCdTbPd ], [ cCodPro ], [ nQtd ], [ cCid ], [ cLocalExec ], [ cOpeSol ], [ cCodPRFSol ], [ cOpeRDA ], [ cCodRda ], [ cCodLoc ], [ cLOCAL ], [ cCodEsp ], [ cOpeUsr ], [ cMatrUsr ], [ cPadInt ], [ aDadUsr ], [ aDadRda ], [ cTpLocExec ], [ cTipPreRDA ], [ cRdaEDI ], [ cAteRNA ] ) --> aRet

aRet(array_of_record)
• Array contendo:
  aRet[1] - Boolean (.T. - Procedimento autorizado / .F. - Procedimento negado)
  
  Posicoes para procedimento negado (aRet[1] .T.)
  aRet[2] - Caracter "1"
  aRet[3] - Alias no nivel da liberacao
  aRet[4] - Chave da liberacao
  (Para todas as posicoes e possivel analisar como exemplo o conteudo do paramixb[1])
  
  Posicoes para procedimento negado (aRet[1] .F.)
  aRet[2] - aCodCri (Array com criticas, ver composicao logo abaixo)
  aRet[3] - Alias do nivel da critica
  aRet[4] - Vazio

#define __aCriTeste {"7XX","Critica customizada cliente"} //Critica usado pelo cliente criada na tabela BCT (e possivel utilziar criticas ja existentes do sistema)User Function PLSAUT03 Local aRetPadrao := paramixb[1] //aRet ja montado pelo sistemaLocal dData      := paramixb[2] //Data eventoLocal cHora      := paramixb[3] //Hora eventoLocal cCdTbPd    := paramixb[4] //Cod Tab ProcedimentoLocal cCodPro    := paramixb[5] //Cod ProcedimentoLocal nQtd       := paramixb[6] //Qtd eventoLocal cCid       := paramixb[7] //Cid Local cLOCALExec := paramixb[8] //"1"-Autorizacao  "2"-Processamento de ContaLocal cOpeSol    := paramixb[9] //Operadora Solicitante  Local cCodPRFSol := paramixb[10] //Cod profissional solicitante Local cOpeRDA    := paramixb[11] //Operadora RdaLocal cCodRda    := paramixb[12] //Cod RdaLocal cCodLoc    := paramixb[13] //Cod Local AtendimentoLocal cLOCAL	 := paramixb[14] //Cod Localidade Local cCodEsp    := paramixb[15] //Especialidade  Local cOpeUsr    := paramixb[16] //Operadora usuario   Local cMatrUsr   := paramixb[17] //Matricula Usuario    Local cPadInt    := paramixb[18] //XXX_PADINTLocal aDadUsr    := paramixb[19] //Array com informacoes do usuarioLocal aDadRda    := paramixb[20] //Array com informacoes da RdaLocal cTpLocExec := paramixb[21]   Local cTipPreRDA := paramixb[22] //Tipo Prestador Local cRdaEDI    := paramixb[23] //Cod Rda Edi  Local cAteRNA    := paramixb[24] //XXX_ATERNA  Local aRet := {}   Local aCodCri := {}            If //Regra do cliente    //Foi encontrada critica, montando array de retorno    PLSPOSGLO(PLSINTPAD(),__aCriTeste[1],__aCriTeste[2],cLOCALExec,nil,cTpLocExec)    aadd(aCodCri,{__aCriTeste[1],PLSBCTDESC(),"",BCT->BCT_NIVEL,BCT->BCT_TIPO,cCdTbPd,cCodPro})       aRet := {.F.,aCodCri,"BAQ",""}//Monta array de procedimento negado  Else    aRet := {.T.,"1","BAQ",cChaveLiberacao} //Monta array de procedimento autorizadoEndIfReturn(aRet)    /*ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿³ Composicao do aRet               ³ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ aRet[1] - Boolean (.T. - Procedimento autorizado / .F. - Procedimento negado)Posicoes para procedimento negado (aRet[1] .T.) aRet[2] - Caracter "1"aRet[3] - Alias no nivel da liberacaoaRet[4] - Chave da liberacao (Para todas as posicoes e possivel analisar como exemplo o conteudo do paramixb[1])Posicoes para procedimento negado (aRet[1] .F.)aRet[2] - aCodCri (Array com criticas, ver composicao logo abaixo)aRet[3] - Alias do nivel da criticaaRet[4] - Vazio                ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿³ Composicao do aCodCri            ³ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ Obs: na Posicao aRet[2] podem ser incluidos varios aCodCri, um para cada critica encontradaaCodCri[1] - Codigo da criticaaCodCri[2] - Descricao da criticaaCodCri[3] - VazioaCodCri[4] - BCT_NIVELaCodCri[5] - BCT_TIPOaCodCri[6] - Codigo da tabela do procedimento XXX_CODPADaCodCri[7] - Codigo do procediemnto XXX_CODPSA*/