[Home] [Help]
PACKAGE BODY: APPS.GHR_ELEMENT_ENTRY_API
Source
1 PACKAGE BODY ghr_element_entry_api AS
2 /* $Header: gheleapi.pkb 115.1 1999/11/09 16:03:00 pkm ship $ */
3 --
4 -- Package Variables
5 --
6 g_package varchar2(33) := 'ghr_element_entry_api.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |-------------------------< create_element_entry >-------------------------|
10 -- ----------------------------------------------------------------------------
11 --
12 PROCEDURE create_element_entry
13 (p_validate in boolean default false
14 ,p_effective_date in date
15 ,p_business_group_id in number
16 ,p_original_entry_id in number default null
17 ,p_assignment_id in number
18 ,p_element_link_id in number
19 ,p_entry_type in varchar2
20 ,p_cost_allocation_keyflex_id in number default null
21 ,p_updating_action_id in number default null
22 ,p_comment_id in number default null
23 ,p_reason in varchar2 default null
24 ,p_target_entry_id in number default null
25 ,p_subpriority in number default null
26 ,p_date_earned in date default null
27 ,p_personal_payment_method_id in number default null
28 ,p_attribute_category in varchar2 default null
29 ,p_attribute1 in varchar2 default null
30 ,p_attribute2 in varchar2 default null
31 ,p_attribute3 in varchar2 default null
32 ,p_attribute4 in varchar2 default null
33 ,p_attribute5 in varchar2 default null
34 ,p_attribute6 in varchar2 default null
35 ,p_attribute7 in varchar2 default null
36 ,p_attribute8 in varchar2 default null
37 ,p_attribute9 in varchar2 default null
38 ,p_attribute10 in varchar2 default null
39 ,p_attribute11 in varchar2 default null
40 ,p_attribute12 in varchar2 default null
41 ,p_attribute13 in varchar2 default null
42 ,p_attribute14 in varchar2 default null
43 ,p_attribute15 in varchar2 default null
44 ,p_attribute16 in varchar2 default null
45 ,p_attribute17 in varchar2 default null
46 ,p_attribute18 in varchar2 default null
47 ,p_attribute19 in varchar2 default null
48 ,p_attribute20 in varchar2 default null
49 ,p_input_value_id1 in number default null
50 ,p_input_value_id2 in number default null
51 ,p_input_value_id3 in number default null
52 ,p_input_value_id4 in number default null
53 ,p_input_value_id5 in number default null
54 ,p_input_value_id6 in number default null
55 ,p_input_value_id7 in number default null
56 ,p_input_value_id8 in number default null
57 ,p_input_value_id9 in number default null
58 ,p_input_value_id10 in number default null
59 ,p_input_value_id11 in number default null
60 ,p_input_value_id12 in number default null
61 ,p_input_value_id13 in number default null
62 ,p_input_value_id14 in number default null
63 ,p_input_value_id15 in number default null
64 ,p_entry_value1 in varchar2 default null
65 ,p_entry_value2 in varchar2 default null
66 ,p_entry_value3 in varchar2 default null
67 ,p_entry_value4 in varchar2 default null
68 ,p_entry_value5 in varchar2 default null
69 ,p_entry_value6 in varchar2 default null
70 ,p_entry_value7 in varchar2 default null
71 ,p_entry_value8 in varchar2 default null
72 ,p_entry_value9 in varchar2 default null
73 ,p_entry_value10 in varchar2 default null
74 ,p_entry_value11 in varchar2 default null
75 ,p_entry_value12 in varchar2 default null
76 ,p_entry_value13 in varchar2 default null
77 ,p_entry_value14 in varchar2 default null
78 ,p_entry_value15 in varchar2 default null
79 ,p_effective_start_date out date
80 ,p_effective_end_date out date
81 ,p_element_entry_id out number
82 ,p_object_version_number out number
83 ,p_create_warning out boolean
84 ) IS
85 --
86 -- Declare cursors and local variables
87 --
88 l_creator_type pay_element_entries_f.creator_type%TYPE;
89 l_creator_id pay_element_entries_f.creator_id%TYPE;
90 l_element_entry_id pay_element_entries_f.element_entry_id%TYPE;
91 l_object_version_number pay_element_entries_f.object_version_number%TYPE;
92 l_effective_start_date pay_element_entries_f.effective_start_date%TYPE;
93 l_effective_end_date pay_element_entries_f.effective_end_date%TYPE;
94 l_process_in_run_flag pay_element_types_f.process_in_run_flag%TYPE;
95 l_closed_for_entry_flag pay_element_types_f.closed_for_entry_flag%TYPE;
96 l_period_status per_time_periods.status%TYPE;
97 l_date_on_which_time_served_ok date;
98 l_date_on_which_old_enough date;
99 l_dummy varchar2(1);
100 l_create_warning boolean;
101 l_proc varchar2(72) := g_package||'create_element_entry';
102 --
103 --
104 BEGIN
105 hr_utility.set_location('Entering:'|| l_proc, 50);
106 --
107 -- Issue a savepoint if operating in validation only mode.
108 --
109 SAVEPOINT ghr_create_element_entry;
110 hr_utility.set_location(l_proc, 60);
111 --
112 ghr_session.set_session_var_for_core
113 (p_effective_date => p_effective_date
114 );
115 --
116 hr_utility.set_location(l_proc, 350);
117 py_element_entry_api.create_element_entry
118 (
119 --p_validate => p_validate,
120 p_effective_date => p_effective_date,
121 p_business_group_id => p_business_group_id,
122 p_original_entry_id => p_original_entry_id,
123 p_assignment_id => p_assignment_id,
124 p_element_link_id => p_element_link_id,
125 p_entry_type => p_entry_type,
126 p_cost_allocation_keyflex_id => p_cost_allocation_keyflex_id,
127 p_updating_action_id => p_updating_action_id,
128 p_comment_id => p_comment_id,
129 p_reason => p_reason,
130 p_target_entry_id => p_target_entry_id,
131 p_subpriority => p_subpriority,
132 p_date_earned => p_date_earned,
133 p_personal_payment_method_id => p_personal_payment_method_id,
134 p_attribute_category => p_attribute_category,
135 p_attribute1 => p_attribute1,
136 p_attribute2 => p_attribute2,
137 p_attribute3 => p_attribute3,
138 p_attribute4 => p_attribute4,
139 p_attribute5 => p_attribute5,
140 p_attribute6 => p_attribute6,
141 p_attribute7 => p_attribute7,
142 p_attribute8 => p_attribute8,
143 p_attribute9 => p_attribute9,
144 p_attribute10 => p_attribute10,
145 p_attribute11 => p_attribute11,
146 p_attribute12 => p_attribute12,
147 p_attribute13 => p_attribute13,
148 p_attribute14 => p_attribute14,
149 p_attribute15 => p_attribute15,
150 p_attribute16 => p_attribute16,
151 p_attribute17 => p_attribute17,
152 p_attribute18 => p_attribute18,
153 p_attribute19 => p_attribute19,
154 p_attribute20 => p_attribute20,
155 p_input_value_id1 => p_input_value_id1,
156 p_input_value_id2 => p_input_value_id2,
157 p_input_value_id3 => p_input_value_id3,
158 p_input_value_id4 => p_input_value_id4,
159 p_input_value_id5 => p_input_value_id5,
160 p_input_value_id6 => p_input_value_id6,
161 p_input_value_id7 => p_input_value_id7,
162 p_input_value_id8 => p_input_value_id8,
163 p_input_value_id9 => p_input_value_id9,
164 p_input_value_id10 => p_input_value_id10,
165 p_input_value_id11 => p_input_value_id11,
166 p_input_value_id12 => p_input_value_id12,
167 p_input_value_id13 => p_input_value_id13,
168 p_input_value_id14 => p_input_value_id14,
169 p_input_value_id15 => p_input_value_id15,
170 p_entry_value1 => p_entry_value1,
171 p_entry_value2 => p_entry_value2,
172 p_entry_value3 => p_entry_value3,
173 p_entry_value4 => p_entry_value4,
174 p_entry_value5 => p_entry_value5,
175 p_entry_value6 => p_entry_value6,
176 p_entry_value7 => p_entry_value7,
177 p_entry_value8 => p_entry_value8,
178 p_entry_value9 => p_entry_value9,
179 p_entry_value10 => p_entry_value10,
180 p_entry_value11 => p_entry_value11,
181 p_entry_value12 => p_entry_value12,
182 p_entry_value13 => p_entry_value13,
183 p_entry_value14 => p_entry_value14,
184 p_entry_value15 => p_entry_value15,
185 p_effective_start_date => p_effective_start_date,
186 p_effective_end_date => p_effective_end_date,
187 p_element_entry_id => p_element_entry_id,
188 p_object_version_number => p_object_version_number,
189 p_create_warning => p_create_warning
190 );
191 --
192 hr_utility.set_location(l_proc, 800);
193 --
194 ghr_history_api.post_update_process;
195
196 IF p_validate THEN
197 RAISE hr_api.validate_enabled;
198 END IF;
199 --
200 -- Set all output arguments
201 --
202
203 hr_utility.set_location(' Leaving:'||l_proc, 11);
204 EXCEPTION
205 WHEN hr_api.validate_enabled THEN
206 --
207 -- As the Validate_Enabled exception has been raised
208 -- we must rollback to the savepoint
209 --
210 ROLLBACK TO ghr_create_element_entry;
211 --
212 -- Only set output warning arguments
213 -- (Any key or derived arguments must be set to null
214 -- when validation only mode is being used.)
215 --
216 p_element_entry_id := null;
217 p_object_version_number := null;
218 p_effective_start_date := null;
219 p_effective_end_date := null;
220 hr_utility.set_location(' Leaving:'||l_proc, 900);
221
222 When others then
223 ROLLBACK TO ghr_create_element_entry;
224 raise;
225 END create_element_entry;
226 --
227 --
228
229 -- ----------------------------------------------------------------------------
230 -- |-------------------------< update_element_entry >-------------------------|
231 -- ----------------------------------------------------------------------------
232 --
233 PROCEDURE update_element_entry
234 (p_validate in boolean default false
235 ,p_datetrack_update_mode in varchar2
236 ,p_effective_date in date
237 ,p_business_group_id in number
238 ,p_element_entry_id in number
239 ,p_object_version_number in out number
240 ,p_cost_allocation_keyflex_id in number default hr_api.g_number
241 ,p_updating_action_id in number default hr_api.g_number
242 ,p_original_entry_id in number default hr_api.g_number
243 ,p_creator_type in varchar2 default hr_api.g_varchar2
244 ,p_comment_id in number default hr_api.g_number
245 ,p_creator_id in number default hr_api.g_number
246 ,p_reason in varchar2 default hr_api.g_varchar2
247 ,p_subpriority in number default hr_api.g_number
248 ,p_date_earned in date default hr_api.g_date
249 ,p_personal_payment_method_id in number default hr_api.g_number
250 ,p_attribute_category in varchar2 default hr_api.g_varchar2
251 ,p_attribute1 in varchar2 default hr_api.g_varchar2
252 ,p_attribute2 in varchar2 default hr_api.g_varchar2
253 ,p_attribute3 in varchar2 default hr_api.g_varchar2
254 ,p_attribute4 in varchar2 default hr_api.g_varchar2
255 ,p_attribute5 in varchar2 default hr_api.g_varchar2
256 ,p_attribute6 in varchar2 default hr_api.g_varchar2
257 ,p_attribute7 in varchar2 default hr_api.g_varchar2
261 ,p_attribute11 in varchar2 default hr_api.g_varchar2
258 ,p_attribute8 in varchar2 default hr_api.g_varchar2
259 ,p_attribute9 in varchar2 default hr_api.g_varchar2
260 ,p_attribute10 in varchar2 default hr_api.g_varchar2
262 ,p_attribute12 in varchar2 default hr_api.g_varchar2
263 ,p_attribute13 in varchar2 default hr_api.g_varchar2
264 ,p_attribute14 in varchar2 default hr_api.g_varchar2
265 ,p_attribute15 in varchar2 default hr_api.g_varchar2
266 ,p_attribute16 in varchar2 default hr_api.g_varchar2
267 ,p_attribute17 in varchar2 default hr_api.g_varchar2
268 ,p_attribute18 in varchar2 default hr_api.g_varchar2
269 ,p_attribute19 in varchar2 default hr_api.g_varchar2
270 ,p_attribute20 in varchar2 default hr_api.g_varchar2
271 ,p_input_value_id1 in number default null
272 ,p_input_value_id2 in number default null
273 ,p_input_value_id3 in number default null
274 ,p_input_value_id4 in number default null
275 ,p_input_value_id5 in number default null
276 ,p_input_value_id6 in number default null
277 ,p_input_value_id7 in number default null
278 ,p_input_value_id8 in number default null
279 ,p_input_value_id9 in number default null
280 ,p_input_value_id10 in number default null
281 ,p_input_value_id11 in number default null
282 ,p_input_value_id12 in number default null
283 ,p_input_value_id13 in number default null
284 ,p_input_value_id14 in number default null
285 ,p_input_value_id15 in number default null
286 ,p_entry_value1 in varchar2 default null
287 ,p_entry_value2 in varchar2 default null
288 ,p_entry_value3 in varchar2 default null
289 ,p_entry_value4 in varchar2 default null
290 ,p_entry_value5 in varchar2 default null
291 ,p_entry_value6 in varchar2 default null
292 ,p_entry_value7 in varchar2 default null
293 ,p_entry_value8 in varchar2 default null
294 ,p_entry_value9 in varchar2 default null
295 ,p_entry_value10 in varchar2 default null
296 ,p_entry_value11 in varchar2 default null
297 ,p_entry_value12 in varchar2 default null
298 ,p_entry_value13 in varchar2 default null
299 ,p_entry_value14 in varchar2 default null
300 ,p_entry_value15 in varchar2 default null
301 ,p_effective_start_date out date
302 ,p_effective_end_date out date
303 ,p_update_warning out boolean
304 ) IS
305 --
306 -- Declare cursors and local variables
307 --
308
309 l_proc varchar2(72) := g_package||'update_element_entry';
310 l_element_entry_id pay_element_entries_f.element_entry_id%TYPE;
311 l_object_version_number pay_element_entries_f.object_version_number%TYPE;
312 l_effective_start_date pay_element_entries_f.effective_start_date%TYPE;
313 l_effective_end_date pay_element_entries_f.effective_end_date%TYPE;
314 l_creator_type pay_element_entries_f.creator_type%TYPE;
315 l_creator_id pay_element_entries_f.creator_id%TYPE;
316 --
317 BEGIN
318 hr_utility.set_location('Entering:'|| l_proc, 5);
319 --
320 -- Store initial values for IN OUT parameters
321 --
322 l_object_version_number := p_object_version_number;
323 --
324 -- Issue a savepoint if operating in validation only mode.
325 --
326 SAVEPOINT ghr_update_element_entry;
327 hr_utility.set_location(l_proc, 6);
328 --
329 --
330
331 ghr_session.set_session_var_for_core
332 (p_effective_date => p_effective_date
333 );
334
335 py_element_entry_api.update_element_entry
336 (
337 p_datetrack_update_mode => p_datetrack_update_mode,
338 p_effective_date => p_effective_date,
339 p_business_group_id => p_business_group_id,
340 p_element_entry_id => p_element_entry_id,
341 p_object_version_number => p_object_version_number,
342 p_cost_allocation_keyflex_id => p_cost_allocation_keyflex_id,
343 p_updating_action_id => p_updating_action_id,
344 p_original_entry_id => p_original_entry_id,
345 p_creator_type => p_creator_type,
346 p_comment_id => p_comment_id,
347 p_creator_id => p_creator_id,
348 p_reason => p_reason,
349 p_subpriority => p_subpriority,
350 p_date_earned => p_date_earned,
351 p_personal_payment_method_id => p_personal_payment_method_id,
352 p_attribute_category => p_attribute_category,
353 p_attribute1 => p_attribute1,
354 p_attribute2 => p_attribute2,
355 p_attribute3 => p_attribute3,
356 p_attribute4 => p_attribute4,
357 p_attribute5 => p_attribute5,
358 p_attribute6 => p_attribute6,
359 p_attribute7 => p_attribute7,
360 p_attribute8 => p_attribute8,
361 p_attribute9 => p_attribute9,
362 p_attribute10 => p_attribute10,
363 p_attribute11 => p_attribute11,
364 p_attribute12 => p_attribute12,
365 p_attribute13 => p_attribute13,
366 p_attribute14 => p_attribute14,
367 p_attribute15 => p_attribute15,
368 p_attribute16 => p_attribute16,
369 p_attribute17 => p_attribute17,
373 p_input_value_id1 => p_input_value_id1,
370 p_attribute18 => p_attribute18,
371 p_attribute19 => p_attribute19,
372 p_attribute20 => p_attribute20,
374 p_input_value_id2 => p_input_value_id2,
375 p_input_value_id3 => p_input_value_id3,
376 p_input_value_id4 => p_input_value_id4,
377 p_input_value_id5 => p_input_value_id5,
378 p_input_value_id6 => p_input_value_id6,
379 p_input_value_id7 => p_input_value_id7,
380 p_input_value_id8 => p_input_value_id8,
381 p_input_value_id9 => p_input_value_id9,
382 p_input_value_id10 => p_input_value_id10,
383 p_input_value_id11 => p_input_value_id11,
384 p_input_value_id12 => p_input_value_id12,
385 p_input_value_id13 => p_input_value_id13,
386 p_input_value_id14 => p_input_value_id14,
387 p_input_value_id15 => p_input_value_id15,
388 p_entry_value1 => p_entry_value1,
389 p_entry_value2 => p_entry_value2,
390 p_entry_value3 => p_entry_value3,
391 p_entry_value4 => p_entry_value4,
392 p_entry_value5 => p_entry_value5,
393 p_entry_value6 => p_entry_value6,
394 p_entry_value7 => p_entry_value7,
395 p_entry_value8 => p_entry_value8,
396 p_entry_value9 => p_entry_value9,
397 p_entry_value10 => p_entry_value10,
398 p_entry_value11 => p_entry_value11,
399 p_entry_value12 => p_entry_value12,
400 p_entry_value13 => p_entry_value13,
401 p_entry_value14 => p_entry_value14,
402 p_entry_value15 => p_entry_value15,
403 p_effective_start_Date => p_effective_start_date,
404 p_effective_end_date => p_effective_end_date,
405 p_update_warning => p_update_warning
406 );
407 --
408 hr_utility.set_location(l_proc, 8);
409 --
410 ghr_history_api.post_update_process;
411
412 -- When in validation only mode raise the Validate_Enabled exception
413 --
414
415 IF p_validate THEN
416 RAISE hr_api.validate_enabled;
417 END IF;
418 --
419 -- Set all output arguments
420 --
421 --
422 hr_utility.set_location(' Leaving:'||l_proc, 11);
423 EXCEPTION
424 WHEN hr_api.validate_enabled THEN
425 --
426 -- As the Validate_Enabled exception has been raised
427 -- we must rollback to the savepoint
428 --
429 ROLLBACK TO ghr_update_element_entry;
430 --
431 -- Only set output warning arguments
432 -- (Any key or derived arguments must be set to null
433 -- when validation only mode is being used.)
434 --
435 -- revisit this to check the correct assignment of values to the
436 -- variables
437 p_object_version_number := l_object_version_number;
438 p_effective_start_date := NULL;
439 p_effective_end_date := NULL;
440
441 hr_utility.set_location(' Leaving:'||l_proc, 12);
442 When others then
443 ROLLBACK TO ghr_update_element_entry;
444 raise;
445 END update_element_entry;
446
447 --
448 END ghr_element_entry_api;