PACKAGE BODY: APPS.MTL_CUSTOMER_ITEMS_PKG

Source

1 PACKAGE BODY MTL_CUSTOMER_ITEMS_PKG as
2 /* $Header: INVICITB.pls 120.1 2005/07/01 12:23:34 appldev ship $ */
3 
4 PROCEDURE CHECK_UNIQUE (X_Rowid VARCHAR2,
5 			X_Customer_Id NUMBER,
6                         X_Customer_Category_Code VARCHAR2,
7 			X_Address_Id NUMBER,
8 			X_Customer_Item_Number VARCHAR2,
9 			X_Item_Definition_Level VARCHAR2) IS
10 
11 Dummy NUMBER;
12 
13 BEGIN
14 
15 	SELECT COUNT(1)
16 	INTO   Dummy
17 	FROM   MTL_CUSTOMER_ITEMS
18 	WHERE  Customer_Id = X_Customer_Id
19 	AND    NVL(Customer_Category_Code,'JUNK') = NVL(X_Customer_Category_Code,'JUNK')
20 	AND    NVL(Address_Id,-1000) = NVL(X_Address_Id,-1000)
21         AND    Customer_Item_Number = X_Customer_Item_Number
22         AND    Item_Definition_Level = X_Item_Definition_Level
23 	AND    ((X_Rowid IS NULL) OR (ROWID <> X_Rowid));
24 
25 	IF (Dummy >= 1) THEN
26 
27 		FND_MESSAGE.SET_NAME('INV', 'INV_DUP_CUST_ITEM');
28 		APP_EXCEPTION.RAISE_EXCEPTION;
29 
30 	END IF;
31 
32 END CHECK_UNIQUE;
33 
34 
35 END MTL_CUSTOMER_ITEMS_PKG;