[Home] [Help]
1: PACKAGE BODY PSB_ENTITY_ASSIGNMENT_PVT AS
2: /* $Header: PSBVEAPB.pls 115.4 2002/11/18 10:57:05 msuram ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30):= 'PSB_ENTITY_ASSIGNMENT_PVT';
5:
1: PACKAGE BODY PSB_ENTITY_ASSIGNMENT_PVT AS
2: /* $Header: PSBVEAPB.pls 115.4 2002/11/18 10:57:05 msuram ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30):= 'PSB_ENTITY_ASSIGNMENT_PVT';
5:
6: procedure INSERT_ROW(
7: p_api_version IN NUMBER,
8: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
28: --
29: l_api_name CONSTANT VARCHAR2(30) := 'Insert_Row';
30: l_api_version CONSTANT NUMBER := 1.0;
31: --
32: cursor C is select ROWID from PSB_ENTITY_ASSIGNMENT
33: where ENTITY_SET_ID = P_ENTITY_SET_ID
34: and ENTITY_ID = P_ENTITY_ID;
35: BEGIN
36: --
51: --
52: p_return_status := FND_API.G_RET_STS_SUCCESS ;
53: --
54:
55: insert into PSB_ENTITY_ASSIGNMENT (
56: ENTITY_SET_ID,
57: ENTITY_ID,
58: PRIORITY,
59: SEVERITY_LEVEL,
153: PRIORITY,
154: SEVERITY_LEVEL,
155: EFFECTIVE_START_DATE,
156: EFFECTIVE_END_DATE
157: from PSB_ENTITY_ASSIGNMENT
158: where ENTITY_SET_ID = P_ENTITY_SET_ID
159: and ENTITY_ID = P_ENTITY_ID
160: for update of ENTITY_SET_ID nowait;
161: tlinfo c1%rowtype;
298: END IF;
299: --
300: p_return_status := FND_API.G_RET_STS_SUCCESS ;
301: --
302: update PSB_ENTITY_ASSIGNMENT set
303: PRIORITY = P_PRIORITY,
304: SEVERITY_LEVEL = P_SEVERITY_LEVEL,
305: EFFECTIVE_START_DATE = P_EFFECTIVE_START_DATE,
306: EFFECTIVE_END_DATE = P_EFFECTIVE_END_DATE,
388: END IF;
389: --
390: p_return_status := FND_API.G_RET_STS_SUCCESS ;
391: --
392: delete from PSB_ENTITY_ASSIGNMENT
393: where ENTITY_SET_ID = P_ENTITY_SET_ID
394: and ENTITY_ID = P_ENTITY_ID;
395:
396: IF (SQL%NOTFOUND) THEN
435: p_data => p_msg_data );
436: --
437: END Delete_Row;
438:
439: End PSB_ENTITY_ASSIGNMENT_PVT;