12: AND pei.information_type = 'PER_SUCCESSION_PLANNING');
13: l_data_exist VARCHAR2(10);
14: BEGIN
15: IF NVL(fnd_profile.value('HR_SUCCESSION_MGMT_LICENSED'),'N') = 'N' THEN
16: fnd_file.put_line(fnd_file.log,'Oracle Succession Management is not licensed. No need of running the migration program. Exiting.');
17: retcode := 2;
18: END IF;
19: OPEN csr_chk_eit(p_business_group_id);
20: FETCH csr_chk_eit INTO l_data_exist;
18: END IF;
19: OPEN csr_chk_eit(p_business_group_id);
20: FETCH csr_chk_eit INTO l_data_exist;
21: IF csr_chk_eit%FOUND THEN
22: fnd_file.put_line(fnd_file.log,'Data Exist in EIT PER_SUCCESSION_PLANNING. Continue with migration');
23: ELSE
24: fnd_file.put_line(fnd_file.log,'No data is entered in the EIT PER_SUCCESSION_PLANNING. Nothing to migrate.Exiting.');
25: retcode := 1;
26: END IF;
20: FETCH csr_chk_eit INTO l_data_exist;
21: IF csr_chk_eit%FOUND THEN
22: fnd_file.put_line(fnd_file.log,'Data Exist in EIT PER_SUCCESSION_PLANNING. Continue with migration');
23: ELSE
24: fnd_file.put_line(fnd_file.log,'No data is entered in the EIT PER_SUCCESSION_PLANNING. Nothing to migrate.Exiting.');
25: retcode := 1;
26: END IF;
27: CLOSE csr_chk_eit;
28: END check_migration_required;
68: FOR i IN csr_suc_potential(p_business_group_id)
69: LOOP
70: retcode := 1;
71: IF counter = 0 THEN
72: fnd_file.put_line(fnd_file.log,'Lookup codes not mapped from PER_SUCC_PLAN_POTENTIAL to READINESS_LEVEL are listed below.');
73: fnd_file.put_line(fnd_file.log,'-----------------------------------------------------------------------------------------');
74: END IF;
75: fnd_file.put_line(fnd_file.log, i.lookup_code||'-'||i.meaning);
76: counter := counter +1;
69: LOOP
70: retcode := 1;
71: IF counter = 0 THEN
72: fnd_file.put_line(fnd_file.log,'Lookup codes not mapped from PER_SUCC_PLAN_POTENTIAL to READINESS_LEVEL are listed below.');
73: fnd_file.put_line(fnd_file.log,'-----------------------------------------------------------------------------------------');
74: END IF;
75: fnd_file.put_line(fnd_file.log, i.lookup_code||'-'||i.meaning);
76: counter := counter +1;
77: END LOOP;
71: IF counter = 0 THEN
72: fnd_file.put_line(fnd_file.log,'Lookup codes not mapped from PER_SUCC_PLAN_POTENTIAL to READINESS_LEVEL are listed below.');
73: fnd_file.put_line(fnd_file.log,'-----------------------------------------------------------------------------------------');
74: END IF;
75: fnd_file.put_line(fnd_file.log, i.lookup_code||'-'||i.meaning);
76: counter := counter +1;
77: END LOOP;
78: fnd_file.put_line(fnd_file.log,'-----------------------------------------------------------------------------------------');
79: counter := 0;
74: END IF;
75: fnd_file.put_line(fnd_file.log, i.lookup_code||'-'||i.meaning);
76: counter := counter +1;
77: END LOOP;
78: fnd_file.put_line(fnd_file.log,'-----------------------------------------------------------------------------------------');
79: counter := 0;
80: FOR i IN csr_risk_of_loss(p_business_group_id)
81: LOOP
82: retcode := 1;
80: FOR i IN csr_risk_of_loss(p_business_group_id)
81: LOOP
82: retcode := 1;
83: IF counter = 0 THEN
84: fnd_file.put_line(fnd_file.log,'Lookup codes not mapped from PER_SUCC_PLAN_RISK_LEVEL to PER_RETENTION_POTENTIAL are listed below.');
85: fnd_file.put_line(fnd_file.log,'-----------------------------------------------------------------------------------------');
86: END IF;
87: fnd_file.put_line(fnd_file.log, i.lookup_code||'-'||i.meaning);
88: counter := counter +1;
81: LOOP
82: retcode := 1;
83: IF counter = 0 THEN
84: fnd_file.put_line(fnd_file.log,'Lookup codes not mapped from PER_SUCC_PLAN_RISK_LEVEL to PER_RETENTION_POTENTIAL are listed below.');
85: fnd_file.put_line(fnd_file.log,'-----------------------------------------------------------------------------------------');
86: END IF;
87: fnd_file.put_line(fnd_file.log, i.lookup_code||'-'||i.meaning);
88: counter := counter +1;
89: END LOOP;
83: IF counter = 0 THEN
84: fnd_file.put_line(fnd_file.log,'Lookup codes not mapped from PER_SUCC_PLAN_RISK_LEVEL to PER_RETENTION_POTENTIAL are listed below.');
85: fnd_file.put_line(fnd_file.log,'-----------------------------------------------------------------------------------------');
86: END IF;
87: fnd_file.put_line(fnd_file.log, i.lookup_code||'-'||i.meaning);
88: counter := counter +1;
89: END LOOP;
90: fnd_file.put_line(fnd_file.log,'-----------------------------------------------------------------------------------------');
91: END check_lookup_mappings;
86: END IF;
87: fnd_file.put_line(fnd_file.log, i.lookup_code||'-'||i.meaning);
88: counter := counter +1;
89: END LOOP;
90: fnd_file.put_line(fnd_file.log,'-----------------------------------------------------------------------------------------');
91: END check_lookup_mappings;
92: --
93: --
94: PROCEDURE migrate_lookup_data(p_business_group_id IN NUMBER) IS
127: ,p_person_extra_info_id => l_person_extra_info_id
128: ,p_object_version_number => l_ovn);
129: END LOOP;
130: EXCEPTION WHEN OTHERS THEN
131: fnd_file.put_line(fnd_file.log,'Error while migrating the data to new EIT Structure');
132: rollback;
133: RAISE;
134: END migrate_lookup_data;
135: --
149: EXCEPTION
150: WHEN OTHERS THEN
151: Rollback;
152: retcode := 2;
153: fnd_file.put_line(fnd_file.log,'Error while completing the migation of EIT Data for Succession Management');
154: fnd_file.put_line(fnd_file.log,'ERROR: '||SQLERRM);
155: END migrate_succ_plan_eit;
156: END per_succ_mgmt_migration_pkg;
150: WHEN OTHERS THEN
151: Rollback;
152: retcode := 2;
153: fnd_file.put_line(fnd_file.log,'Error while completing the migation of EIT Data for Succession Management');
154: fnd_file.put_line(fnd_file.log,'ERROR: '||SQLERRM);
155: END migrate_succ_plan_eit;
156: END per_succ_mgmt_migration_pkg;