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