171:
172: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
173: fnd_message.set_token('ROUTINE',l_proc);
174: fnd_message.set_token('REASON',SQLERRM);
175: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
176: End ;
177:
178:
179: ----This procecure is added for rules migration, conversion data now resides in okc_k_headers_b
283:
284: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
285: fnd_message.set_token('ROUTINE',l_proc);
286: fnd_message.set_token('REASON',SQLERRM);
287: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
288:
289: END;
290:
291:
335:
336: p_update_mode_yn := nvl(p_update_yn,'N');
337: IF NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N') = 'Y' THEN
338: okc_util.init_trace;
339: fnd_file.put_line(FND_FILE.LOG,'Trace Mode is Enabled');
340: END IF;
341:
342: IF (l_debug = 'Y') THEN
343: okc_debug.Set_Indentation('OKC_EURO_CONV_PUB');
343: okc_debug.Set_Indentation('OKC_EURO_CONV_PUB');
344: okc_debug.log('900: Entered CONVERT_CONTRACTS', 2);
345: END IF;
346:
347: fnd_file.put_line(FND_FILE.LOG,' ---------------------------------------------------------- ');
348: fnd_file.put_line(FND_FILE.LOG,' Starting Concurrent Program ... ');
349: fnd_file.put_line(FND_FILE.LOG,' ---------------------------------------------------------- ');
350: fnd_file.put_line(FND_FILE.LOG,' ');
351: fnd_file.put_line(FND_FILE.LOG,' ');
344: okc_debug.log('900: Entered CONVERT_CONTRACTS', 2);
345: END IF;
346:
347: fnd_file.put_line(FND_FILE.LOG,' ---------------------------------------------------------- ');
348: fnd_file.put_line(FND_FILE.LOG,' Starting Concurrent Program ... ');
349: fnd_file.put_line(FND_FILE.LOG,' ---------------------------------------------------------- ');
350: fnd_file.put_line(FND_FILE.LOG,' ');
351: fnd_file.put_line(FND_FILE.LOG,' ');
352: -- log session details
345: END IF;
346:
347: fnd_file.put_line(FND_FILE.LOG,' ---------------------------------------------------------- ');
348: fnd_file.put_line(FND_FILE.LOG,' Starting Concurrent Program ... ');
349: fnd_file.put_line(FND_FILE.LOG,' ---------------------------------------------------------- ');
350: fnd_file.put_line(FND_FILE.LOG,' ');
351: fnd_file.put_line(FND_FILE.LOG,' ');
352: -- log session details
353: fnd_file.put_line(FND_FILE.LOG,' ********** DATABASE TRACE INFORMATION*************** ');
346:
347: fnd_file.put_line(FND_FILE.LOG,' ---------------------------------------------------------- ');
348: fnd_file.put_line(FND_FILE.LOG,' Starting Concurrent Program ... ');
349: fnd_file.put_line(FND_FILE.LOG,' ---------------------------------------------------------- ');
350: fnd_file.put_line(FND_FILE.LOG,' ');
351: fnd_file.put_line(FND_FILE.LOG,' ');
352: -- log session details
353: fnd_file.put_line(FND_FILE.LOG,' ********** DATABASE TRACE INFORMATION*************** ');
354: fnd_file.put_line(FND_FILE.LOG,'User id : '||fnd_global.user_id);
347: fnd_file.put_line(FND_FILE.LOG,' ---------------------------------------------------------- ');
348: fnd_file.put_line(FND_FILE.LOG,' Starting Concurrent Program ... ');
349: fnd_file.put_line(FND_FILE.LOG,' ---------------------------------------------------------- ');
350: fnd_file.put_line(FND_FILE.LOG,' ');
351: fnd_file.put_line(FND_FILE.LOG,' ');
352: -- log session details
353: fnd_file.put_line(FND_FILE.LOG,' ********** DATABASE TRACE INFORMATION*************** ');
354: fnd_file.put_line(FND_FILE.LOG,'User id : '||fnd_global.user_id);
355: fnd_file.put_line(FND_FILE.LOG,'Conc Req id : '||fnd_global.conc_request_id);
349: fnd_file.put_line(FND_FILE.LOG,' ---------------------------------------------------------- ');
350: fnd_file.put_line(FND_FILE.LOG,' ');
351: fnd_file.put_line(FND_FILE.LOG,' ');
352: -- log session details
353: fnd_file.put_line(FND_FILE.LOG,' ********** DATABASE TRACE INFORMATION*************** ');
354: fnd_file.put_line(FND_FILE.LOG,'User id : '||fnd_global.user_id);
355: fnd_file.put_line(FND_FILE.LOG,'Conc Req id : '||fnd_global.conc_request_id);
356: fnd_file.put_line(FND_FILE.LOG,' **************************************************** ');
357: fnd_file.put_line(FND_FILE.LOG,' ');
350: fnd_file.put_line(FND_FILE.LOG,' ');
351: fnd_file.put_line(FND_FILE.LOG,' ');
352: -- log session details
353: fnd_file.put_line(FND_FILE.LOG,' ********** DATABASE TRACE INFORMATION*************** ');
354: fnd_file.put_line(FND_FILE.LOG,'User id : '||fnd_global.user_id);
355: fnd_file.put_line(FND_FILE.LOG,'Conc Req id : '||fnd_global.conc_request_id);
356: fnd_file.put_line(FND_FILE.LOG,' **************************************************** ');
357: fnd_file.put_line(FND_FILE.LOG,' ');
358: fnd_file.put_line(FND_FILE.LOG,' ');
351: fnd_file.put_line(FND_FILE.LOG,' ');
352: -- log session details
353: fnd_file.put_line(FND_FILE.LOG,' ********** DATABASE TRACE INFORMATION*************** ');
354: fnd_file.put_line(FND_FILE.LOG,'User id : '||fnd_global.user_id);
355: fnd_file.put_line(FND_FILE.LOG,'Conc Req id : '||fnd_global.conc_request_id);
356: fnd_file.put_line(FND_FILE.LOG,' **************************************************** ');
357: fnd_file.put_line(FND_FILE.LOG,' ');
358: fnd_file.put_line(FND_FILE.LOG,' ');
359:
352: -- log session details
353: fnd_file.put_line(FND_FILE.LOG,' ********** DATABASE TRACE INFORMATION*************** ');
354: fnd_file.put_line(FND_FILE.LOG,'User id : '||fnd_global.user_id);
355: fnd_file.put_line(FND_FILE.LOG,'Conc Req id : '||fnd_global.conc_request_id);
356: fnd_file.put_line(FND_FILE.LOG,' **************************************************** ');
357: fnd_file.put_line(FND_FILE.LOG,' ');
358: fnd_file.put_line(FND_FILE.LOG,' ');
359:
360: -- log messages with parameters
353: fnd_file.put_line(FND_FILE.LOG,' ********** DATABASE TRACE INFORMATION*************** ');
354: fnd_file.put_line(FND_FILE.LOG,'User id : '||fnd_global.user_id);
355: fnd_file.put_line(FND_FILE.LOG,'Conc Req id : '||fnd_global.conc_request_id);
356: fnd_file.put_line(FND_FILE.LOG,' **************************************************** ');
357: fnd_file.put_line(FND_FILE.LOG,' ');
358: fnd_file.put_line(FND_FILE.LOG,' ');
359:
360: -- log messages with parameters
361: fnd_file.put_line(FND_FILE.LOG,' ********* Program Parameters **************** ');
354: fnd_file.put_line(FND_FILE.LOG,'User id : '||fnd_global.user_id);
355: fnd_file.put_line(FND_FILE.LOG,'Conc Req id : '||fnd_global.conc_request_id);
356: fnd_file.put_line(FND_FILE.LOG,' **************************************************** ');
357: fnd_file.put_line(FND_FILE.LOG,' ');
358: fnd_file.put_line(FND_FILE.LOG,' ');
359:
360: -- log messages with parameters
361: fnd_file.put_line(FND_FILE.LOG,' ********* Program Parameters **************** ');
362: fnd_file.put_line(FND_FILE.LOG,' Update Mode :'||p_update_mode_yn);
357: fnd_file.put_line(FND_FILE.LOG,' ');
358: fnd_file.put_line(FND_FILE.LOG,' ');
359:
360: -- log messages with parameters
361: fnd_file.put_line(FND_FILE.LOG,' ********* Program Parameters **************** ');
362: fnd_file.put_line(FND_FILE.LOG,' Update Mode :'||p_update_mode_yn);
363: fnd_file.put_line(FND_FILE.LOG,' Conversion Date :'||p_conversion_date);
364: fnd_file.put_line(FND_FILE.LOG,' Conversion Type :'||p_conversion_type);
365: fnd_file.put_line(FND_FILE.LOG,' Organization Id :'||p_org_id);
358: fnd_file.put_line(FND_FILE.LOG,' ');
359:
360: -- log messages with parameters
361: fnd_file.put_line(FND_FILE.LOG,' ********* Program Parameters **************** ');
362: fnd_file.put_line(FND_FILE.LOG,' Update Mode :'||p_update_mode_yn);
363: fnd_file.put_line(FND_FILE.LOG,' Conversion Date :'||p_conversion_date);
364: fnd_file.put_line(FND_FILE.LOG,' Conversion Type :'||p_conversion_type);
365: fnd_file.put_line(FND_FILE.LOG,' Organization Id :'||p_org_id);
366: fnd_file.put_line(FND_FILE.LOG,' **************************************************** ');
359:
360: -- log messages with parameters
361: fnd_file.put_line(FND_FILE.LOG,' ********* Program Parameters **************** ');
362: fnd_file.put_line(FND_FILE.LOG,' Update Mode :'||p_update_mode_yn);
363: fnd_file.put_line(FND_FILE.LOG,' Conversion Date :'||p_conversion_date);
364: fnd_file.put_line(FND_FILE.LOG,' Conversion Type :'||p_conversion_type);
365: fnd_file.put_line(FND_FILE.LOG,' Organization Id :'||p_org_id);
366: fnd_file.put_line(FND_FILE.LOG,' **************************************************** ');
367: fnd_file.put_line(FND_FILE.LOG,' ');
360: -- log messages with parameters
361: fnd_file.put_line(FND_FILE.LOG,' ********* Program Parameters **************** ');
362: fnd_file.put_line(FND_FILE.LOG,' Update Mode :'||p_update_mode_yn);
363: fnd_file.put_line(FND_FILE.LOG,' Conversion Date :'||p_conversion_date);
364: fnd_file.put_line(FND_FILE.LOG,' Conversion Type :'||p_conversion_type);
365: fnd_file.put_line(FND_FILE.LOG,' Organization Id :'||p_org_id);
366: fnd_file.put_line(FND_FILE.LOG,' **************************************************** ');
367: fnd_file.put_line(FND_FILE.LOG,' ');
368:
361: fnd_file.put_line(FND_FILE.LOG,' ********* Program Parameters **************** ');
362: fnd_file.put_line(FND_FILE.LOG,' Update Mode :'||p_update_mode_yn);
363: fnd_file.put_line(FND_FILE.LOG,' Conversion Date :'||p_conversion_date);
364: fnd_file.put_line(FND_FILE.LOG,' Conversion Type :'||p_conversion_type);
365: fnd_file.put_line(FND_FILE.LOG,' Organization Id :'||p_org_id);
366: fnd_file.put_line(FND_FILE.LOG,' **************************************************** ');
367: fnd_file.put_line(FND_FILE.LOG,' ');
368:
369: fnd_file.put_line(FND_FILE.OUTPUT,' ********* Program Parameters **************** ');
362: fnd_file.put_line(FND_FILE.LOG,' Update Mode :'||p_update_mode_yn);
363: fnd_file.put_line(FND_FILE.LOG,' Conversion Date :'||p_conversion_date);
364: fnd_file.put_line(FND_FILE.LOG,' Conversion Type :'||p_conversion_type);
365: fnd_file.put_line(FND_FILE.LOG,' Organization Id :'||p_org_id);
366: fnd_file.put_line(FND_FILE.LOG,' **************************************************** ');
367: fnd_file.put_line(FND_FILE.LOG,' ');
368:
369: fnd_file.put_line(FND_FILE.OUTPUT,' ********* Program Parameters **************** ');
370: fnd_file.put_line(FND_FILE.OUTPUT,' Update Mode :'||p_update_mode_yn);
363: fnd_file.put_line(FND_FILE.LOG,' Conversion Date :'||p_conversion_date);
364: fnd_file.put_line(FND_FILE.LOG,' Conversion Type :'||p_conversion_type);
365: fnd_file.put_line(FND_FILE.LOG,' Organization Id :'||p_org_id);
366: fnd_file.put_line(FND_FILE.LOG,' **************************************************** ');
367: fnd_file.put_line(FND_FILE.LOG,' ');
368:
369: fnd_file.put_line(FND_FILE.OUTPUT,' ********* Program Parameters **************** ');
370: fnd_file.put_line(FND_FILE.OUTPUT,' Update Mode :'||p_update_mode_yn);
371: fnd_file.put_line(FND_FILE.OUTPUT,' Conversion Date :'||p_conversion_date);
365: fnd_file.put_line(FND_FILE.LOG,' Organization Id :'||p_org_id);
366: fnd_file.put_line(FND_FILE.LOG,' **************************************************** ');
367: fnd_file.put_line(FND_FILE.LOG,' ');
368:
369: fnd_file.put_line(FND_FILE.OUTPUT,' ********* Program Parameters **************** ');
370: fnd_file.put_line(FND_FILE.OUTPUT,' Update Mode :'||p_update_mode_yn);
371: fnd_file.put_line(FND_FILE.OUTPUT,' Conversion Date :'||p_conversion_date);
372: fnd_file.put_line(FND_FILE.OUTPUT,' Conversion Type :'||p_conversion_type);
373: fnd_file.put_line(FND_FILE.OUTPUT,' Organization Id :'||p_org_id);
366: fnd_file.put_line(FND_FILE.LOG,' **************************************************** ');
367: fnd_file.put_line(FND_FILE.LOG,' ');
368:
369: fnd_file.put_line(FND_FILE.OUTPUT,' ********* Program Parameters **************** ');
370: fnd_file.put_line(FND_FILE.OUTPUT,' Update Mode :'||p_update_mode_yn);
371: fnd_file.put_line(FND_FILE.OUTPUT,' Conversion Date :'||p_conversion_date);
372: fnd_file.put_line(FND_FILE.OUTPUT,' Conversion Type :'||p_conversion_type);
373: fnd_file.put_line(FND_FILE.OUTPUT,' Organization Id :'||p_org_id);
374: fnd_file.put_line(FND_FILE.OUTPUT,' ************************************************ ');
367: fnd_file.put_line(FND_FILE.LOG,' ');
368:
369: fnd_file.put_line(FND_FILE.OUTPUT,' ********* Program Parameters **************** ');
370: fnd_file.put_line(FND_FILE.OUTPUT,' Update Mode :'||p_update_mode_yn);
371: fnd_file.put_line(FND_FILE.OUTPUT,' Conversion Date :'||p_conversion_date);
372: fnd_file.put_line(FND_FILE.OUTPUT,' Conversion Type :'||p_conversion_type);
373: fnd_file.put_line(FND_FILE.OUTPUT,' Organization Id :'||p_org_id);
374: fnd_file.put_line(FND_FILE.OUTPUT,' ************************************************ ');
375:
368:
369: fnd_file.put_line(FND_FILE.OUTPUT,' ********* Program Parameters **************** ');
370: fnd_file.put_line(FND_FILE.OUTPUT,' Update Mode :'||p_update_mode_yn);
371: fnd_file.put_line(FND_FILE.OUTPUT,' Conversion Date :'||p_conversion_date);
372: fnd_file.put_line(FND_FILE.OUTPUT,' Conversion Type :'||p_conversion_type);
373: fnd_file.put_line(FND_FILE.OUTPUT,' Organization Id :'||p_org_id);
374: fnd_file.put_line(FND_FILE.OUTPUT,' ************************************************ ');
375:
376: IF (l_debug = 'Y') THEN
369: fnd_file.put_line(FND_FILE.OUTPUT,' ********* Program Parameters **************** ');
370: fnd_file.put_line(FND_FILE.OUTPUT,' Update Mode :'||p_update_mode_yn);
371: fnd_file.put_line(FND_FILE.OUTPUT,' Conversion Date :'||p_conversion_date);
372: fnd_file.put_line(FND_FILE.OUTPUT,' Conversion Type :'||p_conversion_type);
373: fnd_file.put_line(FND_FILE.OUTPUT,' Organization Id :'||p_org_id);
374: fnd_file.put_line(FND_FILE.OUTPUT,' ************************************************ ');
375:
376: IF (l_debug = 'Y') THEN
377: okc_debug.Log('20: p_org_id : '||p_org_id,2);
370: fnd_file.put_line(FND_FILE.OUTPUT,' Update Mode :'||p_update_mode_yn);
371: fnd_file.put_line(FND_FILE.OUTPUT,' Conversion Date :'||p_conversion_date);
372: fnd_file.put_line(FND_FILE.OUTPUT,' Conversion Type :'||p_conversion_type);
373: fnd_file.put_line(FND_FILE.OUTPUT,' Organization Id :'||p_org_id);
374: fnd_file.put_line(FND_FILE.OUTPUT,' ************************************************ ');
375:
376: IF (l_debug = 'Y') THEN
377: okc_debug.Log('20: p_org_id : '||p_org_id,2);
378: okc_debug.Log('20: p_conversion_date : '||p_conversion_date,2);
408: Else
409: l_report_title:='CONTRACTS TO BE PROCESSED FOR EURO CONVERSION';
410: l_upgrade_status_hdr:='Upgrade changes Needed';
411: End If;
412: fnd_file.put_line(FND_FILE.OUTPUT,' ');
413: fnd_file.put_line(FND_FILE.OUTPUT,' ');
414: fnd_file.put_line(FND_FILE.OUTPUT,lpad(l_report_title,90));
415: fnd_file.put_line(FND_FILE.OUTPUT,' ');
416: fnd_file.put_line(FND_FILE.OUTPUT,' ');
409: l_report_title:='CONTRACTS TO BE PROCESSED FOR EURO CONVERSION';
410: l_upgrade_status_hdr:='Upgrade changes Needed';
411: End If;
412: fnd_file.put_line(FND_FILE.OUTPUT,' ');
413: fnd_file.put_line(FND_FILE.OUTPUT,' ');
414: fnd_file.put_line(FND_FILE.OUTPUT,lpad(l_report_title,90));
415: fnd_file.put_line(FND_FILE.OUTPUT,' ');
416: fnd_file.put_line(FND_FILE.OUTPUT,' ');
417: fnd_file.put_line(FND_FILE.OUTPUT,
410: l_upgrade_status_hdr:='Upgrade changes Needed';
411: End If;
412: fnd_file.put_line(FND_FILE.OUTPUT,' ');
413: fnd_file.put_line(FND_FILE.OUTPUT,' ');
414: fnd_file.put_line(FND_FILE.OUTPUT,lpad(l_report_title,90));
415: fnd_file.put_line(FND_FILE.OUTPUT,' ');
416: fnd_file.put_line(FND_FILE.OUTPUT,' ');
417: fnd_file.put_line(FND_FILE.OUTPUT,
418: '-----------------------------------------------------------------------------------------------------------------------------');
411: End If;
412: fnd_file.put_line(FND_FILE.OUTPUT,' ');
413: fnd_file.put_line(FND_FILE.OUTPUT,' ');
414: fnd_file.put_line(FND_FILE.OUTPUT,lpad(l_report_title,90));
415: fnd_file.put_line(FND_FILE.OUTPUT,' ');
416: fnd_file.put_line(FND_FILE.OUTPUT,' ');
417: fnd_file.put_line(FND_FILE.OUTPUT,
418: '-----------------------------------------------------------------------------------------------------------------------------');
419: fnd_file.put_line(FND_FILE.OUTPUT,
412: fnd_file.put_line(FND_FILE.OUTPUT,' ');
413: fnd_file.put_line(FND_FILE.OUTPUT,' ');
414: fnd_file.put_line(FND_FILE.OUTPUT,lpad(l_report_title,90));
415: fnd_file.put_line(FND_FILE.OUTPUT,' ');
416: fnd_file.put_line(FND_FILE.OUTPUT,' ');
417: fnd_file.put_line(FND_FILE.OUTPUT,
418: '-----------------------------------------------------------------------------------------------------------------------------');
419: fnd_file.put_line(FND_FILE.OUTPUT,
420: rpad('Contract Number',30)||rpad('Modifier',20)||rpad('Currency Code',15)||rpad('Status',10)||
413: fnd_file.put_line(FND_FILE.OUTPUT,' ');
414: fnd_file.put_line(FND_FILE.OUTPUT,lpad(l_report_title,90));
415: fnd_file.put_line(FND_FILE.OUTPUT,' ');
416: fnd_file.put_line(FND_FILE.OUTPUT,' ');
417: fnd_file.put_line(FND_FILE.OUTPUT,
418: '-----------------------------------------------------------------------------------------------------------------------------');
419: fnd_file.put_line(FND_FILE.OUTPUT,
420: rpad('Contract Number',30)||rpad('Modifier',20)||rpad('Currency Code',15)||rpad('Status',10)||
421: rpad('Start_date',15)||rpad('End date',15)||rpad(l_upgrade_status_hdr,30));
415: fnd_file.put_line(FND_FILE.OUTPUT,' ');
416: fnd_file.put_line(FND_FILE.OUTPUT,' ');
417: fnd_file.put_line(FND_FILE.OUTPUT,
418: '-----------------------------------------------------------------------------------------------------------------------------');
419: fnd_file.put_line(FND_FILE.OUTPUT,
420: rpad('Contract Number',30)||rpad('Modifier',20)||rpad('Currency Code',15)||rpad('Status',10)||
421: rpad('Start_date',15)||rpad('End date',15)||rpad(l_upgrade_status_hdr,30));
422:
423: fnd_file.put_line(FND_FILE.OUTPUT,
419: fnd_file.put_line(FND_FILE.OUTPUT,
420: rpad('Contract Number',30)||rpad('Modifier',20)||rpad('Currency Code',15)||rpad('Status',10)||
421: rpad('Start_date',15)||rpad('End date',15)||rpad(l_upgrade_status_hdr,30));
422:
423: fnd_file.put_line(FND_FILE.OUTPUT,
424: '=============================================================================================================================');
425: FOR contracts_rec IN contracts_csr LOOP
426: --- Check if contract eligible for conversion
427: --dbms_output.put_line(contracts_rec.contract_number);
438: ' Currency: ' || contracts_rec.currency_code ||
439: ' Status: ' || contracts_rec.sts_code), 2);
440: END IF;
441:
442: /* fnd_file.put_line(FND_FILE.OUTPUT,contracts_rec.contract_number,20) ||
443: ', '|| contracts_rec.contract_number_modifier ||
444: ', '|| contracts_rec.currency_code ||
445: ', '|| contracts_rec.sts_code);*/
446:
461: END IF;
462: Else
463: fnd_message.set_name('OKC','OKC_K_CONV_ERROR');
464: fnd_message.set_token('CONTRACT_NUMBER',contracts_rec.contract_number);
465: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
466: IF (l_debug = 'Y') THEN
467: okc_debug.log('1100: Record not Updated ', 2);
468: END IF;
469: k_failure_counter := k_failure_counter+1;
488: 'A','No Conversion data ','N','No change required'))
489: into l_upgrade_status
490: from dual;
491:
492: fnd_file.put_line(FND_FILE.OUTPUT,rpad(contracts_rec.contract_number,30)||
493: substr(rpad(nvl(contracts_rec.contract_number_modifier,'X'),21),2)||
494: rpad(contracts_rec.currency_code,15)||
495: rpad(contracts_rec.sts_code,10)||
496: rpad(contracts_rec.start_date,15)||
500:
501: END LOOP;
502:
503:
504: fnd_file.put_line(FND_FILE.OUTPUT,
505: '----------------------------------------------------------------------------------------------------------------------------');
506: fnd_file.put_line(FND_FILE.OUTPUT,'Total Contracts processed : '||k1_counter);
507: fnd_file.put_line(FND_FILE.LOG,'Total Contracts processed : '||k1_counter);
508:
502:
503:
504: fnd_file.put_line(FND_FILE.OUTPUT,
505: '----------------------------------------------------------------------------------------------------------------------------');
506: fnd_file.put_line(FND_FILE.OUTPUT,'Total Contracts processed : '||k1_counter);
507: fnd_file.put_line(FND_FILE.LOG,'Total Contracts processed : '||k1_counter);
508:
509: IF (l_debug = 'Y') THEN
510: okc_debug.log('1115: After LOOP' || 'Contracts proccessed' ,2);
503:
504: fnd_file.put_line(FND_FILE.OUTPUT,
505: '----------------------------------------------------------------------------------------------------------------------------');
506: fnd_file.put_line(FND_FILE.OUTPUT,'Total Contracts processed : '||k1_counter);
507: fnd_file.put_line(FND_FILE.LOG,'Total Contracts processed : '||k1_counter);
508:
509: IF (l_debug = 'Y') THEN
510: okc_debug.log('1115: After LOOP' || 'Contracts proccessed' ,2);
511: END IF;
510: okc_debug.log('1115: After LOOP' || 'Contracts proccessed' ,2);
511: END IF;
512:
513: If p_update_mode_yn = 'Y' then
514: fnd_file.put_line(FND_FILE.OUTPUT,'Number of Contracts - Success: '||k_success_counter);
515: fnd_file.put_line(FND_FILE.OUTPUT,'Number of Contracts - Failure: '||k_failure_counter);
516: commit;
517: End If;
518:
511: END IF;
512:
513: If p_update_mode_yn = 'Y' then
514: fnd_file.put_line(FND_FILE.OUTPUT,'Number of Contracts - Success: '||k_success_counter);
515: fnd_file.put_line(FND_FILE.OUTPUT,'Number of Contracts - Failure: '||k_failure_counter);
516: commit;
517: End If;
518:
519: IF (l_debug = 'Y') THEN
519: IF (l_debug = 'Y') THEN
520: okc_debug.log('1100: ' || k1_counter || 'Contracts Processed' ,2);
521: END IF;
522:
523: fnd_file.put_line(FND_FILE.LOG,' ---------------------------------------------------------- ');
524: fnd_file.put_line(FND_FILE.LOG,'Completed Concurrent Program. ');
525: fnd_file.put_line(FND_FILE.LOG,' ---------------------------------------------------------- ');
526:
527: IF NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N') = 'Y' THEN
520: okc_debug.log('1100: ' || k1_counter || 'Contracts Processed' ,2);
521: END IF;
522:
523: fnd_file.put_line(FND_FILE.LOG,' ---------------------------------------------------------- ');
524: fnd_file.put_line(FND_FILE.LOG,'Completed Concurrent Program. ');
525: fnd_file.put_line(FND_FILE.LOG,' ---------------------------------------------------------- ');
526:
527: IF NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N') = 'Y' THEN
528: okc_util.stop_trace;
521: END IF;
522:
523: fnd_file.put_line(FND_FILE.LOG,' ---------------------------------------------------------- ');
524: fnd_file.put_line(FND_FILE.LOG,'Completed Concurrent Program. ');
525: fnd_file.put_line(FND_FILE.LOG,' ---------------------------------------------------------- ');
526:
527: IF NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N') = 'Y' THEN
528: okc_util.stop_trace;
529: END IF;
543: okc_debug.Reset_Indentation;
544: END IF;
545:
546: fnd_message.set_name('OKC','OKC_CONV_NOT_REQD');
547: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
548:
549: WHEN others THEN
550:
551: IF (l_debug = 'Y') THEN
555:
556: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
557: fnd_message.set_token('ROUTINE',l_proc);
558: fnd_message.set_token('REASON',SQLERRM);
559: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
560: raise;
561:
562:
563: END CONVERT_CONTRACTS;