Пожалуйста помогите проверить и доработать.
Очень нужна обработка ошибок толковая.
Замечания:
	1) после создания таблицы дерева в нее нужно вставить строчку корневого узла
	2) корневой узел может быть только один
	3) параметры x и y в процедурах вставки и перемещения обозначают
		x - слева или справа
		y - равносильный или подчиненный

CREATE SCHEMA "core" AUTHORIZATION "root";

CREATE TABLE "core"."tree" (
  "id" SERIAL, 
  "pid" INTEGER, 
  "lft" INTEGER NOT NULL, 
  "rgt" INTEGER NOT NULL, 
  "lvl" SMALLINT NOT NULL, 
  CONSTRAINT "PK_tree" PRIMARY KEY("id")
) WITHOUT OIDS;

CREATE INDEX "IX_tree" ON "core"."tree"
  USING btree ("lft", "rgt", "lvl");

CREATE OR REPLACE FUNCTION "core"."spTreePoint" (did integer, x boolean, y boolean) RETURNS "pg_catalog"."record" AS
$$
declare
	dr record;
	rr record;
begin
	select into dr id, pid, lft, rgt, lvl
		from "core"."tree" where id = did;
	if y then select into rr
		cast(dr.id as integer) as pid,
		cast(case when x then dr.rgt -  1  else dr.lft end as integer) as pnt,
		cast(dr.lvl +  1  as smallint) as lvl;
	else select into rr
		cast(dr.pid as integer) as pid,
		cast(case when x then dr.rgt else dr.lft -  1  end as integer) as pnt,
		cast(dr.lvl as smallint) as lvl;
	end if;
	return rr;
end;
$$
LANGUAGE 'plpgsql' VOLATILE CALLED ON NULL INPUT SECURITY INVOKER;

CREATE OR REPLACE FUNCTION "core"."spTreeInsert" (did integer, x boolean, y boolean) RETURNS integer AS
$$
declare
	rr record;
	nid int4;
begin
	select into rr pid, pnt, lvl from "core"."spTreePoint" (did, x, y)
		as (pid integer, pnt integer, lvl smallint);
	update "core"."tree" set rgt = rgt +  2 , lft = case when lft > rr.pnt then lft +  2  else lft end
		where rgt > rr.pnt;
	insert into "core"."tree" (pid, lft, rgt, lvl)
		values (rr.pid, rr.pnt +  1 , rr.pnt +  2 , rr.lvl);
	select into nid
		currval('core.tree_id_seq');
	return (nid);
end;
$$
LANGUAGE 'plpgsql' VOLATILE CALLED ON NULL INPUT SECURITY INVOKER;

CREATE OR REPLACE FUNCTION "core"."spTreeMove" (sid integer, did integer, x boolean, y boolean) RETURNS integer AS
$$
declare
	sr record;
	rr record;
	d_src integer;
	d_mov integer;
	d_lvl smallint;
begin
	select into sr lft, rgt, lvl from "core"."tree"
		where id = sid;
	select into rr pid, pnt, lvl from "core"."spTreePoint" (did, x, y)
		as (pid integer, pnt integer, lvl smallint);
	d_src := sr.rgt - sr.lft +  1 ;
	d_lvl := rr.lvl - sr.lvl;
	if rr.pnt > sr.rgt then
		d_mov := rr.pnt - sr.lft +  1  - d_src;
		update "core"."tree" set
			lft = case when rgt <= sr.rgt then lft + d_mov else case when lft > sr.rgt then lft - d_src else lft end end,
			lvl = case when rgt <= sr.rgt then lvl + d_lvl else lvl end,
			rgt = case when rgt <= sr.rgt then rgt + d_mov else case when rgt <= rr.pnt then rgt - d_src else rgt end end
		where rgt > sr.lft and lft <=  rr.pnt;
	else
		d_mov := rr.pnt - sr.lft +  1 ;
		update "core"."tree" set
			rgt = case when lft >= sr.lft then rgt + d_mov else case when rgt < sr.lft then rgt + d_src else rgt end end,
			lvl = case when lft >= sr.lft then lvl + d_lvl else lvl end,
			lft = case when lft >= sr.lft then lft + d_mov else case when lft > rr.pnt then lft + d_src else lft end end
		where rgt > rr.pnt and lft < sr.rgt;
	end if;
	update "core"."tree" set
		pid = rr.pid where id = sid;
	return  0 ;
end;
$$
LANGUAGE 'plpgsql' VOLATILE CALLED ON NULL INPUT SECURITY INVOKER;

Не знаю может я всех запутаю еще больше.
Вот  источник  основываясь на который я делал вышенаписанное.
Хотелось бы добавить еще несколько ссылок:
1.  Storing Hierarchical Data in a Database 
2.  Дерево каталогов NESTED SETS (вложенные множества) и управление им. Часть 2 

Эти процедуры для _управления_ деревом, на основе Nested Sets.
И единственное чего здесь не хватает это удаления узла :)
Предпологается что запросы на выборку построить сможет любой самостоятельно :)
За наводку спасибо, только вот у меня нет аккаунта в ЖЖ и я не знаю как этим добром пользоваться :(

Я вот счас сижу и думаю.
- А может все, как Guest, смотрят что мало процедур и думаю что это все ерунда?
Давайте немного поясню (ненавижу длинные посты):
Везде где я видел реализацию NS, функции вставки узла например, разбиты на несколько:
Слева на одном уровне
Справа на одном уровне
Слева на уровень ниже
...
То же самое с движением узла.
Причем практически во всех примерах которые я смотрел, половина вещей сделанна половина нет.
Посмотрев на это пришел к выводу, что для вставки и перемещения требуются два дополнительных параметра, которые помогут более точно задать точку назначения.
Я назвал их X и Y они оба логические (2 во второй степени = 4 хихи).
Получается что у меня четыре процедуры на вставку, и четыре процедуры на передвижение + процедура которая обслуживает координаты, и того 9.
Нужно всего лишь добавить два варианта удаления (вырезание узла, удаление с потомками). Это еще плюс две операции (но одна процедура).

SELECT (rgt-lft- 1 )/ 2  as childs_count FROM tree_table

SELECT * FROM Tree WHERE left > parent_left AND right < parent_right AND level > parent_level

SELECT * FROM tree WHERE left <= $left AND right >= $right ORDER BY left