DBA Data[Home] [Help]

APPS.IGS_UC_EXT_MARVIN dependencies on UTL_FILE

Line 22: anwest 13-Feb-2006 Bug# 4960517 - Replaced profile IGS_PS_EXP_DIR_PATH with UTL_FILE_OUT

18: dsridhar 30-SEP-2003 Bug No: 3156212. Code modified to consider only those transactions
19: for systems configured as MARVIN.
20: jchakrab 07-Sep-2004 Modified for Bug#3872286
21: anwest 18-Jan-2006 Bug# 4950285 R12 Disable OSS Mandate
22: anwest 13-Feb-2006 Bug# 4960517 - Replaced profile IGS_PS_EXP_DIR_PATH with UTL_FILE_OUT
23: jbaber 11-Jul-2006 Modified for UC325 - UCAS 2007 Support
24: */
25:
26: l_sequence_number NUMBER(6) DEFAULT 00001;

Line 30: l_file_prm UTL_FILE.FILE_TYPE;

26: l_sequence_number NUMBER(6) DEFAULT 00001;
27: l_total_trans NUMBER(6) DEFAULT 0;
28: l_date VARCHAR2(10) DEFAULT TO_CHAR(SYSDATE,'ddmmyy');
29: l_file_name VARCHAR2(20); --File Name format is AfinUUU.xxxxxx
30: l_file_prm UTL_FILE.FILE_TYPE;
31:
32: PROCEDURE open_file ( p_location IN VARCHAR2,
33: p_filename IN VARCHAR2) IS
34: /*

Line 46: l_file_prm:= UTL_FILE.FOPEN (p_location,

42: */
43: BEGIN
44:
45: l_file_prm := NULL;
46: l_file_prm:= UTL_FILE.FOPEN (p_location,
47: p_filename,
48: 'w');
49: EXCEPTION
50: WHEN OTHERS THEN

Line 69: UTL_FILE.PUT_LINE (l_file_prm, p_line );

65: || Who When What
66: || (reverse chronological order - newest change first)
67: */
68: BEGIN
69: UTL_FILE.PUT_LINE (l_file_prm, p_line );
70: UTL_FILE.FFLUSH (l_file_prm );
71: END put_line;
72:
73: PROCEDURE close_file IS

Line 70: UTL_FILE.FFLUSH (l_file_prm );

66: || (reverse chronological order - newest change first)
67: */
68: BEGIN
69: UTL_FILE.PUT_LINE (l_file_prm, p_line );
70: UTL_FILE.FFLUSH (l_file_prm );
71: END put_line;
72:
73: PROCEDURE close_file IS
74: /*

Line 84: IF (UTL_FILE.IS_OPEN( l_file_prm )) THEN

80: || Who When What
81: || (reverse chronological order - newest change first)
82: */
83: BEGIN
84: IF (UTL_FILE.IS_OPEN( l_file_prm )) THEN
85: UTL_FILE.FCLOSE( l_file_prm );
86: END IF;
87: END close_file;
88:

Line 85: UTL_FILE.FCLOSE( l_file_prm );

81: || (reverse chronological order - newest change first)
82: */
83: BEGIN
84: IF (UTL_FILE.IS_OPEN( l_file_prm )) THEN
85: UTL_FILE.FCLOSE( l_file_prm );
86: END IF;
87: END close_file;
88:
89:

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

152: /**********************************************************
153: Created By : ayedubat
154: Date Created By : 24-DEC-2002
155: Purpose : Private procedure craeted for finding the Directory of the filename.
156: This will check the value of profile 'UTL_FILE_OUT'
157: (output dir for export data file) matches with the value in v$parameter
158: for the name utl_file_dir.
159: Know limitations, enhancements or remarks
160: Change History

Line 158: for the name utl_file_dir.

154: Date Created By : 24-DEC-2002
155: Purpose : Private procedure craeted for finding the Directory of the filename.
156: This will check the value of profile 'UTL_FILE_OUT'
157: (output dir for export data file) matches with the value in v$parameter
158: for the name utl_file_dir.
159: Know limitations, enhancements or remarks
160: Change History
161: Who When What
162: (reverse chronological order - newest change first)

Line 175: WHERE name ='utl_file_dir';

171:
172: CURSOR cur_parameter_value IS
173: SELECT LTRIM(RTRIM(value))
174: FROM V$PARAMETER
175: WHERE name ='utl_file_dir';
176:
177: CURSOR cur_db_dir IS
178: SELECT DECODE( INSTR(l_dbvalue,',',l_start_str_index),0,LENGTH(l_dbvalue)+1, INSTR(l_dbvalue,',',l_start_str_index) )
179: FROM DUAL ;

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

183: -- Initialize the OUT variable
184: p_directory := NULL ;
185:
186: -- Fetch the Profile value for the directory name used to export flat file
187: l_fndvalue := LTRIM(RTRIM(FND_PROFILE.VALUE('UTL_FILE_OUT')));
188:
189: -- If the profile is NULL, return the procedure by assigning the NULL value to p_directory
190: IF l_fndvalue IS NULL THEN
191: p_directory := NULL ;

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

191: p_directory := NULL ;
192: RETURN ;
193: END IF ;
194:
195: -- Fetch the Value of the Database parameter, utl_file_dir
196: -- which contains list of out put directories seperated by comma
197: OPEN cur_parameter_value ;
198: FETCH cur_parameter_value INTO l_dbvalue ;
199:

Line 1417: WHEN UTL_FILE.INVALID_PATH THEN

1413: close_file;
1414:
1415: EXCEPTION
1416:
1417: WHEN UTL_FILE.INVALID_PATH THEN
1418: ROLLBACK TO create_file;
1419: fnd_message.set_name('IGS', 'IGS_EN_INVALID_PATH');
1420: fnd_file.put_line(FND_FILE.LOG, FND_MESSAGE.GET);
1421:

Line 1422: WHEN UTL_FILE.WRITE_ERROR THEN

1418: ROLLBACK TO create_file;
1419: fnd_message.set_name('IGS', 'IGS_EN_INVALID_PATH');
1420: fnd_file.put_line(FND_FILE.LOG, FND_MESSAGE.GET);
1421:
1422: WHEN UTL_FILE.WRITE_ERROR THEN
1423: ROLLBACK TO create_file;
1424: fnd_message.set_name('IGS', 'IGS_EN_WRITE_ERROR');
1425: fnd_file.put_line(FND_FILE.LOG, FND_MESSAGE.GET);
1426:

Line 1427: WHEN UTL_FILE.INVALID_FILEHANDLE THEN

1423: ROLLBACK TO create_file;
1424: fnd_message.set_name('IGS', 'IGS_EN_WRITE_ERROR');
1425: fnd_file.put_line(FND_FILE.LOG, FND_MESSAGE.GET);
1426:
1427: WHEN UTL_FILE.INVALID_FILEHANDLE THEN
1428: ROLLBACK TO create_file;
1429: fnd_message.set_name('IGS', 'IGS_EN_INVALID_FILEHANDLE');
1430: fnd_file.put_line(FND_FILE.LOG, FND_MESSAGE.GET);
1431: