DECLARE
	pl_id paramList; 
	p_name VARCHAR2(20); 
	TEMP NUMBER;
BEGIN
	p_name := 'logindata';
	pl_id := GET_PARAMETER_LIST(p_name);
	IF NOT ID_NULL (pl_id) THEN
		DESTROY_PARAMETER_LIST(pl_id);
	END IF;
	pl_id := CREATE_PARAMETER_LIST(p_name);
	ADD_PARAMETER(pl_id,'P_ID',TEXT_PARAMETER,:USER_ID);
	SELECT COUNT(*)INTO TEMP FROM TB_TIMESHEET_USER WHERE USER_ID = :TB_TIMESHEET_USER.USER_ID AND PASSWORD = :TB_TIMESHEET_USER.PASSWORD;
	IF(TEMP>0) THEN
		new_form('path of fmx',TO_SAVEPOINT,NO_QUERY_ONLY,PL_ID);
	ELSE
		MESSAGE('INVALID USERNAME AND PASSWORD');
	END IF;
END;

	ELSE
		MESSAGE('INVALID USERNAME AND PASSWORD');
                MESSAGE('INVALID USERNAME AND PASSWORD');
	END IF;