DECLARE
  ALRT   NUMBER;
  T_REC  NUMBER;
  UNAME  VARCHAR2(50);
  UPWD   VARCHAR2(50);
  pl_id  PARAMLIST;
  PNAME  VARCHAR2(100);
	
BEGIN

  SELECT USER_NAME, USER_PASSWORD, PERSON_NAME 
  INTO   UNAME,     UPWD,          PNAME
  FROM ORGANIZATION.USER_ACCOUNT
  WHERE USER_NAME     = :LOGIN_BLOCK.USER_NAME 
  AND   USER_PASSWORD = :LOGIN_BLOCK.USER_PASSWORD;

IF UNAME IS NOT NULL AND UPWD IS NOT NULL THEN 
  PL_ID := GET_PARAMETER_LIST('PLIST');
    
    IF NOT ID_NULL(PL_ID) THEN
       DESTROY_PARAMETER_LIST('PLIST');
    END IF;
  PL_ID := CREATE_PARAMETER_LIST('PLIST');
	
    IF NOT ID_NULL(PL_ID) THEN
      ADD_PARAMETER(PL_ID,'USER_NAMES',TEXT_PARAMETER,PNAME);
    END IF;

  CALL_FORM('.\FORMS\FRM_MAIN_MENU.fmx',HIDE,DO_REPLACE,NO_QUERY_ONLY,PL_ID );
  EXIT_FORM(NO_VALIDATE);		


END IF;

EXCEPTION
  WHEN NO_DATA_FOUND THEN 
    SET_ALERT_PROPERTY('COMMON_ALRT', ALERT_MESSAGE_TEXT, 'User Name or Password not Correct...!');
    ALRT := SHOW_ALERT('COMMON_ALRT');
	IF ALRT = ALERT_BUTTON1 THEN
	   :USER_NAME     := NULL;
	   :USER_PASSWORD := NULL;
	   GO_ITEM('USER_NAME');
	END IF;	
END;