1: PACKAGE BODY igf_aw_corresp_pkg AS
2: /* $Header: IGFWI37B.pls 115.5 2002/11/28 14:42:20 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_aw_corresp_all%ROWTYPE;
6: new_references igf_aw_corresp_all%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGFWI37B.pls 115.5 2002/11/28 14:42:20 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_aw_corresp_all%ROWTYPE;
6: new_references igf_aw_corresp_all%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
30: */
31:
32: CURSOR cur_old_ref_values IS
33: SELECT *
34: FROM IGF_AW_CORRESP_ALL
35: WHERE rowid = x_rowid;
36:
37: BEGIN
38:
112: || (reverse chronological order - newest change first)
113: */
114: CURSOR cur_rowid IS
115: SELECT rowid
116: FROM igf_aw_corresp_all
117: WHERE crsp_id = x_crsp_id
118: FOR UPDATE NOWAIT;
119:
120: lv_rowid cur_rowid%RowType;
147: || (reverse chronological order - newest change first)
148: */
149: CURSOR cur_rowid IS
150: SELECT rowid
151: FROM igf_aw_corresp_all
152: WHERE ((base_id = x_base_id));
153:
154: lv_rowid cur_rowid%RowType;
155:
258: || (reverse chronological order - newest change first)
259: */
260: CURSOR c IS
261: SELECT rowid
262: FROM igf_aw_corresp_all
263: WHERE crsp_id = x_crsp_id;
264:
265: x_last_update_date DATE;
266: x_last_updated_by NUMBER;
323: x_last_updated_by => x_last_updated_by,
324: x_last_update_login => x_last_update_login
325: );
326:
327: INSERT INTO igf_aw_corresp_all (
328: crsp_id,
329: base_id,
330: flag,
331: line_number,
391: base_id,
392: flag,
393: line_number,
394: line_data
395: FROM igf_aw_corresp_all
396: WHERE rowid = x_rowid
397: FOR UPDATE NOWAIT;
398:
399: tlinfo c1%ROWTYPE;
504: x_program_update_date := SYSDATE;
505: END IF;
506: END IF;
507:
508: UPDATE igf_aw_corresp_all
509: SET
510: base_id = new_references.base_id,
511: flag = new_references.flag,
512: line_number = new_references.line_number,
546: || (reverse chronological order - newest change first)
547: */
548: CURSOR c1 IS
549: SELECT rowid
550: FROM igf_aw_corresp_all
551: WHERE crsp_id = x_crsp_id;
552:
553: BEGIN
554:
601: p_action => 'DELETE',
602: x_rowid => x_rowid
603: );
604:
605: DELETE FROM igf_aw_corresp_all
606: WHERE rowid = x_rowid;
607:
608: IF (SQL%NOTFOUND) THEN
609: RAISE NO_DATA_FOUND;