[Home] [Help]
1: PACKAGE BODY igf_sl_pnote_stat_h_pkg AS
2: /* $Header: IGFLI28B.pls 115.5 2002/11/28 14:27:52 nsidana noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_sl_pnote_stat_h%ROWTYPE;
1: PACKAGE BODY igf_sl_pnote_stat_h_pkg AS
2: /* $Header: IGFLI28B.pls 115.5 2002/11/28 14:27:52 nsidana noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_sl_pnote_stat_h%ROWTYPE;
6: new_references igf_sl_pnote_stat_h%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGFLI28B.pls 115.5 2002/11/28 14:27:52 nsidana noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_sl_pnote_stat_h%ROWTYPE;
6: new_references igf_sl_pnote_stat_h%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_SL_PNOTE_STAT_H
34: WHERE rowid = x_rowid;
35:
36: BEGIN
37:
110: || (reverse chronological order - newest change first)
111: */
112: CURSOR cur_rowid IS
113: SELECT rowid
114: FROM igf_sl_pnote_stat_h
115: WHERE dlpnh_id = x_dlpnh_id
116: FOR UPDATE NOWAIT;
117:
118: lv_rowid cur_rowid%RowType;
147: || (reverse chronological order - newest change first)
148: */
149: CURSOR cur_rowid IS
150: SELECT rowid
151: FROM igf_sl_pnote_stat_h
152: WHERE ((loan_id = x_loan_id));
153:
154: lv_rowid cur_rowid%RowType;
155:
255: || (reverse chronological order - newest change first)
256: */
257: CURSOR c IS
258: SELECT rowid
259: FROM igf_sl_pnote_stat_h
260: WHERE dlpnh_id = x_dlpnh_id;
261:
262: x_last_update_date DATE;
263: x_last_updated_by NUMBER;
299: igs_ge_msg_stack.add;
300: app_exception.raise_exception;
301: END IF;
302:
303: SELECT igf_sl_pnote_stat_h_s.NEXTVAL
304: INTO x_dlpnh_id
305: FROM dual;
306:
307: before_dml(
317: x_last_updated_by => x_last_updated_by,
318: x_last_update_login => x_last_update_login
319: );
320:
321: INSERT INTO igf_sl_pnote_stat_h (
322: dlpnh_id,
323: loan_id,
324: pnote_status,
325: pnote_status_date,
379: SELECT
380: loan_id,
381: pnote_status,
382: pnote_status_date
383: FROM igf_sl_pnote_stat_h
384: WHERE rowid = x_rowid
385: FOR UPDATE NOWAIT;
386:
387: tlinfo c1%ROWTYPE;
489: x_program_update_date := SYSDATE;
490: END IF;
491: END IF;
492:
493: UPDATE igf_sl_pnote_stat_h
494: SET
495: loan_id = new_references.loan_id,
496: pnote_status = new_references.pnote_status,
497: pnote_status_date = new_references.pnote_status_date,
529: || (reverse chronological order - newest change first)
530: */
531: CURSOR c1 IS
532: SELECT rowid
533: FROM igf_sl_pnote_stat_h
534: WHERE dlpnh_id = x_dlpnh_id;
535:
536: BEGIN
537:
582: p_action => 'DELETE',
583: x_rowid => x_rowid
584: );
585:
586: DELETE FROM igf_sl_pnote_stat_h
587: WHERE rowid = x_rowid;
588:
589: IF (SQL%NOTFOUND) THEN
590: RAISE NO_DATA_FOUND;
592:
593: END delete_row;
594:
595:
596: END igf_sl_pnote_stat_h_pkg;