[Home] [Help]
1: package body pay_hk_ir56
2: /* $Header: pyhkir56.pkb 120.3.12010000.6 2009/04/16 14:18:46 avenkatk ship $
3: **
4: ** Copyright (C) 2001 Oracle Corporation
5: ** All Rights Reserved
50: ** 15-JUN-2004 abhkumar 3626489 115.19 Added hr_utility.debug_enabled to each of three functions.
51: ** 15-JUN-2004 abhkumar 3626489 115.20 Commented hr_utility.debug_enabled and initialised g_debug to FALSE.
52: ** 31-JAN-2005 JLin 3609072 115.21 Modified to be able to run the balance retrieval batch mode.
53: ** 14-Dec-2005 snimmala 4864213 115.22 Added a new function get_quarters_start_date and is used in the view
54: ** pay_hk_ir56_quarters_info_v.
55: ** 09-Jan-2005 vborhade 4688776 115.23 Modified procedure get_emoluments for period end date.
56: ** 27-Sep-2007 skshin 6432592 115.24 Modified function get_emoluments to display indirect result for IR56_B
57: ** 20-Mar-2009 pmatamsr 8348781 115.25 Added condition in 'get_emoluments' function to fetch null into period dates when IR56 balance
58: ** contains a zero value.
170: /*Bug# 3626489 g_debug := hr_utility.debug_enabled;*/
171: g_debug := FALSE;
172:
173: IF g_debug THEN
174: hr_utility.trace('Leaving:' || 'pay_hk_ir56.get_emoluments');
175: hr_utility.trace('Values of the input parameters');
176: hr_utility.trace('------------------------------');
177: hr_utility.trace('Assignment id' || ' =>' || p_assignment_id);
178: hr_utility.trace('Assignment Action Id' || '=>' || p_assignment_action_id);
304:
305: RETURN g_emol_details;
306:
307: IF g_debug THEN
308: hr_utility.trace('Leaving:' || 'pay_hk_ir56.get_emoluments');
309: END IF;
310:
311: EXCEPTION
312: WHEN others THEN
342: /* Bug# 3626489 g_debug := hr_utility.debug_enabled;*/
343: g_debug := FALSE;
344:
345: IF g_debug THEN
346: hr_utility.trace('Entering:' || 'pay_hk_ir56.populate_defined_balance_ids');
347: END IF;
348:
349: /* Bug 3609072 */
350: p_balance_value_tab.delete;
391:
392: END LOOP;
393: IF g_debug THEN
394: hr_utility.trace('---------------------------------------------------------------------------------------');
395: hr_utility.trace('Leaving:' || 'pay_hk_ir56.populate_defined_balance_ids');
396: END IF;
397:
398: END populate_defined_balance_ids;
399:
410:
411: /* Bug# 3626489 g_debug := hr_utility.debug_enabled;*/
412: g_debug := FALSE;
413:
414: l_proc := 'pay_hk_ir56.get_last_anniversary'; --3626489
415: hr_utility.trace('In: ' || l_proc) ;
416: hr_utility.trace(' p_assignment_id: ' || to_char(p_assignment_id)) ;
417: hr_utility.trace(' p_calculation_date: ' || to_char(p_calculation_date,'DD-MON-YYYY')) ;
418:
429: * Bug 4864213 - Added the following function get_quarters_start_date to return the quaters start date
430: */
431:
432: FUNCTION get_quarters_start_date(p_assignment_id in per_assignments_f.assignment_id%TYPE,
433: p_source_id in pay_hk_ir56_quarters_actions_v.l_source_id%TYPE)
434: RETURN DATE IS
435:
436: l_quarters_start_date pay_hk_ir56_quarters_actions_v.start_date%TYPE;
437:
432: FUNCTION get_quarters_start_date(p_assignment_id in per_assignments_f.assignment_id%TYPE,
433: p_source_id in pay_hk_ir56_quarters_actions_v.l_source_id%TYPE)
434: RETURN DATE IS
435:
436: l_quarters_start_date pay_hk_ir56_quarters_actions_v.start_date%TYPE;
437:
438: CURSOR csr_get_quarters_start_date
439: IS
440: select min(start_date)
437:
438: CURSOR csr_get_quarters_start_date
439: IS
440: select min(start_date)
441: from pay_hk_ir56_quarters_actions_v
442: where assignment_id = p_assignment_id
443: and l_source_id = p_source_id;
444:
445: BEGIN
456: RETURN null;
457: END get_quarters_start_date;
458:
459:
460: end pay_hk_ir56;