[Home] [Help]
PACKAGE BODY: APPS.PAY_INPUT_VALUE_API
Source
1 Package Body PAY_INPUT_VALUE_API as
2 /* $Header: pyivlapi.pkb 120.3 2010/09/22 14:37:49 asnell noship $ */
3 --
4 -- Package Variables
5 --
6 g_package varchar2(33) := ' PAY_INPUT_VALUE_API.';
7
8 --
9 -- ----------------------------------------------------------------------------
10 -- |------------------------< CREATE_INPUT_VALUE_INT >-------------------------|
11 -- ----------------------------------------------------------------------------
12 --
13 procedure CREATE_INPUT_VALUE_INT
14 ( p_element_type_id IN number
15 ,p_generate_db_items_flag IN varchar2
16 ,p_hot_default_flag IN varchar2
17 ,p_name IN varchar2
18 ,p_uom IN varchar2
19 ,p_default_value IN varchar2
20 ,p_max_value IN varchar2
21 ,p_min_value IN varchar2
22 ,p_warning_or_error IN varchar2
23 ,p_input_value_id IN number
24 ,p_effective_start_date IN date
25 ,p_effective_end_date IN date
26 ) is
27
28 --
29 l_proc varchar2(72) := g_package||'PAY_INPUT_VALUE_INT';
30 --
31 begin
32
33 hr_utility.set_location('Entering: '|| l_proc, 10);
34
35 -- Cascade creation of link input values, Balance feeds and db items
36
37 pay_link_input_values_pkg.create_link_input_value (
38
39 p_input_value_id,
40 p_element_type_id,
41 p_effective_start_date ,
42 p_effective_end_date ,
43 -- change 115.12
44 p_name,
45 p_hot_default_flag,
46 p_default_value,
47 p_min_value,
48 p_max_value,
49 p_warning_or_error);
50
51 hr_utility.set_location(l_proc, 20);
52
53 -- Create balance feeds for pay values
54 --
55 -- change 115.12
56 if (p_name = 'Pay Value' -- the default
57 or upper (p_name) = upper (hr_general.pay_value)) then
58 hr_balance_feeds.ins_bf_pay_value (p_input_value_id);
59 end if;
60 --
61
62 hr_utility.set_location(l_proc, 30);
63
64 -- Bug 6432304
65 -- Moved the DB Item creation call from RHI to API to handle translation Errors.
66
67 -- bug 6609296
68
69 if( p_generate_db_items_flag = 'Y' or upper(p_name) = 'PAY VALUE' ) then
70 pay_input_values_pkg.recreate_db_items
71 (p_element_type_id);
72 end if;
73 --
74 hr_utility.set_location('Leaving: '|| l_proc, 40);
75
76 end CREATE_INPUT_VALUE_INT;
77 --
78
79 --
80 -- ----------------------------------------------------------------------------
81 -- |--------------------------< CREATE_INPUT_VALUE >--------------------------|
82 -- ----------------------------------------------------------------------------
83 --
84 procedure CREATE_INPUT_VALUE
85 (P_VALIDATE in boolean Default false
86 ,P_EFFECTIVE_DATE in date
87 ,P_ELEMENT_TYPE_ID in number
88 ,P_NAME in varchar2
89 ,P_UOM in varchar2
90 ,P_LOOKUP_TYPE in varchar2 Default Null
91 ,P_FORMULA_ID in number Default Null
92 ,P_VALUE_SET_ID in number Default Null
93 ,P_DISPLAY_SEQUENCE in number Default Null
94 ,P_GENERATE_DB_ITEMS_FLAG in varchar2 Default 'N'
95 ,P_HOT_DEFAULT_FLAG in varchar2 Default 'N'
96 ,P_MANDATORY_FLAG in varchar2 Default 'N'
97 ,P_DEFAULT_VALUE in varchar2 Default Null
98 ,P_MAX_VALUE in varchar2 Default Null
99 ,P_MIN_VALUE in varchar2 Default Null
100 ,P_WARNING_OR_ERROR in varchar2 Default Null
101 ,P_INPUT_VALUE_ID OUT NOCOPY number
102 ,P_OBJECT_VERSION_NUMBER OUT NOCOPY number
103 ,P_EFFECTIVE_START_DATE OUT NOCOPY date
104 ,P_EFFECTIVE_END_DATE OUT NOCOPY date
105 ,P_DEFAULT_VAL_WARNING OUT NOCOPY boolean
106 ,P_MIN_MAX_WARNING OUT NOCOPY boolean
107 ,P_PAY_BASIS_WARNING OUT NOCOPY boolean
108 ,P_FORMULA_WARNING OUT NOCOPY boolean
109 ,P_ASSIGNMENT_ID_WARNING OUT NOCOPY boolean
110 ,P_FORMULA_MESSAGE OUT NOCOPY varchar2
111 ) is
112 --
113 -- Declare cursors and local variables
114 --
115
116 cursor csr_derived_values
117 is
118 select business_group_id,legislation_code,legislation_subgroup
119 from pay_element_types_f
120 where element_type_id = p_element_type_id;
121
122 --
123
124 l_business_group_id pay_input_values_f.business_group_id%type;
125 l_legislation_code pay_input_values_f.legislation_code%type;
126 l_legislation_subgroup pay_input_values_f.legislation_subgroup%type;
127
128
129 l_proc varchar2(72) := g_package||'CREATE_INPUT_VALUE';
130 begin
131 hr_utility.set_location('Entering:'|| l_proc, 10);
132 --
133 -- Issue a savepoint
134 --
135 savepoint CREATE_INPUT_VALUE;
136 --
137 -- Call Before Process User Hook
138 --
139
140 open csr_derived_values;
141 fetch csr_derived_values into l_business_group_id,l_legislation_code,l_legislation_subgroup;
142 close csr_derived_values;
143
144 begin
145 PAY_INPUT_VALUE_bk1.CREATE_INPUT_VALUE_b
146 (P_VALIDATE
147 ,trunc(P_EFFECTIVE_DATE)
148 ,P_ELEMENT_TYPE_ID
149 ,L_BUSINESS_GROUP_ID
150 ,P_NAME
151 ,P_UOM
152 ,P_LOOKUP_TYPE
153 ,L_LEGISLATION_CODE
154 ,P_FORMULA_ID
155 ,P_VALUE_SET_ID
156 ,P_DISPLAY_SEQUENCE
157 ,P_GENERATE_DB_ITEMS_FLAG
158 ,P_HOT_DEFAULT_FLAG
159 ,P_MANDATORY_FLAG
160 ,P_DEFAULT_VALUE
161 ,L_LEGISLATION_SUBGROUP
162 ,P_MAX_VALUE
163 ,P_MIN_VALUE
164 ,P_WARNING_OR_ERROR
165 );
166 exception
167 when hr_api.cannot_find_prog_unit then
168 hr_api.cannot_find_prog_unit_error
169 (p_module_name => 'CREATE_INPUT_VALUE'
170 ,p_hook_type => 'BP'
171 );
172 end;
173 --
174 -- Validation in addition to Row Handlers
175 --
176 --
177 -- Process Logic
178 --
179
180 pay_ivl_ins.ins(
181 p_effective_date => trunc(p_effective_date)
182 ,p_element_type_id => p_element_type_id
183 ,p_display_sequence => p_display_sequence
184 ,p_generate_db_items_flag => p_generate_db_items_flag
185 ,p_hot_default_flag => p_hot_default_flag
186 ,p_mandatory_flag => p_mandatory_flag
187 ,p_name => p_name
188 ,p_uom => p_uom
189 ,p_lookup_type => p_lookup_type
190 ,p_business_group_id => l_business_group_id
191 ,p_legislation_code => l_legislation_code
192 ,p_formula_id => p_formula_id
193 ,p_value_set_id => p_value_set_id
194 ,p_default_value => p_default_value
195 ,p_legislation_subgroup => l_legislation_subgroup
196 ,p_max_value => p_max_value
197 ,p_min_value => p_min_value
198 ,p_warning_or_error => p_warning_or_error
199 ,p_input_value_id => p_input_value_id
200 ,p_object_version_number => p_object_version_number
201 ,p_effective_start_date => p_effective_start_date
202 ,p_effective_end_date => p_effective_end_date
203 ,p_default_val_warning => p_default_val_warning
204 ,p_min_max_warning => p_min_max_warning
205 ,p_pay_basis_warning => p_pay_basis_warning
206 ,p_formula_warning => p_formula_warning
207 ,p_assignment_id_warning => p_assignment_id_warning
208 ,p_formula_message => p_formula_message
209 );
210
211 -- Bug 6432304
212 -- Cascade creation of link input values, Balance feeds and db items is moved to
213 -- the internal procedure create_input_value_int
214
215 CREATE_INPUT_VALUE_INT
216 ( p_element_type_id => p_element_type_id
217 ,p_generate_db_items_flag => p_generate_db_items_flag
218 ,p_hot_default_flag => p_hot_default_flag
219 ,p_name => p_name
220 ,p_uom => p_uom
221 ,p_default_value => p_default_value
222 ,p_max_value => p_max_value
223 ,p_min_value => p_min_value
224 ,p_warning_or_error => p_warning_or_error
225 ,p_input_value_id => p_input_value_id
226 ,p_effective_start_date => p_effective_start_date
227 ,p_effective_end_date => p_effective_end_date
228 );
229
230 --
231 -- Call After Process User Hook
232 --
233 begin
234 PAY_INPUT_VALUE_bk1.CREATE_INPUT_VALUE_a
235 ( P_VALIDATE
236 ,trunc(P_EFFECTIVE_DATE)
237 ,P_ELEMENT_TYPE_ID
238 ,L_BUSINESS_GROUP_ID
239 ,P_NAME
240 ,P_UOM
241 ,P_LOOKUP_TYPE
242 ,L_LEGISLATION_CODE
243 ,P_FORMULA_ID
244 ,P_VALUE_SET_ID
245 ,P_DISPLAY_SEQUENCE
246 ,P_GENERATE_DB_ITEMS_FLAG
247 ,P_HOT_DEFAULT_FLAG
248 ,P_MANDATORY_FLAG
249 ,P_DEFAULT_VALUE
250 ,L_LEGISLATION_SUBGROUP
251 ,P_MAX_VALUE
252 ,P_MIN_VALUE
253 ,P_WARNING_OR_ERROR
254 ,P_INPUT_VALUE_ID
255 ,P_OBJECT_VERSION_NUMBER
256 ,P_EFFECTIVE_START_DATE
257 ,P_EFFECTIVE_END_DATE
258 ,P_DEFAULT_VAL_WARNING
259 ,P_MIN_MAX_WARNING
260 ,P_PAY_BASIS_WARNING
261 ,P_FORMULA_WARNING
262 ,P_ASSIGNMENT_ID_WARNING
263 ,P_FORMULA_MESSAGE
264 );
265 exception
266 when hr_api.cannot_find_prog_unit then
267 hr_api.cannot_find_prog_unit_error
268 (p_module_name => 'CREATE_INPUT_VALUE'
269 ,p_hook_type => 'AP'
270 );
271 end;
272 --
273 -- When in validation only mode raise the Validate_Enabled exception
274 --
275 if p_validate then
276 raise hr_api.validate_enabled;
277 end if;
278 --
279 -- Set all output arguments
280 --
281 p_input_value_id := p_input_value_id;
282 p_object_version_number := p_object_version_number;
283
284 --
285 hr_utility.set_location(' Leaving:'||l_proc, 70);
286 exception
287 when hr_api.validate_enabled then
288 --
289 -- As the Validate_Enabled exception has been raised
290 -- we must rollback to the savepoint
291 --
292 rollback to CREATE_INPUT_VALUE;
293 --
294 -- Only set output warning arguments
295 -- (Any key or derived arguments must be set to null
296 -- when validation only mode is being used.)
297 --
298 p_input_value_id := null;
299 p_object_version_number := null;
300 p_default_val_warning := null;
301 p_min_max_warning := null;
302 p_pay_basis_warning := null;
303 p_formula_warning := null;
304 p_assignment_id_warning := null;
305 p_formula_message := null;
306
307 hr_utility.set_location(' Leaving:'||l_proc, 80);
308 when others then
309 --
310 -- A validation or unexpected error has occured
311 --
312 rollback to CREATE_INPUT_VALUE;
313 hr_utility.set_location(' Leaving:'||l_proc, 90);
314 raise;
315 end CREATE_INPUT_VALUE;
316 --
317 --
318 -- ----------------------------------------------------------------------------
319 -- |--------------------------< UPDATE_INPUT_VALUE >--------------------------|
320 -- ----------------------------------------------------------------------------
321 --
322 procedure UPDATE_INPUT_VALUE
323 ( P_VALIDATE IN boolean Default false
324 ,P_EFFECTIVE_DATE IN date
325 ,P_DATETRACK_MODE IN varchar2
326 ,P_INPUT_VALUE_ID IN number
327 ,P_OBJECT_VERSION_NUMBER IN OUT NOCOPY number
328 ,P_NAME IN varchar2 Default hr_api.g_varchar2
329 ,P_UOM IN varchar2 Default hr_api.g_varchar2
330 ,P_LOOKUP_TYPE IN varchar2 Default hr_api.g_varchar2
331 ,P_FORMULA_ID IN number Default hr_api.g_number
332 ,P_VALUE_SET_ID IN number Default hr_api.g_number
333 ,P_DISPLAY_SEQUENCE IN number Default hr_api.g_number
334 ,P_GENERATE_DB_ITEMS_FLAG IN varchar2 Default hr_api.g_varchar2
335 ,P_HOT_DEFAULT_FLAG IN varchar2 Default hr_api.g_varchar2
336 ,P_MANDATORY_FLAG IN varchar2 Default hr_api.g_varchar2
337 ,P_DEFAULT_VALUE IN varchar2 Default hr_api.g_varchar2
338 ,P_MAX_VALUE IN varchar2 Default hr_api.g_varchar2
339 ,P_MIN_VALUE IN varchar2 Default hr_api.g_varchar2
340 ,P_WARNING_OR_ERROR IN varchar2 Default hr_api.g_varchar2
341 ,P_EFFECTIVE_START_DATE OUT NOCOPY date
342 ,P_EFFECTIVE_END_DATE OUT NOCOPY date
343 ,P_DEFAULT_VAL_WARNING OUT NOCOPY boolean
344 ,P_MIN_MAX_WARNING OUT NOCOPY boolean
345 ,P_LINK_INP_VAL_WARNING OUT NOCOPY boolean
346 ,P_PAY_BASIS_WARNING OUT NOCOPY boolean
347 ,P_FORMULA_WARNING OUT NOCOPY boolean
348 ,P_ASSIGNMENT_ID_WARNING OUT NOCOPY boolean
349 ,P_FORMULA_MESSAGE OUT NOCOPY varchar2
350 ) is
351 --
352 -- Declare cursors and local variables
353 --
354 cursor csr_derived_values
355 is
356 select business_group_id,legislation_code,element_type_id,legislation_subgroup
357 from pay_input_values_f
358 where input_value_id = p_input_value_id;
359
360
361 l_element_type_id pay_input_values_f.element_type_id%type;
362 l_business_group_id pay_input_values_f.business_group_id%type;
363 l_legislation_code pay_input_values_f.legislation_code%type;
364 l_legislation_subgroup pay_input_values_f.legislation_subgroup%type;
365
366 l_proc varchar2(72) := g_package||'UPDATE_INPUT_VALUE';
367 begin
368 hr_utility.set_location('Entering:'|| l_proc, 10);
369 --
370 -- Issue a savepoint
371 --
372 savepoint UPDATE_INPUT_VALUE;
373 --
374 -- Call Before Process User Hook
375 --
376 begin
377 PAY_INPUT_VALUE_bk2.UPDATE_INPUT_VALUE_b
378 (P_VALIDATE
379 ,trunc(P_EFFECTIVE_DATE)
380 ,P_DATETRACK_MODE
381 ,P_INPUT_VALUE_ID
382 ,P_OBJECT_VERSION_NUMBER
383 ,P_NAME
384 ,P_UOM
385 ,P_LOOKUP_TYPE
386 ,P_FORMULA_ID
387 ,P_VALUE_SET_ID
388 ,P_DISPLAY_SEQUENCE
389 ,P_GENERATE_DB_ITEMS_FLAG
390 ,P_HOT_DEFAULT_FLAG
391 ,P_MANDATORY_FLAG
392 ,P_DEFAULT_VALUE
393 ,P_MAX_VALUE
394 ,P_MIN_VALUE
395 ,P_WARNING_OR_ERROR
396 );
397 exception
398 when hr_api.cannot_find_prog_unit then
399 hr_api.cannot_find_prog_unit_error
400 (p_module_name => 'UPDATE_INPUT_VALUE'
401 ,p_hook_type => 'BP'
402 );
403 end;
404 --
405 -- Validation in addition to Row Handlers
406 --
407 open csr_derived_values;
408 fetch csr_derived_values into l_business_group_id,l_legislation_code,l_element_type_id,l_legislation_subgroup;
409 close csr_derived_values;
410 --
411 -- Process Logic
412 --
413
414 pay_ivl_upd.upd
415 (p_effective_date => trunc(p_effective_date)
416 ,p_datetrack_mode => p_datetrack_mode
417 ,p_input_value_id => p_input_value_id
418 ,p_object_version_number => p_object_version_number
419 ,p_element_type_id => l_element_type_id
420 ,p_display_sequence => p_display_sequence
421 ,p_generate_db_items_flag => p_generate_db_items_flag
422 ,p_hot_default_flag => p_hot_default_flag
423 ,p_mandatory_flag => p_mandatory_flag
424 ,p_name => p_name
425 ,p_uom => p_uom
426 ,p_lookup_type => p_lookup_type
427 ,p_business_group_id => l_business_group_id
428 ,p_legislation_code => l_legislation_code
429 ,p_formula_id => p_formula_id
430 ,p_value_set_id => p_value_set_id
431 ,p_default_value => p_default_value
432 ,p_legislation_subgroup => l_legislation_subgroup
433 ,p_max_value => p_max_value
434 ,p_min_value => p_min_value
435 ,p_warning_or_error => p_warning_or_error
436 ,p_effective_start_date => p_effective_start_date
437 ,p_effective_end_date => p_effective_end_date
438 ,p_default_val_warning => p_default_val_warning
439 ,p_min_max_warning => p_min_max_warning
440 ,p_link_inp_val_warning => p_link_inp_val_warning
441 ,p_pay_basis_warning => p_pay_basis_warning
442 ,p_formula_warning => p_formula_warning
443 ,p_assignment_id_warning => p_assignment_id_warning
444 ,p_formula_message => p_formula_message
445 );
446
447 -- Bug 6432304
448 -- Moved the DB Item update code from RHI to API to handle Translation issues.
449
450 if pay_ivl_shd.g_old_rec.name <> p_name or pay_ivl_shd.g_old_rec.uom <> p_uom
451 or pay_ivl_shd.g_old_rec.generate_db_items_flag <> p_generate_db_items_flag then
452 pay_input_values_pkg.recreate_db_items(l_element_type_id);
453 end if;
454
455 --
456 -- Call After Process User Hook
457 --
458 begin
459 PAY_INPUT_VALUE_bk2.UPDATE_INPUT_VALUE_a
460 (P_VALIDATE
461 ,trunc(P_EFFECTIVE_DATE)
462 ,P_DATETRACK_MODE
463 ,P_INPUT_VALUE_ID
464 ,P_OBJECT_VERSION_NUMBER
465 ,P_NAME
466 ,P_UOM
467 ,P_LOOKUP_TYPE
468 ,P_FORMULA_ID
469 ,P_VALUE_SET_ID
470 ,P_DISPLAY_SEQUENCE
471 ,P_GENERATE_DB_ITEMS_FLAG
472 ,P_HOT_DEFAULT_FLAG
473 ,P_MANDATORY_FLAG
474 ,P_DEFAULT_VALUE
475 ,P_MAX_VALUE
476 ,P_MIN_VALUE
477 ,P_WARNING_OR_ERROR
478 ,P_EFFECTIVE_START_DATE
479 ,P_EFFECTIVE_END_DATE
480 ,P_DEFAULT_VAL_WARNING
481 ,P_MIN_MAX_WARNING
482 ,P_LINK_INP_VAL_WARNING
483 ,P_PAY_BASIS_WARNING
484 ,P_FORMULA_WARNING
485 ,P_ASSIGNMENT_ID_WARNING
486 ,P_FORMULA_MESSAGE
487 );
488 exception
489 when hr_api.cannot_find_prog_unit then
490 hr_api.cannot_find_prog_unit_error
491 (p_module_name => 'UPDATE_INPUT_VALUE'
492 ,p_hook_type => 'AP'
493 );
494 end;
495 --
496 -- When in validation only mode raise the Validate_Enabled exception
497 --
498 if p_validate then
499 raise hr_api.validate_enabled;
500 -- bug 10119731 missing ovn end if;
501 --
502 -- Set all output arguments
503 --
504 p_object_version_number := null;
505 p_default_val_warning := null;
506 p_min_max_warning := null;
507 p_link_inp_val_warning := null;
508 p_pay_basis_warning := null;
509 p_formula_warning := null;
510 p_assignment_id_warning := null;
511 p_formula_message := null;
512 end if; -- bug 10119731
513 --
514 hr_utility.set_location(' Leaving:'||l_proc, 70);
515 exception
516 when hr_api.validate_enabled then
517 --
518 -- As the Validate_Enabled exception has been raised
519 -- we must rollback to the savepoint
520 --
521 rollback to UPDATE_INPUT_VALUE;
522 --
523 -- Only set output warning arguments
524 -- (Any key or derived arguments must be set to null
525 -- when validation only mode is being used.)
526 --
527 p_object_version_number := p_object_version_number;
528 hr_utility.set_location(' Leaving:'||l_proc, 80);
529 when others then
530 --
531 -- A validation or unexpected error has occured
532 --
533 rollback to UPDATE_INPUT_VALUE;
534 hr_utility.set_location(' Leaving:'||l_proc, 90);
535 raise;
536 end UPDATE_INPUT_VALUE;
537 --
538 --
539 --
540 -- ----------------------------------------------------------------------------
541 -- |--------------------------< DELETE_INPUT_VALUE >--------------------------|
542 -- ----------------------------------------------------------------------------
543 --
544 procedure DELETE_INPUT_VALUE
545 ( P_VALIDATE IN boolean default false
546 ,P_EFFECTIVE_DATE IN date
547 ,P_DATETRACK_DELETE_MODE IN varchar2
548 ,P_INPUT_VALUE_ID IN number
549 ,P_OBJECT_VERSION_NUMBER IN OUT NOCOPY number
550 ,P_EFFECTIVE_START_DATE OUT NOCOPY date
551 ,P_EFFECTIVE_END_DATE OUT NOCOPY date
552 ,P_BALANCE_FEEDS_WARNING OUT NOCOPY boolean
553 ) is
554 --
555 -- Declare cursors and local variables
556 --
557
558 l_proc varchar2(72) := g_package||'DELETE_INPUT_VALUE';
559 begin
560 hr_utility.set_location('Entering:'|| l_proc, 10);
561 --
562 -- Issue a savepoint
563 --
564 savepoint DELETE_INPUT_VALUE;
565 --
566 -- Call Before Process User Hook
567 --
568 begin
569 PAY_INPUT_VALUE_bk3.DELETE_INPUT_VALUE_b
570 (P_VALIDATE
571 ,trunc(P_EFFECTIVE_DATE)
572 ,P_DATETRACK_DELETE_MODE
573 ,P_INPUT_VALUE_ID
574 ,P_OBJECT_VERSION_NUMBER
575 );
576 exception
577 when hr_api.cannot_find_prog_unit then
578 hr_api.cannot_find_prog_unit_error
579 (p_module_name => 'DELETE_INPUT_VALUE'
580 ,p_hook_type => 'BP'
581 );
582 end;
583 --
584 -- Validation in addition to Row Handlers
585 --
586 -- bug 10119731 finding this error loading seed data so supress in startup mode
587 if P_DATETRACK_DELETE_MODE = 'DELETE' and
588 not (hr_startup_data_api_support.g_startup_mode IN ('STARTUP')) then
589 hr_utility.set_message(801,'HR_7098_INPVAL_NO_CHANGES');
590 hr_utility.raise_error;
591 end if;
592
593
594
595 --
596 -- Process Logic
597 --
598 hr_utility.trace('pre pay_ivl_del.del. p_object_version_number:'||to_char(p_object_version_number));
599
600 pay_ivl_del.del
601 (p_effective_date => trunc(p_effective_date)
602 ,p_datetrack_mode => p_datetrack_delete_mode
603 ,p_input_value_id => p_input_value_id
604 ,p_object_version_number => p_object_version_number
605 ,p_effective_start_date => p_effective_start_date
606 ,p_effective_end_date => p_effective_end_date
607 ,p_balance_feeds_warning => p_balance_feeds_warning);
608
609 --
610 -- Call After Process User Hook
611 --
612 begin
613 PAY_INPUT_VALUE_bk3.DELETE_INPUT_VALUE_a
614 ( P_VALIDATE
615 ,trunc(P_EFFECTIVE_DATE)
616 ,P_DATETRACK_DELETE_MODE
617 ,P_INPUT_VALUE_ID
618 ,P_OBJECT_VERSION_NUMBER
619 ,P_EFFECTIVE_START_DATE
620 ,P_EFFECTIVE_END_DATE
621 ,p_balance_feeds_warning
622 );
623 exception
624 when hr_api.cannot_find_prog_unit then
625 hr_api.cannot_find_prog_unit_error
626 (p_module_name => 'DELETE_INPUT_VALUE'
627 ,p_hook_type => 'AP'
628 );
629 end;
630 --
631 -- When in validation only mode raise the Validate_Enabled exception
632 --
633 if p_validate then
634 raise hr_api.validate_enabled;
635 end if;
636 --
637 -- Set all output arguments
638 --
639 p_object_version_number := p_object_version_number;
640 --
641 hr_utility.set_location(' Leaving:'||l_proc, 70);
642 exception
643 when hr_api.validate_enabled then
644 --
645 -- As the Validate_Enabled exception has been raised
646 -- we must rollback to the savepoint
647 --
648 rollback to DELETE_INPUT_VALUE;
649 --
650 -- Only set output warning arguments
651 -- (Any key or derived arguments must be set to null
652 -- when validation only mode is being used.)
653 --
654 p_object_version_number := null;
655 p_balance_feeds_warning := null;
656
657 hr_utility.set_location(' Leaving:'||l_proc, 80);
658 when others then
659 --
660 -- A validation or unexpected error has occured
661 --
662 rollback to DELETE_INPUT_VALUE;
663 hr_utility.set_location(' Leaving:'||l_proc, 90);
664 raise;
665 end DELETE_INPUT_VALUE;
666 --
667 end PAY_INPUT_VALUE_API;