[Home] [Help]
1: PACKAGE BODY igs_en_spaa_hist_pkg AS
2: /* $Header: IGSEI72B.pls 115.0 2003/10/09 09:29:40 anilk noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_en_spaa_hist%ROWTYPE;
1: PACKAGE BODY igs_en_spaa_hist_pkg AS
2: /* $Header: IGSEI72B.pls 115.0 2003/10/09 09:29:40 anilk noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_en_spaa_hist%ROWTYPE;
6: new_references igs_en_spaa_hist%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSEI72B.pls 115.0 2003/10/09 09:29:40 anilk noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_en_spaa_hist%ROWTYPE;
6: new_references igs_en_spaa_hist%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2,
36: */
37:
38: CURSOR cur_old_ref_values IS
39: SELECT *
40: FROM igs_en_spaa_hist
41: WHERE rowid = x_rowid;
42:
43: BEGIN
44:
147: || (reverse chronological order - newest change first)
148: */
149: CURSOR cur_rowid IS
150: SELECT rowid
151: FROM igs_en_spaa_hist
152: WHERE person_id = x_person_id
153: AND course_cd = x_course_cd
154: AND award_cd = x_award_cd
155: AND creation_date = x_creation_date
185: || (reverse chronological order - newest change first)
186: */
187: CURSOR cur_rowid IS
188: SELECT rowid
189: FROM igs_en_spaa_hist
190: WHERE ((grading_schema_cd = x_grading_schema_cd) AND
191: (gs_version_number = x_version_number));
192:
193: lv_rowid cur_rowid%RowType;
345: x_last_update_login := -1;
346: END IF;
347: ELSE
348: fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
349: fnd_message.set_token ('ROUTINE', 'IGS_EN_SPAA_HIST_PKG.INSERT_ROW');
350: igs_ge_msg_stack.add;
351: app_exception.raise_exception;
352: END IF;
353:
371: x_last_updated_by => x_last_updated_by,
372: x_last_update_login => x_last_update_login
373: );
374:
375: INSERT INTO igs_en_spaa_hist (
376: person_id,
377: course_cd,
378: award_cd,
379: start_date,
445: award_mark,
446: award_grade,
447: grading_schema_cd,
448: gs_version_number
449: FROM igs_en_spaa_hist
450: WHERE rowid = x_rowid
451: FOR UPDATE NOWAIT;
452:
453: tlinfo c1%ROWTYPE;
531: x_last_update_login := -1;
532: END IF;
533: ELSE
534: fnd_message.set_name( 'FND', 'SYSTEM-INVALID ARGS');
535: fnd_message.set_token ('ROUTINE', 'IGS_EN_SPAA_HIST_PKG.UPDATE_ROW');
536: igs_ge_msg_stack.add;
537: app_exception.raise_exception;
538: END IF;
539:
557: x_last_updated_by => x_last_updated_by,
558: x_last_update_login => x_last_update_login
559: );
560:
561: UPDATE igs_en_spaa_hist
562: SET
563: start_date = new_references.start_date,
564: end_date = new_references.end_date,
565: complete_flag = new_references.complete_flag,
608: || (reverse chronological order - newest change first)
609: */
610: CURSOR c1 IS
611: SELECT rowid
612: FROM igs_en_spaa_hist
613: WHERE person_id = x_person_id
614: AND course_cd = x_course_cd
615: AND award_cd = x_award_cd
616: AND creation_date = x_creation_date;
678: p_action => 'DELETE',
679: x_rowid => x_rowid
680: );
681:
682: DELETE FROM igs_en_spaa_hist
683: WHERE rowid = x_rowid;
684:
685: IF (SQL%NOTFOUND) THEN
686: RAISE NO_DATA_FOUND;
690:
691: END delete_row;
692:
693:
694: END igs_en_spaa_hist_pkg;