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