[Home] [Help]
PACKAGE BODY: APPS.HR_FORM_TAB_PAGE_INFO
Source
1 PACKAGE BODY hr_form_tab_page_info
2 /* $Header: hrftpinf.pkb 120.0 2005/05/31 00:30:35 appldev noship $ */
3 AS
4 --
5 -- Global variables
6 --
7 g_application_id fnd_application.application_id%TYPE;
8 g_form_id fnd_form.form_id%TYPE;
9 g_form_tab_pages t_form_tab_pages := t_form_tab_pages();
10 --
11 -- -----------------------------------------------------------------------------
12 -- |-----------------------------< form_tab_pages >----------------------------|
13 -- -----------------------------------------------------------------------------
14 FUNCTION form_tab_pages
15 (p_application_id IN fnd_application.application_id%TYPE
16 ,p_form_id IN fnd_form.form_id%TYPE
17 )
18 RETURN t_form_tab_pages
19 IS
20 --
21 CURSOR csr_form_tab_pages
22 (p_application_id IN fnd_application.application_id%TYPE
23 ,p_form_id IN fnd_form.form_id%TYPE
24 )
25 IS
26 SELECT ftp.form_tab_page_id
27 ,ftp.tab_page_name
28 ,fcn.canvas_name
29 ,ftp.display_order
30 ,tpt.label
31 ,tpp.navigation_direction
32 ,tpp.visible
33 ,tpp.information_category
34 ,tpp.information1
35 ,tpp.information2
36 ,tpp.information3
37 ,tpp.information4
38 ,tpp.information5
39 ,tpp.information6
40 ,tpp.information7
41 ,tpp.information8
42 ,tpp.information9
43 ,tpp.information10
44 ,tpp.information11
45 ,tpp.information12
46 ,tpp.information13
47 ,tpp.information14
48 ,tpp.information15
49 ,tpp.information16
50 ,tpp.information17
51 ,tpp.information18
52 ,tpp.information19
53 ,tpp.information20
54 ,tpp.information21
55 ,tpp.information22
56 ,tpp.information23
57 ,tpp.information24
58 ,tpp.information25
59 ,tpp.information26
60 ,tpp.information27
61 ,tpp.information28
62 ,tpp.information29
63 ,tpp.information30
64 FROM hr_tab_page_properties_tl tpt
65 ,hr_tab_page_properties_b tpp
66 ,hr_form_tab_pages_b ftp
67 ,hr_form_canvases_b fcn
68 ,hr_form_windows_b fwn
69 WHERE tpt.language = userenv('LANG')
70 AND tpt.tab_page_property_id = tpp.tab_page_property_id
71 AND tpp.form_tab_page_id = ftp.form_tab_page_id
72 AND ftp.form_canvas_id = fcn.form_canvas_id
73 AND fcn.form_window_id = fwn.form_window_id
74 AND fwn.application_id = p_application_id
75 AND fwn.form_id = p_form_id;
76 --
77 l_form_tab_pages t_form_tab_pages := t_form_tab_pages();
78 --
79 BEGIN
80 --
81 IF ( p_application_id = nvl(g_application_id,hr_api.g_number)
82 AND p_form_id = nvl(g_form_id,hr_api.g_number))
83 THEN
84 --
85 -- The form tab_pages have already been found with a previous call to this
86 -- function. Just return the global variable.
87 --
88 l_form_tab_pages := g_form_tab_pages;
89 --
90 ELSE
91 --
92 -- The identifiers are different to the previous call to this function, or
93 -- this is the first call to this function.
94 --
95 FOR l_form_tab_page IN csr_form_tab_pages
96 (p_application_id => p_application_id
97 ,p_form_id => p_form_id
98 )
99 LOOP
100 l_form_tab_pages.EXTEND;
101 l_form_tab_pages(l_form_tab_pages.LAST) := l_form_tab_page;
102 END LOOP;
103 --
104 -- Set the global variables so the values are available to the next call to
105 -- the function.
106 --
107 g_application_id := p_application_id;
108 g_form_id := p_form_id;
109 g_form_tab_pages := l_form_tab_pages;
110 --
111 END IF;
112 --
113 RETURN(l_form_tab_pages);
114 --
115 END form_tab_pages;
116 --
117 END hr_form_tab_page_info;