125: BEGIN
126: OPEN c_instance_no_ib;
127: FETCH c_instance_no_ib INTO x_instance_number_ib;
128: IF (c_instance_no_ib%NOTFOUND) Then
129: x_return_status := OKC_API.G_RET_STS_ERROR;
130: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
131: p_msg_name => g_unexpected_error,
132: p_token1 => g_sqlcode_token,
133: p_token1_value => sqlcode,
140: WHEN OTHERS THEN
141: IF c_instance_no_ib%ISOPEN THEN
142: CLOSE c_instance_no_ib;
143: END IF;
144: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
145: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
146: p_msg_name => g_unexpected_error,
147: p_token1 => g_sqlcode_token,
148: p_token1_value => sqlcode,
163: BEGIN
164: OPEN c_asset_no(p_old_asset_number);
165: FETCH c_asset_no INTO x_asset_number;
166: IF (c_asset_no%NOTFOUND) Then
167: x_return_status := OKC_API.G_RET_STS_ERROR;
168: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
169: p_msg_name => g_unexpected_error,
170: p_token1 => g_sqlcode_token,
171: p_token1_value => sqlcode,
178: WHEN OTHERS THEN
179: IF c_asset_no%ISOPEN THEN
180: CLOSE c_asset_no;
181: END IF;
182: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
183: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
184: p_msg_name => g_unexpected_error,
185: p_token1 => g_sqlcode_token,
186: p_token1_value => sqlcode,
227: BEGIN
228: OPEN c_asset_no;
229: FETCH c_asset_no INTO x_asset_number;
230: IF (c_asset_no%NOTFOUND) THEN
231: x_return_status := OKC_API.G_RET_STS_ERROR;
232: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
233: p_msg_name => g_unexpected_error,
234: p_token1 => g_sqlcode_token,
235: p_token1_value => sqlcode,
267: ln_dummy3 = 1 THEN
268: OPEN c_asset_no;
269: FETCH c_asset_no INTO x_asset_number;
270: IF (c_asset_no%NOTFOUND) THEN
271: x_return_status := OKC_API.G_RET_STS_ERROR;
272: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
273: p_msg_name => g_unexpected_error,
274: p_token1 => g_sqlcode_token,
275: p_token1_value => sqlcode,
296: END IF;
297: IF c_okx_assets_v%ISOPEN THEN
298: CLOSE c_okx_assets_v;
299: END IF;
300: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
301: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
302: p_msg_name => g_unexpected_error,
303: p_token1 => g_sqlcode_token,
304: p_token1_value => sqlcode,
4604: x_currency_conversion_date => x_currency_conversion_date,
4605: x_converted_amount => l_talv_rec.original_cost);
4606: IF (r_asset_info.cost >= 0) and (l_talv_rec.original_cost < 0) then
4607: --currency conversion rate was not found in Oracle GL
4608: OKC_API.set_message(p_app_name => G_APP_NAME,
4609: p_msg_name => G_CONV_RATE_NOT_FOUND,
4610: p_token1 => G_FROM_CURRENCY_TOKEN,
4611: p_token1_value => x_contract_currency,
4612: p_token2 => G_TO_CURRENCY_TOKEN,
4700: x_currency_conversion_date => x_currency_conversion_date,
4701: x_converted_amount => l_talv_rec.salvage_value);
4702: IF (r_asset_info.salvage_value >= 0) and (l_talv_rec.salvage_value < 0) then
4703: --currency conversion rate was not found in Oracle GL
4704: OKC_API.set_message(p_app_name => G_APP_NAME,
4705: p_msg_name => G_CONV_RATE_NOT_FOUND,
4706: p_token1 => G_FROM_CURRENCY_TOKEN,
4707: p_token1_value => x_contract_currency,
4708: p_token2 => G_TO_CURRENCY_TOKEN,
4798: x_currency_conversion_date => x_currency_conversion_date,
4799: x_converted_amount => l_txdv_rec.cost);
4800: IF (r_asset_details_info.cost >= 0) and (l_txdv_rec.cost < 0) then
4801: --currency conversion rate was not found in Oracle GL
4802: OKC_API.set_message(p_app_name => G_APP_NAME,
4803: p_msg_name => G_CONV_RATE_NOT_FOUND,
4804: p_token1 => G_FROM_CURRENCY_TOKEN,
4805: p_token1_value => x_contract_currency,
4806: p_token2 => G_TO_CURRENCY_TOKEN,
5316: p_formula_name => 'LINE_CAP_AMNT',
5317: p_contract_id => p_to_chr_id,
5318: p_line_id => x_cle_id,
5319: x_value => l_fin_klev_rec.capital_amount);
5320: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
5321: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5322: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
5323: raise OKC_API.G_EXCEPTION_ERROR;
5324: End If;
5317: p_contract_id => p_to_chr_id,
5318: p_line_id => x_cle_id,
5319: x_value => l_fin_klev_rec.capital_amount);
5320: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
5321: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5322: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
5323: raise OKC_API.G_EXCEPTION_ERROR;
5324: End If;
5325:
5318: p_line_id => x_cle_id,
5319: x_value => l_fin_klev_rec.capital_amount);
5320: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
5321: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5322: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
5323: raise OKC_API.G_EXCEPTION_ERROR;
5324: End If;
5325:
5326: l_fin_klev_rec.id := x_cle_id;
5319: x_value => l_fin_klev_rec.capital_amount);
5320: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
5321: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5322: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
5323: raise OKC_API.G_EXCEPTION_ERROR;
5324: End If;
5325:
5326: l_fin_klev_rec.id := x_cle_id;
5327: l_fin_clev_rec.id := x_cle_id;
5334: p_clev_rec => l_fin_clev_rec,
5335: p_klev_rec => l_fin_klev_rec,
5336: x_clev_rec => lx_fin_clev_rec,
5337: x_klev_rec => lx_fin_klev_rec);
5338: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
5339: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5340: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
5341: raise OKC_API.G_EXCEPTION_ERROR;
5342: End If;
5335: p_klev_rec => l_fin_klev_rec,
5336: x_clev_rec => lx_fin_clev_rec,
5337: x_klev_rec => lx_fin_klev_rec);
5338: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
5339: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5340: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
5341: raise OKC_API.G_EXCEPTION_ERROR;
5342: End If;
5343: ---------------------------
5336: x_clev_rec => lx_fin_clev_rec,
5337: x_klev_rec => lx_fin_klev_rec);
5338: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
5339: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5340: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
5341: raise OKC_API.G_EXCEPTION_ERROR;
5342: End If;
5343: ---------------------------
5344: --recalculate capital amount
5337: x_klev_rec => lx_fin_klev_rec);
5338: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
5339: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5340: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
5341: raise OKC_API.G_EXCEPTION_ERROR;
5342: End If;
5343: ---------------------------
5344: --recalculate capital amount
5345: ---------------------------
5697: p_formula_name => 'LINE_CAP_AMNT',
5698: p_contract_id => l_fin_clev_rec.dnz_chr_id,
5699: p_line_id => to_number(l_fin_klev_rec.id),
5700: x_value => l_fin_klev_rec.capital_amount);
5701: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
5702: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5703: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
5704: raise OKC_API.G_EXCEPTION_ERROR;
5705: End If;
5698: p_contract_id => l_fin_clev_rec.dnz_chr_id,
5699: p_line_id => to_number(l_fin_klev_rec.id),
5700: x_value => l_fin_klev_rec.capital_amount);
5701: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
5702: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5703: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
5704: raise OKC_API.G_EXCEPTION_ERROR;
5705: End If;
5706:
5699: p_line_id => to_number(l_fin_klev_rec.id),
5700: x_value => l_fin_klev_rec.capital_amount);
5701: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
5702: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5703: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
5704: raise OKC_API.G_EXCEPTION_ERROR;
5705: End If;
5706:
5707:
5700: x_value => l_fin_klev_rec.capital_amount);
5701: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
5702: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5703: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
5704: raise OKC_API.G_EXCEPTION_ERROR;
5705: End If;
5706:
5707:
5708: okl_contract_pub.update_contract_line(p_api_version => p_api_version,
5713: p_clev_rec => l_fin_clev_rec,
5714: p_klev_rec => l_fin_klev_rec,
5715: x_clev_rec => lx_fin_clev_rec,
5716: x_klev_rec => lx_fin_klev_rec);
5717: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
5718: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5719: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
5720: raise OKC_API.G_EXCEPTION_ERROR;
5721: End If;
5714: p_klev_rec => l_fin_klev_rec,
5715: x_clev_rec => lx_fin_clev_rec,
5716: x_klev_rec => lx_fin_klev_rec);
5717: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
5718: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5719: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
5720: raise OKC_API.G_EXCEPTION_ERROR;
5721: End If;
5722: End Loop;
5715: x_clev_rec => lx_fin_clev_rec,
5716: x_klev_rec => lx_fin_klev_rec);
5717: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
5718: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5719: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
5720: raise OKC_API.G_EXCEPTION_ERROR;
5721: End If;
5722: End Loop;
5723: End If;
5716: x_klev_rec => lx_fin_klev_rec);
5717: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
5718: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5719: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
5720: raise OKC_API.G_EXCEPTION_ERROR;
5721: End If;
5722: End Loop;
5723: End If;
5724:
5895: l_crjv_rec.jtot_object1_code := h_old_link_rec.jtot_object1_code;
5896:
5897: OKC_K_REL_OBJS_PUB.create_row (
5898: p_api_version => 1.0,
5899: p_init_msg_list => OKC_API.G_FALSE,
5900: x_return_status => x_return_status,
5901: x_msg_count => x_msg_count,
5902: x_msg_data => x_msg_data,
5903: p_crjv_rec => l_crjv_rec,
5903: p_crjv_rec => l_crjv_rec,
5904: x_crjv_rec => x_crjv_rec
5905: );
5906:
5907: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
5908: RAISE OKC_API.G_EXCEPTION_ERROR;
5909: END IF;
5910: END IF; -- l_h_link_exist = 'Y'
5911:
5904: x_crjv_rec => x_crjv_rec
5905: );
5906:
5907: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
5908: RAISE OKC_API.G_EXCEPTION_ERROR;
5909: END IF;
5910: END IF; -- l_h_link_exist = 'Y'
5911:
5912: --
5933: END IF;
5934:
5935: OKC_K_REL_OBJS_PUB.create_row (
5936: p_api_version => 1.0,
5937: p_init_msg_list => OKC_API.G_FALSE,
5938: x_return_status => x_return_status,
5939: x_msg_count => x_msg_count,
5940: x_msg_data => x_msg_data,
5941: p_crjv_rec => l_crjv_rec,
5941: p_crjv_rec => l_crjv_rec,
5942: x_crjv_rec => x_crjv_rec
5943: );
5944:
5945: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
5946: RAISE OKC_API.G_EXCEPTION_ERROR;
5947: END IF;
5948:
5949: END LOOP;
5942: x_crjv_rec => x_crjv_rec
5943: );
5944:
5945: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
5946: RAISE OKC_API.G_EXCEPTION_ERROR;
5947: END IF;
5948:
5949: END LOOP;
5950: END LOOP; -- h_old_link_csr