468: FII_MESSAGE.Func_Succ('FII_CCC_SEC_UPL_PKG.conc_upload');
469: END IF;
470: retcode := 'W';
471: errbuf := fnd_message.get_string('FII', 'FII_CCC_SEC_CP_NO_REC_TO_PROCS');
472: l_ret_status := FND_CONCURRENT.Set_Completion_Status(status => 'WARNING',message => errbuf);
473: RETURN;
474: END IF;
475:
476: --
481: validate(retcode);
482:
483: IF retcode <> 'S' THEN
484: -- Commit before returning for status_code
485: dbg('conc_upload: call FND_CONCURRENT.Af_Commit');
486: FND_CONCURRENT.Af_Commit;
487:
488: retcode := 'E';
489: errbuf := fnd_message.get_string('FII', 'FII_CCC_SEC_CP_VALIDATE_ERR');
482:
483: IF retcode <> 'S' THEN
484: -- Commit before returning for status_code
485: dbg('conc_upload: call FND_CONCURRENT.Af_Commit');
486: FND_CONCURRENT.Af_Commit;
487:
488: retcode := 'E';
489: errbuf := fnd_message.get_string('FII', 'FII_CCC_SEC_CP_VALIDATE_ERR');
490: l_ret_status := FND_CONCURRENT.Set_Completion_Status(status => 'ERROR',message => errbuf);
486: FND_CONCURRENT.Af_Commit;
487:
488: retcode := 'E';
489: errbuf := fnd_message.get_string('FII', 'FII_CCC_SEC_CP_VALIDATE_ERR');
490: l_ret_status := FND_CONCURRENT.Set_Completion_Status(status => 'ERROR',message => errbuf);
491: dbg('conc_upload: Data validation failed. Exit.');
492: -- debug msg time stamp of exiting this procedure
493: IF g_debug_flag = 'Y' THEN
494: FII_MESSAGE.Func_Succ('FII_CCC_SEC_UPL_PKG.conc_upload');
504: upload(retcode);
505:
506: IF retcode <> 'S' THEN
507: errbuf := fnd_message.get_string('FII', 'FII_CCC_SEC_CP_UPLOAD_ERR');
508: l_ret_status := FND_CONCURRENT.Set_Completion_Status(status => 'ERROR',message => errbuf);
509: dbg('conc_upload: Upload to fnd_grants process failed. Exit.');
510: -- debug msg time stamp of exiting this procedure
511: IF g_debug_flag = 'Y' THEN
512: FII_MESSAGE.Func_Succ('FII_CCC_SEC_UPL_PKG.conc_upload');
517: -- debug msg time stamp of completing this procedure successfully
518: IF g_debug_flag = 'Y' THEN
519: FII_MESSAGE.Func_Succ(func_name => 'FII_CCC_SEC_UPL_PKG.conc_upload');
520: END IF;
521: l_ret_status := FND_CONCURRENT.Set_Completion_Status
522: (status => 'COMPLETE', message => NULL);
523: EXCEPTION
524: WHEN OTHERS THEN
525: dbg('conc_upload: Unexpected error during concurrent upload process.');
524: WHEN OTHERS THEN
525: dbg('conc_upload: Unexpected error during concurrent upload process.');
526: retcode := 'E';
527: errbuf := fnd_message.get_string('FII', 'FII_CCC_SEC_CP_OTHERS_ERR');
528: l_ret_status := FND_CONCURRENT.Set_Completion_Status(status => 'ERROR',message => errbuf);
529: app_exception.raise_exception;
530: END conc_upload;
531:
532:
573: FII_MESSAGE.Func_Succ('FII_CCC_SEC_UPL_PKG.purge_interface');
574: END IF;
575: retcode := 'E';
576: errbuf := fnd_message.get_string('FII', 'FII_CCC_SEC_PURGE_INTR_FAILED');
577: l_ret_status := FND_CONCURRENT.Set_Completion_Status(status => 'ERROR',message => errbuf);
578: RETURN;
579: ELSE
580: -- debug msg time stamp of completing this procedure successfully
581: IF g_debug_flag = 'Y' THEN
580: -- debug msg time stamp of completing this procedure successfully
581: IF g_debug_flag = 'Y' THEN
582: FII_MESSAGE.Func_Succ(func_name => 'FII_CCC_SEC_UPL_PKG.purge_interface');
583: END IF;
584: l_ret_status := FND_CONCURRENT.Set_Completion_Status
585: (status => 'COMPLETE', message => NULL);
586: END IF;
587:
588: EXCEPTION
589: WHEN OTHERS THEN
590: dbg('purge_interface: Unexpected error during purge process.');
591: retcode := 'E';
592: errbuf := fnd_message.get_string('FII', 'FII_CCC_SEC_CP_PURGE_ERR');
593: l_ret_status := FND_CONCURRENT.Set_Completion_Status(status => 'ERROR',message => errbuf);
594: app_exception.raise_exception;
595: END purge_interface;
596:
597: