1: PACKAGE BODY igs_as_gpc_cls_stndg_pkg AS
2: /* $Header: IGSDI51B.pls 115.7 2002/11/28 23:23:29 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_as_gpc_cls_stndg%ROWTYPE;
1: PACKAGE BODY igs_as_gpc_cls_stndg_pkg AS
2: /* $Header: IGSDI51B.pls 115.7 2002/11/28 23:23:29 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_as_gpc_cls_stndg%ROWTYPE;
6: new_references igs_as_gpc_cls_stndg%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSDI51B.pls 115.7 2002/11/28 23:23:29 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_as_gpc_cls_stndg%ROWTYPE;
6: new_references igs_as_gpc_cls_stndg%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_CLS_STNDG
33: WHERE rowid = x_rowid;
34:
35: BEGIN
36:
174: || (reverse chronological order - newest change first)
175: */
176: CURSOR cur_rowid IS
177: SELECT rowid
178: FROM igs_as_gpc_cls_stndg
179: WHERE gpc_cls_stndg_id = x_gpc_cls_stndg_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_cls_stndg
215: WHERE grading_period_cd = x_grading_period_cd
216: AND class_standing = x_class_standing
217: AND ((l_rowid IS NULL) OR (rowid <> l_rowid));
218:
246: || (reverse chronological order - newest change first)
247: */
248: CURSOR cur_rowid IS
249: SELECT rowid
250: FROM igs_as_gpc_cls_stndg
251: WHERE ((class_standing = x_class_standing));
252:
253: lv_rowid cur_rowid%RowType;
254:
358: || (reverse chronological order - newest change first)
359: */
360: CURSOR c IS
361: SELECT rowid
362: FROM igs_as_gpc_cls_stndg
363: WHERE gpc_cls_stndg_id = x_gpc_cls_stndg_id;
364:
365: x_last_update_date DATE;
366: x_last_updated_by NUMBER;
386: igs_ge_msg_stack.add;
387: app_exception.raise_exception;
388: END IF;
389:
390: SELECT igs_as_gpc_cls_stndg_s.NEXTVAL
391: INTO x_gpc_cls_stndg_id
392: FROM dual;
393:
394: before_dml(
403: x_last_updated_by => x_last_updated_by,
404: x_last_update_login => x_last_update_login
405: );
406:
407: INSERT INTO igs_as_gpc_cls_stndg (
408: gpc_cls_stndg_id,
409: grading_period_cd,
410: class_standing,
411: creation_date,
453: CURSOR c1 IS
454: SELECT
455: grading_period_cd,
456: class_standing
457: FROM igs_as_gpc_cls_stndg
458: WHERE rowid = x_rowid
459: FOR UPDATE NOWAIT;
460:
461: tlinfo c1%ROWTYPE;
542: x_last_updated_by => x_last_updated_by,
543: x_last_update_login => x_last_update_login
544: );
545:
546: UPDATE igs_as_gpc_cls_stndg
547: SET
548: grading_period_cd = new_references.grading_period_cd,
549: class_standing = new_references.class_standing,
550: last_update_date = x_last_update_date,
576: || (reverse chronological order - newest change first)
577: */
578: CURSOR c1 IS
579: SELECT rowid
580: FROM igs_as_gpc_cls_stndg
581: WHERE gpc_cls_stndg_id = x_gpc_cls_stndg_id;
582:
583: BEGIN
584:
627: p_action => 'DELETE',
628: x_rowid => x_rowid
629: );
630:
631: DELETE FROM igs_as_gpc_cls_stndg
632: WHERE rowid = x_rowid;
633:
634: IF (SQL%NOTFOUND) THEN
635: RAISE NO_DATA_FOUND;
637:
638: END delete_row;
639:
640:
641: END igs_as_gpc_cls_stndg_pkg;