386: and open_flag = 'N'
387: and period_close_date IS NOT NULL;
388: l_stmt_num := 150;
389: if (l_account_close_date is null) then
390: fnd_message.set_name('FLM','FLM_SCHED_NO_ACCT_CLOSE_PERIOD');
391: MRP_UTIL.MRP_LOG(fnd_message.get);
392: return;
393: end if;
394: l_stmt_num := 160;
387: and period_close_date IS NOT NULL;
388: l_stmt_num := 150;
389: if (l_account_close_date is null) then
390: fnd_message.set_name('FLM','FLM_SCHED_NO_ACCT_CLOSE_PERIOD');
391: MRP_UTIL.MRP_LOG(fnd_message.get);
392: return;
393: end if;
394: l_stmt_num := 160;
395: FOR Purge_Rec IN Purge(l_cutoff_date) LOOP --fix bug#3170105
405: l_organization_id := Purge_rec.Organization_id;
406: l_auto_replenish := Purge_rec.Auto_Replenish;
407: l_stmt_num := 170;
408: if (l_completion_date > l_account_close_date) then
409: fnd_message.set_name('FLM','FLM_SCHED_CLOSED_PERIOD');
410: fnd_message.set_token('SCHEDULE',l_schedule_number);
411: MRP_UTIL.MRP_LOG(fnd_message.get);
412: l_flag := FALSE;
413: end if;
406: l_auto_replenish := Purge_rec.Auto_Replenish;
407: l_stmt_num := 170;
408: if (l_completion_date > l_account_close_date) then
409: fnd_message.set_name('FLM','FLM_SCHED_CLOSED_PERIOD');
410: fnd_message.set_token('SCHEDULE',l_schedule_number);
411: MRP_UTIL.MRP_LOG(fnd_message.get);
412: l_flag := FALSE;
413: end if;
414:
407: l_stmt_num := 170;
408: if (l_completion_date > l_account_close_date) then
409: fnd_message.set_name('FLM','FLM_SCHED_CLOSED_PERIOD');
410: fnd_message.set_token('SCHEDULE',l_schedule_number);
411: MRP_UTIL.MRP_LOG(fnd_message.get);
412: l_flag := FALSE;
413: end if;
414:
415: l_stmt_num := 200;
416:
417: if (l_flag) then
418: if ((l_status <> G_CLOSED_STATUS)
419: or (l_close_date IS NULL)) then
420: fnd_message.set_name('FLM','FLM_SCHED_NOT_CLOSED');
421: fnd_message.set_token('SCHEDULE',l_schedule_number);
422: MRP_UTIL.MRP_LOG(fnd_message.get);
423: l_flag := FALSE;
424: end if;
417: if (l_flag) then
418: if ((l_status <> G_CLOSED_STATUS)
419: or (l_close_date IS NULL)) then
420: fnd_message.set_name('FLM','FLM_SCHED_NOT_CLOSED');
421: fnd_message.set_token('SCHEDULE',l_schedule_number);
422: MRP_UTIL.MRP_LOG(fnd_message.get);
423: l_flag := FALSE;
424: end if;
425: end if;
418: if ((l_status <> G_CLOSED_STATUS)
419: or (l_close_date IS NULL)) then
420: fnd_message.set_name('FLM','FLM_SCHED_NOT_CLOSED');
421: fnd_message.set_token('SCHEDULE',l_schedule_number);
422: MRP_UTIL.MRP_LOG(fnd_message.get);
423: l_flag := FALSE;
424: end if;
425: end if;
426:
482: end if;
483: l_stmt_num := 340;
484:
485: if (l_return_value = G_WARNING) and (l_flag) then
486: fnd_message.set_name('FLM','FLM_SCHEDULE_FKEY_REFERENCE');
487: fnd_message.set_token('SCHEDULE',l_schedule_number);
488: fnd_message.set_token('TABLES',l_table_name);
489: MRP_UTIL.MRP_LOG(fnd_message.get);
490: l_flag := FALSE;
483: l_stmt_num := 340;
484:
485: if (l_return_value = G_WARNING) and (l_flag) then
486: fnd_message.set_name('FLM','FLM_SCHEDULE_FKEY_REFERENCE');
487: fnd_message.set_token('SCHEDULE',l_schedule_number);
488: fnd_message.set_token('TABLES',l_table_name);
489: MRP_UTIL.MRP_LOG(fnd_message.get);
490: l_flag := FALSE;
491: elsif (l_return_value = G_ERROR) then
484:
485: if (l_return_value = G_WARNING) and (l_flag) then
486: fnd_message.set_name('FLM','FLM_SCHEDULE_FKEY_REFERENCE');
487: fnd_message.set_token('SCHEDULE',l_schedule_number);
488: fnd_message.set_token('TABLES',l_table_name);
489: MRP_UTIL.MRP_LOG(fnd_message.get);
490: l_flag := FALSE;
491: elsif (l_return_value = G_ERROR) then
492: APP_EXCEPTION.RAISE_EXCEPTION;
485: if (l_return_value = G_WARNING) and (l_flag) then
486: fnd_message.set_name('FLM','FLM_SCHEDULE_FKEY_REFERENCE');
487: fnd_message.set_token('SCHEDULE',l_schedule_number);
488: fnd_message.set_token('TABLES',l_table_name);
489: MRP_UTIL.MRP_LOG(fnd_message.get);
490: l_flag := FALSE;
491: elsif (l_return_value = G_ERROR) then
492: APP_EXCEPTION.RAISE_EXCEPTION;
493: end if;
526: COMMIT;
527: end if;
528: l_stmt_num := 800;
529: if (l_tot_rec_purge = G_ZERO) then
530: fnd_message.set_name('FLM','FLM_SCHEDULE_NOT_FOUND');
531: MRP_UTIL.MRP_LOG(fnd_message.get);
532: else
533: /* Added for Enhancement # 3321626
534: * Modified the message to be shown in the log file, depending upon the Purge Option
527: end if;
528: l_stmt_num := 800;
529: if (l_tot_rec_purge = G_ZERO) then
530: fnd_message.set_name('FLM','FLM_SCHEDULE_NOT_FOUND');
531: MRP_UTIL.MRP_LOG(fnd_message.get);
532: else
533: /* Added for Enhancement # 3321626
534: * Modified the message to be shown in the log file, depending upon the Purge Option
535: */
533: /* Added for Enhancement # 3321626
534: * Modified the message to be shown in the log file, depending upon the Purge Option
535: */
536: if (arg_purge_option = 2) then
537: fnd_message.set_name('FLM','FLM_PURGE_RESOURCE_TXNS');
538: fnd_message.set_token('NUMBER',l_tot_rec_purge);
539: MRP_UTIL.MRP_LOG(fnd_message.get);
540:
541: elsif (arg_purge_option = 3) then
534: * Modified the message to be shown in the log file, depending upon the Purge Option
535: */
536: if (arg_purge_option = 2) then
537: fnd_message.set_name('FLM','FLM_PURGE_RESOURCE_TXNS');
538: fnd_message.set_token('NUMBER',l_tot_rec_purge);
539: MRP_UTIL.MRP_LOG(fnd_message.get);
540:
541: elsif (arg_purge_option = 3) then
542: fnd_message.set_name('FLM','FLM_PURGE_EXECUTION_HISTORY');
535: */
536: if (arg_purge_option = 2) then
537: fnd_message.set_name('FLM','FLM_PURGE_RESOURCE_TXNS');
538: fnd_message.set_token('NUMBER',l_tot_rec_purge);
539: MRP_UTIL.MRP_LOG(fnd_message.get);
540:
541: elsif (arg_purge_option = 3) then
542: fnd_message.set_name('FLM','FLM_PURGE_EXECUTION_HISTORY');
543: fnd_message.set_token('NUMBER',l_tot_rec_purge);
538: fnd_message.set_token('NUMBER',l_tot_rec_purge);
539: MRP_UTIL.MRP_LOG(fnd_message.get);
540:
541: elsif (arg_purge_option = 3) then
542: fnd_message.set_name('FLM','FLM_PURGE_EXECUTION_HISTORY');
543: fnd_message.set_token('NUMBER',l_tot_rec_purge);
544: MRP_UTIL.MRP_LOG(fnd_message.get);
545:
546: else
539: MRP_UTIL.MRP_LOG(fnd_message.get);
540:
541: elsif (arg_purge_option = 3) then
542: fnd_message.set_name('FLM','FLM_PURGE_EXECUTION_HISTORY');
543: fnd_message.set_token('NUMBER',l_tot_rec_purge);
544: MRP_UTIL.MRP_LOG(fnd_message.get);
545:
546: else
547: fnd_message.set_name('FLM','FLM_SCHEDULES_PURGED');
540:
541: elsif (arg_purge_option = 3) then
542: fnd_message.set_name('FLM','FLM_PURGE_EXECUTION_HISTORY');
543: fnd_message.set_token('NUMBER',l_tot_rec_purge);
544: MRP_UTIL.MRP_LOG(fnd_message.get);
545:
546: else
547: fnd_message.set_name('FLM','FLM_SCHEDULES_PURGED');
548: fnd_message.set_token('NUMBER',l_tot_rec_purge);
543: fnd_message.set_token('NUMBER',l_tot_rec_purge);
544: MRP_UTIL.MRP_LOG(fnd_message.get);
545:
546: else
547: fnd_message.set_name('FLM','FLM_SCHEDULES_PURGED');
548: fnd_message.set_token('NUMBER',l_tot_rec_purge);
549: MRP_UTIL.MRP_LOG(fnd_message.get);
550: end if;
551: end if;
544: MRP_UTIL.MRP_LOG(fnd_message.get);
545:
546: else
547: fnd_message.set_name('FLM','FLM_SCHEDULES_PURGED');
548: fnd_message.set_token('NUMBER',l_tot_rec_purge);
549: MRP_UTIL.MRP_LOG(fnd_message.get);
550: end if;
551: end if;
552: l_stmt_num := 900;
545:
546: else
547: fnd_message.set_name('FLM','FLM_SCHEDULES_PURGED');
548: fnd_message.set_token('NUMBER',l_tot_rec_purge);
549: MRP_UTIL.MRP_LOG(fnd_message.get);
550: end if;
551: end if;
552: l_stmt_num := 900;
553: EXCEPTION WHEN OTHERS THEN