[Home] [Help]
1: PACKAGE BODY CSI_IEA_VALUES_PKG as
2: /* $Header: csitcivb.pls 115.13 2003/09/04 00:17:55 sguthiva ship $ */
3:
4: g_pkg_name CONSTANT VARCHAR2(30):= 'csi_iea_values_pkg';
5:
1: PACKAGE BODY CSI_IEA_VALUES_PKG as
2: /* $Header: csitcivb.pls 115.13 2003/09/04 00:17:55 sguthiva ship $ */
3:
4: g_pkg_name CONSTANT VARCHAR2(30):= 'csi_iea_values_pkg';
5:
6: PROCEDURE Insert_Row(
7: px_ATTRIBUTE_VALUE_ID IN OUT NOCOPY NUMBER,
8: p_ATTRIBUTE_ID NUMBER,
32: p_LAST_UPDATE_DATE DATE,
33: p_LAST_UPDATE_LOGIN NUMBER,
34: p_OBJECT_VERSION_NUMBER NUMBER)
35: IS
36: CURSOR C2 IS SELECT CSI_IEA_VALUES_S.nextval FROM sys.dual;
37: BEGIN
38: If (px_ATTRIBUTE_VALUE_ID IS NULL) OR (px_ATTRIBUTE_VALUE_ID = FND_API.G_MISS_NUM) then
39: OPEN C2;
40: FETCH C2 INTO px_ATTRIBUTE_VALUE_ID;
39: OPEN C2;
40: FETCH C2 INTO px_ATTRIBUTE_VALUE_ID;
41: CLOSE C2;
42: End If;
43: INSERT INTO CSI_IEA_VALUES(
44: ATTRIBUTE_VALUE_ID,
45: ATTRIBUTE_ID,
46: INSTANCE_ID,
47: ATTRIBUTE_VALUE,
131: p_OBJECT_VERSION_NUMBER NUMBER)
132:
133: IS
134: BEGIN
135: Update CSI_IEA_VALUES
136: SET
137: ATTRIBUTE_ID = decode( p_ATTRIBUTE_ID, FND_API.G_MISS_NUM, ATTRIBUTE_ID, p_ATTRIBUTE_ID),
138: INSTANCE_ID = decode( p_INSTANCE_ID, FND_API.G_MISS_NUM, INSTANCE_ID, p_INSTANCE_ID),
139: ATTRIBUTE_VALUE = decode( p_ATTRIBUTE_VALUE, FND_API.G_MISS_CHAR, ATTRIBUTE_VALUE, p_ATTRIBUTE_VALUE),
171: PROCEDURE Delete_Row(
172: p_ATTRIBUTE_VALUE_ID NUMBER)
173: IS
174: BEGIN
175: DELETE FROM CSI_IEA_VALUES
176: WHERE ATTRIBUTE_VALUE_ID = p_ATTRIBUTE_VALUE_ID;
177: If (SQL%NOTFOUND) then
178: RAISE NO_DATA_FOUND;
179: End If;
211:
212: IS
213: CURSOR C IS
214: SELECT *
215: FROM CSI_IEA_VALUES
216: WHERE ATTRIBUTE_VALUE_ID = p_ATTRIBUTE_VALUE_ID
217: FOR UPDATE of ATTRIBUTE_VALUE_ID NOWAIT;
218: Recinfo C%ROWTYPE;
219: BEGIN
315: APP_EXCEPTION.RAISE_EXCEPTION;
316: End If;
317: END Lock_Row;
318:
319: End CSI_IEA_VALUES_PKG;