DBA Data[Home] [Help]

APPS.FLM_PURGE dependencies on MRP_UTIL

Line 166: MRP_UTIL.MRP_LOG('Error at '||l_stmt_num|| ' in Verify_Foreign_Key');

162:
163: EXCEPTION WHEN OTHERS THEN
164: arg_return_value := G_ERROR;
165: errbuf := substr(SQLERRM,1,500);
166: MRP_UTIL.MRP_LOG('Error at '||l_stmt_num|| ' in Verify_Foreign_Key');
167: END VERIFY_FOREIGN_KEYS;
168:
169:
170: PROCEDURE DELETE_EXE_TABLES(arg_wip_entity_id in number,

Line 294: MRP_UTIL.MRP_LOG('Error at '||l_stmt_num|| ' in Delete_Tables');

290:
291: EXCEPTION WHEN OTHERS THEN
292: arg_return_value := G_ERROR;
293: errbuf := substr(SQLERRM,1,500);
294: MRP_UTIL.MRP_LOG('Error at '||l_stmt_num|| ' in Delete_Tables');
295: END DELETE_TABLES;
296:
297: PROCEDURE PURGE_SCHEDULES(
298: errbuf out NOCOPY varchar2,

Line 345: MRP_UTIL.MRP_LOG(' The Value of Parameters are : ');

341:
342:
343: l_stmt_num := 100;
344:
345: MRP_UTIL.MRP_LOG(' The Value of Parameters are : ');
346: MRP_UTIL.MRP_LOG(' Organization ---> '||to_char(arg_org_id));
347:
348: --fix bug#3170105
349: l_cutoff_date := flm_timezone.client_to_server(

Line 346: MRP_UTIL.MRP_LOG(' Organization ---> '||to_char(arg_org_id));

342:
343: l_stmt_num := 100;
344:
345: MRP_UTIL.MRP_LOG(' The Value of Parameters are : ');
346: MRP_UTIL.MRP_LOG(' Organization ---> '||to_char(arg_org_id));
347:
348: --fix bug#3170105
349: l_cutoff_date := flm_timezone.client_to_server(
350: fnd_date.canonical_to_date(arg_cutoff_date))+1-1/(24*60*60);

Line 351: MRP_UTIL.MRP_LOG(' Cut-Off Date ---> '||to_char(l_cutoff_date));

347:
348: --fix bug#3170105
349: l_cutoff_date := flm_timezone.client_to_server(
350: fnd_date.canonical_to_date(arg_cutoff_date))+1-1/(24*60*60);
351: MRP_UTIL.MRP_LOG(' Cut-Off Date ---> '||to_char(l_cutoff_date));
352: --end of fix bug#3170105
353:
354: -- Bug 5353590
355: -- find the line_code name with the (line id, org id) unique key

Line 360: MRP_UTIL.MRP_LOG(' Line ---> '||arg_line||' (line name: '||l_line_code||')');

356: select line_code into l_line_code
357: from wip_lines
358: where line_id = arg_line and organization_id = arg_org_id;
359:
360: MRP_UTIL.MRP_LOG(' Line ---> '||arg_line||' (line name: '||l_line_code||')');
361: MRP_UTIL.MRP_LOG(' Assembly ---> '||arg_assembly);
362:
363: /*
364: When the "Purge Option" is given as "All",

Line 361: MRP_UTIL.MRP_LOG(' Assembly ---> '||arg_assembly);

357: from wip_lines
358: where line_id = arg_line and organization_id = arg_org_id;
359:
360: MRP_UTIL.MRP_LOG(' Line ---> '||arg_line||' (line name: '||l_line_code||')');
361: MRP_UTIL.MRP_LOG(' Assembly ---> '||arg_assembly);
362:
363: /*
364: When the "Purge Option" is given as "All",
365: arg_purge_option will have a value of 1

Line 371: MRP_UTIL.MRP_LOG(' Purge Option ---> '||'All');

367: arg_purge_option will have a value of 2
368: */
369:
370: if ( arg_purge_option = 1 ) then
371: MRP_UTIL.MRP_LOG(' Purge Option ---> '||'All');
372: elsif ( arg_purge_option = 2 ) then
373: MRP_UTIL.MRP_LOG(' Purge Option ---> '||'Resource Transactions Only');
374: elsif ( arg_purge_option = 3 ) then /* Added for deleting execution history data */
375: MRP_UTIL.MRP_LOG(' Purge Option ---> '||'Execution History Only');

Line 373: MRP_UTIL.MRP_LOG(' Purge Option ---> '||'Resource Transactions Only');

369:
370: if ( arg_purge_option = 1 ) then
371: MRP_UTIL.MRP_LOG(' Purge Option ---> '||'All');
372: elsif ( arg_purge_option = 2 ) then
373: MRP_UTIL.MRP_LOG(' Purge Option ---> '||'Resource Transactions Only');
374: elsif ( arg_purge_option = 3 ) then /* Added for deleting execution history data */
375: MRP_UTIL.MRP_LOG(' Purge Option ---> '||'Execution History Only');
376: end if;
377:

Line 375: MRP_UTIL.MRP_LOG(' Purge Option ---> '||'Execution History Only');

371: MRP_UTIL.MRP_LOG(' Purge Option ---> '||'All');
372: elsif ( arg_purge_option = 2 ) then
373: MRP_UTIL.MRP_LOG(' Purge Option ---> '||'Resource Transactions Only');
374: elsif ( arg_purge_option = 3 ) then /* Added for deleting execution history data */
375: MRP_UTIL.MRP_LOG(' Purge Option ---> '||'Execution History Only');
376: end if;
377:
378: select max(period_close_date) --fix bug#3170105
379: into l_account_close_date

Line 389: MRP_UTIL.MRP_LOG(fnd_message.get);

385: and period_close_date IS NOT NULL;
386:
387: if (l_account_close_date is null) then
388: fnd_message.set_name('FLM','FLM_SCHED_NO_ACCT_CLOSE_PERIOD');
389: MRP_UTIL.MRP_LOG(fnd_message.get);
390: return;
391: end if;
392:
393: FOR Purge_Rec IN Purge(l_cutoff_date) LOOP --fix bug#3170105

Line 409: MRP_UTIL.MRP_LOG(fnd_message.get);

405:
406: if (l_completion_date > l_account_close_date) then
407: fnd_message.set_name('FLM','FLM_SCHED_CLOSED_PERIOD');
408: fnd_message.set_token('SCHEDULE',l_schedule_number);
409: MRP_UTIL.MRP_LOG(fnd_message.get);
410: l_flag := FALSE;
411: end if;
412:
413: l_stmt_num := 200;

Line 420: MRP_UTIL.MRP_LOG(fnd_message.get);

416: if ((l_status <> G_CLOSED_STATUS)
417: or (l_close_date IS NULL)) then
418: fnd_message.set_name('FLM','FLM_SCHED_NOT_CLOSED');
419: fnd_message.set_token('SCHEDULE',l_schedule_number);
420: MRP_UTIL.MRP_LOG(fnd_message.get);
421: l_flag := FALSE;
422: end if;
423: end if;
424:

Line 486: MRP_UTIL.MRP_LOG(fnd_message.get);

482: if (l_return_value = G_WARNING) and (l_flag) then
483: fnd_message.set_name('FLM','FLM_SCHEDULE_FKEY_REFERENCE');
484: fnd_message.set_token('SCHEDULE',l_schedule_number);
485: fnd_message.set_token('TABLES',l_table_name);
486: MRP_UTIL.MRP_LOG(fnd_message.get);
487: l_flag := FALSE;
488: elsif (l_return_value = G_ERROR) then
489: APP_EXCEPTION.RAISE_EXCEPTION;
490: end if;

Line 528: MRP_UTIL.MRP_LOG(fnd_message.get);

524: end if;
525:
526: if (l_tot_rec_purge = G_ZERO) then
527: fnd_message.set_name('FLM','FLM_SCHEDULE_NOT_FOUND');
528: MRP_UTIL.MRP_LOG(fnd_message.get);
529: else
530: /* Added for Enhancement # 3321626
531: * Modified the message to be shown in the log file, depending upon the Purge Option
532: */

Line 536: MRP_UTIL.MRP_LOG(fnd_message.get);

532: */
533: if (arg_purge_option = 2) then
534: fnd_message.set_name('FLM','FLM_PURGE_RESOURCE_TXNS');
535: fnd_message.set_token('NUMBER',l_tot_rec_purge);
536: MRP_UTIL.MRP_LOG(fnd_message.get);
537:
538: elsif (arg_purge_option = 3) then
539: fnd_message.set_name('FLM','FLM_PURGE_EXECUTION_HISTORY');
540: fnd_message.set_token('NUMBER',l_tot_rec_purge);

Line 541: MRP_UTIL.MRP_LOG(fnd_message.get);

537:
538: elsif (arg_purge_option = 3) then
539: fnd_message.set_name('FLM','FLM_PURGE_EXECUTION_HISTORY');
540: fnd_message.set_token('NUMBER',l_tot_rec_purge);
541: MRP_UTIL.MRP_LOG(fnd_message.get);
542:
543: else
544: fnd_message.set_name('FLM','FLM_SCHEDULES_PURGED');
545: fnd_message.set_token('NUMBER',l_tot_rec_purge);

Line 546: MRP_UTIL.MRP_LOG(fnd_message.get);

542:
543: else
544: fnd_message.set_name('FLM','FLM_SCHEDULES_PURGED');
545: fnd_message.set_token('NUMBER',l_tot_rec_purge);
546: MRP_UTIL.MRP_LOG(fnd_message.get);
547: end if;
548: end if;
549:
550: EXCEPTION WHEN OTHERS THEN

Line 556: MRP_UTIL.MRP_LOG('Error at '||l_stmt_num|| ' Purge_Schedules');

552: if (errbuf is NULL) then
553: errbuf := SUBSTR(SQLERRM, 1, 500);
554: end if;
555: ROLLBACK;
556: MRP_UTIL.MRP_LOG('Error at '||l_stmt_num|| ' Purge_Schedules');
557: MRP_UTIL.MRP_LOG('Error due to '|| errbuf );
558: END PURGE_SCHEDULES;
559:
560:

Line 557: MRP_UTIL.MRP_LOG('Error due to '|| errbuf );

553: errbuf := SUBSTR(SQLERRM, 1, 500);
554: end if;
555: ROLLBACK;
556: MRP_UTIL.MRP_LOG('Error at '||l_stmt_num|| ' Purge_Schedules');
557: MRP_UTIL.MRP_LOG('Error due to '|| errbuf );
558: END PURGE_SCHEDULES;
559:
560:
561: END FLM_PURGE;