[Home] [Help]
PACKAGE BODY: APPS.PER_RI_CONFIG_INFORMATION_SWI
Source
1 Package Body per_ri_config_information_swi As
2 /* $Header: pecniswi.pkb 120.0 2005/05/31 06:50 appldev noship $ */
3 --
4 -- Package variables
5 --
6 g_package varchar2(33) := 'per_ri_config_information_swi.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |-----------------------< create_config_information >----------------------|
10 -- ----------------------------------------------------------------------------
11 PROCEDURE create_config_information
12 (p_validate in number default hr_api.g_false_num
13 ,p_configuration_code in varchar2
14 ,p_config_information_category in varchar2
15 ,p_config_sequence in number
16 ,p_config_information1 in varchar2 default null
17 ,p_config_information2 in varchar2 default null
18 ,p_config_information3 in varchar2 default null
19 ,p_config_information4 in varchar2 default null
20 ,p_config_information5 in varchar2 default null
21 ,p_config_information6 in varchar2 default null
22 ,p_config_information7 in varchar2 default null
23 ,p_config_information8 in varchar2 default null
24 ,p_config_information9 in varchar2 default null
25 ,p_config_information10 in varchar2 default null
26 ,p_config_information11 in varchar2 default null
27 ,p_config_information12 in varchar2 default null
28 ,p_config_information13 in varchar2 default null
29 ,p_config_information14 in varchar2 default null
30 ,p_config_information15 in varchar2 default null
31 ,p_config_information16 in varchar2 default null
32 ,p_config_information17 in varchar2 default null
33 ,p_config_information18 in varchar2 default null
34 ,p_config_information19 in varchar2 default null
35 ,p_config_information20 in varchar2 default null
36 ,p_config_information21 in varchar2 default null
37 ,p_config_information22 in varchar2 default null
38 ,p_config_information23 in varchar2 default null
39 ,p_config_information24 in varchar2 default null
40 ,p_config_information25 in varchar2 default null
41 ,p_config_information26 in varchar2 default null
42 ,p_config_information27 in varchar2 default null
43 ,p_config_information28 in varchar2 default null
44 ,p_config_information29 in varchar2 default null
45 ,p_config_information30 in varchar2 default null
46 ,p_language_code in varchar2 default null
47 ,p_effective_date in date
48 ,p_object_version_number out nocopy number
49 ,p_config_information_id out nocopy number
50 ,p_return_status out nocopy varchar2
51 ) is
52 --
53 -- Variables for API Boolean parameters
54 l_validate boolean;
55 --
56 -- Variables for IN/OUT parameters
57 --
58 -- Other variables
59 l_proc varchar2(72) := g_package ||'create_config_information';
60 Begin
61 hr_utility.set_location(' Entering:' || l_proc,10);
62 --
63 -- Issue a savepoint
64 --
65 savepoint create_config_information_swi;
66 --
67 -- Initialise Multiple Message Detection
68 --
69 hr_multi_message.enable_message_list;
70 --
71 -- Remember IN OUT parameter IN values
72 --
73 --
74 -- Convert constant values to their corresponding boolean value
75 --
76 l_validate :=
77 hr_api.constant_to_boolean
78 (p_constant_value => p_validate);
79 --
80 -- Register Surrogate ID or user key values
81 --
82 --
83 -- Call API
84 --
85 per_ri_config_information_api.create_config_information
86 (p_validate => l_validate
87 ,p_configuration_code => p_configuration_code
88 ,p_config_information_category => p_config_information_category
89 ,p_config_sequence => p_config_sequence
90 ,p_config_information1 => p_config_information1
91 ,p_config_information2 => p_config_information2
92 ,p_config_information3 => p_config_information3
93 ,p_config_information4 => p_config_information4
94 ,p_config_information5 => p_config_information5
95 ,p_config_information6 => p_config_information6
96 ,p_config_information7 => p_config_information7
97 ,p_config_information8 => p_config_information8
98 ,p_config_information9 => p_config_information9
99 ,p_config_information10 => p_config_information10
100 ,p_config_information11 => p_config_information11
101 ,p_config_information12 => p_config_information12
102 ,p_config_information13 => p_config_information13
103 ,p_config_information14 => p_config_information14
104 ,p_config_information15 => p_config_information15
105 ,p_config_information16 => p_config_information16
106 ,p_config_information17 => p_config_information17
107 ,p_config_information18 => p_config_information18
108 ,p_config_information19 => p_config_information19
109 ,p_config_information20 => p_config_information20
110 ,p_config_information21 => p_config_information21
111 ,p_config_information22 => p_config_information22
112 ,p_config_information23 => p_config_information23
113 ,p_config_information24 => p_config_information24
114 ,p_config_information25 => p_config_information25
115 ,p_config_information26 => p_config_information26
116 ,p_config_information27 => p_config_information27
117 ,p_config_information28 => p_config_information28
118 ,p_config_information29 => p_config_information29
119 ,p_config_information30 => p_config_information30
120 ,p_language_code => p_language_code
121 ,p_effective_date => p_effective_date
122 ,p_object_version_number => p_object_version_number
123 ,p_config_information_id => p_config_information_id
124 );
125 --
126 -- Convert API warning boolean parameter values to specific
127 -- messages and add them to Multiple Message List
128 --
129 --
130 -- Convert API non-warning boolean parameter values
131 --
132 --
133 -- Derive the API return status value based on whether
134 -- messages of any type exist in the Multiple Message List.
135 -- Also disable Multiple Message Detection.
136 --
137 p_return_status := hr_multi_message.get_return_status_disable;
138 hr_utility.set_location(' Leaving:' || l_proc,20);
139 --
140 exception
141 when hr_multi_message.error_message_exist then
142 --
143 -- Catch the Multiple Message List exception which
144 -- indicates API processing has been aborted because
145 -- at least one message exists in the list.
146 --
147 rollback to create_config_information_swi;
148 --
149 -- Reset IN OUT parameters and set OUT parameters
150 --
151 p_object_version_number := null;
152 p_config_information_id := null;
153 p_return_status := hr_multi_message.get_return_status_disable;
154 hr_utility.set_location(' Leaving:' || l_proc, 30);
155 when others then
156 --
157 -- When Multiple Message Detection is enabled catch
158 -- any Application specific or other unexpected
159 -- exceptions. Adding appropriate details to the
160 -- Multiple Message List. Otherwise re-raise the
161 -- error.
162 --
163 rollback to create_config_information_swi;
164 if hr_multi_message.unexpected_error_add(l_proc) then
165 hr_utility.set_location(' Leaving:' || l_proc,40);
166 raise;
167 end if;
168 --
169 -- Reset IN OUT and set OUT parameters
170 --
171 p_object_version_number := null;
172 p_config_information_id := null;
173 p_return_status := hr_multi_message.get_return_status_disable;
174 hr_utility.set_location(' Leaving:' || l_proc,50);
175 end create_config_information;
176 -- ----------------------------------------------------------------------------
177 -- |-----------------------< update_config_information >----------------------|
178 -- ----------------------------------------------------------------------------
179 PROCEDURE update_config_information
180 (p_validate in number default hr_api.g_false_num
181 ,p_config_information_id in number
182 ,p_configuration_code in varchar2
183 ,p_config_information_category in varchar2
184 ,p_config_sequence in number default hr_api.g_number
185 ,p_config_information1 in varchar2 default hr_api.g_varchar2
186 ,p_config_information2 in varchar2 default hr_api.g_varchar2
187 ,p_config_information3 in varchar2 default hr_api.g_varchar2
188 ,p_config_information4 in varchar2 default hr_api.g_varchar2
189 ,p_config_information5 in varchar2 default hr_api.g_varchar2
190 ,p_config_information6 in varchar2 default hr_api.g_varchar2
191 ,p_config_information7 in varchar2 default hr_api.g_varchar2
192 ,p_config_information8 in varchar2 default hr_api.g_varchar2
193 ,p_config_information9 in varchar2 default hr_api.g_varchar2
194 ,p_config_information10 in varchar2 default hr_api.g_varchar2
195 ,p_config_information11 in varchar2 default hr_api.g_varchar2
196 ,p_config_information12 in varchar2 default hr_api.g_varchar2
197 ,p_config_information13 in varchar2 default hr_api.g_varchar2
198 ,p_config_information14 in varchar2 default hr_api.g_varchar2
199 ,p_config_information15 in varchar2 default hr_api.g_varchar2
200 ,p_config_information16 in varchar2 default hr_api.g_varchar2
201 ,p_config_information17 in varchar2 default hr_api.g_varchar2
202 ,p_config_information18 in varchar2 default hr_api.g_varchar2
203 ,p_config_information19 in varchar2 default hr_api.g_varchar2
204 ,p_config_information20 in varchar2 default hr_api.g_varchar2
205 ,p_config_information21 in varchar2 default hr_api.g_varchar2
206 ,p_config_information22 in varchar2 default hr_api.g_varchar2
207 ,p_config_information23 in varchar2 default hr_api.g_varchar2
208 ,p_config_information24 in varchar2 default hr_api.g_varchar2
209 ,p_config_information25 in varchar2 default hr_api.g_varchar2
210 ,p_config_information26 in varchar2 default hr_api.g_varchar2
211 ,p_config_information27 in varchar2 default hr_api.g_varchar2
212 ,p_config_information28 in varchar2 default hr_api.g_varchar2
213 ,p_config_information29 in varchar2 default hr_api.g_varchar2
214 ,p_config_information30 in varchar2 default hr_api.g_varchar2
215 ,p_language_code in varchar2 default hr_api.g_varchar2
216 ,p_effective_date in date
217 ,p_object_version_number in out nocopy number
218 ,p_return_status out nocopy varchar2
219 ) is
220 --
221 -- Variables for API Boolean parameters
222 l_validate boolean;
223 --
224 -- Variables for IN/OUT parameters
225 l_object_version_number number;
226 --
227 -- Other variables
228 l_proc varchar2(72) := g_package ||'update_config_information';
229 Begin
230 hr_utility.set_location(' Entering:' || l_proc,10);
231 --
232 -- Issue a savepoint
233 --
234 savepoint update_config_information_swi;
235 --
236 -- Initialise Multiple Message Detection
237 --
238 hr_multi_message.enable_message_list;
239 --
240 -- Remember IN OUT parameter IN values
241 --
242 l_object_version_number := p_object_version_number;
243 --
244 -- Convert constant values to their corresponding boolean value
245 --
246 l_validate :=
247 hr_api.constant_to_boolean
248 (p_constant_value => p_validate);
249 --
250 -- Register Surrogate ID or user key values
251 --
252 --
253 -- Call API
254 --
255 per_ri_config_information_api.update_config_information
256 (p_validate => l_validate
257 ,p_config_information_id => p_config_information_id
258 ,p_configuration_code => p_configuration_code
259 ,p_config_information_category => p_config_information_category
260 ,p_config_sequence => p_config_sequence
261 ,p_config_information1 => p_config_information1
262 ,p_config_information2 => p_config_information2
263 ,p_config_information3 => p_config_information3
264 ,p_config_information4 => p_config_information4
265 ,p_config_information5 => p_config_information5
266 ,p_config_information6 => p_config_information6
267 ,p_config_information7 => p_config_information7
268 ,p_config_information8 => p_config_information8
269 ,p_config_information9 => p_config_information9
270 ,p_config_information10 => p_config_information10
271 ,p_config_information11 => p_config_information11
272 ,p_config_information12 => p_config_information12
273 ,p_config_information13 => p_config_information13
274 ,p_config_information14 => p_config_information14
275 ,p_config_information15 => p_config_information15
276 ,p_config_information16 => p_config_information16
277 ,p_config_information17 => p_config_information17
278 ,p_config_information18 => p_config_information18
279 ,p_config_information19 => p_config_information19
280 ,p_config_information20 => p_config_information20
281 ,p_config_information21 => p_config_information21
282 ,p_config_information22 => p_config_information22
283 ,p_config_information23 => p_config_information23
284 ,p_config_information24 => p_config_information24
285 ,p_config_information25 => p_config_information25
286 ,p_config_information26 => p_config_information26
287 ,p_config_information27 => p_config_information27
288 ,p_config_information28 => p_config_information28
289 ,p_config_information29 => p_config_information29
290 ,p_config_information30 => p_config_information30
291 ,p_language_code => p_language_code
292 ,p_effective_date => p_effective_date
293 ,p_object_version_number => p_object_version_number
294 );
295 --
296 -- Convert API warning boolean parameter values to specific
297 -- messages and add them to Multiple Message List
298 --
299 --
300 -- Convert API non-warning boolean parameter values
301 --
302 --
303 -- Derive the API return status value based on whether
304 -- messages of any type exist in the Multiple Message List.
305 -- Also disable Multiple Message Detection.
306 --
307 p_return_status := hr_multi_message.get_return_status_disable;
308 hr_utility.set_location(' Leaving:' || l_proc,20);
309 --
310 exception
311 when hr_multi_message.error_message_exist then
312 --
313 -- Catch the Multiple Message List exception which
314 -- indicates API processing has been aborted because
315 -- at least one message exists in the list.
316 --
317 rollback to update_config_information_swi;
318 --
319 -- Reset IN OUT parameters and set OUT parameters
320 --
321 p_object_version_number := l_object_version_number;
322 p_return_status := hr_multi_message.get_return_status_disable;
323 hr_utility.set_location(' Leaving:' || l_proc, 30);
324 when others then
325 --
326 -- When Multiple Message Detection is enabled catch
327 -- any Application specific or other unexpected
328 -- exceptions. Adding appropriate details to the
329 -- Multiple Message List. Otherwise re-raise the
330 -- error.
331 --
332 rollback to update_config_information_swi;
333 if hr_multi_message.unexpected_error_add(l_proc) then
334 hr_utility.set_location(' Leaving:' || l_proc,40);
335 raise;
336 end if;
337 --
338 -- Reset IN OUT and set OUT parameters
339 --
340 p_object_version_number := l_object_version_number;
341 p_return_status := hr_multi_message.get_return_status_disable;
342 hr_utility.set_location(' Leaving:' || l_proc,50);
343 end update_config_information;
344 -- ----------------------------------------------------------------------------
345 -- |-----------------------< delete_config_information >----------------------|
346 -- ----------------------------------------------------------------------------
347 PROCEDURE delete_config_information
348 (p_validate in number default hr_api.g_false_num
349 ,p_config_information_id in number
350 ,p_object_version_number in number
351 ,p_return_status out nocopy varchar2
352 ) is
353 --
354 -- Variables for API Boolean parameters
355 l_validate boolean;
356 --
357 -- Variables for IN/OUT parameters
358 --
359 -- Other variables
360 l_proc varchar2(72) := g_package ||'delete_config_information';
361 Begin
362 hr_utility.set_location(' Entering:' || l_proc,10);
363 --
364 -- Issue a savepoint
365 --
366 savepoint delete_config_information_swi;
367 --
368 -- Initialise Multiple Message Detection
369 --
370 hr_multi_message.enable_message_list;
371 --
372 -- Remember IN OUT parameter IN values
373 --
374 --
375 -- Convert constant values to their corresponding boolean value
376 --
377 l_validate :=
378 hr_api.constant_to_boolean
379 (p_constant_value => p_validate);
380 --
381 -- Register Surrogate ID or user key values
382 --
383 --
384 -- Call API
385 --
386 per_ri_config_information_api.delete_config_information
387 (p_validate => l_validate
388 ,p_config_information_id => p_config_information_id
389 ,p_object_version_number => p_object_version_number
390 );
391 --
392 -- Convert API warning boolean parameter values to specific
393 -- messages and add them to Multiple Message List
394 --
395 --
396 -- Convert API non-warning boolean parameter values
397 --
398 --
399 -- Derive the API return status value based on whether
400 -- messages of any type exist in the Multiple Message List.
401 -- Also disable Multiple Message Detection.
402 --
403 p_return_status := hr_multi_message.get_return_status_disable;
404 hr_utility.set_location(' Leaving:' || l_proc,20);
405 --
406 exception
407 when hr_multi_message.error_message_exist then
408 --
409 -- Catch the Multiple Message List exception which
410 -- indicates API processing has been aborted because
411 -- at least one message exists in the list.
412 --
413 rollback to delete_config_information_swi;
414 --
415 -- Reset IN OUT parameters and set OUT parameters
416 --
417 p_return_status := hr_multi_message.get_return_status_disable;
418 hr_utility.set_location(' Leaving:' || l_proc, 30);
419 when others then
420 --
421 -- When Multiple Message Detection is enabled catch
422 -- any Application specific or other unexpected
423 -- exceptions. Adding appropriate details to the
424 -- Multiple Message List. Otherwise re-raise the
425 -- error.
426 --
427 rollback to delete_config_information_swi;
428 if hr_multi_message.unexpected_error_add(l_proc) then
429 hr_utility.set_location(' Leaving:' || l_proc,40);
430 raise;
431 end if;
432 --
433 -- Reset IN OUT and set OUT parameters
434 --
435 p_return_status := hr_multi_message.get_return_status_disable;
436 hr_utility.set_location(' Leaving:' || l_proc,50);
437 end delete_config_information;
438 end per_ri_config_information_swi;