12: lv_target_pricing_type VARCHAR2(15);
13: BEGIN
14: select pricing_method
15: into lv_source_pricing_type
16: from okl_lease_quotes_b
17: where id = p_source_quote_id;
18:
19: select pricing_method
20: into lv_target_pricing_type
17: where id = p_source_quote_id;
18:
19: select pricing_method
20: into lv_target_pricing_type
21: from okl_lease_quotes_b
22: where id = p_target_quote_id;
23:
24: IF (lv_source_pricing_type = lv_target_pricing_type) THEN
25: RETURN 'Y';
52: l_expense_level_tbl := p_expense_level_tbl;
53:
54: SELECT expected_start_date
55: INTO l_k_effective_from
56: FROM okl_lease_quotes_b
57: WHERE id = l_fee_rec.parent_object_id;
58:
59: --bug 4737394 start
60: IF l_fee_rec.fee_type = 'INCOME' THEN
173: SELECT expected_start_date,
174: ADD_MONTHS(expected_start_date, term)-1
175: INTO l_quote_start_date,
176: l_quote_end_date
177: FROM okl_lease_quotes_b
178: WHERE id = p_fee_rec.parent_object_id;
179:
180: IF p_fee_rec.fee_type IN ('EXPENSE', 'MISCELLANEOUS') THEN
181:
574: l_compare_amt NUMBER;
575: l_diff NUMBER;
576: l_adj_rec BINARY_INTEGER;
577: lx_return_status VARCHAR2(1);
578: lv_pricing_method OKL_LEASE_QUOTES_B.PRICING_METHOD%TYPE;
579:
580: CURSOR c_get_parent_object_code IS
581: SELECT parent_object_code
582: FROM okl_lease_quotes_b
578: lv_pricing_method OKL_LEASE_QUOTES_B.PRICING_METHOD%TYPE;
579:
580: CURSOR c_get_parent_object_code IS
581: SELECT parent_object_code
582: FROM okl_lease_quotes_b
583: WHERE id = p_quote_id;
584: BEGIN
585:
586: l_link_asset_tbl := p_link_asset_tbl;
586: l_link_asset_tbl := p_link_asset_tbl;
587:
588: SELECT PRICING_METHOD
589: INTO lv_pricing_method
590: FROM OKL_LEASE_QUOTES_B
591: WHERE ID = p_quote_id;
592:
593: -- Fee Asset amount will be null in case of 'Solve for Financed Amount' pricing
594: -- method .. the values will be populated after the Pricing call is made
613: IF (lv_parent_object_code = 'LEASEOPP') THEN
614: SELECT currency_code
615: INTO l_currency_code
616: FROM okl_lease_opportunities_b lop,
617: okl_lease_quotes_b lsq
618: WHERE lsq.parent_object_code = lv_parent_object_code
619: AND lsq.parent_object_id = lop.id
620: AND lsq.id = p_quote_id;
621: ELSIF (lv_parent_object_code = 'LEASEAPP') THEN
621: ELSIF (lv_parent_object_code = 'LEASEAPP') THEN
622: SELECT currency_code
623: INTO l_currency_code
624: FROM okl_lease_applications_b lap,
625: okl_lease_quotes_b lsq
626: WHERE lsq.parent_object_code = lv_parent_object_code
627: AND lsq.parent_object_id = lap.id
628: AND lsq.id = p_quote_id;
629: END IF;
1617: END IF;
1618:
1619: /*
1620: SELECT parent_object_id,parent_object_code INTO l_p_id,l_p_code
1621: FROM okl_lease_quotes_b where ID = l_fee_rec.parent_object_id;
1622:
1623: OKL_LEASE_QUOTE_PRICING_PVT.handle_parent_object_status(
1624: p_api_version => G_API_VERSION
1625: ,p_init_msg_list => G_FALSE
1864: END IF;
1865:
1866: /*
1867: SELECT parent_object_id,parent_object_code INTO l_p_id,l_p_code
1868: FROM okl_lease_quotes_b where ID = l_fee_rec.parent_object_id;
1869:
1870: OKL_LEASE_QUOTE_PRICING_PVT.handle_parent_object_status(
1871: p_api_version => G_API_VERSION
1872: ,p_init_msg_list => G_FALSE
2112: END IF;
2113:
2114: /*
2115: SELECT parent_object_id,parent_object_code INTO l_p_id,l_p_code
2116: FROM okl_lease_quotes_b where ID = l_fee_rec.parent_object_id;
2117:
2118: OKL_LEASE_QUOTE_PRICING_PVT.handle_parent_object_status(
2119: p_api_version => G_API_VERSION
2120: ,p_init_msg_list => G_FALSE
2491: ld_src_start_date DATE;
2492: ld_tgt_start_date DATE;
2493: ln_src_pdt_id NUMBER;
2494: ln_tgt_pdt_id NUMBER;
2495: l_parent_object_code okl_lease_quotes_b.parent_object_code%TYPE;
2496: ln_src_eot_id NUMBER;
2497: ln_tgt_eot_id NUMBER;
2498:
2499: BEGIN
2528: parent_object_code,
2529: end_of_term_option_id
2530: INTO ld_tgt_start_date, ln_tgt_pdt_id,l_parent_object_code, ln_tgt_eot_id
2531: FROM
2532: okl_lease_quotes_b
2533: WHERE
2534: id = p_target_quote_id;
2535: --
2536: IF (lb_config_fee) THEN
2580: quote.end_of_term_option_id
2581: INTO ld_src_start_date, ln_src_pdt_id, ln_src_eot_id
2582: FROM
2583: okl_fees_b fee,
2584: okl_lease_quotes_b quote
2585: WHERE
2586: fee.id = p_source_fee_id
2587: AND fee.parent_object_id = quote.id
2588: AND fee.parent_object_code = 'LEASEQUOTE';
2778:
2779: /*
2780: SELECT qte.parent_object_id,qte.parent_object_code
2781: INTO l_p_id,l_p_code
2782: FROM okl_lease_quotes_b qte,
2783: okl_fees_b fee
2784: WHERE fee.parent_object_id = qte.id
2785: AND fee.parent_object_code= 'LEASEQUOTE'
2786: AND fee.ID = p_fee_id;