[Home] [Help]
258: --====================================================================================
259: 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)
260: IS
261: CURSOR c_operator(p_list_line_id number)IS
262: SELECT arithmetic_operator,operand,list_line_type_code FROM qp_list_lines
263: WHERE list_line_id = p_list_line_id;
264: l_operator c_operator%rowtype;
265: BEGIN
266: p_offadj_line_rec.offer_adjustment_id := p_list_line_rec.offer_adjustment_id;
655:
656:
657: debug_message('Return status is '||x_return_status);
658:
659: debug_message('Calling process qp list lines');
660:
661: debug_message('list line type code : '|| l_modifier_line_tbl(i).list_line_type_code);
662: debug_message('list_line_id is : '||l_modifier_line_tbl(i).list_line_id);
663: debug_message('pricing attribute id is :'||l_modifier_line_tbl(i).pricing_attribute_id);
668: debug_message('uom code is :'||l_modifier_line_tbl(i).product_uom_code);
669: --================================================================
670: -- create discount rule in qp
671: --================================================================
672: ozf_offer_pvt.process_qp_list_lines(
673: x_return_status => x_return_status,
674: x_msg_count => x_msg_count,
675: x_msg_data => x_msg_data,
676: p_offer_type => l_offer_type,
708: p_offadj_line_rec => l_offadj_line_rec);
709: END IF;
710:
711:
712: --update qp_list_lines set automatic_flag = 'N' where list_line_id = v_modifiers_tbl(1).list_line_id;
713:
714: --===============================================================
715: -- create adjustment line
716: --===============================================================
1078: -- End of Comments
1079: -- Procedure updated discount lines created from adjustments.
1080: -- 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
1081: -- additionally for further safety the lines will be created with automatic flag = 'N'
1082: -- Since there is some diffeculty in making updates to qp_list_lines when automatic_flag = 'N'
1083: -- the API first updates the line and makes automatic_flag = 'Y', then executes the updates. then again makes automatic_flag = 'N'
1084: -- when the adjustment goes active the Adjustment line is made automatic.
1085: -- ==============================================================================
1086:
1171: l_accrual_flag := 'Y';
1172: END IF;
1173:
1174: /*
1175: Update qp_list_lines with the entered information
1176: */
1177: -- flipping automatic flag to active coz the update does not go thru, if the automatic fLAG is N
1178: --update qp_list_lines set automatic_flag = 'Y' where list_line_id = p_list_line_rec.list_line_id;
1179:
1174: /*
1175: Update qp_list_lines with the entered information
1176: */
1177: -- flipping automatic flag to active coz the update does not go thru, if the automatic fLAG is N
1178: --update qp_list_lines set automatic_flag = 'Y' where list_line_id = p_list_line_rec.list_line_id;
1179:
1180: debug_message('Calling process qp_list lines');
1181:
1182: --==========================================================================
1176: */
1177: -- flipping automatic flag to active coz the update does not go thru, if the automatic fLAG is N
1178: --update qp_list_lines set automatic_flag = 'Y' where list_line_id = p_list_line_rec.list_line_id;
1179:
1180: debug_message('Calling process qp_list lines');
1181:
1182: --==========================================================================
1183: -- create discount rule in qp
1184: --==========================================================================
1181:
1182: --==========================================================================
1183: -- create discount rule in qp
1184: --==========================================================================
1185: ozf_offer_pvt.process_qp_list_lines(
1186: x_return_status => x_return_status,
1187: x_msg_count => x_msg_count,
1188: x_msg_data => x_msg_data,
1189: p_offer_type => l_offer_type,
1198: RAISE FND_API.G_EXC_ERROR;
1199: END IF;
1200:
1201: -- flipping automatic flag back to N
1202: --update qp_list_lines set automatic_flag = 'N' where list_line_id = p_list_line_rec.list_line_id;
1203:
1204:
1205: -- create a new adjustment line in ozf_offer_adjustments with created from ADJUSTMENTS ='Y'
1206:
1243: x_object_version_number => l_object_version_number
1244: );
1245: -- l_offadj_line_rec.created_from_adjustments := 'Y';
1246:
1247: --update qp_list_lines set automatic_flag = 'N' where list_line_id = v_modifiers_tbl(1).list_line_id;
1248:
1249: debug_message('Updated adjustment line id is '||l_offer_adjustment_line_id);
1250: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1251: RAISE FND_API.G_EXC_ERROR;
1690: CURSOR c_offer_type(p_list_header_id NUMBER) is
1691: SELECT offer_type from ozf_offers where qp_list_header_id = p_list_header_id;
1692:
1693: CURSOR c_list_line_type_Code(p_list_line_id NUMBER) is
1694: select list_line_type_code from qp_list_lines where list_line_id = p_list_line_id;
1695:
1696: l_list_line_type_code qp_list_lines.list_line_type_code%type;
1697: l_offer_type ozf_offers.offer_type%type;
1698:
1692:
1693: CURSOR c_list_line_type_Code(p_list_line_id NUMBER) is
1694: select list_line_type_code from qp_list_lines where list_line_id = p_list_line_id;
1695:
1696: l_list_line_type_code qp_list_lines.list_line_type_code%type;
1697: l_offer_type ozf_offers.offer_type%type;
1698:
1699: BEGIN
1700:
2310: IS
2311: l_price_list_name qp_list_headers_tl.name%type;
2312: cursor c_price_list_name(p_list_line_id IN NUMBER) IS
2313: SELECT name FROM qp_list_headers_vl
2314: WHERE list_header_id = (SELECT list_header_id FROM qp_list_lines WHERE list_line_id = p_list_line_id);
2315: BEGIN
2316: OPEN c_price_list_name(p_list_line_id);
2317: FETCH c_price_list_name INTO l_price_list_name;
2318: CLOSE c_price_list_name;