DBA Data[Home] [Help]

APPS.PAY_KR_BEE_UPLOAD dependencies on UTL_FILE

Line 208: l_file_handle UTL_FILE.file_type;

204: l_proc CONSTANT VARCHAR2 (72) := g_package || 'upload ';
205: l_legislation_code per_business_groups.legislation_code%TYPE;
206:
207: -- File Handling variables
208: l_file_handle UTL_FILE.file_type;
209: l_filename VARCHAR2 (240);
210: l_location VARCHAR2 (4000);
211: l_line_read VARCHAR2 (4000) := NULL;
212: l_batch_line g_batch_line;

Line 263: UTL_FILE.fopen (l_location, l_filename, c_read_file, c_max_linesize);

259: END IF;
260:
261: -- Open flat file
262: l_file_handle :=
263: UTL_FILE.fopen (l_location, l_filename, c_read_file, c_max_linesize);
264:
265: -- Create the Batch header
266:
267: create_batch_header

Line 284: UTL_FILE.get_line (l_file_handle, l_line_read);

280:
281: <>
282: LOOP
283: BEGIN
284: UTL_FILE.get_line (l_file_handle, l_line_read);
285: l_batch_seq := l_batch_seq
286: + 1;
287: EXCEPTION
288: WHEN VALUE_ERROR

Line 289: -- Input line too large for buffer specified in UTL_FILE.fopen

285: l_batch_seq := l_batch_seq
286: + 1;
287: EXCEPTION
288: WHEN VALUE_ERROR
289: -- Input line too large for buffer specified in UTL_FILE.fopen
290: THEN
291: IF UTL_FILE.is_open (l_file_handle)
292: THEN
293: UTL_FILE.fclose (l_file_handle);

Line 291: IF UTL_FILE.is_open (l_file_handle)

287: EXCEPTION
288: WHEN VALUE_ERROR
289: -- Input line too large for buffer specified in UTL_FILE.fopen
290: THEN
291: IF UTL_FILE.is_open (l_file_handle)
292: THEN
293: UTL_FILE.fclose (l_file_handle);
294: END IF;
295:

Line 293: UTL_FILE.fclose (l_file_handle);

289: -- Input line too large for buffer specified in UTL_FILE.fopen
290: THEN
291: IF UTL_FILE.is_open (l_file_handle)
292: THEN
293: UTL_FILE.fclose (l_file_handle);
294: END IF;
295:
296: hr_utility.set_location (l_proc, 180);
297: retcode := c_error;

Line 462: UTL_FILE.fclose (l_file_handle);

458: END LOOP read_lines_in_file;
459:
460: -- Commit the outstanding records
461: COMMIT;
462: UTL_FILE.fclose (l_file_handle);
463: hr_utility.set_location ( 'Leaving:'|| l_proc, 50);
464:
465: -- Most off these exceptions are not translated as they should not happen normally
466: -- If they do happen, something is seriously wrong and SysAdmin interference will be necessary.

Line 473: IF UTL_FILE.is_open (l_file_handle)

469: WHEN e_fatal_error
470: -- No directory specified
471: THEN
472: -- Close the file in case off error
473: IF UTL_FILE.is_open (l_file_handle)
474: THEN
475: UTL_FILE.fclose (l_file_handle);
476: END IF;
477:

Line 475: UTL_FILE.fclose (l_file_handle);

471: THEN
472: -- Close the file in case off error
473: IF UTL_FILE.is_open (l_file_handle)
474: THEN
475: UTL_FILE.fclose (l_file_handle);
476: END IF;
477:
478: hr_utility.set_location (l_proc, 100);
479:

Line 489: WHEN UTL_FILE.invalid_operation

485:
486: -- Return the message to the ConcMgr (This msg will appear in the log file)
487: errbuf := hr_utility.get_message;
488:
489: WHEN UTL_FILE.invalid_operation
490: -- File could not be opened as requested, perhaps because of operating system permissions
491: -- Also raised when attempting a write operation on a file opened for read, or a read operation
492: -- on a file opened for write.
493:

Line 495: IF UTL_FILE.is_open (l_file_handle)

491: -- Also raised when attempting a write operation on a file opened for read, or a read operation
492: -- on a file opened for write.
493:
494: THEN
495: IF UTL_FILE.is_open (l_file_handle)
496: THEN
497: UTL_FILE.fclose (l_file_handle);
498: END IF;
499:

Line 497: UTL_FILE.fclose (l_file_handle);

493:
494: THEN
495: IF UTL_FILE.is_open (l_file_handle)
496: THEN
497: UTL_FILE.fclose (l_file_handle);
498: END IF;
499:
500: hr_utility.set_location (l_proc, 110);
501: retcode := c_error;

Line 505: WHEN UTL_FILE.internal_error

501: retcode := c_error;
502: errbuf := 'Reading File ('||l_location ||' -> '
503: || l_filename
504: || ') - Invalid Operation.';
505: WHEN UTL_FILE.internal_error
506: -- Unspecified internal error
507: THEN
508: IF UTL_FILE.is_open (l_file_handle)
509: THEN

Line 508: IF UTL_FILE.is_open (l_file_handle)

504: || ') - Invalid Operation.';
505: WHEN UTL_FILE.internal_error
506: -- Unspecified internal error
507: THEN
508: IF UTL_FILE.is_open (l_file_handle)
509: THEN
510: UTL_FILE.fclose (l_file_handle);
511: END IF;
512:

Line 510: UTL_FILE.fclose (l_file_handle);

506: -- Unspecified internal error
507: THEN
508: IF UTL_FILE.is_open (l_file_handle)
509: THEN
510: UTL_FILE.fclose (l_file_handle);
511: END IF;
512:
513: hr_utility.set_location (l_proc, 120);
514: retcode := c_error;

Line 521: WHEN UTL_FILE.invalid_mode

517: || ' -> '
518: || l_filename
519: || ') - Internal Error.';
520:
521: WHEN UTL_FILE.invalid_mode
522: -- Invalid string specified for file mode
523: THEN
524: IF UTL_FILE.is_open (l_file_handle)
525: THEN

Line 524: IF UTL_FILE.is_open (l_file_handle)

520:
521: WHEN UTL_FILE.invalid_mode
522: -- Invalid string specified for file mode
523: THEN
524: IF UTL_FILE.is_open (l_file_handle)
525: THEN
526: UTL_FILE.fclose (l_file_handle);
527: END IF;
528:

Line 526: UTL_FILE.fclose (l_file_handle);

522: -- Invalid string specified for file mode
523: THEN
524: IF UTL_FILE.is_open (l_file_handle)
525: THEN
526: UTL_FILE.fclose (l_file_handle);
527: END IF;
528:
529: hr_utility.set_location (l_proc, 130);
530: retcode := c_error;

Line 537: WHEN UTL_FILE.invalid_path

533: || ' -> '
534: || l_filename
535: || ') - Invalid Mode.';
536:
537: WHEN UTL_FILE.invalid_path
538: -- Directory or filename is invalid or not accessible
539: THEN
540: IF UTL_FILE.is_open (l_file_handle)
541: THEN

Line 540: IF UTL_FILE.is_open (l_file_handle)

536:
537: WHEN UTL_FILE.invalid_path
538: -- Directory or filename is invalid or not accessible
539: THEN
540: IF UTL_FILE.is_open (l_file_handle)
541: THEN
542: UTL_FILE.fclose (l_file_handle);
543: END IF;
544:

Line 542: UTL_FILE.fclose (l_file_handle);

538: -- Directory or filename is invalid or not accessible
539: THEN
540: IF UTL_FILE.is_open (l_file_handle)
541: THEN
542: UTL_FILE.fclose (l_file_handle);
543: END IF;
544:
545: retcode := c_error;
546: errbuf := 'Reading File ('

Line 553: WHEN UTL_FILE.invalid_filehandle

549: || l_filename
550: || ') - Invalid Path or Filename.';
551: hr_utility.set_location (l_proc, 140);
552:
553: WHEN UTL_FILE.invalid_filehandle
554: -- File handle does not specify an open file
555: THEN
556: IF UTL_FILE.is_open (l_file_handle)
557: THEN

Line 556: IF UTL_FILE.is_open (l_file_handle)

552:
553: WHEN UTL_FILE.invalid_filehandle
554: -- File handle does not specify an open file
555: THEN
556: IF UTL_FILE.is_open (l_file_handle)
557: THEN
558: UTL_FILE.fclose (l_file_handle);
559: END IF;
560:

Line 558: UTL_FILE.fclose (l_file_handle);

554: -- File handle does not specify an open file
555: THEN
556: IF UTL_FILE.is_open (l_file_handle)
557: THEN
558: UTL_FILE.fclose (l_file_handle);
559: END IF;
560:
561: hr_utility.set_location (l_proc, 150);
562: retcode := c_error;

Line 568: WHEN UTL_FILE.read_error

564: || l_location
565: || ' -> '
566: || l_filename
567: || ') - Invalid File Handle.';
568: WHEN UTL_FILE.read_error
569:
570: -- Operating system error occurred during a read operation
571: THEN
572: IF UTL_FILE.is_open (l_file_handle)

Line 572: IF UTL_FILE.is_open (l_file_handle)

568: WHEN UTL_FILE.read_error
569:
570: -- Operating system error occurred during a read operation
571: THEN
572: IF UTL_FILE.is_open (l_file_handle)
573: THEN
574: UTL_FILE.fclose (l_file_handle);
575: END IF;
576:

Line 574: UTL_FILE.fclose (l_file_handle);

570: -- Operating system error occurred during a read operation
571: THEN
572: IF UTL_FILE.is_open (l_file_handle)
573: THEN
574: UTL_FILE.fclose (l_file_handle);
575: END IF;
576:
577: hr_utility.set_location (l_proc, 160);
578: retcode := c_error;