[Home] [Help]
PACKAGE BODY: APPS.ICX_USER_SEC_ATTR_PUB
Source
1 PACKAGE BODY ICX_User_Sec_Attr_PUB AS
2 -- $Header: ICXPTUSB.pls 115.1 99/07/17 03:21:23 porting ship $
3
4 PROCEDURE Create_User_Sec_Attr
5 ( p_api_version_number IN NUMBER,
6 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
7 p_simulate IN VARCHAR2 := FND_API.G_FALSE,
8 p_commit IN VARCHAR2 := FND_API.G_FALSE,
9 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
10 p_return_status OUT VARCHAR2,
11 p_msg_count OUT NUMBER,
12 p_msg_data OUT VARCHAR2,
13 -- p_msg_entity OUT VARCHAR2,
14 -- p_msg_entity_index OUT NUMBER,
15 p_web_user_id IN NUMBER,
16 p_attribute_code IN VARCHAR2,
17 p_attribute_appl_id IN NUMBER,
18 p_varchar2_value IN VARCHAR2,
19 p_date_value IN DATE,
20 p_number_value IN NUMBER,
21 p_created_by IN NUMBER,
22 p_creation_date IN DATE,
23 p_last_updated_by IN NUMBER,
24 p_last_update_date IN DATE,
25 p_last_update_login IN NUMBER
26 )
27 IS
28 l_api_name CONSTANT VARCHAR2(30) := 'Create_User_Sec_Attr';
29 l_api_version_number CONSTANT NUMBER := 1.0;
30 l_return_status VARCHAR2(10);
31
32 l_dummy_id NUMBER;
33 l_duplicate NUMBER := 0;
34
35 BEGIN
36
37 -- Standard Start of API savepoint
38
39 SAVEPOINT Create_User_Sec_Attr_PUB;
40
41 -- Standard call to check for call compatibility.
42
43 if NOT FND_API.Compatible_API_Call
44 (
45 l_api_version_number,
46 p_api_version_number,
47 l_api_name,
48 G_PKG_NAME
49 )
50 then
51 raise FND_API.G_EXC_UNEXPECTED_ERROR;
52 end if;
53
54 -- Initialize message list if p_init_msg_list is set to TRUE.
55
56 if FND_API.to_Boolean( p_init_msg_list)
57 then
58 FND_MSG_PUB.initialize;
59 end if;
60
61 -- Initialize API return status to success
62
63 p_return_status := FND_API.G_RET_STS_SUCCESS;
64
65 -- ***************************
66 -- VALIDATION
67
68 -- ***************************
69
70
71 -- Call private api to create web_user_responsibility
72
73 ICX_User_Sec_Attr_PVT.Create_User_Sec_Attr
74 (
75 p_api_version_number => p_api_version_number ,
76 p_init_msg_list => p_init_msg_list ,
77 p_simulate => p_simulate ,
78 p_commit => p_commit ,
79 p_validation_level => p_validation_level ,
80 p_return_status => l_return_status ,
81 p_msg_count => p_msg_count ,
82 p_msg_data => p_msg_data ,
83 -- p_msg_entity => p_msg_entity ,
84 -- p_msg_entity_index => p_msg_entity_index ,
85 p_web_user_id => p_web_user_id ,
86 p_attribute_code => p_attribute_code ,
87 p_attribute_appl_id => p_attribute_appl_id ,
88 p_varchar2_value => p_varchar2_value ,
89 p_date_value => p_date_value ,
90 p_number_value => p_number_value ,
91 p_created_by => p_created_by ,
92 p_creation_date => p_creation_date ,
93 p_last_updated_by => p_last_updated_by ,
94 p_last_update_date => p_last_update_date ,
95 p_last_update_login => p_last_update_login
96 );
97
98 -- Both G_EXC_ERROR and G_EXC_UNEXPECTED_ERROR are handled in
99 -- the API exception handler.
100
101 if l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
102 then
103
104 -- Unexpected error, abort processing.
105
106 raise FND_API.G_EXC_UNEXPECTED_ERROR;
107
108 elsif l_return_status = FND_API.G_RET_STS_ERROR THEN
109
110 -- Error, abort processing
111
112 raise FND_API.G_EXC_ERROR;
113
114 end if;
115
116 -- Standard check of p_simulate and p_commit parameters
117
118 if FND_API.To_Boolean( p_simulate)
119 then
120 ROLLBACK to Create_User_Sec_Attr_PUB;
121
122 elsif FND_API.To_Boolean( p_commit)
123 then
124 commit work;
125 end if;
126
127 -- Standard call to get message count and if count is 1, get message info.
128
129 FND_MSG_PUB.Count_And_Get
130 (
131 p_count => p_msg_count,
132 p_data => p_msg_data
133 );
134
135 EXCEPTION
136
137 WHEN FND_API.G_EXC_ERROR THEN
138
139 Rollback to Create_User_Sec_Attr_PUB;
140 p_return_status := FND_API.G_RET_STS_ERROR;
141
142 FND_MSG_PUB.Count_And_Get
143 (
144 p_count => p_msg_count,
145 p_data => p_msg_data
146 );
147
148 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
149
150 Rollback to Create_User_Sec_Attr_PUB;
151 p_return_status := FND_API.G_RET_STS_ERROR;
152
153 FND_MSG_PUB.Count_And_Get
154 (
155 p_count => p_msg_count,
156 p_data => p_msg_data
157 );
158
159 WHEN OTHERS THEN
160
161 Rollback to Create_User_Sec_Attr_PUB;
162 p_return_status := FND_API.G_RET_STS_ERROR;
163
164 if FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
165 then
166 FND_MSG_PUB.Add_Exc_Msg
167 (
168 G_FILE_NAME,
169 G_PKG_NAME,
170 l_api_name
171 );
172 end if;
173
174 FND_MSG_PUB.Count_And_Get
175 (
176 p_count => p_msg_count,
177 p_data => p_msg_data
178 );
179
180 end Create_User_Sec_Attr;
181
182
183
184
185 PROCEDURE Delete_User_Sec_Attr
186 ( p_api_version_number IN NUMBER,
187 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
188 p_simulate IN VARCHAR2 := FND_API.G_FALSE,
189 p_commit IN VARCHAR2 := FND_API.G_FALSE,
190 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
191 p_return_status OUT VARCHAR2,
192 p_msg_count OUT NUMBER,
193 p_msg_data OUT VARCHAR2,
194 -- p_msg_entity OUT VARCHAR2,
195 -- p_msg_entity_index OUT NUMBER,
196 p_web_user_id IN NUMBER,
197 p_attribute_code IN VARCHAR2,
198 p_attribute_appl_id IN NUMBER,
199 p_varchar2_value IN VARCHAR2,
200 p_date_value IN DATE,
201 p_number_value IN NUMBER
202
203 )
204 IS
205 l_api_name CONSTANT VARCHAR2(30) := 'Delete_User_Sec_Attr';
206 l_api_version_number CONSTANT NUMBER := 1.0;
207 l_return_status VARCHAR2(10);
208
209 BEGIN
210
211 -- Standard Start of API savepoint
212
213 SAVEPOINT Delete_User_Sec_Attr_PUB;
214
215 -- Standard call to check for call compatibility.
216
217 if NOT FND_API.Compatible_API_Call
218 (
219 l_api_version_number,
220 p_api_version_number,
221 l_api_name,
222 G_PKG_NAME
223 )
224 then
225 raise FND_API.G_EXC_UNEXPECTED_ERROR;
226 end if;
227
228 -- Initialize message list if p_init_msg_list is set to TRUE.
229
230 if FND_API.to_Boolean( p_init_msg_list)
231 then
232 FND_MSG_PUB.initialize;
233 end if;
234
235 -- Initialize API return status to success
236
237 p_return_status := FND_API.G_RET_STS_SUCCESS;
238
239 ICX_User_Sec_Attr_PVT.Delete_User_Sec_Attr
240 (
241 p_api_version_number => p_api_version_number ,
242 p_init_msg_list => p_init_msg_list ,
243 p_simulate => p_simulate ,
244 p_commit => p_commit ,
245 p_validation_level => p_validation_level ,
246 p_return_status => l_return_status ,
247 p_msg_count => p_msg_count ,
248 p_msg_data => p_msg_data ,
249 -- p_msg_entity => p_msg_entity ,
250 -- p_msg_entity_index => p_msg_entity_index ,
251 p_web_user_id => p_web_user_id ,
252 p_attribute_code => p_attribute_code ,
253 p_attribute_appl_id => p_attribute_appl_id ,
254 p_varchar2_value => p_varchar2_value ,
255 p_date_value => p_date_value ,
256 p_number_value => p_number_value
257 );
258
259 -- Both G_EXC_ERROR and G_EXC_UNEXPECTED_ERROR are handled in
260 -- the API exception handler.
261
262 if l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
263 then
264
265 -- Unexpected error, abort processing.
266
267 raise FND_API.G_EXC_UNEXPECTED_ERROR;
268
269 elsif l_return_status = FND_API.G_RET_STS_ERROR THEN
270
271 -- Error, abort processing
272
273 raise FND_API.G_EXC_ERROR;
274
275 end if;
276
277 -- Standard check of p_simulate and p_commit parameters
278
279 if FND_API.To_Boolean( p_simulate)
280 then
281 ROLLBACK to Delete_User_Sec_Attr_PUB;
282
283 elsif FND_API.To_Boolean( p_commit)
284 then
285 commit work;
286 end if;
287
288 -- Standard call to get message count and if count is 1, get message info.
289
290 FND_MSG_PUB.Count_And_Get
291 (
292 p_count => p_msg_count,
293 p_data => p_msg_data
294 );
295
296 EXCEPTION
297
298 WHEN FND_API.G_EXC_ERROR THEN
299
300 Rollback to Delete_User_Sec_Attr_PUB;
301 p_return_status := FND_API.G_RET_STS_ERROR;
302
303 FND_MSG_PUB.Count_And_Get
304 (
305 p_count => p_msg_count,
306 p_data => p_msg_data
307 );
308
309 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
310
311 Rollback to Delete_User_Sec_Attr_PUB;
312 p_return_status := FND_API.G_RET_STS_ERROR;
313
314 FND_MSG_PUB.Count_And_Get
315 (
316 p_count => p_msg_count,
317 p_data => p_msg_data
318 );
319
320 WHEN OTHERS THEN
321
322 Rollback to Delete_User_Sec_Attr_PUB;
323 p_return_status := FND_API.G_RET_STS_ERROR;
324
325 if FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
326 then
327 FND_MSG_PUB.Add_Exc_Msg
328 (
329 G_FILE_NAME,
330 G_PKG_NAME,
331 l_api_name
332 );
333 end if;
334
335 FND_MSG_PUB.Count_And_Get
336 (
337 p_count => p_msg_count,
338 p_data => p_msg_data
339 );
340
341 end Delete_User_Sec_Attr;
342
343
344 END ICX_User_Sec_Attr_PUB;