[Home] [Help]
67: THEN
68:
69: l_return_status := FND_API.G_RET_STS_ERROR;
70:
71: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
72: THEN
73:
74: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
75: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','list line id');
72: THEN
73:
74: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
75: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','list line id');
76: OE_MSG_PUB.Add;
77:
78: END IF;
79:
80: END IF;
94:
95: l_return_status := FND_API.G_RET_STS_ERROR;
96:
97: FND_MESSAGE.SET_NAME('QP','QP_CANNOT_UPDATE_LIST_LINE_TYP');
98: OE_MSG_PUB.Add;
99:
100: END IF;
101:
102: IF p_old_MODIFIERS_rec.modifier_level_code IS NOT NULL
106:
107: l_return_status := FND_API.G_RET_STS_ERROR;
108:
109: FND_MESSAGE.SET_NAME('QP','QP_CANNOT_UPDATE_MOD_LVL');
110: OE_MSG_PUB.Add;
111:
112: END IF;
113:
114: IF p_old_MODIFIERS_rec.list_line_no IS NOT NULL
118:
119: l_return_status := FND_API.G_RET_STS_ERROR;
120:
121: FND_MESSAGE.SET_NAME('QP','QP_CANNOT_UPDATE_LIST_LINE_NO');
122: OE_MSG_PUB.Add;
123:
124: END IF;
125: IF (p_old_MODIFIERS_rec.proration_type_code IS NOT NULL OR
126: p_old_MODIFIERS_rec.list_line_type_code = 'FREIGHT_CHARGE')
131:
132: FND_MESSAGE.SET_NAME('QP','QP_CANNOT_UPDATE_ATTRIBUTE');
133: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Proration Type Code');
134:
135: OE_MSG_PUB.Add;
136:
137: END IF;
138: END IF;
139:
168: l_return_status := FND_API.G_RET_STS_ERROR;
169:
170: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
171: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('LIST_LINE_TYPE_CODE')); -- Fix For Bug-1974413
172: OE_MSG_PUB.Add;
173:
174: END IF;
175:
176: IF l_gsa_indicator IS NULL
196: oe_debug_pub.add('list line type code invalid');
197: l_return_status := FND_API.G_RET_STS_ERROR;
198:
199: FND_MESSAGE.SET_NAME('QP','QP_INVALID_LIST_LINE_TYPE');
200: OE_MSG_PUB.Add;
201:
202: END IF;
203:
204: -- For bug 2363065, raise the error in basic pricing if not called from FTE
215: oe_debug_pub.add('list line type code invalid');
216: l_return_status := FND_API.G_RET_STS_ERROR;
217:
218: FND_MESSAGE.SET_NAME('QP','QP_INVALID_LIST_LINE_TYPE');
219: OE_MSG_PUB.Add;
220:
221: END IF;
222: END IF;
223:
230:
231: l_return_status := FND_API.G_RET_STS_ERROR;
232:
233: FND_MESSAGE.SET_NAME('QP','QP_INVALID_LIST_LINE_TYPE');
234: OE_MSG_PUB.Add;
235:
236: END IF;
237: END IF;
238:
264: THEN
265:
266: l_return_status := FND_API.G_RET_STS_ERROR;
267: FND_MESSAGE.SET_NAME('QP','QP_MOD_DATES_WITHIN_MODLIST');
268: OE_MSG_PUB.Add;
269:
270: END IF;
271:
272: IF l_end_date_active IS NOT NULL
275: THEN
276:
277: l_return_status := FND_API.G_RET_STS_ERROR;
278: FND_MESSAGE.SET_NAME('QP','QP_MOD_DATES_WITHIN_MODLIST');
279: OE_MSG_PUB.Add;
280:
281: END IF;
282:
283: IF l_start_date_active IS NOT NULL
286: THEN
287:
288: l_return_status := FND_API.G_RET_STS_ERROR;
289: FND_MESSAGE.SET_NAME('QP','QP_MOD_DATES_WITHIN_MODLIST');
290: OE_MSG_PUB.Add;
291:
292: END IF;
293:
294: IF l_end_date_active IS NOT NULL
297: THEN
298:
299: l_return_status := FND_API.G_RET_STS_ERROR;
300: FND_MESSAGE.SET_NAME('QP','QP_MOD_DATES_WITHIN_MODLIST');
301: OE_MSG_PUB.Add;
302:
303: END IF;
304: END IF; -- list_line_type_code <> 'PMR'
305:
313: THEN
314:
315: l_return_status := FND_API.G_RET_STS_ERROR;
316: FND_MESSAGE.SET_NAME('QP','QP_FRT_CHRG_ALLOW_CHRGS');
317: OE_MSG_PUB.Add;
318:
319: END IF;
320:
321: /* If Ask_For_Flag is entered, list_line_no is mandatory for these list types */
334: THEN
335: l_return_status := FND_API.G_RET_STS_ERROR;
336:
337: FND_MESSAGE.SET_NAME('QP','QP_LIST_NO_MAND_IF_ASK_FOR');
338: OE_MSG_PUB.Add;
339:
340: END IF;
341:
342: /* List_line_no is mandatory for Coupon Issue */
348: THEN
349: l_return_status := FND_API.G_RET_STS_ERROR;
350:
351: FND_MESSAGE.SET_NAME('QP','QP_LIST_NO_MAND_FOR_CIE');
352: OE_MSG_PUB.Add;
353:
354: END IF;
355:
356: --dbms_output.put_line('1');
375: l_return_status := FND_API.G_RET_STS_ERROR;
376:
377: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
378: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('AUTOMATIC_FLAG')); -- Fix For Bug-1974413
379: OE_MSG_PUB.Add;
380:
381: END IF;
382:
383: IF p_MODIFIERS_rec.list_line_type_code <> 'PMR' THEN
389: oe_debug_pub.add('auto flag invalid');
390: l_return_status := FND_API.G_RET_STS_ERROR;
391:
392: FND_MESSAGE.SET_NAME('QP','QP_AUTO_FLAG_Y_OR_N');
393: OE_MSG_PUB.Add;
394:
395: END IF;
396:
397: /* Automatic flag is mandatory for all Benefit lines */
404: l_return_status := FND_API.G_RET_STS_ERROR;
405:
406: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
407: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('AUTOMATIC_FLAG')); -- Fix For Bug-1974413
408: OE_MSG_PUB.Add;
409:
410: END IF;
411:
412: /* Automatic Flag must be Y for OID, PRG, CIE and PBH */
422:
423: l_return_status := FND_API.G_RET_STS_ERROR;
424:
425: FND_MESSAGE.SET_NAME('QP','QP_AUTO_FLAG_MUST_BE_Y');
426: OE_MSG_PUB.Add;
427:
428: END IF;
429:
430: /* Only Discount, Surcharge and Freight Charge can be manual or automatic. Other Discount types can always be automatic */
440:
441: l_return_status := FND_API.G_RET_STS_ERROR;
442:
443: FND_MESSAGE.SET_NAME('QP','QP_DIS_SUR_FREIGHT_MANUAL');
444: OE_MSG_PUB.Add;
445:
446: END IF;
447:
448: END IF; -- list_line_type_code <> 'PMR'
462: l_return_status := FND_API.G_RET_STS_ERROR;
463:
464: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
465: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('MODIFIER_LEVEL_CODE')); --Fix For Bug-1974413
466: OE_MSG_PUB.Add;
467:
468:
469: ELSIF (p_MODIFIERS_rec.modifier_level_code = 'ORDER'
470: AND p_MODIFIERS_rec.pricing_group_sequence IS NOT NULL
475: /* Bug 1957062 Check Bypassed for Basic Pricing */
476:
477: l_return_status := FND_API.G_RET_STS_ERROR;
478: FND_MESSAGE.SET_NAME('QP','QP_ORD_LVL_NULL_BUCKET');
479: OE_MSG_PUB.Add;
480:
481:
482: /* Modifier Level Code can be LINE, ORDER or LINEGROUP */
483:
489: oe_debug_pub.add('modifier level invalid');
490: l_return_status := FND_API.G_RET_STS_ERROR;
491:
492: FND_MESSAGE.SET_NAME('QP','QP_MOD_LVL_LN_LNGRP_OR_ORD');
493: OE_MSG_PUB.Add;
494:
495: END IF;
496:
497: /* Modifier Level Code can be LINE or ORDER for list line type of Freight Charge and Terms Substitution */
504:
505: l_return_status := FND_API.G_RET_STS_ERROR;
506:
507: FND_MESSAGE.SET_NAME('QP','QP_MOD_LVL_LN_OR_ORD');
508: OE_MSG_PUB.Add;
509:
510: END IF;
511:
512: /* Modifier Level Code can be LINE or LINEGROUP for list line type of Price Break Header and Other Item Discount */
523: FND_MESSAGE.SET_NAME('QP','QP_MOD_LVL_LN_OR_LNGRP');
524: ELSE
525: FND_MESSAGE.SET_NAME('QP','QP_MOD_LVL_LN');
526: END IF;
527: OE_MSG_PUB.Add;
528:
529: END IF;
530:
531: /* Modifier Level Code can be LINE for list line type of Item Upgrade */
536:
537: l_return_status := FND_API.G_RET_STS_ERROR;
538:
539: FND_MESSAGE.SET_NAME('QP','QP_MOD_LVL_LN');
540: OE_MSG_PUB.Add;
541:
542: END IF;
543:
544: /* Modifier Level Code can be LINE for GSA discounts */
549:
550: l_return_status := FND_API.G_RET_STS_ERROR;
551:
552: FND_MESSAGE.SET_NAME('QP','QP_MOD_LVL_LN');
553: OE_MSG_PUB.Add;
554:
555: END IF;
556:
557: END IF; -- list_line_type_code <> 'PMR' and list_line_type_code <> 'RLTD'
569: l_return_status := FND_API.G_RET_STS_ERROR;
570:
571: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
572: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('PRICE_BY_FORMULA_ID')); -- Fix For Bug-1974413
573: OE_MSG_PUB.Add;
574:
575: END IF;
576:
577: /* Arithmetic Operator is mandatory for these Qualifier list lines */
589: l_return_status := FND_API.G_RET_STS_ERROR;
590:
591: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
592: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('ARITHMETIC_OPERATOR')); -- Fix For Bug-1974413
593: OE_MSG_PUB.Add;
594:
595: END IF;
596:
597: /* Arithmetic Operator is mandatory for these Benefit list lines */
612: l_return_status := FND_API.G_RET_STS_ERROR;
613:
614: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
615: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('ARITHMETIC_OPERATOR')); -- Fix For Bug-1974413
616: OE_MSG_PUB.Add;
617:
618: END IF;
619:
620: /* For Order level discounts, only lumpsum is allowed for Freight Charge */
627: oe_debug_pub.add('arith op mand');
628: l_return_status := FND_API.G_RET_STS_ERROR;
629:
630: FND_MESSAGE.SET_NAME('QP','QP_LUMPSUM_FOR_ORDER');
631: OE_MSG_PUB.Add;
632:
633: END IF;
634:
635: /* Arithmetic Operators applicable for list line type FREIGHT_CHARGE are % and AMT modified by spgopal also lumpsum for freight charge at line level*/
643:
644: l_return_status := FND_API.G_RET_STS_ERROR;
645:
646: FND_MESSAGE.SET_NAME('QP','QP_DIS_PERCNT_OR_AMT');
647: OE_MSG_PUB.Add;
648:
649: END IF;
650:
651: /* For Order level discounts, only % is allowed for all discounts except for Freight Charge */
658: oe_debug_pub.add('arith op mand');
659: l_return_status := FND_API.G_RET_STS_ERROR;
660:
661: FND_MESSAGE.SET_NAME('QP','QP_PERCENT_FOR_ORDER');
662: OE_MSG_PUB.Add;
663:
664: END IF;
665:
666: /* Operand is mandatory for these Benefit list lines */
682: l_return_status := FND_API.G_RET_STS_ERROR;
683:
684: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
685: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('PRICE_BY_FORMULA_ID')); -- Fix For Bug-1974413
686: OE_MSG_PUB.Add;
687:
688: END IF;
689:
690:
696:
697: l_return_status := FND_API.G_RET_STS_ERROR;
698:
699: FND_MESSAGE.SET_NAME('QP','QP_GSA_NEWPRICE_ONLY');
700: OE_MSG_PUB.Add;
701:
702: END IF;
703:
704: /* Arithmetic Operator can be %, AMT or NEWPRICE */
715: oe_debug_pub.add('arith op invalid');
716: l_return_status := FND_API.G_RET_STS_ERROR;
717:
718: FND_MESSAGE.SET_NAME('QP','QP_DIS_PERCNT_AMT_OR_NEWPRICE');
719: OE_MSG_PUB.Add;
720:
721: END IF;
722: END IF; -- list_line_type_code <> 'PMR'
723:
745: l_return_status := FND_API.G_RET_STS_ERROR;
746:
747: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
748: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('OVERRIDE_FLAG')); -- Fix For Bug-1974413
749: OE_MSG_PUB.Add;
750:
751: END IF;
752:
753: /* Override Flag can be Y or N */
760: oe_debug_pub.add('override flag invalid');
761: l_return_status := FND_API.G_RET_STS_ERROR;
762:
763: FND_MESSAGE.SET_NAME('QP','QP_OVERRIDE_FLAG_Y_OR_N');
764: OE_MSG_PUB.Add;
765:
766: END IF;
767:
768: /* Override flag is mandatory for all Benefit lines */
775: l_return_status := FND_API.G_RET_STS_ERROR;
776:
777: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
778: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('OVERRIDE_FLAG')); -- Fix For Bug-1974413
779: OE_MSG_PUB.Add;
780:
781: END IF;
782:
783: /* Override Flag must be N for OID, PRG, CIE */
793:
794: l_return_status := FND_API.G_RET_STS_ERROR;
795:
796: FND_MESSAGE.SET_NAME('QP','QP_OVERRIDE_FLAG_MUST_BE_N');
797: OE_MSG_PUB.Add;
798:
799:
800: END IF;
801:
822: l_return_status := FND_API.G_RET_STS_ERROR;
823:
824: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
825: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('PRINT_ON_INVOICE_FLAG')); -- Fix For Bug-1974413
826: OE_MSG_PUB.Add;
827:
828: END IF;
829:
830: /* Prine on Invoice Flag can be Y or N *//*
837: oe_debug_pub.add('print flag invalid');
838: l_return_status := FND_API.G_RET_STS_ERROR;
839:
840: FND_MESSAGE.SET_NAME('QP','QP_PRNT_INV_FLAG_Y_OR_N');
841: OE_MSG_PUB.Add;
842:
843: END IF;
844:
845: */
858: oe_debug_pub.add('start date after end date');
859: l_return_status := FND_API.G_RET_STS_ERROR;
860:
861: FND_MESSAGE.SET_NAME('QP','QP_STRT_DATE_BFR_END_DATE');
862: OE_MSG_PUB.Add;
863:
864: END IF;
865:
866: --dbms_output.put_line('6');
879: l_return_status := FND_API.G_RET_STS_ERROR;
880:
881: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
882: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Terms Attr and Terms Value');
883: OE_MSG_PUB.Add;
884:
885: END IF;
886:
887: oe_debug_pub.add('before valida subs');
909: If (l_context_flag = 'N' AND l_error_code = 7) -- invalid context
910: Then
911: l_return_status := FND_API.G_RET_STS_ERROR;
912:
913: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
914: THEN
915:
916: FND_MESSAGE.SET_NAME('QP','QP_INVALID_SUBSTITUTION_CONT' );
917: OE_MSG_PUB.Add;
913: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
914: THEN
915:
916: FND_MESSAGE.SET_NAME('QP','QP_INVALID_SUBSTITUTION_CONT' );
917: OE_MSG_PUB.Add;
918: END IF;
919:
920: End If;
921:
922: If (l_attribute_flag = 'N' AND l_error_code = 8) -- invalid attribute
923: Then
924: l_return_status := FND_API.G_RET_STS_ERROR;
925:
926: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
927: THEN
928:
929: FND_MESSAGE.SET_NAME('QP','QP_INVALID_SUBSTITUTION_ATTR' );
930: OE_MSG_PUB.Add;
926: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
927: THEN
928:
929: FND_MESSAGE.SET_NAME('QP','QP_INVALID_SUBSTITUTION_ATTR' );
930: OE_MSG_PUB.Add;
931: END IF;
932:
933: End If;
934:
935: If (l_value_flag = 'N' AND l_error_code = 9) -- invalid value
936: Then
937: l_return_status := FND_API.G_RET_STS_ERROR;
938:
939: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
940: THEN
941:
942: FND_MESSAGE.SET_NAME('QP','QP_INVALID_SUBSTITUTION_VALUE' );
943: OE_MSG_PUB.Add;
939: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
940: THEN
941:
942: FND_MESSAGE.SET_NAME('QP','QP_INVALID_SUBSTITUTION_VALUE' );
943: OE_MSG_PUB.Add;
944: END IF;
945:
946: End If;
947:
969: l_return_status := FND_API.G_RET_STS_ERROR;
970:
971: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
972: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Prod Attr Value and Upgrade Item');
973: OE_MSG_PUB.Add;
974:
975: ELSE
976:
977: BEGIN
992:
993: l_return_status := FND_API.G_RET_STS_ERROR;
994:
995: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ITEM_UPGRD');
996: OE_MSG_PUB.Add;
997:
998: END;
999:
1000: END IF;
1020: --dbms_output.put_line('formula id is applicable with DIS,SUR ');
1021: l_return_status := FND_API.G_RET_STS_ERROR;
1022:
1023: FND_MESSAGE.SET_NAME('QP','QP_DIS_SUR_OR_FRT_FOR_FORMULA');
1024: OE_MSG_PUB.Add;
1025:
1026: END IF;
1027:
1028: /* The Get Condition of OID and PRG cannot have formula attached to it */
1034:
1035: l_return_status := FND_API.G_RET_STS_ERROR;
1036:
1037: FND_MESSAGE.SET_NAME('QP','QP_FORMULA_NOT_IN_GET');
1038: OE_MSG_PUB.Add;
1039:
1040: END IF;
1041:
1042: /* THE CODE BELOW CHANGED BY SPGOPAL === 05/15/00 FOR REASONS AS MENTIONED */
1056: oe_debug_pub.add('arith oper % or AMT invalid');
1057: l_return_status := FND_API.G_RET_STS_ERROR;
1058:
1059: FND_MESSAGE.SET_NAME('QP','QP_DIS_PERCNT_OR_AMT');
1060: OE_MSG_PUB.Add;
1061:
1062: END IF;
1063:
1064: --dbms_output.put_line('9');
1086:
1087: l_return_status := FND_API.G_RET_STS_ERROR;
1088:
1089: FND_MESSAGE.SET_NAME('QP','QP_FORMULA_NOT_FOUND');
1090: OE_MSG_PUB.Add;
1091:
1092: END;
1093: END IF; --price_by_formula_id IS NOT NULL
1094:
1102: --dbms_output.put_line('no operand if formula is given = '|| to_char(p_MODIFIERS_rec.operand));
1103: l_return_status := FND_API.G_RET_STS_ERROR;
1104:
1105: FND_MESSAGE.SET_NAME('QP','QP_OPERAND_OR_FORMULA');
1106: OE_MSG_PUB.Add;
1107: END IF;
1108: */
1109:
1110: oe_debug_pub.add('77');
1122: l_return_status := FND_API.G_RET_STS_ERROR;
1123:
1124: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
1125: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('PRICE_BREAK_TYPE_CODE')); --Fix For Bug-1974413
1126: OE_MSG_PUB.Add;
1127:
1128: END IF;
1129:
1130: END IF; --list_line_type_code = 'PBH'
1142: oe_debug_pub.add('price brek type can be point or range');
1143: l_return_status := FND_API.G_RET_STS_ERROR;
1144:
1145: FND_MESSAGE.SET_NAME('QP','QP_PRCBRK_POINT_OR_RANGE');
1146: OE_MSG_PUB.Add;
1147:
1148: END IF;
1149:
1150:
1161:
1162: l_return_status := FND_API.G_RET_STS_ERROR;
1163:
1164: FND_MESSAGE.SET_NAME('QP','QP_RECURRING_NOT_ALLOWED');
1165: OE_MSG_PUB.Add;
1166:
1167: END IF;
1168: END IF;
1169:
1179:
1180: l_return_status := FND_API.G_RET_STS_ERROR;
1181:
1182: FND_MESSAGE.SET_NAME('QP','QP_LUMPSUM_RECUR_DIS_SUR');
1183: OE_MSG_PUB.Add;
1184:
1185: END IF;
1186:
1187: /* The only price break types allowed for a Qualifier list line are Point and Recurring */
1197:
1198: l_return_status := FND_API.G_RET_STS_ERROR;
1199:
1200: FND_MESSAGE.SET_NAME('QP','QP_BREAK_TYPE_POINT_OR_RECUR');
1201: OE_MSG_PUB.Add;
1202:
1203: END IF;
1204: END IF;
1205:
1215:
1216: l_return_status := FND_API.G_RET_STS_ERROR;
1217:
1218: FND_MESSAGE.SET_NAME('QP','QP_BREAK_TYPE_POINT_OR_RANGE');
1219: OE_MSG_PUB.Add;
1220:
1221: END IF;
1222: END IF;
1223:
1233:
1234: l_return_status := FND_API.G_RET_STS_ERROR;
1235:
1236: FND_MESSAGE.SET_NAME('QP','QP_RECURRING_NOT_ALLOWED');
1237: OE_MSG_PUB.Add;
1238:
1239: END IF;
1240: END IF; --list_line_type_code <> 'PMR'
1241:
1260: l_return_status := FND_API.G_RET_STS_ERROR;
1261:
1262: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
1263: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('PRODUCT_PRECEDENCE')); -- Fix For Bug-1974413
1264: OE_MSG_PUB.Add;
1265:
1266: END IF;
1267:
1268: END IF;
1282: l_return_status := FND_API.G_RET_STS_ERROR;
1283:
1284: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
1285: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Get Price');
1286: OE_MSG_PUB.Add;
1287:
1288: END IF;
1289:
1290: /* JULIN (2738479): PRG benefit price list lines cannot be based on lines whose arithmetic_operator is BLOCK_PRICE or PERCENT_PRICE. */
1307: (l_list_line_type_code <> 'PBH' AND l_qualification_ind NOT IN (2,4,6,8,10,12,14,20,22,28,30))
1308: THEN
1309: l_return_status := FND_API.G_RET_STS_ERROR;
1310: FND_MESSAGE.SET_NAME('QP','QP_INVALID_GET_PRICE_LIST_LINE');
1311: OE_MSG_PUB.Add;
1312: END IF;
1313:
1314:
1315: END IF;
1337: --dbms_output.put_line('either exp date or other 2 values');
1338: l_return_status := FND_API.G_RET_STS_ERROR;
1339:
1340: FND_MESSAGE.SET_NAME('QP','QP_EXP_DATE_OR_EXP_PERIODS');
1341: OE_MSG_PUB.Add;
1342:
1343: END IF;
1344: END IF;
1345:
1355: --dbms_output.put_line('all these 3 values are mandatory');
1356: l_return_status := FND_API.G_RET_STS_ERROR;
1357:
1358: FND_MESSAGE.SET_NAME('QP','QP_EXP_UOM_NUM_STRTDT_MAND');
1359: OE_MSG_PUB.Add;
1360:
1361: END IF;
1362:
1363: IF p_MODIFIERS_rec.expiration_period_uom IS NOT NULL
1378: --dbms_output.put_line('invalid exp uom');
1379: l_return_status := FND_API.G_RET_STS_ERROR;
1380:
1381: FND_MESSAGE.SET_NAME('QP','QP_INVALID_PERIOD_UOM');
1382: OE_MSG_PUB.Add;
1383:
1384: END;
1385:
1386: END IF;
1402: --dbms_output.put_line('estim gl value only for coupons');
1403: l_return_status := FND_API.G_RET_STS_ERROR;
1404:
1405: FND_MESSAGE.SET_NAME('QP','QP_GL_VAL_FOR_CIE_IUE_TSN');
1406: OE_MSG_PUB.Add;
1407:
1408: END IF;
1409: END IF; -- list_line_type_code <> 'PMR'
1410:
1420: l_return_status := FND_API.G_RET_STS_ERROR;
1421:
1422: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
1423: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('ESTIM_ACCRUAL_RATE')); -- Fix For Bug-1974413
1424: OE_MSG_PUB.Add;
1425:
1426: END IF;
1427:
1428: /* Charge Type and Charge Subtype are mandatory for list line type of Freight Charge */
1437: l_return_status := FND_API.G_RET_STS_ERROR;
1438:
1439: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
1440: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Charge Name');
1441: OE_MSG_PUB.Add;
1442:
1443: END IF;
1444:
1445: BEGIN
1483: --dbms_output.put_line('invalid charge and subcharge type');
1484: l_return_status := FND_API.G_RET_STS_ERROR;
1485:
1486: FND_MESSAGE.SET_NAME('QP','QP_INVALID_CHARGE_TYPE_SUBTYPE');
1487: OE_MSG_PUB.Add;
1488:
1489: END;
1490:
1491: END IF;
1508: l_return_status := FND_API.G_RET_STS_ERROR;
1509:
1510: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
1511: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('ACCRUAL_CONVERSION_RATE')); -- Fix For Bug-1974413
1512: OE_MSG_PUB.Add;
1513:
1514: END IF;
1515:
1516: END IF;
1537: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
1538: --FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('BENEFIT_QTY')||'/'||
1539: -- QP_PRC_UTIL.Get_Attribute_Name('BENEFIT_UOM_CODE')); -- Fix For Bug-1974413
1540: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Quantity/UOM'); --Bug No 6010792
1541: OE_MSG_PUB.Add;
1542:
1543: END IF;
1544:
1545: END IF;
1557: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
1558: --FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('BENEFIT_QTY')||'/'||
1559: -- QP_PRC_UTIL.Get_Attribute_Name('BENEFIT_UOM_CODE')); -- Fix For Bug-1974413
1560: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Quantity/UOM'); --Bug No 6010792
1561: OE_MSG_PUB.Add;
1562:
1563: END IF;
1564:
1565: /* Benefit qty is mandatory if benefit uom is entered, for the benefit DIS line of PBH */
1581: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
1582: --FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('BENEFIT_QTY')||'/'||
1583: -- QP_PRC_UTIL.Get_Attribute_Name('BENEFIT_UOM_CODE')); -- Fix For Bug-1974413
1584: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Quantity/UOM'); --Bug No 6010792
1585: OE_MSG_PUB.Add;
1586:
1587: END IF;
1588:
1589: END IF;
1612: --dbms_output.put_line('invalid bene uom');
1613: l_return_status := FND_API.G_RET_STS_ERROR;
1614:
1615: FND_MESSAGE.SET_NAME('QP','QP_INVALID_BENEFIT_UOM');
1616: OE_MSG_PUB.Add;
1617:
1618: END;
1619:
1620: ELSE
1633: --dbms_output.put_line('invalid bene uom');
1634: l_return_status := FND_API.G_RET_STS_ERROR;
1635:
1636: FND_MESSAGE.SET_NAME('QP','QP_INVALID_BENEFIT_UOM');
1637: OE_MSG_PUB.Add;
1638:
1639: END;
1640:
1641: END IF;
1645: benefit_qty_t := 'Benefit quantity';
1646: IF p_MODIFIERS_rec.benefit_qty <= 0 THEN
1647: FND_MESSAGE.SET_NAME('QP','QP_NONZERO_QUANTITY_REQD');
1648: FND_MESSAGE.SET_TOKEN('QUANTITY',benefit_qty_t);
1649: OE_MSG_PUB.Add;
1650: END IF;
1651:
1652: /* Phase is mandatory for these Primary Modifier types */
1653:
1669: l_return_status := FND_API.G_RET_STS_ERROR;
1670:
1671: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
1672: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Phase');
1673: OE_MSG_PUB.Add;
1674:
1675: END IF;
1676:
1677: /* Phase is mandatory for all benefit list lines, except for RLTD */
1686: l_return_status := FND_API.G_RET_STS_ERROR;
1687:
1688: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
1689: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Phase');
1690: OE_MSG_PUB.Add;
1691:
1692: END IF;
1693:
1694: /* Validate the Phase from qp_pricing_phases table */
1712: WHEN NO_DATA_FOUND THEN
1713: l_return_status := FND_API.G_RET_STS_ERROR;
1714:
1715: FND_MESSAGE.SET_NAME('QP','QP_INVALID_PHASE');
1716: OE_MSG_PUB.Add;
1717:
1718: END;
1719:
1720: /* Additional buy products are not allowed for a PRG, with line phase*/
1731: EXCEPTION
1732: WHEN NO_DATA_FOUND THEN */
1733: l_return_status := FND_API.G_RET_STS_ERROR;
1734: FND_MESSAGE.SET_NAME('QP','QP_INVALID_PHASE_RLTD');
1735: OE_MSG_PUB.Add;
1736: -- END;
1737: END IF;
1738:
1739: /* If Additional buy products exists for a PRG,the phase cannot be changed to line phase*/
1753: END;
1754: IF l_rltd_exist = 'Y' THEN
1755: l_return_status := FND_API.G_RET_STS_ERROR;
1756: FND_MESSAGE.SET_NAME('QP','QP_INVALID_PHASE_RLTD');
1757: OE_MSG_PUB.Add;
1758: END IF;
1759: END IF;
1760:
1761: /* Phase with event PRICING should not be attached to modifier types PRG/IUE/OID/TSN/CIE -- Bug#2724502 */
1774: IF l_phase_price_evt = 'Y' THEN
1775: l_return_status := FND_API.G_RET_STS_ERROR;
1776:
1777: FND_MESSAGE.SET_NAME('QP','QP_PHASE_PRICE_EVT_ERROR');
1778: OE_MSG_PUB.Add;
1779:
1780: END IF;
1781: END IF;
1782:
1796: IF l_phase_freeze_set = 'Y' THEN
1797: l_return_status := FND_API.G_RET_STS_ERROR;
1798:
1799: FND_MESSAGE.SET_NAME('QP','QP_PHASE_FREEZE_ERROR');
1800: OE_MSG_PUB.Add;
1801:
1802: END IF;
1803: END IF;
1804:
1810:
1811: l_return_status := FND_API.G_RET_STS_ERROR;
1812:
1813: FND_MESSAGE.SET_NAME('QP','QP_INVALID_PHASE');
1814: OE_MSG_PUB.Add;
1815:
1816: END IF;
1817:
1818: END IF;
1839: oe_debug_pub.add('list line type code invalid');
1840: l_return_status := FND_API.G_RET_STS_ERROR;
1841:
1842: FND_MESSAGE.SET_NAME('QP','QP_ACCRUALS_NOT_ALLOWED');
1843: OE_MSG_PUB.Add;
1844:
1845: END IF;
1846:
1847: /* Accruals not allowed for GSA Discounts */
1852:
1853: l_return_status := FND_API.G_RET_STS_ERROR;
1854:
1855: FND_MESSAGE.SET_NAME('QP','QP_ACCRUALS_NOT_ALLOWED');
1856: OE_MSG_PUB.Add;
1857:
1858: END IF;
1859:
1860: /* Accrual is mandatory for Coupon issue */
1866:
1867: l_return_status := FND_API.G_RET_STS_ERROR;
1868:
1869: FND_MESSAGE.SET_NAME('QP','QP_ACCRUALS_MAND_FOR_CIE');
1870: OE_MSG_PUB.Add;
1871:
1872: END IF;
1873:
1874: /* Accrual flag must be Y when accrual related fields are entered
1890:
1891: l_return_status := FND_API.G_RET_STS_ERROR;
1892:
1893: FND_MESSAGE.SET_NAME('QP','QP_ACCRUAL_COLUMNS');
1894: OE_MSG_PUB.Add;
1895:
1896: END IF;
1897:
1898: */
1909: l_return_status := FND_API.G_RET_STS_ERROR;
1910:
1911: FND_MESSAGE.SET_NAME('QP','QP_ACCRUALS_FOR_DIS_ONLY');
1912:
1913: OE_MSG_PUB.Add;
1914:
1915: END IF;
1916:
1917: /* Proration is mandatory for these Primary Modifier types */
1930: l_return_status := FND_API.G_RET_STS_ERROR;
1931:
1932: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
1933: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('PRORATION_TYPE_CODE')); -- Fix For Bug-1974413
1934: OE_MSG_PUB.Add;
1935:
1936: END IF;
1937:
1938: /* Proration type code must be 'N' for GSA Discounts */
1943:
1944: l_return_status := FND_API.G_RET_STS_ERROR;
1945:
1946: FND_MESSAGE.SET_NAME('QP','QP_GSA_PRORATION_ALWAYS_N');
1947: OE_MSG_PUB.Add;
1948:
1949: END IF;
1950:
1951: IF ( p_MODIFIERS_rec.list_line_type_code = 'IUE' OR
1960: l_return_status := FND_API.G_RET_STS_ERROR;
1961:
1962: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
1963: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('PRORATION_TYPE_CODE')); -- Fix For Bug-1974413
1964: OE_MSG_PUB.Add;
1965:
1966: END IF;
1967:
1968:
1978: l_return_status := FND_API.G_RET_STS_ERROR;
1979:
1980: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
1981: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('PRORATION_TYPE_CODE')); -- Fix For Bug-1974413
1982: OE_MSG_PUB.Add;
1983:
1984: END IF;
1985:
1986: /* If the Primary line is a Price Break Header and the Child lines are DIS or SUR, proration type code is mandatory */
1995: l_return_status := FND_API.G_RET_STS_ERROR;
1996:
1997: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
1998: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('PRORATION_TYPE_CODE')); -- Fix For Bug-1974413
1999: OE_MSG_PUB.Add;
2000:
2001: END IF;
2002:
2003: /* If the Primary line is a Coupon Issue, the Child lines must be DIS or PRG */
2009:
2010: l_return_status := FND_API.G_RET_STS_ERROR;
2011:
2012: FND_MESSAGE.SET_NAME('QP','QP_CIE_CHILD_DIS_OR_PRG');
2013: OE_MSG_PUB.Add;
2014:
2015: END IF;
2016:
2017: /* If the Primary line is a Price Break Header, the child lines must be DIS or SUR */
2027:
2028: l_return_status := FND_API.G_RET_STS_ERROR;
2029:
2030: FND_MESSAGE.SET_NAME('QP','QP_PBH_CHILD_DIS_OR_SUR');
2031: OE_MSG_PUB.Add;
2032:
2033: END IF;
2034:
2035: /* Pricing Group Sequence is --not-- mandatory for these Primary Modifier types */
2050: l_return_status := FND_API.G_RET_STS_ERROR;
2051:
2052: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
2053: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Bucket');
2054: OE_MSG_PUB.Add;
2055:
2056: END IF;
2057: */
2058:
2064:
2065: l_return_status := FND_API.G_RET_STS_ERROR;
2066:
2067: FND_MESSAGE.SET_NAME('QP','QP_GSA_BUCKET_VALUE_1');
2068: OE_MSG_PUB.Add;
2069:
2070: END IF;
2071:
2072: /* Pricing Group Sequence is --not-- mandatory for all Benefit list lines */
2083: l_return_status := FND_API.G_RET_STS_ERROR;
2084:
2085: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
2086: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Bucket');
2087: OE_MSG_PUB.Add;
2088:
2089: END IF;
2090: */
2091:
2104:
2105: l_return_status := FND_API.G_RET_STS_ERROR;
2106:
2107: FND_MESSAGE.SET_NAME('QP','QP_MANUAL_DIS_BUCKET_NULL');
2108: OE_MSG_PUB.Add;
2109:
2110: END IF;
2111:
2112:
2119:
2120: l_return_status := FND_API.G_RET_STS_ERROR;
2121:
2122: FND_MESSAGE.SET_NAME('QP','QP_GSA_INCOMP_ALWAYS_LVL1');
2123: OE_MSG_PUB.Add;
2124:
2125: END IF;
2126:
2127:
2146: IF (l_error_code <> 0 ) -- invalid context
2147: THEN
2148: l_return_status := FND_API.G_RET_STS_ERROR;
2149:
2150: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
2151: THEN
2152:
2153: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ACCUM_ATTRIBUTE');
2154: OE_MSG_PUB.Add;
2150: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
2151: THEN
2152:
2153: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ACCUM_ATTRIBUTE');
2154: OE_MSG_PUB.Add;
2155: END IF;
2156: END IF;
2157: END IF;
2158:
2228: oe_debug_pub.add('EXP others');
2229: oe_debug_pub.add('error =' || sqlerrm);
2230: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2231:
2232: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2233: THEN
2234: OE_MSG_PUB.Add_Exc_Msg
2235: ( G_PKG_NAME
2236: , 'Entity'
2230: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2231:
2232: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2233: THEN
2234: OE_MSG_PUB.Add_Exc_Msg
2235: ( G_PKG_NAME
2236: , 'Entity'
2237: );
2238: END IF;
2259: --we don't have to check operand value for factor list
2260: AND FND_PROFILE.VALUE('QP_NEGATIVE_PRICING') = 'N' AND p_MODIFIERS_rec.operand < 0
2261: THEN
2262: FND_MESSAGE.SET_NAME('QP','OE_PR_NEGATIVE_AMOUNT');
2263: OE_MSG_PUB.Add;
2264: x_return_status := FND_API.G_RET_STS_ERROR;
2265: END IF;
2266:
2267:
3196: WHEN OTHERS THEN
3197:
3198: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3199:
3200: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3201: THEN
3202: OE_MSG_PUB.Add_Exc_Msg
3203: ( G_PKG_NAME
3204: , 'Attributes'
3198: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3199:
3200: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3201: THEN
3202: OE_MSG_PUB.Add_Exc_Msg
3203: ( G_PKG_NAME
3204: , 'Attributes'
3205: );
3206: END IF;
3250: WHEN OTHERS THEN
3251:
3252: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3253:
3254: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3255: THEN
3256: OE_MSG_PUB.Add_Exc_Msg
3257: ( G_PKG_NAME
3258: , 'Entity_Delete'
3252: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3253:
3254: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3255: THEN
3256: OE_MSG_PUB.Add_Exc_Msg
3257: ( G_PKG_NAME
3258: , 'Entity_Delete'
3259: );
3260: END IF;