1: PACKAGE BODY igs_he_usr_rt_cl_fld_pkg AS
2: /* $Header: IGSWI16B.pls 120.1 2006/05/02 17:42:54 jbaber noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_he_usr_rt_cl_fld%ROWTYPE;
1: PACKAGE BODY igs_he_usr_rt_cl_fld_pkg AS
2: /* $Header: IGSWI16B.pls 120.1 2006/05/02 17:42:54 jbaber noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_he_usr_rt_cl_fld%ROWTYPE;
6: new_references igs_he_usr_rt_cl_fld%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSWI16B.pls 120.1 2006/05/02 17:42:54 jbaber noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_he_usr_rt_cl_fld%ROWTYPE;
6: new_references igs_he_usr_rt_cl_fld%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 ,
32: */
33:
34: CURSOR cur_old_ref_values IS
35: SELECT *
36: FROM IGS_HE_USR_RT_CL_FLD
37: WHERE rowid = x_rowid;
38:
39: BEGIN
40:
140: || (reverse chronological order - newest change first)
141: */
142: CURSOR cur_rowid IS
143: SELECT rowid
144: FROM igs_he_usr_rt_cl_fld
145: WHERE user_return_subclass = x_user_return_subclass
146: AND field_number = x_field_number
147: FOR UPDATE NOWAIT;
148:
178: || (reverse chronological order - newest change first)
179: */
180: CURSOR cur_rowid IS
181: SELECT rowid
182: FROM igs_he_usr_rt_cl_fld
183: WHERE user_return_subclass = x_user_return_subclass
184: AND field_number = x_field_number
185: AND ((l_rowid IS NULL) OR (rowid <> l_rowid));
186:
216: || (reverse chronological order - newest change first)
217: */
218: CURSOR cur_rowid IS
219: SELECT rowid
220: FROM igs_he_usr_rt_cl_fld
221: WHERE ((user_return_subclass = x_user_return_subclass));
222:
223: lv_rowid cur_rowid%RowType;
224:
339: || (reverse chronological order - newest change first)
340: */
341: CURSOR c IS
342: SELECT rowid
343: FROM igs_he_usr_rt_cl_fld
344: WHERE user_return_subclass = x_user_return_subclass
345: AND field_number = x_field_number;
346:
347: x_last_update_date DATE;
368: igs_ge_msg_stack.add;
369: app_exception.raise_exception;
370: END IF;
371:
372: SELECT igs_he_usr_rt_cl_fld_s.NEXTVAL
373: INTO x_usr_rt_cl_fld_id
374: FROM dual;
375:
376: before_dml(
389: x_last_updated_by => x_last_updated_by,
390: x_last_update_login => x_last_update_login
391: );
392:
393: INSERT INTO igs_he_usr_rt_cl_fld (
394: usr_rt_cl_fld_id,
395: user_return_subclass,
396: field_number,
397: constant_val,
454: constant_val,
455: default_val,
456: include_flag,
457: report_null_flag
458: FROM igs_he_usr_rt_cl_fld
459: WHERE rowid = x_rowid
460: FOR UPDATE NOWAIT;
461:
462: tlinfo c1%ROWTYPE;
554: x_last_updated_by => x_last_updated_by,
555: x_last_update_login => x_last_update_login
556: );
557:
558: UPDATE igs_he_usr_rt_cl_fld
559: SET
560: usr_rt_cl_fld_id = new_references.usr_rt_cl_fld_id,
561: constant_val = new_references.constant_val,
562: default_val = new_references.default_val,
595: || (reverse chronological order - newest change first)
596: */
597: CURSOR c1 IS
598: SELECT rowid
599: FROM igs_he_usr_rt_cl_fld
600: WHERE user_return_subclass = x_user_return_subclass
601: AND field_number = x_field_number;
602:
603: BEGIN
655: p_action => 'DELETE',
656: x_rowid => x_rowid
657: );
658:
659: DELETE FROM igs_he_usr_rt_cl_fld
660: WHERE rowid = x_rowid;
661:
662: IF (SQL%NOTFOUND) THEN
663: RAISE NO_DATA_FOUND;
665:
666: END delete_row;
667:
668:
669: END igs_he_usr_rt_cl_fld_pkg;