1: PACKAGE BODY igs_uc_ref_codes_pkg AS
2: /* $Header: IGSXI26B.pls 115.7 2003/06/11 14:36:19 rgangara noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_uc_ref_codes%ROWTYPE;
1: PACKAGE BODY igs_uc_ref_codes_pkg AS
2: /* $Header: IGSXI26B.pls 115.7 2003/06/11 14:36:19 rgangara noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_uc_ref_codes%ROWTYPE;
6: new_references igs_uc_ref_codes%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSXI26B.pls 115.7 2003/06/11 14:36:19 rgangara noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_uc_ref_codes%ROWTYPE;
6: new_references igs_uc_ref_codes%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2,
29: */
30:
31: CURSOR cur_old_ref_values IS
32: SELECT *
33: FROM IGS_UC_REF_CODES
34: WHERE rowid = x_rowid;
35:
36: BEGIN
37:
82: || (reverse chronological order - newest change first)
83: */
84: BEGIN
85:
86: igs_uc_exam_scores_pkg.get_fk_igs_uc_ref_codes (
87: old_references.code_type,
88: old_references.code
89: );
90:
105: || (reverse chronological order - newest change first)
106: */
107: CURSOR cur_rowid IS
108: SELECT rowid
109: FROM igs_uc_ref_codes
110: WHERE code_type = x_code_type
111: AND code = x_code ;
112:
113: lv_rowid cur_rowid%RowType;
140: || (reverse chronological order - newest change first)
141: */
142: CURSOR cur_rowid IS
143: SELECT rowid
144: FROM igs_uc_ref_codes
145: WHERE ((code_type = x_code_type));
146:
147: lv_rowid cur_rowid%RowType;
148:
255: || (reverse chronological order - newest change first)
256: */
257: CURSOR c IS
258: SELECT rowid
259: FROM igs_uc_ref_codes
260: WHERE code_type = x_code_type
261: AND code = x_code;
262:
263: x_last_update_date DATE;
298: x_last_updated_by => x_last_updated_by,
299: x_last_update_login => x_last_update_login
300: );
301:
302: INSERT INTO igs_uc_ref_codes (
303: code_type,
304: code,
305: code_text,
306: imported,
351: CURSOR c1 IS
352: SELECT
353: code_text,
354: imported
355: FROM igs_uc_ref_codes
356: WHERE rowid = x_rowid
357: FOR UPDATE NOWAIT;
358:
359: tlinfo c1%ROWTYPE;
442: x_last_updated_by => x_last_updated_by,
443: x_last_update_login => x_last_update_login
444: );
445:
446: UPDATE igs_uc_ref_codes
447: SET
448: code_text = new_references.code_text,
449: imported = new_references.imported,
450: last_update_date = x_last_update_date,
477: || (reverse chronological order - newest change first)
478: */
479: CURSOR c1 IS
480: SELECT rowid
481: FROM igs_uc_ref_codes
482: WHERE code_type = x_code_type
483: AND code = x_code;
484:
485: BEGIN
531: p_action => 'DELETE',
532: x_rowid => x_rowid
533: );
534:
535: DELETE FROM igs_uc_ref_codes
536: WHERE rowid = x_rowid;
537:
538: IF (SQL%NOTFOUND) THEN
539: RAISE NO_DATA_FOUND;
541:
542: END delete_row;
543:
544:
545: END igs_uc_ref_codes_pkg;