65: -- l_orcl_customization Varchar2(1):= NVL(FND_PROFILE.VALUE('ONT_ACTIVATE_ORACLE_CUSTOMIZATION'),'N');
66: l_booked_flag Varchar2(15);
67: BEGIN
68: OE_DEBUG_PUB.Add('Entering OE_VALIDATE_Header_Scredits.Validate_HSC_QUOTA_TOTAL',1);
69: x_return_status := FND_API.G_RET_STS_SUCCESS;
70:
71: --Order import or it is not oracle specific customization than validate 100% when saving
72: --Do not enforce 100% when saving for Oracle customization. enforce 100% only when booking
73:
81: IF l_percent_total <> 100 THEN
82: fnd_message.set_name('ONT','OE_VAL_ORDER_CREDIT');
83: FND_MESSAGE.SET_TOKEN('TOTAL',to_char(l_percent_total));
84: OE_MSG_PUB.Add;
85: x_return_status := FND_API.G_RET_STS_ERROR;
86: END IF;
87:
88: --End If;
89:
104: IF l_percent_total <> 100 THEN
105: fnd_message.set_name('ONT','OE_VAL_ORDER_CREDIT');
106: FND_MESSAGE.SET_TOKEN('TOTAL',to_char(l_percent_total));
107: OE_MSG_PUB.Add;
108: x_return_status := FND_API.G_RET_STS_ERROR;
109: END IF;
110:
111: End If;
112: Exception when others then
116:
117: OE_DEBUG_PUB.Add('Exiting OE_VALIDATE_Header_Scredits.Validate_HSC_QUOTA_TOTAL',1);
118: EXCEPTION
119:
120: WHEN FND_API.G_EXC_ERROR THEN
121:
122: x_return_status := FND_API.G_RET_STS_ERROR;
123:
124: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
118: EXCEPTION
119:
120: WHEN FND_API.G_EXC_ERROR THEN
121:
122: x_return_status := FND_API.G_RET_STS_ERROR;
123:
124: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
125:
126: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
120: WHEN FND_API.G_EXC_ERROR THEN
121:
122: x_return_status := FND_API.G_RET_STS_ERROR;
123:
124: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
125:
126: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
127:
128: WHEN OTHERS THEN
122: x_return_status := FND_API.G_RET_STS_ERROR;
123:
124: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
125:
126: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
127:
128: WHEN OTHERS THEN
129:
130: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
126: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
127:
128: WHEN OTHERS THEN
129:
130: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
131:
132: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
133: THEN
134: oe_msg_pub.Add_Exc_Msg
146: , p_old_Header_Scredit_rec IN OE_Order_PUB.Header_Scredit_Rec_Type :=
147: OE_Order_PUB.G_MISS_HEADER_SCREDIT_REC
148: )
149: IS
150: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
151:
152: --bug 3275243
153: l_ar_decimal_limit CONSTANT NUMBER:=4;
154: BEGIN
158:
159: IF p_Header_Scredit_rec.sales_credit_id IS NULL
160: THEN
161:
162: l_return_status := FND_API.G_RET_STS_ERROR;
163:
164: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
165: THEN
166:
178:
179: IF p_Header_Scredit_rec.HEADER_ID IS NULL
180: THEN
181:
182: l_return_status := FND_API.G_RET_STS_ERROR;
183:
184: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
185: THEN
186:
195:
196: IF p_Header_Scredit_rec.PERCENT IS NULL
197: THEN
198:
199: l_return_status := FND_API.G_RET_STS_ERROR;
200:
201: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
202: THEN
203:
205: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',OE_Order_Util.Get_Attribute_Name('PERCENT'));
206: oe_msg_pub.Add;
207:
208: END IF;
209: ElsIf p_Header_Scredit_rec.PERCENT <> FND_API.G_MISS_NUM THEN
210: IF length(p_header_scredit_rec.percent- trunc(p_Header_Scredit_rec.PERCENT))- 1 > l_ar_decimal_limit THEN
211: oe_debug_pub.add('In OE_Validate_Header_Scredit.entity:Error:percentage more than 4, AR allowes max 4');
212: oe_debug_pub.add(' Header id:'||p_header_scredit_rec.header_id);
213:
216: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','PERCENT');
217: oe_msg_pub.Add;
218: END IF;
219:
220: l_return_status := FND_API.G_RET_STS_ERROR;
221: END IF;
222: END IF;
223:
224:
225:
226: IF p_Header_Scredit_rec.sales_credit_type_id IS NULL
227: THEN
228:
229: l_return_status := FND_API.G_RET_STS_ERROR;
230:
231: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
232: THEN
233: IF p_Header_Scredit_rec.salesrep_id IS NULL THEN
246:
247:
248: -- Return Error if a required attribute is missing.
249:
250: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
251:
252: RAISE FND_API.G_EXC_ERROR;
253:
254: END IF;
248: -- Return Error if a required attribute is missing.
249:
250: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
251:
252: RAISE FND_API.G_EXC_ERROR;
253:
254: END IF;
255:
256: --
267: ,p_sales_credit_type_id=>p_Header_Scredit_rec.sales_credit_type_id
268: ,p_header_id=>p_Header_Scredit_rec.header_id
269: ,p_sales_credit_id=>p_Header_Scredit_rec.sales_credit_id)
270: THEN
271: l_return_status := FND_API.G_RET_STS_ERROR;
272: END IF;
273:
274:
275: -- Done validating entity
278:
279: OE_DEBUG_PUB.Add('Exiting OE_VALIDATE_Header_Scredits.Entity',1);
280: EXCEPTION
281:
282: WHEN FND_API.G_EXC_ERROR THEN
283:
284: x_return_status := FND_API.G_RET_STS_ERROR;
285:
286: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
280: EXCEPTION
281:
282: WHEN FND_API.G_EXC_ERROR THEN
283:
284: x_return_status := FND_API.G_RET_STS_ERROR;
285:
286: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
287:
288: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
282: WHEN FND_API.G_EXC_ERROR THEN
283:
284: x_return_status := FND_API.G_RET_STS_ERROR;
285:
286: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
287:
288: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
289:
290: WHEN OTHERS THEN
284: x_return_status := FND_API.G_RET_STS_ERROR;
285:
286: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
287:
288: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
289:
290: WHEN OTHERS THEN
291:
292: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
288: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
289:
290: WHEN OTHERS THEN
291:
292: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
293:
294: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
295: THEN
296: oe_msg_pub.Add_Exc_Msg
314: IS
315: BEGIN
316:
317: OE_DEBUG_PUB.Add('Entering OE_VALIDATE_Header_Scredits.Attributes',1);
318: x_return_status := FND_API.G_RET_STS_SUCCESS;
319:
320: -- Validate Header_Scredit attributes
321:
322: IF p_Header_Scredit_rec.created_by IS NOT NULL AND
324: p_old_Header_Scredit_rec.created_by OR
325: p_old_Header_Scredit_rec.created_by IS NULL )
326: THEN
327: IF NOT OE_Validate.Created_By(p_Header_Scredit_rec.created_by) THEN
328: x_return_status := FND_API.G_RET_STS_ERROR;
329: END IF;
330: END IF;
331:
332: IF p_Header_Scredit_rec.creation_date IS NOT NULL AND
334: p_old_Header_Scredit_rec.creation_date OR
335: p_old_Header_Scredit_rec.creation_date IS NULL )
336: THEN
337: IF NOT OE_Validate.Creation_Date(p_Header_Scredit_rec.creation_date) THEN
338: x_return_status := FND_API.G_RET_STS_ERROR;
339: END IF;
340: END IF;
341:
342: IF p_Header_Scredit_rec.dw_update_advice_flag IS NOT NULL AND
344: p_old_Header_Scredit_rec.dw_update_advice_flag OR
345: p_old_Header_Scredit_rec.dw_update_advice_flag IS NULL )
346: THEN
347: IF NOT OE_Validate.Dw_Update_Advice(p_Header_Scredit_rec.dw_update_advice_flag) THEN
348: x_return_status := FND_API.G_RET_STS_ERROR;
349: END IF;
350: END IF;
351:
352: IF p_Header_Scredit_rec.header_id IS NOT NULL AND
354: p_old_Header_Scredit_rec.header_id OR
355: p_old_Header_Scredit_rec.header_id IS NULL )
356: THEN
357: IF NOT OE_Validate.Header(p_Header_Scredit_rec.header_id) THEN
358: x_return_status := FND_API.G_RET_STS_ERROR;
359: END IF;
360: END IF;
361:
362: IF p_Header_Scredit_rec.last_updated_by IS NOT NULL AND
364: p_old_Header_Scredit_rec.last_updated_by OR
365: p_old_Header_Scredit_rec.last_updated_by IS NULL )
366: THEN
367: IF NOT OE_Validate.Last_Updated_By(p_Header_Scredit_rec.last_updated_by) THEN
368: x_return_status := FND_API.G_RET_STS_ERROR;
369: END IF;
370: END IF;
371:
372: IF p_Header_Scredit_rec.last_update_date IS NOT NULL AND
374: p_old_Header_Scredit_rec.last_update_date OR
375: p_old_Header_Scredit_rec.last_update_date IS NULL )
376: THEN
377: IF NOT OE_Validate.Last_Update_Date(p_Header_Scredit_rec.last_update_date) THEN
378: x_return_status := FND_API.G_RET_STS_ERROR;
379: END IF;
380: END IF;
381:
382: IF p_Header_Scredit_rec.last_update_login IS NOT NULL AND
384: p_old_Header_Scredit_rec.last_update_login OR
385: p_old_Header_Scredit_rec.last_update_login IS NULL )
386: THEN
387: IF NOT OE_Validate.Last_Update_Login(p_Header_Scredit_rec.last_update_login) THEN
388: x_return_status := FND_API.G_RET_STS_ERROR;
389: END IF;
390: END IF;
391:
392: IF p_Header_Scredit_rec.line_id IS NOT NULL AND
394: p_old_Header_Scredit_rec.line_id OR
395: p_old_Header_Scredit_rec.line_id IS NULL )
396: THEN
397: IF NOT OE_Validate.Line(p_Header_Scredit_rec.line_id) THEN
398: x_return_status := FND_API.G_RET_STS_ERROR;
399: END IF;
400: END IF;
401:
402: IF p_Header_Scredit_rec.percent IS NOT NULL AND
404: p_old_Header_Scredit_rec.percent OR
405: p_old_Header_Scredit_rec.percent IS NULL )
406: THEN
407: IF NOT OE_Validate.Percent(p_Header_Scredit_rec.percent) THEN
408: x_return_status := FND_API.G_RET_STS_ERROR;
409: END IF;
410: END IF;
411:
412:
415: p_old_Header_Scredit_rec.salesrep_id OR
416: p_old_Header_Scredit_rec.salesrep_id IS NULL )
417: THEN
418: IF NOT OE_Validate.Salesrep(p_Header_Scredit_rec.salesrep_id) THEN
419: x_return_status := FND_API.G_RET_STS_ERROR;
420: END IF;
421: END IF;
422:
423: IF p_Header_Scredit_rec.sales_credit_type_id IS NOT NULL AND
425: p_old_Header_Scredit_rec.sales_credit_type_id OR
426: p_old_Header_Scredit_rec.sales_credit_type_id IS NULL )
427: THEN
428: IF NOT OE_Validate.sales_credit_type(p_Header_Scredit_rec.sales_credit_type_id) THEN
429: x_return_status := FND_API.G_RET_STS_ERROR;
430: END IF;
431: END IF;
432:
433: IF p_Header_Scredit_rec.sales_credit_id IS NOT NULL AND
435: p_old_Header_Scredit_rec.sales_credit_id OR
436: p_old_Header_Scredit_rec.sales_credit_id IS NULL )
437: THEN
438: IF NOT OE_Validate.Sales_Credit(p_Header_Scredit_rec.sales_credit_id) THEN
439: x_return_status := FND_API.G_RET_STS_ERROR;
440: END IF;
441: END IF;
442:
443: IF p_Header_Scredit_rec.wh_update_date IS NOT NULL AND
445: p_old_Header_Scredit_rec.wh_update_date OR
446: p_old_Header_Scredit_rec.wh_update_date IS NULL )
447: THEN
448: IF NOT OE_Validate.Wh_Update_Date(p_Header_Scredit_rec.wh_update_date) THEN
449: x_return_status := FND_API.G_RET_STS_ERROR;
450: END IF;
451: END IF;
452: if OE_GLOBALS.g_validate_desc_flex ='Y' then --4343612
453: oe_debug_pub.add('Validation of desc flex is set to Y in OE_Validate_Header_Scredit.attributes ',1);
536: ,p_attribute13 => p_Header_Scredit_rec.attribute13
537: ,p_attribute14 => p_Header_Scredit_rec.attribute14
538: ,p_attribute15 => p_Header_Scredit_rec.attribute15) THEN
539:
540: x_return_status := FND_API.G_RET_STS_ERROR;
541:
542: /* Added the following code to fix the bug 3006018 */
543:
544: ELSE
542: /* Added the following code to fix the bug 3006018 */
543:
544: ELSE
545: IF p_header_scredit_rec.context IS NULL
546: OR p_header_scredit_rec.context = FND_API.G_MISS_CHAR THEN
547: p_header_scredit_rec.context := oe_validate.g_context;
548: END IF;
549:
550: IF p_header_scredit_rec.attribute1 IS NULL
547: p_header_scredit_rec.context := oe_validate.g_context;
548: END IF;
549:
550: IF p_header_scredit_rec.attribute1 IS NULL
551: OR p_header_scredit_rec.attribute1 = FND_API.G_MISS_CHAR THEN
552: p_header_scredit_rec.attribute1 := oe_validate.g_attribute1;
553: END IF;
554:
555: IF p_header_scredit_rec.attribute2 IS NULL
552: p_header_scredit_rec.attribute1 := oe_validate.g_attribute1;
553: END IF;
554:
555: IF p_header_scredit_rec.attribute2 IS NULL
556: OR p_header_scredit_rec.attribute2 = FND_API.G_MISS_CHAR THEN
557: p_header_scredit_rec.attribute2 := oe_validate.g_attribute2;
558: END IF;
559:
560: IF p_header_scredit_rec.attribute3 IS NULL
557: p_header_scredit_rec.attribute2 := oe_validate.g_attribute2;
558: END IF;
559:
560: IF p_header_scredit_rec.attribute3 IS NULL
561: OR p_header_scredit_rec.attribute3 = FND_API.G_MISS_CHAR THEN
562: p_header_scredit_rec.attribute3 := oe_validate.g_attribute3;
563: END IF;
564:
565: IF p_header_scredit_rec.attribute4 IS NULL
562: p_header_scredit_rec.attribute3 := oe_validate.g_attribute3;
563: END IF;
564:
565: IF p_header_scredit_rec.attribute4 IS NULL
566: OR p_header_scredit_rec.attribute4 = FND_API.G_MISS_CHAR THEN
567: p_header_scredit_rec.attribute4 := oe_validate.g_attribute4;
568: END IF;
569:
570: IF p_header_scredit_rec.attribute5 IS NULL
567: p_header_scredit_rec.attribute4 := oe_validate.g_attribute4;
568: END IF;
569:
570: IF p_header_scredit_rec.attribute5 IS NULL
571: OR p_header_scredit_rec.attribute5 = FND_API.G_MISS_CHAR THEN
572: p_header_scredit_rec.attribute5 := oe_validate.g_attribute5;
573: END IF;
574:
575: IF p_header_scredit_rec.attribute6 IS NULL
572: p_header_scredit_rec.attribute5 := oe_validate.g_attribute5;
573: END IF;
574:
575: IF p_header_scredit_rec.attribute6 IS NULL
576: OR p_header_scredit_rec.attribute6 = FND_API.G_MISS_CHAR THEN
577: p_header_scredit_rec.attribute6 := oe_validate.g_attribute6;
578: END IF;
579:
580: IF p_header_scredit_rec.attribute7 IS NULL
577: p_header_scredit_rec.attribute6 := oe_validate.g_attribute6;
578: END IF;
579:
580: IF p_header_scredit_rec.attribute7 IS NULL
581: OR p_header_scredit_rec.attribute7 = FND_API.G_MISS_CHAR THEN
582: p_header_scredit_rec.attribute7 := oe_validate.g_attribute7;
583: END IF;
584:
585: IF p_header_scredit_rec.attribute8 IS NULL
582: p_header_scredit_rec.attribute7 := oe_validate.g_attribute7;
583: END IF;
584:
585: IF p_header_scredit_rec.attribute8 IS NULL
586: OR p_header_scredit_rec.attribute8 = FND_API.G_MISS_CHAR THEN
587: p_header_scredit_rec.attribute8 := oe_validate.g_attribute8;
588: END IF;
589:
590: IF p_header_scredit_rec.attribute9 IS NULL
587: p_header_scredit_rec.attribute8 := oe_validate.g_attribute8;
588: END IF;
589:
590: IF p_header_scredit_rec.attribute9 IS NULL
591: OR p_header_scredit_rec.attribute9 = FND_API.G_MISS_CHAR THEN
592: p_header_scredit_rec.attribute9 := oe_validate.g_attribute9;
593: END IF;
594:
595: IF p_header_scredit_rec.attribute10 IS NULL
592: p_header_scredit_rec.attribute9 := oe_validate.g_attribute9;
593: END IF;
594:
595: IF p_header_scredit_rec.attribute10 IS NULL
596: OR p_header_scredit_rec.attribute10 = FND_API.G_MISS_CHAR THEN
597: p_header_scredit_rec.attribute10 := oe_validate.g_attribute10;
598: END IF;
599:
600: IF p_header_scredit_rec.attribute11 IS NULL
597: p_header_scredit_rec.attribute10 := oe_validate.g_attribute10;
598: END IF;
599:
600: IF p_header_scredit_rec.attribute11 IS NULL
601: OR p_header_scredit_rec.attribute11 = FND_API.G_MISS_CHAR THEN
602: p_header_scredit_rec.attribute11 := oe_validate.g_attribute11;
603: END IF;
604:
605: IF p_header_scredit_rec.attribute12 IS NULL
602: p_header_scredit_rec.attribute11 := oe_validate.g_attribute11;
603: END IF;
604:
605: IF p_header_scredit_rec.attribute12 IS NULL
606: OR p_header_scredit_rec.attribute12 = FND_API.G_MISS_CHAR THEN
607: p_header_scredit_rec.attribute12 := oe_validate.g_attribute12;
608: END IF;
609:
610: IF p_header_scredit_rec.attribute13 IS NULL
607: p_header_scredit_rec.attribute12 := oe_validate.g_attribute12;
608: END IF;
609:
610: IF p_header_scredit_rec.attribute13 IS NULL
611: OR p_header_scredit_rec.attribute13 = FND_API.G_MISS_CHAR THEN
612: p_header_scredit_rec.attribute13 := oe_validate.g_attribute13;
613: END IF;
614:
615: IF p_header_scredit_rec.attribute14 IS NULL
612: p_header_scredit_rec.attribute13 := oe_validate.g_attribute13;
613: END IF;
614:
615: IF p_header_scredit_rec.attribute14 IS NULL
616: OR p_header_scredit_rec.attribute14 = FND_API.G_MISS_CHAR THEN
617: p_header_scredit_rec.attribute14 := oe_validate.g_attribute14;
618: END IF;
619:
620: IF p_header_scredit_rec.attribute15 IS NULL
617: p_header_scredit_rec.attribute14 := oe_validate.g_attribute14;
618: END IF;
619:
620: IF p_header_scredit_rec.attribute15 IS NULL
621: OR p_header_scredit_rec.attribute15 = FND_API.G_MISS_CHAR THEN
622: p_header_scredit_rec.attribute15 := oe_validate.g_attribute15;
623: END IF;
624:
625: /* End of the code added to fix the bug 3006018 */
633: -- Done validating attributes
634:
635: EXCEPTION
636:
637: WHEN FND_API.G_EXC_ERROR THEN
638:
639: x_return_status := FND_API.G_RET_STS_ERROR;
640:
641: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
635: EXCEPTION
636:
637: WHEN FND_API.G_EXC_ERROR THEN
638:
639: x_return_status := FND_API.G_RET_STS_ERROR;
640:
641: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
642:
643: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
637: WHEN FND_API.G_EXC_ERROR THEN
638:
639: x_return_status := FND_API.G_RET_STS_ERROR;
640:
641: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
642:
643: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
644:
645: WHEN OTHERS THEN
639: x_return_status := FND_API.G_RET_STS_ERROR;
640:
641: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
642:
643: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
644:
645: WHEN OTHERS THEN
646:
647: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
643: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
644:
645: WHEN OTHERS THEN
646:
647: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
648:
649: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
650: THEN
651: oe_msg_pub.Add_Exc_Msg
662: ( x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
663: , p_Header_Scredit_rec IN OE_Order_PUB.Header_Scredit_Rec_Type
664: )
665: IS
666: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
667: BEGIN
668:
669: OE_DEBUG_PUB.Add('Entering OE_VALIDATE_Header_Scredits.Entity_Delete',1);
670: -- Validate entity delete.
679: ,p_request_type =>OE_GLOBALS.G_CHECK_HSC_QUOTA_TOTAL
680: ,p_param1 =>to_char(p_Header_Scredit_rec.header_id)
681: ,x_return_status =>l_return_status);
682:
683: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
684: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
685: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
686: RAISE FND_API.G_EXC_ERROR;
687: END IF;
680: ,p_param1 =>to_char(p_Header_Scredit_rec.header_id)
681: ,x_return_status =>l_return_status);
682:
683: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
684: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
685: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
686: RAISE FND_API.G_EXC_ERROR;
687: END IF;
688:
681: ,x_return_status =>l_return_status);
682:
683: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
684: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
685: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
686: RAISE FND_API.G_EXC_ERROR;
687: END IF;
688:
689:
682:
683: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
684: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
685: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
686: RAISE FND_API.G_EXC_ERROR;
687: END IF;
688:
689:
690: -- Done.
693: OE_DEBUG_PUB.Add('Exiting OE_VALIDATE_Header_Scredits.Entity_Delete',1);
694:
695: EXCEPTION
696:
697: WHEN FND_API.G_EXC_ERROR THEN
698:
699: x_return_status := FND_API.G_RET_STS_ERROR;
700:
701: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
695: EXCEPTION
696:
697: WHEN FND_API.G_EXC_ERROR THEN
698:
699: x_return_status := FND_API.G_RET_STS_ERROR;
700:
701: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
702:
703: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
697: WHEN FND_API.G_EXC_ERROR THEN
698:
699: x_return_status := FND_API.G_RET_STS_ERROR;
700:
701: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
702:
703: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
704:
705: WHEN OTHERS THEN
699: x_return_status := FND_API.G_RET_STS_ERROR;
700:
701: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
702:
703: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
704:
705: WHEN OTHERS THEN
706:
707: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
703: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
704:
705: WHEN OTHERS THEN
706:
707: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
708:
709: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
710: THEN
711: oe_msg_pub.Add_Exc_Msg
733: And sct.quota_flag = 'Y';
734:
735: BEGIN
736: OE_DEBUG_PUB.Add('Entering OE_VALIDATE_Header_Scredits.Validate_HSC_TOTAL_FOR_BK',1);
737: x_return_status := FND_API.G_RET_STS_SUCCESS;
738:
739: Open C_HSC_Quota_Total(p_header_id);
740: Fetch C_HSC_Quota_Total
741: Into l_percent_total;
744: IF nvl(l_percent_total,0) <> 100 THEN
745: FND_MESSAGE.SET_NAME('ONT','OE_VAL_ORDER_CREDIT');
746: FND_MESSAGE.SET_TOKEN('TOTAL',to_char(l_percent_total));
747: oe_msg_pub.Add;
748: x_return_status := FND_API.G_RET_STS_ERROR;
749: END IF;
750:
751: OE_DEBUG_PUB.Add('Exiting OE_VALIDATE_Header_Scredits.Validate_HSC_TOTAL_FOR_BK',1);
752: EXCEPTION
750:
751: OE_DEBUG_PUB.Add('Exiting OE_VALIDATE_Header_Scredits.Validate_HSC_TOTAL_FOR_BK',1);
752: EXCEPTION
753:
754: WHEN FND_API.G_EXC_ERROR THEN
755:
756: x_return_status := FND_API.G_RET_STS_ERROR;
757:
758: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
752: EXCEPTION
753:
754: WHEN FND_API.G_EXC_ERROR THEN
755:
756: x_return_status := FND_API.G_RET_STS_ERROR;
757:
758: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
759:
760: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
754: WHEN FND_API.G_EXC_ERROR THEN
755:
756: x_return_status := FND_API.G_RET_STS_ERROR;
757:
758: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
759:
760: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
761:
762: WHEN OTHERS THEN
756: x_return_status := FND_API.G_RET_STS_ERROR;
757:
758: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
759:
760: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
761:
762: WHEN OTHERS THEN
763:
764: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
760: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
761:
762: WHEN OTHERS THEN
763:
764: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
765:
766: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
767: THEN
768: oe_msg_pub.Add_Exc_Msg