[Home] [Help]
39: NOT OE_GLOBALS.EQUAL(p_header_rec.transaction_phase_code
40: ,p_old_header_rec.transaction_phase_code)
41: THEN
42: FND_MESSAGE.SET_NAME('ONT','OE_PHASE_UPDATE_NOT_ALLOWED');
43: OE_MSG_PUB.ADD;
44: RAISE FND_API.G_EXC_ERROR;
45: END IF;
46:
47: -- New version number cannot be lower than previous version
48:
49: IF nvl(p_header_rec.version_number,-1) < p_old_header_rec.version_number
50: THEN
51: FND_MESSAGE.SET_NAME('ONT','OE_VERSION_NUM_ERROR');
52: OE_MSG_PUB.ADD;
53: x_return_status := FND_API.G_RET_STS_ERROR;
54: END IF;
55:
56: END IF; -- End of check for UPDATE operation
70: THEN
71: FND_MESSAGE.SET_NAME('ONT','OE_CANT_UPDATE_QUOTE_ATTR');
72: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
73: OE_Order_UTIL.Get_Attribute_Name('QUOTE_NUMBER'));
74: OE_MSG_PUB.ADD;
75: x_return_status := FND_API.G_RET_STS_ERROR;
76: END IF;
77:
78: IF (NOT OE_GLOBALS.EQUAL(p_header_rec.quote_date
83: THEN
84: FND_MESSAGE.SET_NAME('ONT','OE_CANT_UPDATE_QUOTE_ATTR');
85: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
86: OE_Order_UTIL.Get_Attribute_Name('QUOTE_DATE'));
87: OE_MSG_PUB.ADD;
88: x_return_status := FND_API.G_RET_STS_ERROR;
89: END IF;
90:
91: IF (NOT OE_GLOBALS.EQUAL(p_header_rec.expiration_date
96: THEN
97: FND_MESSAGE.SET_NAME('ONT','OE_CANT_UPDATE_QUOTE_ATTR');
98: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
99: OE_Order_UTIL.Get_Attribute_Name('EXPIRATION_DATE'));
100: OE_MSG_PUB.ADD;
101: x_return_status := FND_API.G_RET_STS_ERROR;
102: END IF;
103:
104: -- Bug 3189579
119: THEN
120: FND_MESSAGE.SET_NAME('ONT','OE_CANT_UPDATE_ORDER_ATTR');
121: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
122: OE_Order_UTIL.Get_Attribute_Name('ORDER_NUMBER'));
123: OE_MSG_PUB.ADD;
124: x_return_status := FND_API.G_RET_STS_ERROR;
125: END IF;
126:
127: IF (NOT OE_GLOBALS.EQUAL(p_header_rec.ordered_date
132: THEN
133: FND_MESSAGE.SET_NAME('ONT','OE_CANT_UPDATE_ORDER_ATTR');
134: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
135: OE_Order_UTIL.Get_Attribute_Name('ORDERED_DATE'));
136: OE_MSG_PUB.ADD;
137: x_return_status := FND_API.G_RET_STS_ERROR;
138: END IF;
139:
140: -- Return orders not supported
139:
140: -- Return orders not supported
141: IF p_header_rec.order_category_code = 'RETURN' THEN
142: FND_MESSAGE.SET_NAME('ONT','OE_QUOTE_RETURN_NOT_SUPP');
143: OE_MSG_PUB.ADD;
144: x_return_status := FND_API.G_RET_STS_ERROR;
145: END IF;
146:
147: -- Internal sales orders not allowed
146:
147: -- Internal sales orders not allowed
148: IF p_header_rec.order_source_id = 10 THEN
149: FND_MESSAGE.SET_NAME('ONT','OE_QUOTE_INT_ORD_NOT_SUPP');
150: OE_MSG_PUB.ADD;
151: x_return_status := FND_API.G_RET_STS_ERROR;
152: END IF;
153:
154: -- Cancellation operation not supported for quotes
153:
154: -- Cancellation operation not supported for quotes
155: IF p_header_rec.cancelled_flag = 'Y' THEN
156: FND_MESSAGE.SET_NAME('ONT','OE_QUOTE_CANCEL_NOT_SUPP');
157: OE_MSG_PUB.ADD;
158: x_return_status := FND_API.G_RET_STS_ERROR;
159: END IF;
160:
161: END IF; -- End of check if phase = F/N
167: x_return_status := FND_API.G_RET_STS_ERROR;
168: WHEN OTHERS THEN
169: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
170:
171: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
172: THEN
173: OE_MSG_PUB.Add_Exc_Msg
174: ( G_PKG_NAME ,
175: 'Check_Negotiation_Attributes'
169: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
170:
171: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
172: THEN
173: OE_MSG_PUB.Add_Exc_Msg
174: ( G_PKG_NAME ,
175: 'Check_Negotiation_Attributes'
176: );
177: END IF;
204: x_return_status := FND_API.G_RET_STS_ERROR;
205: FND_MESSAGE.SET_NAME('ONT','OE_BOOK_REQUIRED_ATTRIBUTE');
206: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
207: OE_Order_UTIL.Get_Attribute_Name('SOLD_TO_ORG_ID'));
208: OE_MSG_PUB.ADD;
209: END IF;
210:
211: IF p_header_rec.salesrep_id IS NULL
212: THEN
213: x_return_status := FND_API.G_RET_STS_ERROR;
214: FND_MESSAGE.SET_NAME('ONT','OE_BOOK_REQUIRED_ATTRIBUTE');
215: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
216: OE_Order_UTIL.Get_Attribute_Name('SALESREP_ID'));
217: OE_MSG_PUB.ADD;
218: END IF;
219:
220: IF p_header_rec.ordered_date IS NULL
221: THEN
222: x_return_status := FND_API.G_RET_STS_ERROR;
223: FND_MESSAGE.SET_NAME('ONT','OE_BOOK_REQUIRED_ATTRIBUTE');
224: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
225: OE_Order_UTIL.Get_Attribute_Name('ORDERED_DATE'));
226: OE_MSG_PUB.ADD;
227: END IF;
228:
229: IF p_header_rec.invoice_to_org_id IS NULL
230: THEN
231: x_return_status := FND_API.G_RET_STS_ERROR;
232: FND_MESSAGE.SET_NAME('ONT','OE_BOOK_REQUIRED_ATTRIBUTE');
233: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
234: OE_Order_UTIL.Get_Attribute_Name('INVOICE_TO_ORG_ID'));
235: OE_MSG_PUB.ADD;
236: END IF;
237:
238: IF p_header_rec.tax_exempt_flag IS NULL
239: THEN
240: x_return_status := FND_API.G_RET_STS_ERROR;
241: FND_MESSAGE.SET_NAME('ONT','OE_BOOK_REQUIRED_ATTRIBUTE');
242: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
243: OE_Order_UTIL.Get_Attribute_Name('TAX_EXEMPT_FLAG'));
244: OE_MSG_PUB.ADD;
245: END IF;
246:
247:
248: -- Fix bug 1262790
257: x_return_status := FND_API.G_RET_STS_ERROR;
258: FND_MESSAGE.SET_NAME('ONT','OE_BOOK_REQUIRED_ATTRIBUTE');
259: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
260: OE_Order_UTIL.Get_Attribute_Name('SHIP_TO_ORG_ID'));
261: OE_MSG_PUB.ADD;
262: END IF;
263:
264: IF p_header_rec.payment_term_id IS NULL
265: THEN
266: x_return_status := FND_API.G_RET_STS_ERROR;
267: FND_MESSAGE.SET_NAME('ONT','OE_BOOK_REQUIRED_ATTRIBUTE');
268: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
269: OE_Order_UTIL.Get_Attribute_Name('PAYMENT_TERM_ID'));
270: OE_MSG_PUB.ADD;
271: END IF;
272:
273: END IF;
274:
275: --key transaction dates
276: IF (OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110509' and p_header_rec.order_firmed_date > p_header_rec.booked_date) THEN
277: x_return_status := FND_API.G_RET_STS_ERROR;
278: FND_MESSAGE.SET_NAME('ONT','ONT_ORDER_FIRMED_DATE_INVALID');
279: OE_MSG_PUB.ADD;
280: END IF;
281: --end
282:
283: -- Check for additional required fields based on flags set
292: x_return_status := FND_API.G_RET_STS_ERROR;
293: FND_MESSAGE.SET_NAME('ONT','OE_BOOK_REQUIRED_ATTRIBUTE');
294: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
295: OE_Order_UTIL.Get_Attribute_Name('AGREEMENT_ID'));
296: OE_MSG_PUB.ADD;
297: END IF;
298:
299: IF ( l_order_type_rec.require_po_flag = 'Y' AND
300: p_header_rec.cust_po_number IS NULL)
302: x_return_status := FND_API.G_RET_STS_ERROR;
303: FND_MESSAGE.SET_NAME('ONT','OE_BOOK_REQUIRED_ATTRIBUTE');
304: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
305: OE_Order_UTIL.Get_Attribute_Name('CUST_PO_NUMBER'));
306: OE_MSG_PUB.ADD;
307: END IF;
308:
309:
310: -- Conversion Type Related Checks
322: FND_MESSAGE.SET_NAME('ONT','OE_VAL_REQ_NON_BASE_CURRENCY');
323: FND_MESSAGE.SET_TOKEN
324: ('ORDER_CURRENCY',p_header_rec.transactional_curr_code);
325: FND_MESSAGE.SET_TOKEN('SOB_CURRENCY',l_set_of_books_rec.currency_code);
326: OE_MSG_PUB.ADD;
327: END IF;
328:
329: -- IF conversion type is 'User', conversion rate AND conversion rate date
330: -- required.
336: p_header_rec.conversion_rate_date IS NULL
337: THEN
338: x_return_status := FND_API.G_RET_STS_ERROR;
339: FND_MESSAGE.SET_NAME('ONT','OE_VAL_USER_CONVERSION_TYPE');
340: OE_MSG_PUB.ADD;
341: END IF;
342: END IF; -- END of checks based on conversion type
343:
344:
355: x_return_status := FND_API.G_RET_STS_ERROR;
356: FND_MESSAGE.SET_NAME('ONT','OE_BOOK_REQUIRED_ATTRIBUTE');
357: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
358: OE_Order_UTIL.Get_Attribute_Name('PAYMENT_AMOUNT'));
359: OE_MSG_PUB.ADD;
360: END IF;
361:
362: -- check number required IF payment type is Check
363:
365: p_header_rec.check_number IS NULL )
366: THEN
367: x_return_status := FND_API.G_RET_STS_ERROR;
368: FND_MESSAGE.SET_NAME('ONT','OE_VAL_CHECK_NUM_REQD');
369: OE_MSG_PUB.ADD;
370: END IF;
371:
372: -- credit card holder name, number AND expiration date
373: -- required for payment type of Credit Card
381: OR p_header_rec.credit_card_expiration_date IS NULL
382: THEN
383: x_return_status := FND_API.G_RET_STS_ERROR;
384: FND_MESSAGE.SET_NAME('ONT','OE_VAL_CREDIT_CARD_REQD');
385: OE_MSG_PUB.ADD;
386: END IF;
387: END IF;
388: */
389:
393: EXCEPTION
394: WHEN OTHERS THEN
395: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
396:
397: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
398: THEN
399: OE_MSG_PUB.Add_Exc_Msg
400: ( G_PKG_NAME ,
401: 'Check_Book_Reqd_Attributes'
395: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
396:
397: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
398: THEN
399: OE_MSG_PUB.Add_Exc_Msg
400: ( G_PKG_NAME ,
401: 'Check_Book_Reqd_Attributes'
402: );
403: END IF;
448: oe_debug_pub.add('Exiting OE_VALIDATE_HEADER.Validate_Order_Type',1);
449: EXCEPTION
450: WHEN NO_DATA_FOUND THEN
451: FND_MESSAGE.SET_NAME('ONT','OE_FLOW_CNT_CHANGE');
452: OE_MSG_PUB.ADD;
453: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
454:
455: WHEN OTHERS THEN
456: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
452: OE_MSG_PUB.ADD;
453: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
454:
455: WHEN OTHERS THEN
456: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
457: THEN
458: OE_MSG_PUB.Add_Exc_Msg
459: ( G_PKG_NAME ,
460: 'Validate_Order_Type'
454:
455: WHEN OTHERS THEN
456: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
457: THEN
458: OE_MSG_PUB.Add_Exc_Msg
459: ( G_PKG_NAME ,
460: 'Validate_Order_Type'
461: );
462: END IF;
516:
517: EXCEPTION
518: WHEN NO_DATA_FOUND THEN
519: FND_MESSAGE.SET_NAME('ONT','OE_FLOW_CNT_CHANGE');
520: OE_MSG_PUB.ADD;
521: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
522:
523: WHEN OTHERS THEN
524: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
520: OE_MSG_PUB.ADD;
521: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
522:
523: WHEN OTHERS THEN
524: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
525: THEN
526: OE_MSG_PUB.Add_Exc_Msg
527: ( G_PKG_NAME ,
528: 'Validate_Commitment_Currency'
522:
523: WHEN OTHERS THEN
524: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
525: THEN
526: OE_MSG_PUB.Add_Exc_Msg
527: ( G_PKG_NAME ,
528: 'Validate_Commitment_Currency'
529: );
530: END IF;
620:
621: EXCEPTION
622: WHEN NO_DATA_FOUND THEN
623: FND_MESSAGE.SET_NAME('ONT','OE_FLOW_CNT_CHANGE');
624: OE_MSG_PUB.ADD;
625: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
626:
627: WHEN OTHERS THEN
628: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
624: OE_MSG_PUB.ADD;
625: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
626:
627: WHEN OTHERS THEN
628: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
629: THEN
630: OE_MSG_PUB.Add_Exc_Msg
631: ( G_PKG_NAME ,
632: 'Validate_Commitment_Customer'
626:
627: WHEN OTHERS THEN
628: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
629: THEN
630: OE_MSG_PUB.Add_Exc_Msg
631: ( G_PKG_NAME ,
632: 'Validate_Commitment_Customer'
633: );
634: END IF;
712: end if;
713:
714: IF p_header_rec.blanket_number IS NULL THEN
715: FND_MESSAGE.SET_NAME('ONT', 'OE_BLKT_NO_BLANKET_LINE_NUM');
716: OE_MSG_PUB.Add;
717: x_return_status := FND_API.G_RET_STS_ERROR;
718: RETURN;
719: END IF;
720:
744: WHEN NO_DATA_FOUND THEN
745: FND_MESSAGE.SET_NAME('ONT', 'OE_INVALID_ATTRIBUTE');
746: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
747: OE_Order_Util.Get_Attribute_Name('BLANKET_NUMBER'));
748: OE_MSG_PUB.Add;
749: if l_debug_level > 0 then
750: OE_DEBUG_PUB.Add('No Data Found when Validating Blanket',3);
751: end if;
752: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
785: , x_org => l_customer_name
786: , x_customer_number => l_customer_number
787: );
788: FND_MESSAGE.SET_TOKEN('BLANKET_VALUE',l_customer_name);
789: OE_MSG_PUB.Add;
790: x_return_status := FND_API.G_RET_STS_ERROR;
791: end;
792: else
793: FND_MESSAGE.SET_NAME('ONT','OE_BLKT_INVALID_ATTRIBUTE');
799: , x_org => l_customer_name
800: , x_customer_number => l_customer_number
801: );
802: FND_MESSAGE.SET_TOKEN('BLANKET_VALUE',l_customer_name);
803: OE_MSG_PUB.Add;
804: x_return_status := FND_API.G_RET_STS_ERROR;
805: end if;
806: END IF;
807:
811: if l_debug_level > 0 then
812: OE_DEBUG_PUB.Add('Blanket order is currently on hold', 1);
813: end if;
814: FND_MESSAGE.SET_NAME('ONT', 'OE_BLKT_ON_HOLD');
815: OE_MSG_PUB.Add;
816: x_return_status := FND_API.G_RET_STS_ERROR;
817: END IF;
818:
819: IF p_header_rec.order_category_code = 'ORDER' AND
829: end if;
830: FND_MESSAGE.SET_NAME('ONT', 'OE_INVALID_ATTRIBUTE');
831: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
832: OE_Order_Util.Get_Attribute_Name('BLANKET_NUMBER'));
833: OE_MSG_PUB.Add;
834: x_return_status := FND_API.G_RET_STS_ERROR;
835: END IF;
836:
837: --For Bug 3192386
843: end if;
844: FND_MESSAGE.SET_NAME('ONT', 'OE_INVALID_ATTRIBUTE');
845: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
846: OE_Order_Util.Get_Attribute_Name('BLANKET_NUMBER'));
847: OE_MSG_PUB.Add;
848: x_return_status := FND_API.G_RET_STS_ERROR;
849: END IF;
850:
851: IF p_header_rec.agreement_id IS NOT NULL THEN
849: END IF;
850:
851: IF p_header_rec.agreement_id IS NOT NULL THEN
852: FND_MESSAGE.SET_NAME('ONT', 'OE_BLKT_AGREEMENT_EXISTS');
853: OE_MSG_PUB.Add;
854: x_return_status := FND_API.G_RET_STS_ERROR;
855: END IF;
856: if l_debug_level > 0 then
857: OE_DEBUG_PUB.Add('Exiting OE_VALIDATE_HEADER.Validate_Blanket_Values',1);
875: WHEN OTHERS THEN
876:
877: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
878:
879: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
880: THEN
881: OE_MSG_PUB.Add_Exc_Msg
882: ( 'OE_VALIDATE_LINE',
883: 'Validate_Blanket_Values');
877: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
878:
879: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
880: THEN
881: OE_MSG_PUB.Add_Exc_Msg
882: ( 'OE_VALIDATE_LINE',
883: 'Validate_Blanket_Values');
884: END IF;
885:
975: IF p_header_rec.header_id IS NULL
976: THEN
977: l_return_status := FND_API.G_RET_STS_ERROR;
978:
979: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
980: THEN
981: fnd_message.set_name('ONT','OE_ATTRIBUTE_REQUIRED');
982: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
983: OE_Order_UTIL.Get_Attribute_Name('HEADER_ID'));
980: THEN
981: fnd_message.set_name('ONT','OE_ATTRIBUTE_REQUIRED');
982: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
983: OE_Order_UTIL.Get_Attribute_Name('HEADER_ID'));
984: OE_MSG_PUB.Add;
985: END IF;
986:
987: END IF;
988:
992: AND p_header_rec.transaction_phase_code IS NULL
993: THEN
994: l_return_status := FND_API.G_RET_STS_ERROR;
995:
996: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
997: THEN
998: fnd_message.set_name('ONT','OE_ATTRIBUTE_REQUIRED');
999: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
1000: OE_Order_UTIL.Get_Attribute_Name('TRANSACTION_PHASE_CODE'));
997: THEN
998: fnd_message.set_name('ONT','OE_ATTRIBUTE_REQUIRED');
999: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
1000: OE_Order_UTIL.Get_Attribute_Name('TRANSACTION_PHASE_CODE'));
1001: OE_MSG_PUB.Add;
1002: END IF;
1003:
1004: END IF;
1005:
1011: IF p_header_rec.order_type_id IS NULL
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: fnd_message.set_name('ONT','OE_ATTRIBUTE_REQUIRED');
1018: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
1019: OE_Order_UTIL.Get_Attribute_Name('ORDER_TYPE_ID'));
1016: THEN
1017: fnd_message.set_name('ONT','OE_ATTRIBUTE_REQUIRED');
1018: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
1019: OE_Order_UTIL.Get_Attribute_Name('ORDER_TYPE_ID'));
1020: OE_MSG_PUB.Add;
1021: END IF;
1022: ELSE
1023: Validate_Order_Type
1024: (p_order_type_id => p_header_rec.order_type_id,
1031: IF p_header_rec.transactional_curr_code IS NULL
1032: THEN
1033: l_return_status := FND_API.G_RET_STS_ERROR;
1034:
1035: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_ERROR)
1036: THEN
1037: fnd_message.set_name('ONT','OE_ATTRIBUTE_REQUIRED');
1038: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
1039: OE_Order_UTIL.Get_Attribute_Name('TRANSACTIONAL_CURR_CODE'));
1036: THEN
1037: fnd_message.set_name('ONT','OE_ATTRIBUTE_REQUIRED');
1038: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
1039: OE_Order_UTIL.Get_Attribute_Name('TRANSACTIONAL_CURR_CODE'));
1040: OE_MSG_PUB.Add;
1041: END IF;
1042:
1043: END IF;
1044:
1068:
1069: -- Feature not supported prior to 11i10, raise error
1070: IF p_header_rec.transaction_phase_code = 'N' THEN
1071: FND_MESSAGE.SET_NAME('ONT','OE_QUOTE_INVALID_RELEASE');
1072: OE_MSG_PUB.ADD;
1073: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1074: END IF;
1075:
1076: END IF;
1101: (p_header_rec.tax_exempt_reason_code IS NOT NULL AND
1102: p_header_rec.tax_exempt_reason_code <> FND_API.G_MISS_CHAR) THEN
1103: l_return_status := FND_API.G_RET_STS_ERROR;
1104:
1105: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_ERROR)
1106: THEN
1107: fnd_message.set_name('ONT','OE_NO_TAX_EXEMPTION');
1108: OE_MSG_PUB.Add;
1109: END IF;
1104:
1105: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_ERROR)
1106: THEN
1107: fnd_message.set_name('ONT','OE_NO_TAX_EXEMPTION');
1108: OE_MSG_PUB.Add;
1109: END IF;
1110: END IF;
1111:
1112: END IF;
1121: THEN
1122:
1123: l_return_status := FND_API.G_RET_STS_ERROR;
1124:
1125: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_ERROR)
1126: THEN
1127: fnd_message.set_name('ONT','OE_TAX_EXEMPTION_REQUIRED');
1128: OE_MSG_PUB.Add;
1129: END IF;
1124:
1125: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_ERROR)
1126: THEN
1127: fnd_message.set_name('ONT','OE_TAX_EXEMPTION_REQUIRED');
1128: OE_MSG_PUB.Add;
1129: END IF;
1130:
1131: END IF; */
1132:
1136: p_header_rec.tax_exempt_reason_code = FND_API.G_MISS_CHAR
1137: THEN
1138: l_return_status := FND_API.G_RET_STS_ERROR;
1139:
1140: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_ERROR)
1141: THEN
1142: fnd_message.set_name('ONT','OE_ATTRIBUTE_REQUIRED');
1143: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
1144: OE_Order_UTIL.Get_Attribute_Name('TAX_EXEMPT_REASON_CODE'));
1141: THEN
1142: fnd_message.set_name('ONT','OE_ATTRIBUTE_REQUIRED');
1143: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
1144: OE_Order_UTIL.Get_Attribute_Name('TAX_EXEMPT_REASON_CODE'));
1145: OE_MSG_PUB.Add;
1146: END IF;
1147:
1148: END IF;
1149:
1160: p_header_rec.tax_exempt_reason_code <> FND_API.G_MISS_CHAR)
1161: THEN
1162: l_return_status := FND_API.G_RET_STS_ERROR;
1163:
1164: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_ERROR)
1165: THEN
1166: fnd_message.set_name('ONT','OE_TAX_EXEMPTION_NOT_ALLOWED');
1167: OE_MSG_PUB.Add;
1168: END IF;
1163:
1164: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_ERROR)
1165: THEN
1166: fnd_message.set_name('ONT','OE_TAX_EXEMPTION_NOT_ALLOWED');
1167: OE_MSG_PUB.Add;
1168: END IF;
1169: END IF;
1170:
1171: END IF;
1204: p_header_rec.transactional_curr_code,
1205: p_header_rec.pricing_date,
1206: l_validate_result);
1207: Exception when others then
1208: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1209: THEN
1210:
1211: OE_MSG_PUB.Add_Exc_Msg
1212: ( G_PKG_NAME ,
1207: Exception when others then
1208: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1209: THEN
1210:
1211: OE_MSG_PUB.Add_Exc_Msg
1212: ( G_PKG_NAME ,
1213: 'OE_VALIDATE_HEADER-QP_UTIL_PUB'
1214: );
1215: END IF;
1274: l_return_status := FND_API.G_RET_STS_ERROR;
1275: fnd_message.set_name('ONT','OE_VAL_ORD_CURRENCY_MISMATCH');
1276: FND_MESSAGE.SET_TOKEN('ORDER_CURRENCY',p_header_rec.transactional_curr_code);
1277: FND_MESSAGE.SET_TOKEN('PRICE_LIST_CURRENCY',l_price_list_rec.currency_code);
1278: OE_MSG_PUB.Add;
1279: END IF;
1280: End;
1281: END IF;
1282: END IF; -- Price list or currency changed.
1295: IF l_comt_curr_status = FND_API.G_RET_STS_ERROR THEN
1296: l_return_status := FND_API.G_RET_STS_ERROR;
1297: Fnd_Message.Set_Name('ONT','ONT_INVALID_CURR_CHANGE');
1298: Fnd_message.set_token('REASON','ONT_COMMITMENT_ON_LINE',TRUE);
1299: OE_MSG_PUB.Add;
1300: oe_debug_pub.add('Error: currency code does not match the currency for the commitment.', 3);
1301: RAISE FND_API.G_EXC_ERROR;
1302: END IF;
1303: END IF;
1312: <> FND_API.G_MISS_DATE
1313: THEN
1314: l_return_status := FND_API.G_RET_STS_ERROR;
1315: fnd_message.set_name('ONT','OE_VAL_CONVERSION_TYPE');
1316: OE_MSG_PUB.Add;
1317: END IF;
1318:
1319: END IF;
1320:
1323: p_header_rec.conversion_rate IS NOT NULL
1324: THEN
1325: l_return_status := FND_API.G_RET_STS_ERROR;
1326: FND_MESSAGE.SET_NAME('ONT','OE_VALIDATION_CONV_TYPE');
1327: OE_MSG_PUB.ADD;
1328:
1329: END IF; -- END of checks based on conversion type
1330:
1331:
1354: l_return_status := FND_API.G_RET_STS_ERROR;
1355: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
1356: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
1357: OE_Order_Util.Get_Attribute_Name('ORDER_TYPE_ID'));
1358: OE_MSG_PUB.Add;
1359:
1360: WHEN OTHERS THEN
1361:
1362: IF OE_MSG_PUB.Check_Msg_Level
1358: OE_MSG_PUB.Add;
1359:
1360: WHEN OTHERS THEN
1361:
1362: IF OE_MSG_PUB.Check_Msg_Level
1363: (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1364: THEN
1365:
1366: OE_MSG_PUB.Add_Exc_Msg
1359:
1360: WHEN OTHERS THEN
1361:
1362: IF OE_MSG_PUB.Check_Msg_Level
1363: (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1364: THEN
1365:
1366: OE_MSG_PUB.Add_Exc_Msg
1367: ( G_PKG_NAME ,
1362: IF OE_MSG_PUB.Check_Msg_Level
1363: (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1364: THEN
1365:
1366: OE_MSG_PUB.Add_Exc_Msg
1367: ( G_PKG_NAME ,
1368: 'Record - Order Type'
1369: );
1370: END IF;
1455: ELSE
1456: fnd_message.set_name('ONT', 'ONT_INVALID_AGREEMENT');
1457: fnd_message.set_Token('AGREEMENT_NAME',l_agreement_name);
1458: fnd_message.set_Token('REVISION',l_agreement_revision);
1459: OE_MSG_PUB.Add;
1460: oe_debug_pub.add('Invalid Agreement ',1);
1461: raise FND_API.G_EXC_ERROR;
1462: END IF;
1463: END;
1483: fnd_message.set_Token
1484: ('AGREEMENT_NAME', l_agreement_name || sqlerrm);
1485: fnd_message.set_Token('PRICE_LIST1', p_Header_rec.price_list_id);
1486: fnd_message.set_Token('PRICE_LIST2', l_price_list_id);
1487: OE_MSG_PUB.Add;
1488: oe_debug_pub.add('Invalid Agreement +price_list_id combination',2);
1489: raise FND_API.G_EXC_ERROR;
1490: END IF;
1491: END IF;
1497: fnd_message.set_name('ONT', 'OE_INVALID_AGREEMENT');
1498: fnd_message.set_Token('AGREEMENT_ID', p_header_rec.agreement_id);
1499: fnd_message.set_Token('AGREEMENT_NAME', l_agreement_name);
1500: fnd_message.set_Token('CUSTOMER_ID', p_header_rec.sold_to_org_id);
1501: OE_MSG_PUB.Add;
1502: IF l_debug_level > 0 then
1503: oe_debug_pub.add('Invalid Agreement +sold_org_id combination',2);
1504: END IF;
1505: RAISE FND_API.G_EXC_ERROR;
1522: fnd_message.set_name('ONT', 'OE_INVALID_AGREEMENT');
1523: fnd_message.set_Token('AGREEMENT_ID', p_header_rec.agreement_id);
1524: fnd_message.set_Token('AGREEMENT_NAME', l_agreement_name);
1525: fnd_message.set_Token('CUSTOMER_ID', p_header_rec.sold_to_org_id);
1526: OE_MSG_PUB.Add;
1527: IF l_debug_level > 0 then
1528: oe_debug_pub.add('Invalid Agreement +sold_org_id combination',2);
1529: END IF;
1530: RAISE FND_API.G_EXC_ERROR;
1540: fnd_message.set_name('ONT', 'OE_INVALID_AGREEMENT_PLIST');
1541: fnd_message.set_Token('AGREEMENT_NAME', l_agreement_name);
1542: fnd_message.set_Token('PRICE_LIST1', p_Header_rec.price_list_id);
1543: fnd_message.set_Token('PRICE_LIST2', l_price_list_id || sqlerrm);
1544: OE_MSG_PUB.Add;
1545: oe_debug_pub.add
1546: ('No Data Found Agreement+price_list_id combination',2);
1547: raise FND_API.G_EXC_ERROR;
1548: END;
1557: (l_order_type_rec.agreement_type_code IS NOT NULL AND
1558: l_agreement_rec.agreement_type_code <>
1559: l_order_type_rec.agreement_type_code ) THEN
1560: l_return_status := FND_API.G_RET_STS_ERROR;
1561: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
1562: THEN
1563: fnd_message.set_name('ONT','OE_INVALID_AGREEMENT');
1564: OE_MSG_PUB.Add;
1565: END IF;
1560: l_return_status := FND_API.G_RET_STS_ERROR;
1561: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
1562: THEN
1563: fnd_message.set_name('ONT','OE_INVALID_AGREEMENT');
1564: OE_MSG_PUB.Add;
1565: END IF;
1566: END IF;
1567: ***/
1568:
1653: l_return_status := FND_API.G_RET_STS_ERROR;
1654: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
1655: FND_MESSAGE.SET_TOKEN('ATTRIBUTE', OE_Order_Util.Get_Attribute_Name
1656: ('ship_to_org_id'));
1657: OE_MSG_PUB.Add;
1658:
1659: WHEN OTHERS THEN
1660:
1661: IF OE_MSG_PUB.Check_Msg_Level
1657: OE_MSG_PUB.Add;
1658:
1659: WHEN OTHERS THEN
1660:
1661: IF OE_MSG_PUB.Check_Msg_Level
1662: (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1663: THEN
1664: OE_MSG_PUB.Add_Exc_Msg
1665: ( G_PKG_NAME ,
1658:
1659: WHEN OTHERS THEN
1660:
1661: IF OE_MSG_PUB.Check_Msg_Level
1662: (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1663: THEN
1664: OE_MSG_PUB.Add_Exc_Msg
1665: ( G_PKG_NAME ,
1666: 'Record - Ship To'
1660:
1661: IF OE_MSG_PUB.Check_Msg_Level
1662: (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1663: THEN
1664: OE_MSG_PUB.Add_Exc_Msg
1665: ( G_PKG_NAME ,
1666: 'Record - Ship To'
1667: );
1668: END IF;
1746: l_return_status := FND_API.G_RET_STS_ERROR;
1747: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
1748: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
1749: OE_Order_Util.Get_Attribute_Name('deliver_to_org_id'));
1750: OE_MSG_PUB.Add;
1751:
1752: WHEN OTHERS THEN
1753:
1754: IF OE_MSG_PUB.Check_Msg_Level
1750: OE_MSG_PUB.Add;
1751:
1752: WHEN OTHERS THEN
1753:
1754: IF OE_MSG_PUB.Check_Msg_Level
1755: (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1756: THEN
1757:
1758: OE_MSG_PUB.Add_Exc_Msg
1751:
1752: WHEN OTHERS THEN
1753:
1754: IF OE_MSG_PUB.Check_Msg_Level
1755: (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1756: THEN
1757:
1758: OE_MSG_PUB.Add_Exc_Msg
1759: ( G_PKG_NAME ,
1754: IF OE_MSG_PUB.Check_Msg_Level
1755: (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1756: THEN
1757:
1758: OE_MSG_PUB.Add_Exc_Msg
1759: ( G_PKG_NAME ,
1760: 'Record - Deliver To'
1761: );
1762: END IF;
1830: l_return_status := FND_API.G_RET_STS_ERROR;
1831: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
1832: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
1833: OE_Order_Util.Get_Attribute_Name('invoice_to_org_id'));
1834: OE_MSG_PUB.Add;
1835:
1836: WHEN OTHERS THEN
1837:
1838: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1834: OE_MSG_PUB.Add;
1835:
1836: WHEN OTHERS THEN
1837:
1838: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1839: THEN
1840: OE_MSG_PUB.Add_Exc_Msg
1841: ( G_PKG_NAME ,
1842: 'Record - Invoice To'
1836: WHEN OTHERS THEN
1837:
1838: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1839: THEN
1840: OE_MSG_PUB.Add_Exc_Msg
1841: ( G_PKG_NAME ,
1842: 'Record - Invoice To'
1843: );
1844: END IF;
1884: l_return_status := FND_API.G_RET_STS_ERROR;
1885: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
1886: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
1887: OE_Order_Util.Get_Attribute_Name('SOLD_TO_SITE_USE_ID'));
1888: OE_MSG_PUB.Add;
1889:
1890: WHEN OTHERS THEN
1891:
1892: IF OE_MSG_PUB.Check_Msg_Level
1888: OE_MSG_PUB.Add;
1889:
1890: WHEN OTHERS THEN
1891:
1892: IF OE_MSG_PUB.Check_Msg_Level
1893: (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1894: THEN
1895:
1896: OE_MSG_PUB.Add_Exc_Msg
1889:
1890: WHEN OTHERS THEN
1891:
1892: IF OE_MSG_PUB.Check_Msg_Level
1893: (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1894: THEN
1895:
1896: OE_MSG_PUB.Add_Exc_Msg
1897: ( G_PKG_NAME ,
1892: IF OE_MSG_PUB.Check_Msg_Level
1893: (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1894: THEN
1895:
1896: OE_MSG_PUB.Add_Exc_Msg
1897: ( G_PKG_NAME ,
1898: 'Record - Customer Location'
1899: );
1900: END IF;
1936: l_return_status := FND_API.G_RET_STS_ERROR;
1937: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
1938: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
1939: OE_Order_Util.Get_Attribute_Name('END_CUSTOMER_CONTACT_ID'));
1940: OE_MSG_PUB.Add;
1941:
1942: WHEN OTHERS THEN
1943: IF OE_MSG_PUB.Check_Msg_Level
1944: ( OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1939: OE_Order_Util.Get_Attribute_Name('END_CUSTOMER_CONTACT_ID'));
1940: OE_MSG_PUB.Add;
1941:
1942: WHEN OTHERS THEN
1943: IF OE_MSG_PUB.Check_Msg_Level
1944: ( OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1945: THEN
1946: OE_MSG_PUB.Add_Exc_Msg
1947: ( G_PKG_NAME ,
1940: OE_MSG_PUB.Add;
1941:
1942: WHEN OTHERS THEN
1943: IF OE_MSG_PUB.Check_Msg_Level
1944: ( OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1945: THEN
1946: OE_MSG_PUB.Add_Exc_Msg
1947: ( G_PKG_NAME ,
1948: 'Record - End Customer Contact'
1942: WHEN OTHERS THEN
1943: IF OE_MSG_PUB.Check_Msg_Level
1944: ( OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1945: THEN
1946: OE_MSG_PUB.Add_Exc_Msg
1947: ( G_PKG_NAME ,
1948: 'Record - End Customer Contact'
1949: );
1950: END IF;
1984: l_return_status := FND_API.G_RET_STS_ERROR;
1985: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
1986: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
1987: OE_Order_Util.Get_Attribute_Name('END_CUSTOMER_SITE_USE_ID'));
1988: OE_MSG_PUB.Add;
1989:
1990: WHEN OTHERS THEN
1991: IF OE_MSG_PUB.Check_Msg_Level
1992: ( OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1987: OE_Order_Util.Get_Attribute_Name('END_CUSTOMER_SITE_USE_ID'));
1988: OE_MSG_PUB.Add;
1989:
1990: WHEN OTHERS THEN
1991: IF OE_MSG_PUB.Check_Msg_Level
1992: ( OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1993: THEN
1994: OE_MSG_PUB.Add_Exc_Msg
1995: ( G_PKG_NAME ,
1988: OE_MSG_PUB.Add;
1989:
1990: WHEN OTHERS THEN
1991: IF OE_MSG_PUB.Check_Msg_Level
1992: ( OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1993: THEN
1994: OE_MSG_PUB.Add_Exc_Msg
1995: ( G_PKG_NAME ,
1996: 'Record - End Customer Site'
1990: WHEN OTHERS THEN
1991: IF OE_MSG_PUB.Check_Msg_Level
1992: ( OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1993: THEN
1994: OE_MSG_PUB.Add_Exc_Msg
1995: ( G_PKG_NAME ,
1996: 'Record - End Customer Site'
1997: );
1998: END IF;
2034: l_return_status := FND_API.G_RET_STS_ERROR;
2035: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
2036: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
2037: OE_Order_Util.Get_Attribute_Name('SOLD_TO_CONTACT_ID'));
2038: OE_MSG_PUB.Add;
2039:
2040: WHEN OTHERS THEN
2041: IF OE_MSG_PUB.Check_Msg_Level
2042: ( OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2037: OE_Order_Util.Get_Attribute_Name('SOLD_TO_CONTACT_ID'));
2038: OE_MSG_PUB.Add;
2039:
2040: WHEN OTHERS THEN
2041: IF OE_MSG_PUB.Check_Msg_Level
2042: ( OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2043: THEN
2044: OE_MSG_PUB.Add_Exc_Msg
2045: ( G_PKG_NAME ,
2038: OE_MSG_PUB.Add;
2039:
2040: WHEN OTHERS THEN
2041: IF OE_MSG_PUB.Check_Msg_Level
2042: ( OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2043: THEN
2044: OE_MSG_PUB.Add_Exc_Msg
2045: ( G_PKG_NAME ,
2046: 'Record - Sold To Contact'
2040: WHEN OTHERS THEN
2041: IF OE_MSG_PUB.Check_Msg_Level
2042: ( OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2043: THEN
2044: OE_MSG_PUB.Add_Exc_Msg
2045: ( G_PKG_NAME ,
2046: 'Record - Sold To Contact'
2047: );
2048: END IF;
2091: l_return_status := FND_API.G_RET_STS_ERROR;
2092: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
2093: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
2094: OE_Order_Util.Get_Attribute_Name('INVOICE_TO_CONTACT_ID'));
2095: OE_MSG_PUB.Add;
2096:
2097:
2098: WHEN OTHERS THEN
2099:
2096:
2097:
2098: WHEN OTHERS THEN
2099:
2100: IF OE_MSG_PUB.Check_Msg_Level
2101: (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2102: THEN
2103:
2104: OE_MSG_PUB.Add_Exc_Msg
2097:
2098: WHEN OTHERS THEN
2099:
2100: IF OE_MSG_PUB.Check_Msg_Level
2101: (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2102: THEN
2103:
2104: OE_MSG_PUB.Add_Exc_Msg
2105: ( G_PKG_NAME ,
2100: IF OE_MSG_PUB.Check_Msg_Level
2101: (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2102: THEN
2103:
2104: OE_MSG_PUB.Add_Exc_Msg
2105: ( G_PKG_NAME ,
2106: 'Record - Invoice To Contact'
2107: );
2108: END IF;
2151: l_return_status := FND_API.G_RET_STS_ERROR;
2152: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
2153: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
2154: OE_Order_Util.Get_Attribute_Name('SHIP_TO_CONTACT_ID'));
2155: OE_MSG_PUB.Add;
2156:
2157:
2158: WHEN OTHERS THEN
2159:
2156:
2157:
2158: WHEN OTHERS THEN
2159:
2160: IF OE_MSG_PUB.Check_Msg_Level
2161: (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2162: THEN
2163:
2164: OE_MSG_PUB.Add_Exc_Msg
2157:
2158: WHEN OTHERS THEN
2159:
2160: IF OE_MSG_PUB.Check_Msg_Level
2161: (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2162: THEN
2163:
2164: OE_MSG_PUB.Add_Exc_Msg
2165: ( G_PKG_NAME ,
2160: IF OE_MSG_PUB.Check_Msg_Level
2161: (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2162: THEN
2163:
2164: OE_MSG_PUB.Add_Exc_Msg
2165: ( G_PKG_NAME ,
2166: 'Record - Ship To Contact'
2167: );
2168: END IF;
2211: l_return_status := FND_API.G_RET_STS_ERROR;
2212: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
2213: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
2214: OE_Order_Util.Get_Attribute_Name('DELIVER_TO_CONTACT_ID'));
2215: OE_MSG_PUB.Add;
2216:
2217: WHEN OTHERS THEN
2218:
2219: IF OE_MSG_PUB.Check_Msg_Level (
2215: OE_MSG_PUB.Add;
2216:
2217: WHEN OTHERS THEN
2218:
2219: IF OE_MSG_PUB.Check_Msg_Level (
2220: OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2221: THEN
2222: OE_MSG_PUB.Add_Exc_Msg
2223: ( G_PKG_NAME ,
2216:
2217: WHEN OTHERS THEN
2218:
2219: IF OE_MSG_PUB.Check_Msg_Level (
2220: OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2221: THEN
2222: OE_MSG_PUB.Add_Exc_Msg
2223: ( G_PKG_NAME ,
2224: 'Record - Deliver To Contact'
2218:
2219: IF OE_MSG_PUB.Check_Msg_Level (
2220: OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2221: THEN
2222: OE_MSG_PUB.Add_Exc_Msg
2223: ( G_PKG_NAME ,
2224: 'Record - Deliver To Contact'
2225: );
2226: END IF;
2343: l_return_status := FND_API.G_RET_STS_ERROR;
2344: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
2345: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
2346: OE_Order_Util.Get_Attribute_Name('TAX_EXEMPT_NUMBER'));
2347: OE_MSG_PUB.Add;
2348: END IF;
2349:
2350: WHEN OTHERS THEN
2351:
2348: END IF;
2349:
2350: WHEN OTHERS THEN
2351:
2352: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2353: THEN
2354:
2355: OE_MSG_PUB.Add_Exc_Msg
2356: ( G_PKG_NAME ,
2351:
2352: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2353: THEN
2354:
2355: OE_MSG_PUB.Add_Exc_Msg
2356: ( G_PKG_NAME ,
2357: 'Record - Tax Exempt Number'
2358: );
2359: END IF;
2385: ,p_header_rec.sold_to_org_id
2386: ,p_header_rec.header_id )
2387: THEN
2388: FND_MESSAGE.SET_NAME('ONT','OE_VAL_DUP_PO_NUMBER');
2389: OE_MSG_PUB.ADD;
2390: END IF;
2391:
2392: END IF;
2393: -- End of check for duplicate PO number
2428: END;
2429:
2430: Fnd_Message.Set_Name('ONT','ONT_COM_CUSTOMER_MISMATCH');
2431: Fnd_message.set_token('CUSTOMER',l_customer_name);
2432: OE_MSG_PUB.Add;
2433: oe_debug_pub.add('Error: customer of the order does not match the customer for the commitment.', 3);
2434: RAISE FND_API.G_EXC_ERROR;
2435: END IF;
2436: END IF;
2446: OE_DEBUG_PUB.Add('Blankets are only available in Pack I or greater',1);
2447: End if;
2448: l_return_status := FND_API.G_RET_STS_ERROR;
2449: FND_MESSAGE.Set_Name('ONT','OE_BLANKET_INVALID_VERSION');
2450: OE_MSG_PUB.Add;
2451: ELSE
2452: IF p_header_rec.blanket_number IS NOT NULL THEN
2453: Validate_Blanket_Values
2454: (p_header_rec => p_header_rec,
2497: if l_payment_count > 1 then
2498: l_return_status := FND_API.G_RET_STS_ERROR;
2499:
2500: fnd_message.Set_Name('ONT','ONT_MULTIPLE_PAYMENTS_EXIST');
2501: OE_MSG_PUB.Add;
2502: oe_debug_pub.add('Error: multiple payments exist. cannot update order header',3);
2503:
2504: end if;
2505:
2521: THEN
2522: l_return_status := FND_API.G_RET_STS_ERROR;
2523: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
2524: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',OE_Order_UTIL.Get_attribute_name('IB_OWNER'));
2525: OE_MSG_PUB.Add;
2526: ELSIF p_header_rec.ib_owner = 'END_CUSTOMER' AND
2527: p_header_rec.end_customer_id is null
2528: THEN
2529: l_return_status := FND_API.G_RET_STS_ERROR;
2528: THEN
2529: l_return_status := FND_API.G_RET_STS_ERROR;
2530: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
2531: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',OE_Order_UTIL.Get_attribute_name('IB_OWNER'));
2532: OE_MSG_PUB.Add;
2533: END IF;
2534: END IF;
2535: oe_debug_pub.ADD('ib_installed_at_location: '||p_header_rec.ib_installed_at_location);
2536:
2549: THEN
2550: l_return_status := FND_API.G_RET_STS_ERROR;
2551: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
2552: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',OE_Order_UTIL.Get_attribute_name('IB_INSTALLED_AT_LOCATION'));
2553: OE_MSG_PUB.Add;
2554: ELSIF p_header_rec.ib_installed_at_location = 'SHIP_TO' AND
2555: p_header_rec.ship_to_org_id is null
2556: THEN
2557: l_return_status := FND_API.G_RET_STS_ERROR;
2556: THEN
2557: l_return_status := FND_API.G_RET_STS_ERROR;
2558: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
2559: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',OE_Order_UTIL.Get_attribute_name('IB_INSTALLED_AT_LOCATION'));
2560: OE_MSG_PUB.Add;
2561: ELSIF p_header_rec.ib_installed_at_location = 'DELIVER_TO' AND
2562: p_header_rec.deliver_to_org_id is null
2563: THEN
2564: l_return_status := FND_API.G_RET_STS_ERROR;
2563: THEN
2564: l_return_status := FND_API.G_RET_STS_ERROR;
2565: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
2566: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',OE_Order_UTIL.Get_attribute_name('IB_INSTALLED_AT_LOCATION'));
2567: OE_MSG_PUB.Add;
2568: ELSIF p_header_rec.ib_installed_at_location = 'END_CUSTOMER' AND
2569: p_header_rec.end_customer_site_use_id is null
2570: THEN
2571: l_return_status := FND_API.G_RET_STS_ERROR;
2570: THEN
2571: l_return_status := FND_API.G_RET_STS_ERROR;
2572: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
2573: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',OE_Order_UTIL.Get_attribute_name('IB_INSTALLED_AT_LOCATION'));
2574: OE_MSG_PUB.Add;
2575: ELSIF p_header_rec.ib_installed_at_location = 'SOLD_TO' AND
2576: p_header_rec.sold_to_site_use_id is null
2577: THEN
2578: l_return_status := FND_API.G_RET_STS_ERROR;
2577: THEN
2578: l_return_status := FND_API.G_RET_STS_ERROR;
2579: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
2580: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',OE_Order_UTIL.Get_attribute_name('IB_INSTALLED_AT_LOCATION'));
2581: OE_MSG_PUB.Add;
2582: END IF;
2583: END IF;
2584: oe_debug_pub.ADD('ib_current_location: '||p_header_rec.ib_current_location);
2585:
2598: THEN
2599: l_return_status := FND_API.G_RET_STS_ERROR;
2600: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
2601: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',OE_Order_UTIL.Get_attribute_name('IB_CURRENT_LOCATION'));
2602: OE_MSG_PUB.Add;
2603: ELSIF p_header_rec.ib_current_location = 'SHIP_TO' AND
2604: p_header_rec.ship_to_org_id is null
2605: THEN
2606: l_return_status := FND_API.G_RET_STS_ERROR;
2605: THEN
2606: l_return_status := FND_API.G_RET_STS_ERROR;
2607: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
2608: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',OE_Order_UTIL.Get_attribute_name('IB_CURRENT_LOCATION'));
2609: OE_MSG_PUB.Add;
2610: ELSIF p_header_rec.ib_current_location = 'DELIVER_TO' AND
2611: p_header_rec.deliver_to_org_id is null
2612: THEN
2613: l_return_status := FND_API.G_RET_STS_ERROR;
2612: THEN
2613: l_return_status := FND_API.G_RET_STS_ERROR;
2614: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
2615: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',OE_Order_UTIL.Get_attribute_name('IB_CURRENT_LOCATION'));
2616: OE_MSG_PUB.Add;
2617: ELSIF p_header_rec.ib_current_location = 'END_CUSTOMER' AND
2618: p_header_rec.end_customer_site_use_id is null
2619: THEN
2620: l_return_status := FND_API.G_RET_STS_ERROR;
2619: THEN
2620: l_return_status := FND_API.G_RET_STS_ERROR;
2621: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
2622: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',OE_Order_UTIL.Get_attribute_name('IB_CURRENT_LOCATION'));
2623: OE_MSG_PUB.Add;
2624: ELSIF p_header_rec.ib_current_location = 'SOLD_TO' AND
2625: p_header_rec.sold_to_site_use_id is null
2626: THEN
2627: l_return_status := FND_API.G_RET_STS_ERROR;
2626: THEN
2627: l_return_status := FND_API.G_RET_STS_ERROR;
2628: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
2629: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',OE_Order_UTIL.Get_attribute_name('IB_CURRENT_LOCATION'));
2630: OE_MSG_PUB.Add;
2631: END IF;
2632: END IF;
2633:
2634: -- IB Validation START
2653: end if;
2654: l_return_status := FND_API.G_RET_STS_ERROR;
2655: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
2656: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',OE_Order_UTIL.Get_attribute_name('IB_CURRENT_LOCATION'));
2657: OE_MSG_PUB.Add;
2658: elsif l.ib_installed_at_location='SOLD_TO'
2659: then
2660: If l_debug_level > 0 THEN
2661: oe_debug_pub.add('>line_id:'||l.line_id||' has ib_installed_at_location as SOLD_TO');
2662: end if;
2663: l_return_status := FND_API.G_RET_STS_ERROR;
2664: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
2665: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',OE_Order_UTIL.Get_attribute_name('IB_INSTALLED_AT_LOCATION'));
2666: OE_MSG_PUB.Add;
2667: end if;
2668: end loop;
2669: end if;
2670: If l_debug_level > 0 THEN
2676: IF p_header_rec.payment_type_code = 'CREDIT_CARD' THEN
2677: IF p_header_rec.invoice_to_org_id is NULL THEN
2678: l_return_status := FND_API.G_RET_STS_ERROR;
2679: FND_MESSAGE.SET_NAME('ONT','OE_VPM_INV_TO_REQUIRED');
2680: OE_MSG_PUB.ADD;
2681: END IF;
2682: END IF;
2683: --R12 CC Encryption
2684: /*
2681: END IF;
2682: END IF;
2683: --R12 CC Encryption
2684: /*
2685: OE_MSG_PUB.ADD;
2686: ELSIF p_header_rec.credit_card_number is NULL THEN
2687: l_return_status := FND_API.G_RET_STS_ERROR;
2688: FND_MESSAGE.SET_NAME('ONT','OE_VPM_CC_NUM_REQUIRED');
2689: OE_MSG_PUB.ADD;
2685: OE_MSG_PUB.ADD;
2686: ELSIF p_header_rec.credit_card_number is NULL THEN
2687: l_return_status := FND_API.G_RET_STS_ERROR;
2688: FND_MESSAGE.SET_NAME('ONT','OE_VPM_CC_NUM_REQUIRED');
2689: OE_MSG_PUB.ADD;
2690: ELSIF p_header_rec.credit_card_expiration_date is NULL THEN
2691: l_return_status := FND_API.G_RET_STS_ERROR;
2692: FND_MESSAGE.SET_NAME('ONT','OE_VPM_CC_EXP_DT_REQUIRED');
2693: OE_MSG_PUB.ADD;
2689: OE_MSG_PUB.ADD;
2690: ELSIF p_header_rec.credit_card_expiration_date is NULL THEN
2691: l_return_status := FND_API.G_RET_STS_ERROR;
2692: FND_MESSAGE.SET_NAME('ONT','OE_VPM_CC_EXP_DT_REQUIRED');
2693: OE_MSG_PUB.ADD;
2694: ELSIF p_header_rec.credit_card_holder_name is NULL THEN
2695: l_return_status := FND_API.G_RET_STS_ERROR;
2696: FND_MESSAGE.SET_NAME('ONT','OE_VPM_CC_HOLDER_REQUIRED');
2697: OE_MSG_PUB.ADD;
2693: OE_MSG_PUB.ADD;
2694: ELSIF p_header_rec.credit_card_holder_name is NULL THEN
2695: l_return_status := FND_API.G_RET_STS_ERROR;
2696: FND_MESSAGE.SET_NAME('ONT','OE_VPM_CC_HOLDER_REQUIRED');
2697: OE_MSG_PUB.ADD;
2698: END IF;
2699: END IF;*/
2700:
2701: -- Done validating entity
2713:
2714: WHEN OTHERS THEN
2715: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2716:
2717: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2718: THEN
2719: OE_MSG_PUB.Add_Exc_Msg
2720: ( G_PKG_NAME
2721: , 'Entity'
2715: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2716:
2717: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2718: THEN
2719: OE_MSG_PUB.Add_Exc_Msg
2720: ( G_PKG_NAME
2721: , 'Entity'
2722: );
2723: END IF;
3641: l_cc_security_code_use := OE_Payment_Trxn_Util.Get_CC_Security_Code_Use;
3642: IF l_cc_security_code_use = 'REQUIRED' THEN
3643: IF p_x_header_rec.instrument_security_code IS NULL OR p_x_header_rec.instrument_security_code = FND_API.G_MISS_CHAR THEN --bug 4613168, issue 22
3644: FND_MESSAGE.SET_NAME('ONT','OE_CC_SECURITY_CODE_REQD');
3645: OE_MSG_PUB.ADD;
3646: x_return_status := FND_API.G_RET_STS_ERROR;
3647: END IF;
3648: END IF;
3649: END IF;
5059:
5060: WHEN OTHERS THEN
5061: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5062:
5063: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5064: THEN
5065: OE_MSG_PUB.Add_Exc_Msg
5066: ( G_PKG_NAME
5067: ,'Attributes'
5061: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5062:
5063: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5064: THEN
5065: OE_MSG_PUB.Add_Exc_Msg
5066: ( G_PKG_NAME
5067: ,'Attributes'
5068: );
5069: END IF;
5101:
5102: WHEN OTHERS THEN
5103: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5104:
5105: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5106: THEN
5107: OE_MSG_PUB.Add_Exc_Msg
5108: ( G_PKG_NAME
5109: ,'Entity_Delete'
5103: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5104:
5105: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5106: THEN
5107: OE_MSG_PUB.Add_Exc_Msg
5108: ( G_PKG_NAME
5109: ,'Entity_Delete'
5110: );
5111: END IF;