1: PACKAGE BODY PSB_ATTRIBUTE_VALUES_PVT AS
2: /* $Header: PSBVPAVB.pls 120.2 2005/07/13 11:27:45 shtripat ship $ */
3:
4:
5: G_PKG_NAME CONSTANT VARCHAR2(30):= 'PSB_ATTRIBUTE_VALUES_PVT';
1: PACKAGE BODY PSB_ATTRIBUTE_VALUES_PVT AS
2: /* $Header: PSBVPAVB.pls 120.2 2005/07/13 11:27:45 shtripat ship $ */
3:
4:
5: G_PKG_NAME CONSTANT VARCHAR2(30):= 'PSB_ATTRIBUTE_VALUES_PVT';
6:
7: procedure INSERT_ROW (
8: p_api_version IN NUMBER,
9: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
61: --
62: l_api_name CONSTANT VARCHAR2(30) := 'Insert_Row';
63: l_api_version CONSTANT NUMBER := 1.0;
64: --
65: cursor C is select ROWID from PSB_ATTRIBUTE_VALUES
66: where ATTRIBUTE_VALUE_ID = P_ATTRIBUTE_VALUE_ID;
67:
68: BEGIN
69: --
84: --
85: p_return_status := FND_API.G_RET_STS_SUCCESS ;
86: --
87:
88: insert into PSB_ATTRIBUTE_VALUES (
89: ATTRIBUTE_VALUE_ID ,
90: ATTRIBUTE_ID ,
91: ATTRIBUTE_VALUE ,
92: HR_VALUE_ID ,
312: ATTRIBUTE27 ,
313: ATTRIBUTE28 ,
314: ATTRIBUTE29 ,
315: ATTRIBUTE30
316: from PSB_ATTRIBUTE_VALUES
317: where ROWID = P_ROWID
318: for update of ATTRIBUTE_VALUE_ID nowait;
319: tlinfo c1%rowtype;
320:
586: END IF;
587: --
588: p_return_status := FND_API.G_RET_STS_SUCCESS ;
589: --
590: update PSB_ATTRIBUTE_VALUES set
591: ATTRIBUTE_VALUE_ID = P_ATTRIBUTE_VALUE_ID,
592: ATTRIBUTE_ID = P_ATTRIBUTE_ID,
593: ATTRIBUTE_VALUE = P_ATTRIBUTE_VALUE,
594: HR_VALUE_ID = P_HR_VALUE_ID,
704: END IF;
705: --
706: p_return_status := FND_API.G_RET_STS_SUCCESS ;
707: --
708: delete from PSB_ATTRIBUTE_VALUES
709: where ATTRIBUTE_VALUE_ID = P_ATTRIBUTE_VALUE_ID;
710: if (sql%notfound) then
711: raise no_data_found;
712: end if;
848: --
849: END Check_References;
850:
851:
852: end PSB_ATTRIBUTE_VALUES_PVT;