BEGIN
  LOCK TABLE Table1;

  FOR lRow AS cRow NO SCROLL CURSOR FOR
    SELECT id AS @id
    FROM @Table1
  DO
    BEGIN
      DELETE FROM Table1 WHERE id = @id;

      MESSAGE @id || ' удалена' TO CLIENT;
    EXCEPTION
      WHEN OTHERS THEN
        MESSAGE @id || ' оставляется' TO CLIENT;
    END;
  END FOR;
END;

BEGIN
  DECLARE LOCAL TEMPORARY TABLE #Result (id NOT NULL PRIMARY KEY);

  FOR lRow AS cRow NO SCROLL CURSOR FOR
    SELECT '"' || fo.User_Name || '"."' || ft.table_name || '"' AS @Table
    FROM sys.SYSFOREIGNKEY fk
      INNER JOIN sys.SYSTABLE ft ON ft.table_id = fk.foreign_table_id
      INNER JOIN sys.SYSUSERPERM fo ON fo.User_id = ft.Creator
      INNER JOIN sys.SYSTABLE pt ON pt.table_id = fk.primary_table_id
      INNER JOIN sys.SYSUSERPERM pf ON pf.User_id = pt.Creator
    WHERE pt.Table_Name = 'Table1' AND pf.User_Name = 'DBA'
  DO
    EXECUTE IMMEDIATE 
      'INSERT INTO #Result (id) SELECT fk_id FROM ' || @Table ||
      '  WHERE fk_id NOT IN (SELECT id FROM #Result)';
  END FOR;

  DELETE FROM Table1
  WHERE id NOT IN (SELECT id FROM #Result);
END;