[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 2005/05/29 07:19 appldev noship $ */
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_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 -- Other variables
64 l_lp_member_enrollment_id number;
65 l_proc varchar2(72) := g_package ||'create_lp_member_enrollment';
66 Begin
67 hr_utility.set_location(' Entering:' || l_proc,10);
68 --
69 -- Issue a savepoint
70 --
71 savepoint create_lp_member_enr_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 ota_lme_ins.set_base_key_value
89 (p_lp_member_enrollment_id => p_lp_member_enrollment_id
90 );
91 --
92 -- Call API
93 --
94 ota_lp_member_enrollment_api.create_lp_member_enrollment
95 (p_effective_date => p_effective_date
96 ,p_validate => l_validate
97 ,p_lp_enrollment_id => p_lp_enrollment_id
98 ,p_learning_path_section_id => p_learning_path_section_id
99 ,p_learning_path_member_id => p_learning_path_member_id
100 ,p_member_status_code => p_member_status_code
101 ,p_completion_target_date => p_completion_target_date
102 ,p_completion_date => p_completion_date
103 ,p_business_group_id => p_business_group_id
104 ,p_attribute_category => p_attribute_category
105 ,p_attribute1 => p_attribute1
106 ,p_attribute2 => p_attribute2
107 ,p_attribute3 => p_attribute3
108 ,p_attribute4 => p_attribute4
109 ,p_attribute5 => p_attribute5
110 ,p_attribute6 => p_attribute6
111 ,p_attribute7 => p_attribute7
112 ,p_attribute8 => p_attribute8
113 ,p_attribute9 => p_attribute9
114 ,p_attribute10 => p_attribute10
115 ,p_attribute11 => p_attribute11
116 ,p_attribute12 => p_attribute12
117 ,p_attribute13 => p_attribute13
118 ,p_attribute14 => p_attribute14
119 ,p_attribute15 => p_attribute15
120 ,p_attribute16 => p_attribute16
121 ,p_attribute17 => p_attribute17
122 ,p_attribute18 => p_attribute18
123 ,p_attribute19 => p_attribute19
124 ,p_attribute20 => p_attribute20
125 ,p_attribute21 => p_attribute21
126 ,p_attribute22 => p_attribute22
127 ,p_attribute23 => p_attribute23
128 ,p_attribute24 => p_attribute24
129 ,p_attribute25 => p_attribute25
130 ,p_attribute26 => p_attribute26
131 ,p_attribute27 => p_attribute27
132 ,p_attribute28 => p_attribute28
133 ,p_attribute29 => p_attribute29
134 ,p_attribute30 => p_attribute30
135 ,p_creator_person_id => p_creator_person_id
136 ,p_lp_member_enrollment_id => l_lp_member_enrollment_id
137 ,p_object_version_number => p_object_version_number
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 message exists in the list.
160 --
161 rollback to create_lp_member_enr_swi;
162 --
163 -- Reset IN OUT parameters 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 the
174 -- error.
175 --
176 rollback to create_lp_member_enr_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 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_lp_member_enrollment;
188 -- ----------------------------------------------------------------------------
189 -- |----------------------< update_lp_member_enrollment >---------------------|
190 -- ----------------------------------------------------------------------------
191 PROCEDURE update_lp_member_enrollment
192 (p_effective_date in date
193 ,p_lp_member_enrollment_id in number
194 ,p_object_version_number in out nocopy number
195 ,p_lp_enrollment_id in number default hr_api.g_number
196 ,p_learning_path_section_id in number default hr_api.g_number
197 ,p_learning_path_member_id in number default hr_api.g_number
198 ,p_member_status_code in varchar2 default hr_api.g_varchar2
199 ,p_completion_target_date in date default hr_api.g_date
200 ,p_completion_date in date default hr_api.g_date
201 ,p_attribute_category in varchar2 default hr_api.g_varchar2
202 ,p_attribute1 in varchar2 default hr_api.g_varchar2
203 ,p_attribute2 in varchar2 default hr_api.g_varchar2
204 ,p_attribute3 in varchar2 default hr_api.g_varchar2
205 ,p_attribute4 in varchar2 default hr_api.g_varchar2
206 ,p_attribute5 in varchar2 default hr_api.g_varchar2
207 ,p_attribute6 in varchar2 default hr_api.g_varchar2
208 ,p_attribute7 in varchar2 default hr_api.g_varchar2
209 ,p_attribute8 in varchar2 default hr_api.g_varchar2
210 ,p_attribute9 in varchar2 default hr_api.g_varchar2
211 ,p_attribute10 in varchar2 default hr_api.g_varchar2
212 ,p_attribute11 in varchar2 default hr_api.g_varchar2
213 ,p_attribute12 in varchar2 default hr_api.g_varchar2
214 ,p_attribute13 in varchar2 default hr_api.g_varchar2
215 ,p_attribute14 in varchar2 default hr_api.g_varchar2
216 ,p_attribute15 in varchar2 default hr_api.g_varchar2
217 ,p_attribute16 in varchar2 default hr_api.g_varchar2
218 ,p_attribute17 in varchar2 default hr_api.g_varchar2
219 ,p_attribute18 in varchar2 default hr_api.g_varchar2
220 ,p_attribute19 in varchar2 default hr_api.g_varchar2
221 ,p_attribute20 in varchar2 default hr_api.g_varchar2
222 ,p_attribute21 in varchar2 default hr_api.g_varchar2
223 ,p_attribute22 in varchar2 default hr_api.g_varchar2
224 ,p_attribute23 in varchar2 default hr_api.g_varchar2
225 ,p_attribute24 in varchar2 default hr_api.g_varchar2
226 ,p_attribute25 in varchar2 default hr_api.g_varchar2
227 ,p_attribute26 in varchar2 default hr_api.g_varchar2
228 ,p_attribute27 in varchar2 default hr_api.g_varchar2
229 ,p_attribute28 in varchar2 default hr_api.g_varchar2
230 ,p_attribute29 in varchar2 default hr_api.g_varchar2
231 ,p_attribute30 in varchar2 default hr_api.g_varchar2
232 ,p_creator_person_id in number default hr_api.g_number
233 ,p_business_group_id in number default hr_api.g_number
234 ,p_validate in number default hr_api.g_false_num
235 ,p_return_status out nocopy varchar2
236 ) is
237 --
238 -- Variables for API Boolean parameters
239 l_validate boolean;
240 --
241 -- Variables for IN/OUT parameters
242 l_object_version_number number;
243 --
244 -- Other variables
245 l_proc varchar2(72) := g_package ||'update_lp_member_enrollment';
246 Begin
247 hr_utility.set_location(' Entering:' || l_proc,10);
248 --
249 -- Issue a savepoint
250 --
251 savepoint update_lp_member_enr_swi;
252 --
253 -- Initialise Multiple Message Detection
254 --
255 hr_multi_message.enable_message_list;
256 --
257 -- Remember IN OUT parameter IN values
258 --
259 l_object_version_number := p_object_version_number;
260 --
261 -- Convert constant values to their corresponding boolean value
262 --
263 l_validate :=
264 hr_api.constant_to_boolean
265 (p_constant_value => p_validate);
266 --
267 -- Register Surrogate ID or user key values
268 --
269 --
270 -- Call API
271 --
272 ota_lp_member_enrollment_api.update_lp_member_enrollment
273 (p_effective_date => p_effective_date
274 ,p_lp_member_enrollment_id => p_lp_member_enrollment_id
275 ,p_object_version_number => p_object_version_number
276 ,p_lp_enrollment_id => p_lp_enrollment_id
277 ,p_learning_path_section_id => p_learning_path_section_id
278 ,p_learning_path_member_id => p_learning_path_member_id
279 ,p_member_status_code => p_member_status_code
280 ,p_completion_target_date => p_completion_target_date
281 ,p_completion_date => p_completion_date
282 ,p_attribute_category => p_attribute_category
283 ,p_attribute1 => p_attribute1
284 ,p_attribute2 => p_attribute2
285 ,p_attribute3 => p_attribute3
286 ,p_attribute4 => p_attribute4
287 ,p_attribute5 => p_attribute5
288 ,p_attribute6 => p_attribute6
289 ,p_attribute7 => p_attribute7
290 ,p_attribute8 => p_attribute8
291 ,p_attribute9 => p_attribute9
292 ,p_attribute10 => p_attribute10
293 ,p_attribute11 => p_attribute11
294 ,p_attribute12 => p_attribute12
295 ,p_attribute13 => p_attribute13
296 ,p_attribute14 => p_attribute14
297 ,p_attribute15 => p_attribute15
298 ,p_attribute16 => p_attribute16
299 ,p_attribute17 => p_attribute17
300 ,p_attribute18 => p_attribute18
301 ,p_attribute19 => p_attribute19
302 ,p_attribute20 => p_attribute20
303 ,p_attribute21 => p_attribute21
304 ,p_attribute22 => p_attribute22
305 ,p_attribute23 => p_attribute23
306 ,p_attribute24 => p_attribute24
307 ,p_attribute25 => p_attribute25
308 ,p_attribute26 => p_attribute26
309 ,p_attribute27 => p_attribute27
310 ,p_attribute28 => p_attribute28
311 ,p_attribute29 => p_attribute29
312 ,p_attribute30 => p_attribute30
313 ,p_creator_person_id => p_creator_person_id
314 ,p_business_group_id => p_business_group_id
315 ,p_validate => l_validate
316 );
317 --
318 -- Convert API warning boolean parameter values to specific
319 -- messages and add them to Multiple Message List
320 --
321 --
322 -- Convert API non-warning boolean parameter values
323 --
324 --
325 -- Derive the API return status value based on whether
326 -- messages of any type exist in the Multiple Message List.
327 -- Also disable Multiple Message Detection.
328 --
329 p_return_status := hr_multi_message.get_return_status_disable;
330 hr_utility.set_location(' Leaving:' || l_proc,20);
331 --
332 exception
333 when hr_multi_message.error_message_exist then
334 --
335 -- Catch the Multiple Message List exception which
336 -- indicates API processing has been aborted because
337 -- at least one message exists in the list.
338 --
339 rollback to update_lp_member_enr_swi;
340 --
341 -- Reset IN OUT parameters and set OUT parameters
342 --
343 p_object_version_number := l_object_version_number;
344 p_return_status := hr_multi_message.get_return_status_disable;
345 hr_utility.set_location(' Leaving:' || l_proc, 30);
346 when others then
347 --
348 -- When Multiple Message Detection is enabled catch
349 -- any Application specific or other unexpected
350 -- exceptions. Adding appropriate details to the
351 -- Multiple Message List. Otherwise re-raise the
352 -- error.
353 --
354 rollback to update_lp_member_enr_swi;
355 if hr_multi_message.unexpected_error_add(l_proc) then
356 hr_utility.set_location(' Leaving:' || l_proc,40);
357 raise;
358 end if;
359 --
360 -- Reset IN OUT and set OUT parameters
361 --
362 p_object_version_number := l_object_version_number;
363 p_return_status := hr_multi_message.get_return_status_disable;
364 hr_utility.set_location(' Leaving:' || l_proc,50);
365 end update_lp_member_enrollment;
366 -- ----------------------------------------------------------------------------
367 -- |----------------------< delete_lp_member_enrollment >---------------------|
368 -- ----------------------------------------------------------------------------
369 PROCEDURE delete_lp_member_enrollment
370 (p_lp_member_enrollment_id in number
371 ,p_object_version_number in number
372 ,p_validate in number default hr_api.g_false_num
373 ,p_return_status out nocopy varchar2
374 ) is
375 --
376 -- Variables for API Boolean parameters
377 l_validate boolean;
378 --
379 -- Variables for IN/OUT parameters
380 --
381 -- Other variables
382 l_proc varchar2(72) := g_package ||'delete_lp_member_enrollment';
383 Begin
384 hr_utility.set_location(' Entering:' || l_proc,10);
385 --
386 -- Issue a savepoint
387 --
388 savepoint delete_lp_member_enr_swi;
389 --
390 -- Initialise Multiple Message Detection
391 --
392 hr_multi_message.enable_message_list;
393 --
394 -- Remember IN OUT parameter IN values
395 --
396 --
397 -- Convert constant values to their corresponding boolean value
398 --
399 l_validate :=
400 hr_api.constant_to_boolean
401 (p_constant_value => p_validate);
402 --
403 -- Register Surrogate ID or user key values
404 --
405 --
406 -- Call API
407 --
408 ota_lp_member_enrollment_api.delete_lp_member_enrollment
409 (p_lp_member_enrollment_id => p_lp_member_enrollment_id
410 ,p_object_version_number => p_object_version_number
411 ,p_validate => l_validate
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 message exists in the list.
434 --
435 rollback to delete_lp_member_enr_swi;
436 --
437 -- Reset IN OUT parameters and set OUT parameters
438 --
439 p_return_status := hr_multi_message.get_return_status_disable;
440 hr_utility.set_location(' Leaving:' || l_proc, 30);
441 when others then
442 --
443 -- When Multiple Message Detection is enabled catch
444 -- any Application specific or other unexpected
445 -- exceptions. Adding appropriate details to the
446 -- Multiple Message List. Otherwise re-raise the
447 -- error.
448 --
449 rollback to delete_lp_member_enr_swi;
450 if hr_multi_message.unexpected_error_add(l_proc) then
451 hr_utility.set_location(' Leaving:' || l_proc,40);
452 raise;
453 end if;
454 --
455 -- Reset IN OUT and set OUT parameters
456 --
457 p_return_status := hr_multi_message.get_return_status_disable;
458 hr_utility.set_location(' Leaving:' || l_proc,50);
459 end delete_lp_member_enrollment;
460 end ota_lp_member_enrollment_swi;