PACKAGE BODY: APPS.BOM_DELETION_CONSTRAINTS_PKG

Source

1 PACKAGE BODY BOM_DELETION_CONSTRAINTS_PKG as
2 /* $Header: bompconb.pls 120.2 2005/07/18 03:06:43 bbpatel noship $ */
3 
4   PROCEDURE Check_Unique(X_Sql_Statement_Name VARCHAR2) IS
5     DUMMY NUMBER;
6   BEGIN
7     SELECT 1 INTO DUMMY FROM DUAL WHERE NOT EXISTS
8       (SELECT 1 FROM BOM_DELETE_SQL_STATEMENTS
9        WHERE SQL_STATEMENT_NAME = X_Sql_Statement_Name
10        );
11 
12     EXCEPTION
13       WHEN NO_DATA_FOUND THEN
14         FND_MESSAGE.SET_NAME('BOM', 'BOM_DEL_CON_STMT_ALREADY_EXIST'); --bug:4495612 Changed the error message
15         FND_MESSAGE.SET_TOKEN('NAME', X_Sql_Statement_Name, FALSE);
16         APP_EXCEPTION.RAISE_EXCEPTION;
17   END Check_Unique;
18 
19 END BOM_DELETION_CONSTRAINTS_PKG;