[Home] [Help]
1: PACKAGE BODY igf_aw_fi_inc_level_pkg AS
2: /* $Header: IGFWI42B.pls 115.5 2002/11/28 12:31:59 nsidana noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_aw_fi_inc_level%ROWTYPE;
1: PACKAGE BODY igf_aw_fi_inc_level_pkg AS
2: /* $Header: IGFWI42B.pls 115.5 2002/11/28 12:31:59 nsidana noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_aw_fi_inc_level%ROWTYPE;
6: new_references igf_aw_fi_inc_level%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGFWI42B.pls 115.5 2002/11/28 12:31:59 nsidana noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_aw_fi_inc_level%ROWTYPE;
6: new_references igf_aw_fi_inc_level%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
29: */
30:
31: CURSOR cur_old_ref_values IS
32: SELECT *
33: FROM IGF_AW_FI_INC_LEVEL
34: WHERE rowid = x_rowid;
35:
36: BEGIN
37:
135: || (reverse chronological order - newest change first)
136: */
137: CURSOR cur_rowid IS
138: SELECT rowid
139: FROM igf_aw_fi_inc_level
140: WHERE range_id = x_range_id
141: FOR UPDATE NOWAIT;
142:
143: lv_rowid cur_rowid%RowType;
171: || (reverse chronological order - newest change first)
172: */
173: CURSOR cur_rowid IS
174: SELECT rowid
175: FROM igf_aw_fi_inc_level
176: WHERE category_id = x_category_id
177: AND minvalue = x_minvalue
178: AND ((l_rowid IS NULL) OR (rowid <> l_rowid));
179:
207: || (reverse chronological order - newest change first)
208: */
209: CURSOR cur_rowid IS
210: SELECT rowid
211: FROM igf_aw_fi_inc_level
212: WHERE ((category_id = x_category_id));
213:
214: lv_rowid cur_rowid%RowType;
215:
320: || (reverse chronological order - newest change first)
321: */
322: CURSOR c IS
323: SELECT rowid
324: FROM igf_aw_fi_inc_level
325: WHERE range_id = x_range_id;
326:
327: x_last_update_date DATE;
328: x_last_updated_by NUMBER;
348: igs_ge_msg_stack.add;
349: app_exception.raise_exception;
350: END IF;
351:
352: SELECT igf_aw_fi_inc_level_s.NEXTVAL
353: INTO x_range_id
354: FROM dual;
355:
356: before_dml(
366: x_last_updated_by => x_last_updated_by,
367: x_last_update_login => x_last_update_login
368: );
369:
370: INSERT INTO igf_aw_fi_inc_level (
371: category_id,
372: range_id,
373: minvalue,
374: maxvalue,
420: SELECT
421: category_id,
422: minvalue,
423: maxvalue
424: FROM igf_aw_fi_inc_level
425: WHERE rowid = x_rowid
426: FOR UPDATE NOWAIT;
427:
428: tlinfo c1%ROWTYPE;
512: x_last_updated_by => x_last_updated_by,
513: x_last_update_login => x_last_update_login
514: );
515:
516: UPDATE igf_aw_fi_inc_level
517: SET
518: category_id = new_references.category_id,
519: minvalue = new_references.minvalue,
520: maxvalue = new_references.maxvalue,
548: || (reverse chronological order - newest change first)
549: */
550: CURSOR c1 IS
551: SELECT rowid
552: FROM igf_aw_fi_inc_level
553: WHERE range_id = x_range_id;
554:
555: BEGIN
556:
601: p_action => 'DELETE',
602: x_rowid => x_rowid
603: );
604:
605: DELETE FROM igf_aw_fi_inc_level
606: WHERE rowid = x_rowid;
607:
608: IF (SQL%NOTFOUND) THEN
609: RAISE NO_DATA_FOUND;
611:
612: END delete_row;
613:
614:
615: END igf_aw_fi_inc_level_pkg;