[Home] [Help]
1: PACKAGE BODY CE_FORECASTS_TABLE_PKG AS
2: /* $Header: ceforcab.pls 120.3 2003/05/12 23:14:52 sspoonen ship $ */
3: FUNCTION body_revision RETURN VARCHAR2 IS
4: BEGIN
5:
59: X_attribute13 VARCHAR2,
60: X_attribute14 VARCHAR2,
61: X_attribute15 VARCHAR2) IS
62: CURSOR C1 IS SELECT rowid
63: FROM CE_FORECASTS
64: WHERE forecast_id = X_forecast_id;
65: CURSOR C2 IS SELECT CE_FORECASTS_S.nextval FROM sys.dual;
66: BEGIN
67: IF (X_forecast_id IS NULL) THEN
61: X_attribute15 VARCHAR2) IS
62: CURSOR C1 IS SELECT rowid
63: FROM CE_FORECASTS
64: WHERE forecast_id = X_forecast_id;
65: CURSOR C2 IS SELECT CE_FORECASTS_S.nextval FROM sys.dual;
66: BEGIN
67: IF (X_forecast_id IS NULL) THEN
68: OPEN C2;
69: FETCH C2 INTO X_forecast_id;
68: OPEN C2;
69: FETCH C2 INTO X_forecast_id;
70: CLOSE C2;
71: END IF;
72: INSERT INTO CE_FORECASTS(
73: forecast_id,
74: forecast_header_id,
75: name,
76: description,
204: X_attribute13 VARCHAR2,
205: X_attribute14 VARCHAR2,
206: X_attribute15 VARCHAR2) IS
207: BEGIN
208: UPDATE CE_FORECASTS
209: SET
210: forecast_id = X_forecast_id,
211: forecast_header_id = X_forecast_header_id,
212: name = X_name,
257: -- delete all cells belongs to the forecast
258: --
259: SELECT forecast_id
260: INTO p_forecast_id
261: FROM CE_FORECASTS
262: WHERE rowid = X_Rowid;
263:
264: DELETE FROM CE_FORECAST_ERRORS
265: WHERE forecast_id = p_forecast_id;
266:
267: DELETE FROM CE_FORECAST_CELLS
268: WHERE forecast_id = p_forecast_id;
269:
270: DELETE FROM CE_FORECASTS
271: WHERE rowid = X_Rowid;
272:
273: IF (SQL%NOTFOUND) THEN
274: RAISE NO_DATA_FOUND;
309: X_attribute14 VARCHAR2,
310: X_attribute15 VARCHAR2) IS
311: CURSOR C IS
312: SELECT *
313: FROM CE_FORECASTS
314: WHERE rowid = X_rowid
315: FOR UPDATE OF forecast_id NOWAIT;
316: Recinfo C%ROWTYPE;
317: BEGIN
420: APP_EXCEPTION.raise_exception;
421: END IF;
422: END Lock_Row;
423:
424: END CE_FORECASTS_TABLE_PKG;