[Home] [Help]
143: p_business_group_id IN NUMBER)
144: IS
145: l_legislation_code VARCHAR2(2);
146: BEGIN
147: hr_utility.set_location('pay_jp_custom_pkg.set_globals',10);
148:
149: if nvl(g_business_group_id,-1) <> p_business_group_id then
150: hr_utility.set_location('pay_jp_custom_pkg.set_globals',20);
151:
146: BEGIN
147: hr_utility.set_location('pay_jp_custom_pkg.set_globals',10);
148:
149: if nvl(g_business_group_id,-1) <> p_business_group_id then
150: hr_utility.set_location('pay_jp_custom_pkg.set_globals',20);
151:
152: -- Name Translation
153: g_name_tl.salary := fnd_message.get_string('PAY','PAY_JP_SALARY');
154: g_name_tl.bonus := fnd_message.get_string('PAY','PAY_JP_BONUS');
290: -- Disaster Tax Reduction
291: g_bal.disaster_tax_reduction := hr_jp_id_pkg.balance_type_id('B_YEA_GRACE_ITX',NULL,l_legislation_code);
292: end if;
293:
294: hr_utility.set_location('pay_jp_custom_pkg.set_globals',30);
295: END SETUP_GLOBALS;
296:
297: -----------------------------------------------------------------------
298: PROCEDURE VALIDATE_RECORD(
301: p_action_status OUT NOCOPY VARCHAR2,
302: p_message OUT NOCOPY VARCHAR2)
303: IS
304: BEGIN
305: hr_utility.set_location('pay_jp_custom_pkg.validate_record',10);
306:
307: p_action_status := 'C';
308:
309: -- Write your own validation here.
364: p_message := fnd_message.get;
365: return;
366: end if;
367:
368: hr_utility.set_location('pay_jp_custom_pkg.validate_record',20);
369: END VALIDATE_RECORD;
370: --------------------------------------------------------------
371: PROCEDURE GET_ITAX_CATEGORY(
372: --------------------------------------------------------------
483: --
484: return l_sal_category;
485: end get_salary_category;
486: BEGIN
487: hr_utility.set_location('pay_jp_custom_pkg.get_itax_category',10);
488: /*
489: open csr_element_set_name(p_assignment_action_id);
490: fetch csr_element_set_name into l_element_set_name,l_business_group_id,l_date_earned,l_assignment_id,l_effective_date;
491: if csr_element_set_name%NOTFOUND then
524: -- Identify "Salary Category" and "YEA Category"
525: --
526: -- if l_element_set_name is not NULL then
527: if l_element_set_id is not NULL then
528: hr_utility.set_location('pay_jp_custom_pkg.get_itax_category',20);
529: --
530: select element_set_name,
531: legislation_code
532: into l_element_set_name, l_legislation_code
560: else
561: l_salary_category := 'NA';
562: end if;
563: else
564: hr_utility.set_location('pay_jp_custom_pkg.get_itax_category',30);
565: --
566: if l_element_type_id is not null then
567: select pet.element_name,
568: pec.classification_name,
591: -- This routine can't judge whether YEA and RE-YEA.
592: -- So it's not recommended to use QuickPay Run and Balance Adjustment.
593: for l_rec in csr_classification_name(p_assignment_action_id) loop
594: if nvl(l_rec.balance_initialization_flag,'N') = 'Y' then
595: hr_utility.set_location('pay_jp_custom_pkg.get_itax_category',40);
596: --
597: if (l_rec.element_name like g_name_tl.bal_init_prefix || g_name_tl.salary || '%'
598: and (l_rec.element_name like 'INI_SAL%' and l_rec.legislation_code = 'JP')) then
599: l_salary_category := 'SALARY';
635: l_salary_category := 'NA';
636: exit;
637: end if;
638: else
639: hr_utility.set_location('pay_jp_custom_pkg.get_itax_category',50);
640: --
641: l_salary_category := get_salary_category(l_rec.classification_name, l_rec.legislation_code);
642: if l_salary_category <> 'NA' then
643: exit;
678: l_itax_category := 'NA';
679: end if;
680:
681: if l_itax_category is NULL then
682: hr_utility.set_location('pay_jp_custom_pkg.get_itax_category',60);
683:
684: -- l_nonresident := pay_jp_balance_pkg.get_entry_value_char(g_itax.gen_nr_iv_id,l_assignment_id,l_date_earned);
685:
686: l_non_res_date := pay_jp_balance_pkg.get_entry_value_date(g_itax.non_res_date_iv_id,l_assignment_id,l_effective_date);
701: else
702: l_itax_category := nvl(pay_jp_balance_pkg.get_entry_value_char(g_itax.gen_iv_id,l_assignment_id,l_effective_date),'E');
703: end if;
704: elsif l_itax_category = 'NA' then
705: hr_utility.set_location('pay_jp_custom_pkg.get_itax_category',70);
706:
707: l_itax_category := NULL;
708: end if;
709:
710: p_salary_category := l_salary_category;
711: p_itax_category := l_itax_category;
712: p_itax_yea_category := l_itax_yea_category;
713:
714: hr_utility.set_location('pay_jp_custom_pkg.get_itax_category',80);
715: END GET_ITAX_CATEGORY;
716:
717: -----------------------------------------------------------------------
718: PROCEDURE FETCH_VALUES(
724: P_VALUE OUT NOCOPY value_rec)
725: IS
726: l_value value_rec;
727: BEGIN
728: hr_utility.set_location('pay_jp_custom_pkg.get_itax_category',10);
729:
730: -- Get Salary Category, Itax Category and Itax Year-End-Adjustment Process Category.
731: pay_jp_custom_pkg.get_itax_category(
732: P_ASSIGNMENT_ACTION_ID => p_assignment_action_id,
862: end if;
863:
864: p_value := l_value;
865:
866: hr_utility.set_location('pay_jp_custom_pkg.get_itax_category',20);
867: END FETCH_VALUES;
868: END PAY_JP_CUSTOM_PKG;