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,
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,
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)
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
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
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:
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.
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(
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 );
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(
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 );
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;
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,
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,
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)
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
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
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:
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.
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(
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 );
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(
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 );
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;
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:
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,
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)
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
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
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:
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.
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(
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 );
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(
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 );
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;