[Home] [Help]
PACKAGE BODY: APPS.AK_OBJECT_ATTRIBUTE_NAVIGA_PKG
Source
1 PACKAGE BODY AK_OBJECT_ATTRIBUTE_NAVIGA_PKG as
2 /* $Header: AKDOANAB.pls 115.2 99/07/17 15:16:17 porting s $ */
3
4 PROCEDURE Insert_Row(X_Rowid IN OUT VARCHAR2,
5
6 X_Database_Object_Name VARCHAR2,
7 X_Attribute_Application_Id NUMBER,
8 X_Attribute_Code VARCHAR2,
9 X_Value_Varchar2 VARCHAR2,
10 X_Value_Date DATE,
11 X_Value_Number NUMBER,
12 X_To_Region_Appl_Id NUMBER,
13 X_To_Region_Code VARCHAR2,
14 X_Created_By NUMBER,
15 X_Creation_Date DATE,
16 X_Last_Updated_By NUMBER,
17 X_Last_Update_Date DATE,
18 X_Last_Update_Login NUMBER,
19 X_Attribute_Category VARCHAR2,
20 X_Attribute1 VARCHAR2,
21 X_Attribute2 VARCHAR2,
22 X_Attribute3 VARCHAR2,
23 X_Attribute4 VARCHAR2,
24 X_Attribute5 VARCHAR2,
25 X_Attribute6 VARCHAR2,
26 X_Attribute7 VARCHAR2,
27 X_Attribute8 VARCHAR2,
28 X_Attribute9 VARCHAR2,
29 X_Attribute10 VARCHAR2,
30 X_Attribute11 VARCHAR2,
31 X_Attribute12 VARCHAR2,
32 X_Attribute13 VARCHAR2,
33 X_Attribute14 VARCHAR2,
34 X_Attribute15 VARCHAR2
35
36 ) IS
37 CURSOR C IS SELECT rowid FROM AK_OBJECT_ATTRIBUTE_NAVIGATION
38 WHERE database_object_name = X_Database_Object_Name
39 AND attribute_application_id = X_Attribute_Application_Id
40 AND attribute_code = X_Attribute_Code;
41
42 BEGIN
43
44
45 INSERT INTO AK_OBJECT_ATTRIBUTE_NAVIGATION(
46
47 database_object_name,
48 attribute_application_id,
49 attribute_code,
50 value_varchar2,
51 value_date,
52 value_number,
53 to_region_appl_id,
54 to_region_code,
55 created_by,
56 creation_date,
57 last_updated_by,
58 last_update_date,
59 last_update_login,
60 Attribute_Category,
61 Attribute1,
62 Attribute2,
63 Attribute3,
64 Attribute4,
65 Attribute5,
66 Attribute6,
67 Attribute7,
68 Attribute8,
69 Attribute9,
70 Attribute10,
71 Attribute11,
72 Attribute12,
73 Attribute13,
74 Attribute14,
75 Attribute15
76 ) VALUES (
77
78 X_Database_Object_Name,
79 X_Attribute_Application_Id,
80 X_Attribute_Code,
81 X_Value_Varchar2,
82 X_Value_Date,
83 X_Value_Number,
84 X_To_Region_Appl_Id,
85 X_To_Region_Code,
86 X_Created_By,
87 X_Creation_Date,
88 X_Last_Updated_By,
89 X_Last_Update_Date,
90 X_Last_Update_Login,
91 X_Attribute_Category,
92 X_Attribute1,
93 X_Attribute2,
94 X_Attribute3,
95 X_Attribute4,
96 X_Attribute5,
97 X_Attribute6,
98 X_Attribute7,
99 X_Attribute8,
100 X_Attribute9,
101 X_Attribute10,
102 X_Attribute11,
103 X_Attribute12,
104 X_Attribute13,
105 X_Attribute14,
106 X_Attribute15
107 );
108
109 OPEN C;
110 FETCH C INTO X_Rowid;
111 if (C%NOTFOUND) then
112 CLOSE C;
113 Raise NO_DATA_FOUND;
114 end if;
115 CLOSE C;
116 END Insert_Row;
117
118
119 PROCEDURE Lock_Row(X_Rowid VARCHAR2,
120
121 X_Database_Object_Name VARCHAR2,
122 X_Attribute_Application_Id NUMBER,
123 X_Attribute_Code VARCHAR2,
124 X_Value_Varchar2 VARCHAR2,
125 X_Value_Date DATE,
126 X_Value_Number NUMBER,
127 X_To_Region_Appl_Id NUMBER,
128 X_To_Region_Code VARCHAR2
129 ) IS
130 CURSOR C IS
131 SELECT *
132 FROM AK_OBJECT_ATTRIBUTE_NAVIGATION
133 WHERE rowid = X_Rowid
134 FOR UPDATE of Database_Object_Name NOWAIT;
135 Recinfo C%ROWTYPE;
136
137
138 BEGIN
139 OPEN C;
140 FETCH C INTO Recinfo;
141 if (C%NOTFOUND) then
142 CLOSE C;
143 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
144 APP_EXCEPTION.Raise_Exception;
145 end if;
146 CLOSE C;
147 if (
148
149 (Recinfo.database_object_name = X_Database_Object_Name)
150 AND (Recinfo.attribute_application_id = X_Attribute_Application_Id)
151 AND (Recinfo.attribute_code = X_Attribute_Code)
152 AND ( (Recinfo.value_varchar2 = X_Value_Varchar2)
153 OR ( (Recinfo.value_varchar2 IS NULL)
154 AND (X_Value_Varchar2 IS NULL)))
155 AND ( (Recinfo.value_date = X_Value_Date)
156 OR ( (Recinfo.value_date IS NULL)
157 AND (X_Value_Date IS NULL)))
158 AND ( (Recinfo.value_number = X_Value_Number)
159 OR ( (Recinfo.value_number IS NULL)
160 AND (X_Value_Number IS NULL)))
161 AND (Recinfo.to_region_appl_id = X_To_Region_Appl_Id)
162 AND (Recinfo.to_region_code = X_To_Region_Code)
163 ) then
164 return;
165 else
166 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
167 APP_EXCEPTION.Raise_Exception;
168 end if;
169 END Lock_Row;
170
171
172
173 PROCEDURE Update_Row(X_Rowid VARCHAR2,
174
175 X_Database_Object_Name VARCHAR2,
176 X_Attribute_Application_Id NUMBER,
177 X_Attribute_Code VARCHAR2,
178 X_Value_Varchar2 VARCHAR2,
179 X_Value_Date DATE,
180 X_Value_Number NUMBER,
181 X_To_Region_Appl_Id NUMBER,
182 X_To_Region_Code VARCHAR2,
183 X_Last_Updated_By NUMBER,
184 X_Last_Update_Date DATE,
185 X_Last_Update_Login NUMBER,
186 X_Attribute_Category VARCHAR2,
187 X_Attribute1 VARCHAR2,
188 X_Attribute2 VARCHAR2,
189 X_Attribute3 VARCHAR2,
190 X_Attribute4 VARCHAR2,
191 X_Attribute5 VARCHAR2,
192 X_Attribute6 VARCHAR2,
193 X_Attribute7 VARCHAR2,
194 X_Attribute8 VARCHAR2,
195 X_Attribute9 VARCHAR2,
196 X_Attribute10 VARCHAR2,
197 X_Attribute11 VARCHAR2,
198 X_Attribute12 VARCHAR2,
199 X_Attribute13 VARCHAR2,
200 X_Attribute14 VARCHAR2,
201 X_Attribute15 VARCHAR2
202
203 ) IS
204 BEGIN
205 UPDATE AK_OBJECT_ATTRIBUTE_NAVIGATION
206 SET
207 database_object_name = X_Database_Object_Name,
208 attribute_application_id = X_Attribute_Application_Id,
209 attribute_code = X_Attribute_Code,
210 value_varchar2 = X_Value_Varchar2,
211 value_date = X_Value_Date,
212 value_number = X_Value_Number,
213 to_region_appl_id = X_To_Region_Appl_Id,
214 to_region_code = X_To_Region_Code,
215 last_updated_by = X_Last_Updated_By,
216 last_update_date = X_Last_Update_Date,
217 last_update_login = X_Last_Update_Login,
218 Attribute_Category = X_Attribute_Category,
219 Attribute1 = X_Attribute1,
220 Attribute2 = X_Attribute2,
221 Attribute3 = X_Attribute3,
222 Attribute4 = X_Attribute4,
223 Attribute5 = X_Attribute5,
224 Attribute6 = X_Attribute6,
225 Attribute7 = X_Attribute7,
226 Attribute8 = X_Attribute8,
227 Attribute9 = X_Attribute9,
228 Attribute10 = X_Attribute10,
229 Attribute11 = X_Attribute11,
230 Attribute12 = X_Attribute12,
231 Attribute13 = X_Attribute13,
232 Attribute14 = X_Attribute14,
233 Attribute15 = X_Attribute15
234 WHERE rowid = X_Rowid;
235
236 if (SQL%NOTFOUND) then
237 Raise NO_DATA_FOUND;
238 end if;
239 END Update_Row;
240 PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
241 BEGIN
242 DELETE FROM AK_OBJECT_ATTRIBUTE_NAVIGATION
243 WHERE rowid = X_Rowid;
244
245 if (SQL%NOTFOUND) then
246 Raise NO_DATA_FOUND;
247 end if;
248 END Delete_Row;
249
250
251 END AK_OBJECT_ATTRIBUTE_NAVIGA_PKG;