PACKAGE BODY: APPS.ENG_ECO_PRIOR_PKG

Source

1 PACKAGE BODY ENG_ECO_PRIOR_PKG as
2 /* $Header: engpecpb.pls 115.2 2003/02/07 09:07:07 rbehal ship $ */
3 
4 
5 PROCEDURE Check_Unique(
6 	X_Org_id	NUMBER,
7 	X_Priority_code VARCHAR2) IS
8     dummy	number;
9 BEGIN
10     select 1 into dummy from dual where not exists
11 	(select 1 from eng_change_priorities
12 	where ENG_CHANGE_PRIORITY_CODE = X_Priority_code
13 	and   ORGANIZATION_ID = X_Org_id
14 	);
15 EXCEPTION
16     when NO_DATA_FOUND then
17 	FND_MESSAGE.SET_NAME('INV', 'INV_ALREADY_EXISTS');
18         FND_MESSAGE.SET_TOKEN('ENTITY', X_Priority_Code);
19 	APP_EXCEPTION.RAISE_EXCEPTION;
20 END Check_Unique;
21 
22 PROCEDURE CHECK_REFERENCES(
23 	X_Org_id	NUMBER,
24 	X_Priority_code VARCHAR2) IS
25 DUMMY        NUMBER;
26 BEGIN
27        SELECT 1 INTO DUMMY FROM DUAL WHERE NOT EXISTS
28          (SELECT 1 FROM ENG_ENGINEERING_CHANGES
29           WHERE ORGANIZATION_ID = X_Org_id
30             AND PRIORITY_CODE = X_Priority_code
31          );
32 
33 EXCEPTION
34     WHEN NO_DATA_FOUND THEN
35          FND_MESSAGE.SET_NAME('ENG', 'ENG_CANNOT_DELETE_USED');
36          FND_MESSAGE.SET_TOKEN('ENTITY', 'PRIORITY', TRUE);
37          APP_EXCEPTION.RAISE_EXCEPTION;
38 END CHECK_REFERENCES;
39 
40 END ENG_ECO_PRIOR_PKG ;