[Home] [Help]
1: PACKAGE BODY OE_Validate_Line_Scredit AS
2: /* $Header: OEXLLSCB.pls 120.1 2005/12/29 04:32:41 ppnair noship $ */
3:
4: -- Global constant holding the package name
5:
2: /* $Header: OEXLLSCB.pls 120.1 2005/12/29 04:32:41 ppnair noship $ */
3:
4: -- Global constant holding the package name
5:
6: G_PKG_NAME CONSTANT VARCHAR2(30) := 'OE_Validate_Line_Scredit';
7:
8: Function Duplicate_Salescredit
9: (p_salesrep_id IN Number
10: ,p_sales_credit_type_id IN NUMBER
22: AND sales_credit_type_id = p_sales_credit_type_id
23: AND sales_credit_id <> nvl(p_sales_credit_id,-5);
24: l_dummy varchar2(30);
25: BEGIN
26: OE_DEBUG_PUB.Add('Entering OE_VALIDATE_LINE_SCREDIT.Duplicate_Salescredit',1);
27: OPEN C_Dup_Salescredit(p_salesrep_id
28: ,p_sales_credit_type_id
29: ,p_line_id
30: ,p_sales_credit_id);
37: FND_MESSAGE.SET_NAME('ONT','OE_VAL_DUP_LINE_CREDIT');
38: oe_msg_pub.add;
39:
40: END IF;
41: OE_DEBUG_PUB.Add('Exiting OE_VALIDATE_LINE_SCREDIT.Duplicate_Salescredit',1);
42: Return TRUE;
43: ELSE
44: OE_DEBUG_PUB.Add('Exiting OE_VALIDATE_LINE_SCREDIT.Duplicate_Salescredit',1);
45: Return FALSE;
40: END IF;
41: OE_DEBUG_PUB.Add('Exiting OE_VALIDATE_LINE_SCREDIT.Duplicate_Salescredit',1);
42: Return TRUE;
43: ELSE
44: OE_DEBUG_PUB.Add('Exiting OE_VALIDATE_LINE_SCREDIT.Duplicate_Salescredit',1);
45: Return FALSE;
46: END IF;
47: END Duplicate_Salescredit;
48:
63: AND sc.sales_credit_type_id = sct.sales_credit_type_id
64: AND sct.quota_flag = 'Y';
65:
66: BEGIN
67: OE_DEBUG_PUB.Add('Entering OE_VALIDATE_LINE_SCREDIT.Validate_LSC_QUOTA_TOTAL',1);
68: x_return_status := FND_API.G_RET_STS_SUCCESS;
69: OPEN C_LSC_Quota_Total(p_line_id);
70: FETCH C_LSC_Quota_Total
71: INTO l_percent_total;
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: OE_DEBUG_PUB.Add('Exiting OE_VALIDATE_LINE_SCREDIT.Validate_LSC_QUOTA_TOTAL',1);
88: EXCEPTION
89:
90: WHEN FND_API.G_EXC_ERROR THEN
91:
121:
122: --bug 3275243
123: l_ar_decimal_limit CONSTANT NUMBER:=4;
124: BEGIN
125: OE_DEBUG_PUB.Add('Entering OE_VALIDATE_LINE_SCREDIT.Entity',1);
126:
127: -- Check required attributes.
128:
129: IF p_Line_Scredit_rec.sales_credit_id IS NULL
268:
269: -- Done validating entity
270:
271: x_return_status := l_return_status;
272: OE_DEBUG_PUB.Add('Exiting OE_VALIDATE_LINE_SCREDIT.Entity',1);
273:
274: EXCEPTION
275:
276: WHEN FND_API.G_EXC_ERROR THEN
306: OE_Order_PUB.G_MISS_LINE_SCREDIT_REC
307: )
308: IS
309: BEGIN
310: OE_DEBUG_PUB.Add('Entering OE_VALIDATE_LINE_SCREDIT.Attributes',1);
311:
312: x_return_status := FND_API.G_RET_STS_SUCCESS;
313:
314: -- Validate Line_Scredit attributes
433: x_return_status := FND_API.G_RET_STS_ERROR;
434: END IF;
435: END IF;
436: if OE_GLOBALS.g_validate_desc_flex ='Y' then --bug 4343612
437: oe_debug_pub.add('Validation of desc flex is set to Y in OE_Validate_Line_Scredit.attributes ',1);
438: IF (p_Line_Scredit_rec.attribute1 IS NOT NULL AND
439: ( p_Line_Scredit_rec.attribute1 <>
440: p_old_Line_Scredit_rec.attribute1 OR
441: p_old_Line_Scredit_rec.attribute1 IS NULL ))
612: oe_debug_pub.add('After Line Sales_Credits_Desc_Flex ' || x_return_status,2);
613:
614: END IF;
615:
616: OE_DEBUG_PUB.Add('Exiting OE_VALIDATE_LINE_SCREDIT.Attributes',1);
617: -- Done validating attributes
618: end if ; /*if OE_GLOBALS.g_validate_desc_flex ='Y' then bug 4343612*/
619: EXCEPTION
620:
652: BEGIN
653:
654: -- Validate entity delete.
655:
656: OE_DEBUG_PUB.Add('Entering OE_VALIDATE_LINE_SCREDIT.Entity_Delete',1);
657: NULL;
658: OE_Delayed_Requests_Pvt.Log_Request
659: (p_entity_code =>OE_GLOBALS.G_ENTITY_Line_Scredit
660: ,p_entity_id =>p_Line_Scredit_rec.sales_credit_id
703: END IF;
704:
705: -- Done.
706:
707: OE_DEBUG_PUB.Add('Exiting OE_VALIDATE_LINE_SCREDIT.Entity_Delete',1);
708: x_return_status := l_return_status;
709:
710: EXCEPTION
711:
730: END IF;
731:
732: END Entity_Delete;
733:
734: END OE_Validate_Line_Scredit;