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: l_stmt_num := 110;
354: -- Bug 5353590
355: -- find the line_code name with the (line id, org id) unique key

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

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

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

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

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

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

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

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

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

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

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

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

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

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;

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

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:

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

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;

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

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: */

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

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);

Line 544: 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');
548: fnd_message.set_token('NUMBER',l_tot_rec_purge);

Line 549: 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;
553: EXCEPTION WHEN OTHERS THEN

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

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

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

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