1: PACKAGE BODY IGS_GE_CFG_NAV_PKG AS
2: /* $Header: IGSNIA2B.pls 115.2 2002/12/30 14:49:46 kumma noship $ */
3: l_rowid VARCHAR2(25);
4: old_references igs_ge_cfg_nav%ROWTYPE;
5: new_references igs_ge_cfg_nav%ROWTYPE;
1: PACKAGE BODY IGS_GE_CFG_NAV_PKG AS
2: /* $Header: IGSNIA2B.pls 115.2 2002/12/30 14:49:46 kumma noship $ */
3: l_rowid VARCHAR2(25);
4: old_references igs_ge_cfg_nav%ROWTYPE;
5: new_references igs_ge_cfg_nav%ROWTYPE;
6: PROCEDURE set_column_values (
7: p_action IN VARCHAR2,
8: x_rowid IN VARCHAR2,
1: PACKAGE BODY IGS_GE_CFG_NAV_PKG AS
2: /* $Header: IGSNIA2B.pls 115.2 2002/12/30 14:49:46 kumma noship $ */
3: l_rowid VARCHAR2(25);
4: old_references igs_ge_cfg_nav%ROWTYPE;
5: new_references igs_ge_cfg_nav%ROWTYPE;
6: PROCEDURE set_column_values (
7: p_action IN VARCHAR2,
8: x_rowid IN VARCHAR2,
9: x_responsibility_id IN NUMBER,
27: || (reverse chronological order - newest change first)
28: */
29: CURSOR cur_old_ref_values IS
30: SELECT *
31: FROM igs_ge_cfg_nav
32: WHERE rowid = x_rowid;
33: BEGIN
34: l_rowid := x_rowid;
35: -- Code for setting the Old and New Reference Values.
104: || (reverse chronological order - newest change first)
105: */
106: CURSOR cur_rowid IS
107: SELECT rowid
108: FROM igs_ge_cfg_nav
109: WHERE responsibility_id = x_responsibility_id
110: AND form_code = x_form_code
111: AND subform_code = x_subform_code
112: FOR UPDATE NOWAIT;
140: || (reverse chronological order - newest change first)
141: */
142: CURSOR cur_rowid IS
143: SELECT rowid
144: FROM igs_ge_cfg_nav
145: WHERE responsibility_id = x_responsibility_id
146: AND form_code = x_form_code
147: AND (seq_number = x_seq_number OR but_label = x_but_label)
148: AND ((l_rowid IS NULL) OR (rowid <> l_rowid));
284: x_last_update_date => x_last_update_date,
285: x_last_updated_by => x_last_updated_by,
286: x_last_update_login => x_last_update_login
287: );
288: INSERT INTO igs_ge_cfg_nav (
289: responsibility_id,
290: form_code,
291: seq_number,
292: subform_code,
330: SELECT
331: seq_number,
332: subform_code,
333: but_label
334: FROM igs_ge_cfg_nav
335: WHERE rowid = x_rowid
336: FOR UPDATE NOWAIT;
337: tlinfo c1%ROWTYPE;
338: BEGIN
412: x_last_update_date => x_last_update_date,
413: x_last_updated_by => x_last_updated_by,
414: x_last_update_login => x_last_update_login
415: );
416: UPDATE igs_ge_cfg_nav
417: SET
418: seq_number = new_references.seq_number,
419: subform_code = new_references.subform_code,
420: but_label = new_references.but_label,
445: || (reverse chronological order - newest change first)
446: */
447: CURSOR c1 IS
448: SELECT rowid
449: FROM igs_ge_cfg_nav
450: WHERE responsibility_id = x_responsibility_id
451: AND form_code = x_form_code;
452: BEGIN
453: OPEN c1;
492: before_dml (
493: p_action => 'DELETE',
494: x_rowid => x_rowid
495: );
496: DELETE FROM igs_ge_cfg_nav
497: WHERE rowid = x_rowid;
498: IF (SQL%NOTFOUND) THEN
499: RAISE NO_DATA_FOUND;
500: END IF;
498: IF (SQL%NOTFOUND) THEN
499: RAISE NO_DATA_FOUND;
500: END IF;
501: END delete_row;
502: END igs_ge_cfg_nav_pkg;