[Home] [Help]
13: , p_old_PRICING_ATTR_rec IN QP_Price_List_PUB.Pricing_Attr_Rec_Type :=
14: QP_Price_List_PUB.G_MISS_PRICING_ATTR_REC
15: )
16: IS
17: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
18: l_revision VARCHAR2(30);
19: l_start_date_active DATE;
20: l_end_date_active DATE;
21: l_list_header_id NUMBER;
56:
57: IF p_PRICING_ATTR_rec.pricing_attribute_id IS NULL
58: THEN
59:
60: l_return_status := FND_API.G_RET_STS_ERROR;
61:
62: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_ERROR)
63: THEN
64:
77:
78: IF nvl(p_old_PRICING_ATTR_rec.PRODUCT_ATTRIBUTE_CONTEXT,'X') <>
79: nvl(p_PRICING_ATTR_rec.PRODUCT_ATTRIBUTE_CONTEXT,'X')
80: THEN
81: l_return_status := FND_API.G_RET_STS_ERROR;
82:
83: FND_MESSAGE.SET_NAME('QP','QP_CANNOT_UPDATE_ATTRIBUTE');
84: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','product_attribute_context');
85: OE_MSG_PUB.Add;
88:
89: IF nvl(p_old_PRICING_ATTR_rec.PRODUCT_ATTRIBUTE,'X') <>
90: nvl(p_PRICING_ATTR_rec.PRODUCT_ATTRIBUTE,'X')
91: THEN
92: l_return_status := FND_API.G_RET_STS_ERROR;
93:
94: FND_MESSAGE.SET_NAME('QP','QP_CANNOT_UPDATE_ATTRIBUTE');
95: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','product_attribute');
96: OE_MSG_PUB.Add;
99:
100: IF nvl(p_old_PRICING_ATTR_rec.PRODUCT_ATTR_VALUE,9999999) <>
101: nvl(p_PRICING_ATTR_rec.PRODUCT_ATTR_VALUE,9999999)
102: THEN
103: l_return_status := FND_API.G_RET_STS_ERROR;
104:
105: FND_MESSAGE.SET_NAME('QP','QP_CANNOT_UPDATE_ATTRIBUTE');
106: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','product_attr_value');
107: OE_MSG_PUB.Add;
113: --5286339
114:
115: IF p_PRICING_ATTR_rec.list_line_id IS NULL
116: THEN
117: l_return_status := FND_API.G_RET_STS_ERROR;
118:
119: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_ERROR)
120: THEN
121: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
125: END IF;
126:
127: /* IF p_PRICING_ATTR_rec.list_header_id IS NULL
128: THEN
129: l_return_status := FND_API.G_RET_STS_ERROR;
130:
131: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_ERROR)
132: THEN
133: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
137: END IF;
138: */
139: IF p_PRICING_ATTR_rec.pricing_phase_id IS NULL
140: THEN
141: l_return_status := FND_API.G_RET_STS_ERROR;
142:
143: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_ERROR)
144: THEN
145: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
149: END IF;
150:
151: IF p_PRICING_ATTR_rec.excluder_flag IS NULL
152: THEN
153: l_return_status := FND_API.G_RET_STS_ERROR;
154:
155: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_ERROR)
156: THEN
157: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
161: ELSE
162:
163: IF (p_PRICING_ATTR_rec.excluder_flag not in ( 'Y', 'y', 'N', 'n' ) )
164: THEN
165: l_return_status := FND_API.G_RET_STS_ERROR;
166: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_ERROR)
167: THEN
168: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
169: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Excluder Flag');
173: END IF;
174:
175: IF p_PRICING_ATTR_rec.product_attribute_context IS NULL
176: THEN
177: l_return_status := FND_API.G_RET_STS_ERROR;
178:
179: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_ERROR)
180: THEN
181: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
185: END IF;
186:
187: IF p_PRICING_ATTR_rec.product_attribute IS NULL
188: THEN
189: l_return_status := FND_API.G_RET_STS_ERROR;
190:
191: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_ERROR)
192: THEN
193: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
197: END IF;
198:
199: IF p_PRICING_ATTR_rec.product_attr_value IS NULL
200: THEN
201: l_return_status := FND_API.G_RET_STS_ERROR;
202:
203: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_ERROR)
204: THEN
205: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
209: END IF;
210:
211: IF p_PRICING_ATTR_rec.product_attribute_datatype IS NULL
212: THEN
213: l_return_status := FND_API.G_RET_STS_ERROR;
214:
215: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_ERROR)
216: THEN
217: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
221: END IF;
222:
223: IF p_PRICING_ATTR_rec.product_uom_code IS NULL
224: THEN
225: l_return_status := FND_API.G_RET_STS_ERROR;
226:
227: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_ERROR)
228: THEN
229: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
233: END IF;
234:
235: IF p_PRICING_ATTR_rec.attribute_grouping_no IS NULL
236: THEN
237: l_return_status := FND_API.G_RET_STS_ERROR;
238:
239: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_ERROR)
240: THEN
241: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
250:
251:
252: -- Return Error if a required attribute is missing.
253:
254: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
255:
256: RAISE FND_API.G_EXC_ERROR;
257:
258: END IF;
252: -- Return Error if a required attribute is missing.
253:
254: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
255:
256: RAISE FND_API.G_EXC_ERROR;
257:
258: END IF;
259:
260: --
281: l_fna_valid);
282:
283: IF NOT l_fna_valid THEN
284:
285: l_return_status := FND_API.G_RET_STS_ERROR;
286:
287: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
288: THEN
289: FND_MESSAGE.set_name('QP', 'QP_INVALID_CAT_FUNC_PTE');
292: FND_MESSAGE.set_token('SS', l_ss_code);
293: OE_MSG_PUB.Add;
294: END IF;
295:
296: RAISE FND_API.G_EXC_ERROR;
297:
298: END IF;
299:
300: END;
309: WHERE list_line_id = p_PRICING_ATTR_rec.list_line_id;
310:
311: EXCEPTION
312: WHEN OTHERS THEN
313: l_return_status := FND_API.G_RET_STS_ERROR;
314: END;
315:
316: /* Modified by rassharm for Bug No 5457704 to include effective dates check for primary UOM */
317:
391:
392: end loop;
393:
394: IF l_count > 0 THEN
395: l_return_status := FND_API.G_RET_STS_ERROR;
396: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR) THEN
397: FND_MESSAGE.SET_NAME('QP','QP_UNIQUE_PRIMARY_UOM');
398: OE_MSG_PUB.Add;
399: RAISE FND_API.G_EXC_ERROR;
395: l_return_status := FND_API.G_RET_STS_ERROR;
396: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR) THEN
397: FND_MESSAGE.SET_NAME('QP','QP_UNIQUE_PRIMARY_UOM');
398: OE_MSG_PUB.Add;
399: RAISE FND_API.G_EXC_ERROR;
400: END IF;
401: END IF;
402: END IF;
403:
431: FND_MESSAGE.SET_NAME('QP','QP_ITEM_NOT_VALID');
432: FND_MESSAGE.SET_TOKEN('ITEM_ID', p_PRICING_ATTR_rec.product_attr_value);
433: OE_MSG_PUB.Add;
434: END IF;
435: RAISE FND_API.G_EXC_ERROR;
436:
437: when others then
438: null;
439: end;
459: THEN
460: FND_MESSAGE.SET_NAME('QP','QP_INVALID_PROD_UOM');
461: OE_MSG_PUB.Add;
462: END IF;
463: RAISE FND_API.G_EXC_ERROR;
464:
465: WHEN OTHERS THEN
466: null;
467: end;
477: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR) THEN
478: FND_MESSAGE.SET_NAME('QP','QP_INVALID_PROD_UOM');
479: OE_MSG_PUB.Add;
480: END IF;
481: RAISE FND_API.G_EXC_ERROR;
482: END IF;
483: END IF;
484: -- End changes for bug 6891094
485: /*
558: )
559: and rownum = 1;
560: exception
561: WHEN NO_DATA_FOUND THEN
562: x_return_status := FND_API.G_RET_STS_ERROR;
563: FND_MESSAGE.SET_NAME('QP','QP_INVALID_PROD_UOM');
564: OE_MSG_PUB.Add;
565: WHEN OTHERS THEN
566: null;
579: THEN
580: FND_MESSAGE.SET_NAME('QP','QP_INVALID_PROD_UOM');
581: OE_MSG_PUB.Add;
582: END IF;
583: RAISE FND_API.G_EXC_ERROR;
584:
585: WHEN OTHERS THEN
586: null;
587: end;
613: l_count := 0;
614: END;
615:
616: IF l_count > 0 THEN
617: l_return_status := FND_API.G_RET_STS_ERROR;
618: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR) THEN
619: FND_MESSAGE.SET_NAME('QP','QP_UNIQUE_PRIMARY_UOM');
620: OE_MSG_PUB.Add;
621: RAISE FND_API.G_EXC_ERROR;
617: l_return_status := FND_API.G_RET_STS_ERROR;
618: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR) THEN
619: FND_MESSAGE.SET_NAME('QP','QP_UNIQUE_PRIMARY_UOM');
620: OE_MSG_PUB.Add;
621: RAISE FND_API.G_EXC_ERROR;
622: END IF;
623: END IF;
624:
625: END IF;
646: if l_x_rows > 0 THEN
647:
648: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
649: THEN
650: l_return_status := FND_API.G_RET_STS_ERROR;
651: FND_MESSAGE.SET_NAME('QP','QP_DUP_PRICING_ATTR');
652: OE_MSG_PUB.Add;
653: end if;
654: end if;
673: , p_param4 => l_revision
674: , x_return_status => l_return_status
675: );
676:
677: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
678:
679: oe_debug_pub.add('failed in logging a delayed request ');
680:
681: RAISE FND_API.G_EXC_ERROR;
677: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
678:
679: oe_debug_pub.add('failed in logging a delayed request ');
680:
681: RAISE FND_API.G_EXC_ERROR;
682:
683: END IF;
684:
685: oe_debug_pub.add('after logging delayed request ');
694: OR p_Pricing_Attr_rec.pricing_attribute IS NULL
695: OR p_Pricing_Attr_rec.comparison_operator_code IS NULL)
696: THEN
697:
698: l_return_status := FND_API.G_RET_STS_ERROR;
699: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
700: THEN
701: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED' );
702: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('PRICING_ATTRIBUTE_CONTEXT')||'/'||
703: QP_PRC_UTIL.Get_Attribute_Name('PRICING_ATTRIBUTE')||'/'||
704: QP_PRC_UTIL.Get_Attribute_Name('COMPARISON_OPERATOR_CODE')); -- Fix For Bug-1974413
705: OE_MSG_PUB.Add;
706: END IF;
707: RAISE FND_API.G_EXC_ERROR;
708: ELSE
709:
710: IF ( p_Pricing_Attr_rec.comparison_operator_code = 'BETWEEN'
711: AND p_Pricing_Attr_rec.pricing_attribute_datatype is NULL ) THEN
709:
710: IF ( p_Pricing_Attr_rec.comparison_operator_code = 'BETWEEN'
711: AND p_Pricing_Attr_rec.pricing_attribute_datatype is NULL ) THEN
712:
713: l_return_status := FND_API.G_RET_STS_ERROR;
714: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
715: THEN
716: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED' );
717: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Enter Required Values');
716: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED' );
717: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Enter Required Values');
718: OE_MSG_PUB.Add;
719: END IF;
720: RAISE FND_API.G_EXC_ERROR;
721: END IF;
722:
723: QP_UTIL.validate_qp_flexfield(flexfield_name =>'QP_ATTR_DEFNS_PRICING'
724: ,context =>p_Pricing_Attr_rec.pricing_attribute_context
734: );
735:
736: If (l_context_error = 'N' AND l_error_code = 7) -- invalid context
737: Then
738: l_return_status := FND_API.G_RET_STS_ERROR;
739:
740: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
741: THEN
742:
746:
747: OE_MSG_PUB.Add;
748: END IF;
749:
750: RAISE FND_API.G_EXC_ERROR;
751:
752: End If;
753:
754:
759:
760:
761: If l_attribute_error = 'N' AND l_error_code = 8 -- invalid Attribute
762: Then
763: l_return_status := FND_API.G_RET_STS_ERROR;
764:
765: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
766: THEN
767:
769: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',' Attribute');
770: OE_MSG_PUB.Add;
771: END IF;
772:
773: RAISE FND_API.G_EXC_ERROR;
774:
775: End If;
776:
777:
785: IF p_Pricing_Attr_rec.comparison_operator_code = '=' Then
786:
787: If l_value_error = 'N' AND l_error_code = 9 -- invalid value
788: Then
789: l_return_status := FND_API.G_RET_STS_ERROR;
790:
791: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
792: THEN
793:
795: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',' Value From ');
796: --OE_MSG_PUB.Add;
797: OE_MSG_PUB.Add;
798: END IF;
799: RAISE FND_API.G_EXC_ERROR;
800: End If;
801: END IF;
802:
803:
810: --dbms_output.put_line('for precedence'||l_return_status);
811:
812: If p_Pricing_Attr_rec.pricing_attribute_datatype <> l_datatype --- invalid datatype
813: Then
814: l_return_status := FND_API.G_RET_STS_ERROR;
815:
816: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
817: THEN
818: --FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED' );
819: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
820: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Pricing Attribute Datatype ');
821: OE_MSG_PUB.Add;
822: END IF;
823: RAISE FND_API.G_EXC_ERROR;
824:
825: End If;
826:
827: IF p_Pricing_Attr_rec.pricing_attribute_context = 'VOLUME' AND
827: IF p_Pricing_Attr_rec.pricing_attribute_context = 'VOLUME' AND
828: p_Pricing_Attr_rec.pricing_attribute = 'PRICING_ATTRIBUTE12'
829: --When Pricing Context is 'Volume' and Attribute is 'Item Amount'
830: THEN
831: l_return_status := FND_API.G_RET_STS_ERROR;
832:
833: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
834: THEN
835: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
836: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Pricing Attribute');
837: OE_MSG_PUB.Add;
838: END IF;
839:
840: RAISE FND_API.G_EXC_ERROR;
841:
842: END IF;
843:
844:
851:
852: l_error_code:=QP_UTIL.validate_num_date(p_Pricing_Attr_rec.pricing_attribute_datatype, p_Pricing_Attr_rec.pricing_attr_value_from);
853: IF l_error_code <> 0 THEN
854:
855: l_return_status := FND_API.G_RET_STS_ERROR;
856:
857: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
858: THEN
859: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
859: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
860: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Value From ');
861: OE_MSG_PUB.Add;
862: END IF;
863: RAISE FND_API.G_EXC_ERROR;
864:
865: END IF;
866: --dbms_output.put_line('for cano of value from ,'||l_return_status);
867:
874: UPPER(p_Pricing_Attr_rec.comparison_operator_code) = 'BETWEEN' AND
875: (p_Pricing_Attr_rec.pricing_attr_value_to IS NULL OR
876: p_Pricing_Attr_rec.pricing_attr_value_from IS NULL)
877: THEN
878: l_return_status := FND_API.G_RET_STS_ERROR;
879:
880: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
881: THEN
882: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED' );
883: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('PRICING_ATTR_VALUE_TO')||'/'||
884: QP_PRC_UTIL.Get_Attribute_Name('PRICING_ATTR_VALUE_FROM')); -- Fix For Bug-1974413
885: OE_MSG_PUB.Add;
886: END IF;
887: RAISE FND_API.G_EXC_ERROR;
888: END IF;
889:
890: /* Added validation by dhgupta for bug # 1824227 */
891:
893: p_Pricing_Attr_rec.pricing_attribute IS NOT NULL AND
894: UPPER(p_Pricing_Attr_rec.comparison_operator_code) <> 'BETWEEN' AND
895: p_Pricing_Attr_rec.pricing_attr_value_from IS NULL
896: THEN
897: l_return_status := FND_API.G_RET_STS_ERROR;
898:
899: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
900: THEN
901: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED' );
901: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED' );
902: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('PRICING_ATTR_VALUE_FROM')); --Fix For Bug-1974413
903: OE_MSG_PUB.Add;
904: END IF;
905: RAISE FND_API.G_EXC_ERROR;
906: END IF;
907:
908: /* end changes for bug # 1824227 */
909:
911:
912: l_error_code:=QP_UTIL.validate_num_date(p_Pricing_Attr_rec.pricing_attribute_datatype, p_Pricing_Attr_rec.pricing_attr_value_to);
913:
914: IF l_error_code <> 0 THEN
915: l_return_status := FND_API.G_RET_STS_ERROR;
916:
917: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
918: THEN
919: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
919: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
920: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Value To ');
921: OE_MSG_PUB.Add;
922: END IF;
923: RAISE FND_API.G_EXC_ERROR;
924: END IF;
925: --here
926: END IF;
927: END IF;
934: --
935:
936: IF p_Pricing_Attr_rec.comparison_operator_code is null then
937:
938: l_return_status := FND_API.G_RET_STS_ERROR;
939:
940: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
941: THEN
942:
945: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('COMPARISON_OPERATOR_CODE')); --Fix For Bug-1974413
946: OE_MSG_PUB.Add;
947: END IF;
948:
949: RAISE FND_API.G_EXC_ERROR;
950: ELSE
951:
952:
953: SELECT lookup_code
958:
959: If SQL%NOTFOUND
960: Then
961:
962: l_return_status := FND_API.G_RET_STS_ERROR;
963:
964: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
965: THEN
966:
969: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('COMPARISON_OPERATOR_CODE')); -- Fix For Bug-1974413
970: OE_MSG_PUB.Add;
971: END IF;
972:
973: RAISE FND_API.G_EXC_ERROR;
974:
975: End If;
976:
977: END IF; /* comparison_operator_code is null */
1009: );
1010:
1011: If (l_context_error = 'N' AND l_error_code = 7) -- invalid context
1012: Then
1013: l_return_status := FND_API.G_RET_STS_ERROR;
1014:
1015: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
1016: THEN
1017:
1020: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_name('PRICING_ATTRIBUTE_CONTEXT')); --Fix For Bug-1974413
1021: OE_MSG_PUB.Add;
1022: END IF;
1023:
1024: RAISE FND_API.G_EXC_ERROR;
1025:
1026: End If;
1027:
1028:
1033:
1034:
1035: If l_attribute_error = 'N' AND l_error_code = 8 -- invalid Attribute
1036: Then
1037: l_return_status := FND_API.G_RET_STS_ERROR;
1038:
1039: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
1040: THEN
1041:
1043: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',' Attribute');
1044: OE_MSG_PUB.Add;
1045: END IF;
1046:
1047: RAISE FND_API.G_EXC_ERROR;
1048:
1049: End If;
1050:
1051:
1059: IF p_Pricing_Attr_rec.comparison_operator_code = '=' Then
1060:
1061: If l_value_error = 'N' AND l_error_code = 9 -- invalid value
1062: Then
1063: l_return_status := FND_API.G_RET_STS_ERROR;
1064:
1065: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
1066: THEN
1067:
1069: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',' Value From ');
1070: --OE_MSG_PUB.Add;
1071: OE_MSG_PUB.Add;
1072: END IF;
1073: RAISE FND_API.G_EXC_ERROR;
1074: End If;
1075: END IF;
1076:
1077:
1084: --dbms_output.put_line('for precedence'||l_return_status);
1085:
1086: If p_Pricing_Attr_rec.pricing_attribute_datatype <> l_datatype --- invalid datatype
1087: Then
1088: l_return_status := FND_API.G_RET_STS_ERROR;
1089:
1090: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
1091: THEN
1092: --FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED' );
1093: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
1094: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Pricing Attribute Datatype ');
1095: OE_MSG_PUB.Add;
1096: END IF;
1097: RAISE FND_API.G_EXC_ERROR;
1098:
1099: End If;
1100:
1101:
1109:
1110: l_error_code:=QP_UTIL.validate_num_date(p_Pricing_Attr_rec.pricing_attribute_datatype, p_Pricing_Attr_rec.pricing_attr_value_from);
1111: IF l_error_code <> 0 THEN
1112:
1113: l_return_status := FND_API.G_RET_STS_ERROR;
1114:
1115: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
1116: THEN
1117: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
1117: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
1118: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Value From ');
1119: OE_MSG_PUB.Add;
1120: END IF;
1121: RAISE FND_API.G_EXC_ERROR;
1122:
1123: END IF;
1124: --dbms_output.put_line('for cano of value from ,'||l_return_status);
1125:
1132: UPPER(p_Pricing_Attr_rec.comparison_operator_code) = 'BETWEEN' AND
1133: (p_Pricing_Attr_rec.pricing_attr_value_to IS NULL AND
1134: p_Pricing_Attr_rec.pricing_attr_value_from IS NULL)
1135: THEN
1136: l_return_status := FND_API.G_RET_STS_ERROR;
1137:
1138: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
1139: THEN
1140: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED' );
1141: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('PRICING_ATTR_VALUE_TO')||'/'||
1142: QP_PRC_UTIL.Get_Attribute_Name('PRICING_ATTR_VALUE_FROM')); --Fix For Bug-1974413
1143: OE_MSG_PUB.Add;
1144: END IF;
1145: RAISE FND_API.G_EXC_ERROR;
1146: END IF;
1147:
1148: l_error_code:=QP_UTIL.validate_num_date(p_Pricing_Attr_rec.pricing_attribute_datatype, p_Pricing_Attr_rec.pricing_attr_value_to);
1149:
1147:
1148: l_error_code:=QP_UTIL.validate_num_date(p_Pricing_Attr_rec.pricing_attribute_datatype, p_Pricing_Attr_rec.pricing_attr_value_to);
1149:
1150: IF l_error_code <> 0 THEN
1151: l_return_status := FND_API.G_RET_STS_ERROR;
1152:
1153: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
1154: THEN
1155: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
1155: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
1156: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Value To ');
1157: OE_MSG_PUB.Add;
1158: END IF;
1159: RAISE FND_API.G_EXC_ERROR;
1160: END IF;
1161:
1162: end if;
1163: */
1220: --function depending upon the break type
1221: x_return_status => l_return_status
1222: );
1223:
1224: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1225: oe_debug_pub.add('failed in logging a delayed request ');
1226: RAISE FND_API.G_EXC_ERROR;
1227: END IF;
1228:
1222: );
1223:
1224: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1225: oe_debug_pub.add('failed in logging a delayed request ');
1226: RAISE FND_API.G_EXC_ERROR;
1227: END IF;
1228:
1229:
1230: END IF; --IF Price Break Child Lines
1293: EXCEPTION
1294:
1295: WHEN NO_DATA_FOUND THEN
1296:
1297: x_return_status := FND_API.G_RET_STS_ERROR;
1298:
1299: WHEN FND_API.G_EXC_ERROR THEN
1300:
1301: x_return_status := FND_API.G_RET_STS_ERROR;
1295: WHEN NO_DATA_FOUND THEN
1296:
1297: x_return_status := FND_API.G_RET_STS_ERROR;
1298:
1299: WHEN FND_API.G_EXC_ERROR THEN
1300:
1301: x_return_status := FND_API.G_RET_STS_ERROR;
1302:
1303: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1297: x_return_status := FND_API.G_RET_STS_ERROR;
1298:
1299: WHEN FND_API.G_EXC_ERROR THEN
1300:
1301: x_return_status := FND_API.G_RET_STS_ERROR;
1302:
1303: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1304:
1305: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1299: WHEN FND_API.G_EXC_ERROR THEN
1300:
1301: x_return_status := FND_API.G_RET_STS_ERROR;
1302:
1303: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1304:
1305: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1306:
1307: WHEN OTHERS THEN
1301: x_return_status := FND_API.G_RET_STS_ERROR;
1302:
1303: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1304:
1305: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1306:
1307: WHEN OTHERS THEN
1308:
1309: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1305: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1306:
1307: WHEN OTHERS THEN
1308:
1309: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1310:
1311: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
1312: THEN
1313: oe_msg_pub.Add_Exc_Msg
1330: l_pte_code varchar2(30);
1331: l_ss_code varchar2(30);
1332: BEGIN
1333:
1334: x_return_status := FND_API.G_RET_STS_SUCCESS;
1335:
1336: -- Validate PRICING_ATTR attributes
1337:
1338: IF p_PRICING_ATTR_rec.accumulate_flag IS NOT NULL AND
1340: p_old_PRICING_ATTR_rec.accumulate_flag OR
1341: p_old_PRICING_ATTR_rec.accumulate_flag IS NULL )
1342: THEN
1343: IF NOT QP_Validate.Accumulate(p_PRICING_ATTR_rec.accumulate_flag) THEN
1344: x_return_status := FND_API.G_RET_STS_ERROR;
1345: END IF;
1346: END IF;
1347:
1348: IF p_PRICING_ATTR_rec.attribute_grouping_no IS NOT NULL AND
1350: p_old_PRICING_ATTR_rec.attribute_grouping_no OR
1351: p_old_PRICING_ATTR_rec.attribute_grouping_no IS NULL )
1352: THEN
1353: IF NOT QP_Validate.Attribute_Grouping_No(p_PRICING_ATTR_rec.attribute_grouping_no) THEN
1354: x_return_status := FND_API.G_RET_STS_ERROR;
1355: END IF;
1356: END IF;
1357:
1358: IF p_PRICING_ATTR_rec.created_by IS NOT NULL AND
1360: p_old_PRICING_ATTR_rec.created_by OR
1361: p_old_PRICING_ATTR_rec.created_by IS NULL )
1362: THEN
1363: IF NOT QP_Validate.Created_By(p_PRICING_ATTR_rec.created_by) THEN
1364: x_return_status := FND_API.G_RET_STS_ERROR;
1365: END IF;
1366: END IF;
1367:
1368: IF p_PRICING_ATTR_rec.creation_date IS NOT NULL AND
1370: p_old_PRICING_ATTR_rec.creation_date OR
1371: p_old_PRICING_ATTR_rec.creation_date IS NULL )
1372: THEN
1373: IF NOT QP_Validate.Creation_Date(p_PRICING_ATTR_rec.creation_date) THEN
1374: x_return_status := FND_API.G_RET_STS_ERROR;
1375: END IF;
1376: END IF;
1377:
1378: IF p_PRICING_ATTR_rec.excluder_flag IS NOT NULL AND
1380: p_old_PRICING_ATTR_rec.excluder_flag OR
1381: p_old_PRICING_ATTR_rec.excluder_flag IS NULL )
1382: THEN
1383: IF NOT QP_Validate.Excluder(p_PRICING_ATTR_rec.excluder_flag) THEN
1384: x_return_status := FND_API.G_RET_STS_ERROR;
1385: END IF;
1386: END IF;
1387:
1388: IF p_PRICING_ATTR_rec.last_updated_by IS NOT NULL AND
1390: p_old_PRICING_ATTR_rec.last_updated_by OR
1391: p_old_PRICING_ATTR_rec.last_updated_by IS NULL )
1392: THEN
1393: IF NOT QP_Validate.Last_Updated_By(p_PRICING_ATTR_rec.last_updated_by) THEN
1394: x_return_status := FND_API.G_RET_STS_ERROR;
1395: END IF;
1396: END IF;
1397:
1398: IF p_PRICING_ATTR_rec.last_update_date IS NOT NULL AND
1400: p_old_PRICING_ATTR_rec.last_update_date OR
1401: p_old_PRICING_ATTR_rec.last_update_date IS NULL )
1402: THEN
1403: IF NOT QP_Validate.Last_Update_Date(p_PRICING_ATTR_rec.last_update_date) THEN
1404: x_return_status := FND_API.G_RET_STS_ERROR;
1405: END IF;
1406: END IF;
1407:
1408: IF p_PRICING_ATTR_rec.last_update_login IS NOT NULL AND
1410: p_old_PRICING_ATTR_rec.last_update_login OR
1411: p_old_PRICING_ATTR_rec.last_update_login IS NULL )
1412: THEN
1413: IF NOT QP_Validate.Last_Update_Login(p_PRICING_ATTR_rec.last_update_login) THEN
1414: x_return_status := FND_API.G_RET_STS_ERROR;
1415: END IF;
1416: END IF;
1417:
1418: IF p_PRICING_ATTR_rec.list_line_id IS NOT NULL AND
1420: p_old_PRICING_ATTR_rec.list_line_id OR
1421: p_old_PRICING_ATTR_rec.list_line_id IS NULL )
1422: THEN
1423: IF NOT QP_Validate.List_Line(p_PRICING_ATTR_rec.list_line_id) THEN
1424: x_return_status := FND_API.G_RET_STS_ERROR;
1425: END IF;
1426: END IF;
1427:
1428: IF p_PRICING_ATTR_rec.pricing_attribute IS NOT NULL AND
1430: p_old_PRICING_ATTR_rec.pricing_attribute OR
1431: p_old_PRICING_ATTR_rec.pricing_attribute IS NULL )
1432: THEN
1433: IF NOT QP_Validate.Pricing_Attribute(p_PRICING_ATTR_rec.pricing_attribute) THEN
1434: x_return_status := FND_API.G_RET_STS_ERROR;
1435: END IF;
1436: END IF;
1437:
1438: IF p_PRICING_ATTR_rec.pricing_attribute_context IS NOT NULL AND
1440: p_old_PRICING_ATTR_rec.pricing_attribute_context OR
1441: p_old_PRICING_ATTR_rec.pricing_attribute_context IS NULL )
1442: THEN
1443: IF NOT QP_Validate.Pricing_Attribute_Context(p_PRICING_ATTR_rec.pricing_attribute_context) THEN
1444: x_return_status := FND_API.G_RET_STS_ERROR;
1445: END IF;
1446: END IF;
1447:
1448: IF p_PRICING_ATTR_rec.pricing_attribute_id IS NOT NULL AND
1450: p_old_PRICING_ATTR_rec.pricing_attribute_id OR
1451: p_old_PRICING_ATTR_rec.pricing_attribute_id IS NULL )
1452: THEN
1453: IF NOT QP_Validate.Pricing_Attribute(p_PRICING_ATTR_rec.pricing_attribute_id) THEN
1454: x_return_status := FND_API.G_RET_STS_ERROR;
1455: END IF;
1456: END IF;
1457:
1458: IF p_PRICING_ATTR_rec.from_rltd_modifier_id IS NOT NULL AND
1461: p_old_PRICING_ATTR_rec.from_rltd_modifier_id IS NULL )
1462: THEN
1463: /*
1464: IF NOT QP_Validate.From_Rltd_Modifier_Id(p_PRICING_ATTR_rec.from_rltd_modifier_id) THEN
1465: x_return_status := FND_API.G_RET_STS_ERROR;
1466: END IF;
1467: */
1468: NULL;
1469:
1474: p_old_PRICING_ATTR_rec.pricing_attr_value_from OR
1475: p_old_PRICING_ATTR_rec.pricing_attr_value_from IS NULL )
1476: THEN
1477: IF NOT QP_Validate.Pricing_Attr_Value_From(p_PRICING_ATTR_rec.pricing_attr_value_from) THEN
1478: x_return_status := FND_API.G_RET_STS_ERROR;
1479: END IF;
1480: END IF;
1481:
1482: IF p_PRICING_ATTR_rec.pricing_attr_value_to IS NOT NULL AND
1484: p_old_PRICING_ATTR_rec.pricing_attr_value_to OR
1485: p_old_PRICING_ATTR_rec.pricing_attr_value_to IS NULL )
1486: THEN
1487: IF NOT QP_Validate.Pricing_Attr_Value_To(p_PRICING_ATTR_rec.pricing_attr_value_to) THEN
1488: x_return_status := FND_API.G_RET_STS_ERROR;
1489: END IF;
1490: END IF;
1491:
1492: IF p_PRICING_ATTR_rec.product_attribute IS NOT NULL AND
1494: p_old_PRICING_ATTR_rec.product_attribute OR
1495: p_old_PRICING_ATTR_rec.product_attribute IS NULL )
1496: THEN
1497: IF NOT QP_Validate.Product_Attribute(p_PRICING_ATTR_rec.product_attribute) THEN
1498: x_return_status := FND_API.G_RET_STS_ERROR;
1499: END IF;
1500: END IF;
1501:
1502: IF p_PRICING_ATTR_rec.product_attribute_context IS NOT NULL AND
1504: p_old_PRICING_ATTR_rec.product_attribute_context OR
1505: p_old_PRICING_ATTR_rec.product_attribute_context IS NULL )
1506: THEN
1507: IF NOT QP_Validate.Product_Attribute_Context(p_PRICING_ATTR_rec.product_attribute_context) THEN
1508: x_return_status := FND_API.G_RET_STS_ERROR;
1509: END IF;
1510: END IF;
1511:
1512: IF p_PRICING_ATTR_rec.product_attr_value IS NOT NULL AND
1514: p_old_PRICING_ATTR_rec.product_attr_value OR
1515: p_old_PRICING_ATTR_rec.product_attr_value IS NULL )
1516: THEN
1517: IF NOT QP_Validate.Product_Attr_Value(p_PRICING_ATTR_rec.product_attr_value) THEN
1518: x_return_status := FND_API.G_RET_STS_ERROR;
1519: END IF;
1520: END IF;
1521:
1522: IF p_PRICING_ATTR_rec.product_uom_code IS NOT NULL AND
1524: p_old_PRICING_ATTR_rec.product_uom_code OR
1525: p_old_PRICING_ATTR_rec.product_uom_code IS NULL )
1526: THEN
1527: IF NOT QP_Validate.Product_Uom(p_PRICING_ATTR_rec.product_uom_code) THEN
1528: x_return_status := FND_API.G_RET_STS_ERROR;
1529: END IF;
1530: END IF;
1531:
1532: IF p_PRICING_ATTR_rec.program_application_id IS NOT NULL AND
1534: p_old_PRICING_ATTR_rec.program_application_id OR
1535: p_old_PRICING_ATTR_rec.program_application_id IS NULL )
1536: THEN
1537: IF NOT QP_Validate.Program_Application(p_PRICING_ATTR_rec.program_application_id) THEN
1538: x_return_status := FND_API.G_RET_STS_ERROR;
1539: END IF;
1540: END IF;
1541:
1542: IF p_PRICING_ATTR_rec.program_id IS NOT NULL AND
1544: p_old_PRICING_ATTR_rec.program_id OR
1545: p_old_PRICING_ATTR_rec.program_id IS NULL )
1546: THEN
1547: IF NOT QP_Validate.Program(p_PRICING_ATTR_rec.program_id) THEN
1548: x_return_status := FND_API.G_RET_STS_ERROR;
1549: END IF;
1550: END IF;
1551:
1552: IF p_PRICING_ATTR_rec.program_update_date IS NOT NULL AND
1554: p_old_PRICING_ATTR_rec.program_update_date OR
1555: p_old_PRICING_ATTR_rec.program_update_date IS NULL )
1556: THEN
1557: IF NOT QP_Validate.Program_Update_Date(p_PRICING_ATTR_rec.program_update_date) THEN
1558: x_return_status := FND_API.G_RET_STS_ERROR;
1559: END IF;
1560: END IF;
1561:
1562: IF p_PRICING_ATTR_rec.request_id IS NOT NULL AND
1564: p_old_PRICING_ATTR_rec.request_id OR
1565: p_old_PRICING_ATTR_rec.request_id IS NULL )
1566: THEN
1567: IF NOT QP_Validate.Request(p_PRICING_ATTR_rec.request_id) THEN
1568: x_return_status := FND_API.G_RET_STS_ERROR;
1569: END IF;
1570: END IF;
1571:
1572: IF p_PRICING_ATTR_rec.comparison_operator_code IS NOT NULL AND
1574: p_old_PRICING_ATTR_rec.comparison_operator_code OR
1575: p_old_PRICING_ATTR_rec.comparison_operator_code IS NULL )
1576: THEN
1577: IF NOT QP_Validate.comparison_operator(p_PRICING_ATTR_rec.comparison_operator_code) THEN
1578: x_return_status := FND_API.G_RET_STS_ERROR;
1579: END IF;
1580: END IF;
1581:
1582: IF p_PRICING_ATTR_rec.pricing_attribute_datatype IS NOT NULL AND
1584: p_old_PRICING_ATTR_rec.pricing_attribute_datatype OR
1585: p_old_PRICING_ATTR_rec.pricing_attribute_datatype IS NULL )
1586: THEN
1587: IF NOT QP_Validate.Pricing_Attribute_Datatype(p_PRICING_ATTR_rec.pricing_attribute_datatype) THEN
1588: x_return_status := FND_API.G_RET_STS_ERROR;
1589: END IF;
1590: END IF;
1591:
1592: IF p_PRICING_ATTR_rec.product_attribute_datatype IS NOT NULL AND
1594: p_old_PRICING_ATTR_rec.product_attribute_datatype OR
1595: p_old_PRICING_ATTR_rec.product_attribute_datatype IS NULL )
1596: THEN
1597: IF NOT QP_Validate.product_attribute_datatype(p_PRICING_ATTR_rec.product_attribute_datatype) THEN
1598: x_return_status := FND_API.G_RET_STS_ERROR;
1599: END IF;
1600: END IF;
1601:
1602:
1737:
1738: -- Validate descriptive flexfield.
1739:
1740: IF NOT QP_Validate.Desc_Flex( 'PRICING_ATTR' ) THEN
1741: x_return_status := FND_API.G_RET_STS_ERROR;
1742: END IF;
1743:
1744: END IF;
1745:
1748: EXCEPTION
1749:
1750:
1751:
1752: WHEN FND_API.G_EXC_ERROR THEN
1753:
1754: x_return_status := FND_API.G_RET_STS_ERROR;
1755:
1756: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1750:
1751:
1752: WHEN FND_API.G_EXC_ERROR THEN
1753:
1754: x_return_status := FND_API.G_RET_STS_ERROR;
1755:
1756: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1757:
1758: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1752: WHEN FND_API.G_EXC_ERROR THEN
1753:
1754: x_return_status := FND_API.G_RET_STS_ERROR;
1755:
1756: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1757:
1758: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1759:
1760: WHEN OTHERS THEN
1754: x_return_status := FND_API.G_RET_STS_ERROR;
1755:
1756: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1757:
1758: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1759:
1760: WHEN OTHERS THEN
1761:
1762: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1758: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1759:
1760: WHEN OTHERS THEN
1761:
1762: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1763:
1764: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
1765: THEN
1766: oe_msg_pub.Add_Exc_Msg
1777: ( x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1778: , p_PRICING_ATTR_rec IN QP_Price_List_PUB.Pricing_Attr_Rec_Type
1779: )
1780: IS
1781: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1782: BEGIN
1783:
1784: -- Validate entity delete.
1785:
1790: x_return_status := l_return_status;
1791:
1792: EXCEPTION
1793:
1794: WHEN FND_API.G_EXC_ERROR THEN
1795:
1796: x_return_status := FND_API.G_RET_STS_ERROR;
1797:
1798: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1792: EXCEPTION
1793:
1794: WHEN FND_API.G_EXC_ERROR THEN
1795:
1796: x_return_status := FND_API.G_RET_STS_ERROR;
1797:
1798: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1799:
1800: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1794: WHEN FND_API.G_EXC_ERROR THEN
1795:
1796: x_return_status := FND_API.G_RET_STS_ERROR;
1797:
1798: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1799:
1800: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1801:
1802: WHEN OTHERS THEN
1796: x_return_status := FND_API.G_RET_STS_ERROR;
1797:
1798: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1799:
1800: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1801:
1802: WHEN OTHERS THEN
1803:
1804: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1800: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1801:
1802: WHEN OTHERS THEN
1803:
1804: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1805:
1806: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
1807: THEN
1808: oe_msg_pub.Add_Exc_Msg