[Home] [Help]
PACKAGE BODY: APPS.OTA_EXTERNAL_LEARNING_SWI
Source
1 Package Body ota_external_learning_swi As
2 /* $Header: otnhsswi.pkb 120.1 2006/01/09 03:20 dbatra noship $ */
3 --
4 -- Package variables
5 --
6 g_package varchar2(33) := 'ota_external_learning_swi.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |-----------------------< create_external_learning >-----------------------|
10 -- ----------------------------------------------------------------------------
11 PROCEDURE create_external_learning
12 (p_validate in number default hr_api.g_false_num
13 ,p_effective_date in date
14 ,p_nota_history_id in number
15 ,p_person_id in number
16 ,p_contact_id in number default null
17 ,p_trng_title in varchar2
18 ,p_provider in varchar2
19 ,p_type in varchar2 default null
20 ,p_centre in varchar2 default null
21 ,p_completion_date in date
22 ,p_award in varchar2 default null
23 ,p_rating in varchar2 default null
24 ,p_duration in number default null
25 ,p_duration_units in varchar2 default null
26 ,p_activity_version_id in number default null
27 ,p_status in varchar2 default null
28 ,p_verified_by_id in number default null
29 ,p_nth_information_category in varchar2 default null
30 ,p_nth_information1 in varchar2 default null
31 ,p_nth_information2 in varchar2 default null
32 ,p_nth_information3 in varchar2 default null
33 ,p_nth_information4 in varchar2 default null
34 ,p_nth_information5 in varchar2 default null
35 ,p_nth_information6 in varchar2 default null
36 ,p_nth_information7 in varchar2 default null
37 ,p_nth_information8 in varchar2 default null
38 ,p_nth_information9 in varchar2 default null
39 ,p_nth_information10 in varchar2 default null
40 ,p_nth_information11 in varchar2 default null
41 ,p_nth_information12 in varchar2 default null
42 ,p_nth_information13 in varchar2 default null
43 ,p_nth_information15 in varchar2 default null
44 ,p_nth_information16 in varchar2 default null
45 ,p_nth_information17 in varchar2 default null
46 ,p_nth_information18 in varchar2 default null
47 ,p_nth_information19 in varchar2 default null
48 ,p_nth_information20 in varchar2 default null
49 ,p_org_id in number default null
50 ,p_object_version_number out nocopy number
51 ,p_business_group_id in number
52 ,p_nth_information14 in varchar2 default null
53 ,p_customer_id in number default null
54 ,p_organization_id in number default null
55 ,p_return_status out nocopy varchar2
56 ) is
57 --
58 -- Variables for API Boolean parameters
59 l_validate boolean;
60 l_some_warning boolean;
61 --
62 -- Variables for IN/OUT parameters
63 --
64 -- Other variables
65 l_nota_history_id number;
66 l_proc varchar2(72) := g_package ||'create_external_learning';
67 Begin
68 hr_utility.set_location(' Entering:' || l_proc,10);
69 --
70 -- Issue a savepoint
71 --
72 savepoint create_external_learning_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 ota_nhs_ins.set_base_key_value
89 (p_nota_history_id => p_nota_history_id
90 );
91 --
92 -- Call API
93 --
94 ota_nhs_api.create_non_ota_histories
95 (p_validate => l_validate
96 ,p_effective_date => p_effective_date
97 ,p_nota_history_id => l_nota_history_id
98 ,p_person_id => p_person_id
99 ,p_contact_id => p_contact_id
100 ,p_trng_title => p_trng_title
101 ,p_provider => p_provider
102 ,p_type => p_type
103 ,p_centre => p_centre
104 ,p_completion_date => p_completion_date
105 ,p_award => p_award
106 ,p_rating => p_rating
107 ,p_duration => p_duration
108 ,p_duration_units => p_duration_units
109 ,p_activity_version_id => p_activity_version_id
110 ,p_status => p_status
111 ,p_verified_by_id => p_verified_by_id
112 ,p_nth_information_category => p_nth_information_category
113 ,p_nth_information1 => p_nth_information1
114 ,p_nth_information2 => p_nth_information2
115 ,p_nth_information3 => p_nth_information3
116 ,p_nth_information4 => p_nth_information4
117 ,p_nth_information5 => p_nth_information5
118 ,p_nth_information6 => p_nth_information6
119 ,p_nth_information7 => p_nth_information7
120 ,p_nth_information8 => p_nth_information8
121 ,p_nth_information9 => p_nth_information9
122 ,p_nth_information10 => p_nth_information10
123 ,p_nth_information11 => p_nth_information11
124 ,p_nth_information12 => p_nth_information12
125 ,p_nth_information13 => p_nth_information13
126 ,p_nth_information15 => p_nth_information15
127 ,p_nth_information16 => p_nth_information16
128 ,p_nth_information17 => p_nth_information17
129 ,p_nth_information18 => p_nth_information18
130 ,p_nth_information19 => p_nth_information19
131 ,p_nth_information20 => p_nth_information20
132 ,p_org_id => p_org_id
133 ,p_object_version_number => p_object_version_number
134 ,p_business_group_id => p_business_group_id
135 ,p_nth_information14 => p_nth_information14
136 ,p_customer_id => p_customer_id
137 ,p_organization_id => p_organization_id
138 ,p_some_warning => l_some_warning
139 );
140 --
141 -- Convert API warning boolean parameter values to specific
142 -- messages and add them to Multiple Message List
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_external_learning_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_external_learning_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_external_learning;
188 -- ----------------------------------------------------------------------------
189 -- |-----------------------< update_external_learning >-----------------------|
190 -- ----------------------------------------------------------------------------
191 PROCEDURE update_external_learning
192 (p_validate in number default hr_api.g_false_num
193 ,p_effective_date in date
194 ,p_nota_history_id in number
195 ,p_person_id in number
196 ,p_contact_id in number default hr_api.g_number
197 ,p_trng_title in varchar2
198 ,p_provider in varchar2
199 ,p_type in varchar2 default hr_api.g_varchar2
200 ,p_centre in varchar2 default hr_api.g_varchar2
201 ,p_completion_date in date
202 ,p_award in varchar2 default hr_api.g_varchar2
203 ,p_rating in varchar2 default hr_api.g_varchar2
204 ,p_duration in number default hr_api.g_number
205 ,p_duration_units in varchar2 default hr_api.g_varchar2
206 ,p_activity_version_id in number default hr_api.g_number
207 ,p_status in varchar2 default hr_api.g_varchar2
208 ,p_verified_by_id in number default hr_api.g_number
209 ,p_nth_information_category in varchar2 default hr_api.g_varchar2
210 ,p_nth_information1 in varchar2 default hr_api.g_varchar2
211 ,p_nth_information2 in varchar2 default hr_api.g_varchar2
212 ,p_nth_information3 in varchar2 default hr_api.g_varchar2
213 ,p_nth_information4 in varchar2 default hr_api.g_varchar2
214 ,p_nth_information5 in varchar2 default hr_api.g_varchar2
215 ,p_nth_information6 in varchar2 default hr_api.g_varchar2
216 ,p_nth_information7 in varchar2 default hr_api.g_varchar2
217 ,p_nth_information8 in varchar2 default hr_api.g_varchar2
218 ,p_nth_information9 in varchar2 default hr_api.g_varchar2
219 ,p_nth_information10 in varchar2 default hr_api.g_varchar2
220 ,p_nth_information11 in varchar2 default hr_api.g_varchar2
221 ,p_nth_information12 in varchar2 default hr_api.g_varchar2
222 ,p_nth_information13 in varchar2 default hr_api.g_varchar2
223 ,p_nth_information15 in varchar2 default hr_api.g_varchar2
224 ,p_nth_information16 in varchar2 default hr_api.g_varchar2
225 ,p_nth_information17 in varchar2 default hr_api.g_varchar2
226 ,p_nth_information18 in varchar2 default hr_api.g_varchar2
227 ,p_nth_information19 in varchar2 default hr_api.g_varchar2
228 ,p_nth_information20 in varchar2 default hr_api.g_varchar2
229 ,p_org_id in number default hr_api.g_number
230 ,p_object_version_number in out nocopy number
231 ,p_business_group_id in number
232 ,p_nth_information14 in varchar2 default hr_api.g_varchar2
233 ,p_customer_id in number default hr_api.g_number
234 ,p_organization_id in number default hr_api.g_number
235 ,p_return_status out nocopy varchar2
236 ) is
237 --
238 -- Variables for API Boolean parameters
239 l_validate boolean;
240 l_some_warning boolean;
241 --
242 -- Variables for IN/OUT parameters
243 l_object_version_number number;
244 --
245 -- Other variables
246 l_proc varchar2(72) := g_package ||'update_external_learning';
247 Begin
248 hr_utility.set_location(' Entering:' || l_proc,10);
249 --
250 -- Issue a savepoint
251 --
252 savepoint update_external_learning_swi;
253 --
254 -- Initialise Multiple Message Detection
255 --
256 hr_multi_message.enable_message_list;
257 --
258 -- Remember IN OUT parameter IN values
259 --
260 l_object_version_number := p_object_version_number;
261 --
262 -- Convert constant values to their corresponding boolean value
263 --
264 l_validate :=
265 hr_api.constant_to_boolean
266 (p_constant_value => p_validate);
267 --
268 -- Register Surrogate ID or user key values
269 --
270 --
271 -- Call API
272 --
273 ota_nhs_api.update_non_ota_histories
274 (p_validate => l_validate
275 ,p_effective_date => p_effective_date
276 ,p_nota_history_id => p_nota_history_id
277 ,p_person_id => p_person_id
278 ,p_contact_id => p_contact_id
279 ,p_trng_title => p_trng_title
280 ,p_provider => p_provider
281 ,p_type => p_type
282 ,p_centre => p_centre
283 ,p_completion_date => p_completion_date
284 ,p_award => p_award
285 ,p_rating => p_rating
286 ,p_duration => p_duration
287 ,p_duration_units => p_duration_units
288 ,p_activity_version_id => p_activity_version_id
289 ,p_status => p_status
290 ,p_verified_by_id => p_verified_by_id
291 ,p_nth_information_category => p_nth_information_category
292 ,p_nth_information1 => p_nth_information1
293 ,p_nth_information2 => p_nth_information2
294 ,p_nth_information3 => p_nth_information3
295 ,p_nth_information4 => p_nth_information4
296 ,p_nth_information5 => p_nth_information5
297 ,p_nth_information6 => p_nth_information6
298 ,p_nth_information7 => p_nth_information7
299 ,p_nth_information8 => p_nth_information8
300 ,p_nth_information9 => p_nth_information9
301 ,p_nth_information10 => p_nth_information10
302 ,p_nth_information11 => p_nth_information11
303 ,p_nth_information12 => p_nth_information12
304 ,p_nth_information13 => p_nth_information13
305 ,p_nth_information15 => p_nth_information15
306 ,p_nth_information16 => p_nth_information16
307 ,p_nth_information17 => p_nth_information17
308 ,p_nth_information18 => p_nth_information18
309 ,p_nth_information19 => p_nth_information19
310 ,p_nth_information20 => p_nth_information20
311 ,p_org_id => p_org_id
312 ,p_object_version_number => p_object_version_number
313 ,p_business_group_id => p_business_group_id
314 ,p_nth_information14 => p_nth_information14
315 ,p_customer_id => p_customer_id
316 ,p_organization_id => p_organization_id
320 -- Convert API warning boolean parameter values to specific
317 ,p_some_warning => l_some_warning
318 );
319 --
321 -- messages and add them to Multiple Message List
322 --
323 -- Convert API non-warning boolean parameter values
324 --
325 --
326 -- Derive the API return status value based on whether
327 -- messages of any type exist in the Multiple Message List.
328 -- Also disable Multiple Message Detection.
329 --
330 p_return_status := hr_multi_message.get_return_status_disable;
331 hr_utility.set_location(' Leaving:' || l_proc,20);
332 --
333 exception
334 when hr_multi_message.error_message_exist then
335 --
336 -- Catch the Multiple Message List exception which
337 -- indicates API processing has been aborted because
338 -- at least one message exists in the list.
339 --
340 rollback to update_external_learning_swi;
341 --
342 -- Reset IN OUT parameters and set OUT parameters
343 --
344 p_object_version_number := l_object_version_number;
345 p_return_status := hr_multi_message.get_return_status_disable;
346 hr_utility.set_location(' Leaving:' || l_proc, 30);
347 when others then
348 --
349 -- When Multiple Message Detection is enabled catch
350 -- any Application specific or other unexpected
351 -- exceptions. Adding appropriate details to the
352 -- Multiple Message List. Otherwise re-raise the
353 -- error.
354 --
355 rollback to update_external_learning_swi;
356 if hr_multi_message.unexpected_error_add(l_proc) then
357 hr_utility.set_location(' Leaving:' || l_proc,40);
358 raise;
359 end if;
360 --
361 -- Reset IN OUT and set OUT parameters
362 --
363 p_object_version_number := l_object_version_number;
364 p_return_status := hr_multi_message.get_return_status_disable;
365 hr_utility.set_location(' Leaving:' || l_proc,50);
366 end update_external_learning;
367 -- ----------------------------------------------------------------------------
368 -- |-----------------------< delete_external_learning >-----------------------|
369 -- ----------------------------------------------------------------------------
370 PROCEDURE delete_external_learning
371 (p_validate in number default hr_api.g_false_num
372 ,p_nota_history_id in number
373 ,p_object_version_number in number
374 ,p_return_status out nocopy varchar2
375 ) is
376 --
377 -- Variables for API Boolean parameters
378 l_validate boolean;
379 --
380 -- Variables for IN/OUT parameters
381 --
382 -- Other variables
383 l_proc varchar2(72) := g_package ||'delete_external_learning';
384 Begin
385 hr_utility.set_location(' Entering:' || l_proc,10);
386 --
387 -- Issue a savepoint
388 --
389 savepoint delete_external_learning_swi;
390 --
391 -- Initialise Multiple Message Detection
392 --
393 hr_multi_message.enable_message_list;
394 --
395 -- Remember IN OUT parameter IN values
396 --
397 --
398 -- Convert constant values to their corresponding boolean value
399 --
400 l_validate :=
401 hr_api.constant_to_boolean
402 (p_constant_value => p_validate);
403 --
404 -- Register Surrogate ID or user key values
405 --
406 --
407 -- Call API
408 --
409 ota_nhs_api.delete_external_learning
410 (p_validate => l_validate
411 ,p_nota_history_id => p_nota_history_id
412 ,p_object_version_number => p_object_version_number
413 );
414 --
415 -- Convert API warning boolean parameter values to specific
416 -- messages and add them to Multiple Message List
417 --
418 --
419 -- Convert API non-warning boolean parameter values
420 --
421 --
422 -- Derive the API return status value based on whether
423 -- messages of any type exist in the Multiple Message List.
424 -- Also disable Multiple Message Detection.
425 --
426 p_return_status := hr_multi_message.get_return_status_disable;
427 hr_utility.set_location(' Leaving:' || l_proc,20);
428 --
429 exception
430 when hr_multi_message.error_message_exist then
431 --
432 -- Catch the Multiple Message List exception which
433 -- indicates API processing has been aborted because
434 -- at least one message exists in the list.
435 --
436 rollback to delete_external_learning_swi;
437 --
438 -- Reset IN OUT parameters and set OUT parameters
439 --
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 the
448 -- error.
449 --
450 rollback to delete_external_learning_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 and set OUT parameters
457 --
458 p_return_status := hr_multi_message.get_return_status_disable;
459 hr_utility.set_location(' Leaving:' || l_proc,50);
460 end delete_external_learning;
461 end ota_external_learning_swi;