[Home] [Help]
1: PACKAGE BODY igf_sl_dl_chg_send_pkg AS
2: /* $Header: IGFLI17B.pls 115.9 2002/11/28 14:25:19 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_sl_dl_chg_send_all%ROWTYPE;
6: new_references igf_sl_dl_chg_send_all%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGFLI17B.pls 115.9 2002/11/28 14:25:19 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_sl_dl_chg_send_all%ROWTYPE;
6: new_references igf_sl_dl_chg_send_all%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_send_all
36: WHERE rowid = x_rowid;
37:
38: BEGIN
39:
114: || (reverse chronological order - newest change first)
115: */
116: CURSOR cur_rowid IS
117: SELECT rowid
118: FROM igf_sl_dl_chg_send_all
119: WHERE chg_num = x_chg_num
120: FOR UPDATE NOWAIT;
121:
122: lv_rowid cur_rowid%RowType;
149: || (reverse chronological order - newest change first)
150: */
151: CURSOR cur_rowid IS
152: SELECT rowid
153: FROM igf_sl_dl_chg_send_all
154: WHERE ((dbth_id = x_dbth_id));
155:
156: lv_rowid cur_rowid%RowType;
157:
263: || (reverse chronological order - newest change first)
264: */
265: CURSOR c IS
266: SELECT rowid
267: FROM igf_sl_dl_chg_send_all
268: WHERE chg_num = x_chg_num;
269:
270: x_last_update_date DATE;
271: x_last_updated_by NUMBER;
273: x_request_id NUMBER;
274: x_program_id NUMBER;
275: x_program_application_id NUMBER;
276: x_program_update_date DATE;
277: l_org_id igf_sl_dl_chg_send_all.org_id%TYPE DEFAULT igf_aw_gen.get_org_id;
278:
279: BEGIN
280:
281: x_last_update_date := SYSDATE;
328: x_last_updated_by => x_last_updated_by,
329: x_last_update_login => x_last_update_login
330: );
331:
332: INSERT INTO igf_sl_dl_chg_send_all (
333: chg_num,
334: dbth_id,
335: loan_number,
336: chg_code,
401: chg_code,
402: new_value,
403: status,
404: org_id
405: FROM igf_sl_dl_chg_send_all
406: WHERE rowid = x_rowid
407: FOR UPDATE NOWAIT;
408:
409: tlinfo c1%ROWTYPE;
517: x_program_update_date := SYSDATE;
518: END IF;
519: END IF;
520:
521: UPDATE igf_sl_dl_chg_send_all
522: SET
523: dbth_id = new_references.dbth_id,
524: loan_number = new_references.loan_number,
525: chg_code = new_references.chg_code,
561: || (reverse chronological order - newest change first)
562: */
563: CURSOR c1 IS
564: SELECT rowid
565: FROM igf_sl_dl_chg_send_all
566: WHERE chg_num = x_chg_num;
567:
568: BEGIN
569:
618: p_action => 'DELETE',
619: x_rowid => x_rowid
620: );
621:
622: DELETE FROM igf_sl_dl_chg_send_all
623: WHERE rowid = x_rowid;
624:
625: IF (SQL%NOTFOUND) THEN
626: RAISE NO_DATA_FOUND;