Here is sample piece of code, for the API OKS_AUTH_UTIL_PUB.COMPUTE_PRICE_MULTIPLE_LINE in Service Contracts.
DECLARE
l_multi_line_tbl apps.OKS_AUTH_UTIL_PUB.MULTI_LINE_TBL;
l_return_status VARCHAR2(1);
l_status_tbl apps.OKS_QP_INT_PVT.PRICING_STATUS_TBL;
BEGIN
l_multi_line_tbl(0).id := 100; -- ID column from okc_k_lines_b table
l_multi_line_tbl(0).lse_id := 46; -- Line Type SUBSCRIPTION
l_multi_line_tbl(0).line_pl_flag := 'Y'; -- Partial Update Flag
l_return_status := NULL;
-- Call the API to Reprice the Multiple lines
APPS.OKS_AUTH_UTIL_PUB.COMPUTE_PRICE_MULTIPLE_LINE
( p_api_version => 1.0
,p_detail_tbl => l_multi_line_tbl
,x_return_status => l_return_status
,x_status_tbl => l_status_tbl
);
IF NVL(l_return_status,'E') = 'S'
THEN
DBMS_OUTPUT.PUT_LINE('Price Updated Successfully');
ELSE
DBMS_OUTPUT.PUT_LINE('Error in Updating Price Adjustment ');
END IF;
END;
DECLARE
l_multi_line_tbl apps.OKS_AUTH_UTIL_PUB.MULTI_LINE_TBL;
l_return_status VARCHAR2(1);
l_status_tbl apps.OKS_QP_INT_PVT.PRICING_STATUS_TBL;
BEGIN
l_multi_line_tbl(0).id := 100; -- ID column from okc_k_lines_b table
l_multi_line_tbl(0).lse_id := 46; -- Line Type SUBSCRIPTION
l_multi_line_tbl(0).line_pl_flag := 'Y'; -- Partial Update Flag
l_return_status := NULL;
-- Call the API to Reprice the Multiple lines
APPS.OKS_AUTH_UTIL_PUB.COMPUTE_PRICE_MULTIPLE_LINE
( p_api_version => 1.0
,p_detail_tbl => l_multi_line_tbl
,x_return_status => l_return_status
,x_status_tbl => l_status_tbl
);
IF NVL(l_return_status,'E') = 'S'
THEN
DBMS_OUTPUT.PUT_LINE('Price Updated Successfully');
ELSE
DBMS_OUTPUT.PUT_LINE('Error in Updating Price Adjustment ');
END IF;
END;
No comments:
Post a Comment