10:
11:
12: PROCEDURE CREATE_AUTH (
13: p_api_version IN NUMBER,
14: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
15: p_commit IN VARCHAR2 := FND_API.G_FALSE,
16:
17: p_URL IN VARCHAR2,
18: p_AUTH_NAME IN VARCHAR2,
11:
12: PROCEDURE CREATE_AUTH (
13: p_api_version IN NUMBER,
14: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
15: p_commit IN VARCHAR2 := FND_API.G_FALSE,
16:
17: p_URL IN VARCHAR2,
18: p_AUTH_NAME IN VARCHAR2,
19: p_AUTH_TYPE IN VARCHAR2,
28: ) AS
29: -- local variables --
30: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_AUTH';
31: l_api_version NUMBER := p_api_version;
32: l_return_status VARCHAR2(240) := FND_API.G_RET_STS_SUCCESS;
33: l_commit VARCHAR2(1) := FND_API.G_FALSE;
34:
35: l_row_id VARCHAR2(30) := NULL;
36: l_auth_id NUMBER := NULL;
29: -- local variables --
30: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_AUTH';
31: l_api_version NUMBER := p_api_version;
32: l_return_status VARCHAR2(240) := FND_API.G_RET_STS_SUCCESS;
33: l_commit VARCHAR2(1) := FND_API.G_FALSE;
34:
35: l_row_id VARCHAR2(30) := NULL;
36: l_auth_id NUMBER := NULL;
37:
41: -- Standard Start of API savepoint
42: SAVEPOINT CREATE_AUTH;
43:
44: -- Standard call to check for call compatibility.
45: IF NOT FND_API.Compatible_API_Call (
46: l_api_version,
47: p_api_version,
48: l_api_name,
49: G_PKG_NAME)
47: p_api_version,
48: l_api_name,
49: G_PKG_NAME)
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: IF FND_API.To_Boolean( p_init_msg_list ) 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: IF FND_API.To_Boolean( p_init_msg_list ) THEN
56: FND_MSG_PUB.initialize;
57: END IF;
58:
59: -- Initialize API return status to success
56: FND_MSG_PUB.initialize;
57: END IF;
58:
59: -- Initialize API return status to success
60: x_return_status := FND_API.G_RET_STS_SUCCESS;
61:
62: -- real logic --
63: ----------------
64: -- Use Sequence as the unique key
101: -----------------------
102: -- end of real logic --
103:
104: -- Standard check of p_commit.
105: IF (FND_API.To_Boolean(p_commit)) THEN
106: COMMIT WORK;
107: END IF;
108:
109: -- Standard call to get message count and if count is 1, get message info.
111: p_count => x_msg_count,
112: p_data => x_msg_data );
113:
114: EXCEPTION
115: WHEN FND_API.G_EXC_ERROR THEN
116: ROLLBACK TO CREATE_AUTH;
117: x_return_status := FND_API.G_RET_STS_ERROR ;
118:
119: FND_MSG_PUB.Count_And_Get(
113:
114: EXCEPTION
115: WHEN FND_API.G_EXC_ERROR THEN
116: ROLLBACK TO CREATE_AUTH;
117: x_return_status := FND_API.G_RET_STS_ERROR ;
118:
119: FND_MSG_PUB.Count_And_Get(
120: p_count => x_msg_count,
121: p_data => x_msg_data );
119: FND_MSG_PUB.Count_And_Get(
120: p_count => x_msg_count,
121: p_data => x_msg_data );
122:
123: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
124: ROLLBACK TO CREATE_AUTH;
125: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
126:
127: FND_MSG_PUB.Count_And_Get(
121: p_data => x_msg_data );
122:
123: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
124: ROLLBACK TO CREATE_AUTH;
125: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
126:
127: FND_MSG_PUB.Count_And_Get(
128: p_count => x_msg_count,
129: p_data => x_msg_data );
129: p_data => x_msg_data );
130:
131: WHEN OTHERS THEN
132: ROLLBACK TO CREATE_AUTH;
133: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
134:
135: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
136: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
137: END IF;
144:
145:
146: procedure REMOVE_AUTH (
147: p_api_version IN NUMBER,
148: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
149: p_commit IN VARCHAR2 := FND_API.G_FALSE,
150:
151: p_AUTH_ID IN NUMBER,
152: p_OBJ_VER_NUMBER IN OUT NUMBER,
145:
146: procedure REMOVE_AUTH (
147: p_api_version IN NUMBER,
148: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
149: p_commit IN VARCHAR2 := FND_API.G_FALSE,
150:
151: p_AUTH_ID IN NUMBER,
152: p_OBJ_VER_NUMBER IN OUT NUMBER,
153:
168:
169: -- dbms_output.PUT_LINE('$$$$');
170:
171: -- Standard call to check for call compatibility.
172: IF NOT FND_API.Compatible_API_Call (
173: l_api_version,
174: p_api_version,
175: l_api_name,
176: G_PKG_NAME)
174: p_api_version,
175: l_api_name,
176: G_PKG_NAME)
177: THEN
178: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
179: END IF;
180:
181: -- Initialize message list if p_init_msg_list is set to TRUE.
182: IF FND_API.To_Boolean( p_init_msg_list ) THEN
178: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
179: END IF;
180:
181: -- Initialize message list if p_init_msg_list is set to TRUE.
182: IF FND_API.To_Boolean( p_init_msg_list ) THEN
183: FND_MSG_PUB.initialize;
184: END IF;
185:
186: -- Initialize API return status to success
183: FND_MSG_PUB.initialize;
184: END IF;
185:
186: -- Initialize API return status to success
187: x_return_status := FND_API.G_RET_STS_SUCCESS;
188:
189: -- real logic --
190: ----------------
191: SELECT OBJECT_VERSION_NUMBER INTO l_object_version
193: WHERE AUTH_ID = p_AUTH_ID;
194:
195: -- checking for object version number
196: -- if (l_object_version IS NULL OR l_object_version > p_OBJ_VER_NUMBER) THEN
197: -- RAISE FND_API.G_EXC_ERROR;
198: -- ELSE
199: -- l_object_version := p_OBJ_VER_NUMBER + 1;
200: -- END IF;
201:
214: -----------------------
215: -- end of real logic --
216:
217: -- Standard check of p_commit.
218: IF (FND_API.To_Boolean(p_commit)) THEN
219: COMMIT WORK;
220: END IF;
221:
222: -- Standard call to get message count and if count is 1, get message info.
224: p_count => x_msg_count,
225: p_data => x_msg_data );
226:
227: EXCEPTION
228: WHEN FND_API.G_EXC_ERROR THEN
229: ROLLBACK TO REMOVE_AUTH;
230: x_return_status := FND_API.G_RET_STS_ERROR ;
231:
232: FND_MSG_PUB.Count_And_Get(
226:
227: EXCEPTION
228: WHEN FND_API.G_EXC_ERROR THEN
229: ROLLBACK TO REMOVE_AUTH;
230: x_return_status := FND_API.G_RET_STS_ERROR ;
231:
232: FND_MSG_PUB.Count_And_Get(
233: p_count => x_msg_count,
234: p_data => x_msg_data );
232: FND_MSG_PUB.Count_And_Get(
233: p_count => x_msg_count,
234: p_data => x_msg_data );
235:
236: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
237: ROLLBACK TO REMOVE_AUTH;
238: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
239:
240: FND_MSG_PUB.Count_And_Get(
234: p_data => x_msg_data );
235:
236: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
237: ROLLBACK TO REMOVE_AUTH;
238: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
239:
240: FND_MSG_PUB.Count_And_Get(
241: p_count => x_msg_count,
242: p_data => x_msg_data );
242: p_data => x_msg_data );
243:
244: WHEN OTHERS THEN
245: ROLLBACK TO REMOVE_AUTH;
246: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
247:
248: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
249: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
250: END IF;
257:
258:
259: procedure GET_OBJECT_VERSION (
260: p_api_version IN NUMBER,
261: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
262: p_commit IN VARCHAR2 := FND_API.G_FALSE,
263:
264: p_AUTH_ID IN NUMBER,
265: x_OBJ_VER_NUMBER OUT NUMBER,
258:
259: procedure GET_OBJECT_VERSION (
260: p_api_version IN NUMBER,
261: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
262: p_commit IN VARCHAR2 := FND_API.G_FALSE,
263:
264: p_AUTH_ID IN NUMBER,
265: x_OBJ_VER_NUMBER OUT NUMBER,
266:
270: ) AS
271: ---- local variables ----
272: l_api_name CONSTANT VARCHAR2(30) := 'GET_OBJECT_VERSION';
273: l_api_version NUMBER := p_api_version;
274: l_return_status VARCHAR2(240) := FND_API.G_RET_STS_SUCCESS;
275: l_commit VARCHAR2(1) := FND_API.G_FALSE;
276:
277: BEGIN
278: -- Standard Start of API savepoint
271: ---- local variables ----
272: l_api_name CONSTANT VARCHAR2(30) := 'GET_OBJECT_VERSION';
273: l_api_version NUMBER := p_api_version;
274: l_return_status VARCHAR2(240) := FND_API.G_RET_STS_SUCCESS;
275: l_commit VARCHAR2(1) := FND_API.G_FALSE;
276:
277: BEGIN
278: -- Standard Start of API savepoint
279: SAVEPOINT GET_OBJECT_VERSION;
278: -- Standard Start of API savepoint
279: SAVEPOINT GET_OBJECT_VERSION;
280:
281: -- Standard call to check for call compatibility.
282: IF NOT FND_API.Compatible_API_Call (
283: l_api_version,
284: p_api_version,
285: l_api_name,
286: G_PKG_NAME)
284: p_api_version,
285: l_api_name,
286: G_PKG_NAME)
287: THEN
288: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
289: END IF;
290:
291: -- Initialize message list if p_init_msg_list is set to TRUE.
292: IF FND_API.To_Boolean( p_init_msg_list )
288: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
289: END IF;
290:
291: -- Initialize message list if p_init_msg_list is set to TRUE.
292: IF FND_API.To_Boolean( p_init_msg_list )
293: THEN
294: FND_MSG_PUB.initialize;
295: END IF;
296:
294: FND_MSG_PUB.initialize;
295: END IF;
296:
297: -- Initialize API return status to success
298: x_return_status := FND_API.G_RET_STS_SUCCESS;
299:
300: -- real logic --
301: -------------------------------
302: SELECT OBJECT_VERSION_NUMBER into x_OBJ_VER_NUMBER
304: WHERE AUTH_ID = p_AUTH_ID;
305:
306: IF (sql%notfound) THEN
307: --raise no_data_found;
308: RAISE FND_API.G_EXC_ERROR;
309: END IF;
310: --------------------------------------
311: -- end of real logic --
312:
310: --------------------------------------
311: -- end of real logic --
312:
313: -- Standard check of p_commit.
314: IF (FND_API.To_Boolean(p_commit)) THEN
315: COMMIT WORK;
316: END IF;
317:
318: -- Standard call to get message count and if count is 1, get message info.
320: p_count => x_msg_count,
321: p_data => x_msg_data );
322:
323: EXCEPTION
324: WHEN FND_API.G_EXC_ERROR THEN
325: ROLLBACK TO GET_OBJECT_VERSION;
326: x_return_status := FND_API.G_RET_STS_ERROR ;
327:
328: FND_MSG_PUB.Count_And_Get(
322:
323: EXCEPTION
324: WHEN FND_API.G_EXC_ERROR THEN
325: ROLLBACK TO GET_OBJECT_VERSION;
326: x_return_status := FND_API.G_RET_STS_ERROR ;
327:
328: FND_MSG_PUB.Count_And_Get(
329: p_count => x_msg_count,
330: p_data => x_msg_data );
328: FND_MSG_PUB.Count_And_Get(
329: p_count => x_msg_count,
330: p_data => x_msg_data );
331:
332: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
333: ROLLBACK TO GET_OBJECT_VERSION;
334: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
335:
336: FND_MSG_PUB.Count_And_Get(
330: p_data => x_msg_data );
331:
332: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
333: ROLLBACK TO GET_OBJECT_VERSION;
334: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
335:
336: FND_MSG_PUB.Count_And_Get(
337: p_count => x_msg_count,
338: p_data => x_msg_data );
338: p_data => x_msg_data );
339:
340: WHEN OTHERS THEN
341: ROLLBACK TO GET_OBJECT_VERSION;
342: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
343:
344: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
345: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
346: END IF;
353:
354:
355: PROCEDURE UPDATE_AUTH (
356: p_api_version IN NUMBER,
357: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
358: p_commit IN VARCHAR2 := FND_API.G_FALSE,
359:
360: p_AUTH_ID IN NUMBER,
361: p_OBJ_VER_NUMBER IN OUT NUMBER,
354:
355: PROCEDURE UPDATE_AUTH (
356: p_api_version IN NUMBER,
357: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
358: p_commit IN VARCHAR2 := FND_API.G_FALSE,
359:
360: p_AUTH_ID IN NUMBER,
361: p_OBJ_VER_NUMBER IN OUT NUMBER,
362: p_URL IN VARCHAR2,
369: x_msg_data OUT VARCHAR2
370: ) AS
371: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_AUTH';
372: l_api_version NUMBER := p_api_version;
373: l_return_status VARCHAR2(240) := FND_API.G_RET_STS_SUCCESS;
374: l_commit VARCHAR2(1) := FND_API.G_FALSE;
375: l_object_version NUMBER := NULL;
376:
377: --l_ip_row JTF_XML_INV_PARAMS%ROWTYPE;
370: ) AS
371: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_AUTH';
372: l_api_version NUMBER := p_api_version;
373: l_return_status VARCHAR2(240) := FND_API.G_RET_STS_SUCCESS;
374: l_commit VARCHAR2(1) := FND_API.G_FALSE;
375: l_object_version NUMBER := NULL;
376:
377: --l_ip_row JTF_XML_INV_PARAMS%ROWTYPE;
378: BEGIN
379: -- Standard Start of API savepoint
380: SAVEPOINT UPDATE_AUTH;
381:
382: -- Standard call to check for call compatibility.
383: IF NOT FND_API.Compatible_API_Call (
384: l_api_version,
385: p_api_version,
386: l_api_name,
387: G_PKG_NAME)
385: p_api_version,
386: l_api_name,
387: G_PKG_NAME)
388: THEN
389: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
390: END IF;
391:
392: -- Initialize message list if p_init_msg_list is set to TRUE.
393: IF FND_API.To_Boolean( p_init_msg_list ) THEN
389: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
390: END IF;
391:
392: -- Initialize message list if p_init_msg_list is set to TRUE.
393: IF FND_API.To_Boolean( p_init_msg_list ) THEN
394: FND_MSG_PUB.initialize;
395: END IF;
396:
397: -- Initialize API return status to success
394: FND_MSG_PUB.initialize;
395: END IF;
396:
397: -- Initialize API return status to success
398: x_return_status := FND_API.G_RET_STS_SUCCESS;
399:
400: -- real logic --
401: ----------------
402: SELECT OBJECT_VERSION_NUMBER INTO l_object_version
404: WHERE AUTH_ID = p_AUTH_ID;
405:
406: -- checking for object version number
407: -- if (l_object_version IS NULL OR l_object_version > p_OBJ_VER_NUMBER) THEN
408: -- RAISE FND_API.G_EXC_ERROR;
409: -- ELSE
410: -- l_object_version := p_OBJ_VER_NUMBER + 1;
411: -- END IF;
412:
428: -----------------------
429: -- end of real logic --
430:
431: -- Standard check of p_commit.
432: IF (FND_API.To_Boolean(p_commit)) THEN
433: COMMIT WORK;
434: END IF;
435:
436: -- Standard call to get message count and if count is 1, get message info.
438: p_count => x_msg_count,
439: p_data => x_msg_data );
440:
441: EXCEPTION
442: WHEN FND_API.G_EXC_ERROR THEN
443: ROLLBACK TO UPDATE_AUTH;
444: x_return_status := FND_API.G_RET_STS_ERROR ;
445:
446: FND_MSG_PUB.Count_And_Get(
440:
441: EXCEPTION
442: WHEN FND_API.G_EXC_ERROR THEN
443: ROLLBACK TO UPDATE_AUTH;
444: x_return_status := FND_API.G_RET_STS_ERROR ;
445:
446: FND_MSG_PUB.Count_And_Get(
447: p_count => x_msg_count,
448: p_data => x_msg_data );
446: FND_MSG_PUB.Count_And_Get(
447: p_count => x_msg_count,
448: p_data => x_msg_data );
449:
450: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
451: ROLLBACK TO UPDATE_AUTH;
452: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
453:
454: FND_MSG_PUB.Count_And_Get(
448: p_data => x_msg_data );
449:
450: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
451: ROLLBACK TO UPDATE_AUTH;
452: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
453:
454: FND_MSG_PUB.Count_And_Get(
455: p_count => x_msg_count,
456: p_data => x_msg_data );
456: p_data => x_msg_data );
457:
458: WHEN OTHERS THEN
459: ROLLBACK TO UPDATE_AUTH;
460: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
461:
462: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
463: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
464: END IF;
470: END UPDATE_AUTH;
471:
472: procedure REMOVE_URL (
473: p_api_version IN NUMBER,
474: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
475: p_commit IN VARCHAR2 := FND_API.G_FALSE,
476:
477: p_URL IN VARCHAR2,
478:
471:
472: procedure REMOVE_URL (
473: p_api_version IN NUMBER,
474: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
475: p_commit IN VARCHAR2 := FND_API.G_FALSE,
476:
477: p_URL IN VARCHAR2,
478:
479: x_return_status OUT VARCHAR2,
489:
490: -- dbms_output.PUT_LINE('$$$$');
491:
492: -- Standard call to check for call compatibility.
493: IF NOT FND_API.Compatible_API_Call (
494: l_api_version,
495: p_api_version,
496: l_api_name,
497: G_PKG_NAME)
495: p_api_version,
496: l_api_name,
497: G_PKG_NAME)
498: THEN
499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
500: END IF;
501:
502: -- Initialize message list if p_init_msg_list is set to TRUE.
503: IF FND_API.To_Boolean( p_init_msg_list ) THEN
499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
500: END IF;
501:
502: -- Initialize message list if p_init_msg_list is set to TRUE.
503: IF FND_API.To_Boolean( p_init_msg_list ) THEN
504: FND_MSG_PUB.initialize;
505: END IF;
506:
507: -- Initialize API return status to success
504: FND_MSG_PUB.initialize;
505: END IF;
506:
507: -- Initialize API return status to success
508: x_return_status := FND_API.G_RET_STS_SUCCESS;
509:
510: -- real logic --
511: ----------------
512: -- checking for object version number
510: -- real logic --
511: ----------------
512: -- checking for object version number
513: -- if (l_object_version IS NULL OR l_object_version > p_OBJ_VER_NUMBER) THEN
514: -- RAISE FND_API.G_EXC_ERROR;
515: -- ELSE
516: -- l_object_version := p_OBJ_VER_NUMBER + 1;
517: -- END IF;
518:
530: -----------------------
531: -- end of real logic --
532:
533: -- Standard check of p_commit.
534: IF (FND_API.To_Boolean(p_commit)) THEN
535: COMMIT WORK;
536: END IF;
537:
538: -- Standard call to get message count and if count is 1, get message info.
540: p_count => x_msg_count,
541: p_data => x_msg_data );
542:
543: EXCEPTION
544: WHEN FND_API.G_EXC_ERROR THEN
545: ROLLBACK TO REMOVE_URL;
546: x_return_status := FND_API.G_RET_STS_ERROR ;
547:
548: FND_MSG_PUB.Count_And_Get(
542:
543: EXCEPTION
544: WHEN FND_API.G_EXC_ERROR THEN
545: ROLLBACK TO REMOVE_URL;
546: x_return_status := FND_API.G_RET_STS_ERROR ;
547:
548: FND_MSG_PUB.Count_And_Get(
549: p_count => x_msg_count,
550: p_data => x_msg_data );
548: FND_MSG_PUB.Count_And_Get(
549: p_count => x_msg_count,
550: p_data => x_msg_data );
551:
552: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
553: ROLLBACK TO REMOVE_URL;
554: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
555:
556: FND_MSG_PUB.Count_And_Get(
550: p_data => x_msg_data );
551:
552: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
553: ROLLBACK TO REMOVE_URL;
554: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
555:
556: FND_MSG_PUB.Count_And_Get(
557: p_count => x_msg_count,
558: p_data => x_msg_data );
558: p_data => x_msg_data );
559:
560: WHEN OTHERS THEN
561: ROLLBACK TO REMOVE_URL;
562: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
563:
564: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
565: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
566: END IF;
572: END REMOVE_URL;
573:
574: procedure UPDATE_URL (
575: p_api_version IN NUMBER,
576: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
577: p_commit IN VARCHAR2 := FND_API.G_FALSE,
578:
579: p_URL IN VARCHAR2,
580: p_NEW_URL IN VARCHAR2,
573:
574: procedure UPDATE_URL (
575: p_api_version IN NUMBER,
576: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
577: p_commit IN VARCHAR2 := FND_API.G_FALSE,
578:
579: p_URL IN VARCHAR2,
580: p_NEW_URL IN VARCHAR2,
581:
584: x_msg_data OUT VARCHAR2
585: ) AS
586: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_URL';
587: l_api_version NUMBER := p_api_version;
588: l_return_status VARCHAR2(240) := FND_API.G_RET_STS_SUCCESS;
589: l_commit VARCHAR2(1) := FND_API.G_FALSE;
590: BEGIN
591: -- Standard Start of API savepoint
592: SAVEPOINT UPDATE_URL;
585: ) AS
586: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_URL';
587: l_api_version NUMBER := p_api_version;
588: l_return_status VARCHAR2(240) := FND_API.G_RET_STS_SUCCESS;
589: l_commit VARCHAR2(1) := FND_API.G_FALSE;
590: BEGIN
591: -- Standard Start of API savepoint
592: SAVEPOINT UPDATE_URL;
593:
591: -- Standard Start of API savepoint
592: SAVEPOINT UPDATE_URL;
593:
594: -- Standard call to check for call compatibility.
595: IF NOT FND_API.Compatible_API_Call (
596: l_api_version,
597: p_api_version,
598: l_api_name,
599: G_PKG_NAME)
597: p_api_version,
598: l_api_name,
599: G_PKG_NAME)
600: THEN
601: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
602: END IF;
603:
604: -- Initialize message list if p_init_msg_list is set to TRUE.
605: IF FND_API.To_Boolean( p_init_msg_list ) THEN
601: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
602: END IF;
603:
604: -- Initialize message list if p_init_msg_list is set to TRUE.
605: IF FND_API.To_Boolean( p_init_msg_list ) THEN
606: FND_MSG_PUB.initialize;
607: END IF;
608:
609: -- Initialize API return status to success
606: FND_MSG_PUB.initialize;
607: END IF;
608:
609: -- Initialize API return status to success
610: x_return_status := FND_API.G_RET_STS_SUCCESS;
611:
612: -- real logic --
613: ----------------
614: -- checking for object version number
612: -- real logic --
613: ----------------
614: -- checking for object version number
615: -- if (l_object_version IS NULL OR l_object_version > p_OBJ_VER_NUMBER) THEN
616: -- RAISE FND_API.G_EXC_ERROR;
617: -- ELSE
618: -- l_object_version := p_OBJ_VER_NUMBER + 1;
619: -- END IF;
620:
630: -----------------------
631: -- end of real logic --
632:
633: -- Standard check of p_commit.
634: IF (FND_API.To_Boolean(p_commit)) THEN
635: COMMIT WORK;
636: END IF;
637:
638: -- Standard call to get message count and if count is 1, get message info.
640: p_count => x_msg_count,
641: p_data => x_msg_data );
642:
643: EXCEPTION
644: WHEN FND_API.G_EXC_ERROR THEN
645: ROLLBACK TO UPDATE_URL;
646: x_return_status := FND_API.G_RET_STS_ERROR ;
647:
648: FND_MSG_PUB.Count_And_Get(
642:
643: EXCEPTION
644: WHEN FND_API.G_EXC_ERROR THEN
645: ROLLBACK TO UPDATE_URL;
646: x_return_status := FND_API.G_RET_STS_ERROR ;
647:
648: FND_MSG_PUB.Count_And_Get(
649: p_count => x_msg_count,
650: p_data => x_msg_data );
648: FND_MSG_PUB.Count_And_Get(
649: p_count => x_msg_count,
650: p_data => x_msg_data );
651:
652: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
653: ROLLBACK TO UPDATE_URL;
654: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
655:
656: FND_MSG_PUB.Count_And_Get(
650: p_data => x_msg_data );
651:
652: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
653: ROLLBACK TO UPDATE_URL;
654: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
655:
656: FND_MSG_PUB.Count_And_Get(
657: p_count => x_msg_count,
658: p_data => x_msg_data );
658: p_data => x_msg_data );
659:
660: WHEN OTHERS THEN
661: ROLLBACK TO UPDATE_URL;
662: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
663:
664: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
665: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
666: END IF;