[Home] [Help]
1: PACKAGE BODY HZ_SUSPENSION_ACTIVITY_PKG as
2: /* $Header: ARHSATTB.pls 120.2 2005/10/30 03:54:56 appldev ship $*/
3: -- Start of Comments
4: -- Package name : HZ_SUSPENSION_ACTIVITY_PKG
5: -- Purpose :
1: PACKAGE BODY HZ_SUSPENSION_ACTIVITY_PKG as
2: /* $Header: ARHSATTB.pls 120.2 2005/10/30 03:54:56 appldev ship $*/
3: -- Start of Comments
4: -- Package name : HZ_SUSPENSION_ACTIVITY_PKG
5: -- Purpose :
6: -- History :
7: -- NOTE :
8: -- End of Comments
34: p_WH_UPDATE_DATE DATE)
35:
36: IS
37: BEGIN
38: INSERT INTO HZ_SUSPENSION_ACTIVITY(
39: SUSPENSION_ACTIVITY_ID,
40: ACTION_EFFECTIVE_ON_DATE,
41: ACTION_REASON,
42: ACTION_TYPE,
108: p_WH_UPDATE_DATE DATE)
109:
110: IS
111: BEGIN
112: Update HZ_SUSPENSION_ACTIVITY
113: SET
114: ACTION_EFFECTIVE_ON_DATE = decode( p_ACTION_EFFECTIVE_ON_DATE, FND_API.G_MISS_DATE, ACTION_EFFECTIVE_ON_DATE, p_ACTION_EFFECTIVE_ON_DATE),
115: ACTION_REASON = decode( p_ACTION_REASON, FND_API.G_MISS_CHAR, ACTION_REASON, p_ACTION_REASON),
116: ACTION_TYPE = decode( p_ACTION_TYPE, FND_API.G_MISS_CHAR, ACTION_TYPE, p_ACTION_TYPE),
145: PROCEDURE Delete_Row(
146: p_SUSPENSION_ACTIVITY_ID NUMBER)
147: IS
148: BEGIN
149: DELETE FROM HZ_SUSPENSION_ACTIVITY
150: WHERE SUSPENSION_ACTIVITY_ID = p_SUSPENSION_ACTIVITY_ID;
151: If (SQL%NOTFOUND) then
152: RAISE NO_DATA_FOUND;
153: End If;
179:
180: IS
181: CURSOR C IS
182: SELECT *
183: FROM HZ_SUSPENSION_ACTIVITY
184: WHERE SUSPENSION_ACTIVITY_ID = p_SUSPENSION_ACTIVITY_ID
185: FOR UPDATE of SUSPENSION_ACTIVITY_ID NOWAIT;
186: Recinfo C%ROWTYPE;
187: BEGIN
265: APP_EXCEPTION.RAISE_EXCEPTION;
266: End If;
267: END Lock_Row;
268:
269: End HZ_SUSPENSION_ACTIVITY_PKG;