[Home] [Help]
252:
253: -- clear the debug stack for each asset
254: FA_DEBUG_PKG.Initialize;
255: -- reset the message level to prevent bogus errors
256: FA_SRVR_MSG.Set_Message_Level(message_level => 10, p_log_level_rec => g_log_level_rec);
257:
258: BEGIN
259:
260:
258: BEGIN
259:
260:
261: -- display the asset/thid in the log for matching back to report
262: fa_srvr_msg.add_message
263: (calling_fn => null,
264: name => 'FA_SHARED_ASSET_NUMBER',
265: token1 => 'NUMBER',
266: value1 => l_asset_number(l_loop_count),
265: token1 => 'NUMBER',
266: value1 => l_asset_number(l_loop_count),
267: p_log_level_rec => g_log_level_rec);
268:
269: fa_srvr_msg.add_message
270: (calling_fn => null,
271: name => 'FA_MCP_SHARED_FAILED_THID',
272: token1 => 'SOURCE_THID',
273: value1 => l_corp_thid(l_loop_count),
440: WHEN error_found_trx THEN
441: FND_CONCURRENT.AF_ROLLBACK;
442:
443: l_process_status(l_loop_count) := 'WARNING';
444: fa_srvr_msg.add_message(calling_fn => l_calling_fn, p_log_level_rec => g_log_level_rec);
445:
446: WHEN error_found_fatal_trx THEN
447: FND_CONCURRENT.AF_ROLLBACK;
448:
449: l_process_status(l_loop_count) := 'FAILURE';
450: g_asset_error1_tbl(g_asset_error1_tbl.count + 1) := l_asset_id(l_loop_count);
451: g_asset_error2_tbl(l_asset_id(l_loop_count)) := l_asset_id(l_loop_count);
452:
453: fa_srvr_msg.add_message(calling_fn => l_calling_fn, p_log_level_rec => g_log_level_rec);
454:
455: WHEN OTHERS THEN
456: FND_CONCURRENT.AF_ROLLBACK;
457:
459: g_asset_error1_tbl(g_asset_error1_tbl.count + 1) := l_asset_id(l_loop_count);
460: g_asset_error2_tbl(l_asset_id(l_loop_count)) := l_asset_id(l_loop_count);
461:
462: g_fatal_error := TRUE;
463: fa_srvr_msg.add_message(calling_fn => l_calling_fn, p_log_level_rec => g_log_level_rec);
464:
465: END;
466:
467: if (g_log_level_rec.statement_level) then
565: WHEN error_found_trx THEN
566: FND_CONCURRENT.AF_ROLLBACK;
567:
568: l_process_status(l_loop_count) := 'WARNING';
569: fa_srvr_msg.add_message(calling_fn => l_calling_fn, p_log_level_rec => g_log_level_rec);
570: if (g_log_level_rec.statement_level) then
571: fa_debug_pkg.dump_debug_messages(max_mesgs => 0, p_log_level_rec => g_log_level_rec);
572: end if;
573:
577: l_process_status(l_loop_count) := 'FAILURE';
578: g_asset_error1_tbl(g_asset_error1_tbl.count + 1) := l_asset_id(l_loop_count);
579: g_asset_error2_tbl(l_asset_id(l_loop_count)) := l_asset_id(l_loop_count);
580:
581: fa_srvr_msg.add_message(calling_fn => l_calling_fn, p_log_level_rec => g_log_level_rec);
582: if (g_log_level_rec.statement_level) then
583: fa_debug_pkg.dump_debug_messages(max_mesgs => 0, p_log_level_rec => g_log_level_rec);
584: end if;
585:
590: g_asset_error1_tbl(g_asset_error1_tbl.count + 1) := l_asset_id(l_loop_count);
591: g_asset_error2_tbl(l_asset_id(l_loop_count)) := l_asset_id(l_loop_count);
592:
593: g_fatal_error := TRUE;
594: fa_srvr_msg.add_message(calling_fn => l_calling_fn, p_log_level_rec => g_log_level_rec);
595: if (g_log_level_rec.statement_level) then
596: fa_debug_pkg.dump_debug_messages(max_mesgs => 0, p_log_level_rec => g_log_level_rec);
597: end if;
598:
665: x_success_count := G_success_count;
666: x_warning_count := G_warning_count;
667: x_failure_count := G_failure_count;
668:
669: fa_srvr_msg.add_message (calling_fn => l_calling_fn, p_log_level_rec => g_log_level_rec);
670: x_return_status := 2;
671:
672: when others then
673: FND_CONCURRENT.AF_ROLLBACK;
675: x_success_count := G_success_count;
676: x_warning_count := G_warning_count;
677: x_failure_count := G_failure_count;
678:
679: fa_srvr_msg.add_sql_error (calling_fn => l_calling_fn, p_log_level_rec => g_log_level_rec);
680: x_return_status := 2;
681:
682: END do_mass_copy;
683:
1036: p_message => l_mesg_name,
1037: p_token => l_token,
1038: p_value => l_value,
1039: p_mode => 'W');
1040: fa_srvr_msg.add_message(calling_fn => l_calling_fn, p_log_level_rec => g_log_level_rec);
1041: x_return_status := FND_API.G_RET_STS_ERROR;
1042:
1043: when add_err2 then
1044: -- fatal
1048: p_message => l_mesg_name,
1049: p_token => l_token,
1050: p_value => l_value,
1051: p_mode => 'F');
1052: fa_srvr_msg.add_message(calling_fn => l_calling_fn, p_log_level_rec => g_log_level_rec);
1053: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1054:
1055: when others then
1056: -- fatal
1053: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1054:
1055: when others then
1056: -- fatal
1057: fa_srvr_msg.add_sql_error(calling_fn => null, p_log_level_rec => g_log_level_rec);
1058: write_message
1059: (p_asset_number => p_asset_number,
1060: p_thid => p_corp_thid,
1061: p_message => 'FA_MCP_FAIL_THID',
1061: p_message => 'FA_MCP_FAIL_THID',
1062: p_token => null,
1063: p_value => null,
1064: p_mode => 'F');
1065: fa_srvr_msg.add_message(calling_fn => l_calling_fn, p_log_level_rec => g_log_level_rec);
1066: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1067:
1068:
1069: END mcp_addition;
1845: p_token => l_token,
1846: p_value => l_value,
1847: p_mode => 'W');
1848:
1849: fa_srvr_msg.add_message(calling_fn => l_calling_fn, p_log_level_rec => g_log_level_rec);
1850: x_return_status := FND_API.G_RET_STS_ERROR;
1851:
1852: when adj_err2 then
1853: -- fatal
1858: p_token => l_token,
1859: p_value => l_value,
1860: p_mode => 'F');
1861:
1862: fa_srvr_msg.add_message(calling_fn => l_calling_fn, p_log_level_rec => g_log_level_rec);
1863: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1864:
1865: when others then
1866: -- fatal
1863: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1864:
1865: when others then
1866: -- fatal
1867: fa_srvr_msg.add_sql_error(calling_fn => null, p_log_level_rec => g_log_level_rec);
1868: write_message
1869: (p_asset_number => p_asset_number,
1870: p_thid => p_corp_thid,
1871: p_message => 'FA_MCP_FAIL_THID',
1872: p_token => null,
1873: p_value => null,
1874: p_mode => 'F');
1875:
1876: fa_srvr_msg.add_message(calling_fn => l_calling_fn, p_log_level_rec => g_log_level_rec);
1877: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1878:
1879:
1880: END mcp_adjustment;
2548: p_token => l_token,
2549: p_value => l_value,
2550: p_mode => 'W');
2551:
2552: fa_srvr_msg.add_message(calling_fn => l_calling_fn, p_log_level_rec => g_log_level_rec);
2553: x_return_status := FND_API.G_RET_STS_ERROR;
2554:
2555: when ret_err2 then
2556: -- fatal
2561: p_token => l_token,
2562: p_value => l_value,
2563: p_mode => 'F');
2564:
2565: fa_srvr_msg.add_message(calling_fn => l_calling_fn, p_log_level_rec => g_log_level_rec);
2566: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2567:
2568: when others then
2569: -- fatal
2566: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2567:
2568: when others then
2569: -- fatal
2570: fa_srvr_msg.add_sql_error(calling_fn => null, p_log_level_rec => g_log_level_rec);
2571: write_message
2572: (p_asset_number => p_asset_number,
2573: p_thid => p_corp_thid,
2574: p_message => 'FA_MCP_FAIL_THID',
2575: p_token => null,
2576: p_value => null,
2577: p_mode => 'F');
2578:
2579: fa_srvr_msg.add_message(calling_fn => l_calling_fn, p_log_level_rec => g_log_level_rec);
2580: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2581:
2582: END mcp_retirement;
2583:
2641: FND_FILE.put(FND_FILE.output,l_string);
2642: FND_FILE.new_line(FND_FILE.output,1);
2643:
2644: -- now process the message for the log file
2645: fa_srvr_msg.add_message
2646: (calling_fn => l_calling_fn,
2647: name => p_message,
2648: token1 => p_token,
2649: value1 => p_value, p_log_level_rec => g_log_level_rec);
2804: if (fa_cache_pkg.fazcbc_record.copy_additions_flag = 'YES') then
2805: fa_trx_types_tab.EXTEND;
2806: fa_trx_types_tab(fa_trx_types_tab.last) := 'ADDITION';
2807: else
2808: fa_srvr_msg.add_message
2809: (calling_fn => l_calling_fn,
2810: name => 'FA_MCP_SHARED_NO_COPY',
2811: token1 => 'TYPE',
2812: value1 => 'ADDITIONS', p_log_level_rec => g_log_level_rec);
2815: if (fa_cache_pkg.fazcbc_record.copy_adjustments_flag = 'YES') then
2816: fa_trx_types_tab.EXTEND;
2817: fa_trx_types_tab(fa_trx_types_tab.last) := 'ADJUSTMENT';
2818: else
2819: fa_srvr_msg.add_message
2820: (calling_fn => l_calling_fn,
2821: name => 'FA_MCP_SHARED_NO_COPY',
2822: token1 => 'TYPE',
2823: value1 => 'ADJUSTMENTS', p_log_level_rec => g_log_level_rec);
2832:
2833: fa_trx_types_tab.EXTEND;
2834: fa_trx_types_tab(fa_trx_types_tab.last) := 'REINSTATEMENT';
2835: else
2836: fa_srvr_msg.add_message
2837: (calling_fn => l_calling_fn,
2838: name => 'FA_MCP_SHARED_NO_COPY',
2839: token1 => 'TYPE',
2840: value1 => 'RETIREMENTS', p_log_level_rec => g_log_level_rec);
2844: if (nvl(fa_cache_pkg.fazcbc_record.copy_group_addition_flag, 'N') = 'Y') then
2845: fa_trx_types_tab.EXTEND;
2846: fa_trx_types_tab(fa_trx_types_tab.last) := 'GROUP ADDITION';
2847: else
2848: fa_srvr_msg.add_message
2849: (calling_fn => l_calling_fn,
2850: name => 'FA_MCP_SHARED_NO_COPY',
2851: token1 => 'TYPE',
2852: value1 => 'GROUP ADDITIONS', p_log_level_rec => g_log_level_rec);
3204:
3205: EXCEPTION
3206: WHEN masscp_err THEN
3207: FND_CONCURRENT.AF_ROLLBACK;
3208: fa_srvr_msg.add_message (calling_fn => l_calling_fn, p_log_level_rec => g_log_level_rec);
3209:
3210: -- dump any debug messages from above
3211: if (g_log_level_rec.statement_level) then
3212: fa_debug_pkg.dump_debug_messages(max_mesgs => 0, p_log_level_rec => g_log_level_rec);
3216: X_return_status := 2;
3217:
3218: WHEN OTHERS THEN
3219: FND_CONCURRENT.AF_ROLLBACK;
3220: fa_srvr_msg.add_sql_error (calling_fn => l_calling_fn, p_log_level_rec => g_log_level_rec);
3221:
3222: -- dump any debug messages from above
3223: if (g_log_level_rec.statement_level) then
3224: fa_debug_pkg.dump_debug_messages(max_mesgs => 0, p_log_level_rec => g_log_level_rec);