1 PACKAGE BODY EGO_Default_Catalog_Group AS
2 /* $Header: EGODCAGB.pls 120.1.12010000.3 2010/04/25 15:16:41 vijoshi ship $ */
3 /****************************************************************************
4 --
5 -- Copyright (c) 1996 Oracle Corporation, Redwood Shores, CA, USA
6 -- All rights reserved.
7 --
8 -- FILENAME
9 --
10 -- EGODCAGB.pls
11 --
12 -- DESCRIPTION
13 --
14 -- Body of package EGO_Default_Catalog_Group
15 --
16 -- NOTES
17 --
18 -- HISTORY
19 -- 20-SEP-2002 Rahul Chitko Initial Creation
20 --
21 ****************************************************************************/
22 G_PKG_NAME CONSTANT VARCHAR2(30) := 'EGO_Default_Catalog_Group';
23
24 PROCEDURE Get_Flex_Catalog_Group
25 IS
26 BEGIN
27
28 -- In the future call Flex APIs for defaults
29 EGO_Globals.G_Catalog_Group_Rec := EGO_Globals.G_Catalog_Group_Rec;
30
31 IF EGO_Globals.G_Catalog_Group_Rec.attribute_category =FND_API.G_MISS_CHAR THEN
32 EGO_Globals.G_Catalog_Group_Rec.attribute_category := NULL;
33 END IF;
34
35 IF EGO_Globals.G_Catalog_Group_Rec.attribute2 = FND_API.G_MISS_CHAR THEN
36 EGO_Globals.G_Catalog_Group_Rec.attribute2 := NULL;
37 END IF;
38
39 IF EGO_Globals.G_Catalog_Group_Rec.attribute3 = FND_API.G_MISS_CHAR THEN
40 EGO_Globals.G_Catalog_Group_Rec.attribute3 := NULL;
41 END IF;
42
43 IF EGO_Globals.G_Catalog_Group_Rec.attribute4 = FND_API.G_MISS_CHAR THEN
44 EGO_Globals.G_Catalog_Group_Rec.attribute4 := NULL;
45 END IF;
46
47 IF EGO_Globals.G_Catalog_Group_Rec.attribute5 = FND_API.G_MISS_CHAR THEN
48 EGO_Globals.G_Catalog_Group_Rec.attribute5 := NULL;
49 END IF;
50
51 IF EGO_Globals.G_Catalog_Group_Rec.attribute7 = FND_API.G_MISS_CHAR THEN
52 EGO_Globals.G_Catalog_Group_Rec.attribute7 := NULL;
53 END IF;
54
55 IF EGO_Globals.G_Catalog_Group_Rec.attribute8 = FND_API.G_MISS_CHAR THEN
56 EGO_Globals.G_Catalog_Group_Rec.attribute8 := NULL;
57 END IF;
58
59 IF EGO_Globals.G_Catalog_Group_Rec.attribute9 = FND_API.G_MISS_CHAR THEN
60 EGO_Globals.G_Catalog_Group_Rec.attribute9 := NULL;
61 END IF;
62
63 IF EGO_Globals.G_Catalog_Group_Rec.attribute11 = FND_API.G_MISS_CHAR THEN
64 EGO_Globals.G_Catalog_Group_Rec.attribute11 := NULL;
65 END IF;
66
67 IF EGO_Globals.G_Catalog_Group_Rec.attribute12 = FND_API.G_MISS_CHAR THEN
68 EGO_Globals.G_Catalog_Group_Rec.attribute12 := NULL;
69 END IF;
70
71 IF EGO_Globals.G_Catalog_Group_Rec.attribute13 = FND_API.G_MISS_CHAR THEN
72 EGO_Globals.G_Catalog_Group_Rec.attribute13 := NULL;
73 END IF;
74
75 IF EGO_Globals.G_Catalog_Group_Rec.attribute14 = FND_API.G_MISS_CHAR THEN
76 EGO_Globals.G_Catalog_Group_Rec.attribute14 := NULL;
77 END IF;
78
79 IF EGO_Globals.G_Catalog_Group_Rec.attribute15 = FND_API.G_MISS_CHAR THEN
80 EGO_Globals.G_Catalog_Group_Rec.attribute15 := NULL;
81 END IF;
82
83 IF EGO_Globals.G_Catalog_Group_Rec.attribute1 = FND_API.G_MISS_CHAR THEN
84 EGO_Globals.G_Catalog_Group_Rec.attribute1 := NULL;
85 END IF;
86
87 IF EGO_Globals.G_Catalog_Group_Rec.attribute6 = FND_API.G_MISS_CHAR THEN
88 EGO_Globals.G_Catalog_Group_Rec.attribute6 := NULL;
89 END IF;
90
91 IF EGO_Globals.G_Catalog_Group_Rec.attribute10 = FND_API.G_MISS_CHAR THEN
92 EGO_Globals.G_Catalog_Group_Rec.attribute10 := NULL;
93 END IF;
94
95 END Get_Flex_Catalog_Group;
96
97
98
99 /*********************************************************************
100 * Procedure : Attribute_Defaulting
101 * Parameter OUT : Mesg_Token_Table
102 * Return_Status
103 * Purpose : Attribute Defaulting will default the necessary null
104 * attribute with appropriate values.
105 **********************************************************************/
106 PROCEDURE Attribute_Defaulting
107 ( x_mesg_token_tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
108 , x_return_status OUT NOCOPY VARCHAR2
109 )
110 IS
111 BEGIN
112
113 x_return_status := FND_API.G_RET_STS_SUCCESS;
114
115 Get_Flex_Catalog_Group;
116
117 if (EGO_Globals.G_Catalog_Group_Rec.Summary_Flag IS NULL OR
118 EGO_Globals.G_Catalog_Group_Rec.Summary_Flag = FND_API.G_MISS_CHAR)
119 then
120 if fnd_flex_keyval.summary_flag then
121 EGO_Globals.G_Catalog_Group_Rec.Summary_Flag := 'Y';
122 else
123 EGO_Globals.G_Catalog_Group_Rec.Summary_Flag := 'N';
124 end if;
125 end if;
126
127 if (EGO_Globals.G_Catalog_Group_Rec.Enabled_Flag IS NULL OR
128 EGO_Globals.G_Catalog_Group_Rec.Enabled_Flag = FND_API.G_MISS_CHAR)
129 then
130 EGO_Globals.G_Catalog_Group_Rec.Enabled_flag := 'Y';
131 end if;
132
133 if (EGO_Globals.G_Catalog_Group_Rec.Item_Creation_Allowed_Flag = FND_API.G_MISS_CHAR)
134 then
135 EGO_Globals.G_Catalog_Group_Rec.Item_Creation_Allowed_Flag := NULL;
136 end if;
137
138 if (EGO_Globals.G_Catalog_Group_Rec.Inactive_Date = FND_API.G_MISS_DATE)
139 then
140 EGO_Globals.G_Catalog_Group_Rec.Inactive_Date := NULL;
141 end if;
142
143 if (EGO_Globals.G_Catalog_Group_Rec.Start_Effective_Date = FND_API.G_MISS_DATE)
144 then
145 EGO_Globals.G_Catalog_Group_Rec.Start_Effective_Date := NULL;
146 end if;
147
148 IF EGO_Globals.G_Catalog_Group_Rec.parent_catalog_group_id = FND_API.G_MISS_NUM
149 THEN
150 EGO_Globals.G_Catalog_Group_Rec.parent_catalog_group_id := null;
151 END IF;
152
153 IF (EGO_Globals.G_Catalog_Group_Rec.segment1 = FND_API.G_MISS_CHAR)
154 THEN
155 EGO_Globals.G_Catalog_Group_Rec.segment1 := NULL;
156 END IF;
157 IF (EGO_Globals.G_Catalog_Group_Rec.segment2 = FND_API.G_MISS_CHAR)
158 THEN
159 EGO_Globals.G_Catalog_Group_Rec.segment2 := NULL;
160 END IF;
161 IF (EGO_Globals.G_Catalog_Group_Rec.segment3 = FND_API.G_MISS_CHAR)
162 THEN
163 EGO_Globals.G_Catalog_Group_Rec.segment3 := NULL;
164 END IF;
165 IF (EGO_Globals.G_Catalog_Group_Rec.segment4 = FND_API.G_MISS_CHAR)
166 THEN
167 EGO_Globals.G_Catalog_Group_Rec.segment4 := NULL;
168 END IF;
169 IF (EGO_Globals.G_Catalog_Group_Rec.segment5 = FND_API.G_MISS_CHAR)
170 THEN
171 EGO_Globals.G_Catalog_Group_Rec.segment5 := NULL;
172 END IF;
173 IF (EGO_Globals.G_Catalog_Group_Rec.segment6 = FND_API.G_MISS_CHAR)
174 THEN
175 EGO_Globals.G_Catalog_Group_Rec.segment6 := NULL;
176 END IF;
177 IF (EGO_Globals.G_Catalog_Group_Rec.segment7 = FND_API.G_MISS_CHAR)
178 THEN
179 EGO_Globals.G_Catalog_Group_Rec.segment7 := NULL;
180 END IF;
181 IF (EGO_Globals.G_Catalog_Group_Rec.segment8 = FND_API.G_MISS_CHAR)
182 THEN
183 EGO_Globals.G_Catalog_Group_Rec.segment8 := NULL;
184 END IF;
185 IF (EGO_Globals.G_Catalog_Group_Rec.segment9 = FND_API.G_MISS_CHAR)
186 THEN
187 EGO_Globals.G_Catalog_Group_Rec.segment9 := NULL;
188 END IF;
189 IF (EGO_Globals.G_Catalog_Group_Rec.segment10 = FND_API.G_MISS_CHAR)
190 THEN
191 EGO_Globals.G_Catalog_Group_Rec.segment10 := NULL;
192 END IF;
193 IF (EGO_Globals.G_Catalog_Group_Rec.segment11 = FND_API.G_MISS_CHAR)
194 THEN
195 EGO_Globals.G_Catalog_Group_Rec.segment11 := NULL;
196 END IF;
197 IF (EGO_Globals.G_Catalog_Group_Rec.segment12 = FND_API.G_MISS_CHAR)
198 THEN
199 EGO_Globals.G_Catalog_Group_Rec.segment12 := NULL;
200 END IF;
201 IF (EGO_Globals.G_Catalog_Group_Rec.segment13 = FND_API.G_MISS_CHAR)
202 THEN
203 EGO_Globals.G_Catalog_Group_Rec.segment13 := NULL;
204 END IF;
205 IF (EGO_Globals.G_Catalog_Group_Rec.segment14 = FND_API.G_MISS_CHAR)
206 THEN
207 EGO_Globals.G_Catalog_Group_Rec.segment14 := NULL;
208 END IF;
209 IF (EGO_Globals.G_Catalog_Group_Rec.segment15 = FND_API.G_MISS_CHAR)
210 THEN
211 EGO_Globals.G_Catalog_Group_Rec.segment15 := NULL;
212 END IF;
213 IF (EGO_Globals.G_Catalog_Group_Rec.segment16 = FND_API.G_MISS_CHAR)
214 THEN
215 EGO_Globals.G_Catalog_Group_Rec.segment16 := NULL;
216 END IF;
217 IF (EGO_Globals.G_Catalog_Group_Rec.segment17 = FND_API.G_MISS_CHAR)
218 THEN
219 EGO_Globals.G_Catalog_Group_Rec.segment17 := NULL;
220 END IF;
221 IF (EGO_Globals.G_Catalog_Group_Rec.segment18 = FND_API.G_MISS_CHAR)
222 THEN
223 EGO_Globals.G_Catalog_Group_Rec.segment18 := NULL;
224 END IF;
225 IF (EGO_Globals.G_Catalog_Group_Rec.segment19 = FND_API.G_MISS_CHAR)
226 THEN
227 EGO_Globals.G_Catalog_Group_Rec.segment19 := NULL;
228 END IF;
229 IF (EGO_Globals.G_Catalog_Group_Rec.segment20 = FND_API.G_MISS_CHAR)
230 THEN
231 EGO_Globals.G_Catalog_Group_Rec.segment20 := NULL;
232 END IF;
233
234 --fix for bug 2822776
235 IF EGO_Globals.G_Catalog_Group_Rec.description = FND_API.G_MISS_CHAR
236 THEN
237 EGO_Globals.G_Catalog_Group_Rec.description := NULL;
238 END IF;
239
240
241 END Attribute_Defaulting;
242
243 /******************************************************************
244 * Procedure : Populate_Null_Columns
245 * Purpose : This procedure will look at the columns that the user
246 * has not filled in and will assign those columns a
247 * value from the database record.
248 * This procedure is not called for CREATE
249 ********************************************************************/
250 PROCEDURE Populate_Null_Columns
251 IS
252 BEGIN
253 ---- Nulled out the columns if G_MISS_CHAR/G_MISS_NUM is being passed bug 9651715
254 ----
255
256
257
258 IF EGO_Globals.G_Catalog_Group_Rec.attribute_category IS NULL
259 THEN
260 EGO_Globals.G_Catalog_Group_Rec.attribute_category :=
261 EGO_Globals.G_Old_Catalog_Group_Rec.attribute_category;
262
263 END IF;
264
265 IF EGO_Globals.G_Catalog_Group_Rec.attribute2 IS NULL
266 THEN
267 EGO_Globals.G_Catalog_Group_Rec.attribute2 :=
268 EGO_Globals.G_Old_Catalog_Group_Rec.attribute2;
269 END IF;
270
271 IF EGO_Globals.G_Catalog_Group_Rec.attribute3 IS NULL
272 THEN
273 EGO_Globals.G_Catalog_Group_Rec.attribute3 :=
274 EGO_Globals.G_Old_Catalog_Group_Rec.attribute3;
275 END IF;
276
277
278 IF EGO_Globals.G_Catalog_Group_Rec.attribute4 IS NULL
279 THEN
280 EGO_Globals.G_Catalog_Group_Rec.attribute4 :=
281 EGO_Globals.G_Old_Catalog_Group_Rec.attribute4;
282 END IF;
283
284 IF EGO_Globals.G_Catalog_Group_Rec.attribute5 IS NULL
285 THEN
286 EGO_Globals.G_Catalog_Group_Rec.attribute5 :=
287 EGO_Globals.G_Old_Catalog_Group_Rec.attribute5;
288 END IF;
289
290
291 if EGO_Globals.G_Catalog_Group_Rec.attribute7 IS NULL
292 THEN
293 EGO_Globals.G_Catalog_Group_Rec.attribute7 :=
294 EGO_Globals.G_Old_Catalog_Group_Rec.attribute7;
295 END IF;
296
297
298 IF EGO_Globals.G_Catalog_Group_Rec.attribute8 IS NULL
299 THEN
300 EGO_Globals.G_Catalog_Group_Rec.attribute8 :=
301 EGO_Globals.G_Old_Catalog_Group_Rec.attribute8;
302 END IF;
303
304
305 if EGO_Globals.G_Catalog_Group_Rec.attribute9 IS NULL
306 THEN
307 EGO_Globals.G_Catalog_Group_Rec.attribute9 :=
308 EGO_Globals.G_Old_Catalog_Group_Rec.attribute9;
309 END IF;
310
311
312 IF EGO_Globals.G_Catalog_Group_Rec.attribute11 IS NULL
313 THEN
314 EGO_Globals.G_Catalog_Group_Rec.attribute11 :=
315 EGO_Globals.G_Old_Catalog_Group_Rec.attribute11;
316 END IF;
317
318
319 IF EGO_Globals.G_Catalog_Group_Rec.attribute12 IS NULL
320 THEN
321 EGO_Globals.G_Catalog_Group_Rec.attribute12 :=
322 EGO_Globals.G_Old_Catalog_Group_Rec.attribute12;
323 END IF;
324
325
326 IF EGO_Globals.G_Catalog_Group_Rec.attribute13 IS NULL
327 THEN
328 EGO_Globals.G_Catalog_Group_Rec.attribute13 :=
329 EGO_Globals.G_Old_Catalog_Group_Rec.attribute13;
330 END IF;
331
332 IF
333 EGO_Globals.G_Catalog_Group_Rec.attribute14 IS NULL
334 THEN
335 EGO_Globals.G_Catalog_Group_Rec.attribute14 :=
336 EGO_Globals.G_Old_Catalog_Group_Rec.attribute14;
337 END IF;
338
339 IF
340 EGO_Globals.G_Catalog_Group_Rec.attribute15 IS NULL
341 THEN
342 EGO_Globals.G_Catalog_Group_Rec.attribute15 :=
343 EGO_Globals.G_Old_Catalog_Group_Rec.attribute15;
344 END IF;
345
346
347 IF EGO_Globals.G_Catalog_Group_Rec.attribute1 IS NULL
348 THEN
349 EGO_Globals.G_Catalog_Group_Rec.attribute1 :=
350 EGO_Globals.G_Old_Catalog_Group_Rec.attribute1;
351 END IF;
352
353
354 IF EGO_Globals.G_Catalog_Group_Rec.attribute6 IS NULL
355 THEN
356 EGO_Globals.G_Catalog_Group_Rec.attribute6 :=
357 EGO_Globals.G_Old_Catalog_Group_Rec.attribute6;
358 END IF;
359
360
361 IF EGO_Globals.G_Catalog_Group_Rec.attribute10 IS NULL
362 THEN
363 EGO_Globals.G_Catalog_Group_Rec.attribute10 :=
364 EGO_Globals.G_Old_Catalog_Group_Rec.attribute10;
365 END IF;
366
367 --- This will NULL out DFF attribute columns if they are G_MISS_CHAR
368 ---
369 Get_Flex_Catalog_Group;
370
371 IF EGO_Globals.G_Catalog_Group_Rec.description IS NULL
372 THEN
373 EGO_Globals.G_Catalog_Group_Rec.description := EGO_Globals.G_Old_Catalog_Group_Rec.Description;
374 END IF;
375
376 IF EGO_Globals.G_Catalog_Group_Rec.summary_flag IS NULL
377 THEN
378 EGO_Globals.G_Catalog_Group_Rec.summary_flag := EGO_Globals.G_Old_Catalog_Group_Rec.Summary_Flag;
379 END IF;
380
381 IF EGO_Globals.G_Catalog_Group_Rec.enabled_flag IS NULL
382 THEN
383 EGO_Globals.G_Catalog_Group_Rec.enabled_flag := EGO_Globals.G_Old_Catalog_Group_Rec.Enabled_flag;
384 END IF;
385
386 IF EGO_Globals.G_Catalog_Group_Rec.inactive_date IS NULL
387 THEN
388 EGO_Globals.G_Catalog_Group_Rec.inactive_date := EGO_Globals.G_Old_Catalog_Group_Rec.inactive_date;
389 END IF;
390
391 IF EGO_Globals.G_Catalog_Group_Rec.start_effective_date IS NULL
392 THEN
393 EGO_Globals.G_Catalog_Group_Rec.start_effective_date := EGO_Globals.G_Old_Catalog_Group_Rec.start_effective_date;
394 END IF;
395
396 IF EGO_Globals.G_Catalog_Group_Rec.description = FND_API.G_MISS_CHAR
397 THEN
398 EGO_Globals.G_Catalog_Group_Rec.description := NULL;
399 END IF;
400
401 IF EGO_Globals.G_Catalog_Group_Rec.inactive_date = FND_API.G_MISS_DATE
402 THEN
403 EGO_Globals.G_Catalog_Group_Rec.inactive_date := NULL;
404 END IF;
405
406 IF EGO_Globals.G_Catalog_Group_Rec.start_effective_date = FND_API.G_MISS_DATE
407 THEN
408 EGO_Globals.G_Catalog_Group_Rec.start_effective_date := NULL;
409 END IF;
410
411 IF EGO_Globals.G_Catalog_Group_Rec.summary_flag = FND_API.G_MISS_CHAR THEN
412 IF fnd_flex_keyval.summary_flag then
413 EGO_Globals.G_Catalog_Group_Rec.Summary_Flag := 'Y';
414 ELSE
415 EGO_Globals.G_Catalog_Group_Rec.Summary_Flag := 'N';
416 END IF;
417 END IF;
418
419 IF EGO_Globals.G_Catalog_Group_Rec.enabled_flag = FND_API.G_MISS_CHAR THEN
420 EGO_Globals.G_Catalog_Group_Rec.Enabled_flag := 'Y';
421 END IF;
422
423 --
424 -- Get the unexposed columns from the database and return
425 -- them as the unexposed columns for the current record.
426 --
427
428 EGO_Globals.G_Catalog_Group_Rec.catalog_group_id := EGO_Globals.G_Old_Catalog_Group_Rec.catalog_group_id;
429
430 IF EGO_Globals.G_Catalog_Group_Rec.parent_catalog_group_id IS NULL
431 THEN
432 EGO_Globals.G_Catalog_Group_Rec.parent_catalog_group_id := EGO_Globals.G_Old_Catalog_Group_Rec.parent_catalog_group_id;
433 END IF;
434
435 IF EGO_Globals.G_Catalog_Group_Rec.parent_catalog_group_id = FND_API.G_MISS_NUM
436 THEN
437 EGO_Globals.G_Catalog_Group_Rec.parent_catalog_group_id := NULL;
438 END IF;
439
440 END Populate_Null_Columns;
441
442 END EGO_Default_Catalog_Group;