64:
65: PROCEDURE populate_order_value_rec(p_list_line_rec IN offadj_new_line_rec_type,
66: p_offadj_line_rec IN OUT NOCOPY offadj_line_rec_type )
67: IS
68: l_order_value_discount_type ozf_offers.order_value_discount_type%type;
69: CURSOR cur_get_ov_discount_type(p_list_header_id NUMBER) IS
70: SELECT order_value_discount_type
71: FROM ozf_offers
72: WHERE qp_list_header_id = p_list_header_id;
67: IS
68: l_order_value_discount_type ozf_offers.order_value_discount_type%type;
69: CURSOR cur_get_ov_discount_type(p_list_header_id NUMBER) IS
70: SELECT order_value_discount_type
71: FROM ozf_offers
72: WHERE qp_list_header_id = p_list_header_id;
73: BEGIN
74: open cur_get_ov_discount_type(p_list_line_rec.list_header_id);
75: fetch cur_get_ov_discount_type into l_order_value_discount_type;
126: p_modifier_line_rec IN OUT NOCOPY ozf_offer_pvt.Modifier_Line_Rec_Type )
127: IS
128: CURSOR c_offer_type (p_list_header_id IN NUMBER) IS
129: SELECT offer_type
130: FROM ozf_offers
131: WHERE qp_list_header_id = p_list_header_id;
132: l_offer_type OZF_OFFERS.offer_type%type;
133: BEGIN
134: p_modifier_line_rec.LIST_HEADER_ID := p_list_line_rec.list_header_id;
128: CURSOR c_offer_type (p_list_header_id IN NUMBER) IS
129: SELECT offer_type
130: FROM ozf_offers
131: WHERE qp_list_header_id = p_list_header_id;
132: l_offer_type OZF_OFFERS.offer_type%type;
133: BEGIN
134: p_modifier_line_rec.LIST_HEADER_ID := p_list_line_rec.list_header_id;
135: p_modifier_line_rec.list_line_id := p_list_line_rec.list_line_id;
136: p_modifier_line_rec.LIST_LINE_TYPE_CODE := p_list_line_rec.list_line_type_code;
570: l_object_version_number NUMBER := 1;
571: l_org_id NUMBER := FND_API.G_MISS_NUM;
572: l_offer_adjustment_line_id NUMBER;
573: l_dummy NUMBER;
574: l_offer_type OZF_OFFERS.OFFER_TYPE%TYPE;
575: l_error_loc NUMBER;
576: l_modifier_line_tbl ozf_offer_pvt.MODIFIER_LINE_TBL_TYPE;
577: v_modifiers_tbl qp_modifiers_pub.modifiers_tbl_type;
578: l_offadj_line_rec offadj_line_rec_type ;
584: l_accrual_flag VARCHAR2(1):= 'N';
585:
586: CURSOR c_offer_type (p_list_header_id IN NUMBER) IS
587: SELECT offer_type
588: FROM ozf_offers
589: WHERE qp_list_header_id = p_list_header_id;
590:
591: CURSOR cur_get_ov_discount_type(p_list_header_id NUMBER) IS
592: SELECT order_value_discount_type
589: WHERE qp_list_header_id = p_list_header_id;
590:
591: CURSOR cur_get_ov_discount_type(p_list_header_id NUMBER) IS
592: SELECT order_value_discount_type
593: FROM ozf_offers
594: WHERE qp_list_header_id = p_list_header_id;
595:
596: BEGIN
597: -- Standard Start of API savepoint
1104: l_object_version_number NUMBER := 1;
1105: l_org_id NUMBER := FND_API.G_MISS_NUM;
1106: l_offer_adjustment_line_id NUMBER;
1107: l_dummy NUMBER;
1108: l_offer_type OZF_OFFERS.OFFER_TYPE%TYPE;
1109: l_error_loc NUMBER;
1110:
1111: l_modifier_line_tbl ozf_offer_pvt.MODIFIER_LINE_TBL_TYPE;
1112: v_modifiers_tbl qp_modifiers_pub.modifiers_tbl_type;
1119: l_accrual_flag VARCHAR2(1):= 'N';
1120:
1121: CURSOR c_offer_type (p_list_header_id IN NUMBER) IS
1122: SELECT offer_type
1123: FROM ozf_offers
1124: WHERE qp_list_header_id = p_list_header_id;
1125:
1126:
1127: BEGIN
1686: x_return_status OUT NOCOPY VARCHAR2
1687: )
1688: IS
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:
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:
1700: open c_offer_type(p_offadj_line_rec.list_header_id);