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