1 PACKAGE BODY AHL_UNIT_CONFIG_HEADERS_PKG AS
2 /* $Header: AHLLUCHB.pls 120.1 2005/06/17 14:16:32 appldev $ */
3 -- Purpose: Briefly explain the functionality of the package body
4
5 -- Contains common table handler procedures update, insert to be used by Unit Config header table.
6 -- MODIFICATION HISTORY
7 -- Person Date Comments
8
9 -- samgigup 10/10/02
10 -- --------- ------ ------------------------------------------
11 procedure INSERT_ROW (
12 X_ROWID in out NOCOPY VARCHAR2,
13 X_UNIT_CONFIG_HEADER_ID in out NOCOPY NUMBER,
14 X_OBJECT_VERSION_NUMBER in NUMBER,
15 X_NAME in VARCHAR2,
16 X_MASTER_CONFIG_ID in NUMBER,
17 X_CSI_ITEM_INSTANCE_ID in NUMBER,
18 X_UNIT_CONFIG_STATUS_CODE in VARCHAR2,
19 X_ACTIVE_START_DATE in DATE,
20 X_ACTIVE_END_DATE in DATE,
21 --X_SECURITY_GROUP_ID in NUMBER,
22 X_ATTRIBUTE_CATEGORY in VARCHAR2,
23 X_ATTRIBUTE1 in VARCHAR2,
24 X_ATTRIBUTE2 in VARCHAR2,
25 X_ATTRIBUTE3 in VARCHAR2,
26 X_ATTRIBUTE4 in VARCHAR2,
27 X_ATTRIBUTE5 in VARCHAR2,
28 X_ATTRIBUTE6 in VARCHAR2,
29 X_ATTRIBUTE7 in VARCHAR2,
30 X_ATTRIBUTE8 in VARCHAR2,
31 X_ATTRIBUTE9 in VARCHAR2,
32 X_ATTRIBUTE10 in VARCHAR2,
33 X_ATTRIBUTE11 in VARCHAR2,
34 X_ATTRIBUTE12 in VARCHAR2,
35 X_ATTRIBUTE13 in VARCHAR2,
36 X_ATTRIBUTE14 in VARCHAR2,
37 X_ATTRIBUTE15 in VARCHAR2,
38 X_CREATION_DATE in DATE,
39 X_CREATED_BY in NUMBER,
40 X_LAST_UPDATE_DATE in DATE,
41 X_LAST_UPDATED_BY in NUMBER,
42 X_LAST_UPDATE_LOGIN in NUMBER
43 ) is
44 cursor C is select ROWID from AHL_UNIT_CONFIG_HEADERS
45 where UNIT_CONFIG_HEADER_ID = X_UNIT_CONFIG_HEADER_ID
46 ;
47 begin
48 insert into AHL_UNIT_CONFIG_HEADERS (
49 unit_config_header_id,
50 OBJECT_VERSION_NUMBER,
51 NAME,
52 MASTER_CONFIG_ID,
53 CSI_ITEM_INSTANCE_ID,
54 UNIT_CONFIG_STATUS_CODE,
55 ACTIVE_START_DATE,
56 ACTIVE_END_DATE,
57 --SECURITY_GROUP_ID,
58 ATTRIBUTE_CATEGORY,
59 ATTRIBUTE1,
60 ATTRIBUTE2,
61 ATTRIBUTE3,
62 ATTRIBUTE4,
63 ATTRIBUTE5,
64 ATTRIBUTE6,
65 ATTRIBUTE7,
66 ATTRIBUTE8,
67 ATTRIBUTE9,
68 ATTRIBUTE10,
69 ATTRIBUTE11,
70 ATTRIBUTE12,
71 ATTRIBUTE13,
72 ATTRIBUTE14,
73 ATTRIBUTE15,
74 CREATION_DATE,
75 CREATED_BY,
76 LAST_UPDATE_DATE,
77 LAST_UPDATED_BY,
78 LAST_UPDATE_LOGIN
79 ) values (
80 ahl_unit_config_headers_s.nextval,
81 X_OBJECT_VERSION_NUMBER,
82 X_NAME,
83 X_MASTER_CONFIG_ID,
84 X_CSI_ITEM_INSTANCE_ID,
85 X_UNIT_CONFIG_STATUS_CODE,
86 X_ACTIVE_START_DATE,
87 X_ACTIVE_END_DATE,
88 --X_SECURITY_GROUP_ID,
89 X_ATTRIBUTE_CATEGORY,
90 X_ATTRIBUTE1,
91 X_ATTRIBUTE2,
92 X_ATTRIBUTE3,
93 X_ATTRIBUTE4,
94 X_ATTRIBUTE5,
95 X_ATTRIBUTE6,
96 X_ATTRIBUTE7,
97 X_ATTRIBUTE8,
98 X_ATTRIBUTE9,
99 X_ATTRIBUTE10,
100 X_ATTRIBUTE11,
101 X_ATTRIBUTE12,
102 X_ATTRIBUTE13,
103 X_ATTRIBUTE14,
104 X_ATTRIBUTE15,
105 X_CREATION_DATE,
106 X_CREATED_BY,
107 X_LAST_UPDATE_DATE,
108 X_LAST_UPDATED_BY,
109 X_LAST_UPDATE_LOGIN)
110 RETURNING unit_config_header_id INTO X_unit_config_header_id;
111
112
113
114 end INSERT_ROW;
115
116 procedure LOCK_ROW (
117 X_UNIT_CONFIG_HEADER_ID in NUMBER,
118 X_OBJECT_VERSION_NUMBER in NUMBER,
119 X_NAME in VARCHAR2,
120 X_MASTER_CONFIG_ID in NUMBER,
121 X_CSI_ITEM_INSTANCE_ID in NUMBER,
122 X_UNIT_CONFIG_STATUS_CODE in VARCHAR2,
123 X_ACTIVE_START_DATE in DATE,
124 X_ACTIVE_END_DATE in DATE,
125 -- X_SECURITY_GROUP_ID in NUMBER,
126 X_ATTRIBUTE_CATEGORY in VARCHAR2,
127 X_ATTRIBUTE1 in VARCHAR2,
128 X_ATTRIBUTE2 in VARCHAR2,
129 X_ATTRIBUTE3 in VARCHAR2,
130 X_ATTRIBUTE4 in VARCHAR2,
131 X_ATTRIBUTE5 in VARCHAR2,
132 X_ATTRIBUTE6 in VARCHAR2,
133 X_ATTRIBUTE7 in VARCHAR2,
134 X_ATTRIBUTE8 in VARCHAR2,
135 X_ATTRIBUTE9 in VARCHAR2,
136 X_ATTRIBUTE10 in VARCHAR2,
137 X_ATTRIBUTE11 in VARCHAR2,
138 X_ATTRIBUTE12 in VARCHAR2,
139 X_ATTRIBUTE13 in VARCHAR2,
140 X_ATTRIBUTE14 in VARCHAR2,
141 X_ATTRIBUTE15 in VARCHAR2
142 ) is
143 cursor c is select
144 OBJECT_VERSION_NUMBER,
145 NAME,
146 MASTER_CONFIG_ID,
147 CSI_ITEM_INSTANCE_ID,
148 UNIT_CONFIG_STATUS_CODE,
149 ACTIVE_START_DATE,
150 ACTIVE_END_DATE,
151 --SECURITY_GROUP_ID,
152 ATTRIBUTE_CATEGORY,
153 ATTRIBUTE1,
154 ATTRIBUTE2,
155 ATTRIBUTE3,
156 ATTRIBUTE4,
157 ATTRIBUTE5,
158 ATTRIBUTE6,
159 ATTRIBUTE7,
160 ATTRIBUTE8,
161 ATTRIBUTE9,
162 ATTRIBUTE10,
163 ATTRIBUTE11,
164 ATTRIBUTE12,
165 ATTRIBUTE13,
166 ATTRIBUTE14,
167 ATTRIBUTE15
168 from AHL_UNIT_CONFIG_HEADERS
169 where UNIT_CONFIG_HEADER_ID = X_UNIT_CONFIG_HEADER_ID
170 for update of UNIT_CONFIG_HEADER_ID nowait;
171 recinfo c%rowtype;
172
173 begin
174 open c;
175 fetch c into recinfo;
176 if (c%notfound) then
177 close c;
178 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
179 app_exception.raise_exception;
180 end if;
181 close c;
182 if ( (recinfo.OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER)
183 AND (recinfo.NAME = X_NAME)
184 AND (recinfo.MASTER_CONFIG_ID = X_MASTER_CONFIG_ID)
185 AND (recinfo.CSI_ITEM_INSTANCE_ID = X_CSI_ITEM_INSTANCE_ID)
186 AND (recinfo.UNIT_CONFIG_STATUS_CODE = X_UNIT_CONFIG_STATUS_CODE)
187 AND (recinfo.ACTIVE_START_DATE = X_ACTIVE_START_DATE)
188 AND ((recinfo.ACTIVE_END_DATE = X_ACTIVE_END_DATE)
189 OR ((recinfo.ACTIVE_END_DATE is null) AND (X_ACTIVE_END_DATE is null)))
190 --AND ((recinfo.SECURITY_GROUP_ID = X_SECURITY_GROUP_ID)
191 -- OR ((recinfo.SECURITY_GROUP_ID is null) AND (X_SECURITY_GROUP_ID is null)))
192 AND ((recinfo.ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY)
193 OR ((recinfo.ATTRIBUTE_CATEGORY is null) AND (X_ATTRIBUTE_CATEGORY is null)))
194 AND ((recinfo.ATTRIBUTE1 = X_ATTRIBUTE1)
195 OR ((recinfo.ATTRIBUTE1 is null) AND (X_ATTRIBUTE1 is null)))
196 AND ((recinfo.ATTRIBUTE2 = X_ATTRIBUTE2)
197 OR ((recinfo.ATTRIBUTE2 is null) AND (X_ATTRIBUTE2 is null)))
198 AND ((recinfo.ATTRIBUTE3 = X_ATTRIBUTE3)
199 OR ((recinfo.ATTRIBUTE3 is null) AND (X_ATTRIBUTE3 is null)))
200 AND ((recinfo.ATTRIBUTE4 = X_ATTRIBUTE4)
201 OR ((recinfo.ATTRIBUTE4 is null) AND (X_ATTRIBUTE4 is null)))
202 AND ((recinfo.ATTRIBUTE5 = X_ATTRIBUTE5)
203 OR ((recinfo.ATTRIBUTE5 is null) AND (X_ATTRIBUTE5 is null)))
204 AND ((recinfo.ATTRIBUTE6 = X_ATTRIBUTE6)
205 OR ((recinfo.ATTRIBUTE6 is null) AND (X_ATTRIBUTE6 is null)))
206 AND ((recinfo.ATTRIBUTE7 = X_ATTRIBUTE7)
207 OR ((recinfo.ATTRIBUTE7 is null) AND (X_ATTRIBUTE7 is null)))
208 AND ((recinfo.ATTRIBUTE8 = X_ATTRIBUTE8)
209 OR ((recinfo.ATTRIBUTE8 is null) AND (X_ATTRIBUTE8 is null)))
210 AND ((recinfo.ATTRIBUTE9 = X_ATTRIBUTE9)
211 OR ((recinfo.ATTRIBUTE9 is null) AND (X_ATTRIBUTE9 is null)))
212 AND ((recinfo.ATTRIBUTE10 = X_ATTRIBUTE10)
213 OR ((recinfo.ATTRIBUTE10 is null) AND (X_ATTRIBUTE10 is null)))
214 AND ((recinfo.ATTRIBUTE11 = X_ATTRIBUTE11)
215 OR ((recinfo.ATTRIBUTE11 is null) AND (X_ATTRIBUTE11 is null)))
216 AND ((recinfo.ATTRIBUTE12 = X_ATTRIBUTE12)
217 OR ((recinfo.ATTRIBUTE12 is null) AND (X_ATTRIBUTE12 is null)))
218 AND ((recinfo.ATTRIBUTE13 = X_ATTRIBUTE13)
219 OR ((recinfo.ATTRIBUTE13 is null) AND (X_ATTRIBUTE13 is null)))
220 AND ((recinfo.ATTRIBUTE14 = X_ATTRIBUTE14)
221 OR ((recinfo.ATTRIBUTE14 is null) AND (X_ATTRIBUTE14 is null)))
222 AND ((recinfo.ATTRIBUTE15 = X_ATTRIBUTE15)
223 OR ((recinfo.ATTRIBUTE15 is null) AND (X_ATTRIBUTE15 is null)))
224 ) then
225 null;
226 else
227 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
228 app_exception.raise_exception;
229 end if;
230 return;
231 end LOCK_ROW;
232
233 procedure UPDATE_ROW (
234 X_UNIT_CONFIG_HEADER_ID in NUMBER,
235 X_OBJECT_VERSION_NUMBER in NUMBER,
236 X_NAME in VARCHAR2,
237 X_MASTER_CONFIG_ID in NUMBER,
238 X_CSI_ITEM_INSTANCE_ID in NUMBER,
239 X_UNIT_CONFIG_STATUS_CODE in VARCHAR2,
240 X_ACTIVE_START_DATE in DATE,
241 X_ACTIVE_END_DATE in DATE,
242 --X_SECURITY_GROUP_ID in NUMBER,
243 X_ATTRIBUTE_CATEGORY in VARCHAR2,
244 X_ATTRIBUTE1 in VARCHAR2,
245 X_ATTRIBUTE2 in VARCHAR2,
246 X_ATTRIBUTE3 in VARCHAR2,
247 X_ATTRIBUTE4 in VARCHAR2,
248 X_ATTRIBUTE5 in VARCHAR2,
249 X_ATTRIBUTE6 in VARCHAR2,
250 X_ATTRIBUTE7 in VARCHAR2,
251 X_ATTRIBUTE8 in VARCHAR2,
252 X_ATTRIBUTE9 in VARCHAR2,
253 X_ATTRIBUTE10 in VARCHAR2,
254 X_ATTRIBUTE11 in VARCHAR2,
255 X_ATTRIBUTE12 in VARCHAR2,
256 X_ATTRIBUTE13 in VARCHAR2,
257 X_ATTRIBUTE14 in VARCHAR2,
258 X_ATTRIBUTE15 in VARCHAR2,
259 X_LAST_UPDATE_DATE in DATE,
260 X_LAST_UPDATED_BY in NUMBER,
261 X_LAST_UPDATE_LOGIN in NUMBER
262 ) is
263 begin
264 update AHL_UNIT_CONFIG_HEADERS set
265 OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
266 NAME = X_NAME,
267 MASTER_CONFIG_ID = X_MASTER_CONFIG_ID,
268 CSI_ITEM_INSTANCE_ID = X_CSI_ITEM_INSTANCE_ID,
269 UNIT_CONFIG_STATUS_CODE = X_UNIT_CONFIG_STATUS_CODE,
270 ACTIVE_START_DATE = X_ACTIVE_START_DATE,
271 ACTIVE_END_DATE = X_ACTIVE_END_DATE,
272 --SECURITY_GROUP_ID = X_SECURITY_GROUP_ID,
273 ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
274 ATTRIBUTE1 = X_ATTRIBUTE1,
275 ATTRIBUTE2 = X_ATTRIBUTE2,
276 ATTRIBUTE3 = X_ATTRIBUTE3,
277 ATTRIBUTE4 = X_ATTRIBUTE4,
278 ATTRIBUTE5 = X_ATTRIBUTE5,
279 ATTRIBUTE6 = X_ATTRIBUTE6,
280 ATTRIBUTE7 = X_ATTRIBUTE7,
281 ATTRIBUTE8 = X_ATTRIBUTE8,
282 ATTRIBUTE9 = X_ATTRIBUTE9,
283 ATTRIBUTE10 = X_ATTRIBUTE10,
284 ATTRIBUTE11 = X_ATTRIBUTE11,
285 ATTRIBUTE12 = X_ATTRIBUTE12,
286 ATTRIBUTE13 = X_ATTRIBUTE13,
287 ATTRIBUTE14 = X_ATTRIBUTE14,
288 ATTRIBUTE15 = X_ATTRIBUTE15,
289 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
290 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
291 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
292 where UNIT_CONFIG_HEADER_ID = X_UNIT_CONFIG_HEADER_ID;
293
294 if (sql%notfound) then
295 raise no_data_found;
296 end if;
297
298 end UPDATE_ROW;
299
300 procedure DELETE_ROW (
301 X_UNIT_CONFIG_HEADER_ID in NUMBER
302 ) is
303 begin
304
305 delete from AHL_UNIT_CONFIG_HEADERS
306 where UNIT_CONFIG_HEADER_ID = X_UNIT_CONFIG_HEADER_ID;
307
308 if (sql%notfound) then
309 raise no_data_found;
310 end if;
311 end DELETE_ROW;
312
313 procedure ADD_LANGUAGE
314 is
315 begin
316 null;
317 end ADD_LANGUAGE;
318
319 end AHL_UNIT_CONFIG_HEADERS_PKG;
320
321
322