PACKAGE BODY: APPS.AMS_PRICE_LIST_REPORT_PVT

Source

1 PACKAGE BODY ams_price_list_report_pvt AS
2 /* $Header: amsqprlb.pls 115.1 2001/09/12 16:15:20 pkm ship      $*/
3 
4 
5 g_total        NUMBER := 1;
6 g_sections_tbl section_tbl_type;
7 
8 PROCEDURE get_section_heir( p_section_id NUMBER,px_section_tbl IN OUT SECTION_TBL_TYPE,p_mini_site_id IN NUMBER)
9 IS
10  CURSOR get_sections IS
11  SELECT parent_section_id,child_section_id,sort_order
12    FROM ibe_dsp_msite_sct_sects
13   WHERE parent_section_id = p_section_id
14     AND mini_site_id = p_mini_site_id
15    ORDER BY sort_order ;
16  l_section_rec get_sections%ROWTYPE;
17 BEGIN
18   OPEN get_sections;
19   LOOP
20   FETCH get_sections INTO l_section_rec;
21   IF get_sections%notfound THEN
22     px_section_tbl(g_total-1).leaf := 'Y';
23     CLOSE get_sections;
24     EXIT;
25   ELSE
26     px_section_tbl(g_total).child_section_id := l_section_rec.child_section_id;
27     px_section_tbl(g_total).parent_section_id:= l_section_rec.parent_section_id;
28     px_section_tbl(g_total).sort_order := l_section_rec.sort_order;
29     px_section_tbl(g_total).leaf := 'N';
30     g_total := g_total + 1;
31     get_section_heir(l_section_rec.child_section_id,px_section_tbl,p_mini_site_id);
32    END IF;
33  END LOOP;
34 END;
35 
36 
37 PROCEDURE get_section_heirarchy( p_section_id number , px_section_tbl  OUT section_tbl_type) IS
38   CURSOR cur_get_master_mini_site_id IS
39   SELECT msite_id
40     FROM ibe_msites_b
41    WHERE master_msite_flag = 'Y';
42   l_mini_site_id  NUMBER;
43 BEGIN
44   OPEN cur_get_master_mini_site_id;
45  FETCH cur_get_master_mini_site_id INTO l_mini_site_id;
46  CLOSE cur_get_master_mini_site_id;
47  get_section_heir(p_section_id,px_section_tbl,l_mini_site_id);
48 END;
49 END;