[Home] [Help]
1: PACKAGE BODY CSI_I_ASSETS_H_PKG as
2: /* $Header: csitashb.pls 120.2 2005/06/08 15:39:14 appldev $ */
3:
4:
5: G_PKG_NAME CONSTANT VARCHAR2(30):= 'CSI_I_ASSETS_H_PKG';
1: PACKAGE BODY CSI_I_ASSETS_H_PKG as
2: /* $Header: csitashb.pls 120.2 2005/06/08 15:39:14 appldev $ */
3:
4:
5: G_PKG_NAME CONSTANT VARCHAR2(30):= 'CSI_I_ASSETS_H_PKG';
6: G_FILE_NAME CONSTANT VARCHAR2(12) := 'csitashb.pls';
7:
8: PROCEDURE Insert_Row(
9: px_INSTANCE_ASSET_HISTORY_ID IN OUT NOCOPY NUMBER,
39: p_OLD_ACTIVE_END_DATE DATE,
40: p_NEW_ACTIVE_END_DATE DATE)
41:
42: IS
43: CURSOR C2 IS SELECT CSI_I_ASSETS_H_S.nextval FROM sys.dual;
44: BEGIN
45: If (px_INSTANCE_ASSET_HISTORY_ID IS NULL) OR (px_INSTANCE_ASSET_HISTORY_ID = FND_API.G_MISS_NUM) then
46: OPEN C2;
47: FETCH C2 INTO px_INSTANCE_ASSET_HISTORY_ID;
46: OPEN C2;
47: FETCH C2 INTO px_INSTANCE_ASSET_HISTORY_ID;
48: CLOSE C2;
49: End If;
50: INSERT INTO CSI_I_ASSETS_H(
51: INSTANCE_ASSET_HISTORY_ID,
52: INSTANCE_ASSET_ID,
53: TRANSACTION_ID,
54: OLD_INSTANCE_ID,
150: p_NEW_ACTIVE_END_DATE DATE)
151:
152: IS
153: BEGIN
154: Update CSI_I_ASSETS_H
155: SET INSTANCE_ASSET_ID =
156: decode( p_INSTANCE_ASSET_ID, FND_API.G_MISS_NUM, INSTANCE_ASSET_ID, p_INSTANCE_ASSET_ID),
157: TRANSACTION_ID =
158: decode( p_TRANSACTION_ID, FND_API.G_MISS_NUM, TRANSACTION_ID, p_TRANSACTION_ID),
221: PROCEDURE Delete_Row(
222: p_INSTANCE_ASSET_HISTORY_ID NUMBER)
223: IS
224: BEGIN
225: DELETE FROM CSI_I_ASSETS_H
226: WHERE INSTANCE_ASSET_HISTORY_ID = p_INSTANCE_ASSET_HISTORY_ID;
227: If (SQL%NOTFOUND) then
228: RAISE NO_DATA_FOUND;
229: End If;
265:
266: IS
267: CURSOR C IS
268: SELECT *
269: FROM CSI_I_ASSETS_H
270: WHERE INSTANCE_ASSET_HISTORY_ID = p_INSTANCE_ASSET_HISTORY_ID
271: FOR UPDATE of INSTANCE_ASSET_HISTORY_ID NOWAIT;
272: Recinfo C%ROWTYPE;
273: BEGIN
363: APP_EXCEPTION.RAISE_EXCEPTION;
364: End If;
365: END Lock_Row;
366:
367: End CSI_I_ASSETS_H_PKG;
368: