[Home] [Help]
PACKAGE BODY: APPS.BEN_ELIG_OBJ_ELIG_PROFL_SWI
Source
1 PACKAGE BODY BEN_ELIG_OBJ_ELIG_PROFL_SWI AS
2 /* $Header: bebepswi.pkb 120.0 2005/05/28 00:39:39 appldev noship $ */
3
4 --
5 -- Package Variables
6 --
7 g_package varchar2(33) := ' ben_ELIG_OBJ_ELIG_PROFL_swi.';
8 --
9
10 procedure create_ELIG_OBJ_ELIG_PROFL
11 (p_validate in number default hr_api.g_false_num
12 ,p_elig_obj_elig_prfl_id in number
13 ,p_effective_start_date out nocopy date
14 ,p_effective_end_date out nocopy date
15 ,p_business_group_id in number default null
16 ,p_elig_obj_id in number default null
17 ,p_elig_prfl_id in number default null
18 ,p_mndtry_flag in varchar2 default 'N'
19 ,p_bep_attribute_category in varchar2 default null
20 ,p_bep_attribute1 in varchar2 default null
21 ,p_bep_attribute2 in varchar2 default null
22 ,p_bep_attribute3 in varchar2 default null
23 ,p_bep_attribute4 in varchar2 default null
24 ,p_bep_attribute5 in varchar2 default null
25 ,p_bep_attribute6 in varchar2 default null
26 ,p_bep_attribute7 in varchar2 default null
27 ,p_bep_attribute8 in varchar2 default null
28 ,p_bep_attribute9 in varchar2 default null
29 ,p_bep_attribute10 in varchar2 default null
30 ,p_bep_attribute11 in varchar2 default null
31 ,p_bep_attribute12 in varchar2 default null
32 ,p_bep_attribute13 in varchar2 default null
33 ,p_bep_attribute14 in varchar2 default null
34 ,p_bep_attribute15 in varchar2 default null
35 ,p_bep_attribute16 in varchar2 default null
36 ,p_bep_attribute17 in varchar2 default null
37 ,p_bep_attribute18 in varchar2 default null
38 ,p_bep_attribute19 in varchar2 default null
39 ,p_bep_attribute20 in varchar2 default null
40 ,p_object_version_number out nocopy number
41 ,p_effective_date in date
42 ,p_return_status out nocopy varchar2
43 ) is
44 --
45
46 --Variables for API Boolean parameters
47 l_validate boolean;
48
49 -- Declare local variables
50 --
51 l_proc varchar2(72) := g_package||'create_ELIG_OBJ_ELIG_PROFL';
52 l_elig_obj_elig_prfl_id number;
53
54 --
55 begin
56 hr_utility.set_location('Entering:'|| l_proc, 10);
57 --
58 --Convert Constant values into their corresponding boolean value
59 l_validate := hr_api.constant_to_boolean(p_constant_value => p_validate);
60
61 -- Issue a savepoint if operating in validation only mode
62 --
63 savepoint create_ELIG_OBJ_ELIG_PROFL;
64 --
65 --Initialize Multi Message Detection
66 hr_multi_message.enable_message_list;
67
68 hr_utility.set_location(l_proc, 20);
69 --
70 --
71 -- Register Surrogate ID or user key values
72 --
73 ben_bep_ins.set_base_key_value
74 (p_elig_obj_elig_prfl_id => p_elig_obj_elig_prfl_id
75 );
76 --
77 -- Call API
78 ben_elig_obj_elig_profl_api.create_ELIG_OBJ_ELIG_PROFL(
79 p_validate => l_validate
80 ,p_elig_obj_elig_prfl_id => l_elig_obj_elig_prfl_id
81 ,p_effective_start_date => p_effective_start_date
82 ,p_effective_end_date => p_effective_end_date
83 ,p_business_group_id => p_business_group_id
84 ,p_elig_obj_id => p_elig_obj_id
85 ,p_elig_prfl_id => p_elig_prfl_id
86 ,p_mndtry_flag => p_mndtry_flag
87 ,p_bep_attribute_category => p_bep_attribute_category
88 ,p_bep_attribute1 => p_bep_attribute1
89 ,p_bep_attribute2 => p_bep_attribute2
90 ,p_bep_attribute3 => p_bep_attribute3
91 ,p_bep_attribute4 => p_bep_attribute4
92 ,p_bep_attribute5 => p_bep_attribute5
93 ,p_bep_attribute6 => p_bep_attribute6
94 ,p_bep_attribute7 => p_bep_attribute7
95 ,p_bep_attribute8 => p_bep_attribute8
96 ,p_bep_attribute9 => p_bep_attribute9
97 ,p_bep_attribute10 => p_bep_attribute10
98 ,p_bep_attribute11 =>p_bep_attribute11
99 ,p_bep_attribute12 =>p_bep_attribute12
100 ,p_bep_attribute13 =>p_bep_attribute13
101 ,p_bep_attribute14 =>p_bep_attribute14
102 ,p_bep_attribute15 =>p_bep_attribute15
103 ,p_bep_attribute16 =>p_bep_attribute16
104 ,p_bep_attribute17 =>p_bep_attribute17
105 ,p_bep_attribute18 =>p_bep_attribute18
106 ,p_bep_attribute19 =>p_bep_attribute19
107 ,p_bep_attribute20 =>p_bep_attribute20
108 ,p_object_version_number =>p_object_version_number
109 ,p_effective_date =>p_effective_date);
110
111
112
113 exception
114 when hr_multi_message.error_message_exist then
115 --
116 -- Catch the Multiple Message List exception which
117 -- indicates API processing has been aborted because
118 -- at least one message exists in the list.
119 --
120 rollback to create_ELIG_OBJ_ELIG_PROFL;
121 p_return_status := hr_multi_message.get_return_status_disable;
122 hr_utility.set_location('Leaving :' ||l_proc, 30);
123
124 when others then
125 --
126 -- When Multiple Message Detection is enabled catch
127 -- any Application specific or other unexpected
128 -- exceptions. Adding appropriate details to the
129 -- Multiple Message List. Otherwise re-raise the
130 -- error.
131 --
132
133 rollback to create_ELIG_OBJ_ELIG_PROFL;
134 if hr_multi_message.unexpected_error_add(l_proc) then
135 hr_utility.set_location(' Leaving:' || l_proc,40);
136 raise;
137 end if;
138 --RESET In/OUT and OUT parameters
139 p_return_status := hr_multi_message.get_return_status_disable;
140 p_effective_start_date := null;
141 p_effective_end_date := null;
142 hr_utility.set_location('Leaving :' ||l_proc, 50);
143 end create_ELIG_OBJ_ELIG_PROFL;
144
145 -- ----------------------------------------------------------------------------
146 -- |------------------------< update_ELIG_OBJ_ELIG_PROFL >--- ------------------|
147 -- ----------------------------------------------------------------------------
148 --
149 procedure update_ELIG_OBJ_ELIG_PROFL
150 (p_validate in number default hr_api.g_false_num
151 ,p_elig_obj_elig_prfl_id in number
152 ,p_effective_start_date out nocopy date
153 ,p_effective_end_date out nocopy date
154 ,p_business_group_id in number default hr_api.g_number
155 ,p_elig_obj_id in number default hr_api.g_number
156 ,p_elig_prfl_id in number default hr_api.g_number
157 ,p_mndtry_flag in varchar2 default 'N'
158 ,p_bep_attribute_category in varchar2 default hr_api.g_varchar2
159 ,p_bep_attribute1 in varchar2 default hr_api.g_varchar2
160 ,p_bep_attribute2 in varchar2 default hr_api.g_varchar2
161 ,p_bep_attribute3 in varchar2 default hr_api.g_varchar2
162 ,p_bep_attribute4 in varchar2 default hr_api.g_varchar2
163 ,p_bep_attribute5 in varchar2 default hr_api.g_varchar2
164 ,p_bep_attribute6 in varchar2 default hr_api.g_varchar2
165 ,p_bep_attribute7 in varchar2 default hr_api.g_varchar2
166 ,p_bep_attribute8 in varchar2 default hr_api.g_varchar2
167 ,p_bep_attribute9 in varchar2 default hr_api.g_varchar2
168 ,p_bep_attribute10 in varchar2 default hr_api.g_varchar2
169 ,p_bep_attribute11 in varchar2 default hr_api.g_varchar2
170 ,p_bep_attribute12 in varchar2 default hr_api.g_varchar2
171 ,p_bep_attribute13 in varchar2 default hr_api.g_varchar2
172 ,p_bep_attribute14 in varchar2 default hr_api.g_varchar2
173 ,p_bep_attribute15 in varchar2 default hr_api.g_varchar2
174 ,p_bep_attribute16 in varchar2 default hr_api.g_varchar2
175 ,p_bep_attribute17 in varchar2 default hr_api.g_varchar2
176 ,p_bep_attribute18 in varchar2 default hr_api.g_varchar2
177 ,p_bep_attribute19 in varchar2 default hr_api.g_varchar2
178 ,p_bep_attribute20 in varchar2 default hr_api.g_varchar2
179 ,p_object_version_number in out nocopy number
180 ,p_effective_date in date
181 ,p_datetrack_mode in varchar2
182 ,p_return_status out nocopy varchar2
183 ) is
184 --
185
186 --Variables for API Boolean parameters
187 l_validate boolean;
188 --Variables for IN/OUT Parameters
189 l_object_version_number number;
190 -- Declare local variables
191 --
192 l_proc varchar2(72) := g_package||'update_ELIG_OBJ_ELIG_PROFL';
193
194 --
195 begin
196 hr_utility.set_location('Entering:'|| l_proc, 10);
197 --
198 --Convert Constant values into their corresponding boolean value
199 l_validate := hr_api.constant_to_boolean(p_constant_value => p_validate);
200 -- Issue a savepoint if operating in validation only mode
201 --
202 savepoint update_ELIG_OBJ_ELIG_PROFL;
203
204 --Remember IN/OUT parameters' IN values
205 l_object_version_number := p_object_version_number;
206 --
207 --Initialize Multi Message Detection
208 hr_multi_message.enable_message_list;
209
210 hr_utility.set_location(l_proc, 20);
211 ben_elig_obj_elig_profl_api.update_ELIG_OBJ_ELIG_PROFL
212 (p_validate => l_validate
213 ,p_elig_obj_elig_prfl_id => p_elig_obj_elig_prfl_id
214 ,p_effective_start_date => p_effective_start_date
215 ,p_effective_end_date => p_effective_end_date
216 ,p_business_group_id => p_business_group_id
217 ,p_elig_obj_id => p_elig_obj_id
218 ,p_elig_prfl_id => p_elig_prfl_id
219 ,p_mndtry_flag => p_mndtry_flag
220 ,p_bep_attribute_category => p_bep_attribute_category
221 ,p_bep_attribute1 => p_bep_attribute1
222 ,p_bep_attribute2 => p_bep_attribute2
223 ,p_bep_attribute3 => p_bep_attribute3
224 ,p_bep_attribute4 => p_bep_attribute4
225 ,p_bep_attribute5 => p_bep_attribute5
226 ,p_bep_attribute6 => p_bep_attribute6
227 ,p_bep_attribute7 => p_bep_attribute7
228 ,p_bep_attribute8 =>p_bep_attribute8
229 ,p_bep_attribute9 =>p_bep_attribute9
230 ,p_bep_attribute10 =>p_bep_attribute10
231 ,p_bep_attribute11 =>p_bep_attribute11
232 ,p_bep_attribute12 =>p_bep_attribute12
233 ,p_bep_attribute13 =>p_bep_attribute13
234 ,p_bep_attribute14 =>p_bep_attribute14
235 ,p_bep_attribute15 =>p_bep_attribute15
236 ,p_bep_attribute16 =>p_bep_attribute16
237 ,p_bep_attribute17 =>p_bep_attribute17
238 ,p_bep_attribute18 =>p_bep_attribute18
239 ,p_bep_attribute19 =>p_bep_attribute19
240 ,p_bep_attribute20 =>p_bep_attribute20
241 ,p_object_version_number => p_object_version_number
242 ,p_effective_date => p_effective_date
243 ,p_datetrack_mode =>p_datetrack_mode);
244
245 exception
246 when hr_multi_message.error_message_exist then
247 --
248 -- Catch the Multiple Message List exception which
249 -- indicates API processing has been aborted because
250 -- at least one message exists in the list.
251 --
252 rollback to create_ELIG_OBJ_ELIG_PROFL;
253 p_return_status := hr_multi_message.get_return_status_disable;
254 hr_utility.set_location('Leaving :' ||l_proc, 30);
255
256 when others then
257 --
258 -- When Multiple Message Detection is enabled catch
259 -- any Application specific or other unexpected
260 -- exceptions. Adding appropriate details to the
261 -- Multiple Message List. Otherwise re-raise the
262 -- error.
263 --
264 rollback to create_ELIG_OBJ_ELIG_PROFL;
265
266 if hr_multi_message.unexpected_error_add(l_proc) then
267 hr_utility.set_location(' Leaving:' || l_proc,40);
268 raise;
269 end if;
270 --RESET In/OUT and OUT parameters
271 p_return_status := hr_multi_message.get_return_status_disable;
272 p_effective_start_date := null;
273 p_effective_end_date := null;
274
275 hr_utility.set_location('Leaving :' ||l_proc, 50);
276 end update_ELIG_OBJ_ELIG_PROFL;
277
278 -- ----------------------------------------------------------------------------
279 -- |------------------------< delete_ELIG_OBJ_ELIG_PROFL >----------------------|
280 -- ----------------------------------------------------------------------------
281 --
282 procedure delete_ELIG_OBJ_ELIG_PROFL
283 (p_validate in number default hr_api.g_false_num
284 ,p_elig_obj_elig_prfl_id in number
285 ,p_effective_start_date out nocopy date
286 ,p_effective_end_date out nocopy date
287 ,p_object_version_number in out nocopy number
288 ,p_effective_date in date
289 ,p_datetrack_mode in varchar2
290 ,p_return_status out nocopy varchar2
291 ) is
292 --
293
294 --Variables for API Boolean parameters
295 l_validate boolean;
296
297 --Variables for IN/OUT Parameters
298 l_object_version_number number;
299 l_effective_date date;
300
301 -- Declare local variables
302 --
303 l_proc varchar2(72) := g_package||'update_ELIG_OBJ_ELIG_PROFL';
304 --
305 begin
306 hr_utility.set_location('Entering:'|| l_proc, 10);
307 --
308 --Convert Constant values into their corresponding boolean value
309 l_validate := hr_api.constant_to_boolean(p_constant_value => p_validate);
310 l_effective_date := trunc(p_effective_date);
311
312 -- Issue a savepoint if operating in validation only mode
313 --
314 savepoint delete_ELIG_OBJ_ELIG_PROFL;
315
316 hr_utility.set_location(l_proc, 20);
317
318 --Remember IN OUT parameter IN values
319 l_object_version_number := p_object_version_number;
320
321 --Initialize Multi Message Detection
322 hr_multi_message.enable_message_list;
323
324 ben_elig_obj_elig_profl_api.delete_ELIG_OBJ_ELIG_PROFL
325 (p_validate => l_validate
326 ,p_elig_obj_elig_prfl_id => p_elig_obj_elig_prfl_id
327 ,p_effective_start_date => p_effective_start_date
328 ,p_effective_end_date => p_effective_end_date
329 ,p_object_version_number => p_object_version_number
330 ,p_effective_date => l_effective_date
331 ,p_datetrack_mode => p_datetrack_mode);
332
333 exception
334 when hr_multi_message.error_message_exist then
335 --
336 -- Catch the Multiple Message List exception which
337 -- indicates API processing has been aborted because
338 -- at least one message exists in the list.
339 rollback to delete_ELIG_OBJ_ELIG_PROFL;
340 p_return_status := hr_multi_message.get_return_status_disable;
341 hr_utility.set_location('Leaving :' ||l_proc, 30);
342
343 when others then
344 --
345 -- When Multiple Message Detection is enabled catch
346 -- any Application specific or other unexpected
347 -- exceptions. Adding appropriate details to the
348 -- Multiple Message List. Otherwise re-raise the
349 -- error.
350 --
351
352 rollback to delete_ELIG_OBJ_ELIG_PROFL;
353 if hr_multi_message.unexpected_error_add(l_proc) then
354 hr_utility.set_location(' Leaving:' || l_proc,40);
355 raise;
356 end if;
357 --RESET In/OUT and OUT parameters
358 p_return_status := hr_multi_message.get_return_status_disable;
359 p_effective_start_date := null;
360 p_effective_end_date := null;
361
362 hr_utility.set_location('Leaving :' ||l_proc, 50);
363
364 end delete_ELIG_OBJ_ELIG_PROFL;
365
366 END;