1: package body AHL_SCHEDULE_MATERIALS_PKG as
2: /* $Header: AHLLSMTB.pls 115.0 2003/12/18 00:12:39 ssurapan noship $ */
3: PROCEDURE INSERT_ROW (
4: X_SCHEDULED_MATERIAL_ID IN NUMBER,
5: X_OBJECT_VERSION_NUMBER IN NUMBER,
55: ) IS
56:
57: BEGIN
58:
59: INSERT INTO AHL_SCHEDULE_MATERIALS(
60: SCHEDULED_MATERIAL_ID,
61: OBJECT_VERSION_NUMBER,
62: LAST_UPDATE_DATE,
63: LAST_UPDATED_BY,
110: ATTRIBUTE15
111: )
112: VALUES
113: (
114: AHL_SCHEDULE_MATERIALS_S.NEXTVAL,
115: X_OBJECT_VERSION_NUMBER,
116: X_LAST_UPDATE_DATE,
117: X_LAST_UPDATED_BY,
118: X_CREATION_DATE,
219: X_ATTRIBUTE14 IN VARCHAR2,
220: X_ATTRIBUTE15 IN VARCHAR2
221: ) IS
222: BEGIN
223: UPDATE AHL_SCHEDULE_MATERIALS SET
224: SCHEDULED_MATERIAL_ID = X_SCHEDULED_MATERIAL_ID,
225: OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER + 1,
226: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
227: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
284: PROCEDURE DELETE_ROW (
285: X_SCHEDULED_MATERIAL_ID IN NUMBER
286: ) IS
287: BEGIN
288: DELETE AHL_SCHEDULE_MATERIALS
289: WHERE SCHEDULED_MATERIAL_ID = X_SCHEDULED_MATERIAL_ID;
290:
291: IF (SQL%NOTFOUND) THEN
292: RAISE NO_DATA_FOUND;
293: END IF;
294:
295: END DELETE_ROW;
296:
297: END AHL_SCHEDULE_MATERIALS_PKG;