PACKAGE BODY: APPS.HR_FORM_WINDOW_INFO

Source

1 PACKAGE BODY hr_form_window_info
2 /* $Header: hrfwninf.pkb 120.0 2005/05/31 00:33:26 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_windows                 t_form_windows := t_form_windows();
10 --
11 -- -----------------------------------------------------------------------------
12 -- |------------------------------< form_windows >-----------------------------|
13 -- -----------------------------------------------------------------------------
14 FUNCTION form_windows
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_windows
19 IS
20   --
21   CURSOR csr_form_windows
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 fwn.form_window_id
27           ,fwn.window_name
28           ,fwn.height
29           ,fwn.title
30           ,fwn.width
31           ,fwn.x_position
32           ,fwn.y_position
33           ,fwn.information_category
34           ,fwn.information1
35           ,fwn.information2
36           ,fwn.information3
37           ,fwn.information4
38           ,fwn.information5
39           ,fwn.information6
40           ,fwn.information7
41           ,fwn.information8
42           ,fwn.information9
43           ,fwn.information10
44           ,fwn.information11
45           ,fwn.information12
46           ,fwn.information13
47           ,fwn.information14
48           ,fwn.information15
49           ,fwn.information16
50           ,fwn.information17
51           ,fwn.information18
52           ,fwn.information19
53           ,fwn.information20
54           ,fwn.information21
55           ,fwn.information22
56           ,fwn.information23
57           ,fwn.information24
58           ,fwn.information25
59           ,fwn.information26
60           ,fwn.information27
61           ,fwn.information28
62           ,fwn.information29
63           ,fwn.information30
64       FROM hr_form_windows fwn
65      WHERE fwn.application_id = p_application_id
66        AND fwn.form_id = p_form_id;
67   --
68   l_form_windows                 t_form_windows := t_form_windows();
69 --
70 BEGIN
71   --
72   IF (   p_application_id = nvl(g_application_id,hr_api.g_number)
73      AND p_form_id = nvl(g_form_id,hr_api.g_number))
74   THEN
75     --
76     -- The form windows have already been found with a previous call to this
77     -- function. Just return the global variable.
78     --
79     l_form_windows := g_form_windows;
80   --
81   ELSE
82     --
83     -- The identifiers are different to the previous call to this function, or
84     -- this is the first call to this function.
85     --
86     FOR l_form_window IN csr_form_windows
87       (p_application_id               => p_application_id
88       ,p_form_id                      => p_form_id
89       )
90     LOOP
91       l_form_windows.EXTEND;
92       l_form_windows(l_form_windows.LAST) := l_form_window;
93     END LOOP;
94     --
95     -- Set the global variables so the values are available to the next call to
96     -- the function.
97     --
98     g_application_id := p_application_id;
99     g_form_id := p_form_id;
100     g_form_windows := l_form_windows;
101   --
102   END IF;
103   --
104   RETURN(l_form_windows);
105 --
106 END form_windows;
107 --
108 END hr_form_window_info;