1 PACKAGE BODY QP_Validate_Limit_Balances AS
2 /* $Header: QPXLLMBB.pls 120.1 2005/06/08 04:12:10 appldev $ */
3
4 -- Global constant holding the package name
5
6 G_PKG_NAME CONSTANT VARCHAR2(30) := 'QP_Validate_Limit_Balances';
7
8 -- Procedure Entity
9
10 PROCEDURE Entity
11 ( x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
12 , p_LIMIT_BALANCES_rec IN QP_Limits_PUB.Limit_Balances_Rec_Type
13 , p_old_LIMIT_BALANCES_rec IN QP_Limits_PUB.Limit_Balances_Rec_Type :=
14 QP_Limits_PUB.G_MISS_LIMIT_BALANCES_REC
15 )
16 IS
17 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
18 BEGIN
19
20 -- Check required attributes.
21
22 IF p_LIMIT_BALANCES_rec.limit_balance_id IS NULL
23 THEN
24
25 l_return_status := FND_API.G_RET_STS_ERROR;
26
27 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
28 THEN
29
30 FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
31 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','attribute1');
32 OE_MSG_PUB.Add;
33
34 END IF;
35
36 END IF;
37
38 --
39 -- Check rest of required attributes here.
40 --
41
42
43 -- Return Error if a required attribute is missing.
44
45 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
46
47 RAISE FND_API.G_EXC_ERROR;
48
49 END IF;
50
51 --
52 -- Check conditionally required attributes here.
53 --
54
55
56 --
57 -- Validate attribute dependencies here.
58 --
59
60
61 -- Done validating entity
62
63 x_return_status := l_return_status;
64
65 EXCEPTION
66
67 WHEN FND_API.G_EXC_ERROR THEN
68
69 x_return_status := FND_API.G_RET_STS_ERROR;
70
71 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
72
73 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
74
75 WHEN OTHERS THEN
76
77 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
78
79 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
80 THEN
81 OE_MSG_PUB.Add_Exc_Msg
82 ( G_PKG_NAME
83 , 'Entity'
84 );
85 END IF;
86
87 END Entity;
88
89 -- Procedure Attributes
90
91 PROCEDURE Attributes
92 ( x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
93 , p_LIMIT_BALANCES_rec IN QP_Limits_PUB.Limit_Balances_Rec_Type
94 , p_old_LIMIT_BALANCES_rec IN QP_Limits_PUB.Limit_Balances_Rec_Type :=
95 QP_Limits_PUB.G_MISS_LIMIT_BALANCES_REC
96 )
97 IS
98 BEGIN
99
100 x_return_status := FND_API.G_RET_STS_SUCCESS;
101
102 -- Validate LIMIT_BALANCES attributes
103
104 IF p_LIMIT_BALANCES_rec.available_amount IS NOT NULL AND
105 ( p_LIMIT_BALANCES_rec.available_amount <>
106 p_old_LIMIT_BALANCES_rec.available_amount OR
107 p_old_LIMIT_BALANCES_rec.available_amount IS NULL )
108 THEN
109 IF NOT QP_Validate.Available_Amount(p_LIMIT_BALANCES_rec.available_amount) THEN
110 x_return_status := FND_API.G_RET_STS_ERROR;
111 END IF;
112 END IF;
113
114 IF p_LIMIT_BALANCES_rec.consumed_amount IS NOT NULL AND
115 ( p_LIMIT_BALANCES_rec.consumed_amount <>
116 p_old_LIMIT_BALANCES_rec.consumed_amount OR
117 p_old_LIMIT_BALANCES_rec.consumed_amount IS NULL )
118 THEN
119 IF NOT QP_Validate.Consumed_Amount(p_LIMIT_BALANCES_rec.consumed_amount) THEN
120 x_return_status := FND_API.G_RET_STS_ERROR;
121 END IF;
122 END IF;
123
124 IF p_LIMIT_BALANCES_rec.created_by IS NOT NULL AND
125 ( p_LIMIT_BALANCES_rec.created_by <>
126 p_old_LIMIT_BALANCES_rec.created_by OR
127 p_old_LIMIT_BALANCES_rec.created_by IS NULL )
128 THEN
129 IF NOT QP_Validate.Created_By(p_LIMIT_BALANCES_rec.created_by) THEN
130 x_return_status := FND_API.G_RET_STS_ERROR;
131 END IF;
132 END IF;
133
134 IF p_LIMIT_BALANCES_rec.creation_date IS NOT NULL AND
135 ( p_LIMIT_BALANCES_rec.creation_date <>
136 p_old_LIMIT_BALANCES_rec.creation_date OR
137 p_old_LIMIT_BALANCES_rec.creation_date IS NULL )
138 THEN
139 IF NOT QP_Validate.Creation_Date(p_LIMIT_BALANCES_rec.creation_date) THEN
140 x_return_status := FND_API.G_RET_STS_ERROR;
141 END IF;
142 END IF;
143
144 IF p_LIMIT_BALANCES_rec.last_updated_by IS NOT NULL AND
145 ( p_LIMIT_BALANCES_rec.last_updated_by <>
146 p_old_LIMIT_BALANCES_rec.last_updated_by OR
147 p_old_LIMIT_BALANCES_rec.last_updated_by IS NULL )
148 THEN
149 IF NOT QP_Validate.Last_Updated_By(p_LIMIT_BALANCES_rec.last_updated_by) THEN
150 x_return_status := FND_API.G_RET_STS_ERROR;
151 END IF;
152 END IF;
153
154 IF p_LIMIT_BALANCES_rec.last_update_date IS NOT NULL AND
155 ( p_LIMIT_BALANCES_rec.last_update_date <>
156 p_old_LIMIT_BALANCES_rec.last_update_date OR
157 p_old_LIMIT_BALANCES_rec.last_update_date IS NULL )
158 THEN
159 IF NOT QP_Validate.Last_Update_Date(p_LIMIT_BALANCES_rec.last_update_date) THEN
160 x_return_status := FND_API.G_RET_STS_ERROR;
161 END IF;
162 END IF;
163
164 IF p_LIMIT_BALANCES_rec.last_update_login IS NOT NULL AND
165 ( p_LIMIT_BALANCES_rec.last_update_login <>
166 p_old_LIMIT_BALANCES_rec.last_update_login OR
167 p_old_LIMIT_BALANCES_rec.last_update_login IS NULL )
168 THEN
169 IF NOT QP_Validate.Last_Update_Login(p_LIMIT_BALANCES_rec.last_update_login) THEN
170 x_return_status := FND_API.G_RET_STS_ERROR;
171 END IF;
172 END IF;
173
174 IF p_LIMIT_BALANCES_rec.limit_balance_id IS NOT NULL AND
175 ( p_LIMIT_BALANCES_rec.limit_balance_id <>
176 p_old_LIMIT_BALANCES_rec.limit_balance_id OR
177 p_old_LIMIT_BALANCES_rec.limit_balance_id IS NULL )
178 THEN
179 IF NOT QP_Validate.Limit_Balance(p_LIMIT_BALANCES_rec.limit_balance_id) THEN
180 x_return_status := FND_API.G_RET_STS_ERROR;
181 END IF;
182 END IF;
183
184 IF p_LIMIT_BALANCES_rec.limit_id IS NOT NULL AND
185 ( p_LIMIT_BALANCES_rec.limit_id <>
186 p_old_LIMIT_BALANCES_rec.limit_id OR
187 p_old_LIMIT_BALANCES_rec.limit_id IS NULL )
188 THEN
189 IF NOT QP_Validate.Limit(p_LIMIT_BALANCES_rec.limit_id) THEN
190 x_return_status := FND_API.G_RET_STS_ERROR;
191 END IF;
192 END IF;
193
194 IF p_LIMIT_BALANCES_rec.multival_attr1_type IS NOT NULL AND
195 ( p_LIMIT_BALANCES_rec.multival_attr1_type <>
196 p_old_LIMIT_BALANCES_rec.multival_attr1_type OR
197 p_old_LIMIT_BALANCES_rec.multival_attr1_type IS NULL )
198 THEN
199 IF NOT QP_Validate.Multival_Attr1_Type(p_LIMIT_BALANCES_rec.multival_attr1_type) THEN
200 x_return_status := FND_API.G_RET_STS_ERROR;
201 END IF;
202 END IF;
203
204 IF p_LIMIT_BALANCES_rec.multival_attr1_context IS NOT NULL AND
205 ( p_LIMIT_BALANCES_rec.multival_attr1_context <>
206 p_old_LIMIT_BALANCES_rec.multival_attr1_context OR
207 p_old_LIMIT_BALANCES_rec.multival_attr1_context IS NULL )
208 THEN
209 IF NOT QP_Validate.Multival_Attr1_Context(p_LIMIT_BALANCES_rec.multival_attr1_context) THEN
210 x_return_status := FND_API.G_RET_STS_ERROR;
211 END IF;
212 END IF;
213
214 IF p_LIMIT_BALANCES_rec.multival_attribute1 IS NOT NULL AND
215 ( p_LIMIT_BALANCES_rec.multival_attribute1 <>
216 p_old_LIMIT_BALANCES_rec.multival_attribute1 OR
217 p_old_LIMIT_BALANCES_rec.multival_attribute1 IS NULL )
218 THEN
219 IF NOT QP_Validate.Multival_Attribute1(p_LIMIT_BALANCES_rec.multival_attribute1) THEN
220 x_return_status := FND_API.G_RET_STS_ERROR;
221 END IF;
222 END IF;
223
224 IF p_LIMIT_BALANCES_rec.multival_attr1_value IS NOT NULL AND
225 ( p_LIMIT_BALANCES_rec.multival_attr1_value <>
226 p_old_LIMIT_BALANCES_rec.multival_attr1_value OR
227 p_old_LIMIT_BALANCES_rec.multival_attr1_value IS NULL )
228 THEN
229 IF NOT QP_Validate.Multival_Attr1_Value(p_LIMIT_BALANCES_rec.multival_attr1_value) THEN
230 x_return_status := FND_API.G_RET_STS_ERROR;
231 END IF;
232 END IF;
233
234 IF p_LIMIT_BALANCES_rec.multival_attr1_datatype IS NOT NULL AND
235 ( p_LIMIT_BALANCES_rec.multival_attr1_datatype <>
236 p_old_LIMIT_BALANCES_rec.multival_attr1_datatype OR
237 p_old_LIMIT_BALANCES_rec.multival_attr1_datatype IS NULL )
238 THEN
239 IF NOT QP_Validate.Multival_Attr1_Datatype(p_LIMIT_BALANCES_rec.multival_attr1_datatype) THEN
240 x_return_status := FND_API.G_RET_STS_ERROR;
241 END IF;
242 END IF;
243
244 IF p_LIMIT_BALANCES_rec.multival_attr2_type IS NOT NULL AND
245 ( p_LIMIT_BALANCES_rec.multival_attr2_type <>
246 p_old_LIMIT_BALANCES_rec.multival_attr2_type OR
247 p_old_LIMIT_BALANCES_rec.multival_attr2_type IS NULL )
248 THEN
249 IF NOT QP_Validate.Multival_Attr2_Type(p_LIMIT_BALANCES_rec.multival_attr2_type) THEN
250 x_return_status := FND_API.G_RET_STS_ERROR;
251 END IF;
252 END IF;
253
254 IF p_LIMIT_BALANCES_rec.multival_attr2_context IS NOT NULL AND
255 ( p_LIMIT_BALANCES_rec.multival_attr2_context <>
256 p_old_LIMIT_BALANCES_rec.multival_attr2_context OR
257 p_old_LIMIT_BALANCES_rec.multival_attr2_context IS NULL )
258 THEN
259 IF NOT QP_Validate.Multival_Attr2_Context(p_LIMIT_BALANCES_rec.multival_attr2_context) THEN
260 x_return_status := FND_API.G_RET_STS_ERROR;
261 END IF;
262 END IF;
263
264 IF p_LIMIT_BALANCES_rec.multival_attribute2 IS NOT NULL AND
265 ( p_LIMIT_BALANCES_rec.multival_attribute2 <>
266 p_old_LIMIT_BALANCES_rec.multival_attribute2 OR
267 p_old_LIMIT_BALANCES_rec.multival_attribute2 IS NULL )
268 THEN
269 IF NOT QP_Validate.Multival_Attribute2(p_LIMIT_BALANCES_rec.multival_attribute2) THEN
270 x_return_status := FND_API.G_RET_STS_ERROR;
271 END IF;
272 END IF;
273
274 IF p_LIMIT_BALANCES_rec.multival_attr2_value IS NOT NULL AND
275 ( p_LIMIT_BALANCES_rec.multival_attr2_value <>
276 p_old_LIMIT_BALANCES_rec.multival_attr2_value OR
277 p_old_LIMIT_BALANCES_rec.multival_attr2_value IS NULL )
278 THEN
279 IF NOT QP_Validate.Multival_Attr2_Value(p_LIMIT_BALANCES_rec.multival_attr2_value) THEN
280 x_return_status := FND_API.G_RET_STS_ERROR;
281 END IF;
282 END IF;
283
284 IF p_LIMIT_BALANCES_rec.multival_attr2_datatype IS NOT NULL AND
285 ( p_LIMIT_BALANCES_rec.multival_attr2_datatype <>
286 p_old_LIMIT_BALANCES_rec.multival_attr2_datatype OR
287 p_old_LIMIT_BALANCES_rec.multival_attr2_datatype IS NULL )
288 THEN
289 IF NOT QP_Validate.Multival_Attr2_Datatype(p_LIMIT_BALANCES_rec.multival_attr2_datatype) THEN
290 x_return_status := FND_API.G_RET_STS_ERROR;
291 END IF;
292 END IF;
293
294 IF p_LIMIT_BALANCES_rec.organization_attr_context IS NOT NULL AND
295 ( p_LIMIT_BALANCES_rec.organization_attr_context <>
296 p_old_LIMIT_BALANCES_rec.organization_attr_context OR
297 p_old_LIMIT_BALANCES_rec.organization_attr_context IS NULL )
298 THEN
299 IF NOT QP_Validate.Organization_Attr_Context(p_LIMIT_BALANCES_rec.organization_attr_context) THEN
300 x_return_status := FND_API.G_RET_STS_ERROR;
301 END IF;
302 END IF;
303
304 IF p_LIMIT_BALANCES_rec.organization_attribute IS NOT NULL AND
305 ( p_LIMIT_BALANCES_rec.organization_attribute <>
306 p_old_LIMIT_BALANCES_rec.organization_attribute OR
307 p_old_LIMIT_BALANCES_rec.organization_attribute IS NULL )
308 THEN
309 IF NOT QP_Validate.Organization_Attribute(p_LIMIT_BALANCES_rec.organization_attribute) THEN
310 x_return_status := FND_API.G_RET_STS_ERROR;
311 END IF;
312 END IF;
313
314 IF p_LIMIT_BALANCES_rec.organization_attr_value IS NOT NULL AND
315 ( p_LIMIT_BALANCES_rec.organization_attr_value <>
316 p_old_LIMIT_BALANCES_rec.organization_attr_value OR
317 p_old_LIMIT_BALANCES_rec.organization_attr_value IS NULL )
318 THEN
319 IF NOT QP_Validate.Organization_Attr_Value(p_LIMIT_BALANCES_rec.organization_attr_value) THEN
320 x_return_status := FND_API.G_RET_STS_ERROR;
321 END IF;
322 END IF;
323
324 IF p_LIMIT_BALANCES_rec.program_application_id IS NOT NULL AND
325 ( p_LIMIT_BALANCES_rec.program_application_id <>
326 p_old_LIMIT_BALANCES_rec.program_application_id OR
327 p_old_LIMIT_BALANCES_rec.program_application_id IS NULL )
328 THEN
329 IF NOT QP_Validate.Program_Application(p_LIMIT_BALANCES_rec.program_application_id) THEN
330 x_return_status := FND_API.G_RET_STS_ERROR;
331 END IF;
332 END IF;
333
334 IF p_LIMIT_BALANCES_rec.program_id IS NOT NULL AND
335 ( p_LIMIT_BALANCES_rec.program_id <>
336 p_old_LIMIT_BALANCES_rec.program_id OR
337 p_old_LIMIT_BALANCES_rec.program_id IS NULL )
338 THEN
339 IF NOT QP_Validate.Program(p_LIMIT_BALANCES_rec.program_id) THEN
340 x_return_status := FND_API.G_RET_STS_ERROR;
341 END IF;
342 END IF;
343
344 IF p_LIMIT_BALANCES_rec.program_update_date IS NOT NULL AND
345 ( p_LIMIT_BALANCES_rec.program_update_date <>
346 p_old_LIMIT_BALANCES_rec.program_update_date OR
347 p_old_LIMIT_BALANCES_rec.program_update_date IS NULL )
348 THEN
349 IF NOT QP_Validate.Program_Update_Date(p_LIMIT_BALANCES_rec.program_update_date) THEN
350 x_return_status := FND_API.G_RET_STS_ERROR;
351 END IF;
352 END IF;
353
354 IF p_LIMIT_BALANCES_rec.request_id IS NOT NULL AND
355 ( p_LIMIT_BALANCES_rec.request_id <>
356 p_old_LIMIT_BALANCES_rec.request_id OR
357 p_old_LIMIT_BALANCES_rec.request_id IS NULL )
358 THEN
359 IF NOT QP_Validate.Request(p_LIMIT_BALANCES_rec.request_id) THEN
360 x_return_status := FND_API.G_RET_STS_ERROR;
361 END IF;
362 END IF;
363
364 IF p_LIMIT_BALANCES_rec.reserved_amount IS NOT NULL AND
365 ( p_LIMIT_BALANCES_rec.reserved_amount <>
366 p_old_LIMIT_BALANCES_rec.reserved_amount OR
367 p_old_LIMIT_BALANCES_rec.reserved_amount IS NULL )
368 THEN
369 IF NOT QP_Validate.Reserved_Amount(p_LIMIT_BALANCES_rec.reserved_amount) THEN
370 x_return_status := FND_API.G_RET_STS_ERROR;
371 END IF;
372 END IF;
373
374 IF (p_LIMIT_BALANCES_rec.attribute1 IS NOT NULL AND
375 ( p_LIMIT_BALANCES_rec.attribute1 <>
376 p_old_LIMIT_BALANCES_rec.attribute1 OR
377 p_old_LIMIT_BALANCES_rec.attribute1 IS NULL ))
378 OR (p_LIMIT_BALANCES_rec.attribute10 IS NOT NULL AND
379 ( p_LIMIT_BALANCES_rec.attribute10 <>
380 p_old_LIMIT_BALANCES_rec.attribute10 OR
381 p_old_LIMIT_BALANCES_rec.attribute10 IS NULL ))
382 OR (p_LIMIT_BALANCES_rec.attribute11 IS NOT NULL AND
383 ( p_LIMIT_BALANCES_rec.attribute11 <>
384 p_old_LIMIT_BALANCES_rec.attribute11 OR
385 p_old_LIMIT_BALANCES_rec.attribute11 IS NULL ))
386 OR (p_LIMIT_BALANCES_rec.attribute12 IS NOT NULL AND
387 ( p_LIMIT_BALANCES_rec.attribute12 <>
388 p_old_LIMIT_BALANCES_rec.attribute12 OR
389 p_old_LIMIT_BALANCES_rec.attribute12 IS NULL ))
390 OR (p_LIMIT_BALANCES_rec.attribute13 IS NOT NULL AND
391 ( p_LIMIT_BALANCES_rec.attribute13 <>
392 p_old_LIMIT_BALANCES_rec.attribute13 OR
393 p_old_LIMIT_BALANCES_rec.attribute13 IS NULL ))
394 OR (p_LIMIT_BALANCES_rec.attribute14 IS NOT NULL AND
395 ( p_LIMIT_BALANCES_rec.attribute14 <>
396 p_old_LIMIT_BALANCES_rec.attribute14 OR
397 p_old_LIMIT_BALANCES_rec.attribute14 IS NULL ))
398 OR (p_LIMIT_BALANCES_rec.attribute15 IS NOT NULL AND
399 ( p_LIMIT_BALANCES_rec.attribute15 <>
400 p_old_LIMIT_BALANCES_rec.attribute15 OR
401 p_old_LIMIT_BALANCES_rec.attribute15 IS NULL ))
402 OR (p_LIMIT_BALANCES_rec.attribute2 IS NOT NULL AND
403 ( p_LIMIT_BALANCES_rec.attribute2 <>
404 p_old_LIMIT_BALANCES_rec.attribute2 OR
405 p_old_LIMIT_BALANCES_rec.attribute2 IS NULL ))
406 OR (p_LIMIT_BALANCES_rec.attribute3 IS NOT NULL AND
407 ( p_LIMIT_BALANCES_rec.attribute3 <>
408 p_old_LIMIT_BALANCES_rec.attribute3 OR
409 p_old_LIMIT_BALANCES_rec.attribute3 IS NULL ))
410 OR (p_LIMIT_BALANCES_rec.attribute4 IS NOT NULL AND
411 ( p_LIMIT_BALANCES_rec.attribute4 <>
412 p_old_LIMIT_BALANCES_rec.attribute4 OR
413 p_old_LIMIT_BALANCES_rec.attribute4 IS NULL ))
414 OR (p_LIMIT_BALANCES_rec.attribute5 IS NOT NULL AND
415 ( p_LIMIT_BALANCES_rec.attribute5 <>
416 p_old_LIMIT_BALANCES_rec.attribute5 OR
417 p_old_LIMIT_BALANCES_rec.attribute5 IS NULL ))
418 OR (p_LIMIT_BALANCES_rec.attribute6 IS NOT NULL AND
419 ( p_LIMIT_BALANCES_rec.attribute6 <>
420 p_old_LIMIT_BALANCES_rec.attribute6 OR
421 p_old_LIMIT_BALANCES_rec.attribute6 IS NULL ))
422 OR (p_LIMIT_BALANCES_rec.attribute7 IS NOT NULL AND
423 ( p_LIMIT_BALANCES_rec.attribute7 <>
424 p_old_LIMIT_BALANCES_rec.attribute7 OR
425 p_old_LIMIT_BALANCES_rec.attribute7 IS NULL ))
426 OR (p_LIMIT_BALANCES_rec.attribute8 IS NOT NULL AND
427 ( p_LIMIT_BALANCES_rec.attribute8 <>
428 p_old_LIMIT_BALANCES_rec.attribute8 OR
429 p_old_LIMIT_BALANCES_rec.attribute8 IS NULL ))
430 OR (p_LIMIT_BALANCES_rec.attribute9 IS NOT NULL AND
431 ( p_LIMIT_BALANCES_rec.attribute9 <>
432 p_old_LIMIT_BALANCES_rec.attribute9 OR
433 p_old_LIMIT_BALANCES_rec.attribute9 IS NULL ))
434 OR (p_LIMIT_BALANCES_rec.context IS NOT NULL AND
435 ( p_LIMIT_BALANCES_rec.context <>
436 p_old_LIMIT_BALANCES_rec.context OR
437 p_old_LIMIT_BALANCES_rec.context IS NULL ))
438 THEN
439
440 -- These calls are temporarily commented out
441
442 /*
443 FND_FLEX_DESC_VAL.Set_Column_Value
444 ( column_name => 'ATTRIBUTE1'
445 , column_value => p_LIMIT_BALANCES_rec.attribute1
446 );
447 FND_FLEX_DESC_VAL.Set_Column_Value
448 ( column_name => 'ATTRIBUTE10'
449 , column_value => p_LIMIT_BALANCES_rec.attribute10
450 );
451 FND_FLEX_DESC_VAL.Set_Column_Value
452 ( column_name => 'ATTRIBUTE11'
453 , column_value => p_LIMIT_BALANCES_rec.attribute11
454 );
455 FND_FLEX_DESC_VAL.Set_Column_Value
456 ( column_name => 'ATTRIBUTE12'
457 , column_value => p_LIMIT_BALANCES_rec.attribute12
458 );
459 FND_FLEX_DESC_VAL.Set_Column_Value
460 ( column_name => 'ATTRIBUTE13'
461 , column_value => p_LIMIT_BALANCES_rec.attribute13
462 );
463 FND_FLEX_DESC_VAL.Set_Column_Value
464 ( column_name => 'ATTRIBUTE14'
465 , column_value => p_LIMIT_BALANCES_rec.attribute14
466 );
467 FND_FLEX_DESC_VAL.Set_Column_Value
468 ( column_name => 'ATTRIBUTE15'
469 , column_value => p_LIMIT_BALANCES_rec.attribute15
470 );
471 FND_FLEX_DESC_VAL.Set_Column_Value
472 ( column_name => 'ATTRIBUTE2'
473 , column_value => p_LIMIT_BALANCES_rec.attribute2
474 );
475 FND_FLEX_DESC_VAL.Set_Column_Value
476 ( column_name => 'ATTRIBUTE3'
477 , column_value => p_LIMIT_BALANCES_rec.attribute3
478 );
479 FND_FLEX_DESC_VAL.Set_Column_Value
480 ( column_name => 'ATTRIBUTE4'
481 , column_value => p_LIMIT_BALANCES_rec.attribute4
482 );
483 FND_FLEX_DESC_VAL.Set_Column_Value
484 ( column_name => 'ATTRIBUTE5'
485 , column_value => p_LIMIT_BALANCES_rec.attribute5
486 );
487 FND_FLEX_DESC_VAL.Set_Column_Value
488 ( column_name => 'ATTRIBUTE6'
489 , column_value => p_LIMIT_BALANCES_rec.attribute6
490 );
491 FND_FLEX_DESC_VAL.Set_Column_Value
492 ( column_name => 'ATTRIBUTE7'
493 , column_value => p_LIMIT_BALANCES_rec.attribute7
494 );
495 FND_FLEX_DESC_VAL.Set_Column_Value
496 ( column_name => 'ATTRIBUTE8'
497 , column_value => p_LIMIT_BALANCES_rec.attribute8
498 );
499 FND_FLEX_DESC_VAL.Set_Column_Value
500 ( column_name => 'ATTRIBUTE9'
501 , column_value => p_LIMIT_BALANCES_rec.attribute9
502 );
503 FND_FLEX_DESC_VAL.Set_Column_Value
504 ( column_name => 'CONTEXT'
505 , column_value => p_LIMIT_BALANCES_rec.context
506 );
507 */
508
509 -- Validate descriptive flexfield.
510
511 IF NOT QP_Validate.Desc_Flex( 'LIMIT_BALANCES' ) THEN
512 x_return_status := FND_API.G_RET_STS_ERROR;
513 END IF;
514
515 END IF;
516
517 -- Done validating attributes
518
519 EXCEPTION
520
521 WHEN FND_API.G_EXC_ERROR THEN
522
523 x_return_status := FND_API.G_RET_STS_ERROR;
524
525 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
526
527 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
528
529 WHEN OTHERS THEN
530
531 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
532
533 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
534 THEN
535 OE_MSG_PUB.Add_Exc_Msg
536 ( G_PKG_NAME
537 , 'Attributes'
538 );
539 END IF;
540
541 END Attributes;
542
543 -- Procedure Entity_Delete
544
545 PROCEDURE Entity_Delete
546 ( x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
547 , p_LIMIT_BALANCES_rec IN QP_Limits_PUB.Limit_Balances_Rec_Type
548 )
549 IS
550 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
551 BEGIN
552
553 -- Validate entity delete.
554
555 NULL;
556
557 -- Done.
558
559 x_return_status := l_return_status;
560
561 EXCEPTION
562
563 WHEN FND_API.G_EXC_ERROR THEN
564
565 x_return_status := FND_API.G_RET_STS_ERROR;
566
567 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
568
569 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
570
571 WHEN OTHERS THEN
572
573 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
574
575 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
576 THEN
577 OE_MSG_PUB.Add_Exc_Msg
578 ( G_PKG_NAME
579 , 'Entity_Delete'
580 );
581 END IF;
582
583 END Entity_Delete;
584
585 END QP_Validate_Limit_Balances;