[Home] [Help]
1: PACKAGE BODY CSI_A_LOCATIONS_PKG as
2: /* $Header: csitlocb.pls 115.7 2002/11/12 00:22:56 rmamidip noship $ */
3:
4:
5: G_PKG_NAME CONSTANT VARCHAR2(30):= 'CSI_A_LOCATIONS_PKG';
1: PACKAGE BODY CSI_A_LOCATIONS_PKG as
2: /* $Header: csitlocb.pls 115.7 2002/11/12 00:22:56 rmamidip noship $ */
3:
4:
5: G_PKG_NAME CONSTANT VARCHAR2(30):= 'CSI_A_LOCATIONS_PKG';
6: G_FILE_NAME CONSTANT VARCHAR2(12) := 'csitlocb.pls';
7:
8: PROCEDURE Insert_Row(
9: px_ASSET_LOCATION_ID IN OUT NOCOPY NUMBER,
18: p_LAST_UPDATE_DATE DATE,
19: p_LAST_UPDATE_LOGIN NUMBER,
20: p_OBJECT_VERSION_NUMBER NUMBER)
21: IS
22: CURSOR C2 IS SELECT CSI_A_LOCATIONS_S.nextval FROM sys.dual;
23: BEGIN
24: If (px_ASSET_LOCATION_ID IS NULL) OR (px_ASSET_LOCATION_ID = FND_API.G_MISS_NUM) then
25: OPEN C2;
26: FETCH C2 INTO px_ASSET_LOCATION_ID;
25: OPEN C2;
26: FETCH C2 INTO px_ASSET_LOCATION_ID;
27: CLOSE C2;
28: End If;
29: INSERT INTO CSI_A_LOCATIONS(
30: ASSET_LOCATION_ID,
31: FA_LOCATION_ID,
32: LOCATION_TABLE,
33: LOCATION_ID,
68: p_LAST_UPDATE_LOGIN NUMBER,
69: p_OBJECT_VERSION_NUMBER NUMBER)
70: IS
71: BEGIN
72: Update CSI_A_LOCATIONS
73: SET
74: FA_LOCATION_ID = decode( p_FA_LOCATION_ID, FND_API.G_MISS_NUM, FA_LOCATION_ID, p_FA_LOCATION_ID),
75: LOCATION_TABLE = decode( p_LOCATION_TABLE, FND_API.G_MISS_CHAR, LOCATION_TABLE, p_LOCATION_TABLE),
76: LOCATION_ID = decode( p_LOCATION_ID, FND_API.G_MISS_NUM, LOCATION_ID, p_LOCATION_ID),
92: PROCEDURE Delete_Row(
93: p_ASSET_LOCATION_ID NUMBER)
94: IS
95: BEGIN
96: DELETE FROM CSI_A_LOCATIONS
97: WHERE ASSET_LOCATION_ID = p_ASSET_LOCATION_ID;
98: If (SQL%NOTFOUND) then
99: RAISE NO_DATA_FOUND;
100: End If;
115: p_OBJECT_VERSION_NUMBER NUMBER)
116: IS
117: CURSOR C IS
118: SELECT *
119: FROM CSI_A_LOCATIONS
120: WHERE ASSET_LOCATION_ID = p_ASSET_LOCATION_ID
121: FOR UPDATE of ASSET_LOCATION_ID NOWAIT;
122: Recinfo C%ROWTYPE;
123: BEGIN
171: APP_EXCEPTION.RAISE_EXCEPTION;
172: End If;
173: END Lock_Row;
174:
175: End CSI_A_LOCATIONS_PKG;
176: