1: PACKAGE BODY AMS_DM_LIFT_PKG as
2: /* $Header: amstdlfb.pls 120.1 2005/06/15 23:57:13 appldev $ */
3: -- ===============================================================
4: -- Start of Comments
5: -- Package name
2: /* $Header: amstdlfb.pls 120.1 2005/06/15 23:57:13 appldev $ */
3: -- ===============================================================
4: -- Start of Comments
5: -- Package name
6: -- AMS_DM_LIFT_PKG
7: -- Purpose
8: --
9: -- History
10: -- 26-jan-2001 choang Removed object ver num from where in update
15: -- End of Comments
16: -- ===============================================================
17:
18:
19: G_PKG_NAME CONSTANT VARCHAR2(30):= 'AMS_DM_LIFT_PKG';
20: G_FILE_NAME CONSTANT VARCHAR2(12) := 'amstdlfb.pls';
21:
22: AMS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
23: AMS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
50:
51: px_object_version_number := 1;
52:
53:
54: INSERT INTO AMS_DM_LIFT(
55: lift_id,
56: last_update_date,
57: last_updated_by,
58: creation_date,
114: p_NON_TARGET_CONFIDENCE NUMBER
115: )
116: IS
117: BEGIN
118: Update AMS_DM_LIFT
119: SET
120: lift_id = DECODE( p_LIFT_ID, FND_API.g_miss_num, LIFT_ID, p_LIFT_ID),
121: last_update_date = DECODE( p_LAST_UPDATE_DATE, FND_API.g_miss_date, LAST_UPDATE_DATE, p_LAST_UPDATE_DATE),
122: last_updated_by = DECODE( p_LAST_UPDATED_BY, FND_API.g_miss_num, LAST_UPDATED_BY, p_LAST_UPDATED_BY),
144: PROCEDURE Delete_Row(
145: p_LIFT_ID NUMBER)
146: IS
147: BEGIN
148: DELETE FROM AMS_DM_LIFT
149: WHERE LIFT_ID = p_LIFT_ID;
150: If (SQL%NOTFOUND) then
151: RAISE NO_DATA_FOUND;
152: End If;
175: )
176: IS
177: CURSOR C IS
178: SELECT *
179: FROM AMS_DM_LIFT
180: WHERE LIFT_ID = p_LIFT_ID
181: FOR UPDATE of LIFT_ID NOWAIT;
182: Recinfo C%ROWTYPE;
183: BEGIN
252: APP_EXCEPTION.RAISE_EXCEPTION;
253: END IF;
254: END Lock_Row;
255:
256: END AMS_DM_LIFT_PKG;