1: PACKAGE BODY igs_ps_usec_x_grpmem_pkg AS
2: /* $Header: IGSPI2KB.pls 115.3 2002/11/29 02:17:28 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_ps_usec_x_grpmem%ROWTYPE;
1: PACKAGE BODY igs_ps_usec_x_grpmem_pkg AS
2: /* $Header: IGSPI2KB.pls 115.3 2002/11/29 02:17:28 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_ps_usec_x_grpmem%ROWTYPE;
6: new_references igs_ps_usec_x_grpmem%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSPI2KB.pls 115.3 2002/11/29 02:17:28 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_ps_usec_x_grpmem%ROWTYPE;
6: new_references igs_ps_usec_x_grpmem%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
29: */
30:
31: CURSOR cur_old_ref_values IS
32: SELECT *
33: FROM IGS_PS_USEC_X_GRPMEM
34: WHERE rowid = x_rowid;
35:
36: BEGIN
37:
145: || (reverse chronological order - newest change first)
146: */
147: CURSOR cur_rowid IS
148: SELECT rowid
149: FROM igs_ps_usec_x_grpmem
150: WHERE usec_x_listed_group_mem_id = x_usec_x_listed_group_mem_id
151: FOR UPDATE NOWAIT;
152:
153: lv_rowid cur_rowid%RowType;
180: || (reverse chronological order - newest change first)
181: */
182: CURSOR cur_rowid IS
183: SELECT rowid
184: FROM igs_ps_usec_x_grpmem
185: WHERE uoo_id = x_uoo_id
186: AND ((l_rowid IS NULL) OR (rowid <> l_rowid));
187:
188: lv_rowid cur_rowid%RowType;
215: || (reverse chronological order - newest change first)
216: */
217: CURSOR cur_rowid IS
218: SELECT rowid
219: FROM igs_ps_usec_x_grpmem
220: WHERE ((usec_x_listed_group_id = x_usec_x_listed_group_id));
221:
222: lv_rowid cur_rowid%RowType;
223:
250: || (reverse chronological order - newest change first)
251: */
252: CURSOR cur_rowid IS
253: SELECT rowid
254: FROM igs_ps_usec_x_grpmem
255: WHERE ((uoo_id = x_uoo_id));
256:
257: lv_rowid cur_rowid%RowType;
258:
363: || (reverse chronological order - newest change first)
364: */
365: CURSOR c IS
366: SELECT rowid
367: FROM igs_ps_usec_x_grpmem
368: WHERE usec_x_listed_group_mem_id = x_usec_x_listed_group_mem_id;
369:
370: x_last_update_date DATE;
371: x_last_updated_by NUMBER;
391: igs_ge_msg_stack.add;
392: app_exception.raise_exception;
393: END IF;
394:
395: SELECT igs_ps_usec_x_grpmem_s.NEXTVAL
396: INTO x_usec_x_listed_group_mem_id
397: FROM dual;
398:
399: before_dml(
409: x_last_updated_by => x_last_updated_by,
410: x_last_update_login => x_last_update_login
411: );
412:
413: INSERT INTO igs_ps_usec_x_grpmem (
414: usec_x_listed_group_mem_id,
415: usec_x_listed_group_id,
416: uoo_id,
417: parent,
463: SELECT
464: usec_x_listed_group_id,
465: uoo_id,
466: parent
467: FROM igs_ps_usec_x_grpmem
468: WHERE rowid = x_rowid
469: FOR UPDATE NOWAIT;
470:
471: tlinfo c1%ROWTYPE;
555: x_last_updated_by => x_last_updated_by,
556: x_last_update_login => x_last_update_login
557: );
558:
559: UPDATE igs_ps_usec_x_grpmem
560: SET
561: usec_x_listed_group_id = new_references.usec_x_listed_group_id,
562: uoo_id = new_references.uoo_id,
563: parent = new_references.parent,
591: || (reverse chronological order - newest change first)
592: */
593: CURSOR c1 IS
594: SELECT rowid
595: FROM igs_ps_usec_x_grpmem
596: WHERE usec_x_listed_group_mem_id = x_usec_x_listed_group_mem_id;
597:
598: BEGIN
599:
644: p_action => 'DELETE',
645: x_rowid => x_rowid
646: );
647:
648: DELETE FROM igs_ps_usec_x_grpmem
649: WHERE rowid = x_rowid;
650:
651: IF (SQL%NOTFOUND) THEN
652: RAISE NO_DATA_FOUND;
654:
655: END delete_row;
656:
657:
658: END igs_ps_usec_x_grpmem_pkg;