1: PACKAGE BODY igs_uc_crse_vac_ops_pkg AS
2: /* $Header: IGSXI16B.pls 115.9 2003/06/11 10:17:18 smaddali noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_uc_crse_vac_ops%ROWTYPE;
1: PACKAGE BODY igs_uc_crse_vac_ops_pkg AS
2: /* $Header: IGSXI16B.pls 115.9 2003/06/11 10:17:18 smaddali noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_uc_crse_vac_ops%ROWTYPE;
6: new_references igs_uc_crse_vac_ops%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSXI16B.pls 115.9 2003/06/11 10:17:18 smaddali noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_uc_crse_vac_ops%ROWTYPE;
6: new_references igs_uc_crse_vac_ops%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_UC_CRSE_VAC_OPS
41: WHERE rowid = x_rowid;
42:
43: BEGIN
44:
134: || (reverse chronological order - newest change first)
135: */
136: CURSOR cur_rowid IS
137: SELECT rowid
138: FROM igs_uc_crse_vac_ops
139: WHERE ucas_program_code = x_ucas_program_code
140: AND institute = x_institute
141: AND ucas_campus = x_ucas_campus
142: AND option_code = x_option_code
175: || (reverse chronological order - newest change first)
176: */
177: CURSOR cur_rowid IS
178: SELECT rowid
179: FROM igs_uc_crse_vac_ops
180: WHERE ((institute = x_institute) AND
181: (ucas_campus = x_ucas_campus) AND
182: (ucas_program_code = x_ucas_program_code)AND
183: (system_code = x_system_code));
313: || (reverse chronological order - newest change first)
314: */
315: CURSOR c IS
316: SELECT rowid
317: FROM igs_uc_crse_vac_ops
318: WHERE ucas_program_code = x_ucas_program_code
319: AND institute = x_institute
320: AND ucas_campus = x_ucas_campus
321: AND option_code = x_option_code;
364: x_last_updated_by => x_last_updated_by,
365: x_last_update_login => x_last_update_login
366: );
367:
368: INSERT INTO igs_uc_crse_vac_ops (
369: ucas_program_code,
370: institute,
371: ucas_campus,
372: option_code,
440: cl_date,
441: vacancy_status,
442: sent_to_ucas,
443: system_code
444: FROM igs_uc_crse_vac_ops
445: WHERE rowid = x_rowid
446: FOR UPDATE NOWAIT;
447:
448: tlinfo c1%ROWTYPE;
547: x_last_updated_by => x_last_updated_by,
548: x_last_update_login => x_last_update_login
549: );
550:
551: UPDATE igs_uc_crse_vac_ops
552: SET
553: updater = new_references.updater,
554: cl_updated = new_references.cl_updated,
555: cl_date = new_references.cl_date,
592: || (reverse chronological order - newest change first)
593: */
594: CURSOR c1 IS
595: SELECT rowid
596: FROM igs_uc_crse_vac_ops
597: WHERE ucas_program_code = x_ucas_program_code
598: AND institute = x_institute
599: AND ucas_campus = x_ucas_campus
600: AND option_code = x_option_code;
660: p_action => 'DELETE',
661: x_rowid => x_rowid
662: );
663:
664: DELETE FROM igs_uc_crse_vac_ops
665: WHERE rowid = x_rowid;
666:
667: IF (SQL%NOTFOUND) THEN
668: RAISE NO_DATA_FOUND;
670:
671: END delete_row;
672:
673:
674: END igs_uc_crse_vac_ops_pkg;