829: end if;
830:
831: begin
832: -- Search tree for a reference
833: rootid := Wf_Process_Activity.RootInstanceId(item.item_type,
834: item.item_key, item.root_activity);
835: if (Wf_Process_Activity.IsChild(rootid, c_item_type,
836: c_name, item.begin_date)) then
837: refflag := TRUE;
831: begin
832: -- Search tree for a reference
833: rootid := Wf_Process_Activity.RootInstanceId(item.item_type,
834: item.item_key, item.root_activity);
835: if (Wf_Process_Activity.IsChild(rootid, c_item_type,
836: c_name, item.begin_date)) then
837: refflag := TRUE;
838: exit rootloop;
839: end if;