1 PACKAGE BODY QP_Validate_Modifier_List AS
2 /* $Header: QPXLMLHB.pls 120.8 2006/09/04 06:54:08 rbagri ship $ */
3
4 -- Global constant holding the package name
5
6 G_PKG_NAME CONSTANT VARCHAR2(30) := 'QP_Validate_Modifier_List';
7
8 -- Procedure Entity
9
10 PROCEDURE Entity
11 ( x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
12 , p_MODIFIER_LIST_rec IN QP_Modifiers_PUB.Modifier_List_Rec_Type
13 , p_old_MODIFIER_LIST_rec IN QP_Modifiers_PUB.Modifier_List_Rec_Type :=
14 QP_Modifiers_PUB.G_MISS_MODIFIER_LIST_REC
15 )
16 IS
17 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
18 l_currency_code VARCHAR2(15);
19 l_qp_status VARCHAR2(1);
20 l_security_profile VARCHAR2(1);
21 BEGIN
22
23
24 oe_debug_pub.add('BEGIN entity in QPXLMLHB');
25
26 -- Check whether Source System Code matches
27 -- mkarya for bug 1728764, Prevent update of Trade Management Data in QP
28 QP_UTIL.Check_Source_System_Code
29 (p_list_header_id => p_MODIFIER_LIST_rec.list_header_id,
30 p_list_line_id => NULL,
31 x_return_status => l_return_status
32 );
33
34 -- Check required attributes.
35
36 IF p_MODIFIER_LIST_rec.list_header_id IS NULL
37 THEN
38
39 oe_debug_pub.add('list header id is mandatory');
40 l_return_status := FND_API.G_RET_STS_ERROR;
41
42 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
43 THEN
44
45 FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
46 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','List Header Id');
47 OE_MSG_PUB.Add;
48
49 END IF;
50
51 END IF;
52
53 --
54 -- Check rest of required attributes here.
55 --
56
57 IF p_MODIFIER_LIST_rec.operation = QP_GLOBALS.G_OPR_UPDATE
58 THEN
59
60 IF p_old_MODIFIER_LIST_rec.list_type_code IS NOT NULL
61 AND p_old_MODIFIER_LIST_rec.list_type_code <> FND_API.G_MISS_CHAR
62 AND p_old_MODIFIER_LIST_rec.list_type_code <> p_MODIFIER_LIST_rec.list_type_code
63 THEN
64
65 l_return_status := FND_API.G_RET_STS_ERROR;
66
67 FND_MESSAGE.SET_NAME('QP','QP_CANNOT_UPDATE_LIST_TYPE');
68 OE_MSG_PUB.Add;
69
70 END IF;
71
72 IF nvl(p_old_MODIFIER_LIST_rec.list_source_code,'X') <>
73 nvl(p_MODIFIER_LIST_rec.list_source_code,'X')
74 THEN
75
76 l_return_status := FND_API.G_RET_STS_ERROR;
77
78 FND_MESSAGE.SET_NAME('QP','QP_CANNOT_UPDATE_ATTRIBUTE');
79 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','List Source Code');
80 OE_MSG_PUB.Add;
81
82 END IF;
83
84
85 IF nvl(p_old_MODIFIER_LIST_rec.shareable_flag,'X') <>
86 nvl(p_MODIFIER_LIST_rec.shareable_flag,'X')
87 THEN
88
89 l_return_status := FND_API.G_RET_STS_ERROR;
90
91 FND_MESSAGE.SET_NAME('QP','QP_CANNOT_UPDATE_ATTRIBUTE');
92 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Shareable Flag');
93 OE_MSG_PUB.Add;
94
95 END IF;
96
97 IF p_old_MODIFIER_LIST_rec.list_type_code NOT IN ('DEL')
98 AND nvl(p_old_MODIFIER_LIST_rec.parent_list_header_id,0) <>
99 nvl(p_MODIFIER_LIST_rec.parent_list_header_id,0)
100 THEN
101
102 l_return_status := FND_API.G_RET_STS_ERROR;
103
104 FND_MESSAGE.SET_NAME('QP','QP_CANNOT_UPDATE_ATTRIBUTE');
105 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Parent List Header Id');
106 OE_MSG_PUB.Add;
107
108 END IF;
109
110 IF nvl(p_old_MODIFIER_LIST_rec.source_system_code,'X') <>
111 nvl(p_MODIFIER_LIST_rec.source_system_code,'X')
112 THEN
113
114 l_return_status := FND_API.G_RET_STS_ERROR;
115
116 FND_MESSAGE.SET_NAME('QP','QP_CANNOT_UPDATE_ATTRIBUTE');
117 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Source System Code');
118 OE_MSG_PUB.Add;
119
120 END IF;
121
122 IF nvl(p_old_MODIFIER_LIST_rec.pte_code,'X') <>
123 nvl(p_MODIFIER_LIST_rec.pte_code,'X')
124 THEN
125
126 l_return_status := FND_API.G_RET_STS_ERROR;
127
128 FND_MESSAGE.SET_NAME('QP','QP_CANNOT_UPDATE_ATTRIBUTE');
129 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Pricing Transaction Entity Code');
130 OE_MSG_PUB.Add;
131
132 END IF;
133
134 /* IF nvl(p_old_MODIFIER_LIST_rec.ask_for_flag,'X') <>
135 nvl(p_MODIFIER_LIST_rec.ask_for_flag,'X')
136 THEN
137
138 l_return_status := FND_API.G_RET_STS_ERROR;
139
140 FND_MESSAGE.SET_NAME('QP','QP_CANNOT_UPDATE_ATTRIBUTE');
141 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Ask For Flag');
142 OE_MSG_PUB.Add;
143
144 END IF; Bug 5503831 */
145
146 /* Commented for bug2516658
147
148 IF p_old_MODIFIER_LIST_rec.name IS NOT NULL
149 AND p_old_MODIFIER_LIST_rec.name <> FND_API.G_MISS_CHAR
150 AND p_old_MODIFIER_LIST_rec.name <> p_MODIFIER_LIST_rec.name
151 THEN
152
153 l_return_status := FND_API.G_RET_STS_ERROR;
154
155 FND_MESSAGE.SET_NAME('QP','QP_CANNOT_UPDATE_NUMBER');
156 OE_MSG_PUB.Add;
157
158 END IF;
159
160 IF p_old_MODIFIER_LIST_rec.description IS NOT NULL
161 AND p_old_MODIFIER_LIST_rec.description <> FND_API.G_MISS_CHAR
162 AND p_old_MODIFIER_LIST_rec.description <> p_MODIFIER_LIST_rec.description
163 THEN
164
165 l_return_status := FND_API.G_RET_STS_ERROR;
166
167 FND_MESSAGE.SET_NAME('QP','QP_CANNOT_UPDATE_NAME');
168 OE_MSG_PUB.Add;
169
170 END IF;
171 */
172 END IF;
173
174
175 IF p_MODIFIER_LIST_rec.gsa_indicator IS NULL
176 THEN
177
178 l_qp_status := QP_UTIL.GET_QP_STATUS;
179
180 IF p_MODIFIER_LIST_rec.list_type_code IS NULL
181 THEN
182 l_return_status := FND_API.G_RET_STS_ERROR;
183
184 oe_debug_pub.add('list type code is mandatory');
185 FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
186 FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('LIST_TYPE_CODE')); -- Fix For Bug-1974413
187 OE_MSG_PUB.Add;
188
189 END IF;
190
191 IF ( l_qp_status = 'I' AND
192 p_MODIFIER_LIST_rec.list_type_code <> 'PRO' AND
193 p_MODIFIER_LIST_rec.list_type_code <> 'DEL' AND
194 p_MODIFIER_LIST_rec.list_type_code <> 'DLT' AND
195 p_MODIFIER_LIST_rec.list_type_code <> 'PML' AND
196 p_MODIFIER_LIST_rec.list_type_code <> 'CHARGES' AND
197 p_MODIFIER_LIST_rec.list_type_code <> 'SLT' )
198 THEN
199
200 oe_debug_pub.add('invalid list type code ');
201 l_return_status := FND_API.G_RET_STS_ERROR;
202 FND_MESSAGE.SET_NAME('QP','QP_INVALID_LIST_TYPE');
203 OE_MSG_PUB.Add;
204
205 END IF;
206 -- For bug 2363065, raise the error in basic pricing if not called from FTE
207 IF p_MODIFIER_LIST_rec.list_type_code <> 'PML' THEN
208 IF ( l_qp_status = 'S' AND
209 QP_MOD_LOADER_PUB.G_PROCESS_LST_REQ_TYPE <> 'FTE' AND
210 p_MODIFIER_LIST_rec.list_type_code <> 'DLT' AND
211 p_MODIFIER_LIST_rec.list_type_code <> 'CHARGES' AND
212 p_MODIFIER_LIST_rec.list_type_code <> 'SLT' )
213 THEN
214
215 oe_debug_pub.add('invalid list type code ');
216 l_return_status := FND_API.G_RET_STS_ERROR;
217 FND_MESSAGE.SET_NAME('QP','QP_INVALID_LIST_TYPE');
218 OE_MSG_PUB.Add;
219
220 END IF;
221 END IF;
222
223 END IF;
224
225 IF p_MODIFIER_LIST_rec.list_type_code <> 'PML' THEN
226
227 IF p_MODIFIER_LIST_rec.gsa_indicator = 'Y'
228 AND p_MODIFIER_LIST_rec.list_type_code <> 'DLT'
229 THEN
230 l_return_status := FND_API.G_RET_STS_ERROR;
231 FND_MESSAGE.SET_NAME('QP','QP_INVALID_LIST_TYPE');
232 OE_MSG_PUB.Add;
233
234
235 END IF;
236
237 IF p_MODIFIER_LIST_rec.source_system_code IS NULL
238 THEN
239
240 l_return_status := FND_API.G_RET_STS_ERROR;
241 FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
242 FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('SOURCE_SYSTEM_CODE')); -- Fix For Bug-1974413
243 OE_MSG_PUB.Add;
244
245 END IF;
246
247 -- Bug 2351145 - pte_code is mandatory only when attribute manager is installed
248 IF qp_util.attrmgr_installed = 'Y' then
249 IF p_MODIFIER_LIST_rec.pte_code IS NULL
250 THEN
251
252 l_return_status := FND_API.G_RET_STS_ERROR;
253 FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
254 FND_MESSAGE.SET_TOKEN('ATTRIBUTE', 'PTE_CODE');
255 OE_MSG_PUB.Add;
256
257 END IF;
258 END IF;
259
260 END IF;
261
262 IF p_MODIFIER_LIST_rec.list_type_code <> 'PML' THEN
263
264 IF p_MODIFIER_LIST_rec.currency_code IS NULL
265 THEN
266 If QP_Code_Control.Get_Code_Release_Level > '110509'
267 Then
268 l_currency_code := NULL;
269 Else
270 oe_debug_pub.add('currency code is null ');
271 l_return_status := FND_API.G_RET_STS_ERROR;
272 FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
273 FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('CURRENCY_CODE')); -- Fix For Bug-1974413
274 OE_MSG_PUB.Add;
275 End If;
276 ELSE
277
278 BEGIN
279
280 select currency_code
281 into l_currency_code
282 from fnd_currencies_vl
283 where enabled_flag = 'Y'
284 and currency_flag = 'Y'
285 and currency_code = p_MODIFIER_LIST_rec.currency_code;
286 /* and trunc(sysdate) between nvl(start_date_active,trunc(sysdate))
287 and nvl(end_date_active,trunc(sysdate));
288 */
289
290 EXCEPTION
291
292 WHEN NO_DATA_FOUND THEN
293 l_return_status := FND_API.G_RET_STS_ERROR;
294
295 FND_MESSAGE.SET_NAME('QP','QP_INVALID_CURRENCY');
296 OE_MSG_PUB.Add;
297
298 END;
299
300 END IF;
301 END IF;
302
303 IF nvl( p_MODIFIER_LIST_rec.start_date_active,to_date('01/01/1951','mm/dd/yyyy')) >
304 nvl( p_MODIFIER_LIST_rec.end_date_active,to_date('12/31/9999','mm/dd/yyyy'))
305 THEN
306
307 oe_debug_pub.add('start date after end date');
308 l_return_status := FND_API.G_RET_STS_ERROR;
309
310 FND_MESSAGE.SET_NAME('QP','QP_STRT_DATE_BFR_END_DATE');
311 OE_MSG_PUB.Add;
312
313 END IF;
314
315 IF nvl( p_MODIFIER_LIST_rec.start_date_active_first,to_date('01/01/1951','mm/dd/yyyy')) >
316 nvl( p_MODIFIER_LIST_rec.end_date_active_first,to_date('12/31/9999','mm/dd/yyyy'))
317 THEN
318
319 oe_debug_pub.add('start date after end date');
320 l_return_status := FND_API.G_RET_STS_ERROR;
321
322 FND_MESSAGE.SET_NAME('QP','QP_STRT_DATE_BFR_END_DATE');
323 OE_MSG_PUB.Add;
324
325 END IF;
326
327 IF nvl( p_MODIFIER_LIST_rec.start_date_active_second,to_date('01/01/1951','mm/dd/yyyy')) >
328 nvl( p_MODIFIER_LIST_rec.end_date_active_second,to_date('12/31/9999','mm/dd/yyyy'))
329 THEN
330
331 oe_debug_pub.add('start date after end date');
332 l_return_status := FND_API.G_RET_STS_ERROR;
333
334 FND_MESSAGE.SET_NAME('QP','QP_STRT_DATE_BFR_END_DATE');
335 OE_MSG_PUB.Add;
336
337 END IF;
338
339 oe_debug_pub.add('list type code = '||p_MODIFIER_LIST_rec.list_type_code);
340 oe_debug_pub.add('parent list header id = '||
341 to_char(p_MODIFIER_LIST_rec.parent_list_header_id));
342
343 IF p_MODIFIER_LIST_rec.list_type_code = 'DEL'
344 AND p_MODIFIER_LIST_rec.parent_list_header_id IS NULL
345 THEN
346
347 oe_debug_pub.add('id deal, list header id is null');
348 l_return_status := FND_API.G_RET_STS_ERROR;
349
350 FND_MESSAGE.SET_NAME('QP','QP_PARENT_REQUIRED');
351 OE_MSG_PUB.Add;
352
353 END IF;
354
355 IF p_MODIFIER_LIST_rec.list_type_code <> 'PML' THEN
356 IF p_MODIFIER_LIST_rec.list_type_code <> 'CHARGES'
357 THEN
358 IF p_MODIFIER_LIST_rec.description IS NULL
359 THEN
360
361 oe_debug_pub.add('name is null');
362 l_return_status := FND_API.G_RET_STS_ERROR;
363
364 FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
365 FND_MESSAGE.SET_TOKEN('ATTRIBUTE',QP_PRC_UTIL.Get_Attribute_Name('NAME')); -- Fix For Bug-1974413
366 OE_MSG_PUB.Add;
367
368 END IF;
369 END IF;
370
371 IF p_MODIFIER_LIST_rec.active_date_first_type IS NOT NULL
372 AND p_MODIFIER_LIST_rec.active_date_second_type IS NOT NULL
373 THEN
374 IF p_MODIFIER_LIST_rec.active_date_first_type =
375 p_MODIFIER_LIST_rec.active_date_second_type
376 THEN
377
378 oe_debug_pub.add('name is null');
379 l_return_status := FND_API.G_RET_STS_ERROR;
380
381 FND_MESSAGE.SET_NAME('QP','QP_DATE_TYPES_MUST_DIFFER');
382 OE_MSG_PUB.Add;
383
384 END IF;
385 END IF;
386 END IF; --list_type_code is not 'PML'
387
388 -- added for MOAC
389 IF ( p_MODIFIER_LIST_rec.global_flag IS NOT NULL
390 and p_MODIFIER_LIST_rec.global_flag <> FND_API.G_MISS_CHAR ) THEN
391
392 IF p_MODIFIER_LIST_rec.global_flag not in ('Y', 'N', 'n') THEN
393
394 l_return_status := FND_API.G_RET_STS_ERROR;
395
396 IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_ERROR) THEN
397
398 FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
399 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Global_flag');
400 oe_msg_pub.add;
401 END IF;
402 END IF;
403 END IF;
404
405 --added for MOAC
406 l_security_profile := QP_SECURITY.security_on;
407
408 IF ( p_MODIFIER_LIST_rec.global_flag IS NOT NULL)
409 THEN
410
411 --if security is OFF, global_flag cannot be 'N'
412 IF (l_security_profile = 'N'
413 and p_MODIFIER_LIST_rec.global_flag in ('N', 'n')) THEN
414 l_return_status := FND_API.G_RET_STS_ERROR;
415 IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_ERROR) THEN
416 FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
417 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','global_flag');
418 oe_msg_pub.add;
419 END IF;
420 END IF;
421
422 IF l_security_profile = 'Y' THEN
423 --if security is ON and global_flag is 'N', org_id cannot be null
424 IF (p_MODIFIER_LIST_rec.global_flag in ('N', 'n')
425 and p_MODIFIER_LIST_rec.org_id is null) THEN
426 l_return_status := FND_API.G_RET_STS_ERROR;
427 IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_ERROR) THEN
428 FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
429 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','ORG_ID');
430 oe_msg_pub.add;
431 END IF;
432 END IF;
433
434 --if org_id is not null and it is not a valid org
435 IF (p_MODIFIER_LIST_rec.org_id is not null
436 and QP_UTIL.validate_org_id(p_MODIFIER_LIST_rec.org_id) = 'N') THEN
437 l_return_status := FND_API.G_RET_STS_ERROR;
438 IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_ERROR) THEN
439 FND_MESSAGE.SET_NAME('FND','FND_MO_ORG_INVALID');
440 -- FND_MESSAGE.SET_TOKEN('ATTRIBUTE','ORG_ID');
441 oe_msg_pub.add;
442 END IF;
443 END IF;
444 END IF; --IF l_security_profile = 'Y'
445
446 --global_flag 'Y', and org_id not null combination is invalid
447 IF ((p_MODIFIER_LIST_rec.global_flag = 'Y'
448 and p_MODIFIER_LIST_rec.org_id is not null) OR (p_MODIFIER_LIST_rec.global_flag = 'N' and p_MODIFIER_LIST_rec.org_id is null)) THEN
449 -- and p_MODIFIER_LIST_rec.org_id <> FND_API.G_MISS_NUM THEN
450 l_return_status := FND_API.G_RET_STS_ERROR;
451 IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_ERROR) THEN
452 FND_MESSAGE.SET_NAME('QP', 'QP_GLOBAL_OR_ORG');
453 oe_msg_pub.add;
454 END IF;
455 END IF;--p_header_rec.global_flag
456 END IF;
457 --end validations for moac
458
459 -- Return Error if a required attribute is missing.
460
461 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
462
463 RAISE FND_API.G_EXC_ERROR;
464
465 END IF;
466
467 --
468 -- Check conditionally required attributes here.
469 --
470
471
472 --
473 -- Validate attribute dependencies here.
474 --
475
476
477 -- Done validating entity
478
479 x_return_status := l_return_status;
480
481 oe_debug_pub.add('END entity in QPXLMLHB');
482
483 EXCEPTION
484
485 WHEN FND_API.G_EXC_ERROR THEN
486
487 oe_debug_pub.add('here in G_EXC');
488 x_return_status := FND_API.G_RET_STS_ERROR;
489
490 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
491
492 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
493
494 WHEN OTHERS THEN
495
496 oe_debug_pub.add('others EXP');
497 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
498
499 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
500 THEN
501 OE_MSG_PUB.Add_Exc_Msg
502 ( G_PKG_NAME
503 , 'Entity'
504 );
505 END IF;
506
507 END Entity;
508
509 -- Procedure Attributes
510
511 PROCEDURE Attributes
512 ( x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
513 , p_MODIFIER_LIST_rec IN QP_Modifiers_PUB.Modifier_List_Rec_Type
514 , p_old_MODIFIER_LIST_rec IN QP_Modifiers_PUB.Modifier_List_Rec_Type :=
515 QP_Modifiers_PUB.G_MISS_MODIFIER_LIST_REC
516 )
517 IS
518 BEGIN
519
520 oe_debug_pub.add('BEGIN attributes in QPXLMLHB');
521
522 x_return_status := FND_API.G_RET_STS_SUCCESS;
523
524 -- Validate MODIFIER_LIST attributes
525
526 IF p_MODIFIER_LIST_rec.automatic_flag IS NOT NULL AND
527 ( p_MODIFIER_LIST_rec.automatic_flag <>
528 p_old_MODIFIER_LIST_rec.automatic_flag OR
529 p_old_MODIFIER_LIST_rec.automatic_flag IS NULL )
530 THEN
531 IF NOT QP_Validate.Automatic(p_MODIFIER_LIST_rec.automatic_flag) THEN
532 x_return_status := FND_API.G_RET_STS_ERROR;
533 END IF;
534 END IF;
535
536 oe_debug_pub.add('here1');
537 IF p_MODIFIER_LIST_rec.comments IS NOT NULL AND
538 ( p_MODIFIER_LIST_rec.comments <>
539 p_old_MODIFIER_LIST_rec.comments OR
540 p_old_MODIFIER_LIST_rec.comments IS NULL )
541 THEN
542 IF NOT QP_Validate.Comments(p_MODIFIER_LIST_rec.comments) THEN
543 x_return_status := FND_API.G_RET_STS_ERROR;
544 END IF;
545 END IF;
546
547 IF p_MODIFIER_LIST_rec.created_by IS NOT NULL AND
548 ( p_MODIFIER_LIST_rec.created_by <>
549 p_old_MODIFIER_LIST_rec.created_by OR
550 p_old_MODIFIER_LIST_rec.created_by IS NULL )
551 THEN
552 IF NOT QP_Validate.Created_By(p_MODIFIER_LIST_rec.created_by) THEN
553 x_return_status := FND_API.G_RET_STS_ERROR;
554 END IF;
555 END IF;
556
557 IF p_MODIFIER_LIST_rec.creation_date IS NOT NULL AND
558 ( p_MODIFIER_LIST_rec.creation_date <>
559 p_old_MODIFIER_LIST_rec.creation_date OR
560 p_old_MODIFIER_LIST_rec.creation_date IS NULL )
561 THEN
562 IF NOT QP_Validate.Creation_Date(p_MODIFIER_LIST_rec.creation_date) THEN
563 x_return_status := FND_API.G_RET_STS_ERROR;
564 END IF;
565 END IF;
566
567 IF p_MODIFIER_LIST_rec.currency_code IS NOT NULL AND
568 ( p_MODIFIER_LIST_rec.currency_code <>
569 p_old_MODIFIER_LIST_rec.currency_code OR
570 p_old_MODIFIER_LIST_rec.currency_code IS NULL )
571 THEN
572 IF NOT QP_Validate.Currency(p_MODIFIER_LIST_rec.currency_code) THEN
573 x_return_status := FND_API.G_RET_STS_ERROR;
574 END IF;
575 END IF;
576
577 IF p_MODIFIER_LIST_rec.discount_lines_flag IS NOT NULL AND
578 ( p_MODIFIER_LIST_rec.discount_lines_flag <>
579 p_old_MODIFIER_LIST_rec.discount_lines_flag OR
580 p_old_MODIFIER_LIST_rec.discount_lines_flag IS NULL )
581 THEN
582 IF NOT QP_Validate.Discount_Lines(p_MODIFIER_LIST_rec.discount_lines_flag) THEN
583 x_return_status := FND_API.G_RET_STS_ERROR;
584 END IF;
585 END IF;
586
587 oe_debug_pub.add('here6');
588 IF p_MODIFIER_LIST_rec.end_date_active IS NOT NULL AND
589 ( p_MODIFIER_LIST_rec.end_date_active <>
590 p_old_MODIFIER_LIST_rec.end_date_active OR
591 p_old_MODIFIER_LIST_rec.end_date_active IS NULL )
592 THEN
593 IF NOT QP_Validate.End_Date_Active(p_MODIFIER_LIST_rec.end_date_active) THEN
594 x_return_status := FND_API.G_RET_STS_ERROR;
595 END IF;
596 END IF;
597
598 oe_debug_pub.add('here7');
599 IF p_MODIFIER_LIST_rec.freight_terms_code IS NOT NULL AND
600 ( p_MODIFIER_LIST_rec.freight_terms_code <>
601 p_old_MODIFIER_LIST_rec.freight_terms_code OR
602 p_old_MODIFIER_LIST_rec.freight_terms_code IS NULL )
603 THEN
604 IF NOT QP_Validate.Freight_Terms(p_MODIFIER_LIST_rec.freight_terms_code) THEN
605 x_return_status := FND_API.G_RET_STS_ERROR;
606 END IF;
607 END IF;
608
609 oe_debug_pub.add('here8');
610 IF p_MODIFIER_LIST_rec.gsa_indicator IS NOT NULL AND
611 ( p_MODIFIER_LIST_rec.gsa_indicator <>
612 p_old_MODIFIER_LIST_rec.gsa_indicator OR
613 p_old_MODIFIER_LIST_rec.gsa_indicator IS NULL )
614 THEN
615 IF NOT QP_Validate.Gsa_Indicator(p_MODIFIER_LIST_rec.gsa_indicator) THEN
616 x_return_status := FND_API.G_RET_STS_ERROR;
617 END IF;
618 END IF;
619
620 oe_debug_pub.add('here9');
621 IF p_MODIFIER_LIST_rec.last_updated_by IS NOT NULL AND
622 ( p_MODIFIER_LIST_rec.last_updated_by <>
623 p_old_MODIFIER_LIST_rec.last_updated_by OR
624 p_old_MODIFIER_LIST_rec.last_updated_by IS NULL )
625 THEN
626 IF NOT QP_Validate.Last_Updated_By(p_MODIFIER_LIST_rec.last_updated_by) THEN
627 x_return_status := FND_API.G_RET_STS_ERROR;
628 END IF;
629 END IF;
630
631 oe_debug_pub.add('here10');
632 IF p_MODIFIER_LIST_rec.last_update_date IS NOT NULL AND
633 ( p_MODIFIER_LIST_rec.last_update_date <>
634 p_old_MODIFIER_LIST_rec.last_update_date OR
635 p_old_MODIFIER_LIST_rec.last_update_date IS NULL )
636 THEN
637 IF NOT QP_Validate.Last_Update_Date(p_MODIFIER_LIST_rec.last_update_date) THEN
638 x_return_status := FND_API.G_RET_STS_ERROR;
639 END IF;
640 END IF;
641
642 oe_debug_pub.add('here11');
643 IF p_MODIFIER_LIST_rec.last_update_login IS NOT NULL AND
644 ( p_MODIFIER_LIST_rec.last_update_login <>
645 p_old_MODIFIER_LIST_rec.last_update_login OR
646 p_old_MODIFIER_LIST_rec.last_update_login IS NULL )
647 THEN
648 IF NOT QP_Validate.Last_Update_Login(p_MODIFIER_LIST_rec.last_update_login) THEN
649 x_return_status := FND_API.G_RET_STS_ERROR;
650 END IF;
651 END IF;
652
653 oe_debug_pub.add('here12');
654 IF p_MODIFIER_LIST_rec.list_header_id IS NOT NULL AND
655 ( p_MODIFIER_LIST_rec.list_header_id <>
656 p_old_MODIFIER_LIST_rec.list_header_id OR
657 p_old_MODIFIER_LIST_rec.list_header_id IS NULL )
658 THEN
659 IF NOT QP_Validate.List_Header(p_MODIFIER_LIST_rec.list_header_id) THEN
660 x_return_status := FND_API.G_RET_STS_ERROR;
661 END IF;
662 END IF;
663
664 oe_debug_pub.add('here13');
665 IF p_MODIFIER_LIST_rec.list_type_code IS NOT NULL AND
666 ( p_MODIFIER_LIST_rec.list_type_code <>
667 p_old_MODIFIER_LIST_rec.list_type_code OR
668 p_old_MODIFIER_LIST_rec.list_type_code IS NULL )
669 THEN
670 IF NOT QP_Validate.List_Type(p_MODIFIER_LIST_rec.list_type_code) THEN
671 x_return_status := FND_API.G_RET_STS_ERROR;
672 END IF;
673 END IF;
674
675 oe_debug_pub.add('here14');
676 IF p_MODIFIER_LIST_rec.program_application_id IS NOT NULL AND
677 ( p_MODIFIER_LIST_rec.program_application_id <>
678 p_old_MODIFIER_LIST_rec.program_application_id OR
679 p_old_MODIFIER_LIST_rec.program_application_id IS NULL )
680 THEN
681 IF NOT QP_Validate.Program_Application(p_MODIFIER_LIST_rec.program_application_id) THEN
682 x_return_status := FND_API.G_RET_STS_ERROR;
683 END IF;
684 END IF;
685
686 oe_debug_pub.add('here15');
687 IF p_MODIFIER_LIST_rec.program_id IS NOT NULL AND
688 ( p_MODIFIER_LIST_rec.program_id <>
689 p_old_MODIFIER_LIST_rec.program_id OR
690 p_old_MODIFIER_LIST_rec.program_id IS NULL )
691 THEN
692 IF NOT QP_Validate.Program(p_MODIFIER_LIST_rec.program_id) THEN
693 x_return_status := FND_API.G_RET_STS_ERROR;
694 END IF;
695 END IF;
696
697 oe_debug_pub.add('here16');
698 IF p_MODIFIER_LIST_rec.program_update_date IS NOT NULL AND
699 ( p_MODIFIER_LIST_rec.program_update_date <>
700 p_old_MODIFIER_LIST_rec.program_update_date OR
701 p_old_MODIFIER_LIST_rec.program_update_date IS NULL )
702 THEN
703 IF NOT QP_Validate.Program_Update_Date(p_MODIFIER_LIST_rec.program_update_date) THEN
704 x_return_status := FND_API.G_RET_STS_ERROR;
705 END IF;
706 END IF;
707
708 oe_debug_pub.add('here17');
709 IF p_MODIFIER_LIST_rec.prorate_flag IS NOT NULL AND
710 ( p_MODIFIER_LIST_rec.prorate_flag <>
711 p_old_MODIFIER_LIST_rec.prorate_flag OR
712 p_old_MODIFIER_LIST_rec.prorate_flag IS NULL )
713 THEN
714 IF NOT QP_Validate.Prorate(p_MODIFIER_LIST_rec.prorate_flag) THEN
715 x_return_status := FND_API.G_RET_STS_ERROR;
716 END IF;
717 END IF;
718
719 oe_debug_pub.add('here18');
720 IF p_MODIFIER_LIST_rec.request_id IS NOT NULL AND
721 ( p_MODIFIER_LIST_rec.request_id <>
722 p_old_MODIFIER_LIST_rec.request_id OR
723 p_old_MODIFIER_LIST_rec.request_id IS NULL )
724 THEN
725 IF NOT QP_Validate.Request(p_MODIFIER_LIST_rec.request_id) THEN
726 x_return_status := FND_API.G_RET_STS_ERROR;
727 END IF;
728 END IF;
729
730 oe_debug_pub.add('here19');
731 IF p_MODIFIER_LIST_rec.rounding_factor IS NOT NULL AND
732 ( p_MODIFIER_LIST_rec.rounding_factor <>
733 p_old_MODIFIER_LIST_rec.rounding_factor OR
734 p_old_MODIFIER_LIST_rec.rounding_factor IS NULL )
735 THEN
736 IF NOT QP_Validate.Rounding_Factor(p_MODIFIER_LIST_rec.rounding_factor) THEN
737 x_return_status := FND_API.G_RET_STS_ERROR;
738 END IF;
739 END IF;
740
741 oe_debug_pub.add('here20');
742 IF p_MODIFIER_LIST_rec.ship_method_code IS NOT NULL AND
743 ( p_MODIFIER_LIST_rec.ship_method_code <>
744 p_old_MODIFIER_LIST_rec.ship_method_code OR
745 p_old_MODIFIER_LIST_rec.ship_method_code IS NULL )
746 THEN
747 IF NOT QP_Validate.Ship_Method(p_MODIFIER_LIST_rec.ship_method_code) THEN
748 x_return_status := FND_API.G_RET_STS_ERROR;
749 END IF;
750 END IF;
751
752 oe_debug_pub.add('here21');
753 oe_debug_pub.add(to_char(p_MODIFIER_LIST_rec.start_date_active)||'start_date');
754 IF p_MODIFIER_LIST_rec.start_date_active IS NOT NULL AND
755 ( p_MODIFIER_LIST_rec.start_date_active <>
756 p_old_MODIFIER_LIST_rec.start_date_active OR
757 p_old_MODIFIER_LIST_rec.start_date_active IS NULL )
758 THEN
759 oe_debug_pub.add('here');
760 IF NOT QP_Validate.Start_Date_Active(p_MODIFIER_LIST_rec.start_date_active) THEN
761 oe_debug_pub.add('here');
762 x_return_status := FND_API.G_RET_STS_ERROR;
763 END IF;
764 END IF;
765
766 oe_debug_pub.add('here22');
767 IF p_MODIFIER_LIST_rec.terms_id IS NOT NULL AND
768 ( p_MODIFIER_LIST_rec.terms_id <>
769 p_old_MODIFIER_LIST_rec.terms_id OR
770 p_old_MODIFIER_LIST_rec.terms_id IS NULL )
771 THEN
772 IF NOT QP_Validate.Terms(p_MODIFIER_LIST_rec.terms_id) THEN
773 x_return_status := FND_API.G_RET_STS_ERROR;
774 END IF;
775 END IF;
776
777 oe_debug_pub.add('here23');
778 IF p_MODIFIER_LIST_rec.source_system_code IS NOT NULL AND
779 ( p_MODIFIER_LIST_rec.source_system_code <>
780 p_old_MODIFIER_LIST_rec.source_system_code OR
781 p_old_MODIFIER_LIST_rec.source_system_code IS NULL )
782 THEN
783 IF NOT QP_Validate.Source_System(p_MODIFIER_LIST_rec.source_system_code) THEN
784 x_return_status := FND_API.G_RET_STS_ERROR;
785 END IF;
786 END IF;
787
788 IF p_MODIFIER_LIST_rec.pte_code IS NOT NULL AND
789 ( p_MODIFIER_LIST_rec.pte_code <>
790 p_old_MODIFIER_LIST_rec.pte_code OR
791 p_old_MODIFIER_LIST_rec.pte_code IS NULL )
792 THEN
793 IF NOT QP_Validate.Pte_Code(p_MODIFIER_LIST_rec.pte_code) THEN
794 x_return_status := FND_API.G_RET_STS_ERROR;
795 END IF;
796 END IF;
797
798 oe_debug_pub.add('here24');
799 IF p_MODIFIER_LIST_rec.active_flag IS NOT NULL AND
800 ( p_MODIFIER_LIST_rec.active_flag <>
801 p_old_MODIFIER_LIST_rec.active_flag OR
802 p_old_MODIFIER_LIST_rec.active_flag IS NULL )
803 THEN
804 IF NOT QP_Validate.Active(p_MODIFIER_LIST_rec.active_flag) THEN
805 x_return_status := FND_API.G_RET_STS_ERROR;
806 END IF;
807 END IF;
808
809 oe_debug_pub.add('here25');
810 IF p_MODIFIER_LIST_rec.parent_list_header_id IS NOT NULL AND
811 ( p_MODIFIER_LIST_rec.parent_list_header_id <>
812 p_old_MODIFIER_LIST_rec.parent_list_header_id OR
813 p_old_MODIFIER_LIST_rec.parent_list_header_id IS NULL )
814 THEN
815 IF NOT QP_Validate.Parent_List_Header(p_MODIFIER_LIST_rec.parent_list_header_id) THEN
816 x_return_status := FND_API.G_RET_STS_ERROR;
817 END IF;
818 END IF;
819
820 oe_debug_pub.add('here26');
821 IF p_MODIFIER_LIST_rec.start_date_active_first IS NOT NULL AND
822 ( p_MODIFIER_LIST_rec.start_date_active_first <>
823 p_old_MODIFIER_LIST_rec.start_date_active_first OR
824 p_old_MODIFIER_LIST_rec.start_date_active_first IS NULL )
825 THEN
826 IF NOT QP_Validate.Start_Date_Active_First(p_MODIFIER_LIST_rec.start_date_active_first) THEN
827 x_return_status := FND_API.G_RET_STS_ERROR;
828 END IF;
829 END IF;
830
831 oe_debug_pub.add('here27');
832 IF p_MODIFIER_LIST_rec.end_date_active_first IS NOT NULL AND
833 ( p_MODIFIER_LIST_rec.end_date_active_first <>
834 p_old_MODIFIER_LIST_rec.end_date_active_first OR
835 p_old_MODIFIER_LIST_rec.end_date_active_first IS NULL )
836 THEN
837 IF NOT QP_Validate.End_Date_Active_First(p_MODIFIER_LIST_rec.end_date_active_first) THEN
838 x_return_status := FND_API.G_RET_STS_ERROR;
839 END IF;
840 END IF;
841
842 oe_debug_pub.add('here28');
843 IF p_MODIFIER_LIST_rec.active_date_first_type IS NOT NULL AND
844 ( p_MODIFIER_LIST_rec.active_date_first_type <>
845 p_old_MODIFIER_LIST_rec.active_date_first_type OR
846 p_old_MODIFIER_LIST_rec.active_date_first_type IS NULL )
847 THEN
848 IF NOT QP_Validate.Active_Date_First_Type(p_MODIFIER_LIST_rec.active_date_first_type) THEN
849 x_return_status := FND_API.G_RET_STS_ERROR;
850 END IF;
851 END IF;
852
853 oe_debug_pub.add('here29');
854 IF p_MODIFIER_LIST_rec.start_date_active_second IS NOT NULL AND
855 ( p_MODIFIER_LIST_rec.start_date_active_second <>
856 p_old_MODIFIER_LIST_rec.start_date_active_second OR
857 p_old_MODIFIER_LIST_rec.start_date_active_second IS NULL )
858 THEN
859 IF NOT QP_Validate.Start_Date_Active_Second(p_MODIFIER_LIST_rec.start_date_active_second) THEN
860 x_return_status := FND_API.G_RET_STS_ERROR;
861 END IF;
862 END IF;
863
864 IF p_MODIFIER_LIST_rec.global_flag IS NOT NULL AND
865 ( p_MODIFIER_LIST_rec.global_flag <>
866 p_old_MODIFIER_LIST_rec.global_flag OR
867 p_old_MODIFIER_LIST_rec.global_flag IS NULL )
868 THEN
869 IF NOT QP_Validate.Global_Flag(p_MODIFIER_LIST_rec.global_flag) THEN
870 x_return_status := FND_API.G_RET_STS_ERROR;
871 END IF;
872 END IF;
873
874
875 oe_debug_pub.add('here30');
876 IF p_MODIFIER_LIST_rec.end_date_active_second IS NOT NULL AND
877 ( p_MODIFIER_LIST_rec.end_date_active_second <>
878 p_old_MODIFIER_LIST_rec.end_date_active_second OR
879 p_old_MODIFIER_LIST_rec.end_date_active_second IS NULL )
880 THEN
881 IF NOT QP_Validate.End_Date_Active_Second(p_MODIFIER_LIST_rec.end_date_active_second) THEN
882 x_return_status := FND_API.G_RET_STS_ERROR;
883 END IF;
884 END IF;
885
886 oe_debug_pub.add('here31');
887 IF p_MODIFIER_LIST_rec.active_date_second_type IS NOT NULL AND
888 ( p_MODIFIER_LIST_rec.active_date_second_type <>
889 p_old_MODIFIER_LIST_rec.active_date_second_type OR
890 p_old_MODIFIER_LIST_rec.active_date_second_type IS NULL )
891 THEN
892 IF NOT QP_Validate.Active_Date_Second_Type(p_MODIFIER_LIST_rec.active_date_second_type) THEN
893 x_return_status := FND_API.G_RET_STS_ERROR;
894 END IF;
895 END IF;
896
897 IF p_MODIFIER_LIST_rec.ask_for_flag IS NOT NULL AND
898 ( p_MODIFIER_LIST_rec.ask_for_flag <>
899 p_old_MODIFIER_LIST_rec.ask_for_flag OR
900 p_old_MODIFIER_LIST_rec.ask_for_flag IS NULL )
901 THEN
902 IF NOT QP_Validate.Ask_For(p_MODIFIER_LIST_rec.ask_for_flag) THEN
903 x_return_status := FND_API.G_RET_STS_ERROR;
904 END IF;
905 END IF;
906
907 IF p_MODIFIER_LIST_rec.name IS NOT NULL AND
908 ( p_MODIFIER_LIST_rec.name <>
909 p_old_MODIFIER_LIST_rec.name OR
910 p_old_MODIFIER_LIST_rec.name IS NULL )
911 THEN
912 IF NOT QP_Validate.Name(p_MODIFIER_LIST_rec.name) THEN
913 x_return_status := FND_API.G_RET_STS_ERROR;
914 END IF;
915 END IF;
916
917 IF p_MODIFIER_LIST_rec.description IS NOT NULL AND
918 ( p_MODIFIER_LIST_rec.description <>
919 p_old_MODIFIER_LIST_rec.description OR
920 p_old_MODIFIER_LIST_rec.description IS NULL )
921 THEN
922 IF NOT QP_Validate.Description(p_MODIFIER_LIST_rec.description) THEN
923 x_return_status := FND_API.G_RET_STS_ERROR;
924 END IF;
925 END IF;
926
927 oe_debug_pub.add('here31 - blanket pricing');
928 IF p_MODIFIER_LIST_rec.LIST_SOURCE_CODE IS NOT NULL AND
929 ( p_MODIFIER_LIST_rec.LIST_SOURCE_CODE <>
930 p_old_MODIFIER_LIST_rec.LIST_SOURCE_CODE OR
931 p_old_MODIFIER_LIST_rec.LIST_SOURCE_CODE IS NULL)
932 THEN
933 IF NOT QP_Validate.list_source_code(p_MODIFIER_LIST_rec.LIST_SOURCE_CODE) THEN
934 x_return_status := FND_API.G_RET_STS_ERROR;
935 END IF;
936 END IF;
937
938 IF p_MODIFIER_LIST_rec.ORIG_SYSTEM_HEADER_REF IS NOT NULL AND
939 ( p_MODIFIER_LIST_rec.ORIG_SYSTEM_HEADER_REF <>
940 p_old_MODIFIER_LIST_rec.ORIG_SYSTEM_HEADER_REF OR
941 p_old_MODIFIER_LIST_rec.ORIG_SYSTEM_HEADER_REF IS NULL)
942 THEN
943 IF NOT QP_Validate.orig_system_header_ref(p_MODIFIER_LIST_rec.ORIG_SYSTEM_HEADER_REF)
944 THEN
945 x_return_status := FND_API.G_RET_STS_ERROR;
946 END IF;
947 END IF;
948
949 IF p_MODIFIER_LIST_rec.SHAREABLE_FLAG IS NOT NULL AND
950 ( p_MODIFIER_LIST_rec.SHAREABLE_FLAG <>
951 p_old_MODIFIER_LIST_rec.SHAREABLE_FLAG OR
952 p_old_MODIFIER_LIST_rec.SHAREABLE_FLAG IS NULL)
953 THEN
954 IF NOT QP_Validate.shareable_flag(p_MODIFIER_LIST_rec.SHAREABLE_FLAG) THEN
955 x_return_status := FND_API.G_RET_STS_ERROR;
956 END IF;
957 END IF;
958
959 --added for MOAC
960 IF p_MODIFIER_LIST_rec.ORG_ID IS NOT NULL AND
961 ( p_MODIFIER_LIST_rec.ORG_ID <>
962 p_old_MODIFIER_LIST_rec.ORG_ID OR
963 p_old_MODIFIER_LIST_rec.ORG_ID IS NULL)
964 THEN
965 IF NOT QP_Validate.ORG_ID(p_MODIFIER_LIST_rec.ORG_ID) THEN
966 x_return_status := FND_API.G_RET_STS_ERROR;
967 END IF;
968 END IF;
969
970 oe_debug_pub.add('here32');
971 IF (p_MODIFIER_LIST_rec.attribute1 IS NOT NULL AND
972 ( p_MODIFIER_LIST_rec.attribute1 <>
973 p_old_MODIFIER_LIST_rec.attribute1 OR
974 p_old_MODIFIER_LIST_rec.attribute1 IS NULL ))
975 OR (p_MODIFIER_LIST_rec.attribute10 IS NOT NULL AND
976 ( p_MODIFIER_LIST_rec.attribute10 <>
977 p_old_MODIFIER_LIST_rec.attribute10 OR
978 p_old_MODIFIER_LIST_rec.attribute10 IS NULL ))
979 OR (p_MODIFIER_LIST_rec.attribute11 IS NOT NULL AND
980 ( p_MODIFIER_LIST_rec.attribute11 <>
981 p_old_MODIFIER_LIST_rec.attribute11 OR
982 p_old_MODIFIER_LIST_rec.attribute11 IS NULL ))
983 OR (p_MODIFIER_LIST_rec.attribute12 IS NOT NULL AND
984 ( p_MODIFIER_LIST_rec.attribute12 <>
985 p_old_MODIFIER_LIST_rec.attribute12 OR
986 p_old_MODIFIER_LIST_rec.attribute12 IS NULL ))
987 OR (p_MODIFIER_LIST_rec.attribute13 IS NOT NULL AND
988 ( p_MODIFIER_LIST_rec.attribute13 <>
989 p_old_MODIFIER_LIST_rec.attribute13 OR
990 p_old_MODIFIER_LIST_rec.attribute13 IS NULL ))
991 OR (p_MODIFIER_LIST_rec.attribute14 IS NOT NULL AND
992 ( p_MODIFIER_LIST_rec.attribute14 <>
993 p_old_MODIFIER_LIST_rec.attribute14 OR
994 p_old_MODIFIER_LIST_rec.attribute14 IS NULL ))
995 OR (p_MODIFIER_LIST_rec.attribute15 IS NOT NULL AND
996 ( p_MODIFIER_LIST_rec.attribute15 <>
997 p_old_MODIFIER_LIST_rec.attribute15 OR
998 p_old_MODIFIER_LIST_rec.attribute15 IS NULL ))
999 OR (p_MODIFIER_LIST_rec.attribute2 IS NOT NULL AND
1000 ( p_MODIFIER_LIST_rec.attribute2 <>
1001 p_old_MODIFIER_LIST_rec.attribute2 OR
1002 p_old_MODIFIER_LIST_rec.attribute2 IS NULL ))
1003 OR (p_MODIFIER_LIST_rec.attribute3 IS NOT NULL AND
1004 ( p_MODIFIER_LIST_rec.attribute3 <>
1005 p_old_MODIFIER_LIST_rec.attribute3 OR
1006 p_old_MODIFIER_LIST_rec.attribute3 IS NULL ))
1007 OR (p_MODIFIER_LIST_rec.attribute4 IS NOT NULL AND
1008 ( p_MODIFIER_LIST_rec.attribute4 <>
1009 p_old_MODIFIER_LIST_rec.attribute4 OR
1010 p_old_MODIFIER_LIST_rec.attribute4 IS NULL ))
1011 OR (p_MODIFIER_LIST_rec.attribute5 IS NOT NULL AND
1012 ( p_MODIFIER_LIST_rec.attribute5 <>
1013 p_old_MODIFIER_LIST_rec.attribute5 OR
1014 p_old_MODIFIER_LIST_rec.attribute5 IS NULL ))
1015 OR (p_MODIFIER_LIST_rec.attribute6 IS NOT NULL AND
1016 ( p_MODIFIER_LIST_rec.attribute6 <>
1017 p_old_MODIFIER_LIST_rec.attribute6 OR
1018 p_old_MODIFIER_LIST_rec.attribute6 IS NULL ))
1019 OR (p_MODIFIER_LIST_rec.attribute7 IS NOT NULL AND
1020 ( p_MODIFIER_LIST_rec.attribute7 <>
1021 p_old_MODIFIER_LIST_rec.attribute7 OR
1022 p_old_MODIFIER_LIST_rec.attribute7 IS NULL ))
1023 OR (p_MODIFIER_LIST_rec.attribute8 IS NOT NULL AND
1024 ( p_MODIFIER_LIST_rec.attribute8 <>
1025 p_old_MODIFIER_LIST_rec.attribute8 OR
1026 p_old_MODIFIER_LIST_rec.attribute8 IS NULL ))
1027 OR (p_MODIFIER_LIST_rec.attribute9 IS NOT NULL AND
1028 ( p_MODIFIER_LIST_rec.attribute9 <>
1029 p_old_MODIFIER_LIST_rec.attribute9 OR
1030 p_old_MODIFIER_LIST_rec.attribute9 IS NULL ))
1031 OR (p_MODIFIER_LIST_rec.context IS NOT NULL AND
1032 ( p_MODIFIER_LIST_rec.context <>
1033 p_old_MODIFIER_LIST_rec.context OR
1034 p_old_MODIFIER_LIST_rec.context IS NULL ))
1035 THEN
1036
1037 -- These calls are temporarily commented out
1038
1039 /*
1040 FND_FLEX_DESC_VAL.Set_Column_Value
1041 ( column_name => 'ATTRIBUTE1'
1042 , column_value => p_MODIFIER_LIST_rec.attribute1
1043 );
1044 FND_FLEX_DESC_VAL.Set_Column_Value
1045 ( column_name => 'ATTRIBUTE10'
1046 , column_value => p_MODIFIER_LIST_rec.attribute10
1047 );
1048 FND_FLEX_DESC_VAL.Set_Column_Value
1049 ( column_name => 'ATTRIBUTE11'
1050 , column_value => p_MODIFIER_LIST_rec.attribute11
1051 );
1052 FND_FLEX_DESC_VAL.Set_Column_Value
1053 ( column_name => 'ATTRIBUTE12'
1054 , column_value => p_MODIFIER_LIST_rec.attribute12
1055 );
1056 FND_FLEX_DESC_VAL.Set_Column_Value
1057 ( column_name => 'ATTRIBUTE13'
1058 , column_value => p_MODIFIER_LIST_rec.attribute13
1059 );
1060 FND_FLEX_DESC_VAL.Set_Column_Value
1061 ( column_name => 'ATTRIBUTE14'
1062 , column_value => p_MODIFIER_LIST_rec.attribute14
1063 );
1064 FND_FLEX_DESC_VAL.Set_Column_Value
1065 ( column_name => 'ATTRIBUTE15'
1066 , column_value => p_MODIFIER_LIST_rec.attribute15
1067 );
1068 FND_FLEX_DESC_VAL.Set_Column_Value
1069 ( column_name => 'ATTRIBUTE2'
1070 , column_value => p_MODIFIER_LIST_rec.attribute2
1071 );
1072 FND_FLEX_DESC_VAL.Set_Column_Value
1073 ( column_name => 'ATTRIBUTE3'
1074 , column_value => p_MODIFIER_LIST_rec.attribute3
1075 );
1076 FND_FLEX_DESC_VAL.Set_Column_Value
1077 ( column_name => 'ATTRIBUTE4'
1078 , column_value => p_MODIFIER_LIST_rec.attribute4
1079 );
1080 FND_FLEX_DESC_VAL.Set_Column_Value
1081 ( column_name => 'ATTRIBUTE5'
1082 , column_value => p_MODIFIER_LIST_rec.attribute5
1083 );
1084 FND_FLEX_DESC_VAL.Set_Column_Value
1085 ( column_name => 'ATTRIBUTE6'
1086 , column_value => p_MODIFIER_LIST_rec.attribute6
1087 );
1088 FND_FLEX_DESC_VAL.Set_Column_Value
1089 ( column_name => 'ATTRIBUTE7'
1090 , column_value => p_MODIFIER_LIST_rec.attribute7
1091 );
1092 FND_FLEX_DESC_VAL.Set_Column_Value
1093 ( column_name => 'ATTRIBUTE8'
1094 , column_value => p_MODIFIER_LIST_rec.attribute8
1095 );
1096 FND_FLEX_DESC_VAL.Set_Column_Value
1097 ( column_name => 'ATTRIBUTE9'
1098 , column_value => p_MODIFIER_LIST_rec.attribute9
1099 );
1100 FND_FLEX_DESC_VAL.Set_Column_Value
1101 ( column_name => 'CONTEXT'
1102 , column_value => p_MODIFIER_LIST_rec.context
1103 );
1104 */
1105
1106 -- Validate descriptive flexfield.
1107
1108 IF NOT QP_Validate.Desc_Flex( 'MODIFIER_LIST' ) THEN
1109 x_return_status := FND_API.G_RET_STS_ERROR;
1110 END IF;
1111
1112 END IF;
1113
1114 -- Done validating attributes
1115
1116 oe_debug_pub.add('END attributes in QPXLMLHB');
1117 EXCEPTION
1118
1119 WHEN FND_API.G_EXC_ERROR THEN
1120
1121 x_return_status := FND_API.G_RET_STS_ERROR;
1122
1123 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1124
1125 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1126
1127 WHEN OTHERS THEN
1128
1129 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1130
1131 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1132 THEN
1133 OE_MSG_PUB.Add_Exc_Msg
1134 ( G_PKG_NAME
1135 , 'Attributes'
1136 );
1137 END IF;
1138
1139
1140 END Attributes;
1141
1142 -- Procedure Entity_Delete
1143
1144 PROCEDURE Entity_Delete
1145 ( x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1146 , p_MODIFIER_LIST_rec IN QP_Modifiers_PUB.Modifier_List_Rec_Type
1147 )
1148 IS
1149 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1150 BEGIN
1151
1152 oe_debug_pub.add('BEGIN entity_delete in QPXLMLHB');
1153 -- Validate entity delete.
1154
1155 NULL;
1156
1157 -- Done.
1158
1159 x_return_status := l_return_status;
1160
1161 EXCEPTION
1162
1163 WHEN FND_API.G_EXC_ERROR THEN
1164
1165 x_return_status := FND_API.G_RET_STS_ERROR;
1166
1167 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1168
1169 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1170
1171 WHEN OTHERS THEN
1172
1173 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1174
1175 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1176 THEN
1177 OE_MSG_PUB.Add_Exc_Msg
1178 ( G_PKG_NAME
1179 , 'Entity_Delete'
1180 );
1181 END IF;
1182
1183 oe_debug_pub.add('END entity_delete in QPXLMLHB');
1184 END Entity_Delete;
1185
1186 END QP_Validate_Modifier_List;
[Home] [Help]