257: --====================================================================================
258: PROCEDURE populate_adj_rec(p_offadj_line_rec IN OUT NOCOPY offadj_line_rec_type ,p_list_line_rec IN offadj_new_line_rec_type)
259: IS
260: CURSOR c_operator(p_list_line_id number)IS
261: SELECT arithmetic_operator,operand,list_line_type_code FROM qp_list_lines
262: WHERE list_line_id = p_list_line_id;
263: l_operator c_operator%rowtype;
264: BEGIN
265: p_offadj_line_rec.offer_adjustment_id := p_list_line_rec.offer_adjustment_id;
654:
655:
656: debug_message('Return status is '||x_return_status);
657:
658: debug_message('Calling process qp list lines');
659:
660: debug_message('list line type code : '|| l_modifier_line_tbl(i).list_line_type_code);
661: debug_message('list_line_id is : '||l_modifier_line_tbl(i).list_line_id);
662: debug_message('pricing attribute id is :'||l_modifier_line_tbl(i).pricing_attribute_id);
667: debug_message('uom code is :'||l_modifier_line_tbl(i).product_uom_code);
668: --================================================================
669: -- create discount rule in qp
670: --================================================================
671: ozf_offer_pvt.process_qp_list_lines(
672: x_return_status => x_return_status,
673: x_msg_count => x_msg_count,
674: x_msg_data => x_msg_data,
675: p_offer_type => l_offer_type,
707: p_offadj_line_rec => l_offadj_line_rec);
708: END IF;
709:
710:
711: --update qp_list_lines set automatic_flag = 'N' where list_line_id = v_modifiers_tbl(1).list_line_id;
712:
713: --===============================================================
714: -- create adjustment line
715: --===============================================================
1077: -- End of Comments
1078: -- Procedure updated discount lines created from adjustments.
1079: -- These new Discount rules will be created in QP with end date active already passed ie. sysdate -1 so that the rule is not active
1080: -- additionally for further safety the lines will be created with automatic flag = 'N'
1081: -- Since there is some diffeculty in making updates to qp_list_lines when automatic_flag = 'N'
1082: -- the API first updates the line and makes automatic_flag = 'Y', then executes the updates. then again makes automatic_flag = 'N'
1083: -- when the adjustment goes active the Adjustment line is made automatic.
1084: -- ==============================================================================
1085:
1170: l_accrual_flag := 'Y';
1171: END IF;
1172:
1173: /*
1174: Update qp_list_lines with the entered information
1175: */
1176: -- flipping automatic flag to active coz the update does not go thru, if the automatic fLAG is N
1177: --update qp_list_lines set automatic_flag = 'Y' where list_line_id = p_list_line_rec.list_line_id;
1178:
1173: /*
1174: Update qp_list_lines with the entered information
1175: */
1176: -- flipping automatic flag to active coz the update does not go thru, if the automatic fLAG is N
1177: --update qp_list_lines set automatic_flag = 'Y' where list_line_id = p_list_line_rec.list_line_id;
1178:
1179: debug_message('Calling process qp_list lines');
1180:
1181: --==========================================================================
1175: */
1176: -- flipping automatic flag to active coz the update does not go thru, if the automatic fLAG is N
1177: --update qp_list_lines set automatic_flag = 'Y' where list_line_id = p_list_line_rec.list_line_id;
1178:
1179: debug_message('Calling process qp_list lines');
1180:
1181: --==========================================================================
1182: -- create discount rule in qp
1183: --==========================================================================
1180:
1181: --==========================================================================
1182: -- create discount rule in qp
1183: --==========================================================================
1184: ozf_offer_pvt.process_qp_list_lines(
1185: x_return_status => x_return_status,
1186: x_msg_count => x_msg_count,
1187: x_msg_data => x_msg_data,
1188: p_offer_type => l_offer_type,
1197: RAISE FND_API.G_EXC_ERROR;
1198: END IF;
1199:
1200: -- flipping automatic flag back to N
1201: --update qp_list_lines set automatic_flag = 'N' where list_line_id = p_list_line_rec.list_line_id;
1202:
1203:
1204: -- create a new adjustment line in ozf_offer_adjustments with created from ADJUSTMENTS ='Y'
1205:
1242: x_object_version_number => l_object_version_number
1243: );
1244: -- l_offadj_line_rec.created_from_adjustments := 'Y';
1245:
1246: --update qp_list_lines set automatic_flag = 'N' where list_line_id = v_modifiers_tbl(1).list_line_id;
1247:
1248: debug_message('Updated adjustment line id is '||l_offer_adjustment_line_id);
1249: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1250: RAISE FND_API.G_EXC_ERROR;
1689: CURSOR c_offer_type(p_list_header_id NUMBER) is
1690: SELECT offer_type from ozf_offers where qp_list_header_id = p_list_header_id;
1691:
1692: CURSOR c_list_line_type_Code(p_list_line_id NUMBER) is
1693: select list_line_type_code from qp_list_lines where list_line_id = p_list_line_id;
1694:
1695: l_list_line_type_code qp_list_lines.list_line_type_code%type;
1696: l_offer_type ozf_offers.offer_type%type;
1697:
1691:
1692: CURSOR c_list_line_type_Code(p_list_line_id NUMBER) is
1693: select list_line_type_code from qp_list_lines where list_line_id = p_list_line_id;
1694:
1695: l_list_line_type_code qp_list_lines.list_line_type_code%type;
1696: l_offer_type ozf_offers.offer_type%type;
1697:
1698: BEGIN
1699:
2263: IS
2264: l_price_list_name qp_list_headers_tl.name%type;
2265: cursor c_price_list_name(p_list_line_id IN NUMBER) IS
2266: SELECT name FROM qp_list_headers_vl
2267: WHERE list_header_id = (SELECT list_header_id FROM qp_list_lines WHERE list_line_id = p_list_line_id);
2268: BEGIN
2269: OPEN c_price_list_name(p_list_line_id);
2270: FETCH c_price_list_name INTO l_price_list_name;
2271: CLOSE c_price_list_name;