[Home] [Help]
PACKAGE BODY: APPS.JTF_PREFAB_UD_KEY_PUB
Source
1 Package Body JTF_PREFAB_UD_KEY_PUB AS
2 /* $Header: jtfprefabudb.pls 120.3 2005/10/28 00:23:28 emekala ship $ */
3
4 -- global variables --
5 G_PKG_NAME CONSTANT VARCHAR2(30):='JTF_PREFAB_UD_KEY_PUB';
6 G_FILE_NAME CONSTANT VARCHAR2(16):='jtfprefabudb.pls';
7
8 G_LOGIN_ID NUMBER := FND_GLOBAL.CONC_LOGIN_ID;
9 G_USER_ID NUMBER := FND_GLOBAL.USER_ID;
10
11 PROCEDURE INSERT_UD_KEY(
12 p_api_version IN NUMBER,
13 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
14 p_commit IN VARCHAR2 := FND_API.G_FALSE,
15
16 p_ud_key_id OUT NOCOPY jtf_prefab_ud_keys_b.ud_key_id%TYPE,
17 p_application_id IN jtf_prefab_ud_keys_b.application_id%TYPE,
18 p_ud_key_name IN jtf_prefab_ud_keys_b.ud_key_name%TYPE,
19 p_description IN jtf_prefab_ud_keys_tl.description%TYPE,
20 p_filename IN jtf_prefab_ud_keys_b.filename%TYPE,
21 p_user_defined_keys IN jtf_prefab_ud_keys_b.user_defined_keys%TYPE,
22 p_enabled_flag IN jtf_prefab_ud_keys_b.enabled_flag%TYPE,
23
24 p_object_version_number OUT NOCOPY jtf_prefab_ud_keys_b.object_version_number%TYPE,
25
26 x_return_status OUT NOCOPY VARCHAR2,
27 x_msg_count OUT NOCOPY NUMBER,
28 x_msg_data OUT NOCOPY VARCHAR2
29 ) AS
30 -- local variables --
31 l_api_name CONSTANT VARCHAR2(30) := 'INSERT_UD_KEY';
32 l_api_version NUMBER := p_api_version;
33 l_row_id VARCHAR2(255) := NULL;
34
35 CURSOR sequence_cursor IS
36 SELECT jtf_prefab_ud_keys_b_s.NEXTVAL from dual;
37 BEGIN
38 -- Standard Start of API savepoint
39 SAVEPOINT INSERT_UD_KEY;
40
41 -- Standard call to check for call compatibility.
42 IF NOT FND_API.Compatible_API_Call (
43 l_api_version,
44 p_api_version,
45 l_api_name,
46 G_PKG_NAME)
47 THEN
48 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
49 END IF;
50
51 -- Initialize message list if p_init_msg_list is set to TRUE.
52 IF FND_API.To_Boolean( p_init_msg_list ) THEN
53 FND_MSG_PUB.initialize;
54 END IF;
55
56 -- Initialize API return status to success
57 x_return_status := FND_API.G_RET_STS_SUCCESS;
58
59 -- real logic --
60 ----------------
61
62 OPEN sequence_cursor;
63 FETCH sequence_cursor INTO p_ud_key_id;
64 CLOSE sequence_cursor;
65 p_object_version_number := 1;
66
67 JTF_PREFAB_UD_KEYS_PKG.INSERT_ROW(l_row_id,
68 p_ud_key_id,
69 p_object_version_number,
70 NULL,
71 p_application_id,
72 p_ud_key_name,
73 p_filename,
74 p_user_defined_keys,
75 p_enabled_flag,
76 p_description,
77 SYSDATE,
78 G_USER_ID,
79 SYSDATE,
80 G_USER_ID,
81 G_LOGIN_ID);
82 /*
83 INSERT INTO jtf_prefab_ud_keys (ud_key_id,
84 object_version_number,
85 created_by,
86 creation_date,
87 last_updated_by,
88 last_update_date,
89 last_update_login,
90 security_group_id,
91 application_id,
92 ud_key_name,
93 description,
94 filename,
95 user_defined_keys,
96 enabled_flag)
97 VALUES (p_ud_key_id,
98 p_object_version_number,
99 G_USER_ID,
100 SYSDATE,
101 G_USER_ID,
102 SYSDATE,
103 G_LOGIN_ID,
104 NULL,
105 p_application_id,
106 p_ud_key_name,
107 p_description,
108 p_filename,
109 p_user_defined_keys,
110 p_enabled_flag);
111 */
112
113 -----------------------
114 -- end of real logic --
115
116 -- Standard check of p_commit.
117 IF (FND_API.To_Boolean(p_commit)) THEN
118 COMMIT WORK;
119 END IF;
120
121 -- Standard call to get message count and if count is 1, get message info.
122 FND_MSG_PUB.Count_And_Get(
123 p_count => x_msg_count,
124 p_data => x_msg_data );
125
126 EXCEPTION
127 WHEN FND_API.G_EXC_ERROR THEN
128 ROLLBACK TO INSERT_UD_KEY;
129 x_return_status := FND_API.G_RET_STS_ERROR ;
130
131 FND_MSG_PUB.Count_And_Get(
132 p_count => x_msg_count,
133 p_data => x_msg_data );
134
135 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
136 ROLLBACK TO INSERT_UD_KEY;
137 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
138
139 FND_MSG_PUB.Count_And_Get(
140 p_count => x_msg_count,
141 p_data => x_msg_data );
142
143 WHEN OTHERS THEN
144 ROLLBACK TO INSERT_UD_KEY;
145 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
146
147 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
148 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
149 END IF;
150
151 FND_MSG_PUB.Count_And_Get(
152 p_count => x_msg_count,
153 p_data => x_msg_data );
154
155 END INSERT_UD_KEY;
156
157 PROCEDURE UPDATE_UD_KEY(
158 p_api_version IN NUMBER,
159 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
160 p_commit IN VARCHAR2 := FND_API.G_FALSE,
161
162 p_ud_key_id IN jtf_prefab_ud_keys_b.ud_key_id%TYPE,
163 p_application_id IN jtf_prefab_ud_keys_b.application_id%TYPE,
164 p_ud_key_name IN jtf_prefab_ud_keys_b.ud_key_name%TYPE,
165 p_description IN jtf_prefab_ud_keys_tl.description%TYPE,
166 p_filename IN jtf_prefab_ud_keys_b.filename%TYPE,
167 p_user_defined_keys IN jtf_prefab_ud_keys_b.user_defined_keys%TYPE,
168 p_enabled_flag IN jtf_prefab_ud_keys_b.enabled_flag%TYPE,
169
170 p_object_version_number IN OUT NOCOPY jtf_prefab_ud_keys_b.object_version_number%TYPE,
171
172 x_return_status OUT NOCOPY VARCHAR2,
173 x_msg_count OUT NOCOPY NUMBER,
174 x_msg_data OUT NOCOPY VARCHAR2
175 ) AS
176 -- local variables --
177 l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_UD_KEY';
178 l_api_version NUMBER := p_api_version;
179
180 BEGIN
181 -- Standard Start of API savepoint
182 SAVEPOINT UPDATE_UD_KEY;
183
184 -- Standard call to check for call compatibility.
185 IF NOT FND_API.Compatible_API_Call (
186 l_api_version,
187 p_api_version,
188 l_api_name,
189 G_PKG_NAME)
190 THEN
191 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
192 END IF;
193
194 -- Initialize message list if p_init_msg_list is set to TRUE.
195 IF FND_API.To_Boolean( p_init_msg_list ) THEN
196 FND_MSG_PUB.initialize;
197 END IF;
198
199 -- Initialize API return status to success
200 x_return_status := FND_API.G_RET_STS_SUCCESS;
201
202 -- real logic --
203 ----------------
204
205 JTF_PREFAB_UD_KEYS_PKG.UPDATE_ROW(p_ud_key_id,
206 p_object_version_number,
207 NULL,
208 p_application_id,
209 p_ud_key_name,
210 p_filename,
211 p_user_defined_keys,
212 p_enabled_flag,
213 p_description,
214 SYSDATE,
215 G_USER_ID,
216 G_LOGIN_ID);
217
218 /*
219 UPDATE jtf_prefab_ud_keys
220 SET object_version_number = p_object_version_number,
221 last_updated_by = G_USER_ID,
222 last_update_date = SYSDATE,
223 last_update_login = G_LOGIN_ID,
224 description = p_description,
225 filename = p_filename,
226 user_defined_keys = p_user_defined_keys,
227 enabled_flag = p_enabled_flag
228 WHERE ud_key_id = p_ud_key_id;
229 */
230
231 -----------------------
232 -- end of real logic --
233
234 -- Standard check of p_commit.
235 IF (FND_API.To_Boolean(p_commit)) THEN
236 COMMIT WORK;
237 END IF;
238
239 -- Standard call to get message count and if count is 1, get message info.
240 FND_MSG_PUB.Count_And_Get(
241 p_count => x_msg_count,
242 p_data => x_msg_data );
243
244 EXCEPTION
245 WHEN FND_API.G_EXC_ERROR THEN
246 ROLLBACK TO UPDATE_UD_KEY;
247 x_return_status := FND_API.G_RET_STS_ERROR ;
248
249 FND_MSG_PUB.Count_And_Get(
250 p_count => x_msg_count,
251 p_data => x_msg_data );
252
253 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
254 ROLLBACK TO UPDATE_UD_KEY;
255 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
256
257 FND_MSG_PUB.Count_And_Get(
258 p_count => x_msg_count,
259 p_data => x_msg_data );
260
261 WHEN OTHERS THEN
262 ROLLBACK TO UPDATE_UD_KEY;
263 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
264
265 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
266 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
267 END IF;
268
269 FND_MSG_PUB.Count_And_Get(
270 p_count => x_msg_count,
271 p_data => x_msg_data );
272
273 END UPDATE_UD_KEY;
274
275 procedure DELETE_UD_KEY(
276 p_api_version IN NUMBER,
277 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
278 p_commit IN VARCHAR2 := FND_API.G_FALSE,
279
280 p_ud_key_id IN jtf_prefab_ud_keys_b.ud_key_id%TYPE,
281
282 p_object_version_number IN jtf_prefab_ud_keys_b.object_version_number%TYPE,
283
284 x_return_status OUT NOCOPY VARCHAR2,
285 x_msg_count OUT NOCOPY NUMBER,
286 x_msg_data OUT NOCOPY VARCHAR2
287 ) AS
288 l_api_name CONSTANT VARCHAR2(30) := 'DELETE_UD_KEY';
289 l_api_version CONSTANT NUMBER := p_api_version;
290
291 BEGIN
292 -- Standard Start of API savepoint
293 SAVEPOINT DELETE_UD_KEY;
294
295 -- Standard call to check for call compatibility.
296 IF NOT FND_API.Compatible_API_Call (
297 l_api_version,
298 p_api_version,
299 l_api_name,
300 G_PKG_NAME)
301 THEN
302 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
303 END IF;
304
305 -- Initialize message list if p_init_msg_list is set to TRUE.
306 IF FND_API.To_Boolean( p_init_msg_list ) THEN
307 FND_MSG_PUB.initialize;
308 END IF;
309
310 -- Initialize API return status to success
311 x_return_status := FND_API.G_RET_STS_SUCCESS;
312
313 -- real logic --
314 ----------------
315
316 JTF_PREFAB_UD_KEYS_PKG.DELETE_ROW(p_ud_key_id);
317
318 /*
319 DELETE FROM jtf_prefab_ud_keys
320 WHERE ud_key_id = p_ud_key_id;
321 */
322
323 -----------------------
324 -- end of real logic --
325
326 -- Standard check of p_commit.
327 IF (FND_API.To_Boolean(p_commit)) THEN
328 COMMIT WORK;
329 END IF;
330
331 -- Standard call to get message count and if count is 1, get message info.
332 FND_MSG_PUB.Count_And_Get(
333 p_count => x_msg_count,
334 p_data => x_msg_data );
335
336 EXCEPTION
337 WHEN FND_API.G_EXC_ERROR THEN
338 ROLLBACK TO DELETE_UD_KEY;
339 x_return_status := FND_API.G_RET_STS_ERROR ;
340
341 FND_MSG_PUB.Count_And_Get(
342 p_count => x_msg_count,
343 p_data => x_msg_data );
344
345 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
346 ROLLBACK TO DELETE_UD_KEY;
347 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
348
349 FND_MSG_PUB.Count_And_Get(
350 p_count => x_msg_count,
351 p_data => x_msg_data );
352
353 WHEN OTHERS THEN
354 ROLLBACK TO DELETE_UD_KEY;
355 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
356
357 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
358 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
359 END IF;
360
361 FND_MSG_PUB.Count_And_Get(
362 p_count => x_msg_count,
363 p_data => x_msg_data );
364
365 END DELETE_UD_KEY;
366
367 END JTF_PREFAB_UD_KEY_PUB;