[Home] [Help]
334: --dbms_output.put_line('after the fetch');
335: for l_count in 1..l_asset_id.count loop
336:
337: -- clear the debug stack for each asset
338: FA_DEBUG_PKG.Initialize;
339: -- reset the message level to prevent bogus errors
340: FA_SRVR_MSG.Set_Message_Level(message_level => 10);
341:
342: BEGIN
430: l_asset_dist_tbl(2).location_ccid := l_to_loc_id;
431: l_asset_dist_tbl(2).expense_ccid := l_to_ccid;
432:
433: if (g_log_level_rec.statement_level) then
434: fa_debug_pkg.add('FAMTFR','tbl-1:dist_id',l_asset_dist_tbl(1).distribution_id, p_log_level_rec => g_log_level_rec);
435: fa_debug_pkg.add('FAMTFR','tbl-1:txn_units',l_asset_dist_tbl(1).transaction_units,p_log_level_rec => g_log_level_rec);
436: fa_debug_pkg.add('FAMTFR','tbl-1:assignto',l_asset_dist_tbl(1).assigned_to,p_log_level_rec => g_log_level_rec);
437: fa_debug_pkg.add('FAMTFR','tbl-1:loc_id',l_asset_dist_tbl(1).location_ccid, p_log_level_rec => g_log_level_rec);
438: fa_debug_pkg.add('FAMTFR','tbl-1:exp_id',l_asset_dist_tbl(1).expense_ccid, p_log_level_rec => g_log_level_rec);
431: l_asset_dist_tbl(2).expense_ccid := l_to_ccid;
432:
433: if (g_log_level_rec.statement_level) then
434: fa_debug_pkg.add('FAMTFR','tbl-1:dist_id',l_asset_dist_tbl(1).distribution_id, p_log_level_rec => g_log_level_rec);
435: fa_debug_pkg.add('FAMTFR','tbl-1:txn_units',l_asset_dist_tbl(1).transaction_units,p_log_level_rec => g_log_level_rec);
436: fa_debug_pkg.add('FAMTFR','tbl-1:assignto',l_asset_dist_tbl(1).assigned_to,p_log_level_rec => g_log_level_rec);
437: fa_debug_pkg.add('FAMTFR','tbl-1:loc_id',l_asset_dist_tbl(1).location_ccid, p_log_level_rec => g_log_level_rec);
438: fa_debug_pkg.add('FAMTFR','tbl-1:exp_id',l_asset_dist_tbl(1).expense_ccid, p_log_level_rec => g_log_level_rec);
439:
432:
433: if (g_log_level_rec.statement_level) then
434: fa_debug_pkg.add('FAMTFR','tbl-1:dist_id',l_asset_dist_tbl(1).distribution_id, p_log_level_rec => g_log_level_rec);
435: fa_debug_pkg.add('FAMTFR','tbl-1:txn_units',l_asset_dist_tbl(1).transaction_units,p_log_level_rec => g_log_level_rec);
436: fa_debug_pkg.add('FAMTFR','tbl-1:assignto',l_asset_dist_tbl(1).assigned_to,p_log_level_rec => g_log_level_rec);
437: fa_debug_pkg.add('FAMTFR','tbl-1:loc_id',l_asset_dist_tbl(1).location_ccid, p_log_level_rec => g_log_level_rec);
438: fa_debug_pkg.add('FAMTFR','tbl-1:exp_id',l_asset_dist_tbl(1).expense_ccid, p_log_level_rec => g_log_level_rec);
439:
440: fa_debug_pkg.add('FAMTFR','tbl-2:dist_id',l_asset_dist_tbl(2).distribution_id, p_log_level_rec => g_log_level_rec);
433: if (g_log_level_rec.statement_level) then
434: fa_debug_pkg.add('FAMTFR','tbl-1:dist_id',l_asset_dist_tbl(1).distribution_id, p_log_level_rec => g_log_level_rec);
435: fa_debug_pkg.add('FAMTFR','tbl-1:txn_units',l_asset_dist_tbl(1).transaction_units,p_log_level_rec => g_log_level_rec);
436: fa_debug_pkg.add('FAMTFR','tbl-1:assignto',l_asset_dist_tbl(1).assigned_to,p_log_level_rec => g_log_level_rec);
437: fa_debug_pkg.add('FAMTFR','tbl-1:loc_id',l_asset_dist_tbl(1).location_ccid, p_log_level_rec => g_log_level_rec);
438: fa_debug_pkg.add('FAMTFR','tbl-1:exp_id',l_asset_dist_tbl(1).expense_ccid, p_log_level_rec => g_log_level_rec);
439:
440: fa_debug_pkg.add('FAMTFR','tbl-2:dist_id',l_asset_dist_tbl(2).distribution_id, p_log_level_rec => g_log_level_rec);
441: fa_debug_pkg.add('FAMTFR','tbl-2:txn_units',l_asset_dist_tbl(2).transaction_units, p_log_level_rec => g_log_level_rec);
434: fa_debug_pkg.add('FAMTFR','tbl-1:dist_id',l_asset_dist_tbl(1).distribution_id, p_log_level_rec => g_log_level_rec);
435: fa_debug_pkg.add('FAMTFR','tbl-1:txn_units',l_asset_dist_tbl(1).transaction_units,p_log_level_rec => g_log_level_rec);
436: fa_debug_pkg.add('FAMTFR','tbl-1:assignto',l_asset_dist_tbl(1).assigned_to,p_log_level_rec => g_log_level_rec);
437: fa_debug_pkg.add('FAMTFR','tbl-1:loc_id',l_asset_dist_tbl(1).location_ccid, p_log_level_rec => g_log_level_rec);
438: fa_debug_pkg.add('FAMTFR','tbl-1:exp_id',l_asset_dist_tbl(1).expense_ccid, p_log_level_rec => g_log_level_rec);
439:
440: fa_debug_pkg.add('FAMTFR','tbl-2:dist_id',l_asset_dist_tbl(2).distribution_id, p_log_level_rec => g_log_level_rec);
441: fa_debug_pkg.add('FAMTFR','tbl-2:txn_units',l_asset_dist_tbl(2).transaction_units, p_log_level_rec => g_log_level_rec);
442: fa_debug_pkg.add('FAMTFR','tbl-2:assignto',l_asset_dist_tbl(2).assigned_to, p_log_level_rec => g_log_level_rec);
436: fa_debug_pkg.add('FAMTFR','tbl-1:assignto',l_asset_dist_tbl(1).assigned_to,p_log_level_rec => g_log_level_rec);
437: fa_debug_pkg.add('FAMTFR','tbl-1:loc_id',l_asset_dist_tbl(1).location_ccid, p_log_level_rec => g_log_level_rec);
438: fa_debug_pkg.add('FAMTFR','tbl-1:exp_id',l_asset_dist_tbl(1).expense_ccid, p_log_level_rec => g_log_level_rec);
439:
440: fa_debug_pkg.add('FAMTFR','tbl-2:dist_id',l_asset_dist_tbl(2).distribution_id, p_log_level_rec => g_log_level_rec);
441: fa_debug_pkg.add('FAMTFR','tbl-2:txn_units',l_asset_dist_tbl(2).transaction_units, p_log_level_rec => g_log_level_rec);
442: fa_debug_pkg.add('FAMTFR','tbl-2:assignto',l_asset_dist_tbl(2).assigned_to, p_log_level_rec => g_log_level_rec);
443: fa_debug_pkg.add('FAMTFR','tbl-2:loc_id',l_asset_dist_tbl(2).location_ccid, p_log_level_rec => g_log_level_rec);
444: fa_debug_pkg.add('FAMTFR','tbl-2:exp_id',l_asset_dist_tbl(2).expense_ccid, p_log_level_rec => g_log_level_rec);
437: fa_debug_pkg.add('FAMTFR','tbl-1:loc_id',l_asset_dist_tbl(1).location_ccid, p_log_level_rec => g_log_level_rec);
438: fa_debug_pkg.add('FAMTFR','tbl-1:exp_id',l_asset_dist_tbl(1).expense_ccid, p_log_level_rec => g_log_level_rec);
439:
440: fa_debug_pkg.add('FAMTFR','tbl-2:dist_id',l_asset_dist_tbl(2).distribution_id, p_log_level_rec => g_log_level_rec);
441: fa_debug_pkg.add('FAMTFR','tbl-2:txn_units',l_asset_dist_tbl(2).transaction_units, p_log_level_rec => g_log_level_rec);
442: fa_debug_pkg.add('FAMTFR','tbl-2:assignto',l_asset_dist_tbl(2).assigned_to, p_log_level_rec => g_log_level_rec);
443: fa_debug_pkg.add('FAMTFR','tbl-2:loc_id',l_asset_dist_tbl(2).location_ccid, p_log_level_rec => g_log_level_rec);
444: fa_debug_pkg.add('FAMTFR','tbl-2:exp_id',l_asset_dist_tbl(2).expense_ccid, p_log_level_rec => g_log_level_rec);
445: end if;
438: fa_debug_pkg.add('FAMTFR','tbl-1:exp_id',l_asset_dist_tbl(1).expense_ccid, p_log_level_rec => g_log_level_rec);
439:
440: fa_debug_pkg.add('FAMTFR','tbl-2:dist_id',l_asset_dist_tbl(2).distribution_id, p_log_level_rec => g_log_level_rec);
441: fa_debug_pkg.add('FAMTFR','tbl-2:txn_units',l_asset_dist_tbl(2).transaction_units, p_log_level_rec => g_log_level_rec);
442: fa_debug_pkg.add('FAMTFR','tbl-2:assignto',l_asset_dist_tbl(2).assigned_to, p_log_level_rec => g_log_level_rec);
443: fa_debug_pkg.add('FAMTFR','tbl-2:loc_id',l_asset_dist_tbl(2).location_ccid, p_log_level_rec => g_log_level_rec);
444: fa_debug_pkg.add('FAMTFR','tbl-2:exp_id',l_asset_dist_tbl(2).expense_ccid, p_log_level_rec => g_log_level_rec);
445: end if;
446: --dbms_output.put_line('before fa_transfer_pub');
439:
440: fa_debug_pkg.add('FAMTFR','tbl-2:dist_id',l_asset_dist_tbl(2).distribution_id, p_log_level_rec => g_log_level_rec);
441: fa_debug_pkg.add('FAMTFR','tbl-2:txn_units',l_asset_dist_tbl(2).transaction_units, p_log_level_rec => g_log_level_rec);
442: fa_debug_pkg.add('FAMTFR','tbl-2:assignto',l_asset_dist_tbl(2).assigned_to, p_log_level_rec => g_log_level_rec);
443: fa_debug_pkg.add('FAMTFR','tbl-2:loc_id',l_asset_dist_tbl(2).location_ccid, p_log_level_rec => g_log_level_rec);
444: fa_debug_pkg.add('FAMTFR','tbl-2:exp_id',l_asset_dist_tbl(2).expense_ccid, p_log_level_rec => g_log_level_rec);
445: end if;
446: --dbms_output.put_line('before fa_transfer_pub');
447: FA_TRANSFER_PUB.do_transfer
440: fa_debug_pkg.add('FAMTFR','tbl-2:dist_id',l_asset_dist_tbl(2).distribution_id, p_log_level_rec => g_log_level_rec);
441: fa_debug_pkg.add('FAMTFR','tbl-2:txn_units',l_asset_dist_tbl(2).transaction_units, p_log_level_rec => g_log_level_rec);
442: fa_debug_pkg.add('FAMTFR','tbl-2:assignto',l_asset_dist_tbl(2).assigned_to, p_log_level_rec => g_log_level_rec);
443: fa_debug_pkg.add('FAMTFR','tbl-2:loc_id',l_asset_dist_tbl(2).location_ccid, p_log_level_rec => g_log_level_rec);
444: fa_debug_pkg.add('FAMTFR','tbl-2:exp_id',l_asset_dist_tbl(2).expense_ccid, p_log_level_rec => g_log_level_rec);
445: end if;
446: --dbms_output.put_line('before fa_transfer_pub');
447: FA_TRANSFER_PUB.do_transfer
448: (p_api_version => l_api_version,
476: FND_CONCURRENT.AF_ROLLBACK;
477:
478: -- Commented for bugfix 4672237
479: -- if (g_log_level_rec.statement_level) then
480: -- fa_debug_pkg.dump_debug_messages(max_mesgs => 0);
481: -- end if;
482: x_failure_count := x_failure_count + 1;
483: fa_srvr_msg.add_message(
484: calling_fn => l_calling_fn,
492: FND_CONCURRENT.AF_ROLLBACK;
493:
494: -- Commented for bugfix 4672237
495: -- if (g_log_level_rec.statement_level) then
496: -- fa_debug_pkg.dump_debug_messages(max_mesgs => 0);
497: -- end if;
498: x_failure_count := x_failure_count + 1;
499: fa_srvr_msg.add_message(
500: calling_fn => l_calling_fn,
533: p_log_level_rec => g_log_level_rec);
534:
535: -- Commented for bugfix 4672237
536: -- if (g_log_level_rec.statement_level) then
537: -- FA_DEBUG_PKG.dump_debug_messages(max_mesgs => 0);
538: -- end if;
539: x_return_status := 2;
540:
541: when others then