Histórico da Página

||Descrição|| O ponto de entrada será acionado após uma nova inclusão e confirmação das validações na tela de agenda clínica.  
||Observações|| Ao confirmar um novo agendamento, o sistema fará todas as validações necessárias e em caso positivo retornará .T. (true) possibilitando novas customizações de regras de negócios. Caso o retorno for .F. (false), o sistema não permitirá a confirmação do agendamento, condicionando a possibilidade de confirmar o agendamento se a nova regra customizada for atendida (.T.).
||Exemplos||
User Function HSM54OK
Local _nOpc	   := PARAMIXB[1]  
Local _nAgenda := Ascan(aOBJETOS[1,2]:aCols,{|x|AllTrim(x[1])=="BR_LARANJA"})
Local _nEncaixe:= Ascan(aOBJETOS[2,2]:aCols,{|x|AllTrim(x[1])=="BR_LARANJA"})
Local dDtAge
Local nDias
Local lRet	:= .T.   
          
If _nOpc == 2 .Or. _nOpc == 4   /* OpcaoOpção AGENDAR ou TRANSFERIR */    
	If _nAgenda > 0
		dDtAge := aOBJETOS[1,2]:aCols[nAgenda][2]	
	ElseIf _nEncaixe > 0 
		dDtAge := aOBJETOS[1,2]:aCols[nAgenda][2]
	EndIf 
	nDias	:= ( dDtAge- Date() )  
	
	If nDias >= GetNewPar("ES_PERAGE",7) 
		lRet := MsgYesNo('CONFIRMA - Agendamento marcado para um período igual ou superior a '+;
						 cValToChar(GetNewPar("ES_PERAGE",7))+" dias","ATENÇÃO")
	EndIf                       
EndIFEndIf                                                      

Return (lRet)   

||Preview|| 
||Veja também|| Está visível pelo ponto de entrada a variável aOBJETOS que possui em memória todas as informações da tela de agendamento.
||Idioma|| Português(Brasil)
||Versões|| Versões_Anteriores
||Sistemas Operacionais Suportados||Todos
||Compatível com as Bases de Dados||Todas
||Updates|| 
||Parâmetros|| Local _nOpc := PARAMIXB[1] // 2- Agendar; 3-Cancelar; 4-Transferir; 5-Alterar
||Retorno|| lRet
||Eventos de chamada do Ponto de Entrada|| 
||Variáveis|| 
||Programa Fonte|| HSPAHM54.PRW