86: v_last_update_login NUMBER;
87: lv_book_type_code varchar2(30);
88: lv_current_cost number;
89: l_api_version number := 1;
90: l_init_msg_list varchar2(1) := FND_API.G_FALSE;
91: l_commit varchar2(1) := FND_API.G_FALSE;
92: l_validation_level number := FND_API.G_VALID_LEVEL_FULL;
93: l_return_status varchar2(1) := FND_API.G_FALSE;
94: l_msg_count number := 0;
87: lv_book_type_code varchar2(30);
88: lv_current_cost number;
89: l_api_version number := 1;
90: l_init_msg_list varchar2(1) := FND_API.G_FALSE;
91: l_commit varchar2(1) := FND_API.G_FALSE;
92: l_validation_level number := FND_API.G_VALID_LEVEL_FULL;
93: l_return_status varchar2(1) := FND_API.G_FALSE;
94: l_msg_count number := 0;
95: l_msg_data varchar2(512);
88: lv_current_cost number;
89: l_api_version number := 1;
90: l_init_msg_list varchar2(1) := FND_API.G_FALSE;
91: l_commit varchar2(1) := FND_API.G_FALSE;
92: l_validation_level number := FND_API.G_VALID_LEVEL_FULL;
93: l_return_status varchar2(1) := FND_API.G_FALSE;
94: l_msg_count number := 0;
95: l_msg_data varchar2(512);
96: l_trans_rec FA_API_TYPES.trans_rec_type;
89: l_api_version number := 1;
90: l_init_msg_list varchar2(1) := FND_API.G_FALSE;
91: l_commit varchar2(1) := FND_API.G_FALSE;
92: l_validation_level number := FND_API.G_VALID_LEVEL_FULL;
93: l_return_status varchar2(1) := FND_API.G_FALSE;
94: l_msg_count number := 0;
95: l_msg_data varchar2(512);
96: l_trans_rec FA_API_TYPES.trans_rec_type;
97: l_asset_hdr_rec FA_API_TYPES.asset_hdr_rec_type;
235: ,p_inv_tbl => l_inv_tbl);
236:
237: END IF; -- LV_Retirement_Status
238:
239: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
240: rollback;
241:
242: UPDATE fa_hr_retirement_headers
243: set status_code = 'RF' -- Reinstatement Failed