1: PACKAGE BODY igs_uc_app_clr_rnd_pkg AS
2: /* $Header: IGSXI05B.pls 115.12 2003/07/21 12:21:58 ayedubat noship $ */
3:
4:
5: l_rowid VARCHAR2(25);
2: /* $Header: IGSXI05B.pls 115.12 2003/07/21 12:21:58 ayedubat noship $ */
3:
4:
5: l_rowid VARCHAR2(25);
6: old_references igs_uc_app_clr_rnd%ROWTYPE;
7: new_references igs_uc_app_clr_rnd%ROWTYPE;
8:
9: PROCEDURE set_column_values (
10: p_action IN VARCHAR2,
3:
4:
5: l_rowid VARCHAR2(25);
6: old_references igs_uc_app_clr_rnd%ROWTYPE;
7: new_references igs_uc_app_clr_rnd%ROWTYPE;
8:
9: PROCEDURE set_column_values (
10: p_action IN VARCHAR2,
11: x_rowid IN VARCHAR2,
45: */
46:
47: CURSOR cur_old_ref_values IS
48: SELECT *
49: FROM IGS_UC_APP_CLR_RND
50: WHERE rowid = x_rowid;
51:
52: BEGIN
53:
188: || (reverse chronological order - newest change first)
189: */
190: CURSOR cur_rowid IS
191: SELECT rowid
192: FROM igs_uc_app_clr_rnd
193: WHERE app_clear_round_id = x_app_clear_round_id ;
194:
195: lv_rowid cur_rowid%RowType;
196:
227: || message was replaced with IGS_UC_UCAPCR_UCCSDE_FK.
228: */
229: CURSOR cur_rowid IS
230: SELECT rowid
231: FROM igs_uc_app_clr_rnd
232: WHERE ((institution = x_institute) AND
233: (ucas_campus = x_ucas_campus) AND
234: (ucas_program_code = x_ucas_program_code) AND
235: (system_code = x_system_code));
267: || message was replaced with IGS_UC_UCAPCR_UCAPCL_FK.
268: */
269: CURSOR cur_rowid IS
270: SELECT rowid
271: FROM igs_uc_app_clr_rnd
272: WHERE ((clearing_app_id = x_clearing_app_id));
273:
274: lv_rowid cur_rowid%RowType;
275:
419: || (reverse chronological order - newest change first)
420: */
421: CURSOR c IS
422: SELECT rowid
423: FROM igs_uc_app_clr_rnd
424: WHERE app_clear_round_id = x_app_clear_round_id;
425:
426: x_last_update_date DATE;
427: x_last_updated_by NUMBER;
447: igs_ge_msg_stack.add;
448: app_exception.raise_exception;
449: END IF;
450:
451: SELECT igs_uc_app_clr_rnd_s.NEXTVAL
452: INTO x_app_clear_round_id
453: FROM dual;
454:
455: before_dml(
479: x_oss_attendance_mode => x_oss_attendance_mode,
480: x_system_code =>x_system_code
481: );
482:
483: INSERT INTO igs_uc_app_clr_rnd (
484: app_clear_round_id,
485: clearing_app_id,
486: app_no,
487: enquiry_no,
590: result,
591: oss_attendance_type,
592: oss_attendance_mode,
593: system_code
594: FROM igs_uc_app_clr_rnd
595: WHERE rowid = x_rowid
596: FOR UPDATE NOWAIT;
597:
598: tlinfo c1%ROWTYPE;
725: x_oss_attendance_mode => x_oss_attendance_mode,
726: x_system_code => x_system_code
727: );
728:
729: UPDATE igs_uc_app_clr_rnd
730: SET
731: clearing_app_id = new_references.clearing_app_id,
732: app_no = new_references.app_no,
733: enquiry_no = new_references.enquiry_no,
790: || (reverse chronological order - newest change first)
791: */
792: CURSOR c1 IS
793: SELECT rowid
794: FROM igs_uc_app_clr_rnd
795: WHERE app_clear_round_id = x_app_clear_round_id;
796:
797: BEGIN
798:
871: p_action => 'DELETE',
872: x_rowid => x_rowid
873: );
874:
875: DELETE FROM igs_uc_app_clr_rnd
876: WHERE rowid = x_rowid;
877:
878: IF (SQL%NOTFOUND) THEN
879: RAISE NO_DATA_FOUND;
881:
882: END delete_row;
883:
884:
885: END igs_uc_app_clr_rnd_pkg;