1: PACKAGE BODY igf_sl_guarantor_pkg AS
2: /* $Header: IGFLI03B.pls 115.7 2003/10/14 06:45:38 sjadhav ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_sl_guarantor%ROWTYPE;
1: PACKAGE BODY igf_sl_guarantor_pkg AS
2: /* $Header: IGFLI03B.pls 115.7 2003/10/14 06:45:38 sjadhav ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_sl_guarantor%ROWTYPE;
6: new_references igf_sl_guarantor%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGFLI03B.pls 115.7 2003/10/14 06:45:38 sjadhav ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_sl_guarantor%ROWTYPE;
6: new_references igf_sl_guarantor%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_SL_GUARANTOR
35: WHERE rowid = x_rowid;
36:
37: BEGIN
38:
110: || (reverse chronological order - newest change first)
111: */
112: BEGIN
113:
114: igf_sl_cl_recipient_pkg.get_fk_igf_sl_guarantor (
115: old_references.guarantor_id
116: );
117:
118: END check_child_existance;
131: || (reverse chronological order - newest change first)
132: */
133: CURSOR cur_rowid IS
134: SELECT rowid
135: FROM igf_sl_guarantor
136: WHERE guarantor_id = x_guarantor_id
137: FOR UPDATE NOWAIT;
138:
139: lv_rowid cur_rowid%RowType;
166: */
167:
168: CURSOR cur_rowid IS
169: SELECT rowid
170: FROM igf_sl_guarantor
171: WHERE party_id = x_party_id
172: AND ((l_rowid IS NULL) OR (rowid <> l_rowid));
173:
174: lv_rowid cur_rowid%RowType;
282: || (reverse chronological order - newest change first)
283: */
284: CURSOR c IS
285: SELECT rowid
286: FROM igf_sl_guarantor
287: WHERE guarantor_id = x_guarantor_id;
288:
289: x_last_update_date DATE;
290: x_last_updated_by NUMBER;
325: x_last_updated_by => x_last_updated_by,
326: x_last_update_login => x_last_update_login
327: );
328:
329: INSERT INTO igf_sl_guarantor (
330: guarantor_id,
331: description,
332: party_id,
333: enabled,
380: SELECT
381: description,
382: party_id,
383: enabled
384: FROM igf_sl_guarantor
385: WHERE rowid = x_rowid
386: FOR UPDATE NOWAIT;
387:
388: tlinfo c1%ROWTYPE;
474: x_last_updated_by => x_last_updated_by,
475: x_last_update_login => x_last_update_login
476: );
477:
478: UPDATE igf_sl_guarantor
479: SET
480: description = new_references.description,
481: party_id = new_references.party_id,
482: enabled = new_references.enabled,
511: || (reverse chronological order - newest change first)
512: */
513: CURSOR c1 IS
514: SELECT rowid
515: FROM igf_sl_guarantor
516: WHERE guarantor_id = x_guarantor_id;
517:
518: BEGIN
519:
566: p_action => 'DELETE',
567: x_rowid => x_rowid
568: );
569:
570: DELETE FROM igf_sl_guarantor
571: WHERE rowid = x_rowid;
572:
573: IF (SQL%NOTFOUND) THEN
574: RAISE NO_DATA_FOUND;
576:
577: END delete_row;
578:
579:
580: END igf_sl_guarantor_pkg;