-- Удаление таблицы
FUNCTION DROP_TABLE_S(P$OWNER IN VARCHAR2,            -- Наименование схемы
                     P$NAME IN VARCHAR2,
		     P$WR_LOG IN SMALLINT DEFAULT 1  -- 1-ПИШЕМ В DBMS_OUTPUT УСПЕШНОЕ СООБЩЕНИЕ, ИНАЧЕ НЕТ (ОШИБКА ПИШЕТСЯ ВСЕГДА!!!)          					 -- НАИМЕНОВАНИЕ ТАБЛИЦЫ
                     ) RETURN R_ARRAY_SINGLE IS
		       R_ARRAY R_ARRAY_SINGLE;
BEGIN
  IF TABLE_EXISTS(P$OWNER, P$NAME, 0) = 1 THEN
      R_ARRAY:=R_ARRAY_SINGLE('');
      R_ARRAY(1):='DROP TABLE ' || P$OWNER || '.' || P$NAME || ' CASCADE CONSTRAINTS'; 
    --WR_LOG('DROP_TABLE: ТАБЛИЦА '||P$OWNER||'.'||P$NAME||' УДАЛЕНА.', P$WR_LOG);
      RETURN R_ARRAY;
  END IF;

  --WR_LOG('DROP_TABLE: Таблица '||p$owner||'.'||p$name||' НЕ найдена.', p$wr_log);
END DROP_TABLE_S