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