1: PACKAGE BODY igf_sl_servicer_brc_pkg AS
2: /* $Header: IGFLI05B.pls 115.7 2003/09/10 05:13:39 veramach ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_sl_servicer_brc%ROWTYPE;
1: PACKAGE BODY igf_sl_servicer_brc_pkg AS
2: /* $Header: IGFLI05B.pls 115.7 2003/09/10 05:13:39 veramach ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_sl_servicer_brc%ROWTYPE;
6: new_references igf_sl_servicer_brc%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGFLI05B.pls 115.7 2003/09/10 05:13:39 veramach ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_sl_servicer_brc%ROWTYPE;
6: new_references igf_sl_servicer_brc%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_SERVICER_BRC
35: WHERE rowid = x_rowid;
36:
37: BEGIN
38:
139: || (reverse chronological order - newest change first)
140: */
141: CURSOR cur_rowid IS
142: SELECT rowid
143: FROM igf_sl_servicer_brc
144: WHERE servicer_id = x_servicer_id
145: AND srvc_non_ed_brc_id = x_srvc_non_ed_brc_id
146: FOR UPDATE NOWAIT;
147:
175: || (reverse chronological order - newest change first)
176: */
177: CURSOR cur_rowid IS
178: SELECT rowid
179: FROM igf_sl_servicer_brc
180: WHERE ((servicer_id = x_servicer_id));
181:
182: lv_rowid cur_rowid%RowType;
183:
210: */
211:
212: CURSOR cur_rowid IS
213: SELECT rowid
214: FROM igf_sl_servicer_brc
215: WHERE party_id = x_party_id
216: AND ((l_rowid IS NULL) OR (rowid <> l_rowid));
217:
218: lv_rowid cur_rowid%RowType;
325: || (reverse chronological order - newest change first)
326: */
327: CURSOR c IS
328: SELECT rowid
329: FROM igf_sl_servicer_brc
330: WHERE servicer_id = x_servicer_id
331: AND srvc_non_ed_brc_id = x_srvc_non_ed_brc_id;
332:
333: x_last_update_date DATE;
369: x_last_updated_by => x_last_updated_by,
370: x_last_update_login => x_last_update_login
371: );
372:
373: INSERT INTO igf_sl_servicer_brc (
374: servicer_id,
375: srvc_non_ed_brc_id,
376: description,
377: party_id,
426: SELECT
427: description,
428: party_id,
429: enabled
430: FROM igf_sl_servicer_brc
431: WHERE rowid = x_rowid
432: FOR UPDATE NOWAIT;
433:
434: tlinfo c1%ROWTYPE;
520: x_last_updated_by => x_last_updated_by,
521: x_last_update_login => x_last_update_login
522: );
523:
524: UPDATE igf_sl_servicer_brc
525: SET
526: description = new_references.description,
527: party_id = new_references.party_id,
528: enabled = new_references.enabled,
557: || (reverse chronological order - newest change first)
558: */
559: CURSOR c1 IS
560: SELECT rowid
561: FROM igf_sl_servicer_brc
562: WHERE servicer_id = x_servicer_id
563: AND srvc_non_ed_brc_id = x_srvc_non_ed_brc_id;
564:
565: BEGIN
613: p_action => 'DELETE',
614: x_rowid => x_rowid
615: );
616:
617: DELETE FROM igf_sl_servicer_brc
618: WHERE rowid = x_rowid;
619:
620: IF (SQL%NOTFOUND) THEN
621: RAISE NO_DATA_FOUND;
623:
624: END delete_row;
625:
626:
627: END igf_sl_servicer_brc_pkg;