[Home] [Help]
37: G_Min_Acct_Unit NUMBER;
38: G_Today_Datetime DATE := SYSDATE;
39: G_Currency_Code gl_sets_of_books.currency_code%TYPE;
40: G_Set_of_Books_ID fa_book_controls.set_of_books_id%TYPE;
41: G_calc_gain_loss_flag varchar2(50) := FND_API.G_FALSE;
42: G_Distribution_id fa_distribution_history.distribution_id%TYPE;
43: -- bug 1857395
44: G_Code_Combination_Id fa_mass_Ext_retirements.Code_Combination_Id%TYPE;
45: G_Location_Id fa_mass_Ext_retirements.Location_Id%TYPE;
224: -- variables and structs used for api call
225: -- l_debug_flag VARCHAR2(3) := 'YES';
226: l_debug_flag VARCHAR2(3) := 'NO';
227: l_api_version NUMBER := 1; -- 1.0
228: l_init_msg_list VARCHAR2(50) := FND_API.G_FALSE; -- 1
229: l_commit VARCHAR2(1) := FND_API.G_FALSE;
230: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
231: l_return_status VARCHAR2(10);
232: l_msg_count NUMBER;
225: -- l_debug_flag VARCHAR2(3) := 'YES';
226: l_debug_flag VARCHAR2(3) := 'NO';
227: l_api_version NUMBER := 1; -- 1.0
228: l_init_msg_list VARCHAR2(50) := FND_API.G_FALSE; -- 1
229: l_commit VARCHAR2(1) := FND_API.G_FALSE;
230: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
231: l_return_status VARCHAR2(10);
232: l_msg_count NUMBER;
233: -- l_msg_data VARCHAR2(4000);
226: l_debug_flag VARCHAR2(3) := 'NO';
227: l_api_version NUMBER := 1; -- 1.0
228: l_init_msg_list VARCHAR2(50) := FND_API.G_FALSE; -- 1
229: l_commit VARCHAR2(1) := FND_API.G_FALSE;
230: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
231: l_return_status VARCHAR2(10);
232: l_msg_count NUMBER;
233: -- l_msg_data VARCHAR2(4000);
234: l_calling_fn VARCHAR2(100) := 'fa_cua_mass_ext_ret_pkg';
1106: l_asset_retire_rec.trade_in_asset_id := g_trade_in_asset_id;
1107: l_asset_retire_rec.status := 'PENDING';
1108: l_asset_retire_rec.reference_num := g_reference_num;
1109: -- this parameter gives an option to run gain/loss right after the transaction.
1110: -- retirement api is using fnd_api.g_true/g_false
1111: -- converting potential Y and N to fnd_api.g_true/g_false.
1112: --
1113: if g_calc_gain_loss_flag in ('Y','YES') then
1114: g_calc_gain_loss_flag := fnd_api.g_true;
1107: l_asset_retire_rec.status := 'PENDING';
1108: l_asset_retire_rec.reference_num := g_reference_num;
1109: -- this parameter gives an option to run gain/loss right after the transaction.
1110: -- retirement api is using fnd_api.g_true/g_false
1111: -- converting potential Y and N to fnd_api.g_true/g_false.
1112: --
1113: if g_calc_gain_loss_flag in ('Y','YES') then
1114: g_calc_gain_loss_flag := fnd_api.g_true;
1115: elsif g_calc_gain_loss_flag in ('N','NO') then
1110: -- retirement api is using fnd_api.g_true/g_false
1111: -- converting potential Y and N to fnd_api.g_true/g_false.
1112: --
1113: if g_calc_gain_loss_flag in ('Y','YES') then
1114: g_calc_gain_loss_flag := fnd_api.g_true;
1115: elsif g_calc_gain_loss_flag in ('N','NO') then
1116: g_calc_gain_loss_flag := fnd_api.g_false;
1117: end if;
1118: l_asset_retire_rec.calculate_gain_loss := g_calc_gain_loss_flag;
1112: --
1113: if g_calc_gain_loss_flag in ('Y','YES') then
1114: g_calc_gain_loss_flag := fnd_api.g_true;
1115: elsif g_calc_gain_loss_flag in ('N','NO') then
1116: g_calc_gain_loss_flag := fnd_api.g_false;
1117: end if;
1118: l_asset_retire_rec.calculate_gain_loss := g_calc_gain_loss_flag;
1119: l_asset_retire_rec.desc_flex.attribute1 := g_attribute1;
1120: l_asset_retire_rec.desc_flex.attribute2 := g_attribute2;
1262:
1263: END IF;
1264:
1265:
1266: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
1267: raise G_Subroutine_Fail;
1268: else
1269: G_success_count := G_success_count + 1;
1270: x_success_count := x_success_count + 1;
1336: p_db_error => '',
1337: p_mode => 'W');
1338:
1339: fa_srvr_msg.add_message(calling_fn => l_calling_fn, p_log_level_rec => g_log_level_rec);
1340: -- x_return_status := FND_API.G_RET_STS_ERROR;
1341:
1342: FND_CONCURRENT.AF_COMMIT;
1343: x_return_status := 1;
1344: