1: PACKAGE BODY igs_he_ext_run_excp_pkg AS
2: /* $Header: IGSWI27B.pls 115.4 2002/12/20 10:25:29 bayadav noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_he_ext_run_excp%ROWTYPE;
1: PACKAGE BODY igs_he_ext_run_excp_pkg AS
2: /* $Header: IGSWI27B.pls 115.4 2002/12/20 10:25:29 bayadav noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_he_ext_run_excp%ROWTYPE;
6: new_references igs_he_ext_run_excp%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSWI27B.pls 115.4 2002/12/20 10:25:29 bayadav noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_he_ext_run_excp%ROWTYPE;
6: new_references igs_he_ext_run_excp%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 ,
36: */
37:
38: CURSOR cur_old_ref_values IS
39: SELECT *
40: FROM IGS_HE_EXT_RUN_EXCP
41: WHERE rowid = x_rowid;
42:
43: BEGIN
44:
98: || (reverse chronological order - newest change first)
99: */
100: CURSOR cur_rowid IS
101: SELECT rowid
102: FROM igs_he_ext_run_excp
103: WHERE ext_exception_id = x_ext_exception_id
104: FOR UPDATE NOWAIT;
105:
106: lv_rowid cur_rowid%RowType;
223: || (reverse chronological order - newest change first)
224: */
225: CURSOR c IS
226: SELECT rowid
227: FROM igs_he_ext_run_excp
228: WHERE ext_exception_id = x_ext_exception_id;
229:
230: x_last_update_date DATE;
231: x_last_updated_by NUMBER;
251: igs_ge_msg_stack.add;
252: app_exception.raise_exception;
253: END IF;
254:
255: SELECT igs_he_ext_run_excp_s.NEXTVAL
256: INTO x_ext_exception_id
257: FROM dual;
258:
259: before_dml(
276: x_last_updated_by => x_last_updated_by,
277: x_last_update_login => x_last_update_login
278: );
279:
280: INSERT INTO igs_he_ext_run_excp (
281: ext_exception_id,
282: extract_run_id,
283: person_id,
284: person_number,
358: uv_version_number,
359: line_number,
360: field_number,
361: exception_reason
362: FROM igs_he_ext_run_excp
363: WHERE rowid = x_rowid
364: FOR UPDATE NOWAIT;
365:
366: tlinfo c1%ROWTYPE;
471: x_last_updated_by => x_last_updated_by,
472: x_last_update_login => x_last_update_login
473: );
474:
475: UPDATE igs_he_ext_run_excp
476: SET
477: extract_run_id = new_references.extract_run_id,
478: person_id = new_references.person_id,
479: person_number = new_references.person_number,
521: || (reverse chronological order - newest change first)
522: */
523: CURSOR c1 IS
524: SELECT rowid
525: FROM igs_he_ext_run_excp
526: WHERE ext_exception_id = x_ext_exception_id;
527:
528: BEGIN
529:
588: p_action => 'DELETE',
589: x_rowid => x_rowid
590: );
591:
592: DELETE FROM igs_he_ext_run_excp
593: WHERE rowid = x_rowid;
594:
595: IF (SQL%NOTFOUND) THEN
596: RAISE NO_DATA_FOUND;
598:
599: END delete_row;
600:
601:
602: END igs_he_ext_run_excp_pkg;