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