[Home] [Help]
1617: -- line amount check 1: Can not be negative
1618: CURSOR c_amount_check1 (p_contract_id NUMBER)
1619: IS
1620: select 1
1621: from OKL_K_LINES kln,
1622: OKC_K_LINES_B cln
1623: where kln.id = cln.id
1624: and cln.dnz_chr_id = p_contract_id
1625: and kln.amount < 0
1628: -- line amount check 2: Can not be Zero
1629: CURSOR c_amount_check2 (p_contract_id NUMBER)
1630: IS
1631: select 1
1632: from OKL_K_LINES kln,
1633: OKC_K_LINES_B cln
1634: where kln.id = cln.id
1635: and cln.dnz_chr_id = p_contract_id
1636: and kln.amount = 0
1639: -- New limit exsiting check
1640: CURSOR c_not_exists (p_contract_id NUMBER)
1641: IS
1642: select 'X'
1643: from OKL_K_LINES kln,
1644: OKC_K_LINES_B cln
1645: where kln.id = cln.id
1646: and cln.dnz_chr_id = p_contract_id
1647: and kln.CREDIT_NATURE = 'NEW'
1650: -- New limit duplication check
1651: CURSOR c_dup (p_contract_id NUMBER)
1652: IS
1653: select cln.dnz_chr_id
1654: from OKL_K_LINES kln,
1655: OKC_K_LINES_B cln
1656: where kln.id = cln.id
1657: and cln.dnz_chr_id = p_contract_id
1658: and kln.CREDIT_NATURE = 'NEW'
1864:
1865: CURSOR c (p_contract_id NUMBER)
1866: IS
1867: select 'X'
1868: from OKL_K_LINES_FULL_V a
1869: where a.dnz_chr_id = p_contract_id
1870: and a.CREDIT_NATURE = 'NEW'
1871: ;
1872:
2460: IS
2461: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2462: l_dummy VARCHAR2(1) := OKL_API.G_TRUE;
2463: l_currency_code okc_k_headers_b.currency_code%TYPE;
2464: l_amount OKL_K_LINES_FULL_V.AMOUNT%type;
2465:
2466: cursor c_old_curr
2467: is
2468: select khr.currency_code
2472:
2473: CURSOR c_limit_amt
2474: IS
2475: select nvl(sum(nvl(a.amount,0)),0)
2476: from OKL_K_LINES_FULL_V a
2477: where a.dnz_chr_id = p_chrv_rec.id
2478: ;
2479:
2480: BEGIN
4274: -------------------------------------------
4275: x_clev_rec.start_date := NULLIF(p_clmv_rec.start_date, OKC_API.G_MISS_DATE);
4276: x_clev_rec.item_description := NULLIF(p_clmv_rec.item_description, OKC_API.G_MISS_CHAR);
4277: -------------------------------------------
4278: -- assign okl_k_lines
4279: -------------------------------------------
4280: x_klev_rec.credit_nature := NULLIF(p_clmv_rec.credit_nature, OKC_API.G_MISS_CHAR);
4281: x_klev_rec.amount := NULLIF(p_clmv_rec.amount, OKC_API.G_MISS_NUM);
4282:
4581: SELECT ITEM_DESCRIPTION,
4582: START_DATE
4583: FROM OKC_K_LINES_V
4584: WHERE ID = p_clev_rec.ID;
4585: -- cursor to fetch the okl_k_lines fields which are updatable by user
4586: CURSOR c_klev_csr IS
4587: SELECT AMOUNT,
4588: CREDIT_NATURE
4589: FROM OKL_K_LINES_V
4585: -- cursor to fetch the okl_k_lines fields which are updatable by user
4586: CURSOR c_klev_csr IS
4587: SELECT AMOUNT,
4588: CREDIT_NATURE
4589: FROM OKL_K_LINES_V
4590: WHERE ID = p_clev_rec.ID;
4591:
4592: l_return_val BOOLEAN;
4593:
4602: (is_updated(l_clev_csr_rec.START_DATE, p_clev_rec.START_DATE))) THEN
4603: l_return_val := TRUE;
4604: END IF;
4605: END LOOP;
4606: -- fetch the okl_k_lines fields for the credit limit record
4607: FOR l_klev_csr_rec IN c_klev_csr
4608: LOOP
4609: -- if amount or credit nature is updated then return true
4610: IF((is_updated(l_klev_csr_rec.AMOUNT, p_klev_rec.AMOUNT)) OR
5025: okc.start_date,
5026: okl.credit_nature,
5027: okl.amount
5028: from OKC_K_LINES_V okc,
5029: OKL_K_LINES okl
5030: where okc.id = okl.id
5031: and okc.dnz_chr_id = p_chr_id;
5032:
5033: r_crd c_crd%ROWTYPE;
5697:
5698: CURSOR c (p_contract_id NUMBER)
5699: IS
5700: select nvl(sum(a.amount),0)
5701: from OKL_K_LINES_FULL_V a
5702: where a.dnz_chr_id = p_contract_id
5703: and a.CREDIT_NATURE = 'NEW'
5704: and nvl(a.start_date,sysdate) <= sysdate
5705: ;
5742:
5743: CURSOR c (p_contract_id NUMBER)
5744: IS
5745: select nvl(sum(a.amount),0)
5746: from OKL_K_LINES_FULL_V a
5747: where a.dnz_chr_id = p_contract_id
5748: and a.CREDIT_NATURE = 'ADD'
5749: and nvl(a.start_date,sysdate) <= sysdate
5750: ;
5788:
5789: CURSOR c (p_contract_id NUMBER)
5790: IS
5791: select nvl(sum(a.amount),0)
5792: from OKL_K_LINES_FULL_V a
5793: where a.dnz_chr_id = p_contract_id
5794: and a.CREDIT_NATURE = 'REDUCE'
5795: and nvl(a.start_date,sysdate) <= sysdate
5796: ;