[Home] [Help]
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;