DBA Data[Home] [Help]

APPS.PV_PARTNER_ATTR_LOAD_PUB dependencies on UTL_FILE

Line 27: L_LOG_FILE utl_file.file_type;

23: --
24: -- End of Comments
25:
26: --log file declaration
27: L_LOG_FILE utl_file.file_type;
28: TYPE l_errors_tbl_type IS TABLE OF varchar2(3000) INDEX BY BINARY_INTEGER;
29: l_errors_tbl l_errors_tbl_type;
30: l_error_count number;
31:

Line 354: PROCEDURE Write_Log(p_log_file utl_file.file_type, p_msg varchar2) IS

350: */
351: /*********SHOME'S CODE ENDS HERE ***************************/
352:
353: /*
354: PROCEDURE Write_Log(p_log_file utl_file.file_type, p_msg varchar2) IS
355: BEGIN
356:
357: FND_FILE.put(p_which, p_mssg);
358: FND_FILE.NEW_LINE(p_which, 1);

Line 360: -- utl_file.put_line(p_log_file, p_msg);

356:
357: FND_FILE.put(p_which, p_mssg);
358: FND_FILE.NEW_LINE(p_which, 1);
359:
360: -- utl_file.put_line(p_log_file, p_msg);
361: --dbms_output.put_line(' ');
362:
363:
364: END Write_Log;

Line 396: utl_file.put_line(L_LOG_FILE, rpad(' ',100) || l_errors_tbl(i));

392: --dbms_output.put_line('Error Count: ' || l_errors_tbl.count);
393: if l_errors_tbl.count > 0 then
394: for i in 1..l_errors_tbl.count
395: loop
396: utl_file.put_line(L_LOG_FILE, rpad(' ',100) || l_errors_tbl(i));
397: --dbms_output.put_line('Error: ' || l_errors_tbl(i));
398: end loop;
399: l_errors_tbl.delete;
400: end if;

Line 1794: from v$parameter where name = 'utl_file_dir';

1790: CURSOR l_get_file_dir IS
1791: select
1792: trim(substr(value,0,(instr(value,',') - 1))),
1793: trim(substr(value,(instr(value,',') + 1)))
1794: from v$parameter where name = 'utl_file_dir';
1795:
1796:
1797: l_data_block_size NUMBER;
1798: l_partnersProcessedCount Number;

Line 1848: -- UTL_FILE.fclose_all;

1844: open l_get_file_dir;
1845: fetch l_get_file_dir into l_out_dir, l_log_dir;
1846: close l_get_file_dir;
1847:
1848: -- UTL_FILE.fclose_all;
1849: l_log_file := utl_file.fopen(trim(l_out_dir), l_file_name, 'w',32767);
1850:
1851:
1852: /*

Line 1849: l_log_file := utl_file.fopen(trim(l_out_dir), l_file_name, 'w',32767);

1845: fetch l_get_file_dir into l_out_dir, l_log_dir;
1846: close l_get_file_dir;
1847:
1848: -- UTL_FILE.fclose_all;
1849: l_log_file := utl_file.fopen(trim(l_out_dir), l_file_name, 'w',32767);
1850:
1851:
1852: /*
1853: Check if the commit size is passed. If not take it from the profile setting.

Line 1877: utl_file.put_line(L_LOG_FILE, substrb(fnd_message.get, 1, 1000));

1873: l_upper_limit := ceil(batch_ident*(p_partner_details_tbl.Count/l_batch_count));
1874: end if;
1875:
1876: fnd_message.set_name('PV', 'PV_IMP_SUMMARY');
1877: utl_file.put_line(L_LOG_FILE, substrb(fnd_message.get, 1, 1000));
1878:
1879: SAVEPOINT Batch;
1880: for partner_ident in l_lower_limit..l_upper_limit
1881: loop

Line 2047: utl_file.put_line(L_LOG_FILE, rpad(nvl(l_partner_name,l_ns),30) || rpad(nvl(l_orig_system,l_ns),20) || rpad(nvl(l_orig_system_ref,l_ns),20) || rpad(nvl(to_char(l_party_id),l_ns),20) ||

2043:
2044: --dbms_output.put_line('writing partner id ' || l_partner_id );
2045: fnd_message.set_name('PV', 'PV_IMP_NOT_SUPL');
2046: l_ns := substrb(fnd_message.get, 1, 1000);
2047: utl_file.put_line(L_LOG_FILE, rpad(nvl(l_partner_name,l_ns),30) || rpad(nvl(l_orig_system,l_ns),20) || rpad(nvl(l_orig_system_ref,l_ns),20) || rpad(nvl(to_char(l_party_id),l_ns),20) ||
2048: rpad(nvl(to_char(l_partner_id),l_ns),20) || rpad(nvl(l_status,l_ns),20));
2049: Write_Error();
2050: utl_file.put_line(L_LOG_FILE, '------------------------------------------------------------------------------------------------------------------------------------------------------');
2051: end loop;

Line 2050: utl_file.put_line(L_LOG_FILE, '------------------------------------------------------------------------------------------------------------------------------------------------------');

2046: l_ns := substrb(fnd_message.get, 1, 1000);
2047: utl_file.put_line(L_LOG_FILE, rpad(nvl(l_partner_name,l_ns),30) || rpad(nvl(l_orig_system,l_ns),20) || rpad(nvl(l_orig_system_ref,l_ns),20) || rpad(nvl(to_char(l_party_id),l_ns),20) ||
2048: rpad(nvl(to_char(l_partner_id),l_ns),20) || rpad(nvl(l_status,l_ns),20));
2049: Write_Error();
2050: utl_file.put_line(L_LOG_FILE, '------------------------------------------------------------------------------------------------------------------------------------------------------');
2051: end loop;
2052:
2053: if l_running_mode = 'EXECUTION' then
2054: commit;

Line 2065: utl_file.put_line(L_LOG_FILE, substrb(fnd_message.get, 1, 1000));

2061:
2062: end loop;
2063: else
2064: fnd_message.set_name('PV', 'PV_IMP_NO_PARTNER');
2065: utl_file.put_line(L_LOG_FILE, substrb(fnd_message.get, 1, 1000));
2066: --dbms_output.put_line('No partner data has been passed');
2067: end if;
2068:
2069: if l_prof <> 'N' then

Line 2075: utl_file.fclose(l_log_file);

2071: end if;
2072:
2073: x_file_name := l_out_dir || '/' || l_file_name;
2074: --dbms_output.put_line('output file name ' || x_file_name);
2075: utl_file.fclose(l_log_file);
2076:
2077:
2078: EXCEPTION
2079: when utl_file.invalid_path then

Line 2079: when utl_file.invalid_path then

2075: utl_file.fclose(l_log_file);
2076:
2077:
2078: EXCEPTION
2079: when utl_file.invalid_path then
2080: raise_application_error(-20100,'Invalid Path');
2081: when utl_file.invalid_mode then
2082: raise_application_error(-20101,'Invalid Mode');
2083: when utl_file.invalid_operation then

Line 2081: when utl_file.invalid_mode then

2077:
2078: EXCEPTION
2079: when utl_file.invalid_path then
2080: raise_application_error(-20100,'Invalid Path');
2081: when utl_file.invalid_mode then
2082: raise_application_error(-20101,'Invalid Mode');
2083: when utl_file.invalid_operation then
2084: raise_application_error(-20102,'Invalid Operation');
2085: when utl_file.invalid_filehandle then

Line 2083: when utl_file.invalid_operation then

2079: when utl_file.invalid_path then
2080: raise_application_error(-20100,'Invalid Path');
2081: when utl_file.invalid_mode then
2082: raise_application_error(-20101,'Invalid Mode');
2083: when utl_file.invalid_operation then
2084: raise_application_error(-20102,'Invalid Operation');
2085: when utl_file.invalid_filehandle then
2086: raise_application_error(-20103,'Invalid FileHandle');
2087: when utl_file.write_error then

Line 2085: when utl_file.invalid_filehandle then

2081: when utl_file.invalid_mode then
2082: raise_application_error(-20101,'Invalid Mode');
2083: when utl_file.invalid_operation then
2084: raise_application_error(-20102,'Invalid Operation');
2085: when utl_file.invalid_filehandle then
2086: raise_application_error(-20103,'Invalid FileHandle');
2087: when utl_file.write_error then
2088: utl_file.fclose(l_log_file);
2089: raise_application_error(-20104,'Write Error');

Line 2087: when utl_file.write_error then

2083: when utl_file.invalid_operation then
2084: raise_application_error(-20102,'Invalid Operation');
2085: when utl_file.invalid_filehandle then
2086: raise_application_error(-20103,'Invalid FileHandle');
2087: when utl_file.write_error then
2088: utl_file.fclose(l_log_file);
2089: raise_application_error(-20104,'Write Error');
2090: when utl_file.read_error then
2091: raise_application_error(-20105,'Read Error');

Line 2088: utl_file.fclose(l_log_file);

2084: raise_application_error(-20102,'Invalid Operation');
2085: when utl_file.invalid_filehandle then
2086: raise_application_error(-20103,'Invalid FileHandle');
2087: when utl_file.write_error then
2088: utl_file.fclose(l_log_file);
2089: raise_application_error(-20104,'Write Error');
2090: when utl_file.read_error then
2091: raise_application_error(-20105,'Read Error');
2092: when utl_file.internal_error then

Line 2090: when utl_file.read_error then

2086: raise_application_error(-20103,'Invalid FileHandle');
2087: when utl_file.write_error then
2088: utl_file.fclose(l_log_file);
2089: raise_application_error(-20104,'Write Error');
2090: when utl_file.read_error then
2091: raise_application_error(-20105,'Read Error');
2092: when utl_file.internal_error then
2093: raise_application_error(-20106,'Internal Error');
2094:

Line 2092: when utl_file.internal_error then

2088: utl_file.fclose(l_log_file);
2089: raise_application_error(-20104,'Write Error');
2090: when utl_file.read_error then
2091: raise_application_error(-20105,'Read Error');
2092: when utl_file.internal_error then
2093: raise_application_error(-20106,'Internal Error');
2094:
2095: WHEN OTHERS THEN
2096: --dbms_output.put_line('Exception Occured ' || SQLERRM);

Line 2098: utl_file.put_line(L_LOG_FILE,SQLERRM);

2094:
2095: WHEN OTHERS THEN
2096: --dbms_output.put_line('Exception Occured ' || SQLERRM);
2097: ROLLBACK;
2098: utl_file.put_line(L_LOG_FILE,SQLERRM);
2099: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
2100: utl_file.put_line(L_LOG_FILE,Substr(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ),1,1000));
2101: --dbms_output.put_line('error handling ');
2102: END LOOP;

Line 2100: utl_file.put_line(L_LOG_FILE,Substr(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ),1,1000));

2096: --dbms_output.put_line('Exception Occured ' || SQLERRM);
2097: ROLLBACK;
2098: utl_file.put_line(L_LOG_FILE,SQLERRM);
2099: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
2100: utl_file.put_line(L_LOG_FILE,Substr(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ),1,1000));
2101: --dbms_output.put_line('error handling ');
2102: END LOOP;
2103: utl_file.fclose(l_log_file);
2104:

Line 2103: utl_file.fclose(l_log_file);

2099: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
2100: utl_file.put_line(L_LOG_FILE,Substr(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ),1,1000));
2101: --dbms_output.put_line('error handling ');
2102: END LOOP;
2103: utl_file.fclose(l_log_file);
2104:
2105:
2106: END;
2107: