1: PACKAGE BODY igs_he_ext_run_interim_pkg AS
2: /* $Header: IGSWI28B.pls 115.3 2003/08/23 11:50:14 pmarada noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_he_ext_run_interim%ROWTYPE;
1: PACKAGE BODY igs_he_ext_run_interim_pkg AS
2: /* $Header: IGSWI28B.pls 115.3 2003/08/23 11:50:14 pmarada noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_he_ext_run_interim%ROWTYPE;
6: new_references igs_he_ext_run_interim%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSWI28B.pls 115.3 2003/08/23 11:50:14 pmarada noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_he_ext_run_interim%ROWTYPE;
6: new_references igs_he_ext_run_interim%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 ,
34: */
35:
36: CURSOR cur_old_ref_values IS
37: SELECT *
38: FROM IGS_HE_EXT_RUN_INTERIM
39: WHERE rowid = x_rowid;
40:
41: BEGIN
42:
94: || (reverse chronological order - newest change first)
95: */
96: CURSOR cur_rowid IS
97: SELECT rowid
98: FROM igs_he_ext_run_interim
99: WHERE ext_interim_id = x_ext_interim_id
100: FOR UPDATE NOWAIT;
101:
102: lv_rowid cur_rowid%RowType;
213: || (reverse chronological order - newest change first)
214: */
215: CURSOR c IS
216: SELECT rowid
217: FROM igs_he_ext_run_interim
218: WHERE ext_interim_id = x_ext_interim_id;
219:
220: x_last_update_date DATE;
221: x_last_updated_by NUMBER;
241: igs_ge_msg_stack.add;
242: app_exception.raise_exception;
243: END IF;
244:
245: SELECT igs_he_ext_run_interim_s.NEXTVAL
246: INTO x_ext_interim_id
247: FROM dual;
248:
249: before_dml(
264: x_last_updated_by => x_last_updated_by,
265: x_last_update_login => x_last_update_login
266: );
267:
268: INSERT INTO igs_he_ext_run_interim (
269: ext_interim_id,
270: extract_run_id,
271: person_id,
272: course_cd,
338: unit_cd,
339: uv_version_number,
340: student_inst_number,
341: line_number
342: FROM igs_he_ext_run_interim
343: WHERE rowid = x_rowid
344: FOR UPDATE NOWAIT;
345:
346: tlinfo c1%ROWTYPE;
445: x_last_updated_by => x_last_updated_by,
446: x_last_update_login => x_last_update_login
447: );
448:
449: UPDATE igs_he_ext_run_interim
450: SET
451: extract_run_id = new_references.extract_run_id,
452: person_id = new_references.person_id,
453: course_cd = new_references.course_cd,
491: || (reverse chronological order - newest change first)
492: */
493: CURSOR c1 IS
494: SELECT rowid
495: FROM igs_he_ext_run_interim
496: WHERE ext_interim_id = x_ext_interim_id;
497:
498: BEGIN
499:
554: p_action => 'DELETE',
555: x_rowid => x_rowid
556: );
557:
558: DELETE FROM igs_he_ext_run_interim
559: WHERE rowid = x_rowid;
560:
561: IF (SQL%NOTFOUND) THEN
562: RAISE NO_DATA_FOUND;
564:
565: END delete_row;
566:
567:
568: END igs_he_ext_run_interim_pkg;