[Home] [Help]
1: PACKAGE BODY igs_fi_lb_fcis_pkg AS
2: /* $Header: IGSSID3B.pls 115.1 2003/06/20 11:36:42 shtatiko noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_fi_lb_fcis%ROWTYPE;
1: PACKAGE BODY igs_fi_lb_fcis_pkg AS
2: /* $Header: IGSSID3B.pls 115.1 2003/06/20 11:36:42 shtatiko noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_fi_lb_fcis%ROWTYPE;
6: new_references igs_fi_lb_fcis%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSSID3B.pls 115.1 2003/06/20 11:36:42 shtatiko noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_fi_lb_fcis%ROWTYPE;
6: new_references igs_fi_lb_fcis%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2,
29: */
30:
31: CURSOR cur_old_ref_values IS
32: SELECT *
33: FROM igs_fi_lb_fcis
34: WHERE rowid = x_rowid;
35:
36: BEGIN
37:
163: || (reverse chronological order - newest change first)
164: */
165: CURSOR cur_rowid IS
166: SELECT rowid
167: FROM igs_fi_lb_fcis
168: WHERE lockbox_name = x_lockbox_name
169: AND bank_cd = x_bank_cd
170: FOR UPDATE NOWAIT;
171:
201: || (reverse chronological order - newest change first)
202: */
203: CURSOR cur_rowid IS
204: SELECT rowid
205: FROM igs_fi_lb_fcis
206: WHERE lockbox_name = x_lockbox_name
207: AND fee_cal_type = x_fee_cal_type
208: AND fee_ci_sequence_number = x_fee_ci_sequence_number
209: AND ((l_rowid IS NULL) OR (rowid <> l_rowid));
240: || (reverse chronological order - newest change first)
241: */
242: CURSOR cur_rowid IS
243: SELECT rowid
244: FROM igs_fi_lb_fcis
245: WHERE ((fee_cal_type = x_cal_type) AND
246: (fee_ci_sequence_number = x_sequence_number));
247:
248: lv_rowid cur_rowid%RowType;
380: x_last_update_login := -1;
381: END IF;
382: ELSE
383: fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
384: fnd_message.set_token ('ROUTINE', 'IGS_FI_LB_FCIS_PKG.INSERT_ROW');
385: igs_ge_msg_stack.add;
386: app_exception.raise_exception;
387: END IF;
388:
399: x_last_updated_by => x_last_updated_by,
400: x_last_update_login => x_last_update_login
401: );
402:
403: INSERT INTO igs_fi_lb_fcis (
404: lockbox_name,
405: bank_cd,
406: fee_cal_type,
407: fee_ci_sequence_number,
444: CURSOR c1 IS
445: SELECT
446: fee_cal_type,
447: fee_ci_sequence_number
448: FROM igs_fi_lb_fcis
449: WHERE rowid = x_rowid
450: FOR UPDATE NOWAIT;
451:
452: tlinfo c1%ROWTYPE;
517: x_last_update_login := -1;
518: END IF;
519: ELSE
520: fnd_message.set_name( 'FND', 'SYSTEM-INVALID ARGS');
521: fnd_message.set_token ('ROUTINE', 'IGS_FI_LB_FCIS_PKG.UPDATE_ROW');
522: igs_ge_msg_stack.add;
523: app_exception.raise_exception;
524: END IF;
525:
536: x_last_updated_by => x_last_updated_by,
537: x_last_update_login => x_last_update_login
538: );
539:
540: UPDATE igs_fi_lb_fcis
541: SET
542: fee_cal_type = new_references.fee_cal_type,
543: fee_ci_sequence_number = new_references.fee_ci_sequence_number,
544: last_update_date = x_last_update_date,
571: || (reverse chronological order - newest change first)
572: */
573: CURSOR c1 IS
574: SELECT rowid
575: FROM igs_fi_lb_fcis
576: WHERE lockbox_name = x_lockbox_name
577: AND bank_cd = x_bank_cd;
578:
579: BEGIN
625: p_action => 'DELETE',
626: x_rowid => x_rowid
627: );
628:
629: DELETE FROM igs_fi_lb_fcis
630: WHERE rowid = x_rowid;
631:
632: IF (SQL%NOTFOUND) THEN
633: RAISE NO_DATA_FOUND;
635:
636: END delete_row;
637:
638:
639: END igs_fi_lb_fcis_pkg;