294:
295: p_atomic_linked_calls := (l_atomic_linked_calls = 'Y');
296: exception
297: when no_data_found then
298: hr_utility.set_message(800, 'HR_33798_DP_BATCH_NOT_FOUND');
299: hr_utility.set_message_token('BATCH_ID', to_char(p_batch_id));
300: hr_utility.raise_error;
301: end header_read;
302:
295: p_atomic_linked_calls := (l_atomic_linked_calls = 'Y');
296: exception
297: when no_data_found then
298: hr_utility.set_message(800, 'HR_33798_DP_BATCH_NOT_FOUND');
299: hr_utility.set_message_token('BATCH_ID', to_char(p_batch_id));
300: hr_utility.raise_error;
301: end header_read;
302:
303: procedure fail
296: exception
297: when no_data_found then
298: hr_utility.set_message(800, 'HR_33798_DP_BATCH_NOT_FOUND');
299: hr_utility.set_message_token('BATCH_ID', to_char(p_batch_id));
300: hr_utility.raise_error;
301: end header_read;
302:
303: procedure fail
304: (
370:
371: -- Reset the failure flag.
372: g_fail_info.fail_flag := FALSE;
373:
374: hr_utility.trace_on('F', 'REQID');
375: hr_utility.trace('Fail [' || g_fail_info.func_name || ']');
376: hr_utility.trace('args: ' || g_fail_info.arg_values);
377: hr_utility.trace(g_fail_info.error_msg);
378: hr_utility.trace_off;
371: -- Reset the failure flag.
372: g_fail_info.fail_flag := FALSE;
373:
374: hr_utility.trace_on('F', 'REQID');
375: hr_utility.trace('Fail [' || g_fail_info.func_name || ']');
376: hr_utility.trace('args: ' || g_fail_info.arg_values);
377: hr_utility.trace(g_fail_info.error_msg);
378: hr_utility.trace_off;
379:
372: g_fail_info.fail_flag := FALSE;
373:
374: hr_utility.trace_on('F', 'REQID');
375: hr_utility.trace('Fail [' || g_fail_info.func_name || ']');
376: hr_utility.trace('args: ' || g_fail_info.arg_values);
377: hr_utility.trace(g_fail_info.error_msg);
378: hr_utility.trace_off;
379:
380: end get_id_failure;
373:
374: hr_utility.trace_on('F', 'REQID');
375: hr_utility.trace('Fail [' || g_fail_info.func_name || ']');
376: hr_utility.trace('args: ' || g_fail_info.arg_values);
377: hr_utility.trace(g_fail_info.error_msg);
378: hr_utility.trace_off;
379:
380: end get_id_failure;
381:
374: hr_utility.trace_on('F', 'REQID');
375: hr_utility.trace('Fail [' || g_fail_info.func_name || ']');
376: hr_utility.trace('args: ' || g_fail_info.arg_values);
377: hr_utility.trace(g_fail_info.error_msg);
378: hr_utility.trace_off;
379:
380: end get_id_failure;
381:
382: /* provides entry macro */
388: if(not g_debug.call_trace_dbg) then
389: return;
390: end if;
391:
392: hr_utility.trace_on('F', 'REQID');
393: hr_utility.trace('In : ' || p_procedure_name);
394: hr_utility.trace_off;
395: end entry;
396:
389: return;
390: end if;
391:
392: hr_utility.trace_on('F', 'REQID');
393: hr_utility.trace('In : ' || p_procedure_name);
394: hr_utility.trace_off;
395: end entry;
396:
397: /* provides entry macro */
390: end if;
391:
392: hr_utility.trace_on('F', 'REQID');
393: hr_utility.trace('In : ' || p_procedure_name);
394: hr_utility.trace_off;
395: end entry;
396:
397: /* provides entry macro */
398: procedure exit
403: if(not g_debug.call_trace_dbg) then
404: return;
405: end if;
406:
407: hr_utility.trace_on('F', 'REQID');
408: hr_utility.trace('Out : ' || p_procedure_name);
409: hr_utility.trace_off;
410: end exit;
411:
404: return;
405: end if;
406:
407: hr_utility.trace_on('F', 'REQID');
408: hr_utility.trace('Out : ' || p_procedure_name);
409: hr_utility.trace_off;
410: end exit;
411:
412: /* API trace on. */
405: end if;
406:
407: hr_utility.trace_on('F', 'REQID');
408: hr_utility.trace('Out : ' || p_procedure_name);
409: hr_utility.trace_off;
410: end exit;
411:
412: /* API trace on. */
413: procedure api_trc_on is
415: if(not g_debug.api_module_dbg) then
416: return;
417: end if;
418:
419: hr_utility.trace_on('F', 'REQID');
420: end api_trc_on;
421:
422: /* API trace off. */
423: procedure api_trc_off is
425: if(not g_debug.api_module_dbg) then
426: return;
427: end if;
428:
429: hr_utility.trace_off;
430: end api_trc_off;
431:
432: /* general message procedure */
433: procedure message
444: if(not g_debug.message_dbg) then
445: return;
446: end if;
447:
448: hr_utility.trace_on('F', 'REQID');
449: hr_utility.trace(p_message);
450: hr_utility.trace_off;
451: end message;
452:
445: return;
446: end if;
447:
448: hr_utility.trace_on('F', 'REQID');
449: hr_utility.trace(p_message);
450: hr_utility.trace_off;
451: end message;
452:
453: /*
446: end if;
447:
448: hr_utility.trace_on('F', 'REQID');
449: hr_utility.trace(p_message);
450: hr_utility.trace_off;
451: end message;
452:
453: /*
454: * Procedure to output information about the
459: begin
460: -- Check for debug
461: if(g_debug.wrap_cache_dbg) then
462: -- Initialise the trace.
463: hr_utility.trace_on('F', 'REQID');
464:
465: -- Output the information.
466: hr_utility.trace('Wrapper cache debug....');
467:
462: -- Initialise the trace.
463: hr_utility.trace_on('F', 'REQID');
464:
465: -- Output the information.
466: hr_utility.trace('Wrapper cache debug....');
467:
468: -- Finished, no more trace.
469: hr_utility.trace_off;
470: end if;
465: -- Output the information.
466: hr_utility.trace('Wrapper cache debug....');
467:
468: -- Finished, no more trace.
469: hr_utility.trace_off;
470: end if;
471: end wrap_cache_debug;
472:
473:
488: if(not g_debug.range_ins_dbg) then
489: return;
490: end if;
491:
492: hr_utility.trace_on('F', 'REQID');
493:
494: -- The following outputs a header line for every few
495: -- rows of logging output to make things easier when
496: -- there are lots of rows being processed.
495: -- rows of logging output to make things easier when
496: -- there are lots of rows being processed.
497: if(p_info.range_number = 1 or mod(p_info.range_number, DEBUG_PAGES) = 0)
498: then
499: hr_utility.trace(' * RRI Ins Info * |---- Range ----|');
500: hr_utility.trace(' Number Rows Start End');
501: hr_utility.trace(' -------- -------- -------- --------');
502: end if;
503:
496: -- there are lots of rows being processed.
497: if(p_info.range_number = 1 or mod(p_info.range_number, DEBUG_PAGES) = 0)
498: then
499: hr_utility.trace(' * RRI Ins Info * |---- Range ----|');
500: hr_utility.trace(' Number Rows Start End');
501: hr_utility.trace(' -------- -------- -------- --------');
502: end if;
503:
504: -- Number of rows is always over counted by one.
497: if(p_info.range_number = 1 or mod(p_info.range_number, DEBUG_PAGES) = 0)
498: then
499: hr_utility.trace(' * RRI Ins Info * |---- Range ----|');
500: hr_utility.trace(' Number Rows Start End');
501: hr_utility.trace(' -------- -------- -------- --------');
502: end if;
503:
504: -- Number of rows is always over counted by one.
505: l_rows_in_range := p_info.rows_in_range - 1;
508: l_rows := lpad(l_rows_in_range, 8) || ' ';
509: l_start := lpad(p_info.range_start, 8) || ' ';
510: l_end := lpad(p_info.range_end, 8);
511:
512: hr_utility.trace(l_number || l_rows || l_start || l_end);
513:
514: hr_utility.trace_off;
515:
516: end range_ins_debug;
510: l_end := lpad(p_info.range_end, 8);
511:
512: hr_utility.trace(l_number || l_rows || l_start || l_end);
513:
514: hr_utility.trace_off;
515:
516: end range_ins_debug;
517:
518: /*
532: if(not g_debug.range_proc_dbg) then
533: return;
534: end if;
535:
536: hr_utility.trace_on('F', 'REQID');
537:
538: -- The following outputs a header line for every few
539: -- rows of logging output to make things easier when
540: -- there are lots of rows being processed.
539: -- rows of logging output to make things easier when
540: -- there are lots of rows being processed.
541: if(g_senv.rangetotal = 1 or mod(g_senv.rangetotal, DEBUG_PAGES) = 0)
542: then
543: hr_utility.trace('* Proc * |---- Range ----|');
544: hr_utility.trace(' Rge Num Start End Errcount');
545: hr_utility.trace(' -------- -------- -------- --------');
546: end if;
547:
540: -- there are lots of rows being processed.
541: if(g_senv.rangetotal = 1 or mod(g_senv.rangetotal, DEBUG_PAGES) = 0)
542: then
543: hr_utility.trace('* Proc * |---- Range ----|');
544: hr_utility.trace(' Rge Num Start End Errcount');
545: hr_utility.trace(' -------- -------- -------- --------');
546: end if;
547:
548: l_total := lpad(g_senv.rangetotal, 9) || ' ';
541: if(g_senv.rangetotal = 1 or mod(g_senv.rangetotal, DEBUG_PAGES) = 0)
542: then
543: hr_utility.trace('* Proc * |---- Range ----|');
544: hr_utility.trace(' Rge Num Start End Errcount');
545: hr_utility.trace(' -------- -------- -------- --------');
546: end if;
547:
548: l_total := lpad(g_senv.rangetotal, 9) || ' ';
549: l_start := lpad(p_range_start, 8) || ' ';
548: l_total := lpad(g_senv.rangetotal, 9) || ' ';
549: l_start := lpad(p_range_start, 8) || ' ';
550: l_end := lpad(p_range_end, 8) || ' ';
551: l_errcnt := lpad(p_errcnt, 8);
552: hr_utility.trace(l_total || l_start || l_end || l_errcnt);
553:
554: hr_utility.trace_off;
555:
556: end range_proc_debug;
550: l_end := lpad(p_range_end, 8) || ' ';
551: l_errcnt := lpad(p_errcnt, 8);
552: hr_utility.trace(l_total || l_start || l_end || l_errcnt);
553:
554: hr_utility.trace_off;
555:
556: end range_proc_debug;
557:
558: /*
567: return;
568: end if;
569:
570: -- Give us some info!
571: hr_utility.trace_on('F', 'REQID');
572:
573: hr_utility.trace('Stack Dump');
574: hr_utility.trace('batch lines : ' || g_senv.lines_proc);
575: hr_utility.trace('wrappers called : ' || g_senv.wrap_total);
569:
570: -- Give us some info!
571: hr_utility.trace_on('F', 'REQID');
572:
573: hr_utility.trace('Stack Dump');
574: hr_utility.trace('batch lines : ' || g_senv.lines_proc);
575: hr_utility.trace('wrappers called : ' || g_senv.wrap_total);
576: hr_utility.trace('wrap cache hits : ' || g_senv.wcachehit);
577: hr_utility.trace('total errors : ' || g_senv.errortotal);
570: -- Give us some info!
571: hr_utility.trace_on('F', 'REQID');
572:
573: hr_utility.trace('Stack Dump');
574: hr_utility.trace('batch lines : ' || g_senv.lines_proc);
575: hr_utility.trace('wrappers called : ' || g_senv.wrap_total);
576: hr_utility.trace('wrap cache hits : ' || g_senv.wcachehit);
577: hr_utility.trace('total errors : ' || g_senv.errortotal);
578: hr_utility.trace('ranges processed : ' || g_senv.rangetotal);
571: hr_utility.trace_on('F', 'REQID');
572:
573: hr_utility.trace('Stack Dump');
574: hr_utility.trace('batch lines : ' || g_senv.lines_proc);
575: hr_utility.trace('wrappers called : ' || g_senv.wrap_total);
576: hr_utility.trace('wrap cache hits : ' || g_senv.wcachehit);
577: hr_utility.trace('total errors : ' || g_senv.errortotal);
578: hr_utility.trace('ranges processed : ' || g_senv.rangetotal);
579: hr_utility.trace('batch id failed : ' || g_senv.fail_bline);
572:
573: hr_utility.trace('Stack Dump');
574: hr_utility.trace('batch lines : ' || g_senv.lines_proc);
575: hr_utility.trace('wrappers called : ' || g_senv.wrap_total);
576: hr_utility.trace('wrap cache hits : ' || g_senv.wcachehit);
577: hr_utility.trace('total errors : ' || g_senv.errortotal);
578: hr_utility.trace('ranges processed : ' || g_senv.rangetotal);
579: hr_utility.trace('batch id failed : ' || g_senv.fail_bline);
580:
573: hr_utility.trace('Stack Dump');
574: hr_utility.trace('batch lines : ' || g_senv.lines_proc);
575: hr_utility.trace('wrappers called : ' || g_senv.wrap_total);
576: hr_utility.trace('wrap cache hits : ' || g_senv.wcachehit);
577: hr_utility.trace('total errors : ' || g_senv.errortotal);
578: hr_utility.trace('ranges processed : ' || g_senv.rangetotal);
579: hr_utility.trace('batch id failed : ' || g_senv.fail_bline);
580:
581: hr_utility.trace_off;
574: hr_utility.trace('batch lines : ' || g_senv.lines_proc);
575: hr_utility.trace('wrappers called : ' || g_senv.wrap_total);
576: hr_utility.trace('wrap cache hits : ' || g_senv.wcachehit);
577: hr_utility.trace('total errors : ' || g_senv.errortotal);
578: hr_utility.trace('ranges processed : ' || g_senv.rangetotal);
579: hr_utility.trace('batch id failed : ' || g_senv.fail_bline);
580:
581: hr_utility.trace_off;
582: end stack_dump;
575: hr_utility.trace('wrappers called : ' || g_senv.wrap_total);
576: hr_utility.trace('wrap cache hits : ' || g_senv.wcachehit);
577: hr_utility.trace('total errors : ' || g_senv.errortotal);
578: hr_utility.trace('ranges processed : ' || g_senv.rangetotal);
579: hr_utility.trace('batch id failed : ' || g_senv.fail_bline);
580:
581: hr_utility.trace_off;
582: end stack_dump;
583:
577: hr_utility.trace('total errors : ' || g_senv.errortotal);
578: hr_utility.trace('ranges processed : ' || g_senv.rangetotal);
579: hr_utility.trace('batch id failed : ' || g_senv.fail_bline);
580:
581: hr_utility.trace_off;
582: end stack_dump;
583:
584: /*
585: * Outputs summary information following success.
593: return;
594: end if;
595:
596: -- Give us some info.
597: hr_utility.trace_on('F', 'REQID');
598:
599: hr_utility.trace('Exit information');
600: hr_utility.trace('batch lines : ' || g_senv.lines_proc);
601: hr_utility.trace('wrappers called : ' || g_senv.wrap_total);
595:
596: -- Give us some info.
597: hr_utility.trace_on('F', 'REQID');
598:
599: hr_utility.trace('Exit information');
600: hr_utility.trace('batch lines : ' || g_senv.lines_proc);
601: hr_utility.trace('wrappers called : ' || g_senv.wrap_total);
602: hr_utility.trace('wrap cache hits : ' || g_senv.wcachehit);
603: hr_utility.trace('total errors : ' || g_senv.errortotal);
596: -- Give us some info.
597: hr_utility.trace_on('F', 'REQID');
598:
599: hr_utility.trace('Exit information');
600: hr_utility.trace('batch lines : ' || g_senv.lines_proc);
601: hr_utility.trace('wrappers called : ' || g_senv.wrap_total);
602: hr_utility.trace('wrap cache hits : ' || g_senv.wcachehit);
603: hr_utility.trace('total errors : ' || g_senv.errortotal);
604: hr_utility.trace('ranges processed : ' || g_senv.rangetotal);
597: hr_utility.trace_on('F', 'REQID');
598:
599: hr_utility.trace('Exit information');
600: hr_utility.trace('batch lines : ' || g_senv.lines_proc);
601: hr_utility.trace('wrappers called : ' || g_senv.wrap_total);
602: hr_utility.trace('wrap cache hits : ' || g_senv.wcachehit);
603: hr_utility.trace('total errors : ' || g_senv.errortotal);
604: hr_utility.trace('ranges processed : ' || g_senv.rangetotal);
605:
598:
599: hr_utility.trace('Exit information');
600: hr_utility.trace('batch lines : ' || g_senv.lines_proc);
601: hr_utility.trace('wrappers called : ' || g_senv.wrap_total);
602: hr_utility.trace('wrap cache hits : ' || g_senv.wcachehit);
603: hr_utility.trace('total errors : ' || g_senv.errortotal);
604: hr_utility.trace('ranges processed : ' || g_senv.rangetotal);
605:
606: hr_utility.trace_off;
599: hr_utility.trace('Exit information');
600: hr_utility.trace('batch lines : ' || g_senv.lines_proc);
601: hr_utility.trace('wrappers called : ' || g_senv.wrap_total);
602: hr_utility.trace('wrap cache hits : ' || g_senv.wcachehit);
603: hr_utility.trace('total errors : ' || g_senv.errortotal);
604: hr_utility.trace('ranges processed : ' || g_senv.rangetotal);
605:
606: hr_utility.trace_off;
607: end exit_info;
600: hr_utility.trace('batch lines : ' || g_senv.lines_proc);
601: hr_utility.trace('wrappers called : ' || g_senv.wrap_total);
602: hr_utility.trace('wrap cache hits : ' || g_senv.wcachehit);
603: hr_utility.trace('total errors : ' || g_senv.errortotal);
604: hr_utility.trace('ranges processed : ' || g_senv.rangetotal);
605:
606: hr_utility.trace_off;
607: end exit_info;
608:
602: hr_utility.trace('wrap cache hits : ' || g_senv.wcachehit);
603: hr_utility.trace('total errors : ' || g_senv.errortotal);
604: hr_utility.trace('ranges processed : ' || g_senv.rangetotal);
605:
606: hr_utility.trace_off;
607: end exit_info;
608:
609: /*
610: * Procedure to clear the debug state. Used to
641: -- Initialise the debugging information structure.
642: clear_debug;
643:
644: -- Ensure trace is off when we start.
645: hr_utility.trace_off;
646:
647: /*
648: * Attempt to get the debugging level
649: * from the action parameters table.
745: -- Need to get text from appropriate place.
746: if (p_overmsg is not null) then
747: -- Use the override message, if available.
748: l_exception_text := p_overmsg;
749: elsif (sqlcode = hr_utility.HR_ERROR_NUMBER) then
750: -- This is an application error.
751: l_encoded := fnd_message.get_encoded;
752: fnd_message.set_encoded(l_encoded);
753: l_exception_text := fnd_message.get;
994: -- Handle case of incorrect business group name.
995: --
996: if l_bg_name is not null and p_env.business_group_id is null then
997: message('BUSINESS_GROUP_NAME[1]: ' || l_bg_name);
998: hr_utility.set_message (800, 'HR_7208_API_BUS_GRP_INVALID');
999: hr_utility.raise_error;
1000: end if;
1001:
1002: -- Get information about range size and
995: --
996: if l_bg_name is not null and p_env.business_group_id is null then
997: message('BUSINESS_GROUP_NAME[1]: ' || l_bg_name);
998: hr_utility.set_message (800, 'HR_7208_API_BUS_GRP_INVALID');
999: hr_utility.raise_error;
1000: end if;
1001:
1002: -- Get information about range size and
1003: -- threads parameters. Defaults have already
1660: --
1661: hr_multi_message.enable_message_list;
1662: hr_pump_utils.set_multi_msg_error_flag(false);
1663: --
1664: hr_utility.set_message (800, 'HR_7208_API_BUS_GRP_INVALID');
1665: hr_utility.raise_error;
1666: end if;
1667: close c2;
1668: else
1661: hr_multi_message.enable_message_list;
1662: hr_pump_utils.set_multi_msg_error_flag(false);
1663: --
1664: hr_utility.set_message (800, 'HR_7208_API_BUS_GRP_INVALID');
1665: hr_utility.raise_error;
1666: end if;
1667: close c2;
1668: else
1669: --
1867: -- If MAXIMUM_ERRORS_ALLOWED exceeded, need to raise an error.
1868: --
1869: if l_max_errors then
1870: -- Raise error to exit completely.
1871: hr_utility.set_message (800, 'HR_7269_ASS_TOO_MANY_ERRORS');
1872: hr_utility.raise_error;
1873: end if;
1874:
1875: end proc_lines_in_range;
1868: --
1869: if l_max_errors then
1870: -- Raise error to exit completely.
1871: hr_utility.set_message (800, 'HR_7269_ASS_TOO_MANY_ERRORS');
1872: hr_utility.raise_error;
1873: end if;
1874:
1875: end proc_lines_in_range;
1876:
2310: --
2311: -- The batch was not found.
2312: --
2313: elsif l_batch_status is null then
2314: hr_utility.set_message(800, 'HR_33798_DP_BATCH_NOT_FOUND');
2315: hr_utility.set_message_token('BATCH_ID', to_char(p_batch_id));
2316: hr_utility.raise_error;
2317:
2318: --
2311: -- The batch was not found.
2312: --
2313: elsif l_batch_status is null then
2314: hr_utility.set_message(800, 'HR_33798_DP_BATCH_NOT_FOUND');
2315: hr_utility.set_message_token('BATCH_ID', to_char(p_batch_id));
2316: hr_utility.raise_error;
2317:
2318: --
2319: -- The batch is already being processed.
2312: --
2313: elsif l_batch_status is null then
2314: hr_utility.set_message(800, 'HR_33798_DP_BATCH_NOT_FOUND');
2315: hr_utility.set_message_token('BATCH_ID', to_char(p_batch_id));
2316: hr_utility.raise_error;
2317:
2318: --
2319: -- The batch is already being processed.
2320: --
2320: --
2321: else
2322: -- Raise an error.
2323: l_processing := true;
2324: hr_utility.set_message(800, 'HR_50329_DP_ALREADY_PROCESSING');
2325: hr_utility.raise_error;
2326: end if;
2327:
2328: -- Ensure all commited before exit.
2321: else
2322: -- Raise an error.
2323: l_processing := true;
2324: hr_utility.set_message(800, 'HR_50329_DP_ALREADY_PROCESSING');
2325: hr_utility.raise_error;
2326: end if;
2327:
2328: -- Ensure all commited before exit.
2329: commit;
2454: end loop;
2455: ---------------------------------------
2456: -- Write success message to the log. --
2457: ---------------------------------------
2458: hr_utility.set_message(800, 'HR_33796_DP_PURGED_USER_KEYS');
2459: l_message := hr_utility.get_message;
2460: if p_write_log then
2461: fnd_file.put_line(fnd_file.log, l_message);
2462: end if;
2455: ---------------------------------------
2456: -- Write success message to the log. --
2457: ---------------------------------------
2458: hr_utility.set_message(800, 'HR_33796_DP_PURGED_USER_KEYS');
2459: l_message := hr_utility.get_message;
2460: if p_write_log then
2461: fnd_file.put_line(fnd_file.log, l_message);
2462: end if;
2463:
2464: hr_data_pump.message(l_message);
2465:
2466: exception
2467: when others then
2468: hr_utility.set_message(800, 'HR_33797_DP_USER_KEY_PURGE_ERR');
2469: hr_utility.set_message_token('ERROR_MESSAGE', sqlerrm);
2470: l_message := hr_utility.get_message;
2471: p_error_message := l_message;
2472: if p_write_log then
2465:
2466: exception
2467: when others then
2468: hr_utility.set_message(800, 'HR_33797_DP_USER_KEY_PURGE_ERR');
2469: hr_utility.set_message_token('ERROR_MESSAGE', sqlerrm);
2470: l_message := hr_utility.get_message;
2471: p_error_message := l_message;
2472: if p_write_log then
2473: fnd_file.put_line(fnd_file.log, l_message);
2466: exception
2467: when others then
2468: hr_utility.set_message(800, 'HR_33797_DP_USER_KEY_PURGE_ERR');
2469: hr_utility.set_message_token('ERROR_MESSAGE', sqlerrm);
2470: l_message := hr_utility.get_message;
2471: p_error_message := l_message;
2472: if p_write_log then
2473: fnd_file.put_line(fnd_file.log, l_message);
2474: end if;
2522: --
2523: -- This header is already being processed.
2524: --
2525: if l_status = 'P' then
2526: hr_utility.set_message(800, 'HR_50329_DP_ALREADY_PROCESSING');
2527: hr_utility.raise_error;
2528: elsif l_status is null then
2529: --
2530: -- Batch does not exist - it may have been purged already.
2523: -- This header is already being processed.
2524: --
2525: if l_status = 'P' then
2526: hr_utility.set_message(800, 'HR_50329_DP_ALREADY_PROCESSING');
2527: hr_utility.raise_error;
2528: elsif l_status is null then
2529: --
2530: -- Batch does not exist - it may have been purged already.
2531: --
2707:
2708: ---------------------------------------
2709: -- Write success message to the log. --
2710: ---------------------------------------
2711: hr_utility.set_message(800, 'HR_33794_DP_COMPLETED_BATCH');
2712: hr_utility.set_message_token('BATCH_NAME', l_batch_name);
2713: l_message := hr_utility.get_message;
2714: if p_write_log then
2715: fnd_file.put_line(fnd_file.log, l_message);
2708: ---------------------------------------
2709: -- Write success message to the log. --
2710: ---------------------------------------
2711: hr_utility.set_message(800, 'HR_33794_DP_COMPLETED_BATCH');
2712: hr_utility.set_message_token('BATCH_NAME', l_batch_name);
2713: l_message := hr_utility.get_message;
2714: if p_write_log then
2715: fnd_file.put_line(fnd_file.log, l_message);
2716: end if;
2709: -- Write success message to the log. --
2710: ---------------------------------------
2711: hr_utility.set_message(800, 'HR_33794_DP_COMPLETED_BATCH');
2712: hr_utility.set_message_token('BATCH_NAME', l_batch_name);
2713: l_message := hr_utility.get_message;
2714: if p_write_log then
2715: fnd_file.put_line(fnd_file.log, l_message);
2716: end if;
2717:
2718: hr_data_pump.message(l_message);
2719:
2720: exception
2721: when others then
2722: hr_utility.set_message(800, 'HR_33795_DP_PROCESSING_ERROR');
2723: hr_utility.set_message_token('BATCH_NAME', l_batch_name);
2724: hr_utility.set_message_token('ERROR_MESSAGE', sqlerrm);
2725: l_message := hr_utility.get_message;
2726: p_error_message := l_message;
2719:
2720: exception
2721: when others then
2722: hr_utility.set_message(800, 'HR_33795_DP_PROCESSING_ERROR');
2723: hr_utility.set_message_token('BATCH_NAME', l_batch_name);
2724: hr_utility.set_message_token('ERROR_MESSAGE', sqlerrm);
2725: l_message := hr_utility.get_message;
2726: p_error_message := l_message;
2727: if p_write_log then
2720: exception
2721: when others then
2722: hr_utility.set_message(800, 'HR_33795_DP_PROCESSING_ERROR');
2723: hr_utility.set_message_token('BATCH_NAME', l_batch_name);
2724: hr_utility.set_message_token('ERROR_MESSAGE', sqlerrm);
2725: l_message := hr_utility.get_message;
2726: p_error_message := l_message;
2727: if p_write_log then
2728: fnd_file.put_line(fnd_file.log, l_message);
2721: when others then
2722: hr_utility.set_message(800, 'HR_33795_DP_PROCESSING_ERROR');
2723: hr_utility.set_message_token('BATCH_NAME', l_batch_name);
2724: hr_utility.set_message_token('ERROR_MESSAGE', sqlerrm);
2725: l_message := hr_utility.get_message;
2726: p_error_message := l_message;
2727: if p_write_log then
2728: fnd_file.put_line(fnd_file.log, l_message);
2729: end if;