1: PACKAGE BODY Igs_En_Pig_S_Setup_Pkg AS
2: /* $Header: IGSEI67B.pls 115.5 2003/02/24 14:17:40 npalanis noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_en_pig_s_setup%ROWTYPE;
1: PACKAGE BODY Igs_En_Pig_S_Setup_Pkg AS
2: /* $Header: IGSEI67B.pls 115.5 2003/02/24 14:17:40 npalanis noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_en_pig_s_setup%ROWTYPE;
6: new_references igs_en_pig_s_setup%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSEI67B.pls 115.5 2003/02/24 14:17:40 npalanis noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_en_pig_s_setup%ROWTYPE;
6: new_references igs_en_pig_s_setup%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_en_pig_s_setup
33: WHERE ROWID = x_rowid;
34:
35: BEGIN
36:
109: || (reverse chronological order - newest change first)
110: */
111: CURSOR cur_rowid IS
112: SELECT ROWID
113: FROM igs_en_pig_s_setup
114: WHERE group_id = x_group_id
115: AND s_enrolment_step_type = x_s_enrolment_step_type
116: FOR UPDATE NOWAIT;
117:
145: || (reverse chronological order - newest change first)
146: */
147: CURSOR cur_rowid IS
148: SELECT ROWID
149: FROM igs_en_pig_s_setup
150: WHERE ((group_id = x_group_id));
151:
152: lv_rowid cur_rowid%ROWTYPE;
153:
305: x_last_updated_by => x_last_updated_by,
306: x_last_update_login => x_last_update_login
307: );
308:
309: INSERT INTO igs_en_pig_s_setup (
310: group_id,
311: s_enrolment_step_type,
312: notification_flag,
313: creation_date,
348: SELECT
349: group_id,
350: s_enrolment_step_type,
351: notification_flag
352: FROM igs_en_pig_s_setup
353: WHERE ROWID = x_rowid
354: FOR UPDATE NOWAIT;
355:
356: tlinfo c1%ROWTYPE;
438: x_last_updated_by => x_last_updated_by,
439: x_last_update_login => x_last_update_login
440: );
441:
442: UPDATE igs_en_pig_s_setup
443: SET
444: group_id = new_references.group_id,
445: s_enrolment_step_type = new_references.s_enrolment_step_type,
446: notification_flag = new_references.notification_flag,
473: || (reverse chronological order - newest change first)
474: */
475: CURSOR c1 IS
476: SELECT ROWID
477: FROM igs_en_pig_s_setup
478: WHERE group_id = x_group_id;
479:
480: BEGIN
481:
524: p_action => 'DELETE',
525: x_rowid => x_rowid
526: );
527:
528: DELETE FROM igs_en_pig_s_setup
529: WHERE ROWID = x_rowid;
530:
531: IF (SQL%NOTFOUND) THEN
532: RAISE NO_DATA_FOUND;
534:
535: END delete_row;
536:
537:
538: END Igs_En_Pig_S_Setup_Pkg;