[Home] [Help]
1: package body IGS_FI_FEE_TYPE_HIST_PKG AS
2: /* $Header: IGSSI39B.pls 120.2 2006/06/09 06:45:04 sapanigr ship $*/
3: --added columns subaccount_id and fee_class w.r.t Bug 2175865
4: l_rowid VARCHAR2(25);
5: old_references IGS_FI_FEE_TYPE_HIST_ALL%RowType;
6: new_references IGS_FI_FEE_TYPE_HIST_ALL%RowType;
7:
8: -- shtatiko 30-MAY-2003 Enh# 2831582, Added new column designated_payment_flag.
9: PROCEDURE Set_Column_Values (
2: /* $Header: IGSSI39B.pls 120.2 2006/06/09 06:45:04 sapanigr ship $*/
3: --added columns subaccount_id and fee_class w.r.t Bug 2175865
4: l_rowid VARCHAR2(25);
5: old_references IGS_FI_FEE_TYPE_HIST_ALL%RowType;
6: new_references IGS_FI_FEE_TYPE_HIST_ALL%RowType;
7:
8: -- shtatiko 30-MAY-2003 Enh# 2831582, Added new column designated_payment_flag.
9: PROCEDURE Set_Column_Values (
10: p_action IN VARCHAR2,
29: x_last_update_login IN NUMBER ) AS
30:
31: CURSOR cur_old_ref_values IS
32: SELECT *
33: FROM IGS_FI_FEE_TYPE_HIST_ALL
34: WHERE rowid = x_rowid;
35:
36: BEGIN
37:
194: ) RETURN BOOLEAN AS
195:
196: CURSOR cur_rowid IS
197: SELECT rowid
198: FROM IGS_FI_FEE_TYPE_HIST_ALL
199: WHERE fee_type = x_fee_type
200: AND hist_start_dt = x_hist_start_dt
201: FOR UPDATE NOWAIT;
202:
316: WHO WHEN WHAT
317: sapanigr 09-Mar-2006 Bug 3296531. Removed NVL clause in call to Before_DML for
318: columns S_FEE_TYPE, S_FEE_TRIGGER_CAT and OPTIONAL_PAYMENT_IND
319: -------------------------------------------------------------------------------*/
320: cursor C is select ROWID from IGS_FI_FEE_TYPE_HIST_ALL
321: where FEE_TYPE = X_FEE_TYPE
322: and HIST_START_DT = X_HIST_START_DT;
323: X_LAST_UPDATE_DATE DATE;
324: X_LAST_UPDATED_BY NUMBER;
366: x_last_updated_by=>X_LAST_UPDATED_BY,
367: x_last_update_login=>X_LAST_UPDATE_LOGIN
368: );
369:
370: insert into IGS_FI_FEE_TYPE_HIST_ALL (
371: FEE_TYPE,
372: HIST_START_DT,
373: HIST_END_DT,
374: HIST_WHO,
443: CLOSED_IND,
444: COMMENTS,
445: FEE_CLASS, --for Bug 2175865
446: designated_payment_flag
447: from IGS_FI_FEE_TYPE_HIST_ALL
448: where ROWID = X_ROWID
449: for update nowait;
450: tlinfo c1%rowtype;
451:
560: x_last_update_login=>X_LAST_UPDATE_LOGIN
561: );
562:
563:
564: update IGS_FI_FEE_TYPE_HIST_ALL set
565: HIST_END_DT = NEW_REFERENCES.HIST_END_DT,
566: HIST_WHO = NEW_REFERENCES.HIST_WHO,
567: S_FEE_TYPE = NEW_REFERENCES.S_FEE_TYPE,
568: S_FEE_TRIGGER_CAT = NEW_REFERENCES.S_FEE_TRIGGER_CAT,
599: X_MODE in VARCHAR2 ,
600: X_FEE_CLASS in VARCHAR2, --for bug 2175865
601: x_designated_payment_flag IN VARCHAR2
602: ) AS
603: cursor c1 is select rowid from IGS_FI_FEE_TYPE_HIST_ALL
604: where FEE_TYPE = X_FEE_TYPE
605: and HIST_START_DT = X_HIST_START_DT
606: ;
607: begin
652: Before_DML (
653: p_action => 'DELETE',
654: x_rowid => X_ROWID
655: );
656: delete from IGS_FI_FEE_TYPE_HIST_ALL
657: where ROWID = X_ROWID;
658: if (sql%notfound) then
659: raise no_data_found;
660: end if;