1: PACKAGE BODY igs_ps_unit_x_grpmem_pkg AS
2: /* $Header: IGSPI2HB.pls 115.3 2002/11/29 02:16:39 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_ps_unit_x_grpmem%ROWTYPE;
1: PACKAGE BODY igs_ps_unit_x_grpmem_pkg AS
2: /* $Header: IGSPI2HB.pls 115.3 2002/11/29 02:16:39 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_ps_unit_x_grpmem%ROWTYPE;
6: new_references igs_ps_unit_x_grpmem%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSPI2HB.pls 115.3 2002/11/29 02:16:39 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_ps_unit_x_grpmem%ROWTYPE;
6: new_references igs_ps_unit_x_grpmem%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
30: */
31:
32: CURSOR cur_old_ref_values IS
33: SELECT *
34: FROM IGS_PS_UNIT_X_GRPMEM
35: WHERE rowid = x_rowid;
36:
37: BEGIN
38:
151: || (reverse chronological order - newest change first)
152: */
153: CURSOR cur_rowid IS
154: SELECT rowid
155: FROM igs_ps_unit_x_grpmem
156: WHERE unit_x_listed_group_mem_id = x_unit_x_listed_group_mem_id
157: FOR UPDATE NOWAIT;
158:
159: lv_rowid cur_rowid%RowType;
187: || (reverse chronological order - newest change first)
188: */
189: CURSOR cur_rowid IS
190: SELECT rowid
191: FROM igs_ps_unit_x_grpmem
192: WHERE unit_cd = x_unit_cd
193: AND version_number = x_version_number
194: AND ((l_rowid IS NULL) OR (rowid <> l_rowid));
195:
223: || (reverse chronological order - newest change first)
224: */
225: CURSOR cur_rowid IS
226: SELECT rowid
227: FROM igs_ps_unit_x_grpmem
228: WHERE ((unit_x_listed_group_id = x_unit_x_listed_group_id));
229:
230: lv_rowid cur_rowid%RowType;
231:
259: || (reverse chronological order - newest change first)
260: */
261: CURSOR cur_rowid IS
262: SELECT rowid
263: FROM igs_ps_unit_x_grpmem
264: WHERE ((unit_cd = x_unit_cd) AND
265: (version_number = x_version_number));
266:
267: lv_rowid cur_rowid%RowType;
376: || (reverse chronological order - newest change first)
377: */
378: CURSOR c IS
379: SELECT rowid
380: FROM igs_ps_unit_x_grpmem
381: WHERE unit_x_listed_group_mem_id = x_unit_x_listed_group_mem_id;
382:
383: x_last_update_date DATE;
384: x_last_updated_by NUMBER;
404: igs_ge_msg_stack.add;
405: app_exception.raise_exception;
406: END IF;
407:
408: SELECT igs_ps_unit_x_grpmem_s.NEXTVAL
409: INTO x_unit_x_listed_group_mem_id
410: FROM dual;
411:
412: before_dml(
423: x_last_updated_by => x_last_updated_by,
424: x_last_update_login => x_last_update_login
425: );
426:
427: INSERT INTO igs_ps_unit_x_grpmem (
428: unit_x_listed_group_mem_id,
429: unit_x_listed_group_id,
430: unit_cd,
431: version_number,
481: unit_x_listed_group_id,
482: unit_cd,
483: version_number,
484: parent
485: FROM igs_ps_unit_x_grpmem
486: WHERE rowid = x_rowid
487: FOR UPDATE NOWAIT;
488:
489: tlinfo c1%ROWTYPE;
576: x_last_updated_by => x_last_updated_by,
577: x_last_update_login => x_last_update_login
578: );
579:
580: UPDATE igs_ps_unit_x_grpmem
581: SET
582: unit_x_listed_group_id = new_references.unit_x_listed_group_id,
583: unit_cd = new_references.unit_cd,
584: version_number = new_references.version_number,
614: || (reverse chronological order - newest change first)
615: */
616: CURSOR c1 IS
617: SELECT rowid
618: FROM igs_ps_unit_x_grpmem
619: WHERE unit_x_listed_group_mem_id = x_unit_x_listed_group_mem_id;
620:
621: BEGIN
622:
669: p_action => 'DELETE',
670: x_rowid => x_rowid
671: );
672:
673: DELETE FROM igs_ps_unit_x_grpmem
674: WHERE rowid = x_rowid;
675:
676: IF (SQL%NOTFOUND) THEN
677: RAISE NO_DATA_FOUND;
679:
680: END delete_row;
681:
682:
683: END igs_ps_unit_x_grpmem_pkg;