1 PACKAGE BODY AMS_OP_UTILITY_PVT as
2 /* $Header: amsoputb.pls 120.0 2005/05/31 21:20:39 appldev noship $ */
3
4 ------------------------------------------------------------------------------
5 -- HISTORY
6 -- 05/08/2001 rmajumda Created
7 --
8 ------------------------------------------------------------------------------
9
10
11 ---------------------------------------------------------------------
12 -- FUNCTION
13 -- get_root_section_level
14 --
15 -- PURPOSE
16 -- Returns the level number of the root section with respect to
17 -- the master mini site. The root section is derived from the
18 -- given mini site.
19 --
20 -- NOTES
21 -- 1. It will return the level_number of the root section
22 -- 2. It will return 0 if no data found
23 ---------------------------------------------------------------------
24 FUNCTION get_root_section_level(
25 p_mini_site_id IN Number
26 )
27 RETURN Number
28
29 IS
30 cursor c_level_number
31 is
32 select mss.level_number
33 from ibe_dsp_msite_sct_sects mss
34 where mss.child_section_id=
35 (select msite_root_section_id
36 from ibe_msites_b
37 where msite_id=p_mini_site_id)
38 and mss.mini_site_id =
39 (select msite_id
40 from ibe_msites_b
41 where master_msite_flag='Y');
42
43 l_level_number number;
44 BEGIN
45 open c_level_number;
46 fetch c_level_number into l_level_number;
47 close c_level_number;
48
49 if (l_level_number is null) then
50 return 0;
51 end if;
52
53 RETURN l_level_number ;
54
55 EXCEPTION
56 WHEN others THEN
57 raise;
58 END;
59
60 END AMS_OP_UTILITY_PVT;