1: PACKAGE BODY Igs_En_Pig_Cp_Setup_Pkg AS
2: /* $Header: IGSEI68B.pls 115.5 2003/02/24 14:18:19 npalanis noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_en_pig_cp_setup%ROWTYPE;
1: PACKAGE BODY Igs_En_Pig_Cp_Setup_Pkg AS
2: /* $Header: IGSEI68B.pls 115.5 2003/02/24 14:18:19 npalanis noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_en_pig_cp_setup%ROWTYPE;
6: new_references igs_en_pig_cp_setup%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSEI68B.pls 115.5 2003/02/24 14:18:19 npalanis noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_en_pig_cp_setup%ROWTYPE;
6: new_references igs_en_pig_cp_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_cp_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_cp_setup
114: WHERE group_id = x_group_id
115: FOR UPDATE NOWAIT;
116:
117: lv_rowid cur_rowid%ROWTYPE;
145: || (reverse chronological order - newest change first)
146: */
147: CURSOR cur_rowid IS
148: SELECT ROWID
149: FROM igs_en_pig_cp_setup
150: WHERE ((group_id = x_group_id));
151:
152: lv_rowid cur_rowid%ROWTYPE;
153:
303: x_last_updated_by => x_last_updated_by,
304: x_last_update_login => x_last_update_login
305: );
306:
307: INSERT INTO igs_en_pig_cp_setup (
308: group_id,
309: prsid_max_cp,
310: prsid_min_cp,
311: creation_date,
346: SELECT
347: group_id,
348: prsid_max_cp,
349: prsid_min_cp
350: FROM igs_en_pig_cp_setup
351: WHERE ROWID = x_rowid
352: FOR UPDATE NOWAIT;
353:
354: tlinfo c1%ROWTYPE;
436: x_last_updated_by => x_last_updated_by,
437: x_last_update_login => x_last_update_login
438: );
439:
440: UPDATE igs_en_pig_cp_setup
441: SET
442: group_id = new_references.group_id,
443: prsid_max_cp = new_references.prsid_max_cp,
444: prsid_min_cp = new_references.prsid_min_cp,
471: || (reverse chronological order - newest change first)
472: */
473: CURSOR c1 IS
474: SELECT ROWID
475: FROM igs_en_pig_cp_setup
476: WHERE group_id = x_group_id;
477:
478: BEGIN
479:
522: p_action => 'DELETE',
523: x_rowid => x_rowid
524: );
525:
526: DELETE FROM igs_en_pig_cp_setup
527: WHERE ROWID = x_rowid;
528:
529: IF (SQL%NOTFOUND) THEN
530: RAISE NO_DATA_FOUND;
532:
533: END delete_row;
534:
535:
536: END Igs_En_Pig_Cp_Setup_Pkg;