240: --
241: cursor c1 is
242: select a.type
243: from per_gen_hierarchy a,
244: per_gen_hierarchy_versions b
245: where a.hierarchy_id = b.hierarchy_id
246: and b.hierarchy_version_id = p_hierarchy_version_id;
247: --
248: begin
300: l_c1 c1%rowtype;
301: --
302: cursor c2 is
303: select *
304: from per_gen_hierarchy_versions
305: where hierarchy_id = p_hierarchy_id;
306: --
307: l_c2 c2%rowtype;
308: --
654: l_object_version_number number;
655: --
656: cursor c1 is
657: select *
658: from per_gen_hierarchy_versions
659: where hierarchy_version_id = p_hierarchy_version_id;
660: --
661: l_c1 c1%rowtype;
662: --