1: PACKAGE BODY igs_he_sys_rtn_clas_seed_pkg AS
2: /* $Header: IGSWI29B.pls 115.2 2002/11/29 04:42:43 nsidana noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_he_sys_rtn_clas%ROWTYPE;
1: PACKAGE BODY igs_he_sys_rtn_clas_seed_pkg AS
2: /* $Header: IGSWI29B.pls 115.2 2002/11/29 04:42:43 nsidana noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_he_sys_rtn_clas%ROWTYPE;
6: new_references igs_he_sys_rtn_clas%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSWI29B.pls 115.2 2002/11/29 04:42:43 nsidana noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_he_sys_rtn_clas%ROWTYPE;
6: new_references igs_he_sys_rtn_clas%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 ,
28: */
29:
30: CURSOR cur_old_ref_values IS
31: SELECT *
32: FROM IGS_HE_SYS_RTN_CLAS
33: WHERE rowid = x_rowid;
34:
35: BEGIN
36:
99: || (reverse chronological order - newest change first)
100: */
101: CURSOR cur_rowid IS
102: SELECT rowid
103: FROM igs_he_sys_rtn_clas
104: WHERE system_return_class_type = x_system_return_class_type
105: FOR UPDATE NOWAIT;
106:
107: lv_rowid cur_rowid%RowType;
205: || (reverse chronological order - newest change first)
206: */
207: CURSOR c IS
208: SELECT rowid
209: FROM igs_he_sys_rtn_clas
210: WHERE system_return_class_type = x_system_return_class_type;
211:
212: x_last_update_date DATE;
213: x_last_updated_by NUMBER;
246: x_last_updated_by => x_last_updated_by,
247: x_last_update_login => x_last_update_login
248: );
249:
250: INSERT INTO igs_he_sys_rtn_clas (
251: system_return_class_type,
252: system_return_class_recid,
253: description,
254: creation_date,
296: CURSOR c1 IS
297: SELECT
298: system_return_class_recid,
299: description
300: FROM igs_he_sys_rtn_clas
301: WHERE rowid = x_rowid
302: FOR UPDATE NOWAIT;
303:
304: tlinfo c1%ROWTYPE;
385: x_last_updated_by => x_last_updated_by,
386: x_last_update_login => x_last_update_login
387: );
388:
389: UPDATE igs_he_sys_rtn_clas
390: SET
391: system_return_class_recid = new_references.system_return_class_recid,
392: description = new_references.description,
393: last_update_date = x_last_update_date,
419: || (reverse chronological order - newest change first)
420: */
421: CURSOR c1 IS
422: SELECT rowid
423: FROM igs_he_sys_rtn_clas
424: WHERE system_return_class_type = x_system_return_class_type;
425:
426: BEGIN
427:
470: p_action => 'DELETE',
471: x_rowid => x_rowid
472: );
473:
474: DELETE FROM igs_he_sys_rtn_clas
475: WHERE rowid = x_rowid;
476:
477: IF (SQL%NOTFOUND) THEN
478: RAISE NO_DATA_FOUND;
480:
481: END delete_row;
482:
483:
484: END igs_he_sys_rtn_clas_seed_pkg;