1: PACKAGE BODY pay_au_retro_upgrade AS
2: /* $Header: payauretroupg.pkb 120.27.12020000.4 2012/09/25 05:37:04 skshin ship $ */
3: /*
4: ******************************************************************
5: * *
19: * England. *
20: * *
21: ******************************************************************
22:
23: Name : pay_au_retro_upgrade
24:
25: Description : This procedure is used to upgrade elements for
26: Enhanced Retropay.
27:
3677: l_procedure_name := '.enable_au_enhanced_retro';
3678: hr_utility.trace('Entering '||gv_package_name||l_procedure_name);
3679: END IF;
3680:
3681: l_leg_rule := pay_au_retro_upgrade.set_retro_leg_rule(p_calling_form => 'UPGRADE');
3682:
3683: IF ( l_leg_rule = 'Y')
3684: THEN
3685: fnd_file.put_line(FND_FILE.LOG,' MESSAGE: Enhanced Retropay Rule Enabled ');
3682:
3683: IF ( l_leg_rule = 'Y')
3684: THEN
3685: fnd_file.put_line(FND_FILE.LOG,' MESSAGE: Enhanced Retropay Rule Enabled ');
3686: pay_au_retro_upgrade.create_enhanced_retro_defn;
3687: fnd_file.put_line(FND_FILE.LOG,' MESSAGE: Enhanced Retropay Retro Definitions Created ');
3688: pay_au_retro_upgrade.set_enh_retro_request_group;
3689: fnd_file.put_line(FND_FILE.LOG,' MESSAGE: Request Group - programs for Enhanced Retropay added ');
3690: fnd_file.put_line(FND_FILE.LOG,' MESSAGE: Enhanced Retropay is enabled for the following Australian Business Groups :');
3684: THEN
3685: fnd_file.put_line(FND_FILE.LOG,' MESSAGE: Enhanced Retropay Rule Enabled ');
3686: pay_au_retro_upgrade.create_enhanced_retro_defn;
3687: fnd_file.put_line(FND_FILE.LOG,' MESSAGE: Enhanced Retropay Retro Definitions Created ');
3688: pay_au_retro_upgrade.set_enh_retro_request_group;
3689: fnd_file.put_line(FND_FILE.LOG,' MESSAGE: Request Group - programs for Enhanced Retropay added ');
3690: fnd_file.put_line(FND_FILE.LOG,' MESSAGE: Enhanced Retropay is enabled for the following Australian Business Groups :');
3691:
3692: FOR i IN csr_get_business_group_name /*Bug 5879422 */
3807: END enable_au_retro_overlap;
3808:
3809: BEGIN
3810:
3811: gv_package_name := 'pay_au_retro_upgrade';
3812: g_legislation_code := 'AU';
3813:
3814: END pay_au_retro_upgrade;
3810:
3811: gv_package_name := 'pay_au_retro_upgrade';
3812: g_legislation_code := 'AU';
3813:
3814: END pay_au_retro_upgrade;