[Home] [Help]
1: PACKAGE BODY igs_uc_crse_keywrds_pkg AS
2: /* $Header: IGSXI15B.pls 120.1 2005/09/27 19:34:33 appldev ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_uc_crse_keywrds%ROWTYPE;
1: PACKAGE BODY igs_uc_crse_keywrds_pkg AS
2: /* $Header: IGSXI15B.pls 120.1 2005/09/27 19:34:33 appldev ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_uc_crse_keywrds%ROWTYPE;
6: new_references igs_uc_crse_keywrds%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSXI15B.pls 120.1 2005/09/27 19:34:33 appldev ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_uc_crse_keywrds%ROWTYPE;
6: new_references igs_uc_crse_keywrds%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 ,
38: */
39:
40: CURSOR cur_old_ref_values IS
41: SELECT *
42: FROM IGS_UC_CRSE_KEYWRDS
43: WHERE rowid = x_rowid;
44:
45: BEGIN
46:
185: || (reverse chronological order - newest change first)
186: */
187: CURSOR cur_rowid IS
188: SELECT rowid
189: FROM igs_uc_crse_keywrds
190: WHERE ucas_program_code = x_ucas_program_code
191: AND institute = x_institute
192: AND ucas_campus = x_ucas_campus
193: AND ( ( x_option_code IS NOT NULL AND option_code = x_option_code ) OR
227: || (reverse chronological order - newest change first)
228: */
229: CURSOR cur_rowid IS
230: SELECT rowid
231: FROM igs_uc_crse_keywrds
232: WHERE crse_keyword_id = x_crse_keyword_id ;
233:
234: lv_rowid cur_rowid%RowType;
235:
263: || (reverse chronological order - newest change first)
264: */
265: CURSOR cur_rowid IS
266: SELECT rowid
267: FROM igs_uc_crse_keywrds
268: WHERE ((keyword = x_keyword));
269:
270: lv_rowid cur_rowid%RowType;
271:
301: || (reverse chronological order - newest change first)
302: */
303: CURSOR cur_rowid IS
304: SELECT rowid
305: FROM igs_uc_crse_keywrds
306: WHERE ((institute = x_institute) AND
307: (ucas_campus = x_ucas_campus) AND
308: (ucas_program_code = x_ucas_program_code) AND
309: (system_code = x_system_code));
440: || (reverse chronological order - newest change first)
441: */
442: CURSOR c IS
443: SELECT rowid
444: FROM igs_uc_crse_keywrds
445: WHERE crse_keyword_id = x_crse_keyword_id;
446:
447: CURSOR c_keyword IS
448: SELECT igs_uc_crse_keywrds_s.NEXTVAL
444: FROM igs_uc_crse_keywrds
445: WHERE crse_keyword_id = x_crse_keyword_id;
446:
447: CURSOR c_keyword IS
448: SELECT igs_uc_crse_keywrds_s.NEXTVAL
449: FROM dual;
450:
451: x_last_update_date DATE;
452: x_last_updated_by NUMBER;
503: x_last_updated_by => x_last_updated_by,
504: x_last_update_login => x_last_update_login
505: );
506:
507: INSERT INTO igs_uc_crse_keywrds (
508: ucas_program_code,
509: institute,
510: ucas_campus,
511: option_code,
590: ucas_program_code,
591: institute,
592: ucas_campus,
593: keyword
594: FROM igs_uc_crse_keywrds
595: WHERE rowid = x_rowid
596: FOR UPDATE NOWAIT;
597:
598: tlinfo c1%ROWTYPE;
707: x_last_updated_by => x_last_updated_by,
708: x_last_update_login => x_last_update_login
709: );
710:
711: UPDATE igs_uc_crse_keywrds
712: SET
713: preference = new_references.preference,
714: updater = new_references.updater,
715: active = new_references.active,
760: || (reverse chronological order - newest change first)
761: */
762: CURSOR c1 IS
763: SELECT rowid
764: FROM igs_uc_crse_keywrds
765: WHERE crse_keyword_id = x_crse_keyword_id;
766:
767: BEGIN
768:
829: p_action => 'DELETE',
830: x_rowid => x_rowid
831: );
832:
833: DELETE FROM igs_uc_crse_keywrds
834: WHERE rowid = x_rowid;
835:
836: IF (SQL%NOTFOUND) THEN
837: RAISE NO_DATA_FOUND;
839:
840: END delete_row;
841:
842:
843: END igs_uc_crse_keywrds_pkg;