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 1457: FROM DUAL

1453: ln_asset_present NUMBER := 0;
1454: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1455: CURSOR c_validate_top_line(p_cle_id OKC_K_LINES_V.ID%TYPE) IS
1456: SELECT 1
1457: FROM DUAL
1458: WHERE EXISTS (SELECT '1'
1459: FROM OKL_ASSET_RETURNS_B
1460: WHERE kle_id = p_cle_id
1461: AND ars_code = 'RE_LEASE');

Line 1466: FROM dual

1462:
1463: CURSOR c_validate_asset_number(p_asset_number OKL_TXL_ASSETS_B.ASSET_NUMBER%TYPE)
1464: IS
1465: SELECT 1
1466: FROM dual
1467: WHERE EXISTS (SELECT '1'
1468: FROM okx_asset_lines_v
1469: WHERE asset_number = p_asset_number
1470: AND line_status not in ('EXPIRED','TERMINATED','ABANDONED'));

Line 2547: select '!' from dual

2543: --rajnisku: Bug 6657564
2544: --cursor to check whether the TNA request contains asset
2545: --associated to a Usage line
2546: cursor l_chk_link_usage_csr (p_source_trx_id NUMBER) IS
2547: select '!' from dual
2548: where exists (
2549: select 1
2550: from okc_k_items UITEM ,
2551: OKC_K_LINES_B USAGE,

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

7243:
7244: -- Financial Asset line
7245: elsif lse_rec.lty_code = 'FREE_FORM1' then
7246:
7247: --Update Financial asset line for OEC and Residual value
7248: lp_clev_rec.id := cle_rec.id;
7249:
7250: if cle_rec.start_date < p_release_date then
7251: lp_clev_rec.start_date := p_release_date;

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

7252: end if;
7253:
7254: lp_klev_rec.id := cle_rec.id;
7255: -- l_clev_rec.price_unit := OKL_API.G_MISS_NUM;
7256: --Bug# 4631549: Take residual percent and residual value from the previous contract
7257: --lp_klev_rec.residual_percentage := txl_asset_rec.percent_salvage_value;
7258: --lp_klev_rec.residual_value := txl_asset_rec.salvage_value;
7259: lp_klev_rec.oec := NVL(l_corp_net_book_value,0);
7260:

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

7253:
7254: lp_klev_rec.id := cle_rec.id;
7255: -- l_clev_rec.price_unit := OKL_API.G_MISS_NUM;
7256: --Bug# 4631549: Take residual percent and residual value from the previous contract
7257: --lp_klev_rec.residual_percentage := txl_asset_rec.percent_salvage_value;
7258: --lp_klev_rec.residual_value := txl_asset_rec.salvage_value;
7259: lp_klev_rec.oec := NVL(l_corp_net_book_value,0);
7260:
7261: --Bug# 4631549: Not required to sync residual value and percent as they

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

7254: lp_klev_rec.id := cle_rec.id;
7255: -- l_clev_rec.price_unit := OKL_API.G_MISS_NUM;
7256: --Bug# 4631549: Take residual percent and residual value from the previous contract
7257: --lp_klev_rec.residual_percentage := txl_asset_rec.percent_salvage_value;
7258: --lp_klev_rec.residual_value := txl_asset_rec.salvage_value;
7259: lp_klev_rec.oec := NVL(l_corp_net_book_value,0);
7260:
7261: --Bug# 4631549: Not required to sync residual value and percent as they
7262: -- are now getting copied from previous contract

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

7257: --lp_klev_rec.residual_percentage := txl_asset_rec.percent_salvage_value;
7258: --lp_klev_rec.residual_value := txl_asset_rec.salvage_value;
7259: lp_klev_rec.oec := NVL(l_corp_net_book_value,0);
7260:
7261: --Bug# 4631549: Not required to sync residual value and percent as they
7262: -- are now getting copied from previous contract
7263: /*
7264: --Bug# 3950089: Sync Residual value and percent
7265: if (lp_klev_rec.residual_value IS NOT NULL) then

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

7260:
7261: --Bug# 4631549: Not required to sync residual value and percent as they
7262: -- are now getting copied from previous contract
7263: /*
7264: --Bug# 3950089: Sync Residual value and percent
7265: if (lp_klev_rec.residual_value IS NOT NULL) then
7266:
7267: if (lp_klev_rec.residual_value = 0 or lp_klev_rec.oec = 0) then
7268: lp_klev_rec.residual_percentage := 0;

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

7261: --Bug# 4631549: Not required to sync residual value and percent as they
7262: -- are now getting copied from previous contract
7263: /*
7264: --Bug# 3950089: Sync Residual value and percent
7265: if (lp_klev_rec.residual_value IS NOT NULL) then
7266:
7267: if (lp_klev_rec.residual_value = 0 or lp_klev_rec.oec = 0) then
7268: lp_klev_rec.residual_percentage := 0;
7269: else

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

7263: /*
7264: --Bug# 3950089: Sync Residual value and percent
7265: if (lp_klev_rec.residual_value IS NOT NULL) then
7266:
7267: if (lp_klev_rec.residual_value = 0 or lp_klev_rec.oec = 0) then
7268: lp_klev_rec.residual_percentage := 0;
7269: else
7270: lp_klev_rec.residual_percentage := ROUND(lp_klev_rec.residual_value * 100/lp_klev_rec.oec,2);
7271: end if;

Line 7268: lp_klev_rec.residual_percentage := 0;

7264: --Bug# 3950089: Sync Residual value and percent
7265: if (lp_klev_rec.residual_value IS NOT NULL) then
7266:
7267: if (lp_klev_rec.residual_value = 0 or lp_klev_rec.oec = 0) then
7268: lp_klev_rec.residual_percentage := 0;
7269: else
7270: lp_klev_rec.residual_percentage := ROUND(lp_klev_rec.residual_value * 100/lp_klev_rec.oec,2);
7271: end if;
7272:

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

7266:
7267: if (lp_klev_rec.residual_value = 0 or lp_klev_rec.oec = 0) then
7268: lp_klev_rec.residual_percentage := 0;
7269: else
7270: lp_klev_rec.residual_percentage := ROUND(lp_klev_rec.residual_value * 100/lp_klev_rec.oec,2);
7271: end if;
7272:
7273: elsif (lp_klev_rec.residual_percentage IS NOT NULL) then
7274: lp_klev_rec.residual_value := (lp_klev_rec.residual_percentage/100 * lp_klev_rec.oec);

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

7269: else
7270: lp_klev_rec.residual_percentage := ROUND(lp_klev_rec.residual_value * 100/lp_klev_rec.oec,2);
7271: end if;
7272:
7273: elsif (lp_klev_rec.residual_percentage IS NOT NULL) then
7274: lp_klev_rec.residual_value := (lp_klev_rec.residual_percentage/100 * lp_klev_rec.oec);
7275:
7276: lp_klev_rec.residual_value :=
7277: OKL_ACCOUNTING_UTIL.cross_currency_round_amount

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

7270: lp_klev_rec.residual_percentage := ROUND(lp_klev_rec.residual_value * 100/lp_klev_rec.oec,2);
7271: end if;
7272:
7273: elsif (lp_klev_rec.residual_percentage IS NOT NULL) then
7274: lp_klev_rec.residual_value := (lp_klev_rec.residual_percentage/100 * lp_klev_rec.oec);
7275:
7276: lp_klev_rec.residual_value :=
7277: OKL_ACCOUNTING_UTIL.cross_currency_round_amount
7278: (p_amount => lp_klev_rec.residual_value,

Line 7276: lp_klev_rec.residual_value :=

7272:
7273: elsif (lp_klev_rec.residual_percentage IS NOT NULL) then
7274: lp_klev_rec.residual_value := (lp_klev_rec.residual_percentage/100 * lp_klev_rec.oec);
7275:
7276: lp_klev_rec.residual_value :=
7277: OKL_ACCOUNTING_UTIL.cross_currency_round_amount
7278: (p_amount => lp_klev_rec.residual_value,
7279: p_currency_code => l_currency_code);
7280: end if;

Line 7278: (p_amount => lp_klev_rec.residual_value,

7274: lp_klev_rec.residual_value := (lp_klev_rec.residual_percentage/100 * lp_klev_rec.oec);
7275:
7276: lp_klev_rec.residual_value :=
7277: OKL_ACCOUNTING_UTIL.cross_currency_round_amount
7278: (p_amount => lp_klev_rec.residual_value,
7279: p_currency_code => l_currency_code);
7280: end if;
7281: */
7282:

Line 8363: FROM DUAL;

8359:
8360: -- Get Sequence Number to generate Contract Number
8361: SELECT okl_rbk_seq.NEXTVAL
8362: INTO l_seq_no
8363: FROM DUAL;
8364:
8365: l_new_contract_number := lv_old_contract_number||'-REL'||l_seq_no;
8366: END IF;
8367: