[Home] [Help]
1: PACKAGE BODY igs_fi_bal_ex_f_typs_pkg AS
2: /* $Header: IGSSI96B.pls 115.12 2003/03/19 08:36:09 smadathi ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_fi_bal_ex_f_typs%ROWTYPE;
1: PACKAGE BODY igs_fi_bal_ex_f_typs_pkg AS
2: /* $Header: IGSSI96B.pls 115.12 2003/03/19 08:36:09 smadathi ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_fi_bal_ex_f_typs%ROWTYPE;
6: new_references igs_fi_bal_ex_f_typs%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSSI96B.pls 115.12 2003/03/19 08:36:09 smadathi ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_fi_bal_ex_f_typs%ROWTYPE;
6: new_references igs_fi_bal_ex_f_typs%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
29: */
30:
31: CURSOR cur_old_ref_values IS
32: SELECT *
33: FROM IGS_FI_BAL_EX_F_TYPS
34: WHERE rowid = x_rowid;
35:
36: BEGIN
37:
143: || (reverse chronological order - newest change first)
144: */
145: CURSOR cur_rowid IS
146: SELECT rowid
147: FROM igs_fi_bal_ex_f_typs
148: WHERE bal_exc_fee_type_id = x_bal_exc_fee_type_id
149: FOR UPDATE NOWAIT;
150:
151: lv_rowid cur_rowid%RowType;
177: || (reverse chronological order - newest change first)
178: */
179: CURSOR cur_rowid IS
180: SELECT rowid
181: FROM igs_fi_bal_ex_f_typs
182: WHERE balance_rule_id = x_balance_rule_id
183: AND fee_type = x_fee_type
184: AND ((l_rowid IS NULL) OR (rowid <> l_rowid));
185:
326: || (reverse chronological order - newest change first)
327: */
328: CURSOR c IS
329: SELECT rowid
330: FROM igs_fi_bal_ex_f_typs
331: WHERE bal_exc_fee_type_id = x_bal_exc_fee_type_id;
332:
333: x_last_update_date DATE;
334: x_last_updated_by NUMBER;
354: igs_ge_msg_stack.add;
355: app_exception.raise_exception;
356: END IF;
357:
358: SELECT igs_fi_bal_ex_f_typs_s.NEXTVAL
359: INTO x_bal_exc_fee_type_id
360: FROM dual;
361:
362: before_dml(
371: x_last_updated_by => x_last_updated_by,
372: x_last_update_login => x_last_update_login
373: );
374:
375: INSERT INTO igs_fi_bal_ex_f_typs (
376: bal_exc_fee_type_id,
377: balance_rule_id,
378: fee_type,
379: creation_date,
422: CURSOR c1 IS
423: SELECT
424: balance_rule_id,
425: fee_type
426: FROM igs_fi_bal_ex_f_typs
427: WHERE rowid = x_rowid
428: FOR UPDATE NOWAIT;
429:
430: tlinfo c1%ROWTYPE;
512: x_last_updated_by => x_last_updated_by,
513: x_last_update_login => x_last_update_login
514: );
515:
516: UPDATE igs_fi_bal_ex_f_typs
517: SET
518: balance_rule_id = new_references.balance_rule_id,
519: fee_type = new_references.fee_type,
520: last_update_date = x_last_update_date,
547: || smadathi 10-Apr-2002 Bug 2289191. Enabled_flag column reference removed.
548: */
549: CURSOR c1 IS
550: SELECT rowid
551: FROM igs_fi_bal_ex_f_typs
552: WHERE bal_exc_fee_type_id = x_bal_exc_fee_type_id;
553:
554: BEGIN
555:
598: p_action => 'DELETE',
599: x_rowid => x_rowid
600: );
601:
602: DELETE FROM igs_fi_bal_ex_f_typs
603: WHERE rowid = x_rowid;
604:
605: IF (SQL%NOTFOUND) THEN
606: RAISE NO_DATA_FOUND;
608:
609: END delete_row;
610:
611:
612: END igs_fi_bal_ex_f_typs_pkg;