[Home] [Help]
PACKAGE BODY: APPS.IEU_UWQ_MEDIA_CLASS_PVT
Source
1 PACKAGE BODY IEU_UWQ_MEDIA_CLASS_PVT AS
2 -- $Header: IEUMCLB.pls 120.0 2005/06/02 16:00:52 appldev noship $
3
4
5 -- =================================================================
6 -- Start of Comments
7 -- Package name
8 -- IEU_UWQ_MEDIA_CLASS_PVT
9 -- Purpose
10 -- To provide easy to use apis for UQW Admin.
11 -- History
12 -- 25-Oct-2002 gpagadal Created.
13 -- NOTE
14 --
15 -- End of Comments
16 -- ==================================================================
17
18
19
20
21 --===================================================================
22 -- NAME
23 -- GET_MEDIA_CLASS_LIST
24 --
25 -- PURPOSE
26 -- Private api to get all media types.
27 --
28 -- NOTES
29 -- 1. UWQ Admin will use this procedure to get all media
30 -- type classifications
31 --
32 --
33 -- HISTORY
34 -- 25-Oct-2002 GPAGADAL Created
35 -- 07-Feb-2003 GPAGADAL updated- Change the queryin the procedure so that it
36 -- uses cct_classification_values instead of cct view
37
38 --====================================================================
39
40 PROCEDURE GET_MEDIA_CLASS_LIST (p_media_type_id IN number,
41 p_language IN varchar2,
42 x_media_class_list OUT NOCOPY SYSTEM.IEU_CLASS_NST
43 )
44 AS
45
46 l_language VARCHAR2(4);
47 x_return_status VARCHAR2(1);
48
49
50 CURSOR c_mclsfn IS
51 select unique(cv.CLASSIFICATION_VALUE) classification_value, null label
52 from cct_classification_values cv
53 order by lower(cv.CLASSIFICATION_VALUE);
54
55
56 i integer := 0;
57
58 BEGIN
59
60 fnd_msg_pub.delete_msg();
61 x_return_status := fnd_api.g_ret_sts_success;
62 FND_MSG_PUB.initialize;
63 l_language := FND_GLOBAL.CURRENT_LANGUAGE;
64
65 x_media_class_list := SYSTEM.IEU_CLASS_NST();
66
67
68 FOR cur_rec IN c_mclsfn
69 LOOP
70
71 i := i+1;
72 x_media_class_list.EXTEND(1);
73
74
75
76 x_media_class_list(x_media_class_list.last) := SYSTEM.IEU_CLASS_OBJ(cur_rec.classification_value, cur_rec.label);
77
78 end LOOP;
79
80 EXCEPTION
81
82 WHEN FND_API.G_EXC_ERROR THEN
83
84 x_return_status := FND_API.G_RET_STS_ERROR;
85
86 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
87 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
88
89 WHEN OTHERS THEN
90 --Rollback to IEU_UWQ_MEDIA_TYPES_PVT;
91
92 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
93
94
95
96 END GET_MEDIA_CLASS_LIST;
97
98 END IEU_UWQ_MEDIA_CLASS_PVT;
99