1: PACKAGE BODY igi_iac_revaluations_pkg AS
2: -- $Header: igiiarxb.pls 120.7 2008/02/28 07:28:10 sharoy ship $
3:
4: --===========================FND_LOG.START=====================================
5:
8: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
9: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
10: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
11: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
12: g_path VARCHAR2(100) := 'IGI.PLSQL.igiiarxb.igi_iac_revaluations_pkg.';
13:
14: --===========================FND_LOG.END=====================================
15:
16: PROCEDURE insert_row (
29: ) AS
30:
31: CURSOR c IS
32: SELECT rowid
33: FROM igi_iac_revaluations
34: WHERE revaluation_id = X_revaluation_id;
35:
36: CURSOR c1 IS
37: SELECT igi_iac_revaluations_s.NEXTVAL
33: FROM igi_iac_revaluations
34: WHERE revaluation_id = X_revaluation_id;
35:
36: CURSOR c1 IS
37: SELECT igi_iac_revaluations_s.NEXTVAL
38: FROM sys.dual;
39:
40: X_last_update_date DATE;
41: X_last_updated_by NUMBER;
77: FETCH c1 INTO X_revaluation_id;
78: CLOSE c1;
79: END IF;
80:
81: INSERT INTO igi_iac_revaluations
82: (revaluation_id,
83: book_type_code,
84: revaluation_date,
85: revaluation_period,
123: x_revaluation_id IN NUMBER
124: ) AS
125: BEGIN
126:
127: DELETE FROM igi_iac_revaluations
128: WHERE revaluation_id = x_revaluation_id;
129:
130: IF (SQL%NOTFOUND) THEN
131: RAISE NO_DATA_FOUND;
132: END IF;
133:
134: END delete_row;
135:
136: END igi_iac_revaluations_pkg;