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