APPS.WIP_EAMWORKORDER_PVT dependencies on UTL_FILE

Line 546: fileHandler UTL_FILE.FILE_TYPE;

542: l_full_path VARCHAR2(512);
543: l_new_full_path VARCHAR2(512);
544: l_file_dir VARCHAR2(512);
545:
546: fileHandler UTL_FILE.FILE_TYPE;
547: fileName VARCHAR2(50);
548:
549: l_flag NUMBER;
550: BEGIN

Line 557: WHERE name = 'utl_file_dir';

553: /* get output directory path from database */
554: SELECT value
555: INTO l_full_path
556: FROM v$parameter
557: WHERE name = 'utl_file_dir';
558:
559: l_flag := 0;
560: --l_full_path contains a list of comma-separated directories
561: WHILE(TRUE)

Line 575: fileHandler := UTL_FILE.FOPEN(l_file_dir , filename, 'w');

571: FROM dual;
572:
573: -- check if the dir is valid
574: BEGIN
575: fileHandler := UTL_FILE.FOPEN(l_file_dir , filename, 'w');
576: l_flag := 1;
577: EXCEPTION
578: WHEN utl_file.invalid_path THEN
579: l_flag := 0;

Line 578: WHEN utl_file.invalid_path THEN

574: BEGIN
575: fileHandler := UTL_FILE.FOPEN(l_file_dir , filename, 'w');
576: l_flag := 1;
577: EXCEPTION
578: WHEN utl_file.invalid_path THEN
579: l_flag := 0;
580: WHEN utl_file.invalid_operation THEN
581: l_flag := 0;
582: END;

Line 580: WHEN utl_file.invalid_operation THEN

576: l_flag := 1;
577: EXCEPTION
578: WHEN utl_file.invalid_path THEN
579: l_flag := 0;
580: WHEN utl_file.invalid_operation THEN
581: l_flag := 0;
582: END;
583:
584: IF l_flag = 1 THEN --got a valid directory

Line 585: utl_file.fclose(fileHandler);

581: l_flag := 0;
582: END;
583:
584: IF l_flag = 1 THEN --got a valid directory
585: utl_file.fclose(fileHandler);
586: EXIT;
587: END IF;
588:
589: --earlier found dir was not a valid dir,