DBA Data[Home] [Help]

APPS.PAY_SE_ALECTA_UPLOAD dependencies on UTL_FILE

Line 28: l_file_type UTL_FILE.file_type;

24: l_proc CONSTANT VARCHAR2(72) := g_package||'.upload' ;
25: l_legislation_code per_business_groups.legislation_code%TYPE;
26: l_bg_name per_business_groups.name%TYPE;
27:
28: l_file_type UTL_FILE.file_type;
29: l_filename VARCHAR2 (240);
30: l_location VARCHAR2 (4000);
31: l_line_read VARCHAR2 (4000) := NULL;
32: l_line_no NUMBER := 0;

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

72: RAISE e_fatal_error;
73: END IF;
74:
75: l_file_type :=
76: UTL_FILE.fopen (l_location, l_filename, c_read_file, c_max_linesize);
77:
78: <>
79: LOOP
80: BEGIN

Line 81: UTL_FILE.get_line (l_file_type, l_line_read);

77:
78: <>
79: LOOP
80: BEGIN
81: UTL_FILE.get_line (l_file_type, l_line_read);
82: l_line_no := l_line_no + 1;
83: EXCEPTION
84: WHEN VALUE_ERROR
85: THEN

Line 86: IF UTL_FILE.is_open (l_file_type)

82: l_line_no := l_line_no + 1;
83: EXCEPTION
84: WHEN VALUE_ERROR
85: THEN
86: IF UTL_FILE.is_open (l_file_type)
87: THEN
88: UTL_FILE.fclose (l_file_type);
89: END IF;
90:

Line 88: UTL_FILE.fclose (l_file_type);

84: WHEN VALUE_ERROR
85: THEN
86: IF UTL_FILE.is_open (l_file_type)
87: THEN
88: UTL_FILE.fclose (l_file_type);
89: END IF;
90:
91: hr_utility.set_location (l_proc, 50);
92: retcode := c_error;

Line 128: UTL_FILE.fclose (l_file_type);

124: fnd_file.put_line (fnd_file.LOG, hr_utility.get_message);
125: END;
126: END LOOP read_lines_in_file;
127:
128: UTL_FILE.fclose (l_file_type);
129: hr_utility.set_location ( 'Leaving:'|| l_proc, 260);
130:
131: EXCEPTION
132: WHEN e_fatal_error

Line 134: IF UTL_FILE.is_open (l_file_type)

130:
131: EXCEPTION
132: WHEN e_fatal_error
133: THEN
134: IF UTL_FILE.is_open (l_file_type)
135: THEN
136: UTL_FILE.fclose (l_file_type);
137: END IF;
138:

Line 136: UTL_FILE.fclose (l_file_type);

132: WHEN e_fatal_error
133: THEN
134: IF UTL_FILE.is_open (l_file_type)
135: THEN
136: UTL_FILE.fclose (l_file_type);
137: END IF;
138:
139: hr_utility.set_location (l_proc, 270);
140: retcode := c_error;

Line 144: WHEN UTL_FILE.invalid_operation

140: retcode := c_error;
141: hr_utility.set_message (801, 'HR_SE_DATA_EXCHANGE_DIR_MIS');
142: errbuf := hr_utility.get_message;
143:
144: WHEN UTL_FILE.invalid_operation
145: THEN
146: IF UTL_FILE.is_open (l_file_type)
147: THEN
148: UTL_FILE.fclose (l_file_type);

Line 146: IF UTL_FILE.is_open (l_file_type)

142: errbuf := hr_utility.get_message;
143:
144: WHEN UTL_FILE.invalid_operation
145: THEN
146: IF UTL_FILE.is_open (l_file_type)
147: THEN
148: UTL_FILE.fclose (l_file_type);
149: END IF;
150:

Line 148: UTL_FILE.fclose (l_file_type);

144: WHEN UTL_FILE.invalid_operation
145: THEN
146: IF UTL_FILE.is_open (l_file_type)
147: THEN
148: UTL_FILE.fclose (l_file_type);
149: END IF;
150:
151: hr_utility.set_location (l_proc, 280);
152: retcode := c_error;

Line 155: WHEN UTL_FILE.internal_error

151: hr_utility.set_location (l_proc, 280);
152: retcode := c_error;
153: errbuf := 'Reading File ('||l_location ||' -> ' || l_filename || ') - Invalid Operation.';
154:
155: WHEN UTL_FILE.internal_error
156: THEN
157: IF UTL_FILE.is_open (l_file_type)
158: THEN
159: UTL_FILE.fclose (l_file_type);

Line 157: IF UTL_FILE.is_open (l_file_type)

153: errbuf := 'Reading File ('||l_location ||' -> ' || l_filename || ') - Invalid Operation.';
154:
155: WHEN UTL_FILE.internal_error
156: THEN
157: IF UTL_FILE.is_open (l_file_type)
158: THEN
159: UTL_FILE.fclose (l_file_type);
160: END IF;
161:

Line 159: UTL_FILE.fclose (l_file_type);

155: WHEN UTL_FILE.internal_error
156: THEN
157: IF UTL_FILE.is_open (l_file_type)
158: THEN
159: UTL_FILE.fclose (l_file_type);
160: END IF;
161:
162: hr_utility.set_location (l_proc, 290);
163: retcode := c_error;

Line 166: WHEN UTL_FILE.invalid_mode

162: hr_utility.set_location (l_proc, 290);
163: retcode := c_error;
164: errbuf := 'Reading File (' || l_location || ' -> ' || l_filename || ') - Internal Error.';
165:
166: WHEN UTL_FILE.invalid_mode
167: THEN
168: IF UTL_FILE.is_open (l_file_type)
169: THEN
170: UTL_FILE.fclose (l_file_type);

Line 168: IF UTL_FILE.is_open (l_file_type)

164: errbuf := 'Reading File (' || l_location || ' -> ' || l_filename || ') - Internal Error.';
165:
166: WHEN UTL_FILE.invalid_mode
167: THEN
168: IF UTL_FILE.is_open (l_file_type)
169: THEN
170: UTL_FILE.fclose (l_file_type);
171: END IF;
172:

Line 170: UTL_FILE.fclose (l_file_type);

166: WHEN UTL_FILE.invalid_mode
167: THEN
168: IF UTL_FILE.is_open (l_file_type)
169: THEN
170: UTL_FILE.fclose (l_file_type);
171: END IF;
172:
173: hr_utility.set_location (l_proc, 300);
174: retcode := c_error;

Line 177: WHEN UTL_FILE.invalid_path

173: hr_utility.set_location (l_proc, 300);
174: retcode := c_error;
175: errbuf := 'Reading File (' || l_location || ' -> ' || l_filename || ') - Invalid Mode.';
176:
177: WHEN UTL_FILE.invalid_path
178: THEN
179: IF UTL_FILE.is_open (l_file_type)
180: THEN
181: UTL_FILE.fclose (l_file_type);

Line 179: IF UTL_FILE.is_open (l_file_type)

175: errbuf := 'Reading File (' || l_location || ' -> ' || l_filename || ') - Invalid Mode.';
176:
177: WHEN UTL_FILE.invalid_path
178: THEN
179: IF UTL_FILE.is_open (l_file_type)
180: THEN
181: UTL_FILE.fclose (l_file_type);
182: END IF;
183:

Line 181: UTL_FILE.fclose (l_file_type);

177: WHEN UTL_FILE.invalid_path
178: THEN
179: IF UTL_FILE.is_open (l_file_type)
180: THEN
181: UTL_FILE.fclose (l_file_type);
182: END IF;
183:
184: retcode := c_error;
185: errbuf := 'Reading File (' || l_location || ' -> ' || l_filename || ') - Invalid Path or Filename.';

Line 188: WHEN UTL_FILE.invalid_filehandle

184: retcode := c_error;
185: errbuf := 'Reading File (' || l_location || ' -> ' || l_filename || ') - Invalid Path or Filename.';
186: hr_utility.set_location (l_proc, 310);
187:
188: WHEN UTL_FILE.invalid_filehandle
189: THEN
190: IF UTL_FILE.is_open (l_file_type)
191: THEN
192: UTL_FILE.fclose (l_file_type);

Line 190: IF UTL_FILE.is_open (l_file_type)

186: hr_utility.set_location (l_proc, 310);
187:
188: WHEN UTL_FILE.invalid_filehandle
189: THEN
190: IF UTL_FILE.is_open (l_file_type)
191: THEN
192: UTL_FILE.fclose (l_file_type);
193: END IF;
194:

Line 192: UTL_FILE.fclose (l_file_type);

188: WHEN UTL_FILE.invalid_filehandle
189: THEN
190: IF UTL_FILE.is_open (l_file_type)
191: THEN
192: UTL_FILE.fclose (l_file_type);
193: END IF;
194:
195: hr_utility.set_location (l_proc, 320);
196: retcode := c_error;

Line 198: WHEN UTL_FILE.read_error

194:
195: hr_utility.set_location (l_proc, 320);
196: retcode := c_error;
197: errbuf := 'Reading File (' || l_location || ' -> ' || l_filename || ') - Invalid File Type.';
198: WHEN UTL_FILE.read_error
199:
200: THEN
201: IF UTL_FILE.is_open (l_file_type)
202: THEN

Line 201: IF UTL_FILE.is_open (l_file_type)

197: errbuf := 'Reading File (' || l_location || ' -> ' || l_filename || ') - Invalid File Type.';
198: WHEN UTL_FILE.read_error
199:
200: THEN
201: IF UTL_FILE.is_open (l_file_type)
202: THEN
203: UTL_FILE.fclose (l_file_type);
204: END IF;
205:

Line 203: UTL_FILE.fclose (l_file_type);

199:
200: THEN
201: IF UTL_FILE.is_open (l_file_type)
202: THEN
203: UTL_FILE.fclose (l_file_type);
204: END IF;
205:
206: hr_utility.set_location (l_proc, 330);
207: retcode := c_error;