[Home] [Help]
4: -- Package
5: -- XTR_FORECASTT_HEADERS_PKG
6: -- Purpose
7: -- To group all the procedures/functions for table handling of the
8: -- ce_forecast_headers table.
9: -- History
10: -- 07.10.96 C. Kawamoto Created
11: --
12:
27: X_name VARCHAR2,
28: l_err_code IN OUT NOCOPY VARCHAR2) IS
29: CURSOR chk_duplicates IS
30: SELECT 'Duplidate'
31: FROM ce_forecast_headers cfh
32: WHERE cfh.name = X_name
33: AND (X_rowid IS NULL
34: OR cfh.rowid <> chartorowid(X_rowid));
35: dummy VARCHAR2(100);
57: --
58: -- Procedure
59: -- insert_row
60: -- Purpose
61: -- To insert new row to ce_forecast_headers.
62: -- History
63: -- 07.10.96 C. Kawamoto Created
64: -- Example
65: -- XTR_FORECAST_HEADERS_PKG.Insert_Row(...)
97: X_attribute13 VARCHAR2,
98: X_attribute14 VARCHAR2,
99: X_attribute15 VARCHAR2
100: ) IS
101: CURSOR C IS SELECT rowid FROM ce_forecast_headers
102: WHERE forecast_header_id = X_forecast_header_id;
103: CURSOR C2 IS SELECT ce_forecast_headers_s.nextval FROM sys.dual;
104: p_row_id VARCHAR2(100);
105: p_forecast_period_id NUMBER;
99: X_attribute15 VARCHAR2
100: ) IS
101: CURSOR C IS SELECT rowid FROM ce_forecast_headers
102: WHERE forecast_header_id = X_forecast_header_id;
103: CURSOR C2 IS SELECT ce_forecast_headers_s.nextval FROM sys.dual;
104: p_row_id VARCHAR2(100);
105: p_forecast_period_id NUMBER;
106:
107: BEGIN
108: OPEN C2;
109: FETCH C2 INTO X_forecast_header_id;
110: CLOSE C2;
111:
112: INSERT INTO ce_forecast_headers(
113: forecast_header_id,
114: name,
115: description,
116: aging_type,
198: --
199: -- Procedure
200: -- lock_row
201: -- Purpose
202: -- To lock a row from ce_forecast_headers.
203: -- History
204: -- 07.10.96 C. Kawamoto Created
205: -- Example
206: -- XTR_FORECAST_HEADERS_PKG.Lock_Row(...)
239: X_attribute15 VARCHAR2
240: ) IS
241: CURSOR C IS
242: SELECT *
243: FROM ce_forecast_headers
244: WHERE rowid = X_rowid
245: FOR UPDATE of forecast_header_id NOWAIT;
246: Recinfo C%ROWTYPE;
247: BEGIN
328: --
329: -- Procedure
330: -- Update_Row
331: -- Purpose
332: -- To update ce_forecast_headers with changes made.
333: -- History
334: -- 07.10.96 C. Kawamoto Created
335: -- 07.22.97 W. Chan Add logic for overdue_transaction and
336: -- cutoff_period update
376: BEGIN
377:
378: SELECT overdue_transactions, cutoff_period
379: INTO p_overdue_transactions, p_cutoff_period
380: FROM CE_FORECAST_HEADERS
381: WHERE rowid = X_rowid;
382:
383: UPDATE ce_forecast_headers
384: SET
379: INTO p_overdue_transactions, p_cutoff_period
380: FROM CE_FORECAST_HEADERS
381: WHERE rowid = X_rowid;
382:
383: UPDATE ce_forecast_headers
384: SET
385: forecast_header_id = X_forecast_header_id,
386: name = X_name,
387: description = X_description,
464: --
465: -- Procedure
466: -- Delete_Row
467: -- Purpose
468: -- To delete a row from ce_forecast_headers.
469: -- History
470: -- 07.10.96 C. Kawamoto Created
471: -- Example
472: -- XTR_FORECAST_HEADERS_PKG.Delete_Row(...);
479: -- delete all rows, columns, and headers for template
480: --
481: SELECT forecast_header_id
482: INTO p_forecast_header_id
483: FROM CE_FORECAST_HEADERS
484: WHERE treasury_template = 'Y';
485:
486: DELETE FROM CE_FORECAST_ROWS
487: WHERE forecast_header_id = p_forecast_header_id;
488:
489: DELETE FROM XTR_FORECAST_PERIODS
490: WHERE forecast_header_id = p_forecast_header_id;
491:
492: DELETE FROM ce_forecast_headers
493: WHERE treasury_template = 'Y';
494: if (SQL%NOTFOUND) then
495: Raise NO_DATA_FOUND;
496: end if;