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