146: WHEN OTHERS THEN
147: IF c_check_dup_serial_num%ISOPEN THEN
148: CLOSE c_check_dup_serial_num;
149: END IF;
150: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
151: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
152: p_msg_name => g_unexpected_error,
153: p_token1 => g_sqlcode_token,
154: p_token1_value => sqlcode,
167: BEGIN
168: OPEN c_instance_no_ib;
169: FETCH c_instance_no_ib INTO x_instance_number_ib;
170: IF (c_instance_no_ib%NOTFOUND) Then
171: x_return_status := OKC_API.G_RET_STS_ERROR;
172: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
173: p_msg_name => g_unexpected_error,
174: p_token1 => g_sqlcode_token,
175: p_token1_value => sqlcode,
182: WHEN OTHERS THEN
183: IF c_instance_no_ib%ISOPEN THEN
184: CLOSE c_instance_no_ib;
185: END IF;
186: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
187: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
188: p_msg_name => g_unexpected_error,
189: p_token1 => g_sqlcode_token,
190: p_token1_value => sqlcode,
243: BEGIN
244: OPEN c_asset_no;
245: FETCH c_asset_no INTO x_asset_number;
246: IF (c_asset_no%NOTFOUND) THEN
247: x_return_status := OKC_API.G_RET_STS_ERROR;
248: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
249: p_msg_name => g_unexpected_error,
250: p_token1 => g_sqlcode_token,
251: p_token1_value => sqlcode,
283: ln_dummy3 = 1 THEN
284: OPEN c_asset_no;
285: FETCH c_asset_no INTO x_asset_number;
286: IF (c_asset_no%NOTFOUND) THEN
287: x_return_status := OKC_API.G_RET_STS_ERROR;
288: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
289: p_msg_name => g_unexpected_error,
290: p_token1 => g_sqlcode_token,
291: p_token1_value => sqlcode,
312: END IF;
313: IF c_okx_assets_v%ISOPEN THEN
314: CLOSE c_okx_assets_v;
315: END IF;
316: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
317: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
318: p_msg_name => g_unexpected_error,
319: p_token1 => g_sqlcode_token,
320: p_token1_value => sqlcode,
10391: -------------------------------------------------------------------------------------------------------
10392: ---------------------------- Main Process for Creation of Add on Line ---------------------------------
10393: -------------------------------------------------------------------------------------------------------
10394: PROCEDURE create_add_on_line(p_api_version IN NUMBER,
10395: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
10396: x_return_status OUT NOCOPY VARCHAR2,
10397: x_msg_count OUT NOCOPY NUMBER,
10398: x_msg_data OUT NOCOPY VARCHAR2,
10399: P_new_yn IN OKL_TXL_ASSETS_V.USED_ASSET_YN%TYPE,
10676: ---------------------------- Main Process for Update of Add on Line ---------------------------------
10677: -------------------------------------------------------------------------------------------------------
10678: PROCEDURE update_add_on_line(
10679: p_api_version IN NUMBER,
10680: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
10681: x_return_status OUT NOCOPY VARCHAR2,
10682: x_msg_count OUT NOCOPY NUMBER,
10683: x_msg_data OUT NOCOPY VARCHAR2,
10684: P_new_yn IN OKL_TXL_ASSETS_V.USED_ASSET_YN%TYPE,
10930: ---------------------------- Main Process for Delete of Add on Line -----------------------------------
10931: -------------------------------------------------------------------------------------------------------
10932: PROCEDURE delete_add_on_line(
10933: p_api_version IN NUMBER,
10934: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
10935: x_return_status OUT NOCOPY VARCHAR2,
10936: x_msg_count OUT NOCOPY NUMBER,
10937: x_msg_data OUT NOCOPY VARCHAR2,
10938: P_new_yn IN OKL_TXL_ASSETS_V.USED_ASSET_YN%TYPE,
11734: ------------------------ Main Process for Create Party Roles-----------------------------------
11735: -----------------------------------------------------------------------------------------------
11736: PROCEDURE Create_party_roles_rec(
11737: p_api_version IN NUMBER,
11738: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
11739: x_return_status OUT NOCOPY VARCHAR2,
11740: x_msg_count OUT NOCOPY NUMBER,
11741: x_msg_data OUT NOCOPY VARCHAR2,
11742: p_cplv_rec IN cplv_rec_type,
11935: ------------------------ Main Process for Update Party Roles-----------------------------------
11936: -----------------------------------------------------------------------------------------------
11937: PROCEDURE Update_party_roles_rec(
11938: p_api_version IN NUMBER,
11939: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
11940: x_return_status OUT NOCOPY VARCHAR2,
11941: x_msg_count OUT NOCOPY NUMBER,
11942: x_msg_data OUT NOCOPY VARCHAR2,
11943: p_cplv_rec IN cplv_rec_type,
12200: p_api_version => p_api_version,
12201: p_api_type => '_PVT',
12202: x_return_status => x_return_status);
12203: -- Check if activity started successfully
12204: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
12205: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
12206: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
12207: RAISE Okc_Api.G_EXCEPTION_ERROR;
12208: END IF;
12201: p_api_type => '_PVT',
12202: x_return_status => x_return_status);
12203: -- Check if activity started successfully
12204: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
12205: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
12206: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
12207: RAISE Okc_Api.G_EXCEPTION_ERROR;
12208: END IF;
12209:
12203: -- Check if activity started successfully
12204: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
12205: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
12206: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
12207: RAISE Okc_Api.G_EXCEPTION_ERROR;
12208: END IF;
12209:
12210: --check with cursor
12211: l_off_lease_trx_exists := 'N';
12511: --Bug# 3533936 : Process for release Assets
12512: -------------------------------------------
12513: PROCEDURE Create_release_asset_line
12514: (p_api_version IN NUMBER,
12515: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
12516: x_return_status OUT NOCOPY VARCHAR2,
12517: x_msg_count OUT NOCOPY NUMBER,
12518: x_msg_data OUT NOCOPY VARCHAR2,
12519: p_asset_id IN VARCHAR2,
12848: p_api_version => p_api_version,
12849: p_api_type => '_PVT',
12850: x_return_status => x_return_status);
12851: -- Check if activity started successfully
12852: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
12853: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
12854: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
12855: RAISE Okc_Api.G_EXCEPTION_ERROR;
12856: END IF;
12849: p_api_type => '_PVT',
12850: x_return_status => x_return_status);
12851: -- Check if activity started successfully
12852: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
12853: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
12854: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
12855: RAISE Okc_Api.G_EXCEPTION_ERROR;
12856: END IF;
12857:
12851: -- Check if activity started successfully
12852: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
12853: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
12854: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
12855: RAISE Okc_Api.G_EXCEPTION_ERROR;
12856: END IF;
12857:
12858: --------------------------------
12859: --Bug# 3783518 : Check if it is a rebook. New asset should not be added on rebook of a rlease asset contract
12870: If l_rbk_yn = 'Y' then
12871: OKL_API.set_message(
12872: p_app_name => G_APP_NAME,
12873: p_msg_name => 'OKL_REL_ASSET_RBK_NEW_AST_ADD');
12874: x_return_status := OKC_API.G_RET_STS_ERROR;
12875: RAISE OKL_API.G_EXCEPTION_ERROR;
12876:
12877: End If;
12878:
12898: x_msg_count => x_msg_count,
12899: x_msg_data => x_msg_data,
12900: p_asset_id => p_asset_id,
12901: x_pending_trx_yn => l_pending_trx_yn);
12902: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
12903: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
12904: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
12905: RAISE Okc_Api.G_EXCEPTION_ERROR;
12906: END IF;
12899: x_msg_data => x_msg_data,
12900: p_asset_id => p_asset_id,
12901: x_pending_trx_yn => l_pending_trx_yn);
12902: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
12903: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
12904: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
12905: RAISE Okc_Api.G_EXCEPTION_ERROR;
12906: END IF;
12907:
12901: x_pending_trx_yn => l_pending_trx_yn);
12902: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
12903: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
12904: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
12905: RAISE Okc_Api.G_EXCEPTION_ERROR;
12906: END IF;
12907:
12908: If l_pending_trx_yn = 'Y' then
12909:
12918: p_app_name => G_APP_NAME,
12919: p_msg_name => 'OKL_LA_OFF_LEASE_TRX',
12920: p_token1 => 'ASSET_NUMBER',
12921: p_token1_value => l_asset_number);
12922: x_return_status := OKC_API.G_RET_STS_ERROR;
12923: RAISE OKL_API.G_EXCEPTION_ERROR;
12924:
12925: End If;
12926:
12964: p_token2 => 'ASSET_NUMBER',
12965: p_token2_value => l_asset_number,
12966: p_token3 => 'CONTRACT_START_DATE',
12967: p_token3_value => l_k_start_date);
12968: RAISE Okl_Api.G_EXCEPTION_ERROR; -- rmunjulu bug 6805958 changed to OKL_API from OKC_API
12969: End If;
12970:
12971: --Bug# 6328924
12972: If (l_hdr_rec.legal_entity_id <> l_orig_ast_rec.legal_entity_id) then
13296: x_msg_data => x_msg_data,
13297: p_talv_rec => l_talv_rec,
13298: x_talv_rec => lx_talv_rec);
13299:
13300: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
13301: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
13302: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
13303: RAISE Okc_Api.G_EXCEPTION_ERROR;
13304: END IF;
13297: p_talv_rec => l_talv_rec,
13298: x_talv_rec => lx_talv_rec);
13299:
13300: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
13301: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
13302: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
13303: RAISE Okc_Api.G_EXCEPTION_ERROR;
13304: END IF;
13305: END IF;
13299:
13300: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
13301: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
13302: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
13303: RAISE Okc_Api.G_EXCEPTION_ERROR;
13304: END IF;
13305: END IF;
13306: --BUG# :END 3569441
13307:
13437: x_msg_data => x_msg_data,
13438: p_adpv_rec => l_txdv_rec,
13439: x_adpv_rec => lx_txdv_rec);
13440:
13441: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
13442: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
13443: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
13444: RAISE Okc_Api.G_EXCEPTION_ERROR;
13445: END IF;
13438: p_adpv_rec => l_txdv_rec,
13439: x_adpv_rec => lx_txdv_rec);
13440:
13441: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
13442: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
13443: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
13444: RAISE Okc_Api.G_EXCEPTION_ERROR;
13445: END IF;
13446: END IF;
13440:
13441: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
13442: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
13443: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
13444: RAISE Okc_Api.G_EXCEPTION_ERROR;
13445: END IF;
13446: END IF;
13447: End Loop;
13448: Close l_taxbook_csr;
13470: Open town_rul_csr(pchrid => p_chr_id);
13471: Fetch town_rul_csr into l_town_rul,
13472: l_town_rul_id;
13473: If town_rul_csr%NOTFOUND Then
13474: OKC_API.set_message(
13475: p_app_name => G_APP_NAME,
13476: p_msg_name => G_REQUIRED_VALUE,
13477: p_token1 => G_COL_NAME_TOKEN,
13478: p_token1_value => 'Tax Owner');
13475: p_app_name => G_APP_NAME,
13476: p_msg_name => G_REQUIRED_VALUE,
13477: p_token1 => G_COL_NAME_TOKEN,
13478: p_token1_value => 'Tax Owner');
13479: x_return_status := OKC_API.G_RET_STS_ERROR;
13480: RAISE OKL_API.G_EXCEPTION_ERROR;
13481: Else
13482: l_tax_owner := rtrim(ltrim(l_town_rul,' '),' ');
13483: End If;
13587: x_msg_data => x_msg_data,
13588: p_adpv_rec => l_mg_txdv_rec,
13589: x_adpv_rec => lx_mg_txdv_rec);
13590:
13591: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
13592: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
13593: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
13594: RAISE Okc_Api.G_EXCEPTION_ERROR;
13595: END IF;
13588: p_adpv_rec => l_mg_txdv_rec,
13589: x_adpv_rec => lx_mg_txdv_rec);
13590:
13591: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
13592: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
13593: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
13594: RAISE Okc_Api.G_EXCEPTION_ERROR;
13595: END IF;
13596: End If; -- if multi gaap asset book is not doen
13590:
13591: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
13592: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
13593: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
13594: RAISE Okc_Api.G_EXCEPTION_ERROR;
13595: END IF;
13596: End If; -- if multi gaap asset book is not doen
13597: End If; --If l_mutigaap_yn
13598: x_cle_id:= l_new_finasst_id;
13633: --called from release asset line
13634: ---------------------------------------------------------
13635: PROCEDURE copy_updated_asset_components
13636: (p_api_version IN NUMBER,
13637: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
13638: x_return_status OUT NOCOPY VARCHAR2,
13639: x_msg_count OUT NOCOPY NUMBER,
13640: x_msg_data OUT NOCOPY VARCHAR2,
13641: p_cle_id IN NUMBER,
13802: p_api_version => p_api_version,
13803: p_api_type => '_PVT',
13804: x_return_status => x_return_status);
13805: -- Check if activity started successfully
13806: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
13807: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
13808: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
13809: RAISE Okc_Api.G_EXCEPTION_ERROR;
13810: END IF;
13803: p_api_type => '_PVT',
13804: x_return_status => x_return_status);
13805: -- Check if activity started successfully
13806: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
13807: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
13808: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
13809: RAISE Okc_Api.G_EXCEPTION_ERROR;
13810: END IF;
13811:
13805: -- Check if activity started successfully
13806: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
13807: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
13808: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
13809: RAISE Okc_Api.G_EXCEPTION_ERROR;
13810: END IF;
13811:
13812: --1. Copy rules from old line to new line
13813: open l_rgp_csr(p_orig_cle_id => p_orig_cle_id,
13824: p_rgp_id => l_rgp_id,
13825: p_cle_id => p_cle_id,
13826: p_to_template_yn => 'N',
13827: x_rgp_id => lx_rgp_id);
13828: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
13829: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
13830: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
13831: RAISE Okc_Api.G_EXCEPTION_ERROR;
13832: END IF;
13825: p_cle_id => p_cle_id,
13826: p_to_template_yn => 'N',
13827: x_rgp_id => lx_rgp_id);
13828: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
13829: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
13830: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
13831: RAISE Okc_Api.G_EXCEPTION_ERROR;
13832: END IF;
13833: End Loop;
13827: x_rgp_id => lx_rgp_id);
13828: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
13829: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
13830: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
13831: RAISE Okc_Api.G_EXCEPTION_ERROR;
13832: END IF;
13833: End Loop;
13834: close l_rgp_csr;
13835:
13848: p_cpl_id => l_cpl_rec.id,
13849: p_cle_id => p_cle_id,
13850: p_rle_code => l_cpl_rec.rle_code,
13851: x_cpl_id => lx_cpl_id);
13852: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
13853: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
13854: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
13855: RAISE Okc_Api.G_EXCEPTION_ERROR;
13856: END IF;
13849: p_cle_id => p_cle_id,
13850: p_rle_code => l_cpl_rec.rle_code,
13851: x_cpl_id => lx_cpl_id);
13852: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
13853: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
13854: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
13855: RAISE Okc_Api.G_EXCEPTION_ERROR;
13856: END IF;
13857: End Loop;
13851: x_cpl_id => lx_cpl_id);
13852: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
13853: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
13854: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
13855: RAISE Okc_Api.G_EXCEPTION_ERROR;
13856: END IF;
13857: End Loop;
13858: close l_cpl_csr;
13859:
13872: x_msg_count => x_msg_count,
13873: x_msg_data => x_msg_data,
13874: p_cimv_rec => l_cimv_rec,
13875: x_cimv_rec => lx_cimv_rec);
13876: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
13877: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
13878: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
13879: RAISE Okc_Api.G_EXCEPTION_ERROR;
13880: END IF;
13873: x_msg_data => x_msg_data,
13874: p_cimv_rec => l_cimv_rec,
13875: x_cimv_rec => lx_cimv_rec);
13876: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
13877: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
13878: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
13879: RAISE Okc_Api.G_EXCEPTION_ERROR;
13880: END IF;
13881: End Loop;
13875: x_cimv_rec => lx_cimv_rec);
13876: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
13877: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
13878: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
13879: RAISE Okc_Api.G_EXCEPTION_ERROR;
13880: END IF;
13881: End Loop;
13882: Close l_lnk_ast_csr;
13883:
13898: x_msg_count => x_msg_count,
13899: x_msg_data => x_msg_data,
13900: p_rulv_rec => l_rulv_rec,
13901: x_rulv_rec => lx_rulv_rec);
13902: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
13903: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
13904: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
13905: RAISE Okc_Api.G_EXCEPTION_ERROR;
13906: END IF;
13899: x_msg_data => x_msg_data,
13900: p_rulv_rec => l_rulv_rec,
13901: x_rulv_rec => lx_rulv_rec);
13902: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
13903: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
13904: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
13905: RAISE Okc_Api.G_EXCEPTION_ERROR;
13906: END IF;
13907: End Loop;
13901: x_rulv_rec => lx_rulv_rec);
13902: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
13903: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
13904: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
13905: RAISE Okc_Api.G_EXCEPTION_ERROR;
13906: END IF;
13907: End Loop;
13908: Close l_slh_csr;
13909:
13930: x_msg_count => x_msg_count,
13931: x_msg_data => x_msg_data,
13932: p_asb_rec => l_asb_rec,
13933: x_asb_rec => lx_asb_rec);
13934: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
13935: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
13936: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
13937: RAISE Okc_Api.G_EXCEPTION_ERROR;
13938: END IF;
13931: x_msg_data => x_msg_data,
13932: p_asb_rec => l_asb_rec,
13933: x_asb_rec => lx_asb_rec);
13934: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
13935: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
13936: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
13937: RAISE Okc_Api.G_EXCEPTION_ERROR;
13938: END IF;
13939:
13933: x_asb_rec => lx_asb_rec);
13934: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
13935: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
13936: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
13937: RAISE Okc_Api.G_EXCEPTION_ERROR;
13938: END IF;
13939:
13940: --update link to party payment details
13941: Open l_subrfnd_csr(p_cpl_id => l_subsidy_rec.cpl_id);
13952: x_msg_count => x_msg_count,
13953: x_msg_data => x_msg_data,
13954: p_srfvv_rec => l_srfvv_rec,
13955: x_srfvv_rec => lx_srfvv_rec);
13956: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
13957: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
13958: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
13959: RAISE Okc_Api.G_EXCEPTION_ERROR;
13960: END IF;
13953: x_msg_data => x_msg_data,
13954: p_srfvv_rec => l_srfvv_rec,
13955: x_srfvv_rec => lx_srfvv_rec);
13956: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
13957: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
13958: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
13959: RAISE Okc_Api.G_EXCEPTION_ERROR;
13960: END IF;
13961: End If;
13955: x_srfvv_rec => lx_srfvv_rec);
13956: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
13957: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
13958: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
13959: RAISE Okc_Api.G_EXCEPTION_ERROR;
13960: END IF;
13961: End If;
13962: Close l_subrfnd_csr;
13963: End Loop;
14000: -----------------------------------------------------
14001:
14002: PROCEDURE update_release_asset_line
14003: (p_api_version IN NUMBER,
14004: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
14005: x_return_status OUT NOCOPY VARCHAR2,
14006: x_msg_count OUT NOCOPY NUMBER,
14007: x_msg_data OUT NOCOPY VARCHAR2,
14008: p_asset_id IN VARCHAR2,
14080: p_api_version => p_api_version,
14081: p_api_type => '_PVT',
14082: x_return_status => x_return_status);
14083: -- Check if activity started successfully
14084: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
14085: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14086: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
14087: RAISE Okc_Api.G_EXCEPTION_ERROR;
14088: END IF;
14081: p_api_type => '_PVT',
14082: x_return_status => x_return_status);
14083: -- Check if activity started successfully
14084: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
14085: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14086: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
14087: RAISE Okc_Api.G_EXCEPTION_ERROR;
14088: END IF;
14089:
14083: -- Check if activity started successfully
14084: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
14085: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14086: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
14087: RAISE Okc_Api.G_EXCEPTION_ERROR;
14088: END IF;
14089:
14090: --------------------
14091: --Bug# 3783518
14106: --raise error : can not add new asset on a rebook
14107: OKL_API.set_message(
14108: p_app_name => G_APP_NAME,
14109: p_msg_name => 'OKL_REL_ASSET_RBK_NEW_AST_ADD');
14110: x_return_status := OKC_API.G_RET_STS_ERROR;
14111: RAISE OKL_API.G_EXCEPTION_ERROR;
14112: ElsIf l_rbk_ast_change_yn = 'N' then
14113: x_cle_id := p_clev_fin_id;
14114:
14127: If l_cim_fa_csr%NOTFOUND then
14128: --raise error : invalid line information
14129: OKL_API.set_message(p_app_name => G_APP_NAME,
14130: p_msg_name => 'OKL_LLA_LINE_RECORD');
14131: RAISE Okc_Api.G_EXCEPTION_ERROR;
14132: End If;
14133: close l_cim_fa_csr;
14134: If nvl(p_asset_id,OKL_API.G_MISS_CHAR) = nvl(l_asset_id,OKL_API.G_MISS_CHAR) then
14135: x_cle_id := p_clev_fin_id;
14233: --asset line
14234: --------------------------------------------------------
14235: PROCEDURE Resolve_Residual_Value(
14236: p_api_version IN NUMBER,
14237: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
14238: x_return_status OUT NOCOPY VARCHAR2,
14239: x_msg_count OUT NOCOPY NUMBER,
14240: x_msg_data OUT NOCOPY VARCHAR2,
14241: p_asset_number IN VARCHAR2,
14291: p_api_version => p_api_version,
14292: p_api_type => '_PVT',
14293: x_return_status => x_return_status);
14294: -- Check if activity started successfully
14295: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
14296: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14297: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
14298: RAISE Okc_Api.G_EXCEPTION_ERROR;
14299: END IF;
14292: p_api_type => '_PVT',
14293: x_return_status => x_return_status);
14294: -- Check if activity started successfully
14295: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
14296: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14297: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
14298: RAISE Okc_Api.G_EXCEPTION_ERROR;
14299: END IF;
14300:
14294: -- Check if activity started successfully
14295: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
14296: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14297: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
14298: RAISE Okc_Api.G_EXCEPTION_ERROR;
14299: END IF;
14300:
14301: --Bug# 4631549
14302: If nvl(p_call_mode,okl_api.g_miss_char) = 'RELEASE_CONTRACT' then
14311: If l_modelline_csr%NOTFOUND then
14312: --raise errorr: invliad line information
14313: OKL_API.set_message(p_app_name => G_APP_NAME,
14314: p_msg_name => 'OKL_LLA_LINE_RECORD');
14315: RAISE Okc_Api.G_EXCEPTION_ERROR;
14316: End If;
14317: Close l_modelline_csr;
14318:
14319: IF (p_klev_fin_rec.residual_percentage IS NOT NULL OR
14472: --provided for modifiable columns during Release
14473: ----------------------------------------------------
14474: PROCEDURE Modify_Release_Asset_Line(
14475: p_api_version IN NUMBER,
14476: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
14477: x_return_status OUT NOCOPY VARCHAR2,
14478: x_msg_count OUT NOCOPY NUMBER,
14479: x_msg_data OUT NOCOPY VARCHAR2,
14480: p_clev_fin_rec IN clev_rec_type,
14666: p_api_version => p_api_version,
14667: p_api_type => '_PVT',
14668: x_return_status => x_return_status);
14669: -- Check if activity started successfully
14670: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
14671: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14672: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
14673: RAISE Okc_Api.G_EXCEPTION_ERROR;
14674: END IF;
14667: p_api_type => '_PVT',
14668: x_return_status => x_return_status);
14669: -- Check if activity started successfully
14670: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
14671: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14672: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
14673: RAISE Okc_Api.G_EXCEPTION_ERROR;
14674: END IF;
14675: -- akrangan Bug# 5362977 start
14669: -- Check if activity started successfully
14670: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
14671: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14672: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
14673: RAISE Okc_Api.G_EXCEPTION_ERROR;
14674: END IF;
14675: -- akrangan Bug# 5362977 start
14676: l_rbk_khr := '?';
14677: OPEN l_chk_rbk_csr (p_chr_id => p_clev_fin_rec.dnz_chr_id);
14750: p_klev_tbl => l_klev_price_tbl,
14751: x_clev_tbl => lx_clev_price_tbl,
14752: x_klev_tbl => lx_klev_price_tbl);
14753:
14754: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
14755: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14756: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
14757: RAISE Okc_Api.G_EXCEPTION_ERROR;
14758: END IF;
14751: x_clev_tbl => lx_clev_price_tbl,
14752: x_klev_tbl => lx_klev_price_tbl);
14753:
14754: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
14755: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14756: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
14757: RAISE Okc_Api.G_EXCEPTION_ERROR;
14758: END IF;
14759:
14753:
14754: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
14755: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14756: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
14757: RAISE Okc_Api.G_EXCEPTION_ERROR;
14758: END IF;
14759:
14760: --Bug# 4631549
14761: If nvl(p_call_mode,okl_api.g_miss_char) = 'RELEASE_ASSET' then
14807: p_klev_rec => l_klev_fin_rec,
14808: x_clev_rec => l_rel_ast_clev_fin_rec,
14809: x_klev_rec => l_rel_ast_klev_fin_rec);
14810:
14811: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
14812: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14813: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
14814: RAISE Okc_Api.G_EXCEPTION_ERROR;
14815: END IF;
14808: x_clev_rec => l_rel_ast_clev_fin_rec,
14809: x_klev_rec => l_rel_ast_klev_fin_rec);
14810:
14811: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
14812: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14813: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
14814: RAISE Okc_Api.G_EXCEPTION_ERROR;
14815: END IF;
14816: --Bug#5601721 -- end
14810:
14811: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
14812: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14813: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
14814: RAISE Okc_Api.G_EXCEPTION_ERROR;
14815: END IF;
14816: --Bug#5601721 -- end
14817:
14818: --Bug# 4631549
14855: p_klev_rec => l_klev_fin_rec,
14856: x_clev_rec => l_rel_ast_clev_fin_rec,
14857: x_klev_rec => l_rel_ast_klev_fin_rec);
14858:
14859: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
14860: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14861: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
14862: RAISE Okc_Api.G_EXCEPTION_ERROR;
14863: END IF;
14856: x_clev_rec => l_rel_ast_clev_fin_rec,
14857: x_klev_rec => l_rel_ast_klev_fin_rec);
14858:
14859: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
14860: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14861: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
14862: RAISE Okc_Api.G_EXCEPTION_ERROR;
14863: END IF;
14864:
14858:
14859: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
14860: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14861: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
14862: RAISE Okc_Api.G_EXCEPTION_ERROR;
14863: END IF;
14864:
14865:
14866: -- akrangan Bug# 5362977 start
14880: p_klev_rec => l_klev_fa_rec,
14881: x_clev_rec => lx_clev_fa_rec,
14882: x_klev_rec => lx_klev_fa_rec);
14883:
14884: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
14885: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14886: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
14887: RAISE Okc_Api.G_EXCEPTION_ERROR;
14888: END IF;
14881: x_clev_rec => lx_clev_fa_rec,
14882: x_klev_rec => lx_klev_fa_rec);
14883:
14884: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
14885: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14886: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
14887: RAISE Okc_Api.G_EXCEPTION_ERROR;
14888: END IF;
14889:
14883:
14884: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
14885: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14886: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
14887: RAISE Okc_Api.G_EXCEPTION_ERROR;
14888: END IF;
14889:
14890: x_return_status := get_rec_cimv(p_clev_model_rec.id,
14891: p_clev_fin_rec.dnz_chr_id,
14914: x_msg_data => x_msg_data,
14915: p_cimv_rec => l_cimv_model_rec,
14916: x_cimv_rec => x_cimv_model_rec);
14917:
14918: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
14919: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14920: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
14921: RAISE Okc_Api.G_EXCEPTION_ERROR;
14922: END IF;
14915: p_cimv_rec => l_cimv_model_rec,
14916: x_cimv_rec => x_cimv_model_rec);
14917:
14918: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
14919: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14920: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
14921: RAISE Okc_Api.G_EXCEPTION_ERROR;
14922: END IF;
14923:
14917:
14918: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
14919: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14920: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
14921: RAISE Okc_Api.G_EXCEPTION_ERROR;
14922: END IF;
14923:
14924: END IF;
14925: --akrangan Bug# 5362977 end
14933: If l_fa_csr%NOTFOUND then
14934: --raise error:invalid line information
14935: OKL_API.set_message(p_app_name => G_APP_NAME,
14936: p_msg_name => 'OKL_LLA_LINE_RECORD');
14937: RAISE Okc_Api.G_EXCEPTION_ERROR;
14938: End If;
14939: close l_fa_csr;
14940:
14941: l_talv_fa_rec.id := l_fa_rec.id;
14961: x_msg_data => x_msg_data,
14962: p_talv_rec => l_talv_fa_rec,
14963: x_talv_rec => l_rel_ast_talv_rec);
14964:
14965: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
14966: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14967: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
14968: RAISE Okc_Api.G_EXCEPTION_ERROR;
14969: END IF;
14962: p_talv_rec => l_talv_fa_rec,
14963: x_talv_rec => l_rel_ast_talv_rec);
14964:
14965: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
14966: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14967: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
14968: RAISE Okc_Api.G_EXCEPTION_ERROR;
14969: END IF;
14970:
14964:
14965: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
14966: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14967: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
14968: RAISE Okc_Api.G_EXCEPTION_ERROR;
14969: END IF;
14970:
14971: --3. update modifiable parameters on IB transaction line
14972: i := 0;
15014: x_msg_data => x_msg_data,
15015: p_iipv_tbl => l_itiv_ib_tbl,
15016: x_iipv_tbl => l_rel_ast_itiv_ib_tbl);
15017:
15018: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
15019: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
15020: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
15021: RAISE Okc_Api.G_EXCEPTION_ERROR;
15022: END IF;
15015: p_iipv_tbl => l_itiv_ib_tbl,
15016: x_iipv_tbl => l_rel_ast_itiv_ib_tbl);
15017:
15018: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
15019: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
15020: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
15021: RAISE Okc_Api.G_EXCEPTION_ERROR;
15022: END IF;
15023: End If;
15017:
15018: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
15019: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
15020: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
15021: RAISE Okc_Api.G_EXCEPTION_ERROR;
15022: END IF;
15023: End If;
15024:
15025: --------------------------------------------------
15038: p_call_mode => p_call_mode,
15039: x_clev_fin_rec => x_clev_fin_rec,
15040: x_klev_fin_rec => x_klev_fin_rec);
15041:
15042: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
15043: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
15044: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
15045: RAISE Okc_Api.G_EXCEPTION_ERROR;
15046: END IF;
15039: x_clev_fin_rec => x_clev_fin_rec,
15040: x_klev_fin_rec => x_klev_fin_rec);
15041:
15042: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
15043: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
15044: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
15045: RAISE Okc_Api.G_EXCEPTION_ERROR;
15046: END IF;
15047:
15041:
15042: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
15043: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
15044: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
15045: RAISE Okc_Api.G_EXCEPTION_ERROR;
15046: END IF;
15047:
15048: -------------------------------------------
15049: --Get all the lines
15059: OKL_API.set_message(p_app_name => G_APP_NAME,
15060: p_msg_name => G_FETCHING_INFO,
15061: p_token1 => G_REC_NAME_TOKEN,
15062: p_token1_value => 'OKC_K_LINES_V Record');
15063: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
15064: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15065: OKL_API.set_message(p_app_name => G_APP_NAME,
15066: p_msg_name => G_FETCHING_INFO,
15067: p_token1 => G_REC_NAME_TOKEN,
15065: OKL_API.set_message(p_app_name => G_APP_NAME,
15066: p_msg_name => G_FETCHING_INFO,
15067: p_token1 => G_REC_NAME_TOKEN,
15068: p_token1_value => 'OKC_K_LINES_V Record');
15069: RAISE Okc_Api.G_EXCEPTION_ERROR;
15070: END IF;
15071: x_return_status := get_rec_klev(l_lines_rec.id,
15072: lx_klev_rec);
15073: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15074: OKL_API.set_message(p_app_name => G_APP_NAME,
15075: p_msg_name => G_FETCHING_INFO,
15076: p_token1 => G_REC_NAME_TOKEN,
15077: p_token1_value => 'OKL_K_LINES_V Record');
15078: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
15079: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15080: OKL_API.set_message(p_app_name => G_APP_NAME,
15081: p_msg_name => G_FETCHING_INFO,
15082: p_token1 => G_REC_NAME_TOKEN,
15080: OKL_API.set_message(p_app_name => G_APP_NAME,
15081: p_msg_name => G_FETCHING_INFO,
15082: p_token1 => G_REC_NAME_TOKEN,
15083: p_token1_value => 'OKL_K_LINES_V Record');
15084: RAISE Okc_Api.G_EXCEPTION_ERROR;
15085: END IF;
15086:
15087: Open l_lty_csr(p_lse_id => l_lines_rec.lse_id);
15088: Fetch l_lty_csr into l_lty_code;
15137: --------------------- Main Process for All Lines Line Creation---------------------------------
15138: -----------------------------------------------------------------------------------------------
15139: PROCEDURE Create_all_line(
15140: p_api_version IN NUMBER,
15141: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
15142: x_return_status OUT NOCOPY VARCHAR2,
15143: x_msg_count OUT NOCOPY NUMBER,
15144: x_msg_data OUT NOCOPY VARCHAR2,
15145: P_new_yn IN OKL_TXL_ASSETS_V.USED_ASSET_YN%TYPE,
16248: --------------------- Main Process for All Lines Line Updating---------------------------------
16249: -----------------------------------------------------------------------------------------------
16250: PROCEDURE Update_all_line(
16251: p_api_version IN NUMBER,
16252: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
16253: x_return_status OUT NOCOPY VARCHAR2,
16254: x_msg_count OUT NOCOPY NUMBER,
16255: x_msg_data OUT NOCOPY VARCHAR2,
16256: P_new_yn IN OKL_TXL_ASSETS_V.USED_ASSET_YN%TYPE,
18016: ----------------- Main Process for Creation of instance and Install base line ------------------------
18017: -------------------------------------------------------------------------------------------------------
18018: PROCEDURE create_ints_ib_line(
18019: p_api_version IN NUMBER,
18020: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
18021: x_return_status OUT NOCOPY VARCHAR2,
18022: x_msg_count OUT NOCOPY NUMBER,
18023: x_msg_data OUT NOCOPY VARCHAR2,
18024: P_new_yn IN OKL_TXL_ASSETS_V.USED_ASSET_YN%TYPE,
19075: ----------------- Main Process for Updating of instance and Install base line ------------------------
19076: -------------------------------------------------------------------------------------------------------
19077: PROCEDURE update_ints_ib_line(
19078: p_api_version IN NUMBER,
19079: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
19080: x_return_status OUT NOCOPY VARCHAR2,
19081: x_msg_count OUT NOCOPY NUMBER,
19082: x_msg_data OUT NOCOPY VARCHAR2,
19083: P_new_yn IN OKL_TXL_ASSETS_V.USED_ASSET_YN%TYPE,
20013: ----------------- Main Process for Deletion of instance and Install base line ------------------------
20014: -------------------------------------------------------------------------------------------------------
20015: PROCEDURE delete_ints_ib_line(
20016: p_api_version IN NUMBER,
20017: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
20018: x_return_status OUT NOCOPY VARCHAR2,
20019: x_msg_count OUT NOCOPY NUMBER,
20020: x_msg_data OUT NOCOPY VARCHAR2,
20021: P_new_yn IN OKL_TXL_ASSETS_V.USED_ASSET_YN%TYPE,