[Home] [Help]
PACKAGE BODY: APPS.HR_FORM_DATA_GROUP_ITEMS_API
Source
1 Package Body hr_form_data_group_items_api as
2 /* $Header: hrfgiapi.pkb 115.2 2002/12/08 05:12:25 hjonnala noship $ */
3 --
4 -- Package Variables
5 --
6 g_package varchar2(33) := ' hr_form_data_group_items_api.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |---------------------< create_form_data_group_item >----------------------|
10 -- ----------------------------------------------------------------------------
11 --
12 procedure create_form_data_group_item
13 (p_validate in boolean default false
14 ,p_effective_date in date
15 ,p_form_item_id in number
16 ,p_form_data_group_id in number
17 ,p_form_data_group_item_id out nocopy number
18 ,p_object_version_number out nocopy number
19 ) is
20 --
21 -- Declare cursors and local variables
22 --
23
24 l_proc varchar2(72) := g_package||'create_form_data_group_item';
25 l_form_data_group_item_id number;
26 l_object_version_number number;
27 begin
28 hr_utility.set_location('Entering:'|| l_proc, 10);
29 --
30 -- Issue a savepoint
31 --
32 savepoint create_form_data_group_item;
33 --
34 -- Truncate the time portion from all IN date parameters
35 --
36 -- p_effective_date := TRUNC(p_effective_date);
37 --
38 -- Call Before Process User Hook
39 --
40 begin
41 hr_form_data_group_items_bk1.create_form_data_group_item_b
42 (p_effective_date => TRUNC(p_effective_date)
43 ,p_form_item_id => p_form_item_id
44 ,p_form_data_group_id => p_form_data_group_id
45 );
46 exception
47 when hr_api.cannot_find_prog_unit then
48 hr_api.cannot_find_prog_unit_error
49 (p_module_name => 'create_form_data_group_item'
50 ,p_hook_type => 'BP'
51 );
52 end;
53
54 --
55 -- Process Logic
56 --
57 hr_utility.set_location('At:'|| l_proc, 15);
58
59 hr_fgi_ins.ins
60 (p_form_item_id => p_form_item_id
61 ,p_form_data_group_id => p_form_data_group_id
62 ,p_form_data_group_item_id => l_form_data_group_item_id
63 ,p_object_version_number => l_object_version_number);
64
65 --
66 -- Call After Process User Hook
67 --
68 hr_utility.set_location('At:'|| l_proc, 20);
69
70 begin
71 hr_form_data_group_items_bk1.create_form_data_group_item_a
72 (p_effective_date => TRUNC(p_effective_date)
73 ,p_form_item_id => p_form_item_id
74 ,p_form_data_group_id => p_form_data_group_id
75 ,p_form_data_group_item_id => l_form_data_group_item_id
76 ,p_object_version_number => l_object_version_number
77 );
78 exception
79 when hr_api.cannot_find_prog_unit then
80 hr_api.cannot_find_prog_unit_error
81 (p_module_name => 'create_form_data_group_item'
82 ,p_hook_type => 'AP'
83 );
84 end;
85 --
86 -- When in validation only mode raise the Validate_Enabled exception
87 --
88 hr_utility.set_location('At:'|| l_proc, 25);
89
90 if p_validate then
91 raise hr_api.validate_enabled;
92 end if;
93 --
94 -- Set all output arguments
95 --
96 p_form_data_group_item_id := l_form_data_group_item_id;
97 p_object_version_number := l_object_version_number;
98 --
99 hr_utility.set_location(' Leaving:'||l_proc, 70);
100 exception
101 when hr_api.validate_enabled then
102 --
103 -- As the Validate_Enabled exception has been raised
104 -- we must rollback to the savepoint
105 --
106 rollback to create_form_data_group_item;
107 --
108 -- Only set output warning arguments
109 -- (Any key or derived arguments must be set to null
110 -- when validation only mode is being used.)
111 --
112 p_form_data_group_item_id := null;
113 p_object_version_number := null;
114 hr_utility.set_location(' Leaving:'||l_proc, 80);
115 when others then
116 --
117 -- A validation or unexpected error has occured
118 --
119 rollback to create_form_data_group_item;
120 -- Reset out parameters.
121 p_form_data_group_item_id := null;
122 p_object_version_number := null;
123 hr_utility.set_location(' Leaving:'||l_proc, 90);
124 raise;
125 end create_form_data_group_item;
126 --
127 -- ----------------------------------------------------------------------------
128 -- |---------------------< delete_form_data_group_item >----------------------|
129 -- ----------------------------------------------------------------------------
130 --
131 procedure delete_form_data_group_item
132 (p_validate in boolean default false
133 ,p_form_data_group_item_id in number
134 ,p_object_version_number in number
135 ) is
136 --
137 -- Declare cursors and local variables
138 --
139
140 l_proc varchar2(72) := g_package||'delete_form_data_group_item';
141 begin
142 hr_utility.set_location('Entering:'|| l_proc, 10);
143 --
144 -- Issue a savepoint
145 --
146 savepoint delete_form_data_group_item;
147
148 --
149 -- Call Before Process User Hook
150 --
151 begin
152 hr_form_data_group_items_bk2.delete_form_data_group_item_b
153 (p_form_data_group_item_id => p_form_data_group_item_id
154 ,p_object_version_number => p_object_version_number);
155
156 exception
157 when hr_api.cannot_find_prog_unit then
158 hr_api.cannot_find_prog_unit_error
159 (p_module_name => 'delete_form_data_group_item'
160 ,p_hook_type => 'BP'
161 );
162 end;
163
164 --
165 -- Process Logic
166 --
167 hr_utility.set_location('At:'|| l_proc, 15);
168
169 hr_fgi_del.del( p_form_data_group_item_id => p_form_data_group_item_id
170 ,p_object_version_number => p_object_version_number);
171
172 hr_utility.set_location('At:'|| l_proc, 20);
173
174 --
175 -- Call After Process User Hook
176 --
177 begin
178 hr_form_data_group_items_bk2.delete_form_data_group_item_a
179 (p_form_data_group_item_id => p_form_data_group_item_id
180 ,p_object_version_number => p_object_version_number);
181 exception
182 when hr_api.cannot_find_prog_unit then
183 hr_api.cannot_find_prog_unit_error
184 (p_module_name => 'delete_form_data_group_item'
185 ,p_hook_type => 'AP'
186 );
187 end;
188 --
189 -- When in validation only mode raise the Validate_Enabled exception
190 --
191 hr_utility.set_location('At:'|| l_proc, 25);
192
193 if p_validate then
194 raise hr_api.validate_enabled;
195 end if;
196 --
197 hr_utility.set_location(' Leaving:'||l_proc, 70);
198 exception
199 when hr_api.validate_enabled then
200 --
201 -- As the Validate_Enabled exception has been raised
202 -- we must rollback to the savepoint
203 --
204 rollback to delete_form_data_group_item;
205 --
206 -- Only set output warning arguments
207 -- (Any key or derived arguments must be set to null
208 -- when validation only mode is being used.)
209 --
210 hr_utility.set_location(' Leaving:'||l_proc, 80);
211 when others then
212 --
213 -- A validation or unexpected error has occured
214 --
215 rollback to delete_form_data_group_item;
216 hr_utility.set_location(' Leaving:'||l_proc, 90);
217 raise;
218 end delete_form_data_group_item;
219 --
220 end hr_form_data_group_items_api;