PACKAGE BODY: APPS.ENG_ENGINEERING_CHANGES_PKG

Source

1 PACKAGE BODY ENG_ENGINEERING_CHANGES_PKG as
2 /* $Header: engpecob.pls 115.3 2003/02/07 09:05:26 rbehal ship $ */
3 
4 
5 PROCEDURE Check_Unique(	X_Rowid VARCHAR2,
6 			X_Change_Notice VARCHAR2,
7 			X_Organization_Id NUMBER ) IS
8   dummy NUMBER;
9 BEGIN
10   select 1 into dummy from dual where not exists
11     (select 1 from ENG_ENGINEERING_CHANGES
12       where CHANGE_NOTICE = X_Change_Notice
13         and ORGANIZATION_ID = X_Organization_Id
14     	and ((X_Rowid IS NULL) OR (ROWID <> X_Rowid))
15     );
16   exception
17     when NO_DATA_FOUND then
18       fnd_message.set_name('INV', 'INV_ALREADY_EXISTS');
19       fnd_message.set_token('ENTITY1', X_Change_Notice);
20       app_exception.raise_exception;
21 END Check_Unique;
22 
23 
24 PROCEDURE Delete_Row( X_Rowid VARCHAR2,
25 		      X_Change_Notice VARCHAR2,
26 		      X_Organization_Id NUMBER )IS
27 BEGIN
28   delete from ENG_ENGINEERING_CHANGES
29   where rowid = X_Rowid;
30   if (SQL%NOTFOUND) then
31     raise NO_DATA_FOUND;
32   elsif (SQL%FOUND) then
33     Delete_ECO_Revisions( X_Change_Notice, X_Organization_Id);
34   end if;
35 END Delete_Row;
36 
37 
38 PROCEDURE Delete_ECO_Revisions( X_Change_Notice VARCHAR2,
39 				X_Organization_Id NUMBER ) IS
40 BEGIN
41   delete from ENG_CHANGE_ORDER_REVISIONS
42   where CHANGE_NOTICE = X_Change_Notice
43     and ORGANIZATION_ID = X_Organization_Id;
44 END Delete_ECO_Revisions;
45 
46 
47 
48 
49 END ENG_ENGINEERING_CHANGES_PKG ;