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