1: PACKAGE BODY PSB_ENTITY_PVT AS
2: /* $Header: PSBVENPB.pls 120.2 2005/07/13 11:24:48 shtripat ship $ */
3:
4:
5: G_PKG_NAME CONSTANT VARCHAR2(30):= 'PSB_ENTITY_PVT';
1: PACKAGE BODY PSB_ENTITY_PVT AS
2: /* $Header: PSBVENPB.pls 120.2 2005/07/13 11:24:48 shtripat ship $ */
3:
4:
5: G_PKG_NAME CONSTANT VARCHAR2(30):= 'PSB_ENTITY_PVT';
6:
7: procedure INSERT_ROW (
8: p_api_version IN NUMBER,
9: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
58: l_api_version CONSTANT NUMBER := 1.0;
59: --
60: cursor C is
61: select ROWID
62: from PSB_ENTITY
63: where ENTITY_ID = P_ENTITY_ID;
64:
65: BEGIN
66: --
81: --
82: p_return_status := FND_API.G_RET_STS_SUCCESS ;
83: --
84:
85: insert into PSB_ENTITY (
86: ENTITY_ID,
87: ENTITY_TYPE,
88: ENTITY_SUBTYPE,
89: NAME,
292: ATTRIBUTE10,
293: CONTEXT,
294: EFFECTIVE_START_DATE,
295: EFFECTIVE_END_DATE
296: from PSB_ENTITY
297: where ENTITY_ID = P_ENTITY_ID
298: for update of ENTITY_ID nowait;
299: tlinfo c1%rowtype;
300:
544: END IF;
545: --
546: p_return_status := FND_API.G_RET_STS_SUCCESS ;
547: --
548: update PSB_ENTITY set
549: ENTITY_TYPE = P_ENTITY_TYPE,
550: ENTITY_SUBTYPE = P_ENTITY_SUBTYPE,
551: NAME = P_NAME,
552: DESCRIPTION = P_DESCRIPTION,
679: ) IS
680:
681: cursor c is
682: select rowid
683: from psb_entity
684: where entity_id = p_entity_id;
685: dummy c%rowtype;
686:
687: l_api_name CONSTANT varchar2(30) := 'Add Row';
875: END IF;
876: --
877: p_return_status := FND_API.G_RET_STS_SUCCESS ;
878: --
879: delete from PSB_ENTITY
880: where ENTITY_ID = P_ENTITY_ID;
881: if (sql%notfound) then
882: raise no_data_found;
883: end if;
920: --
921: END Delete_Row;
922:
923:
924: end PSB_ENTITY_PVT;