[Home] [Help]
1: PACKAGE BODY hr_dm_delete AS
2: /* $Header: perdmdel.pkb 120.1 2005/06/15 02:09:35 nhunur noship $ */
3:
4:
5:
60: --
61: BEGIN
62: --
63:
64: hr_dm_utility.message('ROUT','entry:hr_dm_delete.set_active', 5);
65: hr_dm_utility.message('PARA','(p_migration_id - ' || p_migration_id || ')',
66: 10);
67:
68:
89:
90:
91: hr_dm_utility.message('INFO','Currently Active group set', 15);
92: hr_dm_utility.message('SUMM','Currently Active group set', 20);
93: hr_dm_utility.message('ROUT','exit:hr_dm_delete.set_active', 25);
94: hr_dm_utility.message('PARA','(none)', 30);
95:
96: -- error handling
97: EXCEPTION
95:
96: -- error handling
97: EXCEPTION
98: WHEN OTHERS THEN
99: hr_dm_utility.error(SQLCODE,'hr_dm_delete.set_active',
100: 'Error setting currently active group','D');
101: RAISE;
102:
103: --
267: -- error handling
268: EXCEPTION
269: WHEN OTHERS THEN
270: hr_utility.trace('An error occurred whilst deleting fnd information:');
271: hr_utility.trace(SQLERRM || ' in hr_dm_delete.del_fnd_info');
272: RAISE;
273:
274: --
275: END del_fnd_info;
404: IF (p_concurrent_process = 'Y') THEN
405: hr_dm_utility.message_init;
406: END IF;
407:
408: hr_dm_utility.message('ROUT','entry:hr_dm_delete.main', 5);
409: hr_dm_utility.message('PARA','(p_migration_id - ' || p_migration_id ||
410: ')(p_last_migration_date - ' ||
411: p_last_migration_date || ')', 10);
412:
548:
549:
550: hr_dm_utility.message('INFO','delete - slave process', 15);
551: hr_dm_utility.message('SUMM','delete - slave process', 20);
552: hr_dm_utility.message('ROUT','exit:hr_dm_delete.main', 25);
553: hr_dm_utility.message('PARA','(retcode - ' || retcode ||
554: ')(errbuf - ' || errbuf || ')', 30);
555:
556: -- error handling
558: WHEN e_fatal_error THEN
559: retcode := 0;
560: errbuf := 'An error occurred during the migration - examine logfiles for '
561: || 'detailed reports.';
562: hr_dm_utility.error(SQLCODE,'hr_dm_delete.main',l_fatal_error_message,'R');
563: WHEN OTHERS THEN
564: retcode := 2;
565: errbuf := 'An error occurred during the migration - examine logfiles for '
566: || 'detailed reports.';
566: || 'detailed reports.';
567: -- update status to error
568: hr_dm_utility.update_phase_items(p_new_status => 'E',
569: p_id => l_phase_item_id);
570: hr_dm_utility.error(SQLCODE,'hr_dm_delete.main','(none)','R');
571:
572: --
573: END main;
574: --
606: --
607: BEGIN
608: --
609:
610: hr_dm_utility.message('ROUT','entry:hr_dm_delete.pre_delete_process', 5);
611: hr_dm_utility.message('PARA','(r_migration_data - record)', 10);
612:
613:
614:
648: utl_file.put_line(l_filehandle, 'BEGIN');
649: utl_file.put_line(l_filehandle, '--');
650:
651: utl_file.put_line(l_filehandle, '-- local lookups, security info');
652: utl_file.put_line(l_filehandle, 'hr_dm_delete.del_fnd_info(' ||
653: r_migration_data.business_group_id || ');');
654: utl_file.put_line(l_filehandle, '');
655:
656: utl_file.put_line(l_filehandle, '');
774:
775:
776: hr_dm_utility.message('INFO','Delete - cleanup script', 15);
777: hr_dm_utility.message('SUMM','Delete - cleanup script', 20);
778: hr_dm_utility.message('ROUT','exit:hr_dm_delete.pre_delete_process', 25);
779: hr_dm_utility.message('PARA','(none)', 30);
780:
781: -- error handling
782: EXCEPTION
780:
781: -- error handling
782: EXCEPTION
783: WHEN e_fatal_error THEN
784: hr_dm_utility.error(SQLCODE,'hr_dm_delete.pre_delete_process',
785: l_fatal_error_message,'R');
786: RAISE;
787:
788: WHEN OTHERS THEN
785: l_fatal_error_message,'R');
786: RAISE;
787:
788: WHEN OTHERS THEN
789: hr_dm_utility.error(SQLCODE,'hr_dm_delete.pre_delete_process',
790: '(none)','R');
791: RAISE;
792:
793: --
795: --
796:
797:
798:
799: END hr_dm_delete;