1 PACKAGE BODY OE_AK_OBJ_ATTR_EXT_pkg AS
2 /* $Header: OEXVOATB.pls 120.0 2005/06/01 01:07:00 appldev noship $ */
3
4 PROCEDURE Update_Row(
5 p_rowid in varchar2
6 , p_database_object_name in VARCHAR2
7 , p_attribute_code in VARCHAR2
8 , p_defaulting_sequence in NUMBER
9 , p_defaulting_condn_ref_flag in VARCHAR2
10 , p_last_updated_by in number
11 , p_last_update_date in date
12 , p_last_update_login in number
13 )
14 IS
15 BEGIN
16
17 UPDATE OE_AK_OBJ_ATTR_EXT
18 SET
19 defaulting_sequence = p_defaulting_sequence
20 ,defaulting_condn_ref_flag = p_defaulting_condn_ref_flag
21 ,last_updated_by = p_last_updated_by
22 ,last_update_date = p_last_update_date
23 ,last_update_login = p_last_update_login
24 WHERE rowid = p_rowid;
25
26
27 IF (SQL%NOTFOUND) then
28 Raise NO_DATA_FOUND;
29 end if;
30 END Update_Row;
31
32 PROCEDURE Lock_Row( p_rowid in varchar2
33 , p_database_object_name in VARCHAR2
34 , p_attribute_code in VARCHAR2
35 , p_defaulting_sequence in NUMBER
36 , p_defaulting_condn_ref_flag in VARCHAR2
37 , p_created_by in number
38 , p_creation_date in date
39 , p_last_updated_by in number
40 , p_last_update_date in date
41 , p_last_update_login in number
42 )
43 IS
44 CURSOR C IS
45 SELECT * FROM OE_AK_OBJ_ATTR_EXT
46 WHERE rowid = p_Rowid
47 FOR UPDATE OF database_object_name NOWAIT;
48
49 Recinfo C%ROWTYPE;
50
51 BEGIN
52 OPEN C;
53 FETCH C into Recinfo;
54
55 IF (C%NOTFOUND) then
56 CLOSE C;
57 FND_MESSAGE.Set_Name('FND','FORM_RECORD_DELETED');
58 APP_EXCEPTION.Raise_Exception;
59 else
60 CLOSE C;
61 end if;
62
63 if (
64 (Recinfo.database_object_name = p_database_object_name)
65 AND (Recinfo.attribute_code = p_attribute_code)
66 AND (Recinfo.defaulting_sequence = p_defaulting_sequence)
67 AND (Recinfo.defaulting_condn_ref_flag = p_defaulting_condn_ref_flag)
68 )
69 then return;
70 else
71 FND_MESSAGE.set_Name('FND','FORM_RECORD_CHANGED');
72 APP_EXCEPTION.Raise_Exception;
73 end if;
74
75 END Lock_Row;
76
77 END OE_AK_OBJ_ATTR_EXT_PKG;