1: PACKAGE BODY igf_sl_dl_pdet_resp_pkg AS
2: /* $Header: IGFLI27B.pls 115.4 2002/11/28 14:27:40 nsidana noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_sl_dl_pdet_resp%ROWTYPE;
1: PACKAGE BODY igf_sl_dl_pdet_resp_pkg AS
2: /* $Header: IGFLI27B.pls 115.4 2002/11/28 14:27:40 nsidana noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_sl_dl_pdet_resp%ROWTYPE;
6: new_references igf_sl_dl_pdet_resp%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGFLI27B.pls 115.4 2002/11/28 14:27:40 nsidana noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_sl_dl_pdet_resp%ROWTYPE;
6: new_references igf_sl_dl_pdet_resp%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
28: */
29:
30: CURSOR cur_old_ref_values IS
31: SELECT *
32: FROM IGF_SL_DL_PDET_RESP
33: WHERE rowid = x_rowid;
34:
35: BEGIN
36:
109: || (reverse chronological order - newest change first)
110: */
111: CURSOR cur_rowid IS
112: SELECT rowid
113: FROM igf_sl_dl_pdet_resp
114: WHERE dlpnr_id = x_dlpnr_id
115: AND dlpdr_id = x_dlpdr_id
116: FOR UPDATE NOWAIT;
117:
145: || (reverse chronological order - newest change first)
146: */
147: CURSOR cur_rowid IS
148: SELECT rowid
149: FROM igf_sl_dl_pdet_resp
150: WHERE ((dlpnr_id = x_dlpnr_id));
151:
152: lv_rowid cur_rowid%RowType;
153:
252: || (reverse chronological order - newest change first)
253: */
254: CURSOR c IS
255: SELECT rowid
256: FROM igf_sl_dl_pdet_resp
257: WHERE dlpnr_id = x_dlpnr_id
258: AND dlpdr_id = x_dlpdr_id;
259:
260: x_last_update_date DATE;
310: x_last_updated_by => x_last_updated_by,
311: x_last_update_login => x_last_update_login
312: );
313:
314: INSERT INTO igf_sl_dl_pdet_resp (
315: dlpnr_id,
316: dlpdr_id,
317: disb_gross_amt,
318: creation_date,
367: */
368: CURSOR c1 IS
369: SELECT
370: disb_gross_amt
371: FROM igf_sl_dl_pdet_resp
372: WHERE rowid = x_rowid
373: FOR UPDATE NOWAIT;
374:
375: tlinfo c1%ROWTYPE;
473: x_program_update_date := SYSDATE;
474: END IF;
475: END IF;
476:
477: UPDATE igf_sl_dl_pdet_resp
478: SET
479: disb_gross_amt = new_references.disb_gross_amt,
480: last_update_date = x_last_update_date,
481: last_updated_by = x_last_updated_by,
510: || (reverse chronological order - newest change first)
511: */
512: CURSOR c1 IS
513: SELECT rowid
514: FROM igf_sl_dl_pdet_resp
515: WHERE dlpnr_id = x_dlpnr_id
516: AND dlpdr_id = x_dlpdr_id;
517:
518: BEGIN
562: p_action => 'DELETE',
563: x_rowid => x_rowid
564: );
565:
566: DELETE FROM igf_sl_dl_pdet_resp
567: WHERE rowid = x_rowid;
568:
569: IF (SQL%NOTFOUND) THEN
570: RAISE NO_DATA_FOUND;
572:
573: END delete_row;
574:
575:
576: END igf_sl_dl_pdet_resp_pkg;