[Home] [Help]
1: PACKAGE BODY igs_as_gpc_pe_id_grp_pkg AS
2: /* $Header: IGSDI55B.pls 115.7 2003/02/18 09:14:54 npalanis ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_as_gpc_pe_id_grp%ROWTYPE;
1: PACKAGE BODY igs_as_gpc_pe_id_grp_pkg AS
2: /* $Header: IGSDI55B.pls 115.7 2003/02/18 09:14:54 npalanis ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_as_gpc_pe_id_grp%ROWTYPE;
6: new_references igs_as_gpc_pe_id_grp%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSDI55B.pls 115.7 2003/02/18 09:14:54 npalanis ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_as_gpc_pe_id_grp%ROWTYPE;
6: new_references igs_as_gpc_pe_id_grp%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
28: */
29:
30: CURSOR cur_old_ref_values IS
31: SELECT *
32: FROM IGS_AS_GPC_PE_ID_GRP
33: WHERE rowid = x_rowid;
34:
35: BEGIN
36:
134:
135: CURSOR cur_rowid IS
136: SELECT rowid
137: FROM
138: igs_as_gpc_pe_id_grp
139: WHERE
140: grading_period_cd = x_grading_period_cd ;
141:
142: lv_rowid cur_rowid%RowType ;
174: || (reverse chronological order - newest change first)
175: */
176: CURSOR cur_rowid IS
177: SELECT rowid
178: FROM igs_as_gpc_pe_id_grp
179: WHERE gpc_pe_grp_id = x_gpc_pe_grp_id
180: FOR UPDATE NOWAIT;
181:
182: lv_rowid cur_rowid%RowType;
210: || (reverse chronological order - newest change first)
211: */
212: CURSOR cur_rowid IS
213: SELECT rowid
214: FROM igs_as_gpc_pe_id_grp
215: WHERE grading_period_cd = x_grading_period_cd
216: AND group_id = x_group_id
217: AND ((l_rowid IS NULL) OR (rowid <> l_rowid));
218:
334: || (reverse chronological order - newest change first)
335: */
336: CURSOR c IS
337: SELECT rowid
338: FROM igs_as_gpc_pe_id_grp
339: WHERE gpc_pe_grp_id = x_gpc_pe_grp_id;
340:
341: x_last_update_date DATE;
342: x_last_updated_by NUMBER;
362: igs_ge_msg_stack.add;
363: app_exception.raise_exception;
364: END IF;
365:
366: SELECT igs_as_gpc_pe_id_grp_s.NEXTVAL
367: INTO x_gpc_pe_grp_id
368: FROM dual;
369:
370: before_dml(
379: x_last_updated_by => x_last_updated_by,
380: x_last_update_login => x_last_update_login
381: );
382:
383: INSERT INTO igs_as_gpc_pe_id_grp (
384: gpc_pe_grp_id,
385: grading_period_cd,
386: group_id,
387: creation_date,
429: CURSOR c1 IS
430: SELECT
431: grading_period_cd,
432: group_id
433: FROM igs_as_gpc_pe_id_grp
434: WHERE rowid = x_rowid
435: FOR UPDATE NOWAIT;
436:
437: tlinfo c1%ROWTYPE;
518: x_last_updated_by => x_last_updated_by,
519: x_last_update_login => x_last_update_login
520: );
521:
522: UPDATE igs_as_gpc_pe_id_grp
523: SET
524: grading_period_cd = new_references.grading_period_cd,
525: group_id = new_references.group_id,
526: last_update_date = x_last_update_date,
552: || (reverse chronological order - newest change first)
553: */
554: CURSOR c1 IS
555: SELECT rowid
556: FROM igs_as_gpc_pe_id_grp
557: WHERE gpc_pe_grp_id = x_gpc_pe_grp_id;
558:
559: BEGIN
560:
603: p_action => 'DELETE',
604: x_rowid => x_rowid
605: );
606:
607: DELETE FROM igs_as_gpc_pe_id_grp
608: WHERE rowid = x_rowid;
609:
610: IF (SQL%NOTFOUND) THEN
611: RAISE NO_DATA_FOUND;
613:
614: END delete_row;
615:
616:
617: END igs_as_gpc_pe_id_grp_pkg;