[Home] [Help]
1: PACKAGE BODY Qp_Util_Pub AS
2: /* $Header: QPXRTCNB.pls 120.9.12010000.5 2008/11/25 23:40:11 rbadadar ship $ */
3:
4: l_debug VARCHAR2(3);
5: /************************************************************************
515: l_line_group_exists QP_PRICING_PHASES.LINE_GROUP_EXISTS%TYPE :='U';
516: l_oid_exists QP_PRICING_PHASES.OID_EXISTS%TYPE :='U';
517: l_rltd_exists QP_PRICING_PHASES.RLTD_EXISTS%TYPE :='U';
518: l_list_line_type QP_LIST_LINES.LIST_LINE_TYPE_CODE%TYPE :='XXX';
519: l_order_status_rec Qp_Util_Pub.ORDER_LINES_STATUS_REC_TYPE;
520: l_dummy VARCHAR2(1);
521: BEGIN
522: l_debug := Qp_Preq_Grp.G_DEBUG_ENGINE;
523: l_dummy := NULL;
1288: l_cust_relation_flag := '';
1289: END IF;
1290: l_debug := Qp_Preq_Grp.G_DEBUG_ENGINE;
1291: IF l_debug = Fnd_Api.G_TRUE THEN
1292: Oe_Debug_Pub.ADD('QP_UTIL_PUB.Get_Price_List BEGIN ');
1293: Oe_Debug_Pub.ADD('l_currency_code = ' || l_currency_code);
1294: Oe_Debug_Pub.ADD('l_pricing_effective_date = ' ||l_pricing_effective_date);
1295: Oe_Debug_Pub.ADD('l_agreement_id = ' || l_agreement_id);
1296:
1436: BEGIN
1437:
1438: l_debug := Qp_Preq_Grp.G_DEBUG_ENGINE;
1439: IF l_debug = Fnd_Api.G_TRUE THEN
1440: Oe_Debug_Pub.ADD('QP_UTIL_PUB.Get_Price_Lists BEGIN ');
1441: Oe_Debug_Pub.ADD('p_currency_code = ' || p_currency_code);
1442: END IF;
1443:
1444: l_temp_date := TRUNC(SYSDATE);
1641: l_agreement c_agreement%ROWTYPE;
1642: l_counter NUMBER := 0;
1643:
1644: BEGIN
1645: Oe_Debug_Pub.ADD('QP_UTIL_PUB.Get_Agreement BEGIN ');
1646: Oe_Debug_Pub.ADD('p_pricing_effective_date = ' ||p_pricing_effective_date);
1647:
1648: IF p_pricing_effective_date IS NULL THEN
1649: l_temp_date := TRUNC(SYSDATE);
1801: l_status_code VARCHAR2(1);
1802: BEGIN
1803: l_debug := Qp_Preq_Grp.G_DEBUG_ENGINE;
1804: IF l_debug = Fnd_Api.G_TRUE THEN
1805: Oe_Debug_Pub.ADD('BEGIN qp_util_pub.get_rounding_factor');
1806: Oe_Debug_Pub.ADD('p_use_multi_currency = ' || p_use_multi_currency);
1807: Oe_Debug_Pub.ADD('p_price_list_id = ' || p_price_list_id);
1808: Oe_Debug_Pub.ADD('p_currency_code = ' || p_currency_code);
1809: Oe_Debug_Pub.ADD('p_pricing_effective_date = ' || p_pricing_effective_date);
1825: END IF;
1826: IF l_debug = Fnd_Api.G_TRUE THEN
1827: Oe_Debug_Pub.ADD('l_rounding_factor = ' || l_rounding_factor);
1828: Oe_Debug_Pub.ADD('l_status_code = ' || l_status_code);
1829: Oe_Debug_Pub.ADD('END qp_util_pub.get_rounding_factor');
1830:
1831: END IF;
1832: RETURN(l_rounding_factor);
1833:
2194: I NUMBER;
2195: BEGIN
2196: l_debug := Qp_Preq_Grp.G_DEBUG_ENGINE;
2197: IF l_debug = Fnd_Api.G_TRUE THEN
2198: Oe_Debug_Pub.ADD('QP_UTIL_PUB.Reprice_Debug_Engine_Request BEGIN');
2199: Oe_Debug_Pub.ADD('p_request_id = ' || p_request_id);
2200: END IF;
2201: --dbms_output.put_line('Reprice_Debug_Engine_Request Begins');
2202:
2202:
2203: /* profile settings */
2204: Fnd_Profile.PUT('QP_DEBUG','Y');
2205: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2206: x_return_status_text := 'Routine: QP_UTIL_PUB.Reprice_Debug_Engine_Request SUCCESS';
2207:
2208: IF ( p_request_id IS NULL) THEN
2209: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2210: x_return_status_text := 'Need request_id for Reprice_Debug_Engine_Request API';
2464:
2465: EXCEPTION
2466: WHEN OTHERS THEN
2467: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2468: x_return_status_text := 'Routine: QP_UTIL_PUB.Reprice_Debug_Engine_Request ERROR'||SQLERRM;
2469: END Reprice_Debug_Engine_Request;
2470:
2471: -- New procedure as per bug 2943038, required by Quoting
2472: PROCEDURE Get_Price_List_Currency
3059: x_status:='N';
3060: END IF;
3061: END Flex_Enabled_Status;
3062:
3063: END Qp_Util_Pub;