1 PACKAGE BODY INV_Id_To_Value AS
2 /* $Header: INVSIDVB.pls 120.1 2005/07/01 13:59:13 appldev ship $ */
3
4 -- Global constant holding the package name
5
6 G_PKG_NAME CONSTANT VARCHAR2(30) := 'INV_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 := 'from_subinventory';
27 I := I + 1;
28 FND_API.g_attr_tbl(I).name := 'header';
29 I := I + 1;
30 FND_API.g_attr_tbl(I).name := 'organization';
31 I := I + 1;
32 FND_API.g_attr_tbl(I).name := 'to_account';
33 I := I + 1;
34 FND_API.g_attr_tbl(I).name := 'to_subinventory';
35 I := I + 1;
36 FND_API.g_attr_tbl(I).name := 'transaction_type';
37 I := I + 1;
38 FND_API.g_attr_tbl(I).name := 'from_locator';
39 I := I + 1;
40 FND_API.g_attr_tbl(I).name := 'inventory_item';
41 I := I + 1;
42 FND_API.g_attr_tbl(I).name := 'line';
43 I := I + 1;
44 FND_API.g_attr_tbl(I).name := 'project';
45 I := I + 1;
46 FND_API.g_attr_tbl(I).name := 'reason';
47 I := I + 1;
48 FND_API.g_attr_tbl(I).name := 'reference';
49 I := I + 1;
50 FND_API.g_attr_tbl(I).name := 'reference_type';
51 I := I + 1;
52 FND_API.g_attr_tbl(I).name := 'task';
53 I := I + 1;
54 FND_API.g_attr_tbl(I).name := 'to_locator';
55 I := I + 1;
56 FND_API.g_attr_tbl(I).name := 'transaction_header';
57 I := I + 1;
58 FND_API.g_attr_tbl(I).name := 'uom';
59 I := I + 1;
60 FND_API.g_attr_tbl(I).name := 'uom';
61 -- END GEN attributes
62
63 END Get_Attr_Tbl;
64
65 -- Prototypes for Id_To_Value functions.
66
67 -- START GEN Id_To_Value
68
69 -- Generator will append new prototypes before end generate comment.
70
71
72 FUNCTION From_Subinventory -- yyy
73 ( p_from_subinventory_id IN NUMBER
74 ) RETURN VARCHAR2
75 --( p_from_subinventory_code IN VARCHAR2 -- Generated
76 --) RETURN VARCHAR2 -- Generated
77 IS
78 l_from_subinventory VARCHAR2(240) := NULL;
79 BEGIN
80
81 -- IF p_from_subinventory_code IS NOT NULL THEN -- Generated
82 IF p_from_subinventory_id IS NOT NULL THEN
83
84 -- SELECT FROM_SUBINVENTORY
85 -- INTO l_from_subinventory
86 -- FROM DB_TABLE
87 -- WHERE DB_COLUMN = p_from_subinventory_code;
88
89 NULL;
90
91 END IF;
92
93 RETURN l_from_subinventory;
94
95 EXCEPTION
96
97 WHEN NO_DATA_FOUND THEN
98
99 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)
100 THEN
101
102 FND_MESSAGE.SET_NAME('INV','INV_ID_TO_VALUE_ERROR');
103 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','from_subinventory');
104 FND_MSG_PUB.Add;
105
106 END IF;
107
108 RETURN NULL;
109
110 WHEN OTHERS THEN
111
112 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
113 THEN
114 FND_MSG_PUB.Add_Exc_Msg
115 ( G_PKG_NAME
116 , 'From_Subinventory'
117 );
118 END IF;
119
120 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
121
122 END From_Subinventory;
123
124 FUNCTION Header
125 ( p_header_id IN NUMBER
126 ) RETURN VARCHAR2
127 IS
128 l_header VARCHAR2(240) := NULL;
129 BEGIN
130
131 IF p_header_id IS NOT NULL THEN
132
133 -- SELECT HEADER
134 -- INTO l_header
135 -- FROM DB_TABLE
136 -- WHERE DB_COLUMN = p_header_id;
137
138 NULL;
139
140 END IF;
141
142 RETURN l_header;
143
144 EXCEPTION
145
146 WHEN NO_DATA_FOUND THEN
147
148 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)
149 THEN
150
151 FND_MESSAGE.SET_NAME('INV','INV_ID_TO_VALUE_ERROR');
152 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','header');
153 FND_MSG_PUB.Add;
154
155 END IF;
156
157 RETURN NULL;
158
159 WHEN OTHERS THEN
160
161 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
162 THEN
163 FND_MSG_PUB.Add_Exc_Msg
164 ( G_PKG_NAME
165 , 'Header'
166 );
167 END IF;
168
169 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
170
171 END Header;
172
173 FUNCTION Organization
174 ( p_organization_id IN NUMBER
175 ) RETURN VARCHAR2
176 IS
177 l_organization VARCHAR2(240) := NULL;
178 BEGIN
179
180 IF p_organization_id IS NOT NULL THEN
181
182 -- SELECT ORGANIZATION
183 -- INTO l_organization
184 -- FROM DB_TABLE
185 -- WHERE DB_COLUMN = p_organization_id;
186
187 NULL;
188
189 END IF;
190
191 RETURN l_organization;
192
193 EXCEPTION
194
195 WHEN NO_DATA_FOUND THEN
196
197 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)
198 THEN
199
200 FND_MESSAGE.SET_NAME('INV','INV_ID_TO_VALUE_ERROR');
201 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','organization');
202 FND_MSG_PUB.Add;
203
204 END IF;
205
206 RETURN NULL;
207
208 WHEN OTHERS THEN
209
210 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
211 THEN
212 FND_MSG_PUB.Add_Exc_Msg
213 ( G_PKG_NAME
214 , 'Organization'
215 );
216 END IF;
217
218 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
219
220 END Organization;
221
222 FUNCTION To_Organization
223 ( p_to_organization_id IN NUMBER
224 ) RETURN VARCHAR2
225 IS
226 l_to_organization VARCHAR2(240) := NULL;
227 BEGIN
228
229 IF p_to_organization_id IS NOT NULL THEN
230
231 -- SELECT ORGANIZATION
232 -- INTO l_organization
233 -- FROM DB_TABLE
234 -- WHERE DB_COLUMN = p_organization_id;
235
236 NULL;
237
238 END IF;
239
240 RETURN l_to_organization;
241
242 EXCEPTION
243
244 WHEN NO_DATA_FOUND THEN
245
246 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)
247 THEN
248
249 FND_MESSAGE.SET_NAME('INV','INV_ID_TO_VALUE_ERROR');
250 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','to_organization');
251 FND_MSG_PUB.Add;
252
253 END IF;
254
255 RETURN NULL;
256
257 WHEN OTHERS THEN
258
259 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
260 THEN
261 FND_MSG_PUB.Add_Exc_Msg
262 ( G_PKG_NAME
263 , 'To_Organization'
264 );
265 END IF;
266
267 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
268
269 END To_Organization;
270
271 FUNCTION To_Account
272 ( p_to_account_id IN NUMBER
273 ) RETURN VARCHAR2
274 IS
275 l_to_account VARCHAR2(240) := NULL;
276 BEGIN
277
278 IF p_to_account_id IS NOT NULL THEN
279
280 -- SELECT TO_ACCOUNT
281 -- INTO l_to_account
282 -- FROM DB_TABLE
283 -- WHERE DB_COLUMN = p_to_account_id;
284
285 NULL;
286
287 END IF;
288
289 RETURN l_to_account;
290
291 EXCEPTION
292
293 WHEN NO_DATA_FOUND THEN
294
295 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)
296 THEN
297
298 FND_MESSAGE.SET_NAME('INV','INV_ID_TO_VALUE_ERROR');
299 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','to_account');
300 FND_MSG_PUB.Add;
301
302 END IF;
303
304 RETURN NULL;
305
306 WHEN OTHERS THEN
307
308 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
309 THEN
310 FND_MSG_PUB.Add_Exc_Msg
311 ( G_PKG_NAME
312 , 'To_Account'
313 );
314 END IF;
315
316 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
317
318 END To_Account;
319
320 FUNCTION To_Subinventory
321 ( p_to_subinventory_id IN NUMBER
322 ) RETURN VARCHAR2
323 --( p_to_subinventory_code IN VARCHAR2 -- Generated
324 --) RETURN VARCHAR2 -- Generated
325 IS
326 l_to_subinventory VARCHAR2(240) := NULL;
327 BEGIN
328
329 -- IF p_to_subinventory_code IS NOT NULL THEN
330 IF p_to_subinventory_id IS NOT NULL THEN
331
332 -- SELECT TO_SUBINVENTORY
333 -- INTO l_to_subinventory
334 -- FROM DB_TABLE
335 -- WHERE DB_COLUMN = p_to_subinventory_code;
336
337 NULL;
338
339 END IF;
340
341 RETURN l_to_subinventory;
342
343 EXCEPTION
344
345 WHEN NO_DATA_FOUND THEN
346
347 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)
348 THEN
349
350 FND_MESSAGE.SET_NAME('INV','INV_ID_TO_VALUE_ERROR');
351 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','to_subinventory');
352 FND_MSG_PUB.Add;
353
354 END IF;
355
356 RETURN NULL;
357
358 WHEN OTHERS THEN
359
360 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
361 THEN
362 FND_MSG_PUB.Add_Exc_Msg
363 ( G_PKG_NAME
364 , 'To_Subinventory'
365 );
366 END IF;
367
368 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
369
370 END To_Subinventory;
371
372 FUNCTION Transaction_Type
373 ( p_transaction_type_id IN NUMBER
374 ) RETURN VARCHAR2
375 IS
376 l_transaction_type VARCHAR2(240) := NULL;
377 BEGIN
378
379 IF p_transaction_type_id IS NOT NULL THEN
380
381 -- SELECT TRANSACTION_TYPE
382 -- INTO l_transaction_type
383 -- FROM DB_TABLE
384 -- WHERE DB_COLUMN = p_transaction_type_id;
385
386 NULL;
387
388 END IF;
389
390 RETURN l_transaction_type;
391
392 EXCEPTION
393
394 WHEN NO_DATA_FOUND THEN
395
396 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)
397 THEN
398
399 FND_MESSAGE.SET_NAME('INV','INV_ID_TO_VALUE_ERROR');
400 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','transaction_type');
401 FND_MSG_PUB.Add;
402
403 END IF;
404
405 RETURN NULL;
406
407 WHEN OTHERS THEN
408
409 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
410 THEN
411 FND_MSG_PUB.Add_Exc_Msg
412 ( G_PKG_NAME
413 , 'Transaction_Type'
414 );
415 END IF;
416
417 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
418
419 END Transaction_Type;
420
421 FUNCTION Move_Order_Type
422 ( p_move_order_type IN NUMBER
423 ) RETURN VARCHAR2
424 IS
425 l_move_order_type VARCHAR2(240) := NULL;
426 BEGIN
427
428 IF p_move_order_type IS NOT NULL THEN
429
430 -- SELECT TRANSACTION_TYPE
431 -- INTO l_transaction_type
432 -- FROM DB_TABLE
433 -- WHERE DB_COLUMN = p_transaction_type_id;
434
435 NULL;
436
437 END IF;
438
439 RETURN l_move_order_type;
440
441 EXCEPTION
442
443 WHEN NO_DATA_FOUND THEN
444
445 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)
446 THEN
447
448 FND_MESSAGE.SET_NAME('INV','INV_ID_TO_VALUE_ERROR');
449 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','move_order_type');
450 FND_MSG_PUB.Add;
451
452 END IF;
453
454 RETURN NULL;
455
456 WHEN OTHERS THEN
457
458 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
459 THEN
460 FND_MSG_PUB.Add_Exc_Msg
461 ( G_PKG_NAME
462 , 'Move_order_Type'
463 );
464 END IF;
465
466 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
467
468 END Move_Order_Type;
469
470 FUNCTION From_Locator
471 ( p_from_locator_id IN NUMBER
472 ) RETURN VARCHAR2
473 IS
474 l_from_locator VARCHAR2(240) := NULL;
475 BEGIN
476
477 IF p_from_locator_id IS NOT NULL THEN
478
479 -- SELECT FROM_LOCATOR
480 -- INTO l_from_locator
481 -- FROM DB_TABLE
482 -- WHERE DB_COLUMN = p_from_locator_id;
483
484 NULL;
485
486 END IF;
487
488 RETURN l_from_locator;
489
490 EXCEPTION
491
492 WHEN NO_DATA_FOUND THEN
493
494 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)
495 THEN
496
497 FND_MESSAGE.SET_NAME('INV','INV_ID_TO_VALUE_ERROR');
498 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','from_locator');
499 FND_MSG_PUB.Add;
500
501 END IF;
502
503 RETURN NULL;
504
505 WHEN OTHERS THEN
506
507 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
508 THEN
509 FND_MSG_PUB.Add_Exc_Msg
510 ( G_PKG_NAME
511 , 'From_Locator'
512 );
513 END IF;
514
515 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
516
517 END From_Locator;
518
519 FUNCTION Inventory_Item
520 ( p_inventory_item_id IN NUMBER
524 BEGIN
521 ) RETURN VARCHAR2
522 IS
523 l_inventory_item VARCHAR2(240) := NULL;
525
526 IF p_inventory_item_id IS NOT NULL THEN
527
528 -- SELECT INVENTORY_ITEM
529 -- INTO l_inventory_item
530 -- FROM DB_TABLE
531 -- WHERE DB_COLUMN = p_inventory_item_id;
532
533 NULL;
534
535 END IF;
536
537 RETURN l_inventory_item;
538
539 EXCEPTION
540
541 WHEN NO_DATA_FOUND THEN
542
543 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)
544 THEN
545
546 FND_MESSAGE.SET_NAME('INV','INV_ID_TO_VALUE_ERROR');
547 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','inventory_item');
548 FND_MSG_PUB.Add;
549
550 END IF;
551
552 RETURN NULL;
553
554 WHEN OTHERS THEN
555
556 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
557 THEN
558 FND_MSG_PUB.Add_Exc_Msg
559 ( G_PKG_NAME
560 , 'Inventory_Item'
561 );
562 END IF;
563
564 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
565
566 END Inventory_Item;
567
568 FUNCTION Line
569 ( p_line_id IN NUMBER
570 ) RETURN VARCHAR2
571 IS
572 l_line VARCHAR2(240) := NULL;
573 BEGIN
574
575 IF p_line_id IS NOT NULL THEN
576
577 -- SELECT LINE
578 -- INTO l_line
579 -- FROM DB_TABLE
580 -- WHERE DB_COLUMN = p_line_id;
581
582 NULL;
583
584 END IF;
585
586 RETURN l_line;
587
588 EXCEPTION
589
590 WHEN NO_DATA_FOUND THEN
591
592 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)
593 THEN
594
595 FND_MESSAGE.SET_NAME('INV','INV_ID_TO_VALUE_ERROR');
596 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','line');
597 FND_MSG_PUB.Add;
598
599 END IF;
600
601 RETURN NULL;
602
603 WHEN OTHERS THEN
604
605 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
606 THEN
607 FND_MSG_PUB.Add_Exc_Msg
608 ( G_PKG_NAME
609 , 'Line'
610 );
611 END IF;
612
613 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
614
615 END Line;
616
617 FUNCTION Project
618 ( p_project_id IN NUMBER
619 ) RETURN VARCHAR2
620 IS
621 l_project VARCHAR2(240) := NULL;
622 BEGIN
623
624 IF p_project_id IS NOT NULL THEN
625
626 -- SELECT PROJECT
627 -- INTO l_project
628 -- FROM DB_TABLE
629 -- WHERE DB_COLUMN = p_project_id;
630
631 NULL;
632
633 END IF;
634
635 RETURN l_project;
636
637 EXCEPTION
638
639 WHEN NO_DATA_FOUND THEN
640
641 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)
642 THEN
643
644 FND_MESSAGE.SET_NAME('INV','INV_ID_TO_VALUE_ERROR');
645 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','project');
646 FND_MSG_PUB.Add;
647
648 END IF;
649
650 RETURN NULL;
651
652 WHEN OTHERS THEN
653
654 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
655 THEN
656 FND_MSG_PUB.Add_Exc_Msg
657 ( G_PKG_NAME
658 , 'Project'
659 );
660 END IF;
661
662 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
663
664 END Project;
665
666 FUNCTION Reason
667 ( p_reason_id IN NUMBER
668 ) RETURN VARCHAR2
669 IS
670 l_reason VARCHAR2(240) := NULL;
671 BEGIN
672
673 IF p_reason_id IS NOT NULL THEN
674
675 -- SELECT REASON
676 -- INTO l_reason
677 -- FROM DB_TABLE
678 -- WHERE DB_COLUMN = p_reason_id;
679
680 NULL;
681
682 END IF;
683
684 RETURN l_reason;
685
686 EXCEPTION
687
688 WHEN NO_DATA_FOUND THEN
689
690 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)
691 THEN
692
693 FND_MESSAGE.SET_NAME('INV','INV_ID_TO_VALUE_ERROR');
694 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','reason');
695 FND_MSG_PUB.Add;
696
697 END IF;
698
699 RETURN NULL;
700
701 WHEN OTHERS THEN
702
703 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
704 THEN
708 );
705 FND_MSG_PUB.Add_Exc_Msg
706 ( G_PKG_NAME
707 , 'Reason'
709 END IF;
710
711 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
712
713 END Reason;
714
715 FUNCTION Reference
716 ( p_reference_id IN NUMBER
717 ) RETURN VARCHAR2
718 IS
719 l_reference VARCHAR2(240) := NULL;
720 BEGIN
721
722 IF p_reference_id IS NOT NULL THEN
723
724 -- SELECT REFERENCE
725 -- INTO l_reference
726 -- FROM DB_TABLE
727 -- WHERE DB_COLUMN = p_reference_id;
728
729 NULL;
730
731 END IF;
732
733 RETURN l_reference;
734
735 EXCEPTION
736
737 WHEN NO_DATA_FOUND THEN
738
739 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)
740 THEN
741
742 FND_MESSAGE.SET_NAME('INV','INV_ID_TO_VALUE_ERROR');
743 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','reference');
744 FND_MSG_PUB.Add;
745
746 END IF;
747
748 RETURN NULL;
749
750 WHEN OTHERS THEN
751
752 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
753 THEN
754 FND_MSG_PUB.Add_Exc_Msg
755 ( G_PKG_NAME
756 , 'Reference'
757 );
758 END IF;
759
760 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
761
762 END Reference;
763
764 FUNCTION Reference_Type
765 ( p_reference_type_code IN NUMBER
766 ) RETURN VARCHAR2
767 IS
768 l_reference_type VARCHAR2(240) := NULL;
769 BEGIN
770
771 IF p_reference_type_code IS NOT NULL THEN
772
773 -- SELECT REFERENCE_TYPE
774 -- INTO l_reference_type
775 -- FROM DB_TABLE
776 -- WHERE DB_COLUMN = p_reference_type_code;
777
778 NULL;
779
780 END IF;
781
782 RETURN l_reference_type;
783
784 EXCEPTION
785
786 WHEN NO_DATA_FOUND THEN
787
788 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)
789 THEN
790
791 FND_MESSAGE.SET_NAME('INV','INV_ID_TO_VALUE_ERROR');
792 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','reference_type');
793 FND_MSG_PUB.Add;
794
795 END IF;
796
797 RETURN NULL;
798
799 WHEN OTHERS THEN
800
801 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
802 THEN
803 FND_MSG_PUB.Add_Exc_Msg
804 ( G_PKG_NAME
805 , 'Reference_Type'
806 );
807 END IF;
808
809 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
810
811 END Reference_Type;
812
813 FUNCTION Task
814 ( p_task_id IN NUMBER
815 ) RETURN VARCHAR2
816 IS
817 l_task VARCHAR2(240) := NULL;
818 BEGIN
819
820 IF p_task_id IS NOT NULL THEN
821
822 -- SELECT TASK
823 -- INTO l_task
824 -- FROM DB_TABLE
825 -- WHERE DB_COLUMN = p_task_id;
826
827 NULL;
828
829 END IF;
830
831 RETURN l_task;
832
833 EXCEPTION
834
835 WHEN NO_DATA_FOUND THEN
836
837 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)
838 THEN
839
840 FND_MESSAGE.SET_NAME('INV','INV_ID_TO_VALUE_ERROR');
841 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','task');
842 FND_MSG_PUB.Add;
843
844 END IF;
845
846 RETURN NULL;
847
848 WHEN OTHERS THEN
849
850 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
851 THEN
852 FND_MSG_PUB.Add_Exc_Msg
853 ( G_PKG_NAME
854 , 'Task'
855 );
856 END IF;
857
858 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
859
860 END Task;
861
862 FUNCTION To_Locator
863 ( p_to_locator_id IN NUMBER
864 ) RETURN VARCHAR2
865 IS
866 l_to_locator VARCHAR2(240) := NULL;
867 BEGIN
868
869 IF p_to_locator_id IS NOT NULL THEN
870
871 -- SELECT TO_LOCATOR
872 -- INTO l_to_locator
873 -- FROM DB_TABLE
874 -- WHERE DB_COLUMN = p_to_locator_id;
875
876 NULL;
877
878 END IF;
879
880 RETURN l_to_locator;
881
882 EXCEPTION
883
884 WHEN NO_DATA_FOUND THEN
885
886 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)
887 THEN
888
889 FND_MESSAGE.SET_NAME('INV','INV_ID_TO_VALUE_ERROR');
890 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','to_locator');
891 FND_MSG_PUB.Add;
892
893 END IF;
894
895 RETURN NULL;
896
897 WHEN OTHERS THEN
898
899 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
900 THEN
901 FND_MSG_PUB.Add_Exc_Msg
902 ( G_PKG_NAME
903 , 'To_Locator'
904 );
905 END IF;
906
907 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
908
909 END To_Locator;
910
911 FUNCTION Transaction_Header
912 ( p_transaction_header_id IN NUMBER
913 ) RETURN VARCHAR2
914 IS
915 l_transaction_header VARCHAR2(240) := NULL;
916 BEGIN
917
918 IF p_transaction_header_id IS NOT NULL THEN
919
920 -- SELECT TRANSACTION_HEADER
921 -- INTO l_transaction_header
922 -- FROM DB_TABLE
923 -- WHERE DB_COLUMN = p_transaction_header_id;
924
925 NULL;
926
927 END IF;
928
929 RETURN l_transaction_header;
930
931 EXCEPTION
932
933 WHEN NO_DATA_FOUND THEN
934
935 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)
936 THEN
937
938 FND_MESSAGE.SET_NAME('INV','INV_ID_TO_VALUE_ERROR');
939 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','transaction_header');
940 FND_MSG_PUB.Add;
941
942 END IF;
943
944 RETURN NULL;
945
946 WHEN OTHERS THEN
947
948 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
949 THEN
950 FND_MSG_PUB.Add_Exc_Msg
951 ( G_PKG_NAME
952 , 'Transaction_Header'
953 );
954 END IF;
955
956 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
957
958 END Transaction_Header;
959
960 FUNCTION Uom
961 ( p_uom_code IN VARCHAR2
962 ) RETURN VARCHAR2
963 IS
964 l_uom VARCHAR2(240) := NULL;
965 BEGIN
966
967 IF p_uom_code IS NOT NULL THEN
968
969 -- SELECT UOM
970 -- INTO l_uom
971 -- FROM DB_TABLE
972 -- WHERE DB_COLUMN = p_uom_code;
973
974 NULL;
975
976 END IF;
977
978 RETURN l_uom;
979
980 EXCEPTION
981
982 WHEN NO_DATA_FOUND THEN
983
984 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)
985 THEN
986
987 FND_MESSAGE.SET_NAME('INV','INV_ID_TO_VALUE_ERROR');
988 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','uom');
989 FND_MSG_PUB.Add;
990
991 END IF;
992
993 RETURN NULL;
994
995 WHEN OTHERS THEN
996
997 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
998 THEN
999 FND_MSG_PUB.Add_Exc_Msg
1000 ( G_PKG_NAME
1001 , 'Uom'
1002 );
1003 END IF;
1004
1005 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1006
1007 END Uom;
1008
1009 -- END GEN Id_To_Value
1010
1011 END INV_Id_To_Value;
[Home] [Help]