APPS.IGS_HE_CREATE_EXTRACT_PKG dependencies on UTL_FILE

Line 16: This will check the value of profile 'UTL_FILE_OUT'

12: /******************************************************************
13: Created By : ayedubat
14: Date Created By : 24-Dec-02
15: Purpose: Private procedure created for finding the Directory of the filename.
16: This will check the value of profile 'UTL_FILE_OUT'
17: (output dir for export data file) matches with the value in v$parameter
18: for the name utl_file_dir.
19: Known limitations,enhancements,remarks:
20: Change History

Line 18: for the name utl_file_dir.

14: Date Created By : 24-Dec-02
15: Purpose: Private procedure created for finding the Directory of the filename.
16: This will check the value of profile 'UTL_FILE_OUT'
17: (output dir for export data file) matches with the value in v$parameter
18: for the name utl_file_dir.
19: Known limitations,enhancements,remarks:
20: Change History
21: Who When What
22: *******************************************************************/

Line 34: WHERE name ='utl_file_dir';

30:
31: CURSOR cur_parameter_value IS
32: SELECT LTRIM(RTRIM(value))
33: FROM V$PARAMETER
34: WHERE name ='utl_file_dir';
35:
36: CURSOR cur_db_dir IS
37: SELECT DECODE( INSTR(l_dbvalue,',',l_start_str_index),0,LENGTH(l_dbvalue)+1, INSTR(l_dbvalue,',',l_start_str_index) )
38: FROM DUAL ;

Line 46: l_fndvalue := LTRIM(RTRIM(FND_PROFILE.VALUE('UTL_FILE_OUT')));

42: -- Initialize the OUT variable
43: p_directory := NULL ;
44:
45: -- Fetch the Profile value for the directory name used to export flat file
46: l_fndvalue := LTRIM(RTRIM(FND_PROFILE.VALUE('UTL_FILE_OUT')));
47:
48: -- If the profile is NULL, return the procedure by assigning the NULL value to p_directory
49: IF l_fndvalue IS NULL THEN
50: p_directory := NULL ;

Line 54: -- Fetch the Value of the Database parameter, utl_file_dir

50: p_directory := NULL ;
51: RETURN ;
52: END IF ;
53:
54: -- Fetch the Value of the Database parameter, utl_file_dir
55: -- which contains list of out put directories seperated by comma
56: OPEN cur_parameter_value ;
57: FETCH cur_parameter_value INTO l_dbvalue ;
58:

Line 186: l_file utl_file.file_type := NULL;

182: l_field_length igs_he_sys_rt_cl_fld.length%TYPE;
183: l_value_field_length NUMBER(3);
184: l_prs_grp_status VARCHAR2(1) := NULL;
185: l_group_type igs_pe_persid_group_v.group_type%TYPE;
186: l_file utl_file.file_type := NULL;
187: l_sqlstmt VARCHAR2(32767);
188: l_prs_grp_sql VARCHAR2(32767);
189: l_extract_dtls c_extract_dtls%ROWTYPE;
190: l_line_number igs_he_ex_rn_dat_ln.line_number%TYPE;

Line 235: l_file := UTL_FILE.FOPEN (l_filepath, l_extract_dtls.file_name, 'w');

231:
232: -- Open file
233: BEGIN
234: l_file := NULL;
235: l_file := UTL_FILE.FOPEN (l_filepath, l_extract_dtls.file_name, 'w');
236: EXCEPTION
237: WHEN OTHERS THEN
238: fnd_message.set_name('IGS','IGS_HE_FILE_OPEN_ERROR');
239: fnd_message.set_token('1', l_filepath || '/' || l_extract_dtls.file_name);

Line 429: utl_file.put (l_file, l_final_value );

425: END IF;
426:
427: -- Write field to file
428: BEGIN
429: utl_file.put (l_file, l_final_value );
430: EXCEPTION
431: WHEN UTL_FILE.WRITE_ERROR THEN
432: fnd_message.set_name('IGS', 'IGS_HE_FILE_WRITE_ERROR');
433: fnd_message.set_token('1', l_filepath || '/' || l_extract_dtls.file_name);

Line 431: WHEN UTL_FILE.WRITE_ERROR THEN

427: -- Write field to file
428: BEGIN
429: utl_file.put (l_file, l_final_value );
430: EXCEPTION
431: WHEN UTL_FILE.WRITE_ERROR THEN
432: fnd_message.set_name('IGS', 'IGS_HE_FILE_WRITE_ERROR');
433: fnd_message.set_token('1', l_filepath || '/' || l_extract_dtls.file_name);
434: fnd_file.put_line(fnd_file.log, fnd_message.get);
435: RAISE;

Line 443: utl_file.new_line (l_file);

439:
440: END LOOP; -- c_extract_field
441:
442: -- Append a new line character at the end and write to file
443: utl_file.new_line (l_file);
444: utl_file.fflush (l_file);
445:
446: -- Get next line
447: FETCH c_extract_line INTO l_line_number;

Line 444: utl_file.fflush (l_file);

440: END LOOP; -- c_extract_field
441:
442: -- Append a new line character at the end and write to file
443: utl_file.new_line (l_file);
444: utl_file.fflush (l_file);
445:
446: -- Get next line
447: FETCH c_extract_line INTO l_line_number;
448:

Line 460: IF (utl_file.is_open( l_file )) THEN

456: CLOSE c_extract_line;
457:
458: -- Close file
459: BEGIN
460: IF (utl_file.is_open( l_file )) THEN
461: utl_file.fclose( l_file );
462: END IF;
463: EXCEPTION
464: WHEN OTHERS THEN

Line 461: utl_file.fclose( l_file );

457:
458: -- Close file
459: BEGIN
460: IF (utl_file.is_open( l_file )) THEN
461: utl_file.fclose( l_file );
462: END IF;
463: EXCEPTION
464: WHEN OTHERS THEN
465: fnd_message.set_name('IGS','IGS_HE_FILE_CLOSE_ERROR');