66: l_timestamp := To_Char(SYSDATE,'yyyyMMddHHmmssSSS');
67: END IF;
68:
69:
70: SELECT Trim(FND_PROFILE.VALUE('PO_EDA_FILES_LOCATION')) INTO v_out_dir FROM dual;
71: v_out_file := UTL_FILE.FOPEN(v_out_dir,p_clm_document_number||'_'||l_timestamp||'.idx', 'w',32000);
72:
73: fnd_file.put_line(FND_FILE.LOG,' ');
74: fnd_file.put_line(FND_FILE.LOG,'Current Concurrent Request Id : '||FND_GLOBAL.CONC_REQUEST_ID);
536: v_out_dir varchar2(2000);
537:
538: BEGIN
539: --CHECK whether the provided directory in the profile option PO_EDA_FILES_LOCATION is proper or not
540: SELECT Trim(FND_PROFILE.VALUE('PO_EDA_FILES_LOCATION')) INTO v_out_dir FROM dual;
541: v_tmp_file := UTL_FILE.FOPEN(v_out_dir,'t.tmp', 'w',32000);
542: UTL_FILE.FREMOVE(v_out_dir,'t.tmp');
543:
544: -- Check if the concurrent program is being restarted due to completion of child request
542: UTL_FILE.FREMOVE(v_out_dir,'t.tmp');
543:
544: -- Check if the concurrent program is being restarted due to completion of child request
545: begin
546: SELECT FND_PROFILE.VALUE('PO_EDA_BATCH_SIZE') into l_max_doc_in_batch FROM dual;
547: exception
548: when others then
549: l_max_doc_in_batch := 5;
550: end;