1: PACKAGE BODY WSH_CC_REQUEST_SETUPS_PKG AS
2: /* $Header: WSHRSTHB.pls 115.4 2002/06/03 12:31:57 pkm ship $ */
3: -- Global constant holding the package name
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'WSH_CC_REQUEST_SETUPS_PKG';
5:
1: PACKAGE BODY WSH_CC_REQUEST_SETUPS_PKG AS
2: /* $Header: WSHRSTHB.pls 115.4 2002/06/03 12:31:57 pkm ship $ */
3: -- Global constant holding the package name
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'WSH_CC_REQUEST_SETUPS_PKG';
5:
6: /*----------------------------------------------------------*/
7: /* Insert_Row Procedure */
8: /*----------------------------------------------------------*/
7: /* Insert_Row Procedure */
8: /*----------------------------------------------------------*/
9: /* --
10: -- Purpose
11: -- Insert a row into WSH_CC_REQUEST_SETUPS entity
12: --
13: -- Input Parameters
14: -- p_api_version
15: -- API version number (current version is 1.0)
73: l_api_version number := 1.0;
74: begin
75: --dbms_output.put_line('begin api');
76: -- Standard Start of API savepoint
77: SAVEPOINT WSH_CC_REQUEST_SETUPS_PKG;
78: -- Standard call to check for call compatibility.
79: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
80: p_api_version ,
81: l_api_name ,
92: -- Initialize API return status to success
93: x_return_status := FND_API.G_RET_STS_SUCCESS;
94: --dbms_output.put_line('begin api-2');
95:
96: select wsh_cc_request_setups_s.nextval into l_CC_Request_Sequence_ID from dual;
97: /* Validate input parameters if any */
98:
99: -- Insert a row into wsh_cc_users entity with all detail information
100: INSERT INTO Wsh_cc_Request_Setups
96: select wsh_cc_request_setups_s.nextval into l_CC_Request_Sequence_ID from dual;
97: /* Validate input parameters if any */
98:
99: -- Insert a row into wsh_cc_users entity with all detail information
100: INSERT INTO Wsh_cc_Request_Setups
101: ( CC_REQUEST_SEQUENCE_ID
102: ,APPLICATION_ID
103: ,MASTER_ORGANIZATION_ID
104: ,ORGANIZATION_ID
167: );
168:
169: EXCEPTION
170: WHEN FND_API.G_EXC_ERROR THEN
171: ROLLBACK TO WSH_CC_REQUEST_SETUPS_PKG;
172: x_return_status := FND_API.G_RET_STS_ERROR;
173: FND_MSG_PUB.Count_And_Get
174: ( p_count => x_msg_count,
175: p_data => x_msg_data
174: ( p_count => x_msg_count,
175: p_data => x_msg_data
176: );
177: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
178: ROLLBACK TO WSH_CC_REQUEST_SETUPS_PKG;
179: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
180: FND_MSG_PUB.Count_And_Get
181: ( p_count => x_msg_count,
182: p_data => x_msg_data
181: ( p_count => x_msg_count,
182: p_data => x_msg_data
183: );
184: WHEN OTHERS THEN
185: ROLLBACK TO WSH_CC_REQUEST_SETUPS_PKG;
186: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
187: IF FND_MSG_PUB.Check_Msg_Level
188: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
189: THEN
201: /* Update_Row Procedure */
202: /*----------------------------------------------------------*/
203: /* --
204: -- Purpose
205: -- Update a row into WSH_CC_request_setups entity
206: -- for the given cc request seq id
207: --
208: -- Input Parameters
209: -- p_api_version
267: l_api_version number := 1.0;
268: BEGIN
269: --dbms_output.put_line('begin');
270: -- Standard Start of API savepoint
271: SAVEPOINT WSH_CC_REQUEST_SETUPS_PKG;
272: -- Standard call to check for call compatibility.
273: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
274: p_api_version ,
275: l_api_name ,
288:
289: -- Update a row into wsh_cc_users entity with all detail information
290: -- for the given cc seq id
291:
292: update wsh_cc_request_setups
293: SET
294: MASTER_ORGANIZATION_ID = p_MASTER_ORGANIZATION_ID
295: ,APPLICATION_ID = p_APPLICATION_ID
296: ,ORGANIZATION_ID = decode(p_ORGANIZATION_ID,fnd_api.g_miss_num,
336:
337: EXCEPTION
338: WHEN FND_API.G_EXC_ERROR THEN
339: --dbms_output.put_line(sqlerrm);
340: ROLLBACK TO WSH_CC_REQUEST_SETUPS_PKG;
341: x_return_status := FND_API.G_RET_STS_ERROR;
342: FND_MSG_PUB.Count_And_Get
343: ( p_count => x_msg_count,
344: p_data => x_msg_data
344: p_data => x_msg_data
345: );
346: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
347: --dbms_output.put_line(sqlerrm);
348: ROLLBACK TO WSH_CC_REQUEST_SETUPS_PKG;
349: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
350: FND_MSG_PUB.Count_And_Get
351: ( p_count => x_msg_count,
352: p_data => x_msg_data
352: p_data => x_msg_data
353: );
354: WHEN OTHERS THEN
355: --dbms_output.put_line(sqlerrm);
356: ROLLBACK TO WSH_CC_REQUEST_SETUPS_PKG;
357: x_return_status := 'W';
358: IF FND_MSG_PUB.Check_Msg_Level
359: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
360: THEN
373: /* Delete_Row Procedure */
374: /*----------------------------------------------------------*/
375: /* --
376: -- Purpose
377: -- Delete a row from WSH_CC_Request_Setups entity
378: -- for the given request seq id
379: --
380: -- Input Parameters
381: -- p_api_version
424: l_api_version number := 1.0;
425: BEGIN
426: --dbms_output.put_line('begin');
427: -- Standard Start of API savepoint
428: SAVEPOINT WSH_CC_REQUEST_SETUPS_PKG;
429: -- Standard call to check for call compatibility.
430: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
431: p_api_version ,
432: l_api_name ,
442: END IF;
443: -- Initialize API return status to success
444: x_return_status := FND_API.G_RET_STS_SUCCESS;
445:
446: -- Delete a row from wsh_cc_request_setups entity
447: -- for the given request seq id
448:
449: DELETE from wsh_cc_request_setups
450: WHERE cc_request_sequence_id = p_cc_request_sequence_id ;
445:
446: -- Delete a row from wsh_cc_request_setups entity
447: -- for the given request seq id
448:
449: DELETE from wsh_cc_request_setups
450: WHERE cc_request_sequence_id = p_cc_request_sequence_id ;
451: IF SQL%NOTFOUND THEN
452: FND_MESSAGE.SET_NAME('WSH', 'WSH_DELETE_FAILED');
453: FND_MSG_PUB.ADD;
471:
472: EXCEPTION
473: WHEN FND_API.G_EXC_ERROR THEN
474: --dbms_output.put_line(sqlerrm);
475: ROLLBACK TO WSH_CC_REQUEST_SETUPS_PKG;
476: x_return_status := FND_API.G_RET_STS_ERROR;
477: FND_MSG_PUB.Count_And_Get
478: ( p_count => x_msg_count,
479: p_data => x_msg_data
479: p_data => x_msg_data
480: );
481: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
482: --dbms_output.put_line(sqlerrm);
483: ROLLBACK TO WSH_CC_REQUEST_SETUPS_PKG;
484: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
485: FND_MSG_PUB.Count_And_Get
486: ( p_count => x_msg_count,
487: p_data => x_msg_data
487: p_data => x_msg_data
488: );
489: WHEN OTHERS THEN
490: --dbms_output.put_line(sqlerrm);
491: ROLLBACK TO WSH_CC_REQUEST_SETUPS_PKG;
492: x_return_status := 'W';
493: IF FND_MSG_PUB.Check_Msg_Level
494: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
495: THEN
509: /* Lock_Row Procedure */
510: /*----------------------------------------------------------*/
511: /* --
512: -- Purpose
513: -- Check Lock a row of WSH_CC_REQUEST_SETUPS entity
514: -- for the given request seq id
515: --
516: -- Input Parameters
517: -- p_api_version
572: )
573: IS
574: CURSOR lock_row IS
575: SELECT *
576: FROM wsh_cc_request_setups
577: WHERE rowid = p_rowid
578: FOR UPDATE OF CC_REQUEST_SEQUENCE_ID NOWAIT;
579:
580: Recinfo lock_row%ROWTYPE;
583: l_api_version number := 1.0;
584: BEGIN
585: --dbms_output.put_line('begin');
586: -- Standard Start of API savepoint
587: SAVEPOINT WSH_CC_REQUEST_SETUPS_PKG;
588: -- Standard call to check for call compatibility.
589: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
590: p_api_version ,
591: l_api_name ,
601: END IF;
602: -- Initialize API return status to success
603: x_return_status := FND_API.G_RET_STS_SUCCESS;
604:
605: -- Check Lock a row of wsh_cc_request_setups
606: OPEN lock_row;
607: FETCH lock_row into Recinfo;
608:
609: IF (lock_row%NOTFOUND) THEN
681: IF (lock_row%ISOPEN) then
682: close lock_row;
683: End if;
684: End Lock_Row;
685: END WSH_CC_REQUEST_SETUPS_PKG;