مشكلة في Callالشاشة من الـtree

declare
v_htree item;
node_value varchar2(100);
parent_node FTREE.NODE;

CURSOR C_FORM_REP IS
SELECT FORM_REPORT
FROM SEC_FORMS
WHERE FORM_PHYSICAL_NAME = node_value;

V_FORM_REP NUMBER;
begin
message(V_FORM_REP);
message(V_FORM_REP);
message(PARENT_NODE);
message(PARENT_NODE);
v_htree := Find_Item('blk_tree.tree');
node_value := Ftree.Get_Tree_Node_Property(v_htree,:system.trigger_node,ftree.node_value);

parent_node := Ftree.Get_Tree_Node_Parent(v_htree, :SYSTEM.TRIGGER_NODE);

OPEN C_FORM_REP;
FETCH C_FORM_REP INTO V_FORM_REP;
message(node_value);
message(node_value);
IF V_FORM_REP = 1 THEN
IF PARENT_NODE<>0 THEN
--call_form(node_value,no_hide);
call_FORM('E:\ACC_AHMED\'||node_value||'.FMX', switch_menu => do_replace);
call_form(node_value,no_hide);
end if;
ELSIF V_FORM_REP = 1 THEN
DECLARE
pl_id PARAMLIST;
BEGIN
pl_id:=GET_PARAMETER_LIST('tempdata');
IF NOT ID_NULL(pl_id) THEN
DESTROY_PARAMETER_LIST(pl_id);
END IF;
pl_id:=CREATE_PARAMETER_LIST('tempdata');
ADD_PARAMETER(pl_id,'PARAMFORM',TEXT_PARAMETER,'no');
RUN_PRODUCT(REPORTS,node_value,SYNCHRONOUS,RUNTIME,FILESYSTEM,pl_id,NULL);
END;
END IF;
CLOSE C_FORM_REP;
end;

_________call_____________tree.doc

_________call_____________tree.doc