1: PACKAGE BODY igf_sl_dl_chg_fld_pkg AS
2: /* $Header: IGFLI16B.pls 115.5 2002/11/28 14:25:04 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_sl_dl_chg_fld%ROWTYPE;
1: PACKAGE BODY igf_sl_dl_chg_fld_pkg AS
2: /* $Header: IGFLI16B.pls 115.5 2002/11/28 14:25:04 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_sl_dl_chg_fld%ROWTYPE;
6: new_references igf_sl_dl_chg_fld%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGFLI16B.pls 115.5 2002/11/28 14:25:04 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_sl_dl_chg_fld%ROWTYPE;
6: new_references igf_sl_dl_chg_fld%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
31: */
32:
33: CURSOR cur_old_ref_values IS
34: SELECT *
35: FROM IGF_SL_DL_CHG_FLD
36: WHERE rowid = x_rowid;
37:
38: BEGIN
39:
125: || (reverse chronological order - newest change first)
126: */
127: CURSOR cur_rowid IS
128: SELECT rowid
129: FROM igf_sl_dl_chg_fld
130: WHERE dchg_id = x_dchg_id
131: FOR UPDATE NOWAIT;
132:
133: lv_rowid cur_rowid%RowType;
162: || (reverse chronological order - newest change first)
163: */
164: CURSOR cur_rowid IS
165: SELECT rowid
166: FROM igf_sl_dl_chg_fld
167: WHERE dl_version = x_dl_version
168: AND loan_catg = x_loan_catg
169: AND fld_name = x_fld_name
170: AND ((l_rowid IS NULL) OR (rowid <> l_rowid));
201: || (reverse chronological order - newest change first)
202: */
203: CURSOR cur_rowid IS
204: SELECT rowid
205: FROM igf_sl_dl_chg_fld
206: WHERE dl_version = x_dl_version
207: AND loan_catg = x_loan_catg
208: AND chg_code = x_chg_code
209: AND ((l_rowid IS NULL) OR (rowid <> l_rowid));
320: || (reverse chronological order - newest change first)
321: */
322: CURSOR c IS
323: SELECT rowid
324: FROM igf_sl_dl_chg_fld
325: WHERE dchg_id = x_dchg_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_sl_dl_chg_fld_s.NEXTVAL into x_dchg_id FROM DUAL;
353:
354: before_dml(
355: p_action => 'INSERT',
356: x_rowid => x_rowid,
366: x_last_updated_by => x_last_updated_by,
367: x_last_update_login => x_last_update_login
368: );
369:
370: INSERT INTO igf_sl_dl_chg_fld (
371: dchg_id,
372: dl_version,
373: chg_code,
374: loan_catg,
428: chg_code,
429: loan_catg,
430: fld_name,
431: fld_length
432: FROM igf_sl_dl_chg_fld
433: WHERE rowid = x_rowid
434: FOR UPDATE NOWAIT;
435:
436: tlinfo c1%ROWTYPE;
526: x_last_updated_by => x_last_updated_by,
527: x_last_update_login => x_last_update_login
528: );
529:
530: UPDATE igf_sl_dl_chg_fld
531: SET
532: dl_version = new_references.dl_version,
533: chg_code = new_references.chg_code,
534: loan_catg = new_references.loan_catg,
566: || (reverse chronological order - newest change first)
567: */
568: CURSOR c1 IS
569: SELECT rowid
570: FROM igf_sl_dl_chg_fld
571: WHERE dchg_id = x_dchg_id;
572:
573: BEGIN
574:
623: p_action => 'DELETE',
624: x_rowid => x_rowid
625: );
626:
627: DELETE FROM igf_sl_dl_chg_fld
628: WHERE rowid = x_rowid;
629:
630: IF (SQL%NOTFOUND) THEN
631: RAISE NO_DATA_FOUND;
633:
634: END delete_row;
635:
636:
637: END igf_sl_dl_chg_fld_pkg;