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