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