[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;
62:
63: IF p_PRICING_ATTR_rec.pricing_attribute_id IS NULL
64: THEN
65:
66: l_return_status := FND_API.G_RET_STS_ERROR;
67:
68: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_ERROR)
69: THEN
70:
83:
84: IF nvl(p_old_PRICING_ATTR_rec.PRODUCT_ATTRIBUTE_CONTEXT,'X') <>
85: nvl(p_PRICING_ATTR_rec.PRODUCT_ATTRIBUTE_CONTEXT,'X')
86: THEN
87: l_return_status := FND_API.G_RET_STS_ERROR;
88:
89: FND_MESSAGE.SET_NAME('QP','QP_CANNOT_UPDATE_ATTRIBUTE');
90: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','product_attribute_context');
91: OE_MSG_PUB.Add;
94:
95: IF nvl(p_old_PRICING_ATTR_rec.PRODUCT_ATTRIBUTE,'X') <>
96: nvl(p_PRICING_ATTR_rec.PRODUCT_ATTRIBUTE,'X')
97: THEN
98: l_return_status := FND_API.G_RET_STS_ERROR;
99:
100: FND_MESSAGE.SET_NAME('QP','QP_CANNOT_UPDATE_ATTRIBUTE');
101: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','product_attribute');
102: OE_MSG_PUB.Add;
105:
106: IF nvl(p_old_PRICING_ATTR_rec.PRODUCT_ATTR_VALUE,9999999) <>
107: nvl(p_PRICING_ATTR_rec.PRODUCT_ATTR_VALUE,9999999)
108: THEN
109: l_return_status := FND_API.G_RET_STS_ERROR;
110:
111: FND_MESSAGE.SET_NAME('QP','QP_CANNOT_UPDATE_ATTRIBUTE');
112: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','product_attr_value');
113: OE_MSG_PUB.Add;
119: --5286339
120:
121: IF p_PRICING_ATTR_rec.list_line_id IS NULL
122: THEN
123: l_return_status := FND_API.G_RET_STS_ERROR;
124:
125: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_ERROR)
126: THEN
127: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
131: END IF;
132:
133: /* IF p_PRICING_ATTR_rec.list_header_id IS NULL
134: THEN
135: l_return_status := FND_API.G_RET_STS_ERROR;
136:
137: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_ERROR)
138: THEN
139: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
143: END IF;
144: */
145: IF p_PRICING_ATTR_rec.pricing_phase_id IS NULL
146: THEN
147: l_return_status := FND_API.G_RET_STS_ERROR;
148:
149: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_ERROR)
150: THEN
151: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
155: END IF;
156:
157: IF p_PRICING_ATTR_rec.excluder_flag IS NULL
158: THEN
159: l_return_status := FND_API.G_RET_STS_ERROR;
160:
161: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_ERROR)
162: THEN
163: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
167: ELSE
168:
169: IF (p_PRICING_ATTR_rec.excluder_flag not in ( 'Y', 'y', 'N', 'n' ) )
170: THEN
171: l_return_status := FND_API.G_RET_STS_ERROR;
172: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_ERROR)
173: THEN
174: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
175: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Excluder Flag');
179: END IF;
180:
181: IF p_PRICING_ATTR_rec.product_attribute_context IS NULL
182: THEN
183: l_return_status := FND_API.G_RET_STS_ERROR;
184:
185: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_ERROR)
186: THEN
187: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
191: END IF;
192:
193: IF p_PRICING_ATTR_rec.product_attribute IS NULL
194: THEN
195: l_return_status := FND_API.G_RET_STS_ERROR;
196:
197: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_ERROR)
198: THEN
199: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
203: END IF;
204:
205: IF p_PRICING_ATTR_rec.product_attr_value IS NULL
206: THEN
207: l_return_status := FND_API.G_RET_STS_ERROR;
208:
209: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_ERROR)
210: THEN
211: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
215: END IF;
216:
217: IF p_PRICING_ATTR_rec.product_attribute_datatype IS NULL
218: THEN
219: l_return_status := FND_API.G_RET_STS_ERROR;
220:
221: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_ERROR)
222: THEN
223: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
227: END IF;
228:
229: IF p_PRICING_ATTR_rec.product_uom_code IS NULL
230: THEN
231: l_return_status := FND_API.G_RET_STS_ERROR;
232:
233: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_ERROR)
234: THEN
235: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
239: END IF;
240:
241: IF p_PRICING_ATTR_rec.attribute_grouping_no IS NULL
242: THEN
243: l_return_status := FND_API.G_RET_STS_ERROR;
244:
245: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_ERROR)
246: THEN
247: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
256:
257:
258: -- Return Error if a required attribute is missing.
259:
260: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
261:
262: RAISE FND_API.G_EXC_ERROR;
263:
264: END IF;
258: -- Return Error if a required attribute is missing.
259:
260: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
261:
262: RAISE FND_API.G_EXC_ERROR;
263:
264: END IF;
265:
266: --
287: l_fna_valid);
288:
289: IF NOT l_fna_valid THEN
290:
291: l_return_status := FND_API.G_RET_STS_ERROR;
292:
293: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
294: THEN
295: FND_MESSAGE.set_name('QP', 'QP_INVALID_CAT_FUNC_PTE');
298: FND_MESSAGE.set_token('SS', l_ss_code);
299: OE_MSG_PUB.Add;
300: END IF;
301:
302: RAISE FND_API.G_EXC_ERROR;
303:
304: END IF;
305:
306: END;
315: WHERE list_line_id = p_PRICING_ATTR_rec.list_line_id;
316:
317: EXCEPTION
318: WHEN OTHERS THEN
319: l_return_status := FND_API.G_RET_STS_ERROR;
320: END;
321:
322: /* Modified by rassharm for Bug No 5457704 to include effective dates check for primary UOM */
323:
425: if l_x_rows > 0 THEN
426: OE_Debug_Pub.add ( 'smbalara :: PA match hence duplicate lines');
427: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
428: THEN
429: l_return_status := FND_API.G_RET_STS_ERROR;
430: FND_MESSAGE.SET_NAME('QP','QP_DUP_PRICING_ATTR');
431: OE_MSG_PUB.Add;
432: end if;
433: END If;
433: END If;
434: ELSE
435: --End check for Pricing attributes 8359896
436: OE_Debug_Pub.add ( 'smbalara :: Only one primary uom allowed');
437: l_return_status := FND_API.G_RET_STS_ERROR;
438: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR) THEN
439: FND_MESSAGE.SET_NAME('QP','QP_UNIQUE_PRIMARY_UOM');
440: OE_MSG_PUB.Add;
441: RAISE FND_API.G_EXC_ERROR;
437: l_return_status := FND_API.G_RET_STS_ERROR;
438: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR) THEN
439: FND_MESSAGE.SET_NAME('QP','QP_UNIQUE_PRIMARY_UOM');
440: OE_MSG_PUB.Add;
441: RAISE FND_API.G_EXC_ERROR;
442: END IF;
443: END IF;--end if of Check_Dup_Pra
444: END IF;--end if of l_count>0
445: END IF;--end if of Primary UOM
488: FND_MESSAGE.SET_NAME('QP','QP_ITEM_NOT_VALID');
489: FND_MESSAGE.SET_TOKEN('ITEM_ID', p_PRICING_ATTR_rec.product_attr_value);
490: OE_MSG_PUB.Add;
491: END IF;
492: RAISE FND_API.G_EXC_ERROR;
493:
494: when others then
495: null;
496: end;
516: THEN
517: FND_MESSAGE.SET_NAME('QP','QP_INVALID_PROD_UOM');
518: OE_MSG_PUB.Add;
519: END IF;
520: RAISE FND_API.G_EXC_ERROR;
521:
522: WHEN OTHERS THEN
523: null;
524: end;
534: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR) THEN
535: FND_MESSAGE.SET_NAME('QP','QP_INVALID_PROD_UOM');
536: OE_MSG_PUB.Add;
537: END IF;
538: RAISE FND_API.G_EXC_ERROR;
539: END IF;
540: END IF;
541: -- End changes for bug 6891094
542: /*
615: )
616: and rownum = 1;
617: exception
618: WHEN NO_DATA_FOUND THEN
619: x_return_status := FND_API.G_RET_STS_ERROR;
620: FND_MESSAGE.SET_NAME('QP','QP_INVALID_PROD_UOM');
621: OE_MSG_PUB.Add;
622: WHEN OTHERS THEN
623: null;
636: THEN
637: FND_MESSAGE.SET_NAME('QP','QP_INVALID_PROD_UOM');
638: OE_MSG_PUB.Add;
639: END IF;
640: RAISE FND_API.G_EXC_ERROR;
641:
642: WHEN OTHERS THEN
643: null;
644: end;
670: l_count := 0;
671: END;
672:
673: IF l_count > 0 THEN
674: l_return_status := FND_API.G_RET_STS_ERROR;
675: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR) THEN
676: FND_MESSAGE.SET_NAME('QP','QP_UNIQUE_PRIMARY_UOM');
677: OE_MSG_PUB.Add;
678: RAISE FND_API.G_EXC_ERROR;
674: l_return_status := FND_API.G_RET_STS_ERROR;
675: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR) THEN
676: FND_MESSAGE.SET_NAME('QP','QP_UNIQUE_PRIMARY_UOM');
677: OE_MSG_PUB.Add;
678: RAISE FND_API.G_EXC_ERROR;
679: END IF;
680: END IF;
681:
682: END IF;
703: if l_x_rows > 0 THEN
704:
705: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
706: THEN
707: l_return_status := FND_API.G_RET_STS_ERROR;
708: FND_MESSAGE.SET_NAME('QP','QP_DUP_PRICING_ATTR');
709: OE_MSG_PUB.Add;
710: end if;
711: end if;
730: , p_param4 => l_revision
731: , x_return_status => l_return_status
732: );
733:
734: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
735:
736: oe_debug_pub.add('failed in logging a delayed request ');
737:
738: RAISE FND_API.G_EXC_ERROR;
734: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
735:
736: oe_debug_pub.add('failed in logging a delayed request ');
737:
738: RAISE FND_API.G_EXC_ERROR;
739:
740: END IF;
741:
742: oe_debug_pub.add('after logging delayed request ');
751: OR p_Pricing_Attr_rec.pricing_attribute IS NULL
752: OR p_Pricing_Attr_rec.comparison_operator_code IS NULL)
753: THEN
754:
755: l_return_status := FND_API.G_RET_STS_ERROR;
756: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
757: THEN
758: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED' );
759: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('PRICING_ATTRIBUTE_CONTEXT')||'/'||
760: QP_PRC_UTIL.Get_Attribute_Name('PRICING_ATTRIBUTE')||'/'||
761: QP_PRC_UTIL.Get_Attribute_Name('COMPARISON_OPERATOR_CODE')); -- Fix For Bug-1974413
762: OE_MSG_PUB.Add;
763: END IF;
764: RAISE FND_API.G_EXC_ERROR;
765: ELSE
766:
767: IF ( p_Pricing_Attr_rec.comparison_operator_code = 'BETWEEN'
768: AND p_Pricing_Attr_rec.pricing_attribute_datatype is NULL ) THEN
766:
767: IF ( p_Pricing_Attr_rec.comparison_operator_code = 'BETWEEN'
768: AND p_Pricing_Attr_rec.pricing_attribute_datatype is NULL ) THEN
769:
770: l_return_status := FND_API.G_RET_STS_ERROR;
771: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
772: THEN
773: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED' );
774: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Enter Required Values');
773: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED' );
774: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Enter Required Values');
775: OE_MSG_PUB.Add;
776: END IF;
777: RAISE FND_API.G_EXC_ERROR;
778: END IF;
779:
780: QP_UTIL.validate_qp_flexfield(flexfield_name =>'QP_ATTR_DEFNS_PRICING'
781: ,context =>p_Pricing_Attr_rec.pricing_attribute_context
791: );
792:
793: If (l_context_error = 'N' AND l_error_code = 7) -- invalid context
794: Then
795: l_return_status := FND_API.G_RET_STS_ERROR;
796:
797: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
798: THEN
799:
803:
804: OE_MSG_PUB.Add;
805: END IF;
806:
807: RAISE FND_API.G_EXC_ERROR;
808:
809: End If;
810:
811:
816:
817:
818: If l_attribute_error = 'N' AND l_error_code = 8 -- invalid Attribute
819: Then
820: l_return_status := FND_API.G_RET_STS_ERROR;
821:
822: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
823: THEN
824:
826: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',' Attribute');
827: OE_MSG_PUB.Add;
828: END IF;
829:
830: RAISE FND_API.G_EXC_ERROR;
831:
832: End If;
833:
834:
842: IF p_Pricing_Attr_rec.comparison_operator_code = '=' Then
843:
844: If l_value_error = 'N' AND l_error_code = 9 -- invalid value
845: Then
846: l_return_status := FND_API.G_RET_STS_ERROR;
847:
848: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
849: THEN
850:
852: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',' Value From ');
853: --OE_MSG_PUB.Add;
854: OE_MSG_PUB.Add;
855: END IF;
856: RAISE FND_API.G_EXC_ERROR;
857: End If;
858: END IF;
859:
860:
867: --dbms_output.put_line('for precedence'||l_return_status);
868:
869: If p_Pricing_Attr_rec.pricing_attribute_datatype <> l_datatype --- invalid datatype
870: Then
871: l_return_status := FND_API.G_RET_STS_ERROR;
872:
873: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
874: THEN
875: --FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED' );
876: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
877: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Pricing Attribute Datatype ');
878: OE_MSG_PUB.Add;
879: END IF;
880: RAISE FND_API.G_EXC_ERROR;
881:
882: End If;
883:
884: IF p_Pricing_Attr_rec.pricing_attribute_context = 'VOLUME' AND
884: IF p_Pricing_Attr_rec.pricing_attribute_context = 'VOLUME' AND
885: p_Pricing_Attr_rec.pricing_attribute = 'PRICING_ATTRIBUTE12'
886: --When Pricing Context is 'Volume' and Attribute is 'Item Amount'
887: THEN
888: l_return_status := FND_API.G_RET_STS_ERROR;
889:
890: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
891: THEN
892: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
893: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Pricing Attribute');
894: OE_MSG_PUB.Add;
895: END IF;
896:
897: RAISE FND_API.G_EXC_ERROR;
898:
899: END IF;
900:
901:
908:
909: l_error_code:=QP_UTIL.validate_num_date(p_Pricing_Attr_rec.pricing_attribute_datatype, p_Pricing_Attr_rec.pricing_attr_value_from);
910: IF l_error_code <> 0 THEN
911:
912: l_return_status := FND_API.G_RET_STS_ERROR;
913:
914: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
915: THEN
916: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
916: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
917: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Value From ');
918: OE_MSG_PUB.Add;
919: END IF;
920: RAISE FND_API.G_EXC_ERROR;
921:
922: END IF;
923: --dbms_output.put_line('for cano of value from ,'||l_return_status);
924:
931: UPPER(p_Pricing_Attr_rec.comparison_operator_code) = 'BETWEEN' AND
932: (p_Pricing_Attr_rec.pricing_attr_value_to IS NULL OR
933: p_Pricing_Attr_rec.pricing_attr_value_from IS NULL)
934: THEN
935: l_return_status := FND_API.G_RET_STS_ERROR;
936:
937: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
938: THEN
939: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED' );
940: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('PRICING_ATTR_VALUE_TO')||'/'||
941: QP_PRC_UTIL.Get_Attribute_Name('PRICING_ATTR_VALUE_FROM')); -- Fix For Bug-1974413
942: OE_MSG_PUB.Add;
943: END IF;
944: RAISE FND_API.G_EXC_ERROR;
945: END IF;
946:
947: /* Added validation by dhgupta for bug # 1824227 */
948:
950: p_Pricing_Attr_rec.pricing_attribute IS NOT NULL AND
951: UPPER(p_Pricing_Attr_rec.comparison_operator_code) <> 'BETWEEN' AND
952: p_Pricing_Attr_rec.pricing_attr_value_from IS NULL
953: THEN
954: l_return_status := FND_API.G_RET_STS_ERROR;
955:
956: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
957: THEN
958: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED' );
958: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED' );
959: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('PRICING_ATTR_VALUE_FROM')); --Fix For Bug-1974413
960: OE_MSG_PUB.Add;
961: END IF;
962: RAISE FND_API.G_EXC_ERROR;
963: END IF;
964:
965: /* end changes for bug # 1824227 */
966:
968:
969: l_error_code:=QP_UTIL.validate_num_date(p_Pricing_Attr_rec.pricing_attribute_datatype, p_Pricing_Attr_rec.pricing_attr_value_to);
970:
971: IF l_error_code <> 0 THEN
972: l_return_status := FND_API.G_RET_STS_ERROR;
973:
974: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
975: THEN
976: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
976: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
977: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Value To ');
978: OE_MSG_PUB.Add;
979: END IF;
980: RAISE FND_API.G_EXC_ERROR;
981: END IF;
982: --here
983: END IF;
984: END IF;
991: --
992:
993: IF p_Pricing_Attr_rec.comparison_operator_code is null then
994:
995: l_return_status := FND_API.G_RET_STS_ERROR;
996:
997: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
998: THEN
999:
1002: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('COMPARISON_OPERATOR_CODE')); --Fix For Bug-1974413
1003: OE_MSG_PUB.Add;
1004: END IF;
1005:
1006: RAISE FND_API.G_EXC_ERROR;
1007: ELSE
1008:
1009:
1010: SELECT lookup_code
1015:
1016: If SQL%NOTFOUND
1017: Then
1018:
1019: l_return_status := FND_API.G_RET_STS_ERROR;
1020:
1021: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
1022: THEN
1023:
1026: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('COMPARISON_OPERATOR_CODE')); -- Fix For Bug-1974413
1027: OE_MSG_PUB.Add;
1028: END IF;
1029:
1030: RAISE FND_API.G_EXC_ERROR;
1031:
1032: End If;
1033:
1034: END IF; /* comparison_operator_code is null */
1066: );
1067:
1068: If (l_context_error = 'N' AND l_error_code = 7) -- invalid context
1069: Then
1070: l_return_status := FND_API.G_RET_STS_ERROR;
1071:
1072: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
1073: THEN
1074:
1077: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_name('PRICING_ATTRIBUTE_CONTEXT')); --Fix For Bug-1974413
1078: OE_MSG_PUB.Add;
1079: END IF;
1080:
1081: RAISE FND_API.G_EXC_ERROR;
1082:
1083: End If;
1084:
1085:
1090:
1091:
1092: If l_attribute_error = 'N' AND l_error_code = 8 -- invalid Attribute
1093: Then
1094: l_return_status := FND_API.G_RET_STS_ERROR;
1095:
1096: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
1097: THEN
1098:
1100: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',' Attribute');
1101: OE_MSG_PUB.Add;
1102: END IF;
1103:
1104: RAISE FND_API.G_EXC_ERROR;
1105:
1106: End If;
1107:
1108:
1116: IF p_Pricing_Attr_rec.comparison_operator_code = '=' Then
1117:
1118: If l_value_error = 'N' AND l_error_code = 9 -- invalid value
1119: Then
1120: l_return_status := FND_API.G_RET_STS_ERROR;
1121:
1122: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
1123: THEN
1124:
1126: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',' Value From ');
1127: --OE_MSG_PUB.Add;
1128: OE_MSG_PUB.Add;
1129: END IF;
1130: RAISE FND_API.G_EXC_ERROR;
1131: End If;
1132: END IF;
1133:
1134:
1141: --dbms_output.put_line('for precedence'||l_return_status);
1142:
1143: If p_Pricing_Attr_rec.pricing_attribute_datatype <> l_datatype --- invalid datatype
1144: Then
1145: l_return_status := FND_API.G_RET_STS_ERROR;
1146:
1147: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
1148: THEN
1149: --FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED' );
1150: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
1151: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Pricing Attribute Datatype ');
1152: OE_MSG_PUB.Add;
1153: END IF;
1154: RAISE FND_API.G_EXC_ERROR;
1155:
1156: End If;
1157:
1158:
1166:
1167: l_error_code:=QP_UTIL.validate_num_date(p_Pricing_Attr_rec.pricing_attribute_datatype, p_Pricing_Attr_rec.pricing_attr_value_from);
1168: IF l_error_code <> 0 THEN
1169:
1170: l_return_status := FND_API.G_RET_STS_ERROR;
1171:
1172: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
1173: THEN
1174: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
1174: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
1175: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Value From ');
1176: OE_MSG_PUB.Add;
1177: END IF;
1178: RAISE FND_API.G_EXC_ERROR;
1179:
1180: END IF;
1181: --dbms_output.put_line('for cano of value from ,'||l_return_status);
1182:
1189: UPPER(p_Pricing_Attr_rec.comparison_operator_code) = 'BETWEEN' AND
1190: (p_Pricing_Attr_rec.pricing_attr_value_to IS NULL AND
1191: p_Pricing_Attr_rec.pricing_attr_value_from IS NULL)
1192: THEN
1193: l_return_status := FND_API.G_RET_STS_ERROR;
1194:
1195: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
1196: THEN
1197: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED' );
1198: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('PRICING_ATTR_VALUE_TO')||'/'||
1199: QP_PRC_UTIL.Get_Attribute_Name('PRICING_ATTR_VALUE_FROM')); --Fix For Bug-1974413
1200: OE_MSG_PUB.Add;
1201: END IF;
1202: RAISE FND_API.G_EXC_ERROR;
1203: END IF;
1204:
1205: l_error_code:=QP_UTIL.validate_num_date(p_Pricing_Attr_rec.pricing_attribute_datatype, p_Pricing_Attr_rec.pricing_attr_value_to);
1206:
1204:
1205: l_error_code:=QP_UTIL.validate_num_date(p_Pricing_Attr_rec.pricing_attribute_datatype, p_Pricing_Attr_rec.pricing_attr_value_to);
1206:
1207: IF l_error_code <> 0 THEN
1208: l_return_status := FND_API.G_RET_STS_ERROR;
1209:
1210: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
1211: THEN
1212: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
1212: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
1213: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Value To ');
1214: OE_MSG_PUB.Add;
1215: END IF;
1216: RAISE FND_API.G_EXC_ERROR;
1217: END IF;
1218:
1219: end if;
1220: */
1277: --function depending upon the break type
1278: x_return_status => l_return_status
1279: );
1280:
1281: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1282: oe_debug_pub.add('failed in logging a delayed request ');
1283: RAISE FND_API.G_EXC_ERROR;
1284: END IF;
1285:
1279: );
1280:
1281: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1282: oe_debug_pub.add('failed in logging a delayed request ');
1283: RAISE FND_API.G_EXC_ERROR;
1284: END IF;
1285:
1286:
1287: END IF; --IF Price Break Child Lines
1350: EXCEPTION
1351:
1352: WHEN NO_DATA_FOUND THEN
1353:
1354: x_return_status := FND_API.G_RET_STS_ERROR;
1355:
1356: WHEN FND_API.G_EXC_ERROR THEN
1357:
1358: x_return_status := FND_API.G_RET_STS_ERROR;
1352: WHEN NO_DATA_FOUND THEN
1353:
1354: x_return_status := FND_API.G_RET_STS_ERROR;
1355:
1356: WHEN FND_API.G_EXC_ERROR THEN
1357:
1358: x_return_status := FND_API.G_RET_STS_ERROR;
1359:
1360: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1354: x_return_status := FND_API.G_RET_STS_ERROR;
1355:
1356: WHEN FND_API.G_EXC_ERROR THEN
1357:
1358: x_return_status := FND_API.G_RET_STS_ERROR;
1359:
1360: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1361:
1362: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1356: WHEN FND_API.G_EXC_ERROR THEN
1357:
1358: x_return_status := FND_API.G_RET_STS_ERROR;
1359:
1360: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1361:
1362: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1363:
1364: WHEN OTHERS THEN
1358: x_return_status := FND_API.G_RET_STS_ERROR;
1359:
1360: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1361:
1362: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1363:
1364: WHEN OTHERS THEN
1365:
1366: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1362: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1363:
1364: WHEN OTHERS THEN
1365:
1366: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1367:
1368: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
1369: THEN
1370: oe_msg_pub.Add_Exc_Msg
1387: l_pte_code varchar2(30);
1388: l_ss_code varchar2(30);
1389: BEGIN
1390:
1391: x_return_status := FND_API.G_RET_STS_SUCCESS;
1392:
1393: -- Validate PRICING_ATTR attributes
1394:
1395: IF p_PRICING_ATTR_rec.accumulate_flag IS NOT NULL AND
1397: p_old_PRICING_ATTR_rec.accumulate_flag OR
1398: p_old_PRICING_ATTR_rec.accumulate_flag IS NULL )
1399: THEN
1400: IF NOT QP_Validate.Accumulate(p_PRICING_ATTR_rec.accumulate_flag) THEN
1401: x_return_status := FND_API.G_RET_STS_ERROR;
1402: END IF;
1403: END IF;
1404:
1405: IF p_PRICING_ATTR_rec.attribute_grouping_no IS NOT NULL AND
1407: p_old_PRICING_ATTR_rec.attribute_grouping_no OR
1408: p_old_PRICING_ATTR_rec.attribute_grouping_no IS NULL )
1409: THEN
1410: IF NOT QP_Validate.Attribute_Grouping_No(p_PRICING_ATTR_rec.attribute_grouping_no) THEN
1411: x_return_status := FND_API.G_RET_STS_ERROR;
1412: END IF;
1413: END IF;
1414:
1415: IF p_PRICING_ATTR_rec.created_by IS NOT NULL AND
1417: p_old_PRICING_ATTR_rec.created_by OR
1418: p_old_PRICING_ATTR_rec.created_by IS NULL )
1419: THEN
1420: IF NOT QP_Validate.Created_By(p_PRICING_ATTR_rec.created_by) THEN
1421: x_return_status := FND_API.G_RET_STS_ERROR;
1422: END IF;
1423: END IF;
1424:
1425: IF p_PRICING_ATTR_rec.creation_date IS NOT NULL AND
1427: p_old_PRICING_ATTR_rec.creation_date OR
1428: p_old_PRICING_ATTR_rec.creation_date IS NULL )
1429: THEN
1430: IF NOT QP_Validate.Creation_Date(p_PRICING_ATTR_rec.creation_date) THEN
1431: x_return_status := FND_API.G_RET_STS_ERROR;
1432: END IF;
1433: END IF;
1434:
1435: IF p_PRICING_ATTR_rec.excluder_flag IS NOT NULL AND
1437: p_old_PRICING_ATTR_rec.excluder_flag OR
1438: p_old_PRICING_ATTR_rec.excluder_flag IS NULL )
1439: THEN
1440: IF NOT QP_Validate.Excluder(p_PRICING_ATTR_rec.excluder_flag) THEN
1441: x_return_status := FND_API.G_RET_STS_ERROR;
1442: END IF;
1443: END IF;
1444:
1445: IF p_PRICING_ATTR_rec.last_updated_by IS NOT NULL AND
1447: p_old_PRICING_ATTR_rec.last_updated_by OR
1448: p_old_PRICING_ATTR_rec.last_updated_by IS NULL )
1449: THEN
1450: IF NOT QP_Validate.Last_Updated_By(p_PRICING_ATTR_rec.last_updated_by) THEN
1451: x_return_status := FND_API.G_RET_STS_ERROR;
1452: END IF;
1453: END IF;
1454:
1455: IF p_PRICING_ATTR_rec.last_update_date IS NOT NULL AND
1457: p_old_PRICING_ATTR_rec.last_update_date OR
1458: p_old_PRICING_ATTR_rec.last_update_date IS NULL )
1459: THEN
1460: IF NOT QP_Validate.Last_Update_Date(p_PRICING_ATTR_rec.last_update_date) THEN
1461: x_return_status := FND_API.G_RET_STS_ERROR;
1462: END IF;
1463: END IF;
1464:
1465: IF p_PRICING_ATTR_rec.last_update_login IS NOT NULL AND
1467: p_old_PRICING_ATTR_rec.last_update_login OR
1468: p_old_PRICING_ATTR_rec.last_update_login IS NULL )
1469: THEN
1470: IF NOT QP_Validate.Last_Update_Login(p_PRICING_ATTR_rec.last_update_login) THEN
1471: x_return_status := FND_API.G_RET_STS_ERROR;
1472: END IF;
1473: END IF;
1474:
1475: IF p_PRICING_ATTR_rec.list_line_id IS NOT NULL AND
1477: p_old_PRICING_ATTR_rec.list_line_id OR
1478: p_old_PRICING_ATTR_rec.list_line_id IS NULL )
1479: THEN
1480: IF NOT QP_Validate.List_Line(p_PRICING_ATTR_rec.list_line_id) THEN
1481: x_return_status := FND_API.G_RET_STS_ERROR;
1482: END IF;
1483: END IF;
1484:
1485: IF p_PRICING_ATTR_rec.pricing_attribute IS NOT NULL AND
1487: p_old_PRICING_ATTR_rec.pricing_attribute OR
1488: p_old_PRICING_ATTR_rec.pricing_attribute IS NULL )
1489: THEN
1490: IF NOT QP_Validate.Pricing_Attribute(p_PRICING_ATTR_rec.pricing_attribute) THEN
1491: x_return_status := FND_API.G_RET_STS_ERROR;
1492: END IF;
1493: END IF;
1494:
1495: IF p_PRICING_ATTR_rec.pricing_attribute_context IS NOT NULL AND
1497: p_old_PRICING_ATTR_rec.pricing_attribute_context OR
1498: p_old_PRICING_ATTR_rec.pricing_attribute_context IS NULL )
1499: THEN
1500: IF NOT QP_Validate.Pricing_Attribute_Context(p_PRICING_ATTR_rec.pricing_attribute_context) THEN
1501: x_return_status := FND_API.G_RET_STS_ERROR;
1502: END IF;
1503: END IF;
1504:
1505: IF p_PRICING_ATTR_rec.pricing_attribute_id IS NOT NULL AND
1507: p_old_PRICING_ATTR_rec.pricing_attribute_id OR
1508: p_old_PRICING_ATTR_rec.pricing_attribute_id IS NULL )
1509: THEN
1510: IF NOT QP_Validate.Pricing_Attribute(p_PRICING_ATTR_rec.pricing_attribute_id) THEN
1511: x_return_status := FND_API.G_RET_STS_ERROR;
1512: END IF;
1513: END IF;
1514:
1515: IF p_PRICING_ATTR_rec.from_rltd_modifier_id IS NOT NULL AND
1518: p_old_PRICING_ATTR_rec.from_rltd_modifier_id IS NULL )
1519: THEN
1520: /*
1521: IF NOT QP_Validate.From_Rltd_Modifier_Id(p_PRICING_ATTR_rec.from_rltd_modifier_id) THEN
1522: x_return_status := FND_API.G_RET_STS_ERROR;
1523: END IF;
1524: */
1525: NULL;
1526:
1531: p_old_PRICING_ATTR_rec.pricing_attr_value_from OR
1532: p_old_PRICING_ATTR_rec.pricing_attr_value_from IS NULL )
1533: THEN
1534: IF NOT QP_Validate.Pricing_Attr_Value_From(p_PRICING_ATTR_rec.pricing_attr_value_from) THEN
1535: x_return_status := FND_API.G_RET_STS_ERROR;
1536: END IF;
1537: END IF;
1538:
1539: IF p_PRICING_ATTR_rec.pricing_attr_value_to IS NOT NULL AND
1541: p_old_PRICING_ATTR_rec.pricing_attr_value_to OR
1542: p_old_PRICING_ATTR_rec.pricing_attr_value_to IS NULL )
1543: THEN
1544: IF NOT QP_Validate.Pricing_Attr_Value_To(p_PRICING_ATTR_rec.pricing_attr_value_to) THEN
1545: x_return_status := FND_API.G_RET_STS_ERROR;
1546: END IF;
1547: END IF;
1548:
1549: IF p_PRICING_ATTR_rec.product_attribute IS NOT NULL AND
1551: p_old_PRICING_ATTR_rec.product_attribute OR
1552: p_old_PRICING_ATTR_rec.product_attribute IS NULL )
1553: THEN
1554: IF NOT QP_Validate.Product_Attribute(p_PRICING_ATTR_rec.product_attribute) THEN
1555: x_return_status := FND_API.G_RET_STS_ERROR;
1556: END IF;
1557: END IF;
1558:
1559: IF p_PRICING_ATTR_rec.product_attribute_context IS NOT NULL AND
1561: p_old_PRICING_ATTR_rec.product_attribute_context OR
1562: p_old_PRICING_ATTR_rec.product_attribute_context IS NULL )
1563: THEN
1564: IF NOT QP_Validate.Product_Attribute_Context(p_PRICING_ATTR_rec.product_attribute_context) THEN
1565: x_return_status := FND_API.G_RET_STS_ERROR;
1566: END IF;
1567: END IF;
1568:
1569: IF p_PRICING_ATTR_rec.product_attr_value IS NOT NULL AND
1571: p_old_PRICING_ATTR_rec.product_attr_value OR
1572: p_old_PRICING_ATTR_rec.product_attr_value IS NULL )
1573: THEN
1574: IF NOT QP_Validate.Product_Attr_Value(p_PRICING_ATTR_rec.product_attr_value) THEN
1575: x_return_status := FND_API.G_RET_STS_ERROR;
1576: END IF;
1577: END IF;
1578:
1579: IF p_PRICING_ATTR_rec.product_uom_code IS NOT NULL AND
1581: p_old_PRICING_ATTR_rec.product_uom_code OR
1582: p_old_PRICING_ATTR_rec.product_uom_code IS NULL )
1583: THEN
1584: IF NOT QP_Validate.Product_Uom(p_PRICING_ATTR_rec.product_uom_code) THEN
1585: x_return_status := FND_API.G_RET_STS_ERROR;
1586: END IF;
1587: END IF;
1588:
1589: IF p_PRICING_ATTR_rec.program_application_id IS NOT NULL AND
1591: p_old_PRICING_ATTR_rec.program_application_id OR
1592: p_old_PRICING_ATTR_rec.program_application_id IS NULL )
1593: THEN
1594: IF NOT QP_Validate.Program_Application(p_PRICING_ATTR_rec.program_application_id) THEN
1595: x_return_status := FND_API.G_RET_STS_ERROR;
1596: END IF;
1597: END IF;
1598:
1599: IF p_PRICING_ATTR_rec.program_id IS NOT NULL AND
1601: p_old_PRICING_ATTR_rec.program_id OR
1602: p_old_PRICING_ATTR_rec.program_id IS NULL )
1603: THEN
1604: IF NOT QP_Validate.Program(p_PRICING_ATTR_rec.program_id) THEN
1605: x_return_status := FND_API.G_RET_STS_ERROR;
1606: END IF;
1607: END IF;
1608:
1609: IF p_PRICING_ATTR_rec.program_update_date IS NOT NULL AND
1611: p_old_PRICING_ATTR_rec.program_update_date OR
1612: p_old_PRICING_ATTR_rec.program_update_date IS NULL )
1613: THEN
1614: IF NOT QP_Validate.Program_Update_Date(p_PRICING_ATTR_rec.program_update_date) THEN
1615: x_return_status := FND_API.G_RET_STS_ERROR;
1616: END IF;
1617: END IF;
1618:
1619: IF p_PRICING_ATTR_rec.request_id IS NOT NULL AND
1621: p_old_PRICING_ATTR_rec.request_id OR
1622: p_old_PRICING_ATTR_rec.request_id IS NULL )
1623: THEN
1624: IF NOT QP_Validate.Request(p_PRICING_ATTR_rec.request_id) THEN
1625: x_return_status := FND_API.G_RET_STS_ERROR;
1626: END IF;
1627: END IF;
1628:
1629: IF p_PRICING_ATTR_rec.comparison_operator_code IS NOT NULL AND
1631: p_old_PRICING_ATTR_rec.comparison_operator_code OR
1632: p_old_PRICING_ATTR_rec.comparison_operator_code IS NULL )
1633: THEN
1634: IF NOT QP_Validate.comparison_operator(p_PRICING_ATTR_rec.comparison_operator_code) THEN
1635: x_return_status := FND_API.G_RET_STS_ERROR;
1636: END IF;
1637: END IF;
1638:
1639: IF p_PRICING_ATTR_rec.pricing_attribute_datatype IS NOT NULL AND
1641: p_old_PRICING_ATTR_rec.pricing_attribute_datatype OR
1642: p_old_PRICING_ATTR_rec.pricing_attribute_datatype IS NULL )
1643: THEN
1644: IF NOT QP_Validate.Pricing_Attribute_Datatype(p_PRICING_ATTR_rec.pricing_attribute_datatype) THEN
1645: x_return_status := FND_API.G_RET_STS_ERROR;
1646: END IF;
1647: END IF;
1648:
1649: IF p_PRICING_ATTR_rec.product_attribute_datatype IS NOT NULL AND
1651: p_old_PRICING_ATTR_rec.product_attribute_datatype OR
1652: p_old_PRICING_ATTR_rec.product_attribute_datatype IS NULL )
1653: THEN
1654: IF NOT QP_Validate.product_attribute_datatype(p_PRICING_ATTR_rec.product_attribute_datatype) THEN
1655: x_return_status := FND_API.G_RET_STS_ERROR;
1656: END IF;
1657: END IF;
1658:
1659:
1794:
1795: -- Validate descriptive flexfield.
1796:
1797: IF NOT QP_Validate.Desc_Flex( 'PRICING_ATTR' ) THEN
1798: x_return_status := FND_API.G_RET_STS_ERROR;
1799: END IF;
1800:
1801: END IF;
1802:
1805: EXCEPTION
1806:
1807:
1808:
1809: WHEN FND_API.G_EXC_ERROR THEN
1810:
1811: x_return_status := FND_API.G_RET_STS_ERROR;
1812:
1813: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1807:
1808:
1809: WHEN FND_API.G_EXC_ERROR THEN
1810:
1811: x_return_status := FND_API.G_RET_STS_ERROR;
1812:
1813: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1814:
1815: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1809: WHEN FND_API.G_EXC_ERROR THEN
1810:
1811: x_return_status := FND_API.G_RET_STS_ERROR;
1812:
1813: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1814:
1815: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1816:
1817: WHEN OTHERS THEN
1811: x_return_status := FND_API.G_RET_STS_ERROR;
1812:
1813: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1814:
1815: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1816:
1817: WHEN OTHERS THEN
1818:
1819: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1815: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1816:
1817: WHEN OTHERS THEN
1818:
1819: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1820:
1821: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
1822: THEN
1823: oe_msg_pub.Add_Exc_Msg
1834: ( x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1835: , p_PRICING_ATTR_rec IN QP_Price_List_PUB.Pricing_Attr_Rec_Type
1836: )
1837: IS
1838: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1839: BEGIN
1840:
1841: -- Validate entity delete.
1842:
1847: x_return_status := l_return_status;
1848:
1849: EXCEPTION
1850:
1851: WHEN FND_API.G_EXC_ERROR THEN
1852:
1853: x_return_status := FND_API.G_RET_STS_ERROR;
1854:
1855: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1849: EXCEPTION
1850:
1851: WHEN FND_API.G_EXC_ERROR THEN
1852:
1853: x_return_status := FND_API.G_RET_STS_ERROR;
1854:
1855: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1856:
1857: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1851: WHEN FND_API.G_EXC_ERROR THEN
1852:
1853: x_return_status := FND_API.G_RET_STS_ERROR;
1854:
1855: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1856:
1857: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1858:
1859: WHEN OTHERS THEN
1853: x_return_status := FND_API.G_RET_STS_ERROR;
1854:
1855: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1856:
1857: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1858:
1859: WHEN OTHERS THEN
1860:
1861: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1857: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1858:
1859: WHEN OTHERS THEN
1860:
1861: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1862:
1863: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
1864: THEN
1865: oe_msg_pub.Add_Exc_Msg