1: PACKAGE BODY igf_ap_isircor_tmp_pkg AS
2: /* $Header: IGFAI74B.pls 120.0 2005/06/02 15:44:07 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_ap_isircor_tmp%ROWTYPE;
1: PACKAGE BODY igf_ap_isircor_tmp_pkg AS
2: /* $Header: IGFAI74B.pls 120.0 2005/06/02 15:44:07 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_ap_isircor_tmp%ROWTYPE;
6: new_references igf_ap_isircor_tmp%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGFAI74B.pls 120.0 2005/06/02 15:44:07 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_ap_isircor_tmp%ROWTYPE;
6: new_references igf_ap_isircor_tmp%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
28: */
29:
30: CURSOR cur_old_ref_values IS
31: SELECT *
32: FROM igf_ap_isircor_tmp
33: WHERE rowid = x_rowid;
34:
35: BEGIN
36:
80: || (reverse chronological order - newest change first)
81: */
82: CURSOR cur_rowid IS
83: SELECT rowid
84: FROM igf_ap_isircor_tmp
85: WHERE ict_id = x_ict_id
86: FOR UPDATE NOWAIT;
87:
88: lv_rowid cur_rowid%RowType;
171: || (reverse chronological order - newest change first)
172: */
173: CURSOR c IS
174: SELECT rowid
175: FROM igf_ap_isircor_tmp
176: WHERE ict_id = x_ict_id;
177:
178:
179: x_last_update_date DATE;
200: igs_ge_msg_stack.add;
201: app_exception.raise_exception;
202: END IF;
203:
204: select igf_ap_isircor_tmp_s.nextval INTO x_ict_id FROM dual;
205:
206: before_dml(
207: p_action => 'INSERT',
208: x_rowid => x_rowid,
214: x_last_updated_by => x_last_updated_by,
215: x_last_update_login => x_last_update_login
216: );
217:
218: INSERT INTO igf_ap_isircor_tmp (
219: ict_id,
220: corr_text,
221: creation_date,
222: created_by,
261: p_action => 'DELETE',
262: x_rowid => x_rowid
263: );
264:
265: DELETE FROM igf_ap_isircor_tmp
266: WHERE rowid = x_rowid;
267:
268: IF (SQL%NOTFOUND) THEN
269: RAISE NO_DATA_FOUND;
270: END IF;
271:
272: END delete_row;
273:
274: END igf_ap_isircor_tmp_pkg;