DBA Data[Home] [Help]

APPS.OKL_RELEASE_PVT dependencies on DUAL

Line 90: FROM dual

86:
87: --cursor to check if usage line exists on the contract
88: CURSOR l_chk_usage_csr (p_chr_id IN Number) IS
89: SELECT '!'
90: FROM dual
91: where exists (SELECT 1
92: FROM OKC_LINE_STYLES_B lse,
93: OKC_K_LINES_B cle,
94: okc_statuses_b sts

Line 1436: FROM DUAL

1432: ln_asset_present NUMBER := 0;
1433: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1434: CURSOR c_validate_top_line(p_cle_id OKC_K_LINES_V.ID%TYPE) IS
1435: SELECT 1
1436: FROM DUAL
1437: WHERE EXISTS (SELECT '1'
1438: FROM OKL_ASSET_RETURNS_B
1439: WHERE kle_id = p_cle_id
1440: AND ars_code = 'RE_LEASE');

Line 1445: FROM dual

1441:
1442: CURSOR c_validate_asset_number(p_asset_number OKL_TXL_ASSETS_B.ASSET_NUMBER%TYPE)
1443: IS
1444: SELECT 1
1445: FROM dual
1446: WHERE EXISTS (SELECT '1'
1447: FROM okx_asset_lines_v
1448: WHERE asset_number = p_asset_number
1449: AND line_status not in ('EXPIRED','TERMINATED','ABANDONED'));

Line 2523: select '!' from dual

2519: --rajnisku: Bug 6657564
2520: --cursor to check whether the TNA request contains asset
2521: --associated to a Usage line
2522: cursor l_chk_link_usage_csr (p_source_trx_id NUMBER) IS
2523: select '!' from dual
2524: where exists (
2525: select 1
2526: from okc_k_items UITEM ,
2527: OKC_K_LINES_B USAGE,

Line 6938: --Update Financial asset line for OEC and Residual value

6934:
6935: -- Financial Asset line
6936: elsif lse_rec.lty_code = 'FREE_FORM1' then
6937:
6938: --Update Financial asset line for OEC and Residual value
6939: lp_clev_rec.id := cle_rec.id;
6940:
6941: if cle_rec.start_date < p_release_date then
6942: lp_clev_rec.start_date := p_release_date;

Line 6947: --Bug# 4631549: Take residual percent and residual value from the previous contract

6943: end if;
6944:
6945: lp_klev_rec.id := cle_rec.id;
6946: -- l_clev_rec.price_unit := OKL_API.G_MISS_NUM;
6947: --Bug# 4631549: Take residual percent and residual value from the previous contract
6948: --lp_klev_rec.residual_percentage := txl_asset_rec.percent_salvage_value;
6949: --lp_klev_rec.residual_value := txl_asset_rec.salvage_value;
6950: lp_klev_rec.oec := NVL(l_corp_net_book_value,0);
6951:

Line 6948: --lp_klev_rec.residual_percentage := txl_asset_rec.percent_salvage_value;

6944:
6945: lp_klev_rec.id := cle_rec.id;
6946: -- l_clev_rec.price_unit := OKL_API.G_MISS_NUM;
6947: --Bug# 4631549: Take residual percent and residual value from the previous contract
6948: --lp_klev_rec.residual_percentage := txl_asset_rec.percent_salvage_value;
6949: --lp_klev_rec.residual_value := txl_asset_rec.salvage_value;
6950: lp_klev_rec.oec := NVL(l_corp_net_book_value,0);
6951:
6952: --Bug# 4631549: Not required to sync residual value and percent as they

Line 6949: --lp_klev_rec.residual_value := txl_asset_rec.salvage_value;

6945: lp_klev_rec.id := cle_rec.id;
6946: -- l_clev_rec.price_unit := OKL_API.G_MISS_NUM;
6947: --Bug# 4631549: Take residual percent and residual value from the previous contract
6948: --lp_klev_rec.residual_percentage := txl_asset_rec.percent_salvage_value;
6949: --lp_klev_rec.residual_value := txl_asset_rec.salvage_value;
6950: lp_klev_rec.oec := NVL(l_corp_net_book_value,0);
6951:
6952: --Bug# 4631549: Not required to sync residual value and percent as they
6953: -- are now getting copied from previous contract

Line 6952: --Bug# 4631549: Not required to sync residual value and percent as they

6948: --lp_klev_rec.residual_percentage := txl_asset_rec.percent_salvage_value;
6949: --lp_klev_rec.residual_value := txl_asset_rec.salvage_value;
6950: lp_klev_rec.oec := NVL(l_corp_net_book_value,0);
6951:
6952: --Bug# 4631549: Not required to sync residual value and percent as they
6953: -- are now getting copied from previous contract
6954: /*
6955: --Bug# 3950089: Sync Residual value and percent
6956: if (lp_klev_rec.residual_value IS NOT NULL) then

Line 6955: --Bug# 3950089: Sync Residual value and percent

6951:
6952: --Bug# 4631549: Not required to sync residual value and percent as they
6953: -- are now getting copied from previous contract
6954: /*
6955: --Bug# 3950089: Sync Residual value and percent
6956: if (lp_klev_rec.residual_value IS NOT NULL) then
6957:
6958: if (lp_klev_rec.residual_value = 0 or lp_klev_rec.oec = 0) then
6959: lp_klev_rec.residual_percentage := 0;

Line 6956: if (lp_klev_rec.residual_value IS NOT NULL) then

6952: --Bug# 4631549: Not required to sync residual value and percent as they
6953: -- are now getting copied from previous contract
6954: /*
6955: --Bug# 3950089: Sync Residual value and percent
6956: if (lp_klev_rec.residual_value IS NOT NULL) then
6957:
6958: if (lp_klev_rec.residual_value = 0 or lp_klev_rec.oec = 0) then
6959: lp_klev_rec.residual_percentage := 0;
6960: else

Line 6958: if (lp_klev_rec.residual_value = 0 or lp_klev_rec.oec = 0) then

6954: /*
6955: --Bug# 3950089: Sync Residual value and percent
6956: if (lp_klev_rec.residual_value IS NOT NULL) then
6957:
6958: if (lp_klev_rec.residual_value = 0 or lp_klev_rec.oec = 0) then
6959: lp_klev_rec.residual_percentage := 0;
6960: else
6961: lp_klev_rec.residual_percentage := ROUND(lp_klev_rec.residual_value * 100/lp_klev_rec.oec,2);
6962: end if;

Line 6959: lp_klev_rec.residual_percentage := 0;

6955: --Bug# 3950089: Sync Residual value and percent
6956: if (lp_klev_rec.residual_value IS NOT NULL) then
6957:
6958: if (lp_klev_rec.residual_value = 0 or lp_klev_rec.oec = 0) then
6959: lp_klev_rec.residual_percentage := 0;
6960: else
6961: lp_klev_rec.residual_percentage := ROUND(lp_klev_rec.residual_value * 100/lp_klev_rec.oec,2);
6962: end if;
6963:

Line 6961: lp_klev_rec.residual_percentage := ROUND(lp_klev_rec.residual_value * 100/lp_klev_rec.oec,2);

6957:
6958: if (lp_klev_rec.residual_value = 0 or lp_klev_rec.oec = 0) then
6959: lp_klev_rec.residual_percentage := 0;
6960: else
6961: lp_klev_rec.residual_percentage := ROUND(lp_klev_rec.residual_value * 100/lp_klev_rec.oec,2);
6962: end if;
6963:
6964: elsif (lp_klev_rec.residual_percentage IS NOT NULL) then
6965: lp_klev_rec.residual_value := (lp_klev_rec.residual_percentage/100 * lp_klev_rec.oec);

Line 6964: elsif (lp_klev_rec.residual_percentage IS NOT NULL) then

6960: else
6961: lp_klev_rec.residual_percentage := ROUND(lp_klev_rec.residual_value * 100/lp_klev_rec.oec,2);
6962: end if;
6963:
6964: elsif (lp_klev_rec.residual_percentage IS NOT NULL) then
6965: lp_klev_rec.residual_value := (lp_klev_rec.residual_percentage/100 * lp_klev_rec.oec);
6966:
6967: lp_klev_rec.residual_value :=
6968: OKL_ACCOUNTING_UTIL.cross_currency_round_amount

Line 6965: lp_klev_rec.residual_value := (lp_klev_rec.residual_percentage/100 * lp_klev_rec.oec);

6961: lp_klev_rec.residual_percentage := ROUND(lp_klev_rec.residual_value * 100/lp_klev_rec.oec,2);
6962: end if;
6963:
6964: elsif (lp_klev_rec.residual_percentage IS NOT NULL) then
6965: lp_klev_rec.residual_value := (lp_klev_rec.residual_percentage/100 * lp_klev_rec.oec);
6966:
6967: lp_klev_rec.residual_value :=
6968: OKL_ACCOUNTING_UTIL.cross_currency_round_amount
6969: (p_amount => lp_klev_rec.residual_value,

Line 6967: lp_klev_rec.residual_value :=

6963:
6964: elsif (lp_klev_rec.residual_percentage IS NOT NULL) then
6965: lp_klev_rec.residual_value := (lp_klev_rec.residual_percentage/100 * lp_klev_rec.oec);
6966:
6967: lp_klev_rec.residual_value :=
6968: OKL_ACCOUNTING_UTIL.cross_currency_round_amount
6969: (p_amount => lp_klev_rec.residual_value,
6970: p_currency_code => l_currency_code);
6971: end if;

Line 6969: (p_amount => lp_klev_rec.residual_value,

6965: lp_klev_rec.residual_value := (lp_klev_rec.residual_percentage/100 * lp_klev_rec.oec);
6966:
6967: lp_klev_rec.residual_value :=
6968: OKL_ACCOUNTING_UTIL.cross_currency_round_amount
6969: (p_amount => lp_klev_rec.residual_value,
6970: p_currency_code => l_currency_code);
6971: end if;
6972: */
6973:

Line 8039: FROM DUAL;

8035:
8036: -- Get Sequence Number to generate Contract Number
8037: SELECT okl_rbk_seq.NEXTVAL
8038: INTO l_seq_no
8039: FROM DUAL;
8040:
8041: l_new_contract_number := lv_old_contract_number||'-REL'||l_seq_no;
8042: END IF;
8043: