[Home] [Help]
13: , p_old_PRICING_ATTR_rec IN QP_Modifiers_PUB.Pricing_Attr_Rec_Type :=
14: QP_Modifiers_PUB.G_MISS_PRICING_ATTR_REC
15: )
16: IS
17: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
18: l_context_flag VARCHAR2(1);
19: l_attribute_flag VARCHAR2(1);
20: l_value_flag VARCHAR2(1);
21: l_datatype VARCHAR2(1);
85:
86: IF p_PRICING_ATTR_rec.pricing_attribute_id IS NULL
87: THEN
88:
89: l_return_status := FND_API.G_RET_STS_ERROR;
90:
91: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
92: THEN
93:
102: /*
103: IF p_PRICING_ATTR_rec.list_header_id IS NULL
104: THEN
105:
106: l_return_status := FND_API.G_RET_STS_ERROR;
107:
108: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
109: THEN
110:
118:
119: IF p_PRICING_ATTR_rec.pricing_phase_id IS NULL
120: THEN
121:
122: l_return_status := FND_API.G_RET_STS_ERROR;
123:
124: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
125: THEN
126:
141: IF p_PRICING_ATTR_rec.operation = QP_GLOBALS.G_OPR_UPDATE
142: THEN
143:
144: IF p_old_PRICING_ATTR_rec.product_attribute IS NOT NULL
145: AND p_old_PRICING_ATTR_rec.product_attribute <> FND_API.G_MISS_CHAR
146: AND p_old_PRICING_ATTR_rec.product_attribute <> p_PRICING_ATTR_rec.product_attribute THEN
147: DECLARE
148: count_attr NUMBER;
149: BEGIN
150: Select count(*) into count_attr
151: from qp_pricing_attributes
152: where list_line_id = p_PRICING_ATTR_rec.list_line_id;
153: if count_attr > 1 THEN
154: l_return_status := FND_API.G_RET_STS_ERROR;
155:
156: FND_MESSAGE.SET_NAME('QP','QP_CANNOT_UPDATE_PROD_ATTR');
157: OE_MSG_PUB.Add;
158: ELSE
162:
163: END IF;
164:
165: IF p_old_PRICING_ATTR_rec.product_attr_value IS NOT NULL
166: AND p_old_PRICING_ATTR_rec.product_attr_value <> FND_API.G_MISS_CHAR
167: AND p_old_PRICING_ATTR_rec.product_attr_value <> p_PRICING_ATTR_rec.product_attr_value
168: THEN
169:
170: DECLARE
173: Select count(*) into count_attr
174: from qp_pricing_attributes
175: where list_line_id = p_PRICING_ATTR_rec.list_line_id;
176: if count_attr > 1 AND p_PRICING_ATTR_rec.excluder_flag = 'N' THEN
177: l_return_status := FND_API.G_RET_STS_ERROR;
178:
179: FND_MESSAGE.SET_NAME('QP','QP_CANNOT_UPDATE_PROD_VALUE');
180: OE_MSG_PUB.Add;
181: ELSE
197: IF (list_line.price_break_type_code = 'RECURRING' AND
198: p_PRICING_ATTR_rec.pricing_attribute_context = 'VOLUME' AND --bug#4261068
199: p_PRICING_ATTR_rec.pricing_attr_value_from <= 0) then
200:
201: l_return_status := FND_API.G_RET_STS_ERROR;
202:
203: FND_MESSAGE.SET_NAME('QP','QP_RECUR_VAL_FROM_CHECK');
204:
205: OE_MSG_PUB.Add;
214: IF p_PRICING_ATTR_rec.excluder_flag IS NULL
215: THEN
216:
217: oe_debug_pub.add('excluder flag null');
218: l_return_status := FND_API.G_RET_STS_ERROR;
219:
220: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
221: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('EXCLUDER_FLAG')); -- Fix For Bug-1974413
222: OE_MSG_PUB.Add;
225: p_PRICING_ATTR_rec.excluder_flag <> 'N' )
226: THEN
227:
228: oe_debug_pub.add('excluder flag invalid');
229: l_return_status := FND_API.G_RET_STS_ERROR;
230:
231: FND_MESSAGE.SET_NAME('QP','QP_EXCLD_FLAG_Y_OR_N');
232: OE_MSG_PUB.Add;
233:
245:
246: IF p_PRICING_ATTR_rec.comparison_operator_code IS NULL
247: THEN
248:
249: l_return_status := FND_API.G_RET_STS_ERROR;
250:
251: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
252: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('COMPARISON_OPERATOR_CODE')); -- Fix For Bug-1974413
253: OE_MSG_PUB.Add;
257: IF ( p_PRICING_ATTR_rec.comparison_operator_code <> '=' AND
258: p_PRICING_ATTR_rec.comparison_operator_code <> 'BETWEEN' )
259: THEN
260:
261: l_return_status := FND_API.G_RET_STS_ERROR;
262:
263: FND_MESSAGE.SET_NAME('QP','QP_INVALID_COMP_OPERATOR');
264: OE_MSG_PUB.Add;
265:
270: IF p_PRICING_ATTR_rec.pricing_attr_value_from IS NULL
271: --AND p_PRICING_ATTR_rec.pricing_attr_value_to IS NULL
272: THEN
273:
274: l_return_status := FND_API.G_RET_STS_ERROR;
275:
276: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
277: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('PRICING_ATTR_VALUE_FROM')||'/'||
278: QP_PRC_UTIL.Get_Attribute_Name('PRICING_ATTR_VALUE_TO')); --Fix For Bug-1974413
285: --AND (p_PRICING_ATTR_rec.pricing_attr_value_from IS NULL
286: --OR p_PRICING_ATTR_rec.pricing_attr_value_to IS NULL)
287: AND list_line.price_break_type_code <> 'RECURRING' THEN
288:
289: l_return_status := FND_API.G_RET_STS_ERROR;
290:
291: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
292: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('PRICING_ATTR_VALUE_FROM')||'/'||
293: QP_PRC_UTIL.Get_Attribute_Name('PRICING_ATTR_VALUE_TO')); --Fix For Bug-1974413
296: ELSIF p_PRICING_ATTR_rec.comparison_operator_code = 'BETWEEN'
297: AND p_PRICING_ATTR_rec.pricing_attr_value_from IS NULL
298: AND list_line.price_break_type_code = 'RECURRING' THEN
299:
300: l_return_status := FND_API.G_RET_STS_ERROR;
301:
302: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
303: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('PRICING_ATTR_VALUE_FROM')); -- Fix For Bug-1974413
304: OE_MSG_PUB.Add;
311: /*commented out this validation and included the else condition that follows -spgopal
312: ELSIF p_PRICING_ATTR_rec.pricing_attribute IS NULL
313: THEN
314:
315: l_return_status := FND_API.G_RET_STS_ERROR;
316:
317: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
318: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Volume Type');
319: OE_MSG_PUB.Add;
325: IF p_PRICING_ATTR_rec.pricing_attribute_context IS NOT NULL THEN
326:
327: IF p_PRICING_ATTR_rec.pricing_attribute IS NULL THEN
328:
329: l_return_status := FND_API.G_RET_STS_ERROR;
330:
331: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
332: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Volume Type');
333: OE_MSG_PUB.Add;
342: OR p_PRICING_ATTR_rec.pricing_attr_value_to
343: IS NOT NULL) THEN
344: --when value from/to entered for PBH record volume context
345:
346: l_return_status := FND_API.G_RET_STS_ERROR;
347:
348: FND_MESSAGE.SET_NAME('QP','QP_PBH_NO_VALUE_FROM_TO');
349: OE_MSG_PUB.Add;
350:
356: OR p_PRICING_ATTR_rec.pricing_attr_value_to IS NULL) THEN
357:
358: --when value from/to NOT entered for PBH rec context<>VOLUME
359:
360: l_return_status := FND_API.G_RET_STS_ERROR;
361:
362: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
363: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('PRICING_ATTR_VALUE_FROM')||'/'||
364: QP_PRC_UTIL.Get_Attribute_Name('PRICING_ATTR_VALUE_TO')); -- Fix For Bug-1974413
372: AND p_PRICING_ATTR_rec.pricing_attr_value_to IS NULL) THEN
373:
374: --when value from/to NOT entered for PBH rec context<>VOLUME
375:
376: l_return_status := FND_API.G_RET_STS_ERROR;
377:
378: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
379: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('PRICING_ATTR_VALUE_FROM')||'/'|| QP_PRC_UTIL.Get_Attribute_Name('PRICING_ATTR_VALUE_TO')); --Fix For Bug-1974413
380: OE_MSG_PUB.Add;
392: IF list_line.list_line_type_code = 'PBH'
393: AND p_PRICING_ATTR_rec.pricing_attribute_context <> 'VOLUME'
394: THEN
395:
396: l_return_status := FND_API.G_RET_STS_ERROR;
397:
398: FND_MESSAGE.SET_NAME('QP','QP_PBH_PRICING_CONTEXT_VOLUME');
399: OE_MSG_PUB.Add;
400:
418: OR (p_PRICING_ATTR_rec.comparison_operator_code IS NOT NULL
419: AND list_line.list_line_type_code <> 'RLTD'))
420: THEN
421:
422: l_return_status := FND_API.G_RET_STS_ERROR;
423:
424: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
425: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Volume Type');
426: OE_MSG_PUB.Add;
441: p_PRICING_ATTR_rec.pricing_attr_value_from);
442:
443: If (l_error_code <> 0) -- invalid value
444: Then
445: l_return_status := FND_API.G_RET_STS_ERROR;
446:
447: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
448: THEN
449:
450: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
451: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Value From');
452: OE_MSG_PUB.Add;
453: END IF;
454: RAISE FND_API.G_EXC_ERROR;
455: End If;
456:
457: END IF;
458:
466: p_PRICING_ATTR_rec.pricing_attr_value_to);
467:
468: If (l_error_code <> 0) -- invalid value
469: Then
470: l_return_status := FND_API.G_RET_STS_ERROR;
471:
472: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
473: THEN
474:
475: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
476: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Value To');
477: OE_MSG_PUB.Add;
478: END IF;
479: RAISE FND_API.G_EXC_ERROR;
480: End If;
481:
482: END IF;
483:
493: IF QP_NUMBER.CANONICAL_TO_NUMBER(p_PRICING_ATTR_rec.pricing_attr_value_from) >
494: QP_NUMBER.CANONICAL_TO_NUMBER(p_PRICING_ATTR_rec.pricing_attr_value_to)
495: THEN
496:
497: l_return_status := FND_API.G_RET_STS_ERROR;
498:
499: FND_MESSAGE.SET_NAME('QP','QP_FROM_MUST_LESS_THAN_TO');
500: OE_MSG_PUB.Add;
501:
513: IF gsa_ind_cur.gsa_indicator = 'Y'
514: AND p_PRICING_ATTR_rec.product_attribute_context <> 'ITEM'
515: THEN
516:
517: l_return_status := FND_API.G_RET_STS_ERROR;
518:
519: FND_MESSAGE.SET_NAME('QP','QP_GSA_PROD_ATTR_ITEM');
520: OE_MSG_PUB.Add;
521:
526: IF gsa_ind_cur.gsa_indicator = 'Y'
527: AND p_PRICING_ATTR_rec.excluder_flag = 'Y'
528: THEN
529:
530: l_return_status := FND_API.G_RET_STS_ERROR;
531:
532: FND_MESSAGE.SET_NAME('QP','QP_NO_EXCLUDE_FOR_GSA');
533: OE_MSG_PUB.Add;
534:
542: OR p_PRICING_ATTR_rec.pricing_attr_value_from IS NOT NULL
543: OR p_PRICING_ATTR_rec.pricing_attr_value_to IS NOT NULL)
544: THEN
545:
546: l_return_status := FND_API.G_RET_STS_ERROR;
547:
548: FND_MESSAGE.SET_NAME('QP','QP_NO_PRICING_ATTR_FOR_GSA');
549: OE_MSG_PUB.Add;
550:
570: , p_request_Type => QP_GLOBALS.G_DUPLICATE_MODIFIER_LINES
571: , x_return_status => l_return_status
572: );
573:
574: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
575:
576: oe_debug_pub.add('failed in deleting a delayed request for duplicate Modifier');
577:
578: RAISE FND_API.G_EXC_ERROR;
574: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
575:
576: oe_debug_pub.add('failed in deleting a delayed request for duplicate Modifier');
577:
578: RAISE FND_API.G_EXC_ERROR;
579:
580: END IF;
581: /* After deleting the first one for modifier lines without pricing attributes, log a new request
582: to check duplicate modifier list lines with product attribute */
595: , p_param6 =>p_PRICING_ATTR_rec.product_attr_value
596: , x_return_status => l_return_status
597: );
598:
599: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
600:
601: oe_debug_pub.add('failed in logging a delayed request ');
602:
603: RAISE FND_API.G_EXC_ERROR;
599: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
600:
601: oe_debug_pub.add('failed in logging a delayed request ');
602:
603: RAISE FND_API.G_EXC_ERROR;
604:
605: END IF;
606:
607: oe_debug_pub.add('after logging delayed request for duplicate modifiers');
625: p_PRICING_ATTR_rec.PRICING_ATTRIBUTE NOT IN
626: ('PRICING_ATTRIBUTE12','PRICING_ATTRIBUTE13',
627: 'PRICING_ATTRIBUTE14','PRICING_ATTRIBUTE15')) OR -- Bug#2828308
628: p_PRICING_ATTR_rec.PRICING_ATTRIBUTE = 'PRICING_ATTRIBUTE10') THEN
629: l_return_status := FND_API.G_RET_STS_ERROR;
630:
631: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
632: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('PRODUCT_UOM_CODE')); -- Fix For Bug-1974413
633: OE_MSG_PUB.Add;
640: OR p_PRICING_ATTR_rec.product_attr_value IS NULL
641: -- OR p_PRICING_ATTR_rec.product_uom_code IS NULL
642: THEN
643:
644: l_return_status := FND_API.G_RET_STS_ERROR;
645:
646: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
647: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('PRODUCT_ATTRIBUTE')||'/'||
648: QP_PRC_UTIL.Get_Attribute_Name('PRODUCT_ATTR_VALUE')); -- Fix For Bug-1974413
654:
655: IF list_line.modifier_level_code = 'ORDER'
656: THEN
657:
658: l_return_status := FND_API.G_RET_STS_ERROR;
659:
660: FND_MESSAGE.SET_NAME('QP','QP_ORDER_LEVEL_NO_PRODUCT');
661: OE_MSG_PUB.Add;
662:
677:
678: oe_debug_pub.add('error code = '|| to_char(l_error_code));
679: If (l_context_flag = 'N' AND l_error_code = 7) -- invalid context
680: Then
681: l_return_status := FND_API.G_RET_STS_ERROR;
682:
683: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
684: THEN
685:
690: End If;
691:
692: If (l_attribute_flag = 'N' AND l_error_code = 8) -- invalid attribute
693: Then
694: l_return_status := FND_API.G_RET_STS_ERROR;
695:
696: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
697: THEN
698:
703: End If;
704:
705: If (l_value_flag = 'N' AND l_error_code = 9) -- invalid value
706: Then
707: l_return_status := FND_API.G_RET_STS_ERROR;
708:
709: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
710: THEN
711:
741: l_fna_valid);
742:
743: IF NOT l_fna_valid THEN
744:
745: l_return_status := FND_API.G_RET_STS_ERROR;
746:
747: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
748: THEN
749: FND_MESSAGE.set_name('QP', 'QP_INVALID_CAT_FUNC_PTE');
785: and inventory_item_id = to_number(p_PRICING_ATTR_rec.product_attr_value);
786:
787: EXCEPTION
788: WHEN NO_DATA_FOUND THEN
789: l_return_status := FND_API.G_RET_STS_ERROR;
790:
791: FND_MESSAGE.SET_NAME('QP','QP_INVALID_PROD_UOM');
792: OE_MSG_PUB.Add;
793:
813: IF NOT QP_VALIDATE.Product_Uom(p_PRICING_ATTR_rec.product_uom_code, -- sfiresto 4753707
814: to_number(p_PRICING_ATTR_rec.product_attr_value),
815: l_uom_list_header_id)
816: THEN
817: l_return_status := FND_API.G_RET_STS_ERROR;
818: FND_MESSAGE.SET_NAME('QP','QP_INVALID_PROD_UOM');
819: OE_MSG_PUB.Add;
820: END IF;
821:
834: where uom_code = p_PRICING_ATTR_rec.product_uom_code;
835:
836: EXCEPTION
837: WHEN NO_DATA_FOUND THEN
838: l_return_status := FND_API.G_RET_STS_ERROR;
839:
840: FND_MESSAGE.SET_NAME('QP','QP_INVALID_PROD_UOM');
841: OE_MSG_PUB.Add;
842:
860: OR p_PRICING_ATTR_rec.product_attribute IS NULL
861: OR p_PRICING_ATTR_rec.product_attr_value IS NULL
862: THEN
863:
864: l_return_status := FND_API.G_RET_STS_ERROR;
865:
866: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
867: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('PRODUCT_ATTRIBUTE_CONTEXT')||'/'||
868: QP_PRC_UTIL.Get_Attribute_Name('PRODUCT_ATTRIBUTE')||'/'||
879: AND p_PRICING_ATTR_rec.product_attribute_context = 'ITEM'
880: AND p_PRICING_ATTR_rec.product_attribute <> 'PRICING_ATTRIBUTE1'
881: THEN
882:
883: l_return_status := FND_API.G_RET_STS_ERROR;
884:
885: FND_MESSAGE.SET_NAME('QP','QP_ITEM_MAND_FOR_IUE');
886: OE_MSG_PUB.Add;
887:
899: IF p_PRICING_ATTR_rec.product_attribute_context = 'ITEM'
900: AND p_PRICING_ATTR_rec.product_attribute <> 'PRICING_ATTRIBUTE1'
901: THEN
902:
903: l_return_status := FND_API.G_RET_STS_ERROR;
904:
905: FND_MESSAGE.SET_NAME('QP','QP_ITEM_MAND_FOR_GET');
906: OE_MSG_PUB.Add;
907:
911:
912: IF list_line.list_line_type_code <> 'DIS'
913: THEN
914:
915: l_return_status := FND_API.G_RET_STS_ERROR;
916:
917: FND_MESSAGE.SET_NAME('QP','QP_GET_MUST_BE_DISCOUNT');
918: OE_MSG_PUB.Add;
919:
932: IF l_dummy_3 is not null THEN
933: IF list_line.list_line_type_code <> 'RLTD'
934: THEN
935:
936: l_return_status := FND_API.G_RET_STS_ERROR;
937:
938: FND_MESSAGE.SET_NAME('QP','QP_ADD_MUST_BE_RELATED');
939: OE_MSG_PUB.Add;
940:
986: oe_debug_pub.add('prece 22 ');
987: --changes by spgopal for bug 1466254
988: --precedence is mandatory for pricing attribute records to exclude product
989: if p_PRICING_ATTR_rec.excluder_flag = 'N' then
990: l_return_status := FND_API.G_RET_STS_ERROR;
991:
992: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
993: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('PRODUCT_PRECEDENCE')); -- Fix For Bug-1974413
994: OE_MSG_PUB.Add;
1002: IF list_line.price_break_type_code = 'RECURRING'
1003: AND p_PRICING_ATTR_rec.comparison_operator_code <> '='
1004: THEN
1005:
1006: l_return_status := FND_API.G_RET_STS_ERROR;
1007:
1008: FND_MESSAGE.SET_NAME('QP','QP_RECUR_OPER_MUST_BE_EQUL');
1009: OE_MSG_PUB.Add;
1010:
1016: OR list_line.price_break_type_code = 'RANGE')
1017: AND p_PRICING_ATTR_rec.comparison_operator_code <> 'BETWEEN'
1018: THEN
1019:
1020: l_return_status := FND_API.G_RET_STS_ERROR;
1021:
1022: FND_MESSAGE.SET_NAME('QP','QP_POINT_RANGE_OPER_BETWEEN');
1023: OE_MSG_PUB.Add;
1024:
1034: OR p_PRICING_ATTR_rec.comparison_operator_code IS NULL )
1035: THEN
1036:
1037: oe_debug_pub.add('I am herrrrr');
1038: l_return_status := FND_API.G_RET_STS_ERROR;
1039:
1040: FND_MESSAGE.SET_NAME('QP','QP_BETW_MAND_FOR_VOLUME');
1041: OE_MSG_PUB.Add;
1042:
1068: AND list_line.product_precedence IS NULL
1069: THEN
1070:
1071: oe_debug_pub.add('prece 33 ');
1072: l_return_status := FND_API.G_RET_STS_ERROR;
1073:
1074: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
1075: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Precedence');
1076: OE_MSG_PUB.Add;
1083: OR l_primary_list_line_type_code = 'PRG')
1084: AND list_line.proration_type_code IS NULL
1085: THEN
1086:
1087: l_return_status := FND_API.G_RET_STS_ERROR;
1088:
1089: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
1090: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('PRORATION_TYPE_CODE')); -- Fix For Bug-1974413
1091: OE_MSG_PUB.Add;
1099: OR list_line.list_line_type_code = 'SUR')
1100: AND list_line.proration_type_code IS NULL
1101: THEN
1102:
1103: l_return_status := FND_API.G_RET_STS_ERROR;
1104:
1105: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
1106: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('PRORATION_TYPE_CODE')); -- Fix For Bug-1974413
1107: OE_MSG_PUB.Add;
1120: ,p_error_code => l_error_code);
1121:
1122: IF (l_error_code <> 0 ) -- invalid context
1123: THEN
1124: l_return_status := FND_API.G_RET_STS_ERROR;
1125:
1126: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
1127: THEN
1128:
1139: IF p_PRICING_ATTR_rec.pricing_attribute_context = 'VOLUME'
1140: AND list_line.price_break_type_code IS NULL
1141: THEN
1142:
1143: l_return_status := FND_API.G_RET_STS_ERROR;
1144:
1145: FND_MESSAGE.SET_NAME('QP','QP_BREAK_MAND_FOR_VOLUME');
1146: OE_MSG_PUB.Add;
1147:
1158: ,p_error_code => l_error_code);
1159:
1160: IF (l_error_code <> 0 ) -- invalid context
1161: THEN
1162: l_return_status := FND_API.G_RET_STS_ERROR;
1163:
1164: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
1165: THEN
1166:
1176: AND list_line.list_line_type_code = 'RLTD'
1177: AND p_PRICING_ATTR_rec.comparison_operator_code <> 'BETWEEN'
1178: THEN
1179:
1180: l_return_status := FND_API.G_RET_STS_ERROR;
1181:
1182: FND_MESSAGE.SET_NAME('QP','QP_BREAK_MAND_FOR_VOLUME');
1183: OE_MSG_PUB.Add;
1184:
1206: );
1207:
1208: If (l_context_flag = 'N' AND l_error_code = 9) -- invalid value
1209: Then
1210: l_return_status := FND_API.G_RET_STS_ERROR;
1211:
1212: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
1213: THEN
1214:
1230: IF p_PRICING_ATTR_rec.pricing_attr_value_to IS NOT NULL
1231: AND list_line.price_break_type_code = 'RECURRING'
1232: THEN
1233:
1234: l_return_status := FND_API.G_RET_STS_ERROR;
1235:
1236: FND_MESSAGE.SET_NAME('QP','QP_VALUE_TO_NOT_WITH_RECUR');
1237: OE_MSG_PUB.Add;
1238:
1253:
1254: oe_debug_pub.add('to error = '||to_char(l_error_code));
1255: If (l_error_code = 9) -- invalid value
1256: Then
1257: l_return_status := FND_API.G_RET_STS_ERROR;
1258:
1259: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
1260: THEN
1261:
1288: AND PRICING_ATTRIBUTE_CONTEXT <> 'VOLUME';
1289:
1290: IF nvl(l_no_pricing_attr,0) = 1
1291: THEN
1292: l_return_status := FND_API.G_RET_STS_ERROR;
1293:
1294: FND_MESSAGE.SET_NAME('QP','QP_1_PRICING_ATTR_FOR_BASIC');
1295: OE_MSG_PUB.Add;
1296:
1307: END IF; -- list_line_type_code <> 'PMR'
1308:
1309: -- Return Error if a required attribute is missing.
1310:
1311: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1312:
1313: RAISE FND_API.G_EXC_ERROR;
1314:
1315: END IF;
1309: -- Return Error if a required attribute is missing.
1310:
1311: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1312:
1313: RAISE FND_API.G_EXC_ERROR;
1314:
1315: END IF;
1316:
1317: END LOOP;
1440: oe_debug_pub.add('END Entity in QPXLPRAB');
1441:
1442: EXCEPTION
1443:
1444: WHEN FND_API.G_EXC_ERROR THEN
1445:
1446: x_return_status := FND_API.G_RET_STS_ERROR;
1447: oe_debug_pub.add('EXP error');
1448:
1442: EXCEPTION
1443:
1444: WHEN FND_API.G_EXC_ERROR THEN
1445:
1446: x_return_status := FND_API.G_RET_STS_ERROR;
1447: oe_debug_pub.add('EXP error');
1448:
1449: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1450:
1445:
1446: x_return_status := FND_API.G_RET_STS_ERROR;
1447: oe_debug_pub.add('EXP error');
1448:
1449: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1450:
1451: oe_debug_pub.add('EXP unexpect error');
1452: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1453:
1448:
1449: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1450:
1451: oe_debug_pub.add('EXP unexpect error');
1452: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1453:
1454: WHEN OTHERS THEN
1455:
1456: oe_debug_pub.add('EXP others');
1453:
1454: WHEN OTHERS THEN
1455:
1456: oe_debug_pub.add('EXP others');
1457: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1458:
1459: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1460: THEN
1461: OE_MSG_PUB.Add_Exc_Msg
1478: BEGIN
1479:
1480: oe_debug_pub.add('BEGIN Attributes in QPXLPRAB');
1481:
1482: x_return_status := FND_API.G_RET_STS_SUCCESS;
1483:
1484: -- Validate PRICING_ATTR attributes
1485:
1486: IF p_PRICING_ATTR_rec.accumulate_flag IS NOT NULL AND
1488: p_old_PRICING_ATTR_rec.accumulate_flag OR
1489: p_old_PRICING_ATTR_rec.accumulate_flag IS NULL )
1490: THEN
1491: IF NOT QP_Validate.Accumulate(p_PRICING_ATTR_rec.accumulate_flag) THEN
1492: x_return_status := FND_API.G_RET_STS_ERROR;
1493: END IF;
1494: END IF;
1495:
1496: IF p_PRICING_ATTR_rec.attribute_grouping_no IS NOT NULL AND
1498: p_old_PRICING_ATTR_rec.attribute_grouping_no OR
1499: p_old_PRICING_ATTR_rec.attribute_grouping_no IS NULL )
1500: THEN
1501: IF NOT QP_Validate.Attribute_Grouping_No(p_PRICING_ATTR_rec.attribute_grouping_no) THEN
1502: x_return_status := FND_API.G_RET_STS_ERROR;
1503: END IF;
1504: END IF;
1505:
1506: IF p_PRICING_ATTR_rec.created_by IS NOT NULL AND
1508: p_old_PRICING_ATTR_rec.created_by OR
1509: p_old_PRICING_ATTR_rec.created_by IS NULL )
1510: THEN
1511: IF NOT QP_Validate.Created_By(p_PRICING_ATTR_rec.created_by) THEN
1512: x_return_status := FND_API.G_RET_STS_ERROR;
1513: END IF;
1514: END IF;
1515:
1516: IF p_PRICING_ATTR_rec.creation_date IS NOT NULL AND
1518: p_old_PRICING_ATTR_rec.creation_date OR
1519: p_old_PRICING_ATTR_rec.creation_date IS NULL )
1520: THEN
1521: IF NOT QP_Validate.Creation_Date(p_PRICING_ATTR_rec.creation_date) THEN
1522: x_return_status := FND_API.G_RET_STS_ERROR;
1523: END IF;
1524: END IF;
1525:
1526: IF p_PRICING_ATTR_rec.excluder_flag IS NOT NULL AND
1528: p_old_PRICING_ATTR_rec.excluder_flag OR
1529: p_old_PRICING_ATTR_rec.excluder_flag IS NULL )
1530: THEN
1531: IF NOT QP_Validate.Excluder(p_PRICING_ATTR_rec.excluder_flag) THEN
1532: x_return_status := FND_API.G_RET_STS_ERROR;
1533: END IF;
1534: END IF;
1535:
1536: IF p_PRICING_ATTR_rec.last_updated_by IS NOT NULL AND
1538: p_old_PRICING_ATTR_rec.last_updated_by OR
1539: p_old_PRICING_ATTR_rec.last_updated_by IS NULL )
1540: THEN
1541: IF NOT QP_Validate.Last_Updated_By(p_PRICING_ATTR_rec.last_updated_by) THEN
1542: x_return_status := FND_API.G_RET_STS_ERROR;
1543: END IF;
1544: END IF;
1545:
1546: IF p_PRICING_ATTR_rec.last_update_date IS NOT NULL AND
1548: p_old_PRICING_ATTR_rec.last_update_date OR
1549: p_old_PRICING_ATTR_rec.last_update_date IS NULL )
1550: THEN
1551: IF NOT QP_Validate.Last_Update_Date(p_PRICING_ATTR_rec.last_update_date) THEN
1552: x_return_status := FND_API.G_RET_STS_ERROR;
1553: END IF;
1554: END IF;
1555:
1556: IF p_PRICING_ATTR_rec.last_update_login IS NOT NULL AND
1558: p_old_PRICING_ATTR_rec.last_update_login OR
1559: p_old_PRICING_ATTR_rec.last_update_login IS NULL )
1560: THEN
1561: IF NOT QP_Validate.Last_Update_Login(p_PRICING_ATTR_rec.last_update_login) THEN
1562: x_return_status := FND_API.G_RET_STS_ERROR;
1563: END IF;
1564: END IF;
1565:
1566: IF p_PRICING_ATTR_rec.list_line_id IS NOT NULL AND
1568: p_old_PRICING_ATTR_rec.list_line_id OR
1569: p_old_PRICING_ATTR_rec.list_line_id IS NULL )
1570: THEN
1571: IF NOT QP_Validate.List_Line(p_PRICING_ATTR_rec.list_line_id) THEN
1572: x_return_status := FND_API.G_RET_STS_ERROR;
1573: END IF;
1574: END IF;
1575:
1576: IF p_PRICING_ATTR_rec.pricing_attribute IS NOT NULL AND
1578: p_old_PRICING_ATTR_rec.pricing_attribute OR
1579: p_old_PRICING_ATTR_rec.pricing_attribute IS NULL )
1580: THEN
1581: IF NOT QP_Validate.Pricing_Attribute(p_PRICING_ATTR_rec.pricing_attribute) THEN
1582: x_return_status := FND_API.G_RET_STS_ERROR;
1583: END IF;
1584: END IF;
1585:
1586: IF p_PRICING_ATTR_rec.pricing_attribute_context IS NOT NULL AND
1588: p_old_PRICING_ATTR_rec.pricing_attribute_context OR
1589: p_old_PRICING_ATTR_rec.pricing_attribute_context IS NULL )
1590: THEN
1591: IF NOT QP_Validate.Pricing_Attribute_Context(p_PRICING_ATTR_rec.pricing_attribute_context) THEN
1592: x_return_status := FND_API.G_RET_STS_ERROR;
1593: END IF;
1594: END IF;
1595:
1596: IF p_PRICING_ATTR_rec.pricing_attribute_id IS NOT NULL AND
1598: p_old_PRICING_ATTR_rec.pricing_attribute_id OR
1599: p_old_PRICING_ATTR_rec.pricing_attribute_id IS NULL )
1600: THEN
1601: IF NOT QP_Validate.Pricing_Attribute(p_PRICING_ATTR_rec.pricing_attribute_id) THEN
1602: x_return_status := FND_API.G_RET_STS_ERROR;
1603: END IF;
1604: END IF;
1605:
1606: IF p_PRICING_ATTR_rec.pricing_attr_value_from IS NOT NULL AND
1608: p_old_PRICING_ATTR_rec.pricing_attr_value_from OR
1609: p_old_PRICING_ATTR_rec.pricing_attr_value_from IS NULL )
1610: THEN
1611: IF NOT QP_Validate.Pricing_Attr_Value_From(p_PRICING_ATTR_rec.pricing_attr_value_from) THEN
1612: x_return_status := FND_API.G_RET_STS_ERROR;
1613: END IF;
1614: END IF;
1615:
1616: IF p_PRICING_ATTR_rec.pricing_attr_value_to IS NOT NULL AND
1618: p_old_PRICING_ATTR_rec.pricing_attr_value_to OR
1619: p_old_PRICING_ATTR_rec.pricing_attr_value_to IS NULL )
1620: THEN
1621: IF NOT QP_Validate.Pricing_Attr_Value_To(p_PRICING_ATTR_rec.pricing_attr_value_to) THEN
1622: x_return_status := FND_API.G_RET_STS_ERROR;
1623: END IF;
1624: END IF;
1625:
1626: IF p_PRICING_ATTR_rec.product_attribute IS NOT NULL AND
1628: p_old_PRICING_ATTR_rec.product_attribute OR
1629: p_old_PRICING_ATTR_rec.product_attribute IS NULL )
1630: THEN
1631: IF NOT QP_Validate.Product_Attribute(p_PRICING_ATTR_rec.product_attribute) THEN
1632: x_return_status := FND_API.G_RET_STS_ERROR;
1633: END IF;
1634: END IF;
1635:
1636: IF p_PRICING_ATTR_rec.product_attribute_context IS NOT NULL AND
1638: p_old_PRICING_ATTR_rec.product_attribute_context OR
1639: p_old_PRICING_ATTR_rec.product_attribute_context IS NULL )
1640: THEN
1641: IF NOT QP_Validate.Product_Attribute_Context(p_PRICING_ATTR_rec.product_attribute_context) THEN
1642: x_return_status := FND_API.G_RET_STS_ERROR;
1643: END IF;
1644: END IF;
1645:
1646: IF p_PRICING_ATTR_rec.product_attr_value IS NOT NULL AND
1648: p_old_PRICING_ATTR_rec.product_attr_value OR
1649: p_old_PRICING_ATTR_rec.product_attr_value IS NULL )
1650: THEN
1651: IF NOT QP_Validate.Product_Attr_Value(p_PRICING_ATTR_rec.product_attr_value) THEN
1652: x_return_status := FND_API.G_RET_STS_ERROR;
1653: END IF;
1654: END IF;
1655:
1656: IF p_PRICING_ATTR_rec.product_uom_code IS NOT NULL AND
1658: p_old_PRICING_ATTR_rec.product_uom_code OR
1659: p_old_PRICING_ATTR_rec.product_uom_code IS NULL )
1660: THEN
1661: IF NOT QP_Validate.Product_Uom(p_PRICING_ATTR_rec.product_uom_code) THEN
1662: x_return_status := FND_API.G_RET_STS_ERROR;
1663: END IF;
1664: END IF;
1665:
1666: IF p_PRICING_ATTR_rec.program_application_id IS NOT NULL AND
1668: p_old_PRICING_ATTR_rec.program_application_id OR
1669: p_old_PRICING_ATTR_rec.program_application_id IS NULL )
1670: THEN
1671: IF NOT QP_Validate.Program_Application(p_PRICING_ATTR_rec.program_application_id) THEN
1672: x_return_status := FND_API.G_RET_STS_ERROR;
1673: END IF;
1674: END IF;
1675:
1676: IF p_PRICING_ATTR_rec.program_id IS NOT NULL AND
1678: p_old_PRICING_ATTR_rec.program_id OR
1679: p_old_PRICING_ATTR_rec.program_id IS NULL )
1680: THEN
1681: IF NOT QP_Validate.Program(p_PRICING_ATTR_rec.program_id) THEN
1682: x_return_status := FND_API.G_RET_STS_ERROR;
1683: END IF;
1684: END IF;
1685:
1686: IF p_PRICING_ATTR_rec.program_update_date IS NOT NULL AND
1688: p_old_PRICING_ATTR_rec.program_update_date OR
1689: p_old_PRICING_ATTR_rec.program_update_date IS NULL )
1690: THEN
1691: IF NOT QP_Validate.Program_Update_Date(p_PRICING_ATTR_rec.program_update_date) THEN
1692: x_return_status := FND_API.G_RET_STS_ERROR;
1693: END IF;
1694: END IF;
1695:
1696: IF p_PRICING_ATTR_rec.request_id IS NOT NULL AND
1698: p_old_PRICING_ATTR_rec.request_id OR
1699: p_old_PRICING_ATTR_rec.request_id IS NULL )
1700: THEN
1701: IF NOT QP_Validate.Request(p_PRICING_ATTR_rec.request_id) THEN
1702: x_return_status := FND_API.G_RET_STS_ERROR;
1703: END IF;
1704: END IF;
1705:
1706: IF p_PRICING_ATTR_rec.product_attribute_datatype IS NOT NULL AND
1708: p_old_PRICING_ATTR_rec.product_attribute_datatype OR
1709: p_old_PRICING_ATTR_rec.product_attribute_datatype IS NULL )
1710: THEN
1711: IF NOT QP_Validate.Product_Attribute_Datatype(p_PRICING_ATTR_rec.product_attribute_datatype) THEN
1712: x_return_status := FND_API.G_RET_STS_ERROR;
1713: END IF;
1714: END IF;
1715:
1716: IF p_PRICING_ATTR_rec.pricing_attribute_datatype IS NOT NULL AND
1718: p_old_PRICING_ATTR_rec.pricing_attribute_datatype OR
1719: p_old_PRICING_ATTR_rec.pricing_attribute_datatype IS NULL )
1720: THEN
1721: IF NOT QP_Validate.Pricing_Attribute_Datatype(p_PRICING_ATTR_rec.pricing_attribute_datatype) THEN
1722: x_return_status := FND_API.G_RET_STS_ERROR;
1723: END IF;
1724: END IF;
1725:
1726: IF p_PRICING_ATTR_rec.comparison_operator_code IS NOT NULL AND
1728: p_old_PRICING_ATTR_rec.comparison_operator_code OR
1729: p_old_PRICING_ATTR_rec.comparison_operator_code IS NULL )
1730: THEN
1731: IF NOT QP_Validate.Comparison_Operator(p_PRICING_ATTR_rec.comparison_operator_code) THEN
1732: x_return_status := FND_API.G_RET_STS_ERROR;
1733: END IF;
1734: END IF;
1735:
1736: IF (p_PRICING_ATTR_rec.attribute1 IS NOT NULL AND
1870:
1871: -- Validate descriptive flexfield.
1872:
1873: IF NOT QP_Validate.Desc_Flex( 'PRICING_ATTR' ) THEN
1874: x_return_status := FND_API.G_RET_STS_ERROR;
1875: END IF;
1876:
1877: END IF;
1878:
1881: oe_debug_pub.add('END Attributes in QPXLPRAB');
1882:
1883: EXCEPTION
1884:
1885: WHEN FND_API.G_EXC_ERROR THEN
1886:
1887: x_return_status := FND_API.G_RET_STS_ERROR;
1888:
1889: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1883: EXCEPTION
1884:
1885: WHEN FND_API.G_EXC_ERROR THEN
1886:
1887: x_return_status := FND_API.G_RET_STS_ERROR;
1888:
1889: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1890:
1891: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1885: WHEN FND_API.G_EXC_ERROR THEN
1886:
1887: x_return_status := FND_API.G_RET_STS_ERROR;
1888:
1889: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1890:
1891: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1892:
1893: WHEN OTHERS THEN
1887: x_return_status := FND_API.G_RET_STS_ERROR;
1888:
1889: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1890:
1891: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1892:
1893: WHEN OTHERS THEN
1894:
1895: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1891: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1892:
1893: WHEN OTHERS THEN
1894:
1895: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1896:
1897: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1898: THEN
1899: OE_MSG_PUB.Add_Exc_Msg
1910: ( x_return_status OUT NOCOPY VARCHAR2
1911: , p_PRICING_ATTR_rec IN QP_Modifiers_PUB.Pricing_Attr_Rec_Type
1912: )
1913: IS
1914: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1915: BEGIN
1916:
1917: oe_debug_pub.add('BEGIN Entity_Delete in QPXLPRAB');
1918:
1934: oe_debug_pub.add('END Entity_Delete in QPXLPRAB');
1935:
1936: EXCEPTION
1937:
1938: WHEN FND_API.G_EXC_ERROR THEN
1939:
1940: x_return_status := FND_API.G_RET_STS_ERROR;
1941:
1942: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1936: EXCEPTION
1937:
1938: WHEN FND_API.G_EXC_ERROR THEN
1939:
1940: x_return_status := FND_API.G_RET_STS_ERROR;
1941:
1942: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1943:
1944: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1938: WHEN FND_API.G_EXC_ERROR THEN
1939:
1940: x_return_status := FND_API.G_RET_STS_ERROR;
1941:
1942: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1943:
1944: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1945:
1946: WHEN OTHERS THEN
1940: x_return_status := FND_API.G_RET_STS_ERROR;
1941:
1942: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1943:
1944: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1945:
1946: WHEN OTHERS THEN
1947:
1948: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1944: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1945:
1946: WHEN OTHERS THEN
1947:
1948: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1949:
1950: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1951: THEN
1952: OE_MSG_PUB.Add_Exc_Msg