[Home] [Help]
PACKAGE BODY: APPS.CS_SR_PREFERRED_LANG_PUB
Source
1 PACKAGE BODY CS_SR_Preferred_Lang_PUB AS
2 /* $Header: cspprlb.pls 115.4 2002/11/30 10:13:59 pkesani noship $ */
3
4 G_PKG_NAME CONSTANT VARCHAR2(30) := 'CS_SR_Preferred_Lang_PUB';
5 G_INITIALIZED CONSTANT VARCHAR2(1) := 'R';
6
7
8 PROCEDURE initialize_rec(p_preferred_lang_record IN OUT
9 NOCOPY CS_SR_Preferred_Lang_PVT.preferred_language_rec_type) AS
10
11 BEGIN
12 CS_SR_Preferred_Lang_PVT.initialize_rec(p_preferred_lang_record);
13 END initialize_rec;
14
15
16
17 /* ************************************************************************* *
18 * API Procedure Bodies *
19 * ************************************************************************* */
20
21 --------------------------------------------------------------------------
22 -- Create_Preferred_Language
23 --------------------------------------------------------------------------
24
25
26 PROCEDURE Create_Preferred_Language
27 ( p_api_version IN NUMBER,
28 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
29 p_commit IN VARCHAR2 := FND_API.G_FALSE,
30 x_return_status OUT NOCOPY VARCHAR2,
31 x_msg_count OUT NOCOPY NUMBER,
32 x_msg_data OUT NOCOPY VARCHAR2,
33 p_resp_appl_id IN NUMBER := NULL,
34 p_resp_id IN NUMBER := NULL,
35 p_user_id IN NUMBER ,
36 p_login_id IN NUMBER := NULL,
37 p_preferred_language_rec IN CS_SR_Preferred_Lang_PVT.preferred_language_rec_type
38 )
39 IS
40 l_api_version CONSTANT NUMBER := 1.0;
41 l_api_name CONSTANT VARCHAR2(30) := 'Create_Preferred_Language';
42 l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
43 l_resp_appl_id NUMBER := p_resp_appl_id;
44 l_resp_id NUMBER := p_resp_id;
45 l_user_id NUMBER := p_user_id;
46 l_login_id NUMBER := p_login_id;
47
48 l_return_status VARCHAR2(1);
49 i NUMBER := 0; -- counter
50 l_request_rec CS_SR_Preferred_Lang_PVT.preferred_language_rec_type;
51
52 l_preferred_language_rec CS_SR_Preferred_Lang_PVT.preferred_language_rec_type
53 DEFAULT p_preferred_language_rec;
54 l_dummy VARCHAR2(2000);
55
56
57 BEGIN
58 SAVEPOINT Create_Preferred_Language_PUB;
59
60 -- Standard call to check for call compatibility
61 IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
62 G_PKG_NAME) THEN
63 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
64 END IF;
65
66 -- Initialize message list if p_init_msg_list is set to TRUE
67 IF FND_API.To_Boolean(p_init_msg_list) THEN
68 FND_MSG_PUB.Initialize;
69 END IF;
70
71 -- Initialize API return status to success
72 x_return_status := FND_API.G_RET_STS_SUCCESS;
73
74
75 -- ----------------------------------------------------------------------
76 -- Perform business rule validation and the database operation by calling
77 -- the Private API.
78 -- ----------------------------------------------------------------------
79
80 CS_SR_Preferred_Lang_PVT.Create_Preferred_Language
81 ( p_api_version => 1.0,
82 p_init_msg_list => FND_API.G_FALSE,
83 p_commit => FND_API.G_FALSE,
84 p_validation_level => FND_API.G_VALID_LEVEL_FULL,
85 x_return_status => l_return_status,
86 x_msg_count => x_msg_count,
87 x_msg_data => x_msg_data,
88 p_resp_appl_id => l_resp_appl_id,
89 p_resp_id => l_resp_id,
90 p_user_id => l_user_id,
91 p_login_id => l_login_id,
92 p_preferred_language_rec => l_preferred_language_rec
93 );
94
95
96 IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
97 RAISE FND_API.G_EXC_ERROR;
98 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
99 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
100 END IF;
101
102 -- Standard check of p_commit
103 IF FND_API.To_Boolean(p_commit) THEN
104 COMMIT WORK;
105 END IF;
106
107 -- Standard call to get message count and if count is 1, get message info
108 FND_MSG_PUB.Count_And_Get
109 ( p_count => x_msg_count,
110 p_data => x_msg_data
111 );
112
113 EXCEPTION
114 WHEN FND_API.G_EXC_ERROR THEN
115 ROLLBACK TO Create_Preferred_Language_PUB;
116 x_return_status := FND_API.G_RET_STS_ERROR;
117 FND_MSG_PUB.Count_And_Get
118 ( p_count => x_msg_count,
119 p_data => x_msg_data
120 );
121 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
122 ROLLBACK TO Create_Preferred_Language_PUB;
123 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
124 FND_MSG_PUB.Count_And_Get
125 ( p_count => x_msg_count,
126 p_data => x_msg_data
127 );
128 WHEN OTHERS THEN
129 ROLLBACK TO Create_Preferred_Language_PUB;
130 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
131 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
132 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
133 END IF;
134 FND_MSG_PUB.Count_And_Get
135 ( p_count => x_msg_count,
136 p_data => x_msg_data
137 );
138
139 END Create_Preferred_Language;
140
141
142 --------------------------------------------------------------------------
143 -- Update_Preferred_Language
144 --------------------------------------------------------------------------
145
146 PROCEDURE Update_Preferred_Language
147 (
148 p_api_version IN NUMBER,
149 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
150 p_commit IN VARCHAR2 := FND_API.G_FALSE,
151 x_return_status OUT NOCOPY VARCHAR2,
152 x_msg_count OUT NOCOPY NUMBER,
153 x_msg_data OUT NOCOPY VARCHAR2,
154 p_pref_lang_id IN NUMBER,
155 p_object_version_number IN NUMBER,
156 p_resp_appl_id IN NUMBER := NULL,
157 p_resp_id IN NUMBER := NULL,
158 p_user_id IN NUMBER ,
159 p_login_id IN NUMBER := NULL,
160 p_last_updated_by IN NUMBER,
161 p_last_update_login IN NUMBER :=NULL,
162 p_last_update_date IN DATE,
163 p_preferred_language_rec IN CS_SR_Preferred_Lang_PVT.preferred_language_rec_type
164 )
165 IS
166 l_api_version CONSTANT NUMBER := 1.0;
167 l_api_name CONSTANT VARCHAR2(30) := 'Update_Preferred_Language';
168 l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
169 l_return_status VARCHAR2(1);
170 l_msg_count NUMBER;
171 l_msg_data VARCHAR2(2000);
172
173 l_preferred_language_rec CS_SR_Preferred_Lang_PVT.preferred_language_rec_type
174 DEFAULT p_preferred_language_rec;
175
176 l_resp_appl_id NUMBER := p_resp_appl_id;
177 l_resp_id NUMBER := p_resp_id;
178 l_user_id NUMBER := p_last_updated_by;
179 l_login_id NUMBER := p_last_update_login;
180
181 BEGIN
182 -- Standard start of API savepoint
183 SAVEPOINT Update_Preferred_Language_PUB;
184
185 -- Standard call to check for call compatibility
186 IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
187 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
188 END IF;
189
190 -- Initialize message list if p_init_msg_list is set to TRUE
191 IF FND_API.To_Boolean(p_init_msg_list) THEN
192 FND_MSG_PUB.Initialize;
193 END IF;
194
195 -- Initialize API return status to success
196 x_return_status := FND_API.G_RET_STS_SUCCESS;
197
198
199 CS_SR_Preferred_Lang_PVT.Update_Preferred_Language
200 ( p_api_version => 1.0,
201 p_init_msg_list => FND_API.G_FALSE,
202 p_commit => FND_API.G_FALSE,
203 p_validation_level => FND_API.G_VALID_LEVEL_FULL,
204 x_return_status => x_return_status,
205 x_msg_count => x_msg_count,
206 x_msg_data => x_msg_data,
207 p_pref_lang_id => p_pref_lang_id,
208 p_object_version_number => p_object_version_number,
209 p_resp_appl_id => p_resp_appl_id,
210 p_resp_id => p_resp_id,
211 p_user_id => p_user_id,
212 p_login_id => p_login_id,
213 p_last_updated_by => l_user_id,
214 p_last_update_login => l_login_id,
215 p_last_update_date => p_last_update_date,
216 p_preferred_language_rec => l_preferred_language_rec
217 );
218
219
220 IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
221 raise FND_API.G_EXC_ERROR;
222 ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
223 raise FND_API.G_EXC_UNEXPECTED_ERROR;
224 END IF;
225
226 -- Standard check of p_commit
227 IF FND_API.To_Boolean(p_commit) THEN
228 COMMIT WORK;
229 END IF;
230
231 -- Standard call to get message count and if count is 1, get message info
232 FND_MSG_PUB.Count_And_Get
233 ( p_count => x_msg_count,
234 p_data => x_msg_data
235 );
236
237 EXCEPTION
238 WHEN FND_API.G_EXC_ERROR THEN
239 ROLLBACK TO Update_Preferred_Language_PUB;
240 x_return_status := FND_API.G_RET_STS_ERROR;
241 FND_MSG_PUB.Count_And_Get
242 ( p_count => x_msg_count,
243 p_data => x_msg_data
244 );
245 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
246 ROLLBACK TO Update_Preferred_Language_PUB;
247 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
248 FND_MSG_PUB.Count_And_Get
249 ( p_count => x_msg_count,
250 p_data => x_msg_data
251 );
252 WHEN OTHERS THEN
253 ROLLBACK TO Update_Preferred_Language_PUB;
254 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
255 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
256 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
257 END IF;
258 FND_MSG_PUB.Count_And_Get
259 ( p_count => x_msg_count,
260 p_data => x_msg_data
261 );
262
263 END Update_Preferred_Language;
264
265
266
267 END CS_SR_Preferred_lang_PUB;