PACKAGE BODY: APPS.B_DEPT_CLASS_PKG

Source

1 PACKAGE BODY B_DEPT_CLASS_PKG as
2 /* $Header: bompbdcb.pls 115.1 99/07/16 05:47:22 porting ship $ */
3 
4 PROCEDURE Check_Unique(X_Org_Id NUMBER,
5 		       X_Department_Class_Code VARCHAR2) IS
6   dummy number;
7 BEGIN
8   select 1 into dummy from dual where not exists
9     (select 1
10      from   bom_department_classes
11      where  department_class_code = x_department_class_code
12      and    organization_id = x_org_id);
13 
14 EXCEPTION
15   WHEN NO_DATA_FOUND THEN
16      fnd_message.set_name ('BOM','BOM_ALREADY_EXISTS');
17      fnd_message.set_token ('ENTITY1', 'Department class code');
18      fnd_message.set_token ('ENTITY2', x_department_class_code);
19      APP_EXCEPTION.RAISE_EXCEPTION;
20 
21 END Check_Unique;
22 
23 PROCEDURE Check_References(X_Org_Id NUMBER,
24 		           X_Department_Class_Code VARCHAR2) IS
25   dummy NUMBER;
26 BEGIN
27   select 1 into dummy from dual where not exists
28     (select 1
29      from   bom_departments
30      where  organization_id = x_org_id
31      and    department_class_code = x_department_class_code);
32 
33 EXCEPTION
34   WHEN NO_DATA_FOUND THEN
35     fnd_message.set_name ('BOM', 'BOM_DEPT_CLASS_IN_USE');
36     fnd_message.set_token ('ENTITY', x_department_class_code, TRUE);
37     app_exception.raise_exception;
38 
39 END Check_References;
40 
41 END B_DEPT_CLASS_PKG;