[Home] [Help]
1: PACKAGE BODY CSI_I_ASSETS_PKG as
2: /* $Header: csitinab.pls 120.2 2005/06/08 13:52:25 appldev $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30):= 'CSI_I_ASSETS_PKG';
5: G_FILE_NAME CONSTANT VARCHAR2(12) := 'csitinab.pls';
1: PACKAGE BODY CSI_I_ASSETS_PKG as
2: /* $Header: csitinab.pls 120.2 2005/06/08 13:52:25 appldev $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30):= 'CSI_I_ASSETS_PKG';
5: G_FILE_NAME CONSTANT VARCHAR2(12) := 'csitinab.pls';
6:
7: PROCEDURE Insert_Row(
8: px_INSTANCE_ASSET_ID IN OUT NOCOPY NUMBER,
24: p_ACTIVE_START_DATE DATE,
25: p_ACTIVE_END_DATE DATE)
26:
27: IS
28: CURSOR C2 IS SELECT CSI_I_ASSETS_S.nextval FROM sys.dual;
29: BEGIN
30: If (px_INSTANCE_ASSET_ID IS NULL) OR (px_INSTANCE_ASSET_ID = FND_API.G_MISS_NUM) then
31: OPEN C2;
32: FETCH C2 INTO px_INSTANCE_ASSET_ID;
31: OPEN C2;
32: FETCH C2 INTO px_INSTANCE_ASSET_ID;
33: CLOSE C2;
34: End If;
35: INSERT INTO CSI_I_ASSETS(
36: INSTANCE_ASSET_ID,
37: INSTANCE_ID,
38: FA_ASSET_ID,
39: FA_BOOK_TYPE_CODE,
93: p_ACTIVE_END_DATE DATE)
94:
95: IS
96: BEGIN
97: Update CSI_I_ASSETS
98: SET
99: INSTANCE_ID = decode( p_INSTANCE_ID, FND_API.G_MISS_NUM, INSTANCE_ID, p_INSTANCE_ID),
100: FA_ASSET_ID = decode( p_FA_ASSET_ID, FND_API.G_MISS_NUM, FA_ASSET_ID, p_FA_ASSET_ID),
101: FA_BOOK_TYPE_CODE = decode( p_FA_BOOK_TYPE_CODE, FND_API.G_MISS_CHAR, FA_BOOK_TYPE_CODE, p_FA_BOOK_TYPE_CODE),
123: PROCEDURE Delete_Row(
124: p_INSTANCE_ASSET_ID NUMBER)
125: IS
126: BEGIN
127: DELETE FROM CSI_I_ASSETS
128: WHERE INSTANCE_ASSET_ID = p_INSTANCE_ASSET_ID;
129: If (SQL%NOTFOUND) then
130: RAISE NO_DATA_FOUND;
131: End If;
153:
154: IS
155: CURSOR C IS
156: SELECT *
157: FROM CSI_I_ASSETS
158: WHERE INSTANCE_ASSET_ID = p_INSTANCE_ASSET_ID
159: FOR UPDATE of INSTANCE_ASSET_ID NOWAIT;
160: Recinfo C%ROWTYPE;
161: BEGIN
218: APP_EXCEPTION.RAISE_EXCEPTION;
219: End If;
220: END Lock_Row;
221:
222: End CSI_I_ASSETS_PKG;
223: