[Home] [Help]
1: package body IGS_FI_F_RET_SCHD_HT_PKG AS
2: /* $Header: IGSSI48B.pls 120.1 2006/05/26 13:43:08 skharida noship $*/
3: l_rowid VARCHAR2(25);
4: old_references IGS_FI_F_RET_SCHD_HT_ALL%RowType;
5: new_references IGS_FI_F_RET_SCHD_HT_ALL%RowType;
6: PROCEDURE Set_Column_Values (
7: p_action IN VARCHAR2,
8: x_rowid IN VARCHAR2 DEFAULT NULL,
1: package body IGS_FI_F_RET_SCHD_HT_PKG AS
2: /* $Header: IGSSI48B.pls 120.1 2006/05/26 13:43:08 skharida noship $*/
3: l_rowid VARCHAR2(25);
4: old_references IGS_FI_F_RET_SCHD_HT_ALL%RowType;
5: new_references IGS_FI_F_RET_SCHD_HT_ALL%RowType;
6: PROCEDURE Set_Column_Values (
7: p_action IN VARCHAR2,
8: x_rowid IN VARCHAR2 DEFAULT NULL,
9: x_fee_cal_type IN VARCHAR2 DEFAULT NULL,
39: || copying old_references value into new_references.value.
40: ----------------------------------------------------------------------------*/
41: CURSOR cur_old_ref_values IS
42: SELECT *
43: FROM IGS_FI_F_RET_SCHD_HT_ALL
44: WHERE rowid = x_rowid;
45: BEGIN
46: l_rowid := x_rowid;
47: -- Code for setting the Old and New Reference Values.
268: x_hist_start_dt IN DATE
269: ) RETURN BOOLEAN AS
270: CURSOR cur_rowid IS
271: SELECT rowid
272: FROM IGS_FI_F_RET_SCHD_HT_ALL
273: WHERE fee_cal_type = x_fee_cal_type
274: AND fee_ci_sequence_number = x_fee_ci_sequence_number
275: AND s_relation_type = x_s_relation_type
276: AND sequence_number = x_sequence_number
297: x_hist_start_dt IN DATE
298: ) RETURN BOOLEAN AS
299: CURSOR cur_rowid IS
300: SELECT rowid
301: FROM IGS_FI_F_RET_SCHD_HT_ALL
302: WHERE fee_cal_type = x_fee_cal_type
303: AND fee_ci_sequence_number = x_fee_ci_sequence_number
304: AND fee_type = x_fee_type
305: AND fee_cat = x_fee_cat
325: x_fee_ci_sequence_number IN NUMBER
326: ) AS
327: CURSOR cur_rowid IS
328: SELECT rowid
329: FROM IGS_FI_F_RET_SCHD_HT_ALL
330: WHERE fee_cat = x_fee_cat
331: AND fee_cal_type = x_fee_cal_type
332: AND fee_ci_sequence_number = x_fee_ci_sequence_number ;
333: lv_rowid cur_rowid%RowType;
474: || (reverse chronological order - newest change first)
475: || vvutukur 19-Jul-2002 Bug#2425767.removed parameter x_deduction_amount and its references
476: || (from call to before_dml and insert statement).
477: ----------------------------------------------------------------------------*/
478: cursor C is select ROWID from IGS_FI_F_RET_SCHD_HT_ALL
479: where FEE_CAL_TYPE = X_FEE_CAL_TYPE
480: and FEE_CI_SEQUENCE_NUMBER = X_FEE_CI_SEQUENCE_NUMBER
481: and S_RELATION_TYPE = X_S_RELATION_TYPE
482: and SEQUENCE_NUMBER = X_SEQUENCE_NUMBER
526: x_last_update_date=>X_LAST_UPDATE_DATE,
527: x_last_updated_by=>X_LAST_UPDATED_BY,
528: x_last_update_login=>X_LAST_UPDATE_LOGIN
529: );
530: insert into IGS_FI_F_RET_SCHD_HT_ALL (
531: FEE_CAL_TYPE,
532: FEE_CI_SEQUENCE_NUMBER,
533: S_RELATION_TYPE,
534: SEQUENCE_NUMBER,
615: DT_ALIAS,
616: DAI_SEQUENCE_NUMBER,
617: RETENTION_PERCENTAGE,
618: RETENTION_AMOUNT
619: from IGS_FI_F_RET_SCHD_HT_ALL
620: where ROWID=X_ROWID
621: for update nowait;
622: tlinfo c1%rowtype;
623: begin
736: x_last_update_date=>X_LAST_UPDATE_DATE,
737: x_last_updated_by=>X_LAST_UPDATED_BY,
738: x_last_update_login=>X_LAST_UPDATE_LOGIN
739: );
740: update IGS_FI_F_RET_SCHD_HT_ALL set
741: HIST_END_DT = NEW_REFERENCES.HIST_END_DT,
742: HIST_WHO = NEW_REFERENCES.HIST_WHO,
743: FEE_TYPE = NEW_REFERENCES.FEE_TYPE,
744: FEE_CAT = NEW_REFERENCES.FEE_CAT,
785: || (reverse chronological order - newest change first)
786: || vvutukur 19-Jul-2002 Bug#2425767.removed parameter x_deduction_amount and its references
787: || (from calls to insert_row and update_row).
788: ----------------------------------------------------------------------------*/
789: cursor c1 is select rowid from IGS_FI_F_RET_SCHD_HT_ALL
790: where FEE_CAL_TYPE = X_FEE_CAL_TYPE
791: and FEE_CI_SEQUENCE_NUMBER = X_FEE_CI_SEQUENCE_NUMBER
792: and S_RELATION_TYPE = X_S_RELATION_TYPE
793: and SEQUENCE_NUMBER = X_SEQUENCE_NUMBER
844: Before_DML (
845: p_action => 'DELETE',
846: x_rowid => X_ROWID
847: );
848: delete from IGS_FI_F_RET_SCHD_HT_ALL
849: where ROWID=X_ROWID;
850: if (sql%notfound) then
851: raise no_data_found;
852: end if;