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