618:
619:
620: EXCEPTION
621: when others then
622: FND_CONCURRENT.AF_ROLLBACK;
623: x_failure_count := x_failure_count + 1;
624:
625: write_message(l_asset_number(l_loop_count),
626: null);
631: end if;
632:
633: END;
634:
635: -- FND_CONCURRENT.AF_COMMIT each record
636: FND_CONCURRENT.AF_COMMIT;
637:
638: end loop;
639:
632:
633: END;
634:
635: -- FND_CONCURRENT.AF_COMMIT each record
636: FND_CONCURRENT.AF_COMMIT;
637:
638: end loop;
639:
640: else -- non-uom or group change
1005: 'FA_MCP_ADJUSTMENT_SUCCESS');
1006:
1007: EXCEPTION
1008: when adj_err then
1009: FND_CONCURRENT.AF_ROLLBACK;
1010: x_failure_count := x_failure_count + 1;
1011:
1012: write_message(l_asset_number(l_loop_count),
1013: l_mesg_name);
1015: fa_debug_pkg.dump_debug_messages(max_mesgs => 0, p_log_level_rec => g_log_level_rec);
1016: end if;
1017:
1018: when others then
1019: FND_CONCURRENT.AF_ROLLBACK;
1020: x_failure_count := x_failure_count + 1;
1021:
1022: write_message(l_asset_number(l_loop_count),
1023: null);
1029: end if;
1030:
1031: END;
1032:
1033: -- FND_CONCURRENT.AF_COMMIT each record
1034: FND_CONCURRENT.AF_COMMIT;
1035:
1036: end loop; -- main bulk fetch loop
1037:
1030:
1031: END;
1032:
1033: -- FND_CONCURRENT.AF_COMMIT each record
1034: FND_CONCURRENT.AF_COMMIT;
1035:
1036: end loop; -- main bulk fetch loop
1037:
1038: px_max_asset_id := l_asset_id(l_asset_id.count);
1045: when done_exc then
1046: x_return_status := 0;
1047:
1048: when masschg_err then
1049: FND_CONCURRENT.AF_ROLLBACK;
1050: fa_srvr_msg.add_message(calling_fn => l_calling_fn, p_log_level_rec => g_log_level_rec);
1051: if (g_log_level_rec.statement_level) then
1052: FA_DEBUG_PKG.dump_debug_messages(max_mesgs => 0, p_log_level_rec => g_log_level_rec);
1053: end if;
1053: end if;
1054: x_return_status := 2;
1055:
1056: when others then
1057: FND_CONCURRENT.AF_ROLLBACK;
1058: fa_srvr_msg.add_message(calling_fn => l_calling_fn, p_log_level_rec => g_log_level_rec);
1059: if (g_log_level_rec.statement_level) then
1060: FA_DEBUG_PKG.dump_debug_messages(max_mesgs => 0, p_log_level_rec => g_log_level_rec);
1061: end if;