1243: p_chr_id IN NUMBER,
1244: p_cle_id IN NUMBER,
1245: p_lse_id IN NUMBER,
1246: p_price_type IN VARCHAR2,
1247: p_price_details IN oks_qp_pkg.price_details,
1248: x_return_status OUT NOCOPY VARCHAR2
1249: ) IS
1250: l_api_name CONSTANT VARCHAR2 (30)
1251: := 'update_price_info ';
1440:
1441: l_new_amount NUMBER;
1442: l_clev_rec okc_contract_pub.clev_rec_type;
1443: l_price_type VARCHAR2 (10);
1444: l_detail_rec oks_qp_pkg.input_details;
1445: l_price_details oks_qp_pkg.price_details;
1446: l_modifier_details qp_preq_grp.line_detail_tbl_type;
1447: l_price_break_details oks_qp_pkg.g_price_break_tbl_type;
1448: l_scev_rec_in oks_subscr_elems_pub.scev_rec_type;
1441: l_new_amount NUMBER;
1442: l_clev_rec okc_contract_pub.clev_rec_type;
1443: l_price_type VARCHAR2 (10);
1444: l_detail_rec oks_qp_pkg.input_details;
1445: l_price_details oks_qp_pkg.price_details;
1446: l_modifier_details qp_preq_grp.line_detail_tbl_type;
1447: l_price_break_details oks_qp_pkg.g_price_break_tbl_type;
1448: l_scev_rec_in oks_subscr_elems_pub.scev_rec_type;
1449: l_scev_rec_out oks_subscr_elems_pub.scev_rec_type;
1443: l_price_type VARCHAR2 (10);
1444: l_detail_rec oks_qp_pkg.input_details;
1445: l_price_details oks_qp_pkg.price_details;
1446: l_modifier_details qp_preq_grp.line_detail_tbl_type;
1447: l_price_break_details oks_qp_pkg.g_price_break_tbl_type;
1448: l_scev_rec_in oks_subscr_elems_pub.scev_rec_type;
1449: l_scev_rec_out oks_subscr_elems_pub.scev_rec_type;
1450: l_api_version NUMBER := 1.0;
1451: l_init_msg_list VARCHAR2 (1) := okc_api.g_false;
1506: --errorout_urp('l_detail_rec.line_id: ' || l_detail_rec.line_id);
1507: --errorout_urp('l_detail_rec.subline_id: ' || l_detail_rec.subline_id);
1508: --errorout_urp('l_detail_rec.intent: ' || l_detail_rec.intent);
1509: --errorout_urp('l_detail_rec.price_list: ' || l_detail_rec.price_list);
1510: oks_qp_pkg.calc_price (p_detail_rec => l_detail_rec,
1511: x_price_details => l_price_details,
1512: x_modifier_details => l_modifier_details,
1513: x_price_break_details => l_price_break_details,
1514: x_return_status => l_return_status,
1520: fnd_log.STRING
1521: (fnd_log.level_statement,
1522: g_module ||
1523: l_api_name,
1524: '118:In Calculate Price Status after OKS_QP_PKG.calc_price: ' ||
1525: l_return_status
1526: );
1527: END IF;
1528:
1525: l_return_status
1526: );
1527: END IF;
1528:
1529: --errorout_urp('In Calculate Price Status after OKS_QP_PKG.calc_price: ' || l_return_status);
1530: IF l_return_status <> g_ret_sts_success THEN
1531: RAISE g_error;
1532: END IF;
1533:
1811: x_msg_data OUT NOCOPY VARCHAR2
1812: ) IS
1813: l_api_name CONSTANT VARCHAR2 (30)
1814: := 'call_pricing_api';
1815: l_detail_rec oks_qp_pkg.input_details;
1816: l_price_details oks_qp_pkg.price_details;
1817: l_modifier_details qp_preq_grp.line_detail_tbl_type;
1818: l_price_break_details oks_qp_pkg.g_price_break_tbl_type;
1819: l_return_status VARCHAR2 (1) := g_ret_sts_success;
1812: ) IS
1813: l_api_name CONSTANT VARCHAR2 (30)
1814: := 'call_pricing_api';
1815: l_detail_rec oks_qp_pkg.input_details;
1816: l_price_details oks_qp_pkg.price_details;
1817: l_modifier_details qp_preq_grp.line_detail_tbl_type;
1818: l_price_break_details oks_qp_pkg.g_price_break_tbl_type;
1819: l_return_status VARCHAR2 (1) := g_ret_sts_success;
1820: l_msg_count NUMBER;
1814: := 'call_pricing_api';
1815: l_detail_rec oks_qp_pkg.input_details;
1816: l_price_details oks_qp_pkg.price_details;
1817: l_modifier_details qp_preq_grp.line_detail_tbl_type;
1818: l_price_break_details oks_qp_pkg.g_price_break_tbl_type;
1819: l_return_status VARCHAR2 (1) := g_ret_sts_success;
1820: l_msg_count NUMBER;
1821: l_msg_data VARCHAR2 (2000);
1822: BEGIN
2017: l_old_end_date DATE;
2018: l_prorated_price_neg NUMBER;
2019: l_prorated_unit_price NUMBER;
2020: l_intent VARCHAR2 (10);
2021: l_detail_rec oks_qp_pkg.input_details;
2022: l_price_details oks_qp_pkg.price_details := NULL;
2023: l_modifier_details qp_preq_grp.line_detail_tbl_type;
2024: l_price_break_details oks_qp_pkg.g_price_break_tbl_type;
2025: l_api_version NUMBER := 1.0;
2018: l_prorated_price_neg NUMBER;
2019: l_prorated_unit_price NUMBER;
2020: l_intent VARCHAR2 (10);
2021: l_detail_rec oks_qp_pkg.input_details;
2022: l_price_details oks_qp_pkg.price_details := NULL;
2023: l_modifier_details qp_preq_grp.line_detail_tbl_type;
2024: l_price_break_details oks_qp_pkg.g_price_break_tbl_type;
2025: l_api_version NUMBER := 1.0;
2026: l_init_msg_list VARCHAR2 (1) := okc_api.g_false;
2020: l_intent VARCHAR2 (10);
2021: l_detail_rec oks_qp_pkg.input_details;
2022: l_price_details oks_qp_pkg.price_details := NULL;
2023: l_modifier_details qp_preq_grp.line_detail_tbl_type;
2024: l_price_break_details oks_qp_pkg.g_price_break_tbl_type;
2025: l_api_version NUMBER := 1.0;
2026: l_init_msg_list VARCHAR2 (1) := okc_api.g_false;
2027: l_return_status VARCHAR2 (1) := g_ret_sts_success;
2028: l_msg_count NUMBER;
3028: l_chr_rec_out okc_contract_pub.chrv_rec_type;
3029: l_scev_rec_in oks_subscr_elems_pub.scev_rec_type;
3030: l_scev_rec_out oks_subscr_elems_pub.scev_rec_type;
3031: l_modifier_details qp_preq_grp.line_detail_tbl_type;
3032: l_detail_rec oks_qp_pkg.input_details;
3033: l_price_break_details oks_qp_pkg.g_price_break_tbl_type;
3034: l_price_details oks_qp_pkg.price_details := NULL;
3035: l_k_details_rec l_k_details_csr%ROWTYPE;
3036: l_srv_k_details_rec l_srv_k_details_csr%ROWTYPE;
3029: l_scev_rec_in oks_subscr_elems_pub.scev_rec_type;
3030: l_scev_rec_out oks_subscr_elems_pub.scev_rec_type;
3031: l_modifier_details qp_preq_grp.line_detail_tbl_type;
3032: l_detail_rec oks_qp_pkg.input_details;
3033: l_price_break_details oks_qp_pkg.g_price_break_tbl_type;
3034: l_price_details oks_qp_pkg.price_details := NULL;
3035: l_k_details_rec l_k_details_csr%ROWTYPE;
3036: l_srv_k_details_rec l_srv_k_details_csr%ROWTYPE;
3037: l_line_rec l_line_csr%ROWTYPE;
3030: l_scev_rec_out oks_subscr_elems_pub.scev_rec_type;
3031: l_modifier_details qp_preq_grp.line_detail_tbl_type;
3032: l_detail_rec oks_qp_pkg.input_details;
3033: l_price_break_details oks_qp_pkg.g_price_break_tbl_type;
3034: l_price_details oks_qp_pkg.price_details := NULL;
3035: l_k_details_rec l_k_details_csr%ROWTYPE;
3036: l_srv_k_details_rec l_srv_k_details_csr%ROWTYPE;
3037: l_line_rec l_line_csr%ROWTYPE;
3038: --new variables for partial periods