Hie there, Am trying to delete an

[kriss]

Hie there,
Am trying to delete an item from a tree but or essentially remove it from display an error appears ....

" FRM-40734 Internal Error : PLSQL error occured "

Anyone with an idea wsup???

This is my trigger code :


Declare
parent_node ftree.node;
current_node ftree.node;
htree item;
delete_node ftree.node;
find_node ftree.node;
ls_desc Varchar2(30);

v_al_id alert;
v_al_button number;
v_err_txt varchar2(200);
begin


htree := find_item('db_budgets_list.budgets');

current_node := :system.trigger_node;


parent_node := ftree.get_tree_node_parent(htree, current_node);

arameter.p_prev_node := parent_node;

-- Mark the clicked node as selected.

if parent_node is not null then

if current_node is not null then
v_err_txt := 'Are you sure you would delete the selection?';

v_al_id := Find_Alert('std_alert_caution_2');
Set_Alert_Property(v_al_id, alert_message_text, v_err_txt );
v_al_button := Show_Alert( v_al_id );

If v_al_button = ALERT_BUTTON1 then

go_block('db_budgets_list');
--------------------cj---------------

Begin
Select distinct budget_id into ls_desc from at_budget_items
where budget_id = :db_application.budget_id;

exception when no_data_found then
return;
End;


htree := find_item('db_budgets_list.budgets');
find_node := Ftree.Find_Tree_Node(htree,
ls_desc,
Ftree.FIND_NEXT,
Ftree.NODE_LABEL,
Ftree.ROOT_NODE,
Ftree.ROOT_NODE);

If find_node < 0 then
return;
End If;

delete_node := Ftree.Find_Tree_Node(htree,
ls_desc,
Ftree.FIND_NEXT,
Ftree.NODE_LABEL,
Ftree.ROOT_NODE,
Ftree.ROOT_NODE);

Ftree.Delete_Tree_Node(htree, delete_node);

messageparameter.p_prev_node);
current_node:= arameter.p_prev_node ;



-- find_node := arameter.p_prev_node -1;

message(find_node);

-------------------------------------------

go_block('db_budgets_list');
-- fp_populate.fp_populate_tree('db_budgets_list.budgets');
end if;
end if;
end if;

exception
when others then
message(sqlerrm);

end;