435: hr_utility.set_location('Leaving '||l_proc,5);
436: exception
437: when utl_file.invalid_path then
438: rollback;
439: fnd_message.set_name('BEN', 'BEN_91874_EXT_DRCTRY_ERR'); --9999
440: fnd_file.put_line(fnd_file.log, fnd_message.get);
441: if utl_file.is_open(l_file_handle) then
442: utl_file.fclose(l_file_handle);
443: end if;
436: exception
437: when utl_file.invalid_path then
438: rollback;
439: fnd_message.set_name('BEN', 'BEN_91874_EXT_DRCTRY_ERR'); --9999
440: fnd_file.put_line(fnd_file.log, fnd_message.get);
441: if utl_file.is_open(l_file_handle) then
442: utl_file.fclose(l_file_handle);
443: end if;
444: fnd_message.raise_error;
440: fnd_file.put_line(fnd_file.log, fnd_message.get);
441: if utl_file.is_open(l_file_handle) then
442: utl_file.fclose(l_file_handle);
443: end if;
444: fnd_message.raise_error;
445: --
446: when utl_file.invalid_mode then
447: rollback;
448: fnd_message.set_name('BEN', 'BEN_92249_UTL_INVLD_MODE');
444: fnd_message.raise_error;
445: --
446: when utl_file.invalid_mode then
447: rollback;
448: fnd_message.set_name('BEN', 'BEN_92249_UTL_INVLD_MODE');
449: fnd_file.put_line(fnd_file.log, fnd_message.get);
450: if utl_file.is_open(l_file_handle) then
451: utl_file.fclose(l_file_handle);
452: end if;
445: --
446: when utl_file.invalid_mode then
447: rollback;
448: fnd_message.set_name('BEN', 'BEN_92249_UTL_INVLD_MODE');
449: fnd_file.put_line(fnd_file.log, fnd_message.get);
450: if utl_file.is_open(l_file_handle) then
451: utl_file.fclose(l_file_handle);
452: end if;
453: fnd_message.raise_error;
449: fnd_file.put_line(fnd_file.log, fnd_message.get);
450: if utl_file.is_open(l_file_handle) then
451: utl_file.fclose(l_file_handle);
452: end if;
453: fnd_message.raise_error;
454: --
455: when utl_file.invalid_filehandle then
456: rollback;
457: fnd_message.set_name('BEN', 'BEN_92250_UTL_INVLD_FILEHANDLE');
453: fnd_message.raise_error;
454: --
455: when utl_file.invalid_filehandle then
456: rollback;
457: fnd_message.set_name('BEN', 'BEN_92250_UTL_INVLD_FILEHANDLE');
458: fnd_file.put_line(fnd_file.log, fnd_message.get);
459: if utl_file.is_open(l_file_handle) then
460: utl_file.fclose(l_file_handle);
461: end if;
454: --
455: when utl_file.invalid_filehandle then
456: rollback;
457: fnd_message.set_name('BEN', 'BEN_92250_UTL_INVLD_FILEHANDLE');
458: fnd_file.put_line(fnd_file.log, fnd_message.get);
459: if utl_file.is_open(l_file_handle) then
460: utl_file.fclose(l_file_handle);
461: end if;
462: fnd_message.raise_error;
458: fnd_file.put_line(fnd_file.log, fnd_message.get);
459: if utl_file.is_open(l_file_handle) then
460: utl_file.fclose(l_file_handle);
461: end if;
462: fnd_message.raise_error;
463: --
464: when utl_file.invalid_operation then
465: rollback;
466: fnd_message.set_name('BEN', 'BEN_92251_UTL_INVLD_OPER');
462: fnd_message.raise_error;
463: --
464: when utl_file.invalid_operation then
465: rollback;
466: fnd_message.set_name('BEN', 'BEN_92251_UTL_INVLD_OPER');
467: fnd_file.put_line(fnd_file.log, fnd_message.get);
468: if utl_file.is_open(l_file_handle) then
469: utl_file.fclose(l_file_handle);
470: end if;
463: --
464: when utl_file.invalid_operation then
465: rollback;
466: fnd_message.set_name('BEN', 'BEN_92251_UTL_INVLD_OPER');
467: fnd_file.put_line(fnd_file.log, fnd_message.get);
468: if utl_file.is_open(l_file_handle) then
469: utl_file.fclose(l_file_handle);
470: end if;
471: fnd_message.raise_error;
467: fnd_file.put_line(fnd_file.log, fnd_message.get);
468: if utl_file.is_open(l_file_handle) then
469: utl_file.fclose(l_file_handle);
470: end if;
471: fnd_message.raise_error;
472: --
473: when utl_file.read_error then
474: rollback;
475: fnd_message.set_name('BEN', 'BEN_92252_UTL_READ_ERROR');
471: fnd_message.raise_error;
472: --
473: when utl_file.read_error then
474: rollback;
475: fnd_message.set_name('BEN', 'BEN_92252_UTL_READ_ERROR');
476: fnd_file.put_line(fnd_file.log, fnd_message.get);
477: if utl_file.is_open(l_file_handle) then
478: utl_file.fclose(l_file_handle);
479: end if;
472: --
473: when utl_file.read_error then
474: rollback;
475: fnd_message.set_name('BEN', 'BEN_92252_UTL_READ_ERROR');
476: fnd_file.put_line(fnd_file.log, fnd_message.get);
477: if utl_file.is_open(l_file_handle) then
478: utl_file.fclose(l_file_handle);
479: end if;
480: fnd_message.raise_error;
476: fnd_file.put_line(fnd_file.log, fnd_message.get);
477: if utl_file.is_open(l_file_handle) then
478: utl_file.fclose(l_file_handle);
479: end if;
480: fnd_message.raise_error;
481: --
482: when utl_file.internal_error then
483: rollback;
484: fnd_message.set_name('BEN', 'BEN_92253_UTL_INTRNL_ERROR');
480: fnd_message.raise_error;
481: --
482: when utl_file.internal_error then
483: rollback;
484: fnd_message.set_name('BEN', 'BEN_92253_UTL_INTRNL_ERROR');
485: fnd_file.put_line(fnd_file.log, fnd_message.get);
486: if utl_file.is_open(l_file_handle) then
487: utl_file.fclose(l_file_handle);
488: end if;
481: --
482: when utl_file.internal_error then
483: rollback;
484: fnd_message.set_name('BEN', 'BEN_92253_UTL_INTRNL_ERROR');
485: fnd_file.put_line(fnd_file.log, fnd_message.get);
486: if utl_file.is_open(l_file_handle) then
487: utl_file.fclose(l_file_handle);
488: end if;
489: fnd_message.raise_error;
485: fnd_file.put_line(fnd_file.log, fnd_message.get);
486: if utl_file.is_open(l_file_handle) then
487: utl_file.fclose(l_file_handle);
488: end if;
489: fnd_message.raise_error;
490: --
491: when utl_file.invalid_maxlinesize then
492: rollback;
493: fnd_message.set_name ('BEN' ,'BEN_92492_UTL_LINESIZE_ERROR');
489: fnd_message.raise_error;
490: --
491: when utl_file.invalid_maxlinesize then
492: rollback;
493: fnd_message.set_name ('BEN' ,'BEN_92492_UTL_LINESIZE_ERROR');
494: fnd_file.put_line(fnd_file.log , fnd_message.get );
495: if utl_file.is_open(l_file_handle) then
496: utl_file.fclose(l_file_handle);
497: end if;
490: --
491: when utl_file.invalid_maxlinesize then
492: rollback;
493: fnd_message.set_name ('BEN' ,'BEN_92492_UTL_LINESIZE_ERROR');
494: fnd_file.put_line(fnd_file.log , fnd_message.get );
495: if utl_file.is_open(l_file_handle) then
496: utl_file.fclose(l_file_handle);
497: end if;
498: fnd_message.raise_error ;
494: fnd_file.put_line(fnd_file.log , fnd_message.get );
495: if utl_file.is_open(l_file_handle) then
496: utl_file.fclose(l_file_handle);
497: end if;
498: fnd_message.raise_error ;
499: --
500: when g_missing_fields then
501: rollback;
502: fnd_file.put_line(fnd_file.log , 'One ore more fields missing in this Record: '||substr(l_line_text,1,80));