[Home] [Help]
1578: end if;
1579: end loop;
1580: end;
1581:
1582: procedure lookuphelper(fid raw,path in bism_lookup_info_in_50_a,lookup_output out nocopy bism_lookup_info_out_50_a,myid raw)
1583: is
1584: i integer := 1; -- the top level frame initializes it to one
1585: begin
1586: lookup_output := bism_lookup_info_out_50_a();
1582: procedure lookuphelper(fid raw,path in bism_lookup_info_in_50_a,lookup_output out nocopy bism_lookup_info_out_50_a,myid raw)
1583: is
1584: i integer := 1; -- the top level frame initializes it to one
1585: begin
1586: lookup_output := bism_lookup_info_out_50_a();
1587: lookup(fid,path,lookup_output,i, myid);
1588: ----- COMMENTED CODE COMMENTED CODE COMMENTED CODE -------
1589: -- the foll code has been commented because returning the object
1590: -- from here as ref cursor is not performing well
1604: begin
1605: lookup(fid,path,objname,objid,typeid,myid,startpos);
1606: end;
1607:
1608: procedure lookup(fid raw,path bism_lookup_info_in_50_a,lookup_output in out nocopy bism_lookup_info_out_50_a,idx in out nocopy integer,myid raw)
1609: is
1610: oid bism_objects.object_id%type;
1611: typeid bism_objects.object_type_id%type;
1612: oname bism_objects.object_name%type;
1620: select object_id,object_type_id,object_name,user_visible into oid,typeid,oname,visible from bism_objects where folder_id = fid and object_name = path(idx).objname and user_visible = 'Y';
1621: ret := bism_core.check_lookup_access(oid,typeid,visible,myid);
1622: if ret = 'y' then
1623: lookup_output.extend();
1624: lookup_output(lookup_output.count) := bism_lookup_info_out(oname,oid,typeid);
1625: idx := idx + 1;
1626: lookup(oid,path,lookup_output,idx,myid);
1627: end if;
1628: exception