[Home] [Help]
PACKAGE BODY: APPS.OE_VALIDATE_ATTR
Source
1 PACKAGE BODY OE_Validate_Attr AS
2 /* $Header: OEXSVXTB.pls 120.3 2005/12/14 16:27:58 shulin noship $ */
3
4 -- Global constant holding the package name
5
6 G_PKG_NAME CONSTANT VARCHAR2(30) := 'OE_Validate';
7
8 -- Procedure Get_Attr_Tbl.
9 --
10 -- Used by generator to avoid overriding or duplicating existing
11 -- validation functions.
12 --
13 -- DO NOT REMOVE
14
15 PROCEDURE Get_Attr_Tbl
16 IS
17 I NUMBER:=0;
18 BEGIN
19
20 FND_API.g_attr_tbl.DELETE;
21
22 -- START GEN attributes
23
24 -- Generator will append new attributes before end generate comment.
25
26 I := I + 1;
27 FND_API.g_attr_tbl(I).name := 'Desc_Flex';
28 I := I + 1;
29 FND_API.g_attr_tbl(I).name := 'agreement';
30 I := I + 1;
31 FND_API.g_attr_tbl(I).name := 'created_by';
32 I := I + 1;
33 FND_API.g_attr_tbl(I).name := 'creation_date';
34 I := I + 1;
35 FND_API.g_attr_tbl(I).name := 'discount';
36 I := I + 1;
37 FND_API.g_attr_tbl(I).name := 'last_updated_by';
38 I := I + 1;
39 FND_API.g_attr_tbl(I).name := 'last_update_date';
40 I := I + 1;
41 FND_API.g_attr_tbl(I).name := 'last_update_login';
42 I := I + 1;
43 FND_API.g_attr_tbl(I).name := 'price_list';
44 I := I + 1;
45 FND_API.g_attr_tbl(I).name := 'pricing_contract';
46
47 I := I + 1;
48 FND_API.g_attr_tbl(I).name := 'accounting_rule';
49 I := I + 1;
50 FND_API.g_attr_tbl(I).name := 'agreement_contact';
51 I := I + 1;
52 FND_API.g_attr_tbl(I).name := 'agreement_num';
53 I := I + 1;
54 FND_API.g_attr_tbl(I).name := 'agreement_type';
55 I := I + 1;
56 FND_API.g_attr_tbl(I).name := 'customer';
57 I := I + 1;
58 FND_API.g_attr_tbl(I).name := 'end_date_active';
59 I := I + 1;
60 FND_API.g_attr_tbl(I).name := 'freight_terms';
61 I := I + 1;
62 FND_API.g_attr_tbl(I).name := 'invoice_contact';
63 I := I + 1;
64 FND_API.g_attr_tbl(I).name := 'invoice_to_site_use';
65 /* FND_API.g_attr_tbl(I).name := 'invoice_to_org'; */
66 I := I + 1;
67 FND_API.g_attr_tbl(I).name := 'invoicing_rule';
68 I := I + 1;
69 FND_API.g_attr_tbl(I).name := 'name';
70 I := I + 1;
71 FND_API.g_attr_tbl(I).name := 'override_arule';
72 I := I + 1;
73 FND_API.g_attr_tbl(I).name := 'override_irule';
74 I := I + 1;
75 FND_API.g_attr_tbl(I).name := 'purchase_order_num';
76 I := I + 1;
77 FND_API.g_attr_tbl(I).name := 'revision';
78 I := I + 1;
79 FND_API.g_attr_tbl(I).name := 'revision_date';
80 I := I + 1;
81 FND_API.g_attr_tbl(I).name := 'revision_reason';
82 I := I + 1;
83 FND_API.g_attr_tbl(I).name := 'salesrep';
84 I := I + 1;
85 FND_API.g_attr_tbl(I).name := 'ship_method';
86 I := I + 1;
87 FND_API.g_attr_tbl(I).name := 'signature_date';
88 I := I + 1;
89 FND_API.g_attr_tbl(I).name := 'start_date_active';
90 I := I + 1;
91 FND_API.g_attr_tbl(I).name := 'term';
92
93 I := I + 1;
94 FND_API.g_attr_tbl(I).name := 'comments';
95 I := I + 1;
96 FND_API.g_attr_tbl(I).name := 'currency';
97 I := I + 1;
98 FND_API.g_attr_tbl(I).name := 'description';
99 I := I + 1;
100 FND_API.g_attr_tbl(I).name := 'program_application';
101 I := I + 1;
102 FND_API.g_attr_tbl(I).name := 'program';
103 I := I + 1;
104 FND_API.g_attr_tbl(I).name := 'program_update_date';
105 I := I + 1;
106 FND_API.g_attr_tbl(I).name := 'request';
107 I := I + 1;
108 FND_API.g_attr_tbl(I).name := 'rounding_factor';
109 I := I + 1;
110 FND_API.g_attr_tbl(I).name := 'secondary_price_list';
111 I := I + 1;
112 FND_API.g_attr_tbl(I).name := 'terms';
113
114 I := I + 1;
115 FND_API.g_attr_tbl(I).name := 'amount';
116 I := I + 1;
117 FND_API.g_attr_tbl(I).name := 'automatic_discount';
118 I := I + 1;
119 FND_API.g_attr_tbl(I).name := 'discount_lines';
120 I := I + 1;
121 FND_API.g_attr_tbl(I).name := 'discount_type';
122 I := I + 1;
123 FND_API.g_attr_tbl(I).name := 'gsa_indicator';
124 I := I + 1;
125 FND_API.g_attr_tbl(I).name := 'manual_discount';
126 I := I + 1;
127 FND_API.g_attr_tbl(I).name := 'override_allowed';
128 I := I + 1;
129 FND_API.g_attr_tbl(I).name := 'percent';
130 I := I + 1;
131 FND_API.g_attr_tbl(I).name := 'prorate';
132
133 I := I + 1;
134 FND_API.g_attr_tbl(I).name := 'customer_item';
135 I := I + 1;
136 FND_API.g_attr_tbl(I).name := 'inventory_item';
137 I := I + 1;
138 FND_API.g_attr_tbl(I).name := 'list_price';
139 I := I + 1;
140 FND_API.g_attr_tbl(I).name := 'method';
141 I := I + 1;
142 FND_API.g_attr_tbl(I).name := 'price_list_line';
143 I := I + 1;
144 FND_API.g_attr_tbl(I).name := 'pricing_attribute1';
145 I := I + 1;
146 FND_API.g_attr_tbl(I).name := 'pricing_attribute10';
147 I := I + 1;
148 FND_API.g_attr_tbl(I).name := 'pricing_attribute11';
149 I := I + 1;
150 FND_API.g_attr_tbl(I).name := 'pricing_attribute12';
151 I := I + 1;
152 FND_API.g_attr_tbl(I).name := 'pricing_attribute13';
153 I := I + 1;
154 FND_API.g_attr_tbl(I).name := 'pricing_attribute14';
155 I := I + 1;
156 FND_API.g_attr_tbl(I).name := 'pricing_attribute15';
157 I := I + 1;
158 FND_API.g_attr_tbl(I).name := 'pricing_attribute2';
159 I := I + 1;
160 FND_API.g_attr_tbl(I).name := 'pricing_attribute3';
161 I := I + 1;
162 FND_API.g_attr_tbl(I).name := 'pricing_attribute4';
163 I := I + 1;
164 FND_API.g_attr_tbl(I).name := 'pricing_attribute5';
165 I := I + 1;
166 FND_API.g_attr_tbl(I).name := 'pricing_attribute6';
167 I := I + 1;
168 FND_API.g_attr_tbl(I).name := 'pricing_attribute7';
169 I := I + 1;
170 FND_API.g_attr_tbl(I).name := 'pricing_attribute8';
171 I := I + 1;
172 FND_API.g_attr_tbl(I).name := 'pricing_attribute9';
173 I := I + 1;
174 FND_API.g_attr_tbl(I).name := 'pricing_context';
175 I := I + 1;
176 FND_API.g_attr_tbl(I).name := 'pricing_rule';
177 I := I + 1;
178 FND_API.g_attr_tbl(I).name := 'reprice';
179 I := I + 1;
180 FND_API.g_attr_tbl(I).name := 'unit';
181
182 I := I + 1;
183 FND_API.g_attr_tbl(I).name := 'customer_class';
184 I := I + 1;
185 FND_API.g_attr_tbl(I).name := 'discount_customer';
186 I := I + 1;
187 FND_API.g_attr_tbl(I).name := 'site_use';
188
189 I := I + 1;
190 FND_API.g_attr_tbl(I).name := 'discount_line';
191 I := I + 1;
192 FND_API.g_attr_tbl(I).name := 'entity';
193 I := I + 1;
194 FND_API.g_attr_tbl(I).name := 'entity_value';
195 I := I + 1;
196 FND_API.g_attr_tbl(I).name := 'price';
197
198 I := I + 1;
199 FND_API.g_attr_tbl(I).name := 'method_type';
200 I := I + 1;
201 FND_API.g_attr_tbl(I).name := 'price_break_high';
202 I := I + 1;
203 FND_API.g_attr_tbl(I).name := 'price_break_low';
204
205 -- END GEN attributes
206
207 END Get_Attr_Tbl;
208
209 -- Prototypes for validate functions.
210
211 -- START GEN validate
212
213 -- Generator will append new prototypes before end generate comment.
214
215
216 FUNCTION Desc_Flex ( p_flex_name IN VARCHAR2 )
217 RETURN BOOLEAN
218 IS
219 BEGIN
220
221 -- Call FND validate API.
222
223
224 -- This call is temporarily commented out
225
226 /*
227 IF FND_FLEX_DESCVAL.Validate_Desccols
228 ( appl_short_name => 'OE'
229 , desc_flex_name => p_flex_name
230 )
231 THEN
232 RETURN TRUE;
233 ELSE
234
235 -- Prepare the encoded message by setting it on the message
236 -- dictionary stack. Then, add it to the API message list.
237
238 FND_MESSAGE.Set_Encoded(FND_FLEX_DESCVAL.Encoded_Error_Message);
239
240 OE_MSG_PUB.Add;
241
242 -- Derive return status.
243
244 IF FND_FLEX_DESCVAL.value_error OR
245 FND_FLEX_DESCVAL.unsupported_error
246 THEN
247
248 -- In case of an expected error return FALSE
249
250 RETURN FALSE;
251
252 ELSE
253
254 -- In case of an unexpected error raise an exception.
255
256 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
257
258 END IF;
259
260 END IF;
261 */
262
263 RETURN TRUE;
264
265 END Desc_Flex;
266
267 FUNCTION Agreement ( p_agreement_id IN NUMBER )
268 RETURN BOOLEAN
269 IS
270 l_dummy VARCHAR2(10);
271 BEGIN
272
273 IF p_agreement_id IS NULL OR
274 p_agreement_id = FND_API.G_MISS_NUM
275 THEN
276 RETURN TRUE;
277 END IF;
278
279 --SELECT 'VALID'
280 --INTO l_dummy
281 --FROM OE_AGREEMENTS
282 --WHERE AGREEMENT_ID = p_agreement_id;
283
284 RETURN TRUE;
285
286 EXCEPTION
287
288 WHEN NO_DATA_FOUND THEN
289
290 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
291 THEN
292
293 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
294 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','agreement');
295 OE_MSG_PUB.Add;
296
297 END IF;
298
299 RETURN FALSE;
300
301 WHEN OTHERS THEN
302
303 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
304 THEN
305 OE_MSG_PUB.Add_Exc_Msg
306 ( G_PKG_NAME
307 , 'Agreement'
308 );
309 END IF;
310
311 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
312
313 END Agreement;
314
315 FUNCTION Created_By ( p_created_by IN NUMBER )
316 RETURN BOOLEAN
317 IS
318 l_dummy VARCHAR2(10);
319 BEGIN
320
321 IF p_created_by IS NULL OR
322 p_created_by = FND_API.G_MISS_NUM
323 THEN
324 RETURN TRUE;
325 END IF;
326
327 -- SELECT 'VALID'
328 -- INTO l_dummy
329 -- FROM DB_TABLE
330 -- WHERE DB_COLUMN = p_created_by;
331
332 RETURN TRUE;
333
334 EXCEPTION
335
336 WHEN NO_DATA_FOUND THEN
337
338 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
339 THEN
340
341 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
342 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','created_by');
343 OE_MSG_PUB.Add;
344
345 END IF;
346
347 RETURN FALSE;
348
349 WHEN OTHERS THEN
350
351 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
352 THEN
353 OE_MSG_PUB.Add_Exc_Msg
354 ( G_PKG_NAME
355 , 'Created_By'
356 );
357 END IF;
358
359 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
360
361 END Created_By;
362
363 FUNCTION Creation_Date ( p_creation_date IN DATE )
364 RETURN BOOLEAN
365 IS
366 l_dummy VARCHAR2(10);
367 BEGIN
368
369 IF p_creation_date IS NULL OR
370 p_creation_date = FND_API.G_MISS_DATE
371 THEN
372 RETURN TRUE;
373 END IF;
374
375 -- SELECT 'VALID'
376 -- INTO l_dummy
377 -- FROM DB_TABLE
378 -- WHERE DB_COLUMN = p_creation_date;
379
380 RETURN TRUE;
381
382 EXCEPTION
383
384 WHEN NO_DATA_FOUND THEN
385
386 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
387 THEN
388
389 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
390 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','creation_date');
391 OE_MSG_PUB.Add;
392
393 END IF;
394
395 RETURN FALSE;
396
397 WHEN OTHERS THEN
398
399 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
400 THEN
401 OE_MSG_PUB.Add_Exc_Msg
402 ( G_PKG_NAME
403 , 'Creation_Date'
404 );
405 END IF;
406
407 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
408
409 END Creation_Date;
410
411 FUNCTION Discount ( p_discount_id IN NUMBER )
412 RETURN BOOLEAN
413 IS
414 l_dummy VARCHAR2(10);
415 BEGIN
416
417 IF p_discount_id IS NULL OR
418 p_discount_id = FND_API.G_MISS_NUM
419 THEN
420 RETURN TRUE;
421 END IF;
422
423 -- SELECT 'VALID'
424 -- INTO l_dummy
425 -- FROM DB_TABLE
426 -- WHERE DB_COLUMN = p_discount_id;
427
428 RETURN TRUE;
429
430 EXCEPTION
431
432 WHEN NO_DATA_FOUND THEN
433
434 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
435 THEN
436
437 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
438 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','discount');
439 OE_MSG_PUB.Add;
440
441 END IF;
442
443 RETURN FALSE;
444
445 WHEN OTHERS THEN
446
447 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
448 THEN
449 OE_MSG_PUB.Add_Exc_Msg
450 ( G_PKG_NAME
451 , 'Discount'
452 );
453 END IF;
454
455 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
456
457 END Discount;
458
462 l_dummy VARCHAR2(10);
459 FUNCTION Last_Updated_By ( p_last_updated_by IN NUMBER )
460 RETURN BOOLEAN
461 IS
463 BEGIN
464
465 IF p_last_updated_by IS NULL OR
466 p_last_updated_by = FND_API.G_MISS_NUM
467 THEN
468 RETURN TRUE;
469 END IF;
470
471 -- SELECT 'VALID'
472 -- INTO l_dummy
473 -- FROM DB_TABLE
474 -- WHERE DB_COLUMN = p_last_updated_by;
475
476 RETURN TRUE;
477
478 EXCEPTION
479
480 WHEN NO_DATA_FOUND THEN
481
482 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
483 THEN
484
485 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
486 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','last_updated_by');
487 OE_MSG_PUB.Add;
488
489 END IF;
490
491 RETURN FALSE;
492
493 WHEN OTHERS THEN
494
495 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
496 THEN
497 OE_MSG_PUB.Add_Exc_Msg
498 ( G_PKG_NAME
499 , 'Last_Updated_By'
500 );
501 END IF;
502
503 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
504
505 END Last_Updated_By;
506
507 FUNCTION Last_Update_Date ( p_last_update_date IN DATE )
508 RETURN BOOLEAN
509 IS
510 l_dummy VARCHAR2(10);
511 BEGIN
512
513 IF p_last_update_date IS NULL OR
514 p_last_update_date = FND_API.G_MISS_DATE
515 THEN
516 RETURN TRUE;
517 END IF;
518
519 -- SELECT 'VALID'
520 -- INTO l_dummy
521 -- FROM DB_TABLE
522 -- WHERE DB_COLUMN = p_last_update_date;
523
524 RETURN TRUE;
525
526 EXCEPTION
527
528 WHEN NO_DATA_FOUND THEN
529
530 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
531 THEN
532
533 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
534 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','last_update_date');
535 OE_MSG_PUB.Add;
536
537 END IF;
538
539 RETURN FALSE;
540
541 WHEN OTHERS THEN
542
543 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
544 THEN
545 OE_MSG_PUB.Add_Exc_Msg
546 ( G_PKG_NAME
547 , 'Last_Update_Date'
548 );
549 END IF;
550
551 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
552
553 END Last_Update_Date;
554
555 FUNCTION Last_Update_Login ( p_last_update_login IN NUMBER )
556 RETURN BOOLEAN
557 IS
558 l_dummy VARCHAR2(10);
559 BEGIN
560
561 IF p_last_update_login IS NULL OR
562 p_last_update_login = FND_API.G_MISS_NUM
563 THEN
564 RETURN TRUE;
565 END IF;
566
567 -- SELECT 'VALID'
568 -- INTO l_dummy
569 -- FROM DB_TABLE
570 -- WHERE DB_COLUMN = p_last_update_login;
571
572 RETURN TRUE;
573
574 EXCEPTION
575
576 WHEN NO_DATA_FOUND THEN
577
578 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
579 THEN
580
581 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
582 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','last_update_login');
583 OE_MSG_PUB.Add;
584
585 END IF;
586
587 RETURN FALSE;
588
589 WHEN OTHERS THEN
590
591 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
592 THEN
593 OE_MSG_PUB.Add_Exc_Msg
594 ( G_PKG_NAME
595 , 'Last_Update_Login'
596 );
597 END IF;
598
599 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
600
601 END Last_Update_Login;
602
603 FUNCTION Price_List ( p_price_list_id IN NUMBER )
604 RETURN BOOLEAN
605 IS
606 l_dummy VARCHAR2(10);
607 BEGIN
608
609 IF p_price_list_id IS NULL OR
610 p_price_list_id = FND_API.G_MISS_NUM
611 THEN
612 RETURN TRUE;
613 END IF;
614
615 -- SELECT 'VALID'
616 -- INTO l_dummy
617 -- FROM DB_TABLE
618 -- WHERE DB_COLUMN = p_price_list_id;
619
620 RETURN TRUE;
621
622 EXCEPTION
623
624 WHEN NO_DATA_FOUND THEN
625
626 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
627 THEN
628
629 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
630 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','price_list');
631 OE_MSG_PUB.Add;
632
633 END IF;
634
635 RETURN FALSE;
636
637 WHEN OTHERS THEN
641 OE_MSG_PUB.Add_Exc_Msg
638
639 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
640 THEN
642 ( G_PKG_NAME
643 , 'Price_List'
644 );
645 END IF;
646
647 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
648
649 END Price_List;
650
651 FUNCTION Pricing_Contract ( p_pricing_contract_id IN NUMBER )
652 RETURN BOOLEAN
653 IS
654 l_dummy VARCHAR2(10);
655 BEGIN
656
657 IF p_pricing_contract_id IS NULL OR
658 p_pricing_contract_id = FND_API.G_MISS_NUM
659 THEN
660 RETURN TRUE;
661 END IF;
662
663 -- SELECT 'VALID'
664 -- INTO l_dummy
665 -- FROM DB_TABLE
666 -- WHERE DB_COLUMN = p_pricing_contract_id;
667
668 RETURN TRUE;
669
670 EXCEPTION
671
672 WHEN NO_DATA_FOUND THEN
673
674 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
675 THEN
676
677 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
678 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','pricing_contract');
679 OE_MSG_PUB.Add;
680
681 END IF;
682
683 RETURN FALSE;
684
685 WHEN OTHERS THEN
686
687 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
688 THEN
689 OE_MSG_PUB.Add_Exc_Msg
690 ( G_PKG_NAME
691 , 'Pricing_Contract'
692 );
693 END IF;
694
695 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
696
697 END Pricing_Contract;
698
699
700 FUNCTION Accounting_Rule ( p_accounting_rule_id IN NUMBER )
701 RETURN BOOLEAN
702 IS
703 l_dummy VARCHAR2(10);
704 BEGIN
705
706 IF p_accounting_rule_id IS NULL OR
707 p_accounting_rule_id = FND_API.G_MISS_NUM
708 THEN
709 RETURN TRUE;
710 END IF;
711
712 -- SELECT 'VALID'
713 -- INTO l_dummy
714 -- FROM DB_TABLE
715 -- WHERE DB_COLUMN = p_accounting_rule_id;
716
717 RETURN TRUE;
718
719 EXCEPTION
720
721 WHEN NO_DATA_FOUND THEN
722
723 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
724 THEN
725
726 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
727 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','accounting_rule');
728 OE_MSG_PUB.Add;
729
730 END IF;
731
732 RETURN FALSE;
733
734 WHEN OTHERS THEN
735
736 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
737 THEN
738 OE_MSG_PUB.Add_Exc_Msg
739 ( G_PKG_NAME
740 , 'Accounting_Rule'
741 );
742 END IF;
743
744 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
745
746 END Accounting_Rule;
747
748 FUNCTION Agreement_Contact ( p_agreement_contact_id IN NUMBER )
749 RETURN BOOLEAN
750 IS
751 l_dummy VARCHAR2(10);
752 BEGIN
753
754 IF p_agreement_contact_id IS NULL OR
755 p_agreement_contact_id = FND_API.G_MISS_NUM
756 THEN
757 RETURN TRUE;
758 END IF;
759
760 -- SELECT 'VALID'
761 -- INTO l_dummy
762 -- FROM DB_TABLE
763 -- WHERE DB_COLUMN = p_agreement_contact_id;
764
765 RETURN TRUE;
766
767 EXCEPTION
768
769 WHEN NO_DATA_FOUND THEN
770
771 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
772 THEN
773
774 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
775 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','agreement_contact');
776 OE_MSG_PUB.Add;
777
778 END IF;
779
780 RETURN FALSE;
781
782 WHEN OTHERS THEN
783
784 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
785 THEN
786 OE_MSG_PUB.Add_Exc_Msg
787 ( G_PKG_NAME
788 , 'Agreement_Contact'
789 );
790 END IF;
791
792 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
793
794 END Agreement_Contact;
795
796 FUNCTION Agreement_Num ( p_agreement_num IN VARCHAR2 )
797 RETURN BOOLEAN
798 IS
799 l_dummy VARCHAR2(10);
800 BEGIN
801
802 IF p_agreement_num IS NULL OR
803 p_agreement_num = FND_API.G_MISS_CHAR
804 THEN
805 RETURN TRUE;
806 END IF;
807
808 -- SELECT 'VALID'
809 -- INTO l_dummy
810 -- FROM DB_TABLE
811 -- WHERE DB_COLUMN = p_agreement_num;
812
813 RETURN TRUE;
814
815 EXCEPTION
816
820 THEN
817 WHEN NO_DATA_FOUND THEN
818
819 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
821
822 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
823 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','agreement_num');
824 OE_MSG_PUB.Add;
825
826 END IF;
827
828 RETURN FALSE;
829
830 WHEN OTHERS THEN
831
832 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
833 THEN
834 OE_MSG_PUB.Add_Exc_Msg
835 ( G_PKG_NAME
836 , 'Agreement_Num'
837 );
838 END IF;
839
840 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
841
842 END Agreement_Num;
843
844 FUNCTION Agreement_Type ( p_agreement_type_code IN VARCHAR2 )
845 RETURN BOOLEAN
846 IS
847 l_dummy VARCHAR2(10);
848 BEGIN
849
850 IF p_agreement_type_code IS NULL OR
851 p_agreement_type_code = FND_API.G_MISS_CHAR
852 THEN
853 RETURN TRUE;
854 END IF;
855
856 -- SELECT 'VALID'
857 -- INTO l_dummy
858 -- FROM DB_TABLE
859 -- WHERE DB_COLUMN = p_agreement_type_code;
860
861 RETURN TRUE;
862
863 EXCEPTION
864
865 WHEN NO_DATA_FOUND THEN
866
867 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
868 THEN
869
870 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
871 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','agreement_type');
872 OE_MSG_PUB.Add;
873
874 END IF;
875
876 RETURN FALSE;
877
878 WHEN OTHERS THEN
879
880 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
881 THEN
882 OE_MSG_PUB.Add_Exc_Msg
883 ( G_PKG_NAME
884 , 'Agreement_Type'
885 );
886 END IF;
887
888 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
889
890 END Agreement_Type;
891
892 /* FUNCTION Customer ( p_customer_id IN NUMBER ) */
893 FUNCTION Customer ( p_sold_to_org_id IN NUMBER )
894 RETURN BOOLEAN
895 IS
896 l_dummy VARCHAR2(10);
897 BEGIN
898 /*
899 IF p_customer_id IS NULL OR
900 p_customer_id = FND_API.G_MISS_NUM
901 THEN
902 RETURN TRUE;
903 END IF;
904 */
905 IF p_sold_to_org_id IS NULL OR
906 p_sold_to_org_id = FND_API.G_MISS_NUM
907 THEN
908 RETURN TRUE;
909 END IF;
910
911 -- SELECT 'VALID'
912 -- INTO l_dummy
913 -- FROM DB_TABLE
914 -- WHERE DB_COLUMN = p_customer_id;
915
916 RETURN TRUE;
917
918 EXCEPTION
919
920 WHEN NO_DATA_FOUND THEN
921
922 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
923 THEN
924
925 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
926 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','customer');
927 OE_MSG_PUB.Add;
928
929 END IF;
930
931 RETURN FALSE;
932
933 WHEN OTHERS THEN
934
935 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
936 THEN
937 OE_MSG_PUB.Add_Exc_Msg
938 ( G_PKG_NAME
939 , 'Customer'
940 );
941 END IF;
942
943 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
944
945 END Customer;
946
947 FUNCTION End_Date_Active ( p_end_date_active IN DATE )
948 RETURN BOOLEAN
949 IS
950 l_dummy VARCHAR2(10);
951 BEGIN
952
953 IF p_end_date_active IS NULL OR
954 p_end_date_active = FND_API.G_MISS_DATE
955 THEN
956 RETURN TRUE;
957 END IF;
958
959 -- SELECT 'VALID'
960 -- INTO l_dummy
961 -- FROM DB_TABLE
962 -- WHERE DB_COLUMN = p_end_date_active;
963
964 RETURN TRUE;
965
966 EXCEPTION
967
968 WHEN NO_DATA_FOUND THEN
969
970 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
971 THEN
972
973 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
974 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','end_date_active');
975 OE_MSG_PUB.Add;
976
977 END IF;
978
979 RETURN FALSE;
980
981 WHEN OTHERS THEN
982
983 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
984 THEN
985 OE_MSG_PUB.Add_Exc_Msg
986 ( G_PKG_NAME
987 , 'End_Date_Active'
988 );
989 END IF;
990
991 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
992
993 END End_Date_Active;
994
998 IS
995 FUNCTION Start_Date_End_Date ( p_start_date_active IN DATE,
996 p_end_date_active IN DATE )
997 RETURN BOOLEAN
999 l_dummy VARCHAR2(10);
1000 BEGIN
1001
1002 IF (p_end_date_active IS NULL OR
1003 p_end_date_active = FND_API.G_MISS_DATE)
1004 OR (p_start_date_active IS NULL OR
1005 p_start_date_active = FND_API.G_MISS_DATE)
1006 THEN
1007 RETURN TRUE;
1008 ELSIF (p_start_date_active > p_end_date_active ) THEN
1009 FND_MESSAGE.SET_NAME('OE', 'SO_OTHER_INVALID_DATE_RANGE');
1010 OE_MSG_PUB.Add;
1011 RETURN FALSE;
1012 END IF;
1013
1014
1015 -- SELECT 'VALID'
1016 -- INTO l_dummy
1017 -- FROM DB_TABLE
1018 -- WHERE DB_COLUMN = p_end_date_active;
1019
1020 RETURN TRUE;
1021
1022 EXCEPTION
1023
1024 -- exception block currently contains nothing, but in future, if any
1025 -- exception needs to be handled, it can be handled here for this
1026 -- function
1027
1028 WHEN NO_DATA_FOUND THEN
1029
1030 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
1031 THEN
1032 NULL;
1033 END IF;
1034
1035 RETURN FALSE;
1036
1037 WHEN OTHERS THEN
1038
1039 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1040 THEN
1041 OE_MSG_PUB.Add_Exc_Msg
1042 ( G_PKG_NAME
1043 , 'Start_Date_End_Date_Active'
1044 );
1045 END IF;
1046
1047 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1048
1049 END Start_Date_End_Date;
1050
1051 FUNCTION Check_Date_Range ( p_line_date_active IN DATE,
1052 p_header_start_date_active IN DATE,
1053 p_header_end_date_active IN DATE )
1054 RETURN BOOLEAN
1055 IS
1056 l_dummy VARCHAR2(10);
1057 BEGIN
1058
1059 IF (p_line_date_active IS NULL OR
1060 p_line_date_active = FND_API.G_MISS_DATE)
1061 THEN
1062 RETURN TRUE;
1063 ELSIF (p_line_date_active not between
1064 nvl(p_header_start_date_active, p_line_date_active - 1 ) and
1065 nvl(p_header_end_date_active, p_line_date_active + 1 )) THEN
1066 FND_MESSAGE.SET_NAME('OE', 'SO_OTHER_INVALID_DATE_RANGE');
1067 OE_MSG_PUB.Add;
1068 RETURN FALSE;
1069 END IF;
1070
1071
1072 -- SELECT 'VALID'
1073 -- INTO l_dummy
1074 -- FROM DB_TABLE
1075 -- WHERE DB_COLUMN = p_end_date_active;
1076
1077 RETURN TRUE;
1078
1079 EXCEPTION
1080
1081 -- exception block currently contains nothing, but in future, if any
1082 -- exception needs to be handled, it can be handled here for this
1083 -- function
1084
1085 WHEN NO_DATA_FOUND THEN
1086
1087 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
1088 THEN
1089 NULL;
1090 END IF;
1091
1092 RETURN FALSE;
1093
1094 WHEN OTHERS THEN
1095
1096 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1097 THEN
1098 OE_MSG_PUB.Add_Exc_Msg
1099 ( G_PKG_NAME
1100 , 'Check_Date_Range'
1101 );
1102 END IF;
1103
1104 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1105
1106 END Check_Date_Range;
1107
1108 FUNCTION Freight_Terms ( p_freight_terms_code IN VARCHAR2 )
1109 RETURN BOOLEAN
1110 IS
1111 l_dummy VARCHAR2(10);
1112 BEGIN
1113
1114 IF p_freight_terms_code IS NULL OR
1115 p_freight_terms_code = FND_API.G_MISS_CHAR
1116 THEN
1117 RETURN TRUE;
1118 END IF;
1119
1120 -- SELECT 'VALID'
1121 -- INTO l_dummy
1122 -- FROM DB_TABLE
1123 -- WHERE DB_COLUMN = p_freight_terms_code;
1124
1125 RETURN TRUE;
1126
1127 EXCEPTION
1128
1129 WHEN NO_DATA_FOUND THEN
1130
1131 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
1132 THEN
1133
1134 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
1135 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','freight_terms');
1136 OE_MSG_PUB.Add;
1137
1138 END IF;
1139
1140 RETURN FALSE;
1141
1142 WHEN OTHERS THEN
1143
1144 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1145 THEN
1146 OE_MSG_PUB.Add_Exc_Msg
1147 ( G_PKG_NAME
1148 , 'Freight_Terms'
1149 );
1150 END IF;
1151
1152 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1153
1154 END Freight_Terms;
1155
1156 FUNCTION Invoice_Contact ( p_invoice_contact_id IN NUMBER )
1157 RETURN BOOLEAN
1158 IS
1159 l_dummy VARCHAR2(10);
1163 p_invoice_contact_id = FND_API.G_MISS_NUM
1160 BEGIN
1161
1162 IF p_invoice_contact_id IS NULL OR
1164 THEN
1165 RETURN TRUE;
1166 END IF;
1167
1168 -- SELECT 'VALID'
1169 -- INTO l_dummy
1170 -- FROM DB_TABLE
1171 -- WHERE DB_COLUMN = p_invoice_contact_id;
1172
1173 RETURN TRUE;
1174
1175 EXCEPTION
1176
1177 WHEN NO_DATA_FOUND THEN
1178
1179 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
1180 THEN
1181
1182 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
1183 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','invoice_contact');
1184 OE_MSG_PUB.Add;
1185
1186 END IF;
1187
1188 RETURN FALSE;
1189
1190 WHEN OTHERS THEN
1191
1192 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1193 THEN
1194 OE_MSG_PUB.Add_Exc_Msg
1195 ( G_PKG_NAME
1196 , 'Invoice_Contact'
1197 );
1198 END IF;
1199
1200 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1201
1202 END Invoice_Contact;
1203
1204 /* FUNCTION Invoice_To_Site_Use ( p_invoice_to_site_use_id IN NUMBER ) */
1205 FUNCTION Invoice_To_Site_Use ( p_invoice_to_org_id IN NUMBER )
1206 RETURN BOOLEAN
1207 IS
1208 l_dummy VARCHAR2(10);
1209 BEGIN
1210 /*
1211 IF p_invoice_to_site_use_id IS NULL OR
1212 p_invoice_to_site_use_id = FND_API.G_MISS_NUM
1213 THEN
1214 RETURN TRUE;
1215 END IF;
1216 */
1217 IF p_invoice_to_org_id IS NULL OR
1218 p_invoice_to_org_id = FND_API.G_MISS_NUM
1219 THEN
1220 RETURN TRUE;
1221 END IF;
1222
1223 -- SELECT 'VALID'
1224 -- INTO l_dummy
1225 -- FROM DB_TABLE
1226 -- WHERE DB_COLUMN = p_invoice_to_site_use_id;
1227
1228 RETURN TRUE;
1229
1230 EXCEPTION
1231
1232 WHEN NO_DATA_FOUND THEN
1233
1234 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
1235 THEN
1236
1237 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
1238 /* FND_MESSAGE.SET_TOKEN('ATTRIBUTE','invoice_to_site_use'); */
1239 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','invoice_to_org');
1240 OE_MSG_PUB.Add;
1241
1242 END IF;
1243
1244 RETURN FALSE;
1245
1246 WHEN OTHERS THEN
1247
1248 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1249 THEN
1250 OE_MSG_PUB.Add_Exc_Msg
1251 ( G_PKG_NAME
1252 /* , 'Invoice_To_Site_Use' */
1253 , 'Invoice_To_Org'
1254 );
1255 END IF;
1256
1257 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1258
1259 END Invoice_To_Site_Use;
1260
1261 FUNCTION Invoicing_Rule ( p_invoicing_rule_id IN NUMBER )
1262 RETURN BOOLEAN
1263 IS
1264 l_dummy VARCHAR2(10);
1265 BEGIN
1266
1267 IF p_invoicing_rule_id IS NULL OR
1268 p_invoicing_rule_id = FND_API.G_MISS_NUM
1269 THEN
1270 RETURN TRUE;
1271 END IF;
1272
1273 -- SELECT 'VALID'
1274 -- INTO l_dummy
1275 -- FROM DB_TABLE
1276 -- WHERE DB_COLUMN = p_invoicing_rule_id;
1277
1278 RETURN TRUE;
1279
1280 EXCEPTION
1281
1282 WHEN NO_DATA_FOUND THEN
1283
1284 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
1285 THEN
1286
1287 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
1288 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','invoicing_rule');
1289 OE_MSG_PUB.Add;
1290
1291 END IF;
1292
1293 RETURN FALSE;
1294
1295 WHEN OTHERS THEN
1296
1297 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1298 THEN
1299 OE_MSG_PUB.Add_Exc_Msg
1300 ( G_PKG_NAME
1301 , 'Invoicing_Rule'
1302 );
1303 END IF;
1304
1305 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1306
1307 END Invoicing_Rule;
1308
1309 FUNCTION Name ( p_name IN VARCHAR2 )
1310 RETURN BOOLEAN
1311 IS
1312 l_dummy VARCHAR2(10);
1313 BEGIN
1314
1315 IF p_name IS NULL OR
1316 p_name = FND_API.G_MISS_CHAR
1317 THEN
1318 RETURN TRUE;
1319 END IF;
1320
1321 -- SELECT 'VALID'
1322 -- INTO l_dummy
1323 -- FROM DB_TABLE
1324 -- WHERE DB_COLUMN = p_name;
1325
1326 RETURN TRUE;
1327
1328 EXCEPTION
1329
1330 WHEN NO_DATA_FOUND THEN
1331
1332 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
1333 THEN
1334
1335 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
1339 END IF;
1336 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','name');
1337 OE_MSG_PUB.Add;
1338
1340
1341 RETURN FALSE;
1342
1343 WHEN OTHERS THEN
1344
1345 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1346 THEN
1347 OE_MSG_PUB.Add_Exc_Msg
1348 ( G_PKG_NAME
1349 , 'Name'
1350 );
1351 END IF;
1352
1353 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1354
1355 END Name;
1356
1357 FUNCTION Override_Arule ( p_override_arule_flag IN VARCHAR2 )
1358 RETURN BOOLEAN
1359 IS
1360 l_dummy VARCHAR2(10);
1361 BEGIN
1362
1363 IF p_override_arule_flag IS NULL OR
1364 p_override_arule_flag = FND_API.G_MISS_CHAR
1365 THEN
1366 RETURN TRUE;
1367 END IF;
1368
1369 -- SELECT 'VALID'
1370 -- INTO l_dummy
1371 -- FROM DB_TABLE
1372 -- WHERE DB_COLUMN = p_override_arule_flag;
1373
1374 RETURN TRUE;
1375
1376 EXCEPTION
1377
1378 WHEN NO_DATA_FOUND THEN
1379
1380 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
1381 THEN
1382
1383 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
1384 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','override_arule');
1385 OE_MSG_PUB.Add;
1386
1387 END IF;
1388
1389 RETURN FALSE;
1390
1391 WHEN OTHERS THEN
1392
1393 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1394 THEN
1395 OE_MSG_PUB.Add_Exc_Msg
1396 ( G_PKG_NAME
1397 , 'Override_Arule'
1398 );
1399 END IF;
1400
1401 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1402
1403 END Override_Arule;
1404
1405 FUNCTION Override_Irule ( p_override_irule_flag IN VARCHAR2 )
1406 RETURN BOOLEAN
1407 IS
1408 l_dummy VARCHAR2(10);
1409 BEGIN
1410
1411 IF p_override_irule_flag IS NULL OR
1412 p_override_irule_flag = FND_API.G_MISS_CHAR
1413 THEN
1414 RETURN TRUE;
1415 END IF;
1416
1417 -- SELECT 'VALID'
1418 -- INTO l_dummy
1419 -- FROM DB_TABLE
1420 -- WHERE DB_COLUMN = p_override_irule_flag;
1421
1422 RETURN TRUE;
1423
1424 EXCEPTION
1425
1426 WHEN NO_DATA_FOUND THEN
1427
1428 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
1429 THEN
1430
1431 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
1432 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','override_irule');
1433 OE_MSG_PUB.Add;
1434
1435 END IF;
1436
1437 RETURN FALSE;
1438
1439 WHEN OTHERS THEN
1440
1441 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1442 THEN
1443 OE_MSG_PUB.Add_Exc_Msg
1444 ( G_PKG_NAME
1445 , 'Override_Irule'
1446 );
1447 END IF;
1448
1449 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1450
1451 END Override_Irule;
1452
1453 FUNCTION Purchase_Order_Num ( p_purchase_order_num IN VARCHAR2 )
1454 RETURN BOOLEAN
1455 IS
1456 l_dummy VARCHAR2(10);
1457 BEGIN
1458
1459 IF p_purchase_order_num IS NULL OR
1460 p_purchase_order_num = FND_API.G_MISS_CHAR
1461 THEN
1462 RETURN TRUE;
1463 END IF;
1464
1465 -- SELECT 'VALID'
1466 -- INTO l_dummy
1467 -- FROM DB_TABLE
1468 -- WHERE DB_COLUMN = p_purchase_order_num;
1469
1470 RETURN TRUE;
1471
1472 EXCEPTION
1473
1474 WHEN NO_DATA_FOUND THEN
1475
1476 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
1477 THEN
1478
1479 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
1480 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','purchase_order_num');
1481 OE_MSG_PUB.Add;
1482
1483 END IF;
1484
1485 RETURN FALSE;
1486
1487 WHEN OTHERS THEN
1488
1489 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1490 THEN
1491 OE_MSG_PUB.Add_Exc_Msg
1492 ( G_PKG_NAME
1493 , 'Purchase_Order_Num'
1494 );
1495 END IF;
1496
1497 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1498
1499 END Purchase_Order_Num;
1500
1501 FUNCTION Revision ( p_revision IN VARCHAR2 )
1502 RETURN BOOLEAN
1503 IS
1504 l_dummy VARCHAR2(10);
1505 BEGIN
1506
1507 IF p_revision IS NULL OR
1508 p_revision = FND_API.G_MISS_CHAR
1509 THEN
1510 RETURN TRUE;
1511 END IF;
1512
1513 -- SELECT 'VALID'
1514 -- INTO l_dummy
1518 RETURN TRUE;
1515 -- FROM DB_TABLE
1516 -- WHERE DB_COLUMN = p_revision;
1517
1519
1520 EXCEPTION
1521
1522 WHEN NO_DATA_FOUND THEN
1523
1524 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
1525 THEN
1526
1527 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
1528 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','revision');
1529 OE_MSG_PUB.Add;
1530
1531 END IF;
1532
1533 RETURN FALSE;
1534
1535 WHEN OTHERS THEN
1536
1537 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1538 THEN
1539 OE_MSG_PUB.Add_Exc_Msg
1540 ( G_PKG_NAME
1541 , 'Revision'
1542 );
1543 END IF;
1544
1545 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1546
1547 END Revision;
1548
1549 FUNCTION Revision_Date ( p_revision_date IN DATE )
1550 RETURN BOOLEAN
1551 IS
1552 l_dummy VARCHAR2(10);
1553 BEGIN
1554
1555 IF p_revision_date IS NULL OR
1556 p_revision_date = FND_API.G_MISS_DATE
1557 THEN
1558 RETURN TRUE;
1559 END IF;
1560
1561 -- SELECT 'VALID'
1562 -- INTO l_dummy
1563 -- FROM DB_TABLE
1564 -- WHERE DB_COLUMN = p_revision_date;
1565
1566 RETURN TRUE;
1567
1568 EXCEPTION
1569
1570 WHEN NO_DATA_FOUND THEN
1571
1572 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
1573 THEN
1574
1575 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
1576 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','revision_date');
1577 OE_MSG_PUB.Add;
1578
1579 END IF;
1580
1581 RETURN FALSE;
1582
1583 WHEN OTHERS THEN
1584
1585 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1586 THEN
1587 OE_MSG_PUB.Add_Exc_Msg
1588 ( G_PKG_NAME
1589 , 'Revision_Date'
1590 );
1591 END IF;
1592
1593 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1594
1595 END Revision_Date;
1596
1597 FUNCTION Revision_Reason ( p_revision_reason_code IN VARCHAR2 )
1598 RETURN BOOLEAN
1599 IS
1600 l_dummy VARCHAR2(10);
1601 BEGIN
1602
1603 IF p_revision_reason_code IS NULL OR
1604 p_revision_reason_code = FND_API.G_MISS_CHAR
1605 THEN
1606 RETURN TRUE;
1607 END IF;
1608
1609 -- SELECT 'VALID'
1610 -- INTO l_dummy
1611 -- FROM DB_TABLE
1612 -- WHERE DB_COLUMN = p_revision_reason_code;
1613
1614 RETURN TRUE;
1615
1616 EXCEPTION
1617
1618 WHEN NO_DATA_FOUND THEN
1619
1620 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
1621 THEN
1622
1623 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
1624 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','revision_reason');
1625 OE_MSG_PUB.Add;
1626
1627 END IF;
1628
1629 RETURN FALSE;
1630
1631 WHEN OTHERS THEN
1632
1633 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1634 THEN
1635 OE_MSG_PUB.Add_Exc_Msg
1636 ( G_PKG_NAME
1637 , 'Revision_Reason'
1638 );
1639 END IF;
1640
1641 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1642
1643 END Revision_Reason;
1644
1645 FUNCTION Salesrep ( p_salesrep_id IN NUMBER )
1646 RETURN BOOLEAN
1647 IS
1648 l_dummy VARCHAR2(10);
1649 BEGIN
1650
1651 IF p_salesrep_id IS NULL OR
1652 p_salesrep_id = FND_API.G_MISS_NUM
1653 THEN
1654 RETURN TRUE;
1655 END IF;
1656
1657 -- SELECT 'VALID'
1658 -- INTO l_dummy
1659 -- FROM DB_TABLE
1660 -- WHERE DB_COLUMN = p_salesrep_id;
1661
1662 RETURN TRUE;
1663
1664 EXCEPTION
1665
1666 WHEN NO_DATA_FOUND THEN
1667
1668 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
1669 THEN
1670
1671 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
1672 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','salesrep');
1673 OE_MSG_PUB.Add;
1674
1675 END IF;
1676
1677 RETURN FALSE;
1678
1679 WHEN OTHERS THEN
1680
1681 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1682 THEN
1683 OE_MSG_PUB.Add_Exc_Msg
1684 ( G_PKG_NAME
1685 , 'Salesrep'
1686 );
1687 END IF;
1688
1689 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1690
1691 END Salesrep;
1692
1693 FUNCTION Ship_Method ( p_ship_method_code IN VARCHAR2 )
1694 RETURN BOOLEAN
1695 IS
1696 l_dummy VARCHAR2(10);
1697 BEGIN
1698
1699 IF p_ship_method_code IS NULL OR
1700 p_ship_method_code = FND_API.G_MISS_CHAR
1701 THEN
1702 RETURN TRUE;
1703 END IF;
1704
1705 -- SELECT 'VALID'
1706 -- INTO l_dummy
1707 -- FROM DB_TABLE
1708 -- WHERE DB_COLUMN = p_ship_method_code;
1709
1710 RETURN TRUE;
1711
1712 EXCEPTION
1713
1714 WHEN NO_DATA_FOUND THEN
1715
1716 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
1717 THEN
1718
1719 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
1720 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','ship_method');
1721 OE_MSG_PUB.Add;
1722
1723 END IF;
1724
1725 RETURN FALSE;
1726
1727 WHEN OTHERS THEN
1728
1729 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1730 THEN
1731 OE_MSG_PUB.Add_Exc_Msg
1732 ( G_PKG_NAME
1733 , 'Ship_Method'
1734 );
1735 END IF;
1736
1737 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1738
1739 END Ship_Method;
1740
1741 FUNCTION Signature_Date ( p_signature_date IN DATE )
1742 RETURN BOOLEAN
1743 IS
1744 l_dummy VARCHAR2(10);
1745 BEGIN
1746
1747 IF p_signature_date IS NULL OR
1748 p_signature_date = FND_API.G_MISS_DATE
1749 THEN
1750 RETURN TRUE;
1751 END IF;
1752
1753 -- SELECT 'VALID'
1754 -- INTO l_dummy
1755 -- FROM DB_TABLE
1756 -- WHERE DB_COLUMN = p_signature_date;
1757
1758 RETURN TRUE;
1759
1760 EXCEPTION
1761
1762 WHEN NO_DATA_FOUND THEN
1763
1764 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
1765 THEN
1766
1767 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
1768 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','signature_date');
1769 OE_MSG_PUB.Add;
1770
1771 END IF;
1772
1773 RETURN FALSE;
1774
1775 WHEN OTHERS THEN
1776
1777 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1778 THEN
1779 OE_MSG_PUB.Add_Exc_Msg
1780 ( G_PKG_NAME
1781 , 'Signature_Date'
1782 );
1783 END IF;
1784
1785 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1786
1787 END Signature_Date;
1788
1789 FUNCTION Start_Date_Active ( p_start_date_active IN DATE )
1790 RETURN BOOLEAN
1791 IS
1792 l_dummy VARCHAR2(10);
1793 BEGIN
1794
1795 IF p_start_date_active IS NULL OR
1796 p_start_date_active = FND_API.G_MISS_DATE
1797 THEN
1798 RETURN TRUE;
1799 END IF;
1800
1801 -- SELECT 'VALID'
1802 -- INTO l_dummy
1803 -- FROM DB_TABLE
1804 -- WHERE DB_COLUMN = p_start_date_active;
1805
1806 RETURN TRUE;
1807
1808 EXCEPTION
1809
1810 WHEN NO_DATA_FOUND THEN
1811
1812 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
1813 THEN
1814
1815 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
1816 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','start_date_active');
1817 OE_MSG_PUB.Add;
1818
1819 END IF;
1820
1821 RETURN FALSE;
1822
1823 WHEN OTHERS THEN
1824
1825 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1826 THEN
1827 OE_MSG_PUB.Add_Exc_Msg
1828 ( G_PKG_NAME
1829 , 'Start_Date_Active'
1830 );
1831 END IF;
1832
1833 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1834
1835 END Start_Date_Active;
1836
1837 FUNCTION Term ( p_term_id IN NUMBER )
1838 RETURN BOOLEAN
1839 IS
1840 l_dummy VARCHAR2(10);
1841 BEGIN
1842
1843 IF p_term_id IS NULL OR
1844 p_term_id = FND_API.G_MISS_NUM
1845 THEN
1846 RETURN TRUE;
1847 END IF;
1848
1849 -- SELECT 'VALID'
1850 -- INTO l_dummy
1851 -- FROM DB_TABLE
1852 -- WHERE DB_COLUMN = p_term_id;
1853
1854 RETURN TRUE;
1855
1856 EXCEPTION
1857
1858 WHEN NO_DATA_FOUND THEN
1859
1860 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
1861 THEN
1862
1863 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
1864 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','term');
1865 OE_MSG_PUB.Add;
1866
1867 END IF;
1868
1869 RETURN FALSE;
1870
1871 WHEN OTHERS THEN
1872
1873 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1874 THEN
1875 OE_MSG_PUB.Add_Exc_Msg
1876 ( G_PKG_NAME
1877 , 'Term'
1878 );
1879 END IF;
1880
1881 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1882
1883 END Term;
1884
1885
1886 --Begin code added by rchellam for OKC
1887 FUNCTION Agreement_Source ( p_agreement_source_code IN VARCHAR2)
1888 RETURN BOOLEAN
1889 IS
1890 l_dummy VARCHAR2(10);
1891 BEGIN
1892
1893 IF p_agreement_source_code IS NULL OR
1894 p_agreement_source_code = FND_API.G_MISS_CHAR
1895 THEN
1896 RETURN TRUE;
1897 END IF;
1898
1899 -- SELECT 'VALID'
1900 -- INTO l_dummy
1901 -- FROM DB_TABLE
1902 -- WHERE DB_COLUMN = p_term_id;
1903
1904 RETURN TRUE;
1905
1906 EXCEPTION
1907
1908 WHEN NO_DATA_FOUND THEN
1909
1910 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
1911 THEN
1912
1913 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
1914 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','agreement_source');
1915 OE_MSG_PUB.Add;
1916
1917 END IF;
1918
1919 RETURN FALSE;
1920
1921 WHEN OTHERS THEN
1922
1923 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1924 THEN
1925 OE_MSG_PUB.Add_Exc_Msg
1926 ( G_PKG_NAME
1927 , 'Agreement_Source'
1928 );
1929 END IF;
1930
1931 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1932
1933 END Agreement_Source;
1934
1935 FUNCTION Orig_System_Agr ( p_orig_system_agr_id IN NUMBER )
1936 RETURN BOOLEAN
1937 IS
1938 l_dummy VARCHAR2(10);
1939 BEGIN
1940
1941 IF p_orig_system_agr_id IS NULL OR
1942 p_orig_system_agr_id = FND_API.G_MISS_NUM
1943 THEN
1944 RETURN TRUE;
1945 END IF;
1946
1947 -- SELECT 'VALID'
1948 -- INTO l_dummy
1949 -- FROM DB_TABLE
1950 -- WHERE DB_COLUMN = p_term_id;
1951
1952 RETURN TRUE;
1953
1954 EXCEPTION
1955
1956 WHEN NO_DATA_FOUND THEN
1957
1958 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
1959 THEN
1960
1961 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
1962 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','orig_system_agr');
1963 OE_MSG_PUB.Add;
1964
1965 END IF;
1966
1967 RETURN FALSE;
1968
1969 WHEN OTHERS THEN
1970
1971 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1972 THEN
1973 OE_MSG_PUB.Add_Exc_Msg
1974 ( G_PKG_NAME
1975 , 'Orig_System_Agr'
1976 );
1977 END IF;
1978
1979 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1980
1981 END Orig_System_Agr;
1982 --End code added by rchellam for OKC
1983
1984 -- Added for bug#4029589
1985 FUNCTION Invoice_To_Customer_Id(p_invoice_to_customer_id IN NUMBER)
1986 RETURN BOOLEAN
1987 IS
1988 l_dummy VARCHAR2(10);
1989 BEGIN
1990
1991 IF p_invoice_to_customer_id IS NULL OR
1992 p_invoice_to_customer_id = FND_API.G_MISS_NUM
1993 THEN
1994 RETURN TRUE;
1995 END IF;
1996
1997 -- SELECT 'VALID'
1998 -- INTO l_dummy
1999 -- FROM DB_TABLE
2000 -- WHERE DB_COLUMN = p_term_id;
2001
2002 RETURN TRUE;
2003
2004 EXCEPTION
2005
2006 WHEN NO_DATA_FOUND THEN
2007
2008 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
2009 THEN
2010
2011 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
2012 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','invoice_to_customer_id');
2013 OE_MSG_PUB.Add;
2014
2015 END IF;
2016
2017 RETURN FALSE;
2018
2019 WHEN OTHERS THEN
2020
2021 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2022 THEN
2023 OE_MSG_PUB.Add_Exc_Msg
2024 ( G_PKG_NAME
2025 , 'Invoice_To_Customer_Id'
2026 );
2027 END IF;
2028
2029 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2030
2031 END Invoice_To_Customer_Id;
2032
2033 FUNCTION Comments ( p_comments IN VARCHAR2 )
2034 RETURN BOOLEAN
2035 IS
2036 l_dummy VARCHAR2(10);
2037 BEGIN
2038
2039 IF p_comments IS NULL OR
2040 p_comments = FND_API.G_MISS_CHAR
2041 THEN
2042 RETURN TRUE;
2043 END IF;
2044
2045 -- SELECT 'VALID'
2046 -- INTO l_dummy
2047 -- FROM DB_TABLE
2048 -- WHERE DB_COLUMN = p_comments;
2049
2050 RETURN TRUE;
2051
2052 EXCEPTION
2053
2054 WHEN NO_DATA_FOUND THEN
2055
2056 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
2057 THEN
2058
2059 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
2060 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','comments');
2061 OE_MSG_PUB.Add;
2062
2063 END IF;
2064
2065 RETURN FALSE;
2066
2067 WHEN OTHERS THEN
2068
2069 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2070 THEN
2071 OE_MSG_PUB.Add_Exc_Msg
2072 ( G_PKG_NAME
2073 , 'Comments'
2074 );
2075 END IF;
2076
2077 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2078
2079 END Comments;
2080
2081 FUNCTION Currency ( p_currency_code IN VARCHAR2 )
2082 RETURN BOOLEAN
2083 IS
2084 l_dummy VARCHAR2(10);
2085 BEGIN
2086
2087 IF p_currency_code IS NULL OR
2088 p_currency_code = FND_API.G_MISS_CHAR
2089 THEN
2090 RETURN TRUE;
2091 END IF;
2092
2093 -- SELECT 'VALID'
2094 -- INTO l_dummy
2095 -- FROM DB_TABLE
2096 -- WHERE DB_COLUMN = p_currency_code;
2097
2098 RETURN TRUE;
2099
2100 EXCEPTION
2101
2102 WHEN NO_DATA_FOUND THEN
2103
2104 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
2105 THEN
2106
2107 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
2108 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','currency');
2109 OE_MSG_PUB.Add;
2110
2111 END IF;
2112
2113 RETURN FALSE;
2114
2115 WHEN OTHERS THEN
2116
2117 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2118 THEN
2119 OE_MSG_PUB.Add_Exc_Msg
2120 ( G_PKG_NAME
2121 , 'Currency'
2122 );
2123 END IF;
2124
2125 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2126
2127 END Currency;
2128
2129 FUNCTION Currency ( p_currency_code IN VARCHAR2,
2130 x_fmt_mask OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
2131 x_fmt_mask_ext OUT NOCOPY /* file.sql.39 change */ VARCHAR2)
2132 RETURN BOOLEAN
2133 IS
2134 l_precision NUMBER;
2135 l_ext_precision NUMBER;
2136 l_min_acct_unit NUMBER;
2137 l_dummy VARCHAR2(10);
2138 BEGIN
2139
2140 IF p_currency_code IS NULL OR
2141 p_currency_code = FND_API.G_MISS_CHAR
2142 THEN
2143 RETURN TRUE;
2144 END IF;
2145
2146 FND_CURRENCY.Get_Info(p_currency_code, l_precision, l_ext_precision,
2147 l_min_acct_unit);
2148
2149 FND_CURRENCY.Build_Format_Mask(x_fmt_mask, 20, l_precision,
2150 l_min_acct_unit, TRUE,
2151 'XXX', '<XXX>');
2152
2153 FND_CURRENCY.Build_Format_Mask(x_fmt_mask_ext, 20, l_ext_precision,
2154 l_min_acct_unit, TRUE,
2155 'XXX','<XXX>');
2156
2157
2158 -- SELECT 'VALID'
2159 -- INTO l_dummy
2160 -- FROM DB_TABLE
2161 -- WHERE DB_COLUMN = p_currency_code;
2162
2163 RETURN TRUE;
2164
2165 EXCEPTION
2166
2167 WHEN NO_DATA_FOUND THEN
2168
2169 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
2170 THEN
2171
2172 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
2173 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','currency');
2174 OE_MSG_PUB.Add;
2175
2176 END IF;
2177
2178 RETURN FALSE;
2179
2180 WHEN OTHERS THEN
2181
2182 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2183 THEN
2184 OE_MSG_PUB.Add_Exc_Msg
2185 ( G_PKG_NAME
2186 , 'Currency'
2187 );
2188 END IF;
2189
2190 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2191
2192 END Currency;
2193
2194 FUNCTION Description ( p_description IN VARCHAR2 )
2195 RETURN BOOLEAN
2196 IS
2197 l_dummy VARCHAR2(10);
2198 BEGIN
2199
2200 IF p_description IS NULL OR
2201 p_description = FND_API.G_MISS_CHAR
2202 THEN
2203 RETURN TRUE;
2204 END IF;
2205
2206 -- SELECT 'VALID'
2207 -- INTO l_dummy
2208 -- FROM DB_TABLE
2209 -- WHERE DB_COLUMN = p_description;
2210
2211 RETURN TRUE;
2212
2213 EXCEPTION
2214
2215 WHEN NO_DATA_FOUND THEN
2216
2217 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
2218 THEN
2219
2220 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
2221 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','description');
2222 OE_MSG_PUB.Add;
2223
2224 END IF;
2225
2226 RETURN FALSE;
2227
2228 WHEN OTHERS THEN
2229
2230 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2231 THEN
2232 OE_MSG_PUB.Add_Exc_Msg
2233 ( G_PKG_NAME
2234 , 'Description'
2235 );
2236 END IF;
2237
2238 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2239
2240 END Description;
2241
2242 FUNCTION Program_Application ( p_program_application_id IN NUMBER )
2243 RETURN BOOLEAN
2244 IS
2245 l_dummy VARCHAR2(10);
2246 BEGIN
2247
2248 IF p_program_application_id IS NULL OR
2249 p_program_application_id = FND_API.G_MISS_NUM
2250 THEN
2251 RETURN TRUE;
2252 END IF;
2253
2254 -- SELECT 'VALID'
2255 -- INTO l_dummy
2256 -- FROM DB_TABLE
2257 -- WHERE DB_COLUMN = p_program_application_id;
2258
2259 RETURN TRUE;
2260
2261 EXCEPTION
2262
2263 WHEN NO_DATA_FOUND THEN
2264
2265 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
2266 THEN
2267
2268 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
2269 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','program_application');
2270 OE_MSG_PUB.Add;
2271
2272 END IF;
2273
2274 RETURN FALSE;
2275
2276 WHEN OTHERS THEN
2277
2278 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2279 THEN
2280 OE_MSG_PUB.Add_Exc_Msg
2281 ( G_PKG_NAME
2282 , 'Program_Application'
2283 );
2284 END IF;
2285
2286 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2287
2288 END Program_Application;
2289
2290 FUNCTION Program ( p_program_id IN NUMBER )
2291 RETURN BOOLEAN
2292 IS
2293 l_dummy VARCHAR2(10);
2294 BEGIN
2295
2296 IF p_program_id IS NULL OR
2297 p_program_id = FND_API.G_MISS_NUM
2298 THEN
2299 RETURN TRUE;
2300 END IF;
2301
2302 -- SELECT 'VALID'
2303 -- INTO l_dummy
2304 -- FROM DB_TABLE
2305 -- WHERE DB_COLUMN = p_program_id;
2306
2307 RETURN TRUE;
2308
2309 EXCEPTION
2310
2311 WHEN NO_DATA_FOUND THEN
2312
2313 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
2314 THEN
2315
2316 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
2317 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','program');
2318 OE_MSG_PUB.Add;
2319
2320 END IF;
2321
2322 RETURN FALSE;
2323
2324 WHEN OTHERS THEN
2325
2326 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2327 THEN
2328 OE_MSG_PUB.Add_Exc_Msg
2329 ( G_PKG_NAME
2330 , 'Program'
2331 );
2332 END IF;
2333
2334 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2335
2336 END Program;
2337
2338 FUNCTION Program_Update_Date ( p_program_update_date IN DATE )
2339 RETURN BOOLEAN
2340 IS
2341 l_dummy VARCHAR2(10);
2342 BEGIN
2343
2344 IF p_program_update_date IS NULL OR
2345 p_program_update_date = FND_API.G_MISS_DATE
2346 THEN
2347 RETURN TRUE;
2348 END IF;
2349
2350 -- SELECT 'VALID'
2351 -- INTO l_dummy
2352 -- FROM DB_TABLE
2353 -- WHERE DB_COLUMN = p_program_update_date;
2354
2355 RETURN TRUE;
2356
2357 EXCEPTION
2358
2359 WHEN NO_DATA_FOUND THEN
2360
2361 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
2362 THEN
2363
2364 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
2365 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','program_update_date');
2366 OE_MSG_PUB.Add;
2367
2368 END IF;
2369
2370 RETURN FALSE;
2371
2372 WHEN OTHERS THEN
2373
2374 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2375 THEN
2376 OE_MSG_PUB.Add_Exc_Msg
2377 ( G_PKG_NAME
2378 , 'Program_Update_Date'
2379 );
2380 END IF;
2381
2382 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2383
2384 END Program_Update_Date;
2385
2386 FUNCTION Request ( p_request_id IN NUMBER )
2387 RETURN BOOLEAN
2388 IS
2389 l_dummy VARCHAR2(10);
2390 BEGIN
2391
2392 IF p_request_id IS NULL OR
2393 p_request_id = FND_API.G_MISS_NUM
2394 THEN
2395 RETURN TRUE;
2396 END IF;
2397
2398 -- SELECT 'VALID'
2399 -- INTO l_dummy
2400 -- FROM DB_TABLE
2401 -- WHERE DB_COLUMN = p_request_id;
2402
2403 RETURN TRUE;
2404
2405 EXCEPTION
2406
2407 WHEN NO_DATA_FOUND THEN
2408
2409 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
2410 THEN
2411
2412 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
2413 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','request');
2414 OE_MSG_PUB.Add;
2415
2416 END IF;
2417
2418 RETURN FALSE;
2419
2420 WHEN OTHERS THEN
2421
2422 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2423 THEN
2424 OE_MSG_PUB.Add_Exc_Msg
2425 ( G_PKG_NAME
2426 , 'Request'
2427 );
2428 END IF;
2429
2430 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2431
2432 END Request;
2433
2434 FUNCTION Rounding_Factor ( p_rounding_factor IN NUMBER )
2435 RETURN BOOLEAN
2436 IS
2440 IF p_rounding_factor IS NULL OR
2437 l_dummy VARCHAR2(10);
2438 BEGIN
2439
2441 p_rounding_factor = FND_API.G_MISS_NUM
2442 THEN
2443 RETURN TRUE;
2444 END IF;
2445
2446 -- SELECT 'VALID'
2447 -- INTO l_dummy
2448 -- FROM DB_TABLE
2449 -- WHERE DB_COLUMN = p_rounding_factor;
2450
2451 RETURN TRUE;
2452
2453 EXCEPTION
2454
2455 WHEN NO_DATA_FOUND THEN
2456
2457 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
2458 THEN
2459
2460 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
2461 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','rounding_factor');
2462 OE_MSG_PUB.Add;
2463
2464 END IF;
2465
2466 RETURN FALSE;
2467
2468 WHEN OTHERS THEN
2469
2470 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2471 THEN
2472 OE_MSG_PUB.Add_Exc_Msg
2473 ( G_PKG_NAME
2474 , 'Rounding_Factor'
2475 );
2476 END IF;
2477
2478 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2479
2480 END Rounding_Factor;
2481
2482 FUNCTION Secondary_Price_List ( p_secondary_price_list_id IN NUMBER )
2483 RETURN BOOLEAN
2484 IS
2485 l_dummy VARCHAR2(10);
2486 BEGIN
2487
2488 IF p_secondary_price_list_id IS NULL OR
2489 p_secondary_price_list_id = FND_API.G_MISS_NUM
2490 THEN
2491 RETURN TRUE;
2492 END IF;
2493
2494 -- SELECT 'VALID'
2495 -- INTO l_dummy
2496 -- FROM DB_TABLE
2497 -- WHERE DB_COLUMN = p_secondary_price_list_id;
2498
2499 RETURN TRUE;
2500
2501 EXCEPTION
2502
2503 WHEN NO_DATA_FOUND THEN
2504
2505 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
2506 THEN
2507
2508 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
2509 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','secondary_price_list');
2510 OE_MSG_PUB.Add;
2511
2512 END IF;
2513
2514 RETURN FALSE;
2515
2516 WHEN OTHERS THEN
2517
2518 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2519 THEN
2520 OE_MSG_PUB.Add_Exc_Msg
2521 ( G_PKG_NAME
2522 , 'Secondary_Price_List'
2523 );
2524 END IF;
2525
2526 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2527
2528 END Secondary_Price_List;
2529
2530 FUNCTION Terms ( p_terms_id IN NUMBER )
2531 RETURN BOOLEAN
2532 IS
2533 l_dummy VARCHAR2(10);
2534 BEGIN
2535
2536 IF p_terms_id IS NULL OR
2537 p_terms_id = FND_API.G_MISS_NUM
2538 THEN
2539 RETURN TRUE;
2540 END IF;
2541
2542 -- SELECT 'VALID'
2543 -- INTO l_dummy
2544 -- FROM DB_TABLE
2545 -- WHERE DB_COLUMN = p_terms_id;
2546
2547 RETURN TRUE;
2548
2549 EXCEPTION
2550
2551 WHEN NO_DATA_FOUND THEN
2552
2553 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
2554 THEN
2555
2556 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
2557 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','terms');
2558 OE_MSG_PUB.Add;
2559
2560 END IF;
2561
2562 RETURN FALSE;
2563
2564 WHEN OTHERS THEN
2565
2566 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2567 THEN
2568 OE_MSG_PUB.Add_Exc_Msg
2569 ( G_PKG_NAME
2570 , 'Terms'
2571 );
2572 END IF;
2573
2574 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2575
2576 END Terms;
2577
2578
2579 FUNCTION Amount ( p_amount IN NUMBER )
2580 RETURN BOOLEAN
2581 IS
2582 l_dummy VARCHAR2(10);
2583 BEGIN
2584
2585 IF p_amount IS NULL OR
2586 p_amount = FND_API.G_MISS_NUM
2587 THEN
2588 RETURN TRUE;
2589 END IF;
2590
2591 -- SELECT 'VALID'
2592 -- INTO l_dummy
2593 -- FROM DB_TABLE
2594 -- WHERE DB_COLUMN = p_amount;
2595
2596 RETURN TRUE;
2597
2598 EXCEPTION
2599
2600 WHEN NO_DATA_FOUND THEN
2601
2602 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
2603 THEN
2604
2605 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
2606 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','amount');
2607 OE_MSG_PUB.Add;
2608
2609 END IF;
2610
2611 RETURN FALSE;
2612
2613 WHEN OTHERS THEN
2614
2615 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2616 THEN
2617 OE_MSG_PUB.Add_Exc_Msg
2618 ( G_PKG_NAME
2619 , 'Amount'
2620 );
2621 END IF;
2622
2623 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2624
2625 END Amount;
2626
2627 FUNCTION Automatic_Discount ( p_automatic_discount_flag IN VARCHAR2 )
2628 RETURN BOOLEAN
2629 IS
2630 l_dummy VARCHAR2(10);
2631 BEGIN
2632
2633 IF p_automatic_discount_flag IS NULL OR
2634 p_automatic_discount_flag = FND_API.G_MISS_CHAR
2635 THEN
2636 RETURN TRUE;
2637 END IF;
2638
2639 -- SELECT 'VALID'
2640 -- INTO l_dummy
2641 -- FROM DB_TABLE
2642 -- WHERE DB_COLUMN = p_automatic_discount_flag;
2643
2644 RETURN TRUE;
2645
2646 EXCEPTION
2647
2648 WHEN NO_DATA_FOUND THEN
2649
2650 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
2651 THEN
2652
2653 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
2654 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','automatic_discount');
2655 OE_MSG_PUB.Add;
2656
2657 END IF;
2658
2659 RETURN FALSE;
2660
2661 WHEN OTHERS THEN
2662
2663 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2664 THEN
2665 OE_MSG_PUB.Add_Exc_Msg
2666 ( G_PKG_NAME
2667 , 'Automatic_Discount'
2668 );
2669 END IF;
2670
2671 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2672
2673 END Automatic_Discount;
2674
2675 FUNCTION Discount_Lines ( p_discount_lines_flag IN VARCHAR2 )
2676 RETURN BOOLEAN
2677 IS
2678 l_dummy VARCHAR2(10);
2679 BEGIN
2680
2681 IF p_discount_lines_flag IS NULL OR
2682 p_discount_lines_flag = FND_API.G_MISS_CHAR
2683 THEN
2684 RETURN TRUE;
2685 END IF;
2686
2687 -- SELECT 'VALID'
2688 -- INTO l_dummy
2689 -- FROM DB_TABLE
2690 -- WHERE DB_COLUMN = p_discount_lines_flag;
2691
2692 RETURN TRUE;
2693
2694 EXCEPTION
2695
2696 WHEN NO_DATA_FOUND THEN
2697
2698 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
2699 THEN
2700
2701 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
2702 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','discount_lines');
2703 OE_MSG_PUB.Add;
2704
2705 END IF;
2706
2707 RETURN FALSE;
2708
2709 WHEN OTHERS THEN
2710
2711 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2712 THEN
2713 OE_MSG_PUB.Add_Exc_Msg
2714 ( G_PKG_NAME
2715 , 'Discount_Lines'
2716 );
2717 END IF;
2718
2719 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2720
2721 END Discount_Lines;
2722
2723 FUNCTION Discount_Type ( p_discount_type_code IN VARCHAR2 )
2724 RETURN BOOLEAN
2725 IS
2726 l_dummy VARCHAR2(10);
2727 BEGIN
2728
2729 IF p_discount_type_code IS NULL OR
2730 p_discount_type_code = FND_API.G_MISS_CHAR
2731 THEN
2732 RETURN TRUE;
2733 END IF;
2734
2735 -- SELECT 'VALID'
2736 -- INTO l_dummy
2737 -- FROM DB_TABLE
2738 -- WHERE DB_COLUMN = p_discount_type_code;
2739
2740 RETURN TRUE;
2741
2742 EXCEPTION
2743
2744 WHEN NO_DATA_FOUND THEN
2745
2746 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
2747 THEN
2748
2749 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
2750 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','discount_type');
2751 OE_MSG_PUB.Add;
2752
2753 END IF;
2754
2755 RETURN FALSE;
2756
2757 WHEN OTHERS THEN
2758
2759 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2760 THEN
2761 OE_MSG_PUB.Add_Exc_Msg
2762 ( G_PKG_NAME
2763 , 'Discount_Type'
2764 );
2765 END IF;
2766
2767 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2768
2769 END Discount_Type;
2770
2771 FUNCTION Gsa_Indicator ( p_gsa_indicator IN VARCHAR2 )
2772 RETURN BOOLEAN
2773 IS
2774 l_dummy VARCHAR2(10);
2775 BEGIN
2776
2777 IF p_gsa_indicator IS NULL OR
2778 p_gsa_indicator = FND_API.G_MISS_CHAR
2779 THEN
2780 RETURN TRUE;
2781 END IF;
2782
2783 -- SELECT 'VALID'
2784 -- INTO l_dummy
2785 -- FROM DB_TABLE
2786 -- WHERE DB_COLUMN = p_gsa_indicator;
2787
2788 RETURN TRUE;
2789
2790 EXCEPTION
2791
2792 WHEN NO_DATA_FOUND THEN
2793
2794 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
2795 THEN
2796
2797 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
2798 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','gsa_indicator');
2799 OE_MSG_PUB.Add;
2800
2801 END IF;
2802
2803 RETURN FALSE;
2804
2805 WHEN OTHERS THEN
2806
2807 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2808 THEN
2809 OE_MSG_PUB.Add_Exc_Msg
2810 ( G_PKG_NAME
2811 , 'Gsa_Indicator'
2812 );
2813 END IF;
2814
2815 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2816
2817 END Gsa_Indicator;
2818
2819 FUNCTION Manual_Discount ( p_manual_discount_flag IN VARCHAR2 )
2820 RETURN BOOLEAN
2821 IS
2822 l_dummy VARCHAR2(10);
2823 BEGIN
2824
2825 IF p_manual_discount_flag IS NULL OR
2826 p_manual_discount_flag = FND_API.G_MISS_CHAR
2827 THEN
2828 RETURN TRUE;
2829 END IF;
2830
2831 -- SELECT 'VALID'
2832 -- INTO l_dummy
2833 -- FROM DB_TABLE
2834 -- WHERE DB_COLUMN = p_manual_discount_flag;
2835
2836 RETURN TRUE;
2837
2838 EXCEPTION
2839
2840 WHEN NO_DATA_FOUND THEN
2841
2842 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
2843 THEN
2844
2845 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
2846 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','manual_discount');
2847 OE_MSG_PUB.Add;
2848
2849 END IF;
2850
2851 RETURN FALSE;
2852
2853 WHEN OTHERS THEN
2854
2855 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2856 THEN
2857 OE_MSG_PUB.Add_Exc_Msg
2858 ( G_PKG_NAME
2859 , 'Manual_Discount'
2860 );
2861 END IF;
2862
2863 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2864
2865 END Manual_Discount;
2866
2867 FUNCTION Override_Allowed ( p_override_allowed_flag IN VARCHAR2 )
2868 RETURN BOOLEAN
2869 IS
2870 l_dummy VARCHAR2(10);
2871 BEGIN
2872
2873 IF p_override_allowed_flag IS NULL OR
2874 p_override_allowed_flag = FND_API.G_MISS_CHAR
2875 THEN
2876 RETURN TRUE;
2877 END IF;
2878
2879 -- SELECT 'VALID'
2880 -- INTO l_dummy
2881 -- FROM DB_TABLE
2882 -- WHERE DB_COLUMN = p_override_allowed_flag;
2883
2884 RETURN TRUE;
2885
2886 EXCEPTION
2887
2888 WHEN NO_DATA_FOUND THEN
2889
2890 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
2891 THEN
2892
2893 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
2894 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','override_allowed');
2895 OE_MSG_PUB.Add;
2896
2897 END IF;
2898
2899 RETURN FALSE;
2900
2901 WHEN OTHERS THEN
2902
2903 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2904 THEN
2905 OE_MSG_PUB.Add_Exc_Msg
2906 ( G_PKG_NAME
2907 , 'Override_Allowed'
2908 );
2909 END IF;
2910
2911 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2912
2913 END Override_Allowed;
2914
2915 FUNCTION Percent ( p_percent IN NUMBER )
2916 RETURN BOOLEAN
2917 IS
2918 l_dummy VARCHAR2(10);
2919 BEGIN
2920
2921 IF p_percent IS NULL OR
2922 p_percent = FND_API.G_MISS_NUM
2923 THEN
2924 RETURN TRUE;
2925 END IF;
2926
2927 -- SELECT 'VALID'
2928 -- INTO l_dummy
2929 -- FROM DB_TABLE
2930 -- WHERE DB_COLUMN = p_percent;
2931
2932 RETURN TRUE;
2933
2934 EXCEPTION
2935
2936 WHEN NO_DATA_FOUND THEN
2937
2938 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
2939 THEN
2940
2941 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
2942 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','percent');
2943 OE_MSG_PUB.Add;
2944
2945 END IF;
2946
2947 RETURN FALSE;
2948
2949 WHEN OTHERS THEN
2950
2951 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2952 THEN
2953 OE_MSG_PUB.Add_Exc_Msg
2954 ( G_PKG_NAME
2955 , 'Percent'
2956 );
2957 END IF;
2958
2959 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2960
2961 END Percent;
2962
2963 FUNCTION Prorate ( p_prorate_flag IN VARCHAR2 )
2964 RETURN BOOLEAN
2965 IS
2966 l_dummy VARCHAR2(10);
2967 BEGIN
2968
2969 IF p_prorate_flag IS NULL OR
2970 p_prorate_flag = FND_API.G_MISS_CHAR
2971 THEN
2972 RETURN TRUE;
2973 END IF;
2974
2975 -- SELECT 'VALID'
2976 -- INTO l_dummy
2977 -- FROM DB_TABLE
2978 -- WHERE DB_COLUMN = p_prorate_flag;
2979
2980 RETURN TRUE;
2981
2982 EXCEPTION
2983
2984 WHEN NO_DATA_FOUND THEN
2985
2986 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
2987 THEN
2988
2989 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
2990 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','prorate');
2991 OE_MSG_PUB.Add;
2992
2993 END IF;
2994
2995 RETURN FALSE;
2996
2997 WHEN OTHERS THEN
2998
2999 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3000 THEN
3001 OE_MSG_PUB.Add_Exc_Msg
3002 ( G_PKG_NAME
3003 , 'Prorate'
3004 );
3005 END IF;
3006
3007 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3008
3009 END Prorate;
3010
3011
3012 FUNCTION Customer_Item ( p_customer_item_id IN NUMBER )
3013 RETURN BOOLEAN
3014 IS
3015 l_dummy VARCHAR2(10);
3016 BEGIN
3017
3018 IF p_customer_item_id IS NULL OR
3019 p_customer_item_id = FND_API.G_MISS_NUM
3020 THEN
3021 RETURN TRUE;
3022 END IF;
3023
3024 -- SELECT 'VALID'
3025 -- INTO l_dummy
3026 -- FROM DB_TABLE
3027 -- WHERE DB_COLUMN = p_customer_item_id;
3028
3029 RETURN TRUE;
3030
3031 EXCEPTION
3032
3033 WHEN NO_DATA_FOUND THEN
3034
3035 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
3036 THEN
3037
3038 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
3039 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','customer_item');
3040 OE_MSG_PUB.Add;
3041
3042 END IF;
3043
3044 RETURN FALSE;
3045
3046 WHEN OTHERS THEN
3047
3048 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3049 THEN
3050 OE_MSG_PUB.Add_Exc_Msg
3051 ( G_PKG_NAME
3052 , 'Customer_Item'
3053 );
3054 END IF;
3055
3056 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3057
3058 END Customer_Item;
3059
3060 FUNCTION Inventory_Item ( p_inventory_item_id IN NUMBER,
3061 p_organization_id IN NUMBER DEFAULT FND_API.G_MISS_NUM)
3062 RETURN BOOLEAN
3063 IS
3064 l_dummy VARCHAR2(10);
3065 x_unit_code VARCHAR2(3) := '';
3066 x_service_item_flag VARCHAR2(1) := '';
3067
3068 BEGIN
3069
3070 IF (p_inventory_item_id IS NULL OR
3071 p_inventory_item_id = FND_API.G_MISS_NUM)
3072 OR (p_organization_id is NULL OR
3073 p_organization_id = FND_API.G_MISS_NUM)
3074 THEN
3075 RETURN TRUE;
3076 ELSE
3077 OE_Validate_Attr.getservitemflag(p_inventory_item_id,
3078 p_organization_id,
3079 x_unit_code,
3080 x_service_item_flag);
3081
3082
3083 END IF;
3084
3085 -- SELECT 'VALID'
3086 -- INTO l_dummy
3087 -- FROM DB_TABLE
3088 -- WHERE DB_COLUMN = p_inventory_item_id;
3089
3090 RETURN TRUE;
3091
3092 EXCEPTION
3093
3094 WHEN NO_DATA_FOUND THEN
3095
3096 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
3097 THEN
3098
3099 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
3100 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','inventory_item');
3101 OE_MSG_PUB.Add;
3102
3103 END IF;
3104
3105 RETURN FALSE;
3106
3107 WHEN OTHERS THEN
3108
3109 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3110 THEN
3111 OE_MSG_PUB.Add_Exc_Msg
3112 ( G_PKG_NAME
3113 , 'Inventory_Item'
3114 );
3115 END IF;
3116
3117 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3118
3119 END Inventory_Item;
3120
3121 FUNCTION List_Price ( p_list_price IN NUMBER )
3122 RETURN BOOLEAN
3123 IS
3124 l_dummy VARCHAR2(10);
3125 BEGIN
3126
3127 IF p_list_price IS NULL OR
3128 p_list_price = FND_API.G_MISS_NUM
3129 THEN
3130 RETURN TRUE;
3131 END IF;
3132
3133 -- SELECT 'VALID'
3134 -- INTO l_dummy
3135 -- FROM DB_TABLE
3136 -- WHERE DB_COLUMN = p_list_price;
3137
3138 RETURN TRUE;
3139
3140 EXCEPTION
3141
3142 WHEN NO_DATA_FOUND THEN
3143
3144 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
3145 THEN
3146
3147 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
3148 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','list_price');
3149 OE_MSG_PUB.Add;
3150
3151 END IF;
3152
3153 RETURN FALSE;
3157 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3154
3155 WHEN OTHERS THEN
3156
3158 THEN
3159 OE_MSG_PUB.Add_Exc_Msg
3160 ( G_PKG_NAME
3161 , 'List_Price'
3162 );
3163 END IF;
3164
3165 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3166
3167 END List_Price;
3168
3169 FUNCTION Method ( p_method_code IN VARCHAR2 )
3170 RETURN BOOLEAN
3171 IS
3172 l_dummy VARCHAR2(10);
3173 BEGIN
3174
3175 IF p_method_code IS NULL OR
3176 p_method_code = FND_API.G_MISS_CHAR
3177 THEN
3178 RETURN TRUE;
3179 END IF;
3180
3181 -- SELECT 'VALID'
3182 -- INTO l_dummy
3183 -- FROM DB_TABLE
3184 -- WHERE DB_COLUMN = p_method_code;
3185
3186 RETURN TRUE;
3187
3188 EXCEPTION
3189
3190 WHEN NO_DATA_FOUND THEN
3191
3192 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
3193 THEN
3194
3195 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
3196 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','method');
3197 OE_MSG_PUB.Add;
3198
3199 END IF;
3200
3201 RETURN FALSE;
3202
3203 WHEN OTHERS THEN
3204
3205 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3206 THEN
3207 OE_MSG_PUB.Add_Exc_Msg
3208 ( G_PKG_NAME
3209 , 'Method'
3210 );
3211 END IF;
3212
3213 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3214
3215 END Method;
3216
3217 FUNCTION Price_List_Line ( p_price_list_line_id IN NUMBER )
3218 RETURN BOOLEAN
3219 IS
3220 l_dummy VARCHAR2(10);
3221 BEGIN
3222
3223 IF p_price_list_line_id IS NULL OR
3224 p_price_list_line_id = FND_API.G_MISS_NUM
3225 THEN
3226 RETURN TRUE;
3227 END IF;
3228
3229 -- SELECT 'VALID'
3230 -- INTO l_dummy
3231 -- FROM DB_TABLE
3232 -- WHERE DB_COLUMN = p_price_list_line_id;
3233
3234 RETURN TRUE;
3235
3236 EXCEPTION
3237
3238 WHEN NO_DATA_FOUND THEN
3239
3240 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
3241 THEN
3242
3243 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
3244 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','price_list_line');
3245 OE_MSG_PUB.Add;
3246
3247 END IF;
3248
3249 RETURN FALSE;
3250
3251 WHEN OTHERS THEN
3252
3253 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3254 THEN
3255 OE_MSG_PUB.Add_Exc_Msg
3256 ( G_PKG_NAME
3257 , 'Price_List_Line'
3258 );
3259 END IF;
3260
3261 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3262
3263 END Price_List_Line;
3264
3265 FUNCTION Pricing_Attribute1 ( p_pricing_attribute1 IN VARCHAR2 )
3266 RETURN BOOLEAN
3267 IS
3268 l_dummy VARCHAR2(10);
3269 BEGIN
3270
3271 IF p_pricing_attribute1 IS NULL OR
3272 p_pricing_attribute1 = FND_API.G_MISS_CHAR
3273 THEN
3274 RETURN TRUE;
3275 END IF;
3276
3277 -- SELECT 'VALID'
3278 -- INTO l_dummy
3279 -- FROM DB_TABLE
3280 -- WHERE DB_COLUMN = p_pricing_attribute1;
3281
3282 RETURN TRUE;
3283
3284 EXCEPTION
3285
3286 WHEN NO_DATA_FOUND THEN
3287
3288 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
3289 THEN
3290
3291 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
3292 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','pricing_attribute1');
3293 OE_MSG_PUB.Add;
3294
3295 END IF;
3296
3297 RETURN FALSE;
3298
3299 WHEN OTHERS THEN
3300
3301 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3302 THEN
3303 OE_MSG_PUB.Add_Exc_Msg
3304 ( G_PKG_NAME
3305 , 'Pricing_Attribute1'
3306 );
3307 END IF;
3308
3309 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3310
3311 END Pricing_Attribute1;
3312
3313 FUNCTION Pricing_Attribute10 ( p_pricing_attribute10 IN VARCHAR2 )
3314 RETURN BOOLEAN
3315 IS
3316 l_dummy VARCHAR2(10);
3317 BEGIN
3318
3319 IF p_pricing_attribute10 IS NULL OR
3320 p_pricing_attribute10 = FND_API.G_MISS_CHAR
3321 THEN
3322 RETURN TRUE;
3323 END IF;
3324
3325 -- SELECT 'VALID'
3326 -- INTO l_dummy
3327 -- FROM DB_TABLE
3328 -- WHERE DB_COLUMN = p_pricing_attribute10;
3329
3330 RETURN TRUE;
3331
3332 EXCEPTION
3333
3334 WHEN NO_DATA_FOUND THEN
3335
3339 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
3336 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
3337 THEN
3338
3340 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','pricing_attribute10');
3341 OE_MSG_PUB.Add;
3342
3343 END IF;
3344
3345 RETURN FALSE;
3346
3347 WHEN OTHERS THEN
3348
3349 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3350 THEN
3351 OE_MSG_PUB.Add_Exc_Msg
3352 ( G_PKG_NAME
3353 , 'Pricing_Attribute10'
3354 );
3355 END IF;
3356
3357 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3358
3359 END Pricing_Attribute10;
3360
3361 FUNCTION Pricing_Attribute11 ( p_pricing_attribute11 IN VARCHAR2 )
3362 RETURN BOOLEAN
3363 IS
3364 l_dummy VARCHAR2(10);
3365 BEGIN
3366
3367 IF p_pricing_attribute11 IS NULL OR
3368 p_pricing_attribute11 = FND_API.G_MISS_CHAR
3369 THEN
3370 RETURN TRUE;
3371 END IF;
3372
3373 -- SELECT 'VALID'
3374 -- INTO l_dummy
3375 -- FROM DB_TABLE
3376 -- WHERE DB_COLUMN = p_pricing_attribute11;
3377
3378 RETURN TRUE;
3379
3380 EXCEPTION
3381
3382 WHEN NO_DATA_FOUND THEN
3383
3384 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
3385 THEN
3386
3387 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
3388 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','pricing_attribute11');
3389 OE_MSG_PUB.Add;
3390
3391 END IF;
3392
3393 RETURN FALSE;
3394
3395 WHEN OTHERS THEN
3396
3397 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3398 THEN
3399 OE_MSG_PUB.Add_Exc_Msg
3400 ( G_PKG_NAME
3401 , 'Pricing_Attribute11'
3402 );
3403 END IF;
3404
3405 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3406
3407 END Pricing_Attribute11;
3408
3409 FUNCTION Pricing_Attribute12 ( p_pricing_attribute12 IN VARCHAR2 )
3410 RETURN BOOLEAN
3411 IS
3412 l_dummy VARCHAR2(10);
3413 BEGIN
3414
3415 IF p_pricing_attribute12 IS NULL OR
3416 p_pricing_attribute12 = FND_API.G_MISS_CHAR
3417 THEN
3418 RETURN TRUE;
3419 END IF;
3420
3421 -- SELECT 'VALID'
3422 -- INTO l_dummy
3423 -- FROM DB_TABLE
3424 -- WHERE DB_COLUMN = p_pricing_attribute12;
3425
3426 RETURN TRUE;
3427
3428 EXCEPTION
3429
3430 WHEN NO_DATA_FOUND THEN
3431
3432 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
3433 THEN
3434
3435 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
3436 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','pricing_attribute12');
3437 OE_MSG_PUB.Add;
3438
3439 END IF;
3440
3441 RETURN FALSE;
3442
3443 WHEN OTHERS THEN
3444
3445 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3446 THEN
3447 OE_MSG_PUB.Add_Exc_Msg
3448 ( G_PKG_NAME
3449 , 'Pricing_Attribute12'
3450 );
3451 END IF;
3452
3453 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3454
3455 END Pricing_Attribute12;
3456
3457 FUNCTION Pricing_Attribute13 ( p_pricing_attribute13 IN VARCHAR2 )
3458 RETURN BOOLEAN
3459 IS
3460 l_dummy VARCHAR2(10);
3461 BEGIN
3462
3463 IF p_pricing_attribute13 IS NULL OR
3464 p_pricing_attribute13 = FND_API.G_MISS_CHAR
3465 THEN
3466 RETURN TRUE;
3467 END IF;
3468
3469 -- SELECT 'VALID'
3470 -- INTO l_dummy
3471 -- FROM DB_TABLE
3472 -- WHERE DB_COLUMN = p_pricing_attribute13;
3473
3474 RETURN TRUE;
3475
3476 EXCEPTION
3477
3478 WHEN NO_DATA_FOUND THEN
3479
3480 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
3481 THEN
3482
3483 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
3484 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','pricing_attribute13');
3485 OE_MSG_PUB.Add;
3486
3487 END IF;
3488
3489 RETURN FALSE;
3490
3491 WHEN OTHERS THEN
3492
3493 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3494 THEN
3495 OE_MSG_PUB.Add_Exc_Msg
3496 ( G_PKG_NAME
3497 , 'Pricing_Attribute13'
3498 );
3499 END IF;
3500
3501 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3502
3503 END Pricing_Attribute13;
3504
3505 FUNCTION Pricing_Attribute14 ( p_pricing_attribute14 IN VARCHAR2 )
3506 RETURN BOOLEAN
3507 IS
3508 l_dummy VARCHAR2(10);
3509 BEGIN
3510
3514 RETURN TRUE;
3511 IF p_pricing_attribute14 IS NULL OR
3512 p_pricing_attribute14 = FND_API.G_MISS_CHAR
3513 THEN
3515 END IF;
3516
3517 -- SELECT 'VALID'
3518 -- INTO l_dummy
3519 -- FROM DB_TABLE
3520 -- WHERE DB_COLUMN = p_pricing_attribute14;
3521
3522 RETURN TRUE;
3523
3524 EXCEPTION
3525
3526 WHEN NO_DATA_FOUND THEN
3527
3528 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
3529 THEN
3530
3531 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
3532 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','pricing_attribute14');
3533 OE_MSG_PUB.Add;
3534
3535 END IF;
3536
3537 RETURN FALSE;
3538
3539 WHEN OTHERS THEN
3540
3541 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3542 THEN
3543 OE_MSG_PUB.Add_Exc_Msg
3544 ( G_PKG_NAME
3545 , 'Pricing_Attribute14'
3546 );
3547 END IF;
3548
3549 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3550
3551 END Pricing_Attribute14;
3552
3553 FUNCTION Pricing_Attribute15 ( p_pricing_attribute15 IN VARCHAR2 )
3554 RETURN BOOLEAN
3555 IS
3556 l_dummy VARCHAR2(10);
3557 BEGIN
3558
3559 IF p_pricing_attribute15 IS NULL OR
3560 p_pricing_attribute15 = FND_API.G_MISS_CHAR
3561 THEN
3562 RETURN TRUE;
3563 END IF;
3564
3565 -- SELECT 'VALID'
3566 -- INTO l_dummy
3567 -- FROM DB_TABLE
3568 -- WHERE DB_COLUMN = p_pricing_attribute15;
3569
3570 RETURN TRUE;
3571
3572 EXCEPTION
3573
3574 WHEN NO_DATA_FOUND THEN
3575
3576 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
3577 THEN
3578
3579 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
3580 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','pricing_attribute15');
3581 OE_MSG_PUB.Add;
3582
3583 END IF;
3584
3585 RETURN FALSE;
3586
3587 WHEN OTHERS THEN
3588
3589 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3590 THEN
3591 OE_MSG_PUB.Add_Exc_Msg
3592 ( G_PKG_NAME
3593 , 'Pricing_Attribute15'
3594 );
3595 END IF;
3596
3597 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3598
3599 END Pricing_Attribute15;
3600
3601 FUNCTION Pricing_Attribute2 ( p_pricing_attribute2 IN VARCHAR2 )
3602 RETURN BOOLEAN
3603 IS
3604 l_dummy VARCHAR2(10);
3605 BEGIN
3606
3607 IF p_pricing_attribute2 IS NULL OR
3608 p_pricing_attribute2 = FND_API.G_MISS_CHAR
3609 THEN
3610 RETURN TRUE;
3611 END IF;
3612
3613 -- SELECT 'VALID'
3614 -- INTO l_dummy
3615 -- FROM DB_TABLE
3616 -- WHERE DB_COLUMN = p_pricing_attribute2;
3617
3618 RETURN TRUE;
3619
3620 EXCEPTION
3621
3622 WHEN NO_DATA_FOUND THEN
3623
3624 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
3625 THEN
3626
3627 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
3628 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','pricing_attribute2');
3629 OE_MSG_PUB.Add;
3630
3631 END IF;
3632
3633 RETURN FALSE;
3634
3635 WHEN OTHERS THEN
3636
3637 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3638 THEN
3639 OE_MSG_PUB.Add_Exc_Msg
3640 ( G_PKG_NAME
3641 , 'Pricing_Attribute2'
3642 );
3643 END IF;
3644
3645 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3646
3647 END Pricing_Attribute2;
3648
3649 FUNCTION Pricing_Attribute3 ( p_pricing_attribute3 IN VARCHAR2 )
3650 RETURN BOOLEAN
3651 IS
3652 l_dummy VARCHAR2(10);
3653 BEGIN
3654
3655 IF p_pricing_attribute3 IS NULL OR
3656 p_pricing_attribute3 = FND_API.G_MISS_CHAR
3657 THEN
3658 RETURN TRUE;
3659 END IF;
3660
3661 -- SELECT 'VALID'
3662 -- INTO l_dummy
3663 -- FROM DB_TABLE
3664 -- WHERE DB_COLUMN = p_pricing_attribute3;
3665
3666 RETURN TRUE;
3667
3668 EXCEPTION
3669
3670 WHEN NO_DATA_FOUND THEN
3671
3672 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
3673 THEN
3674
3675 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
3676 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','pricing_attribute3');
3677 OE_MSG_PUB.Add;
3678
3679 END IF;
3680
3681 RETURN FALSE;
3682
3683 WHEN OTHERS THEN
3684
3685 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3686 THEN
3687 OE_MSG_PUB.Add_Exc_Msg
3688 ( G_PKG_NAME
3689 , 'Pricing_Attribute3'
3690 );
3691 END IF;
3692
3693 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3694
3695 END Pricing_Attribute3;
3696
3697 FUNCTION Pricing_Attribute4 ( p_pricing_attribute4 IN VARCHAR2 )
3698 RETURN BOOLEAN
3699 IS
3700 l_dummy VARCHAR2(10);
3701 BEGIN
3702
3703 IF p_pricing_attribute4 IS NULL OR
3704 p_pricing_attribute4 = FND_API.G_MISS_CHAR
3705 THEN
3706 RETURN TRUE;
3707 END IF;
3708
3709 -- SELECT 'VALID'
3710 -- INTO l_dummy
3711 -- FROM DB_TABLE
3712 -- WHERE DB_COLUMN = p_pricing_attribute4;
3713
3714 RETURN TRUE;
3715
3716 EXCEPTION
3717
3718 WHEN NO_DATA_FOUND THEN
3719
3720 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
3721 THEN
3722
3723 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
3724 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','pricing_attribute4');
3725 OE_MSG_PUB.Add;
3726
3727 END IF;
3728
3729 RETURN FALSE;
3730
3731 WHEN OTHERS THEN
3732
3733 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3734 THEN
3735 OE_MSG_PUB.Add_Exc_Msg
3736 ( G_PKG_NAME
3737 , 'Pricing_Attribute4'
3738 );
3739 END IF;
3740
3741 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3742
3743 END Pricing_Attribute4;
3744
3745 FUNCTION Pricing_Attribute5 ( p_pricing_attribute5 IN VARCHAR2 )
3746 RETURN BOOLEAN
3747 IS
3748 l_dummy VARCHAR2(10);
3749 BEGIN
3750
3751 IF p_pricing_attribute5 IS NULL OR
3752 p_pricing_attribute5 = FND_API.G_MISS_CHAR
3753 THEN
3754 RETURN TRUE;
3755 END IF;
3756
3757 -- SELECT 'VALID'
3758 -- INTO l_dummy
3759 -- FROM DB_TABLE
3760 -- WHERE DB_COLUMN = p_pricing_attribute5;
3761
3762 RETURN TRUE;
3763
3764 EXCEPTION
3765
3766 WHEN NO_DATA_FOUND THEN
3767
3768 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
3769 THEN
3770
3771 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
3772 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','pricing_attribute5');
3773 OE_MSG_PUB.Add;
3774
3775 END IF;
3776
3777 RETURN FALSE;
3778
3779 WHEN OTHERS THEN
3780
3781 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3782 THEN
3783 OE_MSG_PUB.Add_Exc_Msg
3784 ( G_PKG_NAME
3785 , 'Pricing_Attribute5'
3786 );
3787 END IF;
3788
3789 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3790
3791 END Pricing_Attribute5;
3792
3793 FUNCTION Pricing_Attribute6 ( p_pricing_attribute6 IN VARCHAR2 )
3794 RETURN BOOLEAN
3795 IS
3796 l_dummy VARCHAR2(10);
3797 BEGIN
3798
3799 IF p_pricing_attribute6 IS NULL OR
3800 p_pricing_attribute6 = FND_API.G_MISS_CHAR
3801 THEN
3802 RETURN TRUE;
3803 END IF;
3804
3805 -- SELECT 'VALID'
3806 -- INTO l_dummy
3807 -- FROM DB_TABLE
3808 -- WHERE DB_COLUMN = p_pricing_attribute6;
3809
3810 RETURN TRUE;
3811
3812 EXCEPTION
3813
3814 WHEN NO_DATA_FOUND THEN
3815
3816 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
3817 THEN
3818
3819 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
3820 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','pricing_attribute6');
3821 OE_MSG_PUB.Add;
3822
3823 END IF;
3824
3825 RETURN FALSE;
3826
3827 WHEN OTHERS THEN
3828
3829 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3830 THEN
3831 OE_MSG_PUB.Add_Exc_Msg
3832 ( G_PKG_NAME
3833 , 'Pricing_Attribute6'
3834 );
3835 END IF;
3836
3837 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3838
3839 END Pricing_Attribute6;
3840
3841 FUNCTION Pricing_Attribute7 ( p_pricing_attribute7 IN VARCHAR2 )
3842 RETURN BOOLEAN
3843 IS
3844 l_dummy VARCHAR2(10);
3845 BEGIN
3846
3847 IF p_pricing_attribute7 IS NULL OR
3848 p_pricing_attribute7 = FND_API.G_MISS_CHAR
3849 THEN
3850 RETURN TRUE;
3851 END IF;
3852
3853 -- SELECT 'VALID'
3854 -- INTO l_dummy
3855 -- FROM DB_TABLE
3856 -- WHERE DB_COLUMN = p_pricing_attribute7;
3857
3858 RETURN TRUE;
3859
3860 EXCEPTION
3861
3862 WHEN NO_DATA_FOUND THEN
3863
3864 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
3865 THEN
3866
3867 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
3868 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','pricing_attribute7');
3869 OE_MSG_PUB.Add;
3870
3871 END IF;
3872
3873 RETURN FALSE;
3874
3875 WHEN OTHERS THEN
3876
3877 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3878 THEN
3879 OE_MSG_PUB.Add_Exc_Msg
3880 ( G_PKG_NAME
3881 , 'Pricing_Attribute7'
3882 );
3883 END IF;
3884
3885 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3886
3887 END Pricing_Attribute7;
3888
3889 FUNCTION Pricing_Attribute8 ( p_pricing_attribute8 IN VARCHAR2 )
3890 RETURN BOOLEAN
3891 IS
3892 l_dummy VARCHAR2(10);
3893 BEGIN
3894
3895 IF p_pricing_attribute8 IS NULL OR
3896 p_pricing_attribute8 = FND_API.G_MISS_CHAR
3897 THEN
3898 RETURN TRUE;
3899 END IF;
3900
3901 -- SELECT 'VALID'
3902 -- INTO l_dummy
3903 -- FROM DB_TABLE
3904 -- WHERE DB_COLUMN = p_pricing_attribute8;
3905
3906 RETURN TRUE;
3907
3908 EXCEPTION
3909
3910 WHEN NO_DATA_FOUND THEN
3911
3912 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
3913 THEN
3914
3915 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
3916 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','pricing_attribute8');
3917 OE_MSG_PUB.Add;
3918
3919 END IF;
3920
3921 RETURN FALSE;
3922
3923 WHEN OTHERS THEN
3924
3925 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3926 THEN
3927 OE_MSG_PUB.Add_Exc_Msg
3928 ( G_PKG_NAME
3929 , 'Pricing_Attribute8'
3930 );
3931 END IF;
3932
3933 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3934
3935 END Pricing_Attribute8;
3936
3937 FUNCTION Pricing_Attribute9 ( p_pricing_attribute9 IN VARCHAR2 )
3938 RETURN BOOLEAN
3939 IS
3940 l_dummy VARCHAR2(10);
3941 BEGIN
3942
3943 IF p_pricing_attribute9 IS NULL OR
3944 p_pricing_attribute9 = FND_API.G_MISS_CHAR
3945 THEN
3946 RETURN TRUE;
3947 END IF;
3948
3949 -- SELECT 'VALID'
3950 -- INTO l_dummy
3951 -- FROM DB_TABLE
3952 -- WHERE DB_COLUMN = p_pricing_attribute9;
3953
3954 RETURN TRUE;
3955
3956 EXCEPTION
3957
3958 WHEN NO_DATA_FOUND THEN
3959
3960 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
3961 THEN
3962
3963 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
3964 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','pricing_attribute9');
3965 OE_MSG_PUB.Add;
3966
3967 END IF;
3968
3969 RETURN FALSE;
3970
3971 WHEN OTHERS THEN
3972
3973 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3974 THEN
3975 OE_MSG_PUB.Add_Exc_Msg
3976 ( G_PKG_NAME
3977 , 'Pricing_Attribute9'
3978 );
3979 END IF;
3980
3981 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3982
3983 END Pricing_Attribute9;
3984
3985 FUNCTION Pricing_Context ( p_pricing_context IN VARCHAR2 )
3986 RETURN BOOLEAN
3987 IS
3988 l_dummy VARCHAR2(10);
3989 BEGIN
3990
3991 IF p_pricing_context IS NULL OR
3992 p_pricing_context = FND_API.G_MISS_CHAR
3993 THEN
3994 RETURN TRUE;
3995 END IF;
3996
3997 -- SELECT 'VALID'
3998 -- INTO l_dummy
3999 -- FROM DB_TABLE
4000 -- WHERE DB_COLUMN = p_pricing_context;
4001
4002 RETURN TRUE;
4003
4004 EXCEPTION
4005
4006 WHEN NO_DATA_FOUND THEN
4007
4008 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
4009 THEN
4010
4011 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
4012 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','pricing_context');
4013 OE_MSG_PUB.Add;
4014
4015 END IF;
4016
4017 RETURN FALSE;
4018
4019 WHEN OTHERS THEN
4020
4021 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4022 THEN
4023 OE_MSG_PUB.Add_Exc_Msg
4024 ( G_PKG_NAME
4025 , 'Pricing_Context'
4026 );
4027 END IF;
4028
4029 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4030
4031 END Pricing_Context;
4032
4033 FUNCTION Pricing_Rule ( p_pricing_rule_id IN NUMBER )
4034 RETURN BOOLEAN
4035 IS
4036 l_dummy VARCHAR2(10);
4037 BEGIN
4038
4039 IF p_pricing_rule_id IS NULL OR
4040 p_pricing_rule_id = FND_API.G_MISS_NUM
4041 THEN
4042 RETURN TRUE;
4043 END IF;
4044
4045 -- SELECT 'VALID'
4046 -- INTO l_dummy
4047 -- FROM DB_TABLE
4048 -- WHERE DB_COLUMN = p_pricing_rule_id;
4049
4050 RETURN TRUE;
4051
4052 EXCEPTION
4053
4054 WHEN NO_DATA_FOUND THEN
4055
4056 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
4057 THEN
4058
4059 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
4060 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','pricing_rule');
4061 OE_MSG_PUB.Add;
4062
4063 END IF;
4064
4065 RETURN FALSE;
4066
4067 WHEN OTHERS THEN
4068
4069 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4070 THEN
4071 OE_MSG_PUB.Add_Exc_Msg
4072 ( G_PKG_NAME
4073 , 'Pricing_Rule'
4074 );
4075 END IF;
4076
4077 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4078
4079 END Pricing_Rule;
4080
4081 FUNCTION Reprice ( p_reprice_flag IN VARCHAR2 )
4082 RETURN BOOLEAN
4083 IS
4084 l_dummy VARCHAR2(10);
4085 BEGIN
4086
4087 IF p_reprice_flag IS NULL OR
4088 p_reprice_flag = FND_API.G_MISS_CHAR
4089 THEN
4090 RETURN TRUE;
4091 END IF;
4092
4093 -- SELECT 'VALID'
4094 -- INTO l_dummy
4095 -- FROM DB_TABLE
4096 -- WHERE DB_COLUMN = p_reprice_flag;
4097
4098 RETURN TRUE;
4099
4100 EXCEPTION
4101
4102 WHEN NO_DATA_FOUND THEN
4103
4104 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
4105 THEN
4106
4107 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
4108 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','reprice');
4109 OE_MSG_PUB.Add;
4110
4111 END IF;
4112
4113 RETURN FALSE;
4114
4115 WHEN OTHERS THEN
4116
4117 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4118 THEN
4119 OE_MSG_PUB.Add_Exc_Msg
4120 ( G_PKG_NAME
4121 , 'Reprice'
4122 );
4123 END IF;
4124
4125 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4126
4127 END Reprice;
4128
4129 FUNCTION Unit ( p_unit_code IN VARCHAR2 )
4130 RETURN BOOLEAN
4131 IS
4132 l_dummy VARCHAR2(10);
4133 BEGIN
4134
4135 IF p_unit_code IS NULL OR
4136 p_unit_code = FND_API.G_MISS_CHAR
4137 THEN
4138 RETURN TRUE;
4139 END IF;
4140
4141 -- SELECT 'VALID'
4142 -- INTO l_dummy
4143 -- FROM DB_TABLE
4144 -- WHERE DB_COLUMN = p_unit_code;
4145
4146 RETURN TRUE;
4147
4148 EXCEPTION
4149
4150 WHEN NO_DATA_FOUND THEN
4151
4152 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
4153 THEN
4154
4155 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
4156 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','unit');
4157 OE_MSG_PUB.Add;
4158
4159 END IF;
4160
4161 RETURN FALSE;
4162
4163 WHEN OTHERS THEN
4164
4165 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4166 THEN
4167 OE_MSG_PUB.Add_Exc_Msg
4168 ( G_PKG_NAME
4169 , 'Unit'
4170 );
4171 END IF;
4172
4173 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4174
4175 END Unit;
4176
4177
4178 FUNCTION Customer_Class ( p_customer_class_code IN VARCHAR2 )
4179 RETURN BOOLEAN
4180 IS
4181 l_dummy VARCHAR2(10);
4182 BEGIN
4183
4184 IF p_customer_class_code IS NULL OR
4185 p_customer_class_code = FND_API.G_MISS_CHAR
4186 THEN
4187 RETURN TRUE;
4188 END IF;
4189
4190 -- SELECT 'VALID'
4191 -- INTO l_dummy
4192 -- FROM DB_TABLE
4193 -- WHERE DB_COLUMN = p_customer_class_code;
4194
4195 RETURN TRUE;
4196
4197 EXCEPTION
4198
4199 WHEN NO_DATA_FOUND THEN
4200
4201 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
4202 THEN
4203
4204 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
4205 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','customer_class');
4206 OE_MSG_PUB.Add;
4207
4208 END IF;
4209
4210 RETURN FALSE;
4211
4212 WHEN OTHERS THEN
4213
4214 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4215 THEN
4216 OE_MSG_PUB.Add_Exc_Msg
4217 ( G_PKG_NAME
4218 , 'Customer_Class'
4219 );
4220 END IF;
4221
4222 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4223
4224 END Customer_Class;
4225
4226 FUNCTION Discount_Customer ( p_discount_customer_id IN NUMBER )
4227 RETURN BOOLEAN
4228 IS
4229 l_dummy VARCHAR2(10);
4230 BEGIN
4231
4232 IF p_discount_customer_id IS NULL OR
4233 p_discount_customer_id = FND_API.G_MISS_NUM
4234 THEN
4235 RETURN TRUE;
4236 END IF;
4237
4238 -- SELECT 'VALID'
4239 -- INTO l_dummy
4240 -- FROM DB_TABLE
4241 -- WHERE DB_COLUMN = p_discount_customer_id;
4242
4243 RETURN TRUE;
4244
4245 EXCEPTION
4246
4247 WHEN NO_DATA_FOUND THEN
4248
4249 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
4250 THEN
4251
4252 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
4253 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','discount_customer');
4254 OE_MSG_PUB.Add;
4255
4256 END IF;
4257
4258 RETURN FALSE;
4259
4260 WHEN OTHERS THEN
4261
4262 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4263 THEN
4264 OE_MSG_PUB.Add_Exc_Msg
4265 ( G_PKG_NAME
4266 , 'Discount_Customer'
4267 );
4268 END IF;
4269
4270 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4271
4272 END Discount_Customer;
4273
4274 /* FUNCTION Site_Use ( p_site_use_id IN NUMBER ) */
4275 FUNCTION Site_Use ( p_site_org_id IN NUMBER )
4276 RETURN BOOLEAN
4277 IS
4278 l_dummy VARCHAR2(10);
4279 BEGIN
4280 /*
4281 IF p_site_use_id IS NULL OR
4282 p_site_use_id = FND_API.G_MISS_NUM
4283 THEN
4284 RETURN TRUE;
4285 END IF;
4286 */
4287 IF p_site_org_id IS NULL OR
4288 p_site_org_id = FND_API.G_MISS_NUM
4289 THEN
4290 RETURN TRUE;
4291 END IF;
4292
4293 -- SELECT 'VALID'
4294 -- INTO l_dummy
4295 -- FROM DB_TABLE
4296 -- WHERE DB_COLUMN = p_site_use_id;
4297
4298 RETURN TRUE;
4299
4300 EXCEPTION
4301
4302 WHEN NO_DATA_FOUND THEN
4303
4304 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
4305 THEN
4306
4307 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
4308 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','site_use');
4309 OE_MSG_PUB.Add;
4310
4311 END IF;
4312
4313 RETURN FALSE;
4314
4315 WHEN OTHERS THEN
4316
4317 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4318 THEN
4319 OE_MSG_PUB.Add_Exc_Msg
4320 ( G_PKG_NAME
4321 , 'Site_Use'
4322 );
4323 END IF;
4324
4325 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4326
4327 END Site_Use;
4328
4329
4330 FUNCTION Discount_Line ( p_discount_line_id IN NUMBER )
4331 RETURN BOOLEAN
4332 IS
4333 l_dummy VARCHAR2(10);
4334 BEGIN
4335
4336 IF p_discount_line_id IS NULL OR
4337 p_discount_line_id = FND_API.G_MISS_NUM
4338 THEN
4339 RETURN TRUE;
4340 END IF;
4341
4342 -- SELECT 'VALID'
4343 -- INTO l_dummy
4344 -- FROM DB_TABLE
4345 -- WHERE DB_COLUMN = p_discount_line_id;
4346
4347 RETURN TRUE;
4348
4349 EXCEPTION
4350
4351 WHEN NO_DATA_FOUND THEN
4352
4353 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
4354 THEN
4355
4356 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
4357 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','discount_line');
4358 OE_MSG_PUB.Add;
4359
4360 END IF;
4361
4362 RETURN FALSE;
4363
4364 WHEN OTHERS THEN
4365
4366 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4367 THEN
4368 OE_MSG_PUB.Add_Exc_Msg
4369 ( G_PKG_NAME
4370 , 'Discount_Line'
4371 );
4372 END IF;
4373
4374 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4375
4376 END Discount_Line;
4377
4378 FUNCTION Entity ( p_entity_id IN NUMBER )
4379 RETURN BOOLEAN
4380 IS
4381 l_dummy VARCHAR2(10);
4382 BEGIN
4383
4384 IF p_entity_id IS NULL OR
4385 p_entity_id = FND_API.G_MISS_NUM
4386 THEN
4387 RETURN TRUE;
4388 END IF;
4389
4390 -- SELECT 'VALID'
4391 -- INTO l_dummy
4392 -- FROM DB_TABLE
4393 -- WHERE DB_COLUMN = p_entity_id;
4394
4395 RETURN TRUE;
4396
4397 EXCEPTION
4398
4399 WHEN NO_DATA_FOUND THEN
4400
4401 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
4402 THEN
4403
4404 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
4405 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','entity');
4406 OE_MSG_PUB.Add;
4407
4408 END IF;
4409
4410 RETURN FALSE;
4411
4412 WHEN OTHERS THEN
4413
4414 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4415 THEN
4416 OE_MSG_PUB.Add_Exc_Msg
4417 ( G_PKG_NAME
4418 , 'Entity'
4419 );
4420 END IF;
4421
4422 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4423
4424 END Entity;
4425
4426 FUNCTION Entity_Value ( p_entity_value IN VARCHAR2 )
4427 RETURN BOOLEAN
4428 IS
4429 l_dummy VARCHAR2(10);
4430 BEGIN
4431
4432 IF p_entity_value IS NULL OR
4433 p_entity_value = FND_API.G_MISS_CHAR
4434 THEN
4435 RETURN TRUE;
4436 END IF;
4437
4438 -- SELECT 'VALID'
4439 -- INTO l_dummy
4440 -- FROM DB_TABLE
4441 -- WHERE DB_COLUMN = p_entity_value;
4442
4443 RETURN TRUE;
4444
4445 EXCEPTION
4446
4447 WHEN NO_DATA_FOUND THEN
4448
4449 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
4450 THEN
4451
4452 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
4453 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','entity_value');
4454 OE_MSG_PUB.Add;
4455
4456 END IF;
4457
4458 RETURN FALSE;
4459
4460 WHEN OTHERS THEN
4461
4462 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4463 THEN
4464 OE_MSG_PUB.Add_Exc_Msg
4465 ( G_PKG_NAME
4466 , 'Entity_Value'
4467 );
4468 END IF;
4469
4470 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4471
4472 END Entity_Value;
4473
4474 FUNCTION Price ( p_price IN NUMBER )
4475 RETURN BOOLEAN
4476 IS
4477 l_dummy VARCHAR2(10);
4478 BEGIN
4479
4480 IF p_price IS NULL OR
4481 p_price = FND_API.G_MISS_NUM
4482 THEN
4483 RETURN TRUE;
4484 END IF;
4485
4486 -- SELECT 'VALID'
4487 -- INTO l_dummy
4488 -- FROM DB_TABLE
4489 -- WHERE DB_COLUMN = p_price;
4490
4491 RETURN TRUE;
4492
4493 EXCEPTION
4494
4495 WHEN NO_DATA_FOUND THEN
4496
4497 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
4498 THEN
4499
4500 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
4501 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','price');
4502 OE_MSG_PUB.Add;
4503
4504 END IF;
4505
4506 RETURN FALSE;
4507
4508 WHEN OTHERS THEN
4509
4510 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4511 THEN
4512 OE_MSG_PUB.Add_Exc_Msg
4513 ( G_PKG_NAME
4514 , 'Price'
4515 );
4516 END IF;
4517
4518 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4519
4520 END Price;
4521
4522
4523 FUNCTION Method_Type ( p_method_type_code IN VARCHAR2 )
4524 RETURN BOOLEAN
4525 IS
4526 l_dummy VARCHAR2(10);
4527 BEGIN
4528
4529 IF p_method_type_code IS NULL OR
4530 p_method_type_code = FND_API.G_MISS_CHAR
4531 THEN
4532 RETURN TRUE;
4533 END IF;
4534
4535 -- SELECT 'VALID'
4536 -- INTO l_dummy
4537 -- FROM DB_TABLE
4538 -- WHERE DB_COLUMN = p_method_type_code;
4539
4540 RETURN TRUE;
4541
4542 EXCEPTION
4543
4544 WHEN NO_DATA_FOUND THEN
4545
4546 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
4547 THEN
4548
4549 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
4550 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','method_type');
4551 OE_MSG_PUB.Add;
4552
4553 END IF;
4554
4555 RETURN FALSE;
4556
4557 WHEN OTHERS THEN
4558
4559 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4560 THEN
4561 OE_MSG_PUB.Add_Exc_Msg
4562 ( G_PKG_NAME
4563 , 'Method_Type'
4564 );
4565 END IF;
4566
4567 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4568
4569 END Method_Type;
4570
4571 FUNCTION Price_Break_High ( p_price_break_high IN NUMBER )
4572 RETURN BOOLEAN
4573 IS
4574 l_dummy VARCHAR2(10);
4575 BEGIN
4576
4577 IF p_price_break_high IS NULL OR
4578 p_price_break_high = FND_API.G_MISS_NUM
4579 THEN
4580 RETURN TRUE;
4581 END IF;
4582
4583 -- SELECT 'VALID'
4584 -- INTO l_dummy
4585 -- FROM DB_TABLE
4586 -- WHERE DB_COLUMN = p_price_break_high;
4587
4588 RETURN TRUE;
4589
4590 EXCEPTION
4591
4592 WHEN NO_DATA_FOUND THEN
4593
4594 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
4595 THEN
4599 OE_MSG_PUB.Add;
4596
4597 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
4598 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','price_break_high');
4600
4601 END IF;
4602
4603 RETURN FALSE;
4604
4605 WHEN OTHERS THEN
4606
4607 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4608 THEN
4609 OE_MSG_PUB.Add_Exc_Msg
4610 ( G_PKG_NAME
4611 , 'Price_Break_High'
4612 );
4613 END IF;
4614
4615 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4616
4617 END Price_Break_High;
4618
4619 FUNCTION Price_Break_Low ( p_price_break_low IN NUMBER )
4620 RETURN BOOLEAN
4621 IS
4622 l_dummy VARCHAR2(10);
4623 BEGIN
4624
4625 IF p_price_break_low IS NULL OR
4626 p_price_break_low = FND_API.G_MISS_NUM
4627 THEN
4628 RETURN TRUE;
4629 END IF;
4630
4631 -- SELECT 'VALID'
4632 -- INTO l_dummy
4633 -- FROM DB_TABLE
4634 -- WHERE DB_COLUMN = p_price_break_low;
4635
4636 RETURN TRUE;
4637
4638 EXCEPTION
4639
4640 WHEN NO_DATA_FOUND THEN
4641
4642 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
4643 THEN
4644
4645 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
4646 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','price_break_low');
4647 OE_MSG_PUB.Add;
4648
4649 END IF;
4650
4651 RETURN FALSE;
4652
4653 WHEN OTHERS THEN
4654
4655 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4656 THEN
4657 OE_MSG_PUB.Add_Exc_Msg
4658 ( G_PKG_NAME
4659 , 'Price_Break_Low'
4660 );
4661 END IF;
4662
4663 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4664
4665 END Price_Break_Low;
4666
4667 PROCEDURE getservitemflag(p_inventory_item_id IN NUMBER,
4668 p_organization_id IN NUMBER,
4669 x_unit_code OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
4670 x_service_item_flag OUT NOCOPY /* file.sql.39 change */ VARCHAR2) IS
4671 BEGIN
4672
4673
4674 SELECT SI.PRIMARY_UOM_CODE,
4675 NVL(SERVICE_ITEM_FLAG,0)
4676 INTO x_unit_code,
4677 x_service_item_flag
4678 FROM MTL_SYSTEM_ITEMS SI,
4679 MTL_UNITS_OF_MEASURE MUOM
4680 WHERE SI.PRIMARY_UOM_CODE = MUOM.UOM_CODE
4681 AND SI.ORGANIZATION_ID = p_organization_id
4682 AND SI.INVENTORY_ITEM_ID = p_inventory_item_id;
4683
4684 EXCEPTION
4685 WHEN OTHERS THEN
4686 x_service_item_flag := 'N';
4687
4688 END getservitemflag;
4689
4690 -- Added 2 new parameters to this functions
4691 -- start date and end date ::
4692 FUNCTION PRIMARY_EXISTS( p_price_list_id IN number,
4693 p_inventory_item_id IN number,
4694 p_customer_item_id IN number,
4695 p_pricing_attribute1 IN VARCHAR2,
4696 p_pricing_attribute2 IN VARCHAR2,
4697 p_pricing_attribute3 IN VARCHAR2,
4698 p_pricing_attribute4 IN VARCHAR2,
4699 p_pricing_attribute5 IN VARCHAR2,
4700 p_pricing_attribute6 IN VARCHAR2,
4701 p_pricing_attribute7 IN VARCHAR2,
4702 p_pricing_attribute8 IN VARCHAR2,
4703 p_pricing_attribute9 IN VARCHAR2,
4704 p_pricing_attribute10 IN VARCHAR2,
4705 p_pricing_attribute11 IN VARCHAR2,
4706 p_pricing_attribute12 IN VARCHAR2,
4707 p_pricing_attribute13 IN VARCHAR2,
4708 p_pricing_attribute14 IN VARCHAR2,
4709 p_pricing_attribute15 IN VARCHAR2,
4710 p_start_date_active IN DATE,
4711 p_end_date_active IN DATE
4712 ) RETURN BOOLEAN IS
4713
4714 l_row_count number := -1;
4715
4716 begin
4717 select count(*)
4718 into l_row_count
4719 from qp_price_list_lines_v
4720 where inventory_item_id = p_inventory_item_id
4721 and price_list_id = p_price_list_id
4722 and nvl(customer_item_id, -1) = nvl(p_customer_item_id, -1)
4723 and nvl(pricing_attribute1, -1) = nvl(p_pricing_attribute1, -1)
4724 and nvl(pricing_attribute2, -1) = nvl(p_pricing_attribute2, -1)
4725 and nvl(pricing_attribute3, -1) = nvl(p_pricing_attribute3, -1)
4726 and nvl(pricing_attribute4, -1) = nvl(p_pricing_attribute4, -1)
4727 and nvl(pricing_attribute5, -1) = nvl(p_pricing_attribute5, -1)
4728 and nvl(pricing_attribute6, -1) = nvl(p_pricing_attribute6, -1)
4729 and nvl(pricing_attribute7, -1) = nvl(p_pricing_attribute7, -1)
4730 and nvl(pricing_attribute8, -1) = nvl(p_pricing_attribute8, -1)
4731 and nvl(pricing_attribute9, -1) = nvl(p_pricing_attribute9, -1)
4732 and nvl(pricing_attribute10, -1) = nvl(p_pricing_attribute10, -1)
4733 and nvl(pricing_attribute11, -1) = nvl(p_pricing_attribute11, -1)
4734 and nvl(pricing_attribute12, -1) = nvl(p_pricing_attribute12, -1)
4735 and nvl(pricing_attribute13, -1) = nvl(p_pricing_attribute13, -1)
4736 and nvl(pricing_attribute14, -1) = nvl(p_pricing_attribute14, -1)
4737 and nvl(pricing_attribute15, -1) = nvl(p_pricing_attribute15, -1)
4738 and nvl(primary, 'N') = 'Y'
4739 and (( p_start_date_active between
4740 start_date_active and end_date_active)
4741 OR
4742 (p_end_date_active between
4743 start_date_active and end_date_active ));
4744
4745
4746 /* IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
4747 THEN
4748 FND_MESSAGE.SET_NAME('OE','XXXX' || l_row_count );
4749 FND_MESSAGE.SET_TOKEN('REVISION','revision');
4750 OE_MSG_PUB.Add;
4751 END IF;
4752 */
4753
4754 --------------
4755 -- New where cluase added :
4756 ---------------
4757 if ( l_row_count = 0) then
4758 RETURN FALSE;
4759 else
4760 RETURN TRUE;
4761 end if;
4762
4763 EXCEPTION
4764
4765 WHEN OTHERS THEN
4766
4767 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4768 THEN
4769 OE_MSG_PUB.Add_Exc_Msg
4770 ( G_PKG_NAME
4771 , 'PRIMARY_EXISTS'
4772 );
4773 END IF;
4774
4775 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4776
4777 END PRIMARY_EXISTS;
4778
4779 FUNCTION PRIMARY(p_primary IN VARCHAR2) RETURN BOOLEAN
4780 IS
4781 l_dummy VARCHAR2(10);
4782 BEGIN
4783
4784 IF p_primary IS NULL OR
4785 p_primary = FND_API.G_MISS_CHAR
4786 THEN
4787 RETURN TRUE;
4788 END IF;
4789
4790 -- SELECT 'VALID'
4791 -- INTO l_dummy
4792 -- FROM DB_TABLE
4793 -- WHERE DB_COLUMN = p_primary;
4794
4795 RETURN TRUE;
4796
4797 EXCEPTION
4798
4799 WHEN NO_DATA_FOUND THEN
4800
4801 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
4802 THEN
4803
4804 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
4805 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','PRIMARY');
4806 OE_MSG_PUB.Add;
4807
4808 END IF;
4809
4810 RETURN FALSE;
4811
4812 WHEN OTHERS THEN
4813
4814 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4815 THEN
4816 OE_MSG_PUB.Add_Exc_Msg
4817 ( G_PKG_NAME
4818 , 'PRIMARY'
4819 );
4820 END IF;
4821
4822 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4823
4824 END PRIMARY;
4825
4826 FUNCTION List_Line_Type ( p_list_line_type_code in VARCHAR2 )
4827 RETURN BOOLEAN
4828 IS
4829 l_dummy VARCHAR2(10);
4830 BEGIN
4831
4832 IF p_list_line_type_code IS NULL OR
4833 p_list_line_type_code = FND_API.G_MISS_CHAR
4834 THEN
4835 RETURN TRUE;
4836 END IF;
4837
4838 -- SELECT 'VALID'
4839 -- INTO l_dummy
4840 -- FROM DB_TABLE
4841 -- WHERE DB_COLUMN = p_price_list_line_id;
4842
4843 RETURN TRUE;
4844
4845 EXCEPTION
4846
4847 WHEN NO_DATA_FOUND THEN
4848
4849 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
4850 THEN
4851
4852 FND_MESSAGE.SET_NAME('OE','OE_INVALID_ATTRIBUTE');
4853 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','List_Line_Type');
4854 OE_MSG_PUB.Add;
4855
4856 END IF;
4857
4858 RETURN FALSE;
4859
4860 WHEN OTHERS THEN
4861
4862 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4863 THEN
4864 OE_MSG_PUB.Add_Exc_Msg
4865 ( G_PKG_NAME
4866 , 'List Line Type'
4867 );
4868 END IF;
4869
4870 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4871
4872 END List_Line_Type;
4873
4874 -- END GEN validate
4875
4876 END OE_Validate_Attr;