[Home] [Help]
55: l_isorderoffidv VARCHAR2(100):='N';
56: l_modiftype VARCHAR2(100);
57: l_address_type VARCHAR2(50);
58: l_timestamp VARCHAR2(100);
59: v_out_file UTL_FILE.FILE_TYPE;
60: v_out_dir varchar2(2000);
61:
62: BEGIN
63:
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);
75: fnd_file.put_line(FND_FILE.LOG,'Output Directory: ' || v_out_dir);
293: CAGECode ||','||
294: DUNS ||','||
295: IndexDate);
296:
297: --v_out_file := UTL_FILE.FOPEN('/tmp',p_clm_document_number||'_'||l_timestamp||'.idx', 'w',32000);
298: UTL_FILE.PUT_LINE(v_out_file,TransactionCode ||','||
299: SystemName ||','||
300: RecordID ||','||
301: ContractNumber ||','||
294: DUNS ||','||
295: IndexDate);
296:
297: --v_out_file := UTL_FILE.FOPEN('/tmp',p_clm_document_number||'_'||l_timestamp||'.idx', 'w',32000);
298: UTL_FILE.PUT_LINE(v_out_file,TransactionCode ||','||
299: SystemName ||','||
300: RecordID ||','||
301: ContractNumber ||','||
302: DeliveryOrder ||','||
308: PayingDoDAAC ||','||
309: CAGECode ||','||
310: DUNS ||','||
311: IndexDate);
312: UTL_FILE.FFLUSH(v_out_file);
313: UTL_FILE.FCLOSE(v_out_file);
314:
315:
316: EXCEPTION WHEN OTHERS THEN
309: CAGECode ||','||
310: DUNS ||','||
311: IndexDate);
312: UTL_FILE.FFLUSH(v_out_file);
313: UTL_FILE.FCLOSE(v_out_file);
314:
315:
316: EXCEPTION WHEN OTHERS THEN
317:
531: l_doc_type varchar2(10);
532: l_doc_number varchar2(100);
533: l_timestamp timestamp;
534:
535: v_tmp_file UTL_FILE.FILE_TYPE;
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
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
545: begin
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
545: begin
546: SELECT FND_PROFILE.VALUE('PO_EDA_BATCH_SIZE') into l_max_doc_in_batch FROM dual;