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