1 PACKAGE BODY MRP_Validate_Assignment_Set AS
2 /* $Header: MRPLASTB.pls 120.1 2005/06/16 09:22:10 ichoudhu noship $ */
3
4 -- Global constant holding the package name
5
6 G_PKG_NAME CONSTANT VARCHAR2(30) := 'MRP_Validate_Assignment_Set';
7
8 -- Procedure Entity
9
10 PROCEDURE Entity
11 ( x_return_status OUT NOCOPY VARCHAR2
12 , p_Assignment_Set_rec IN MRP_Src_Assignment_PUB.Assignment_Set_Rec_Type
13 , p_old_Assignment_Set_rec IN MRP_Src_Assignment_PUB.Assignment_Set_Rec_Type :=
14 MRP_Src_Assignment_PUB.G_MISS_ASSIGNMENT_SET_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_Assignment_Set_rec.Assignment_Set_Id IS NULL
23 THEN
24
25 l_return_status := FND_API.G_RET_STS_ERROR;
26
27 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
28 THEN
29
30 FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_REQUIRED');
31 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Assignment_Set_Id');
32 FND_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 FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
80 THEN
81 FND_MSG_PUB.Add_Exc_Msg
82 ( G_PKG_NAME
83 , 'Entity'
84 );
85 END IF;
86
87 END Entity;
88
89 -- Procedure Entity_Delete
90
91 PROCEDURE Entity_Delete
92 ( x_return_status OUT NOCOPY VARCHAR2
93 , p_Assignment_Set_rec IN MRP_Src_Assignment_PUB.Assignment_Set_Rec_Type
94 )
95 IS
96 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
97 BEGIN
98
99 -- Validate entity delete.
100
101 NULL;
102
103 -- Done.
104
105 x_return_status := l_return_status;
106
107 EXCEPTION
108
109 WHEN FND_API.G_EXC_ERROR THEN
110
111 x_return_status := FND_API.G_RET_STS_ERROR;
112
113 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
114
115 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
116
117 WHEN OTHERS THEN
118
119 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
120
121 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
122 THEN
123 FND_MSG_PUB.Add_Exc_Msg
124 ( G_PKG_NAME
125 , 'Entity_Delete'
126 );
127 END IF;
128
129 END Entity_Delete;
130
131 -- Procedure Attributes
132
133 PROCEDURE Attributes
134 ( x_return_status OUT NOCOPY VARCHAR2
135 , p_Assignment_Set_rec IN MRP_Src_Assignment_PUB.Assignment_Set_Rec_Type
136 , p_old_Assignment_Set_rec IN MRP_Src_Assignment_PUB.Assignment_Set_Rec_Type :=
137 MRP_Src_Assignment_PUB.G_MISS_ASSIGNMENT_SET_REC
138 )
139 IS
140 BEGIN
141
142 x_return_status := FND_API.G_RET_STS_SUCCESS;
143
144 -- Validate Assignment_Set attributes
145
146 IF (p_Assignment_Set_rec.Assignment_Set_Id IS NOT NULL AND
147 ( p_Assignment_Set_rec.Assignment_Set_Id <>
148 p_old_Assignment_Set_rec.Assignment_Set_Id OR
149 p_old_Assignment_Set_rec.Assignment_Set_Id IS NULL ))
150 THEN
151 IF NOT MRP_Validate.Assignment_Set
152 ( p_Assignment_Set_rec.Assignment_Set_Id
153 )
154 THEN
155 x_return_status := FND_API.G_RET_STS_ERROR;
156 END IF;
157 END IF;
158
159 IF p_Assignment_Set_rec.Assignment_Set_Name IS NOT NULL AND
160 ( p_Assignment_Set_rec.Assignment_Set_Name <>
161 p_old_Assignment_Set_rec.Assignment_Set_Name OR
162 p_old_Assignment_Set_rec.Assignment_Set_Name IS NULL )
163 THEN
164 IF NOT Val_Assignment_Set_Name(p_Assignment_Set_rec.Assignment_Set_Name) THEN
165 x_return_status := FND_API.G_RET_STS_ERROR;
166 END IF;
167 END IF;
168
169 IF p_Assignment_Set_rec.Attribute1 IS NOT NULL AND
170 ( p_Assignment_Set_rec.Attribute1 <>
171 p_old_Assignment_Set_rec.Attribute1 OR
172 p_old_Assignment_Set_rec.Attribute1 IS NULL )
173 THEN
174 IF NOT Val_Attribute1(p_Assignment_Set_rec.Attribute1) THEN
175 x_return_status := FND_API.G_RET_STS_ERROR;
176 END IF;
177 END IF;
178
179 IF p_Assignment_Set_rec.Attribute10 IS NOT NULL AND
180 ( p_Assignment_Set_rec.Attribute10 <>
181 p_old_Assignment_Set_rec.Attribute10 OR
182 p_old_Assignment_Set_rec.Attribute10 IS NULL )
183 THEN
184 IF NOT Val_Attribute10(p_Assignment_Set_rec.Attribute10) THEN
185 x_return_status := FND_API.G_RET_STS_ERROR;
186 END IF;
187 END IF;
188
189 IF p_Assignment_Set_rec.Attribute11 IS NOT NULL AND
190 ( p_Assignment_Set_rec.Attribute11 <>
191 p_old_Assignment_Set_rec.Attribute11 OR
192 p_old_Assignment_Set_rec.Attribute11 IS NULL )
193 THEN
194 IF NOT Val_Attribute11(p_Assignment_Set_rec.Attribute11) THEN
195 x_return_status := FND_API.G_RET_STS_ERROR;
196 END IF;
197 END IF;
198
199 IF p_Assignment_Set_rec.Attribute12 IS NOT NULL AND
200 ( p_Assignment_Set_rec.Attribute12 <>
201 p_old_Assignment_Set_rec.Attribute12 OR
202 p_old_Assignment_Set_rec.Attribute12 IS NULL )
203 THEN
204 IF NOT Val_Attribute12(p_Assignment_Set_rec.Attribute12) THEN
205 x_return_status := FND_API.G_RET_STS_ERROR;
206 END IF;
207 END IF;
208
209 IF p_Assignment_Set_rec.Attribute13 IS NOT NULL AND
210 ( p_Assignment_Set_rec.Attribute13 <>
211 p_old_Assignment_Set_rec.Attribute13 OR
212 p_old_Assignment_Set_rec.Attribute13 IS NULL )
213 THEN
214 IF NOT Val_Attribute13(p_Assignment_Set_rec.Attribute13) THEN
215 x_return_status := FND_API.G_RET_STS_ERROR;
216 END IF;
217 END IF;
218
219 IF p_Assignment_Set_rec.Attribute14 IS NOT NULL AND
220 ( p_Assignment_Set_rec.Attribute14 <>
221 p_old_Assignment_Set_rec.Attribute14 OR
222 p_old_Assignment_Set_rec.Attribute14 IS NULL )
223 THEN
224 IF NOT Val_Attribute14(p_Assignment_Set_rec.Attribute14) THEN
225 x_return_status := FND_API.G_RET_STS_ERROR;
226 END IF;
227 END IF;
228
229 IF p_Assignment_Set_rec.Attribute15 IS NOT NULL AND
230 ( p_Assignment_Set_rec.Attribute15 <>
231 p_old_Assignment_Set_rec.Attribute15 OR
232 p_old_Assignment_Set_rec.Attribute15 IS NULL )
233 THEN
234 IF NOT Val_Attribute15(p_Assignment_Set_rec.Attribute15) THEN
235 x_return_status := FND_API.G_RET_STS_ERROR;
236 END IF;
237 END IF;
238
239 IF p_Assignment_Set_rec.Attribute2 IS NOT NULL AND
240 ( p_Assignment_Set_rec.Attribute2 <>
241 p_old_Assignment_Set_rec.Attribute2 OR
242 p_old_Assignment_Set_rec.Attribute2 IS NULL )
243 THEN
244 IF NOT Val_Attribute2(p_Assignment_Set_rec.Attribute2) THEN
245 x_return_status := FND_API.G_RET_STS_ERROR;
246 END IF;
247 END IF;
248
249 IF p_Assignment_Set_rec.Attribute3 IS NOT NULL AND
250 ( p_Assignment_Set_rec.Attribute3 <>
251 p_old_Assignment_Set_rec.Attribute3 OR
252 p_old_Assignment_Set_rec.Attribute3 IS NULL )
253 THEN
254 IF NOT Val_Attribute3(p_Assignment_Set_rec.Attribute3) THEN
255 x_return_status := FND_API.G_RET_STS_ERROR;
256 END IF;
257 END IF;
258
259 IF p_Assignment_Set_rec.Attribute4 IS NOT NULL AND
260 ( p_Assignment_Set_rec.Attribute4 <>
261 p_old_Assignment_Set_rec.Attribute4 OR
262 p_old_Assignment_Set_rec.Attribute4 IS NULL )
263 THEN
264 IF NOT Val_Attribute4(p_Assignment_Set_rec.Attribute4) THEN
265 x_return_status := FND_API.G_RET_STS_ERROR;
266 END IF;
267 END IF;
268
269 IF p_Assignment_Set_rec.Attribute5 IS NOT NULL AND
270 ( p_Assignment_Set_rec.Attribute5 <>
271 p_old_Assignment_Set_rec.Attribute5 OR
272 p_old_Assignment_Set_rec.Attribute5 IS NULL )
273 THEN
274 IF NOT Val_Attribute5(p_Assignment_Set_rec.Attribute5) THEN
275 x_return_status := FND_API.G_RET_STS_ERROR;
276 END IF;
277 END IF;
278
279 IF p_Assignment_Set_rec.Attribute6 IS NOT NULL AND
280 ( p_Assignment_Set_rec.Attribute6 <>
281 p_old_Assignment_Set_rec.Attribute6 OR
282 p_old_Assignment_Set_rec.Attribute6 IS NULL )
283 THEN
284 IF NOT Val_Attribute6(p_Assignment_Set_rec.Attribute6) THEN
285 x_return_status := FND_API.G_RET_STS_ERROR;
286 END IF;
287 END IF;
288
289 IF p_Assignment_Set_rec.Attribute7 IS NOT NULL AND
290 ( p_Assignment_Set_rec.Attribute7 <>
291 p_old_Assignment_Set_rec.Attribute7 OR
292 p_old_Assignment_Set_rec.Attribute7 IS NULL )
293 THEN
294 IF NOT Val_Attribute7(p_Assignment_Set_rec.Attribute7) THEN
295 x_return_status := FND_API.G_RET_STS_ERROR;
296 END IF;
297 END IF;
298
299 IF p_Assignment_Set_rec.Attribute8 IS NOT NULL AND
300 ( p_Assignment_Set_rec.Attribute8 <>
301 p_old_Assignment_Set_rec.Attribute8 OR
302 p_old_Assignment_Set_rec.Attribute8 IS NULL )
303 THEN
304 IF NOT Val_Attribute8(p_Assignment_Set_rec.Attribute8) THEN
305 x_return_status := FND_API.G_RET_STS_ERROR;
306 END IF;
307 END IF;
308
309 IF p_Assignment_Set_rec.Attribute9 IS NOT NULL AND
310 ( p_Assignment_Set_rec.Attribute9 <>
311 p_old_Assignment_Set_rec.Attribute9 OR
312 p_old_Assignment_Set_rec.Attribute9 IS NULL )
313 THEN
314 IF NOT Val_Attribute9(p_Assignment_Set_rec.Attribute9) THEN
318
315 x_return_status := FND_API.G_RET_STS_ERROR;
316 END IF;
317 END IF;
319 IF p_Assignment_Set_rec.Attribute_Category IS NOT NULL AND
320 ( p_Assignment_Set_rec.Attribute_Category <>
321 p_old_Assignment_Set_rec.Attribute_Category OR
322 p_old_Assignment_Set_rec.Attribute_Category IS NULL )
323 THEN
324 IF NOT Val_Attribute_Category(p_Assignment_Set_rec.Attribute_Category) THEN
325 x_return_status := FND_API.G_RET_STS_ERROR;
326 END IF;
327 END IF;
328
329 IF p_Assignment_Set_rec.Created_By IS NOT NULL AND
330 ( p_Assignment_Set_rec.Created_By <>
331 p_old_Assignment_Set_rec.Created_By OR
332 p_old_Assignment_Set_rec.Created_By IS NULL )
333 THEN
334 IF NOT Val_Created_By(p_Assignment_Set_rec.Created_By) THEN
335 x_return_status := FND_API.G_RET_STS_ERROR;
336 END IF;
337 END IF;
338
339 IF p_Assignment_Set_rec.Creation_Date IS NOT NULL AND
340 ( p_Assignment_Set_rec.Creation_Date <>
341 p_old_Assignment_Set_rec.Creation_Date OR
342 p_old_Assignment_Set_rec.Creation_Date IS NULL )
343 THEN
344 IF NOT Val_Creation_Date(p_Assignment_Set_rec.Creation_Date) THEN
345 x_return_status := FND_API.G_RET_STS_ERROR;
346 END IF;
347 END IF;
348
349 IF p_Assignment_Set_rec.Description IS NOT NULL AND
350 ( p_Assignment_Set_rec.Description <>
351 p_old_Assignment_Set_rec.Description OR
352 p_old_Assignment_Set_rec.Description IS NULL )
353 THEN
354 IF NOT Val_Description(p_Assignment_Set_rec.Description) THEN
355 x_return_status := FND_API.G_RET_STS_ERROR;
356 END IF;
357 END IF;
358
359 IF p_Assignment_Set_rec.Last_Updated_By IS NOT NULL AND
360 ( p_Assignment_Set_rec.Last_Updated_By <>
364 IF NOT Val_Last_Updated_By(p_Assignment_Set_rec.Last_Updated_By) THEN
361 p_old_Assignment_Set_rec.Last_Updated_By OR
362 p_old_Assignment_Set_rec.Last_Updated_By IS NULL )
363 THEN
365 x_return_status := FND_API.G_RET_STS_ERROR;
366 END IF;
367 END IF;
368
369 IF p_Assignment_Set_rec.Last_Update_Date IS NOT NULL AND
370 ( p_Assignment_Set_rec.Last_Update_Date <>
371 p_old_Assignment_Set_rec.Last_Update_Date OR
372 p_old_Assignment_Set_rec.Last_Update_Date IS NULL )
373 THEN
374 IF NOT Val_Last_Update_Date(p_Assignment_Set_rec.Last_Update_Date) THEN
375 x_return_status := FND_API.G_RET_STS_ERROR;
376 END IF;
377 END IF;
378
379 IF p_Assignment_Set_rec.Last_Update_Login IS NOT NULL AND
380 ( p_Assignment_Set_rec.Last_Update_Login <>
381 p_old_Assignment_Set_rec.Last_Update_Login OR
382 p_old_Assignment_Set_rec.Last_Update_Login IS NULL )
383 THEN
384 IF NOT Val_Last_Update_Login(p_Assignment_Set_rec.Last_Update_Login) THEN
385 x_return_status := FND_API.G_RET_STS_ERROR;
386 END IF;
387 END IF;
388
389 IF p_Assignment_Set_rec.Program_Application_Id IS NOT NULL AND
390 ( p_Assignment_Set_rec.Program_Application_Id <>
391 p_old_Assignment_Set_rec.Program_Application_Id OR
392 p_old_Assignment_Set_rec.Program_Application_Id IS NULL )
393 THEN
394 IF NOT Val_Program_Application_Id(p_Assignment_Set_rec.Program_Application_Id) THEN
395 x_return_status := FND_API.G_RET_STS_ERROR;
396 END IF;
397 END IF;
398
399 IF p_Assignment_Set_rec.Program_Id IS NOT NULL AND
400 ( p_Assignment_Set_rec.Program_Id <>
401 p_old_Assignment_Set_rec.Program_Id OR
402 p_old_Assignment_Set_rec.Program_Id IS NULL )
403 THEN
404 IF NOT Val_Program_Id(p_Assignment_Set_rec.Program_Id) THEN
405 x_return_status := FND_API.G_RET_STS_ERROR;
406 END IF;
407 END IF;
408
409 IF p_Assignment_Set_rec.Program_Update_Date IS NOT NULL AND
410 ( p_Assignment_Set_rec.Program_Update_Date <>
411 p_old_Assignment_Set_rec.Program_Update_Date OR
412 p_old_Assignment_Set_rec.Program_Update_Date IS NULL )
413 THEN
414 IF NOT Val_Program_Update_Date(p_Assignment_Set_rec.Program_Update_Date) THEN
415 x_return_status := FND_API.G_RET_STS_ERROR;
416 END IF;
417 END IF;
418
419 IF p_Assignment_Set_rec.Request_Id IS NOT NULL AND
420 ( p_Assignment_Set_rec.Request_Id <>
421 p_old_Assignment_Set_rec.Request_Id OR
422 p_old_Assignment_Set_rec.Request_Id IS NULL )
423 THEN
424 IF NOT Val_Request_Id(p_Assignment_Set_rec.Request_Id) THEN
425 x_return_status := FND_API.G_RET_STS_ERROR;
426 END IF;
427 END IF;
428
429 -- Done validating attributes
430
431 EXCEPTION
432
433 WHEN FND_API.G_EXC_ERROR THEN
434
435 x_return_status := FND_API.G_RET_STS_ERROR;
436
437 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
438
439 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
440
441 WHEN OTHERS THEN
442
443 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
444
445 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
446 THEN
447 FND_MSG_PUB.Add_Exc_Msg
448 ( G_PKG_NAME
449 , 'Attributes'
450 );
451 END IF;
452
453 END Attributes;
454
455 -- Entity attribute validation functions.
456
457
458 -- Function Val_Assignment_Set_Name
459
463 IS
460 FUNCTION Val_Assignment_Set_Name
461 ( p_Assignment_Set_Name IN VARCHAR2
462 ) RETURN BOOLEAN
464
465 l_count NUMBER;
466
467 BEGIN
468
469 IF p_Assignment_Set_Name IS NULL OR
470 p_Assignment_Set_Name = FND_API.G_MISS_CHAR
471 THEN
472 dbms_output.put_line ('Val_Assignment_Set_Name Error');
473 FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_REQUIRED');
474 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Assignment_Set_Name');
475 FND_MSG_PUB.Add;
476 RETURN FALSE;
477 ELSE
478 -- make sure that this assignment set does
479 -- not already exist in the system
480
481 SELECT count(*)
482 INTO l_count
483 FROM MRP_ASSIGNMENT_SETS
484 WHERE assignment_set_name = p_Assignment_Set_Name;
485
486 IF l_count > 0 THEN
487 dbms_output.put_line ('Val_Assignment_Set_Name Error');
488 FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_VALUE_ERROR');
489 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Assignment_Set_Name');
490 FND_MSG_PUB.Add;
491 RETURN FALSE;
492 END IF;
493
494 END IF;
495
496 RETURN TRUE;
497
498 END Val_Assignment_Set_Name;
499
500 -- Function Val_Attribute1
501
502 FUNCTION Val_Attribute1
503 ( p_Attribute1 IN VARCHAR2
504 ) RETURN BOOLEAN
505 IS
506 BEGIN
507
508 IF p_Attribute1 IS NULL OR
509 p_Attribute1 = FND_API.G_MISS_CHAR
510 THEN
511 RETURN TRUE;
512 END IF;
513
514 RETURN TRUE;
515
516 END Val_Attribute1;
517
518 -- Function Val_Attribute10
519
520 FUNCTION Val_Attribute10
521 ( p_Attribute10 IN VARCHAR2
522 ) RETURN BOOLEAN
523 IS
524 BEGIN
525
526 IF p_Attribute10 IS NULL OR
527 p_Attribute10 = FND_API.G_MISS_CHAR
528 THEN
529 RETURN TRUE;
530 END IF;
531
532 RETURN TRUE;
533
534 END Val_Attribute10;
535
536 -- Function Val_Attribute11
537
538 FUNCTION Val_Attribute11
539 ( p_Attribute11 IN VARCHAR2
540 ) RETURN BOOLEAN
541 IS
542 BEGIN
543
544 IF p_Attribute11 IS NULL OR
545 p_Attribute11 = FND_API.G_MISS_CHAR
546 THEN
547 RETURN TRUE;
548 END IF;
549
550 RETURN TRUE;
551
552 END Val_Attribute11;
553
554 -- Function Val_Attribute12
555
556 FUNCTION Val_Attribute12
557 ( p_Attribute12 IN VARCHAR2
558 ) RETURN BOOLEAN
559 IS
560 BEGIN
561
562 IF p_Attribute12 IS NULL OR
563 p_Attribute12 = FND_API.G_MISS_CHAR
564 THEN
565 RETURN TRUE;
566 END IF;
567
568 RETURN TRUE;
569
570 END Val_Attribute12;
571
572 -- Function Val_Attribute13
573
574 FUNCTION Val_Attribute13
575 ( p_Attribute13 IN VARCHAR2
576 ) RETURN BOOLEAN
577 IS
578 BEGIN
579
580 IF p_Attribute13 IS NULL OR
581 p_Attribute13 = FND_API.G_MISS_CHAR
582 THEN
583 RETURN TRUE;
584 END IF;
585
586 RETURN TRUE;
587
588 END Val_Attribute13;
589
590 -- Function Val_Attribute14
591
592 FUNCTION Val_Attribute14
593 ( p_Attribute14 IN VARCHAR2
594 ) RETURN BOOLEAN
595 IS
596 BEGIN
597
598 IF p_Attribute14 IS NULL OR
599 p_Attribute14 = FND_API.G_MISS_CHAR
600 THEN
601 RETURN TRUE;
602 END IF;
603
604 RETURN TRUE;
605
606 END Val_Attribute14;
607
608 -- Function Val_Attribute15
609
610 FUNCTION Val_Attribute15
611 ( p_Attribute15 IN VARCHAR2
612 ) RETURN BOOLEAN
613 IS
614 BEGIN
615
616 IF p_Attribute15 IS NULL OR
617 p_Attribute15 = FND_API.G_MISS_CHAR
618 THEN
619 RETURN TRUE;
620 END IF;
621
622 RETURN TRUE;
623
624 END Val_Attribute15;
625
626 -- Function Val_Attribute2
627
628 FUNCTION Val_Attribute2
629 ( p_Attribute2 IN VARCHAR2
630 ) RETURN BOOLEAN
631 IS
632 BEGIN
633
634 IF p_Attribute2 IS NULL OR
635 p_Attribute2 = FND_API.G_MISS_CHAR
636 THEN
637 RETURN TRUE;
638 END IF;
639
640 RETURN TRUE;
641
642 END Val_Attribute2;
643
644 -- Function Val_Attribute3
645
646 FUNCTION Val_Attribute3
647 ( p_Attribute3 IN VARCHAR2
648 ) RETURN BOOLEAN
649 IS
650 BEGIN
651
652 IF p_Attribute3 IS NULL OR
653 p_Attribute3 = FND_API.G_MISS_CHAR
654 THEN
655 RETURN TRUE;
656 END IF;
657
658 RETURN TRUE;
659
660 END Val_Attribute3;
661
662 -- Function Val_Attribute4
663
664 FUNCTION Val_Attribute4
665 ( p_Attribute4 IN VARCHAR2
666 ) RETURN BOOLEAN
667 IS
668 BEGIN
669
670 IF p_Attribute4 IS NULL OR
671 p_Attribute4 = FND_API.G_MISS_CHAR
672 THEN
673 RETURN TRUE;
674 END IF;
675
676 RETURN TRUE;
677
678 END Val_Attribute4;
679
683 ( p_Attribute5 IN VARCHAR2
680 -- Function Val_Attribute5
681
682 FUNCTION Val_Attribute5
684 ) RETURN BOOLEAN
685 IS
686 BEGIN
687
688 IF p_Attribute5 IS NULL OR
689 p_Attribute5 = FND_API.G_MISS_CHAR
690 THEN
691 RETURN TRUE;
692 END IF;
693
694 RETURN TRUE;
695
696 END Val_Attribute5;
697
698 -- Function Val_Attribute6
699
700 FUNCTION Val_Attribute6
701 ( p_Attribute6 IN VARCHAR2
702 ) RETURN BOOLEAN
703 IS
704 BEGIN
705
706 IF p_Attribute6 IS NULL OR
707 p_Attribute6 = FND_API.G_MISS_CHAR
708 THEN
709 RETURN TRUE;
710 END IF;
711
712 RETURN TRUE;
713
714 END Val_Attribute6;
715
716 -- Function Val_Attribute7
717
718 FUNCTION Val_Attribute7
719 ( p_Attribute7 IN VARCHAR2
720 ) RETURN BOOLEAN
721 IS
722 BEGIN
723
724 IF p_Attribute7 IS NULL OR
725 p_Attribute7 = FND_API.G_MISS_CHAR
726 THEN
727 RETURN TRUE;
728 END IF;
729
730 RETURN TRUE;
731
732 END Val_Attribute7;
733
734 -- Function Val_Attribute8
735
736 FUNCTION Val_Attribute8
737 ( p_Attribute8 IN VARCHAR2
738 ) RETURN BOOLEAN
739 IS
740 BEGIN
741
742 IF p_Attribute8 IS NULL OR
743 p_Attribute8 = FND_API.G_MISS_CHAR
744 THEN
745 RETURN TRUE;
746 END IF;
747
748 RETURN TRUE;
749
750 END Val_Attribute8;
751
752 -- Function Val_Attribute9
753
754 FUNCTION Val_Attribute9
755 ( p_Attribute9 IN VARCHAR2
756 ) RETURN BOOLEAN
757 IS
758 BEGIN
759
760 IF p_Attribute9 IS NULL OR
761 p_Attribute9 = FND_API.G_MISS_CHAR
762 THEN
763 RETURN TRUE;
764 END IF;
765
766 RETURN TRUE;
767
768 END Val_Attribute9;
769
770 -- Function Val_Attribute_Category
771
772 FUNCTION Val_Attribute_Category
773 ( p_Attribute_Category IN VARCHAR2
774 ) RETURN BOOLEAN
775 IS
776 BEGIN
777
778 IF p_Attribute_Category IS NULL OR
779 p_Attribute_Category = FND_API.G_MISS_CHAR
780 THEN
781 RETURN TRUE;
782 END IF;
783
784 RETURN TRUE;
785
786 END Val_Attribute_Category;
787
788 -- Function Val_Created_By
789
790 FUNCTION Val_Created_By
791 ( p_Created_By IN NUMBER
792 ) RETURN BOOLEAN
793 IS
794 BEGIN
795
796 IF p_Created_By IS NULL OR
797 p_Created_By = FND_API.G_MISS_NUM
798 THEN
799 RETURN TRUE;
800 END IF;
801
802 RETURN TRUE;
803
804 END Val_Created_By;
805
806 -- Function Val_Creation_Date
807
808 FUNCTION Val_Creation_Date
809 ( p_Creation_Date IN DATE
810 ) RETURN BOOLEAN
811 IS
812 BEGIN
813
814 IF p_Creation_Date IS NULL OR
815 p_Creation_Date = FND_API.G_MISS_DATE
816 THEN
817 RETURN TRUE;
818 END IF;
819
820 RETURN TRUE;
821
822 END Val_Creation_Date;
823
824 -- Function Val_Description
825
826 FUNCTION Val_Description
827 ( p_Description IN VARCHAR2
828 ) RETURN BOOLEAN
829 IS
830 BEGIN
831
832 IF p_Description IS NULL OR
833 p_Description = FND_API.G_MISS_CHAR
834 THEN
835 RETURN TRUE;
836 END IF;
837
838 RETURN TRUE;
839
840 END Val_Description;
841
842 -- Function Val_Last_Updated_By
843
844 FUNCTION Val_Last_Updated_By
845 ( p_Last_Updated_By IN NUMBER
846 ) RETURN BOOLEAN
847 IS
848 BEGIN
849
850 IF p_Last_Updated_By IS NULL OR
851 p_Last_Updated_By = FND_API.G_MISS_NUM
852 THEN
853 RETURN TRUE;
854 END IF;
855
856 RETURN TRUE;
857
858 END Val_Last_Updated_By;
859
860 -- Function Val_Last_Update_Date
861
862 FUNCTION Val_Last_Update_Date
863 ( p_Last_Update_Date IN DATE
864 ) RETURN BOOLEAN
865 IS
866 BEGIN
867
868 IF p_Last_Update_Date IS NULL OR
869 p_Last_Update_Date = FND_API.G_MISS_DATE
870 THEN
871 RETURN TRUE;
872 END IF;
873
874 RETURN TRUE;
875
876 END Val_Last_Update_Date;
877
878 -- Function Val_Last_Update_Login
879
880 FUNCTION Val_Last_Update_Login
881 ( p_Last_Update_Login IN NUMBER
882 ) RETURN BOOLEAN
883 IS
884 BEGIN
885
886 IF p_Last_Update_Login IS NULL OR
887 p_Last_Update_Login = FND_API.G_MISS_NUM
888 THEN
889 RETURN TRUE;
890 END IF;
891
892 RETURN TRUE;
893
894 END Val_Last_Update_Login;
895
896 -- Function Val_Program_Application_Id
897
898 FUNCTION Val_Program_Application_Id
899 ( p_Program_Application_Id IN NUMBER
900 ) RETURN BOOLEAN
901 IS
902 BEGIN
903
904 IF p_Program_Application_Id IS NULL OR
905 p_Program_Application_Id = FND_API.G_MISS_NUM
906 THEN
907 RETURN TRUE;
908 END IF;
909
910 RETURN TRUE;
911
912 END Val_Program_Application_Id;
913
914 -- Function Val_Program_Id
915
916 FUNCTION Val_Program_Id
917 ( p_Program_Id IN NUMBER
918 ) RETURN BOOLEAN
919 IS
920 BEGIN
921
922 IF p_Program_Id IS NULL OR
923 p_Program_Id = FND_API.G_MISS_NUM
924 THEN
925 RETURN TRUE;
926 END IF;
927
928 RETURN TRUE;
929
930 END Val_Program_Id;
931
932 -- Function Val_Program_Update_Date
933
934 FUNCTION Val_Program_Update_Date
935 ( p_Program_Update_Date IN DATE
936 ) RETURN BOOLEAN
937 IS
938 BEGIN
939
940 IF p_Program_Update_Date IS NULL OR
941 p_Program_Update_Date = FND_API.G_MISS_DATE
942 THEN
943 RETURN TRUE;
944 END IF;
945
946 RETURN TRUE;
947
948 END Val_Program_Update_Date;
949
950 -- Function Val_Request_Id
951
952 FUNCTION Val_Request_Id
953 ( p_Request_Id IN NUMBER
954 ) RETURN BOOLEAN
955 IS
956 BEGIN
957
958 IF p_Request_Id IS NULL OR
959 p_Request_Id = FND_API.G_MISS_NUM
960 THEN
961 RETURN TRUE;
962 END IF;
963
964 RETURN TRUE;
965
966 END Val_Request_Id;
967
968 END MRP_Validate_Assignment_Set;
[Home] [Help]