FUNCTION commit_performed (lock_id_in IN INTEGER := 100) 
	RETURN BOOLEAN 
IS
	row_exclusive_mode INTEGER := 2;
	lock_status INTEGER;
BEGIN
	/*
	|| Request lock with specified ID in row-exclusive mode.
	|| Wait zero seconds to get the lock and request that
	|| the lock be released on commit.
	*/
	lock_status := 
		DBMS_LOCK.REQUEST 
			(lock_id_in, row_exclusive_mode, 0, TRUE);
	/*
	|| If the call to REQUEST was successful, then the commit
	|| was performed (or the lock was initialized.
	*/
	RETURN lock_status = 0;
END;