DBA Data[Home] [Help]

APPS.PAY_GB_P6EDI_PKG dependencies on HR_UTILITY

Line 50: -- hr_utility.trace_on(null,'P6');

46: l_request_id number;
47:
48: begin
49: --
50: -- hr_utility.trace_on(null,'P6');
51: hr_utility.set_location('PAY_GB_P6EDI.upload_p6',5);
52: --
53: l_filename := p_filename;
54: --

Line 51: hr_utility.set_location('PAY_GB_P6EDI.upload_p6',5);

47:
48: begin
49: --
50: -- hr_utility.trace_on(null,'P6');
51: hr_utility.set_location('PAY_GB_P6EDI.upload_p6',5);
52: --
53: l_filename := p_filename;
54: --
55: -- Get I/O Directory

Line 62: hr_utility.trace('directory: <'|| l_location || '>');

58: --
59: -- Get request id
60: l_request_id := FND_GLOBAL.CONC_REQUEST_ID;
61:
62: hr_utility.trace('directory: <'|| l_location || '>');
63: if l_location is null then
64: -- error : I/O directory not defined
65: retcode := 2;
66: errbuf := 'Input directory not defined. Set PER_DATA_EXCHANGE_DIR profile (HR: Data Exchange directory).';

Line 67: hr_utility.trace('Input directory not defined in PER_DATA_EXCHANGE_DIR profile.');

63: if l_location is null then
64: -- error : I/O directory not defined
65: retcode := 2;
66: errbuf := 'Input directory not defined. Set PER_DATA_EXCHANGE_DIR profile (HR: Data Exchange directory).';
67: hr_utility.trace('Input directory not defined in PER_DATA_EXCHANGE_DIR profile.');
68: raise e_fatal_error;
69: end if;
70: --
71: -- Open flat file

Line 77: hr_utility.set_location('PAY_GB_P6EDI.upload_p6',10);

73: l_file_handle := utl_file.fopen(l_Location,l_filename,'r');
74: --
75: utl_file.get_line(l_file_handle,l_present_line);
76: --
77: hr_utility.set_location('PAY_GB_P6EDI.upload_p6',10);
78: hr_utility.trace('line: '|| l_present_line);
79: --
80: if l_present_line = null then
81: l_processing := false;

Line 78: hr_utility.trace('line: '|| l_present_line);

74: --
75: utl_file.get_line(l_file_handle,l_present_line);
76: --
77: hr_utility.set_location('PAY_GB_P6EDI.upload_p6',10);
78: hr_utility.trace('line: '|| l_present_line);
79: --
80: if l_present_line = null then
81: l_processing := false;
82: -- the deletion is moved to the pyudet.run_process

Line 93: hr_utility.trace('l_rec_name is <' || l_record_name || '>');

89: while l_processing loop
90: l_start_of_employer := false;
91: l_record_name := rtrim(ltrim(substr(l_present_line,1,5)));
92: l_qualifier := get_qualifier(l_present_line);
93: hr_utility.trace('l_rec_name is <' || l_record_name || '>');
94: hr_utility.trace('l_quali is <' || l_qualifier || '>');
95:
96: -- For Bug fix 4232473, resetting record count to Zero for each set of
97: -- Employer Reference records.

Line 94: hr_utility.trace('l_quali is <' || l_qualifier || '>');

90: l_start_of_employer := false;
91: l_record_name := rtrim(ltrim(substr(l_present_line,1,5)));
92: l_qualifier := get_qualifier(l_present_line);
93: hr_utility.trace('l_rec_name is <' || l_record_name || '>');
94: hr_utility.trace('l_quali is <' || l_qualifier || '>');
95:
96: -- For Bug fix 4232473, resetting record count to Zero for each set of
97: -- Employer Reference records.
98: if l_record_name = '****0' then

Line 109: hr_utility.trace('Form Type is not one of these: P6, P6B or P9.');

105: -- error, form type error.
106: retcode := 2;
107: errbuf := 'This process only accepts P6, P6B and P9.';
108: --
109: hr_utility.trace('Form Type is not one of these: P6, P6B or P9.');
110: raise e_fatal_error;
111: else
112: if l_form_number = '1' then
113: l_form_type := 'P6';

Line 136: hr_utility.trace('in NAD2B: l_prev_rec is <' || l_previous_record || '>');

132: l_record_no := 0;
133: elsif l_record_name = 'LIN1' then --new employee
134: l_record_no := l_record_no + 1;
135: elsif l_record_name = 'NAD2B' then
136: hr_utility.trace('in NAD2B: l_prev_rec is <' || l_previous_record || '>');
137: hr_utility.trace('in NAD2B: l_prev_qual is <' || l_previous_qualifier || '>');
138: if l_previous_record = 'NAD2A' and l_previous_qualifier = 'BV' then
139: l_employee_name := get_name(l_present_line);
140: -- l_employee_name := ltrim(rtrim(l_employee_name || ' ' || substr(l_present_line,43,1)));

Line 137: hr_utility.trace('in NAD2B: l_prev_qual is <' || l_previous_qualifier || '>');

133: elsif l_record_name = 'LIN1' then --new employee
134: l_record_no := l_record_no + 1;
135: elsif l_record_name = 'NAD2B' then
136: hr_utility.trace('in NAD2B: l_prev_rec is <' || l_previous_record || '>');
137: hr_utility.trace('in NAD2B: l_prev_qual is <' || l_previous_qualifier || '>');
138: if l_previous_record = 'NAD2A' and l_previous_qualifier = 'BV' then
139: l_employee_name := get_name(l_present_line);
140: -- l_employee_name := ltrim(rtrim(l_employee_name || ' ' || substr(l_present_line,43,1)));
141: hr_utility.trace('employee name is (' || l_employee_name || ')');

Line 141: hr_utility.trace('employee name is (' || l_employee_name || ')');

137: hr_utility.trace('in NAD2B: l_prev_qual is <' || l_previous_qualifier || '>');
138: if l_previous_record = 'NAD2A' and l_previous_qualifier = 'BV' then
139: l_employee_name := get_name(l_present_line);
140: -- l_employee_name := ltrim(rtrim(l_employee_name || ' ' || substr(l_present_line,43,1)));
141: hr_utility.trace('employee name is (' || l_employee_name || ')');
142: else
143: -- error, file format error.
144: retcode := 2;
145: errbuf := 'The Input File does not follow the required format.';

Line 147: hr_utility.trace('Format Error at line ' || to_char(l_line_number) || '.');

143: -- error, file format error.
144: retcode := 2;
145: errbuf := 'The Input File does not follow the required format.';
146: --
147: hr_utility.trace('Format Error at line ' || to_char(l_line_number) || '.');
148: hr_utility.trace('Employee name does not have a required NAD2A previous record.');
149: raise e_fatal_error;
150: end if;
151: elsif l_record_name = 'ATT2' then

Line 148: hr_utility.trace('Employee name does not have a required NAD2A previous record.');

144: retcode := 2;
145: errbuf := 'The Input File does not follow the required format.';
146: --
147: hr_utility.trace('Format Error at line ' || to_char(l_line_number) || '.');
148: hr_utility.trace('Employee name does not have a required NAD2A previous record.');
149: raise e_fatal_error;
150: end if;
151: elsif l_record_name = 'ATT2' then
152: if l_qualifier = '11' then

Line 169: hr_utility.trace('Format Error at line ' || to_char(l_line_number) || '.');

165: -- error, file format error.
166: retcode := 2;
167: errbuf := 'The Input File does not follow the required format.';
168: --
169: hr_utility.trace('Format Error at line ' || to_char(l_line_number) || '.');
170: hr_utility.trace('Amount does not have a required TAX1 previous record.');
171: raise e_fatal_error;
172: end if;
173: elsif l_record_name = 'DTM2' then

Line 170: hr_utility.trace('Amount does not have a required TAX1 previous record.');

166: retcode := 2;
167: errbuf := 'The Input File does not follow the required format.';
168: --
169: hr_utility.trace('Format Error at line ' || to_char(l_line_number) || '.');
170: hr_utility.trace('Amount does not have a required TAX1 previous record.');
171: raise e_fatal_error;
172: end if;
173: elsif l_record_name = 'DTM2' then
174: if l_qualifier = '7' then

Line 193: hr_utility.trace('Format Error at line ' || to_char(l_line_number) || '.');

189: -- error, file format error.
190: retcode := 2;
191: errbuf := 'The Input File does not follow the required format.';
192: --
193: hr_utility.trace('Format Error at line ' || to_char(l_line_number) || '.');
194: hr_utility.trace('Week1/Month1 or SVR indicator does not have a required ALC1 previous record.');
195: raise e_fatal_error;
196: end if;
197: end if;

Line 194: hr_utility.trace('Week1/Month1 or SVR indicator does not have a required ALC1 previous record.');

190: retcode := 2;
191: errbuf := 'The Input File does not follow the required format.';
192: --
193: hr_utility.trace('Format Error at line ' || to_char(l_line_number) || '.');
194: hr_utility.trace('Week1/Month1 or SVR indicator does not have a required ALC1 previous record.');
195: raise e_fatal_error;
196: end if;
197: end if;
198: end if;

Line 247: hr_utility.set_location('PAY_GB_P6EDI.upload_p6',50);

243: --
244: begin
245: utl_file.get_line(l_file_handle,l_present_line);
246: --
247: hr_utility.set_location('PAY_GB_P6EDI.upload_p6',50);
248: hr_utility.trace('line: '|| l_present_line);
249: --
250: exception
251: when no_data_found then

Line 248: hr_utility.trace('line: '|| l_present_line);

244: begin
245: utl_file.get_line(l_file_handle,l_present_line);
246: --
247: hr_utility.set_location('PAY_GB_P6EDI.upload_p6',50);
248: hr_utility.trace('line: '|| l_present_line);
249: --
250: exception
251: when no_data_found then
252: l_processing := false;

Line 260: hr_utility.set_location('PAY_GB_P6EDI.upload_p6',60);

256: --
257: end loop;
258: --
259: --
260: hr_utility.set_location('PAY_GB_P6EDI.upload_p6',60);
261: hr_utility.trace('PAY_GB_P6EDI.upload_p6 - committing...');
262: commit;
263: --
264: --

Line 261: hr_utility.trace('PAY_GB_P6EDI.upload_p6 - committing...');

257: end loop;
258: --
259: --
260: hr_utility.set_location('PAY_GB_P6EDI.upload_p6',60);
261: hr_utility.trace('PAY_GB_P6EDI.upload_p6 - committing...');
262: commit;
263: --
264: --
265: utl_file.fclose(l_file_handle);

Line 281: hr_utility.trace('The pyudet request ID is '||to_char(l_pyudet_id));

277: argument7 => l_request_id,
278: argument8 => p_validate_only); --added soy 08-09*/
279: --
280: --
281: hr_utility.trace('The pyudet request ID is '||to_char(l_pyudet_id));
282: hr_utility.trace('Finished P6 UPLOAD PROCESS.');
283: --
284: --
285: retcode := 0;

Line 282: hr_utility.trace('Finished P6 UPLOAD PROCESS.');

278: argument8 => p_validate_only); --added soy 08-09*/
279: --
280: --
281: hr_utility.trace('The pyudet request ID is '||to_char(l_pyudet_id));
282: hr_utility.trace('Finished P6 UPLOAD PROCESS.');
283: --
284: --
285: retcode := 0;
286: errbuf := 'No errors - examine logfiles for detailed reports.';

Line 287: --hr_utility.trace_off;

283: --
284: --
285: retcode := 0;
286: errbuf := 'No errors - examine logfiles for detailed reports.';
287: --hr_utility.trace_off;
288: --
289: --
290: exception
291: when e_fatal_error then

Line 293: hr_utility.set_location('PAY_GB_P6EDI.upload_p6',100);

289: --
290: exception
291: when e_fatal_error then
292: UTL_FILE.FCLOSE(l_file_handle);
293: hr_utility.set_location('PAY_GB_P6EDI.upload_p6',100);
294: rollback;
295: when UTL_FILE.INVALID_OPERATION then
296: UTL_FILE.FCLOSE(l_file_handle);
297: hr_utility.set_location('PAY_GB_P6EDI.upload_p6',110);

Line 297: hr_utility.set_location('PAY_GB_P6EDI.upload_p6',110);

293: hr_utility.set_location('PAY_GB_P6EDI.upload_p6',100);
294: rollback;
295: when UTL_FILE.INVALID_OPERATION then
296: UTL_FILE.FCLOSE(l_file_handle);
297: hr_utility.set_location('PAY_GB_P6EDI.upload_p6',110);
298: retcode:=2;
299: errbuf := 'Reading P6 File - Invalid Operation (file not found).';
300: when UTL_FILE.INTERNAL_ERROR then
301: UTL_FILE.FCLOSE(l_file_handle);

Line 302: hr_utility.set_location('PAY_GB_P6EDI.upload_p6',120);

298: retcode:=2;
299: errbuf := 'Reading P6 File - Invalid Operation (file not found).';
300: when UTL_FILE.INTERNAL_ERROR then
301: UTL_FILE.FCLOSE(l_file_handle);
302: hr_utility.set_location('PAY_GB_P6EDI.upload_p6',120);
303: retcode:=2;
304: errbuf := 'Reading P6 File - Internal Error.';
305: when UTL_FILE.INVALID_MODE then
306: UTL_FILE.FCLOSE(l_file_handle);

Line 307: hr_utility.set_location('PAY_GB_P6EDI.upload_p6',130);

303: retcode:=2;
304: errbuf := 'Reading P6 File - Internal Error.';
305: when UTL_FILE.INVALID_MODE then
306: UTL_FILE.FCLOSE(l_file_handle);
307: hr_utility.set_location('PAY_GB_P6EDI.upload_p6',130);
308: retcode:=2;
309: errbuf := 'Reading P6 File - Invalid Mode.';
310: when UTL_FILE.INVALID_PATH then
311: UTL_FILE.FCLOSE(l_file_handle);

Line 312: hr_utility.set_location('PAY_GB_P6EDI.upload_p6',140);

308: retcode:=2;
309: errbuf := 'Reading P6 File - Invalid Mode.';
310: when UTL_FILE.INVALID_PATH then
311: UTL_FILE.FCLOSE(l_file_handle);
312: hr_utility.set_location('PAY_GB_P6EDI.upload_p6',140);
313: retcode:=2;
314: errbuf := 'Reading P6 File - Invalid Path.';
315: when UTL_FILE.INVALID_FILEHANDLE then
316: UTL_FILE.FCLOSE(l_file_handle);

Line 317: hr_utility.set_location('PAY_GB_P6EDI.upload_p6',150);

313: retcode:=2;
314: errbuf := 'Reading P6 File - Invalid Path.';
315: when UTL_FILE.INVALID_FILEHANDLE then
316: UTL_FILE.FCLOSE(l_file_handle);
317: hr_utility.set_location('PAY_GB_P6EDI.upload_p6',150);
318: retcode:=2;
319: errbuf := 'Reading P6 File - Invalid File Handle.';
320: when UTL_FILE.READ_ERROR then
321: UTL_FILE.FCLOSE(l_file_handle);

Line 322: hr_utility.set_location('PAY_GB_P6EDI.upload_p6',160);

318: retcode:=2;
319: errbuf := 'Reading P6 File - Invalid File Handle.';
320: when UTL_FILE.READ_ERROR then
321: UTL_FILE.FCLOSE(l_file_handle);
322: hr_utility.set_location('PAY_GB_P6EDI.upload_p6',160);
323: retcode:=2;
324: errbuf := 'Reading P6 File - Read Error.';
325: when NO_DATA_FOUND then
326: UTL_FILE.FCLOSE(l_file_handle);

Line 327: hr_utility.set_location('PAY_GB_P6EDI.upload_p6',170);

323: retcode:=2;
324: errbuf := 'Reading P6 File - Read Error.';
325: when NO_DATA_FOUND then
326: UTL_FILE.FCLOSE(l_file_handle);
327: hr_utility.set_location('PAY_GB_P6EDI.upload_p6',170);
328: retcode:=2;
329: errbuf := 'No Data Found.';
330: end;
331:

Line 340: hr_utility.set_location('PAY_GB_P6EDI.get_qualifier',70);

336: begin
337: --
338: qualifier := substr(line,7,3);
339: --
340: hr_utility.set_location('PAY_GB_P6EDI.get_qualifier',70);
341: hr_utility.trace('qualifier is: ' || qualifier);
342: --
343: return ltrim(rtrim(qualifier));
344: end;

Line 341: hr_utility.trace('qualifier is: ' || qualifier);

337: --
338: qualifier := substr(line,7,3);
339: --
340: hr_utility.set_location('PAY_GB_P6EDI.get_qualifier',70);
341: hr_utility.trace('qualifier is: ' || qualifier);
342: --
343: return ltrim(rtrim(qualifier));
344: end;
345:

Line 353: hr_utility.set_location('PAY_GB_P6EDI.get_name',75);

349: begin
350: --
351: name := substr(line,7,26);
352: --
353: hr_utility.set_location('PAY_GB_P6EDI.get_name',75);
354: hr_utility.trace('name is: <' || name || '>');
355: --
356: return ltrim(rtrim(name));
357: end;

Line 354: hr_utility.trace('name is: <' || name || '>');

350: --
351: name := substr(line,7,26);
352: --
353: hr_utility.set_location('PAY_GB_P6EDI.get_name',75);
354: hr_utility.trace('name is: <' || name || '>');
355: --
356: return ltrim(rtrim(name));
357: end;
358:

Line 375: hr_utility.set_location('PAY_GB_P6EDI.process_att',80);

371: elsif qualifier = '19' then -- returns works number
372: string_to_return := substr(line,11,20);
373: end if;
374: --
375: hr_utility.set_location('PAY_GB_P6EDI.process_att',80);
376: hr_utility.trace('string is: ' || string_to_return);
377: --
378: return ltrim(rtrim(string_to_return));
379: end;

Line 376: hr_utility.trace('string is: ' || string_to_return);

372: string_to_return := substr(line,11,20);
373: end if;
374: --
375: hr_utility.set_location('PAY_GB_P6EDI.process_att',80);
376: hr_utility.trace('string is: ' || string_to_return);
377: --
378: return ltrim(rtrim(string_to_return));
379: end;
380:

Line 395: hr_utility.set_location('PAY_GB_P6EDI.process_date',85);

391: substr(line,15,2) || '/' ||
392: substr(line,17,2);
393: end if;
394: --
395: hr_utility.set_location('PAY_GB_P6EDI.process_date',85);
396: hr_utility.trace('string is: ' || string_to_return);
397: --
398: return ltrim(rtrim(string_to_return));
399: end;

Line 396: hr_utility.trace('string is: ' || string_to_return);

392: substr(line,17,2);
393: end if;
394: --
395: hr_utility.set_location('PAY_GB_P6EDI.process_date',85);
396: hr_utility.trace('string is: ' || string_to_return);
397: --
398: return ltrim(rtrim(string_to_return));
399: end;
400:

Line 413: hr_utility.set_location('PAY_GB_P6EDI.process_tax',90);

409: elsif process_type = 2 then -- returns tax code
410: string_to_return := substr(line,11,7);
411: end if;
412: --
413: hr_utility.set_location('PAY_GB_P6EDI.process_tax',90);
414: hr_utility.trace('string is: ' || string_to_return);
415: --
416: return ltrim(rtrim(string_to_return));
417: end;

Line 414: hr_utility.trace('string is: ' || string_to_return);

410: string_to_return := substr(line,11,7);
411: end if;
412: --
413: hr_utility.set_location('PAY_GB_P6EDI.process_tax',90);
414: hr_utility.trace('string is: ' || string_to_return);
415: --
416: return ltrim(rtrim(string_to_return));
417: end;
418:

Line 434: hr_utility.set_location('PAY_GB_P6EDI.write_to_database',95);

430: effective_date_p VARCHAR2,
431: issue_date_p VARCHAR2,
432: request_id_p number default null) IS
433: begin
434: hr_utility.set_location('PAY_GB_P6EDI.write_to_database',95);
435:
436: hr_utility.trace('tushar employee name is '||employee_name_p);
437: INSERT INTO pay_gb_tax_code_interface(
438: date_of_message,

Line 436: hr_utility.trace('tushar employee name is '||employee_name_p);

432: request_id_p number default null) IS
433: begin
434: hr_utility.set_location('PAY_GB_P6EDI.write_to_database',95);
435:
436: hr_utility.trace('tushar employee name is '||employee_name_p);
437: INSERT INTO pay_gb_tax_code_interface(
438: date_of_message,
439: effective_date,
440: issue_date,