[Home] [Help]
1: PACKAGE BODY igs_fi_fee_as_rt_h_pkg AS
2: /* $Header: IGSSI21B.pls 120.2 2006/05/26 13:42:37 skharida noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_FI_FEE_AS_RT_H_ALL%RowType;
6: new_references IGS_FI_FEE_AS_RT_H_ALL%RowType;
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
9: x_rowid IN VARCHAR2 ,
2: /* $Header: IGSSI21B.pls 120.2 2006/05/26 13:42:37 skharida noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_FI_FEE_AS_RT_H_ALL%RowType;
6: new_references IGS_FI_FEE_AS_RT_H_ALL%RowType;
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
9: x_rowid IN VARCHAR2 ,
10: x_chg_rate IN NUMBER ,
53: | Added 2 new columns unit_set_cd and us_version_number
54: **************************************************************************************/
55: CURSOR cur_old_ref_values IS
56: SELECT *
57: FROM IGS_FI_FEE_AS_RT_H_ALL
58: WHERE rowid = x_rowid;
59: BEGIN
60: l_rowid := x_rowid;
61: -- Code for setting the Old and New Reference Values.
443: ) Return Boolean
444: AS
445: CURSOR cur_rowid IS
446: SELECT rowid
447: FROM IGS_FI_FEE_AS_RT_H_ALL
448: WHERE fee_type = x_fee_type
449: AND fee_cal_type = x_fee_cal_type
450: AND fee_ci_sequence_number = x_fee_ci_sequence_number
451: AND s_relation_type = x_s_relation_type
476: ) Return Boolean
477: AS
478: CURSOR cur_rowid IS
479: SELECT rowid
480: FROM IGS_FI_FEE_AS_RT_H_ALL
481: WHERE fee_type = x_fee_type
482: AND fee_cal_type = x_fee_cal_type
483: AND fee_ci_sequence_number = x_fee_ci_sequence_number
484: AND rate_number = x_rate_number
679: | Unit Version and Unit Level
680: | pathipat 10-Sep-2003 Enh 3108052 - Add Unit Sets to Rate Table
681: | Added 2 new columns unit_set_cd and us_version_number
682: **************************************************************************************/
683: cursor C is select ROWID from IGS_FI_FEE_AS_RT_H_ALL
684: where FEE_TYPE = X_FEE_TYPE
685: and FEE_CAL_TYPE = X_FEE_CAL_TYPE
686: and FEE_CI_SEQUENCE_NUMBER = X_FEE_CI_SEQUENCE_NUMBER
687: and S_RELATION_TYPE = X_S_RELATION_TYPE
748: x_unit_type_id => x_unit_type_id,
749: x_unit_mode => x_unit_mode
750: );
751:
752: insert into IGS_FI_FEE_AS_RT_H_ALL (
753: FEE_TYPE,
754: FEE_CAL_TYPE,
755: FEE_CI_SEQUENCE_NUMBER,
756: S_RELATION_TYPE,
896: unit_version_number,
897: unit_level ,
898: unit_type_id ,
899: unit_mode
900: from IGS_FI_FEE_AS_RT_H_ALL
901: where ROWID = X_ROWID
902: for update nowait;
903: tlinfo c1%rowtype;
904: begin
1070: x_unit_level => x_unit_level ,
1071: x_unit_type_id => x_unit_type_id,
1072: x_unit_mode => x_unit_mode
1073: );
1074: update IGS_FI_FEE_AS_RT_H_ALL set
1075: HIST_END_DT = NEW_REFERENCES.HIST_END_DT,
1076: HIST_WHO = NEW_REFERENCES.HIST_WHO,
1077: FEE_CAT = NEW_REFERENCES.FEE_CAT,
1078: LOCATION_CD = NEW_REFERENCES.LOCATION_CD,
1146: | Unit Version and Unit Level
1147: | pathipat 10-Sep-2003 Enh 3108052 - Add Unit Sets to Rate Table
1148: | Added 2 new columns unit_set_cd and us_version_number
1149: **************************************************************************************/
1150: cursor c1 is select rowid from IGS_FI_FEE_AS_RT_H_ALL
1151: where FEE_TYPE = X_FEE_TYPE
1152: and FEE_CAL_TYPE = X_FEE_CAL_TYPE
1153: and FEE_CI_SEQUENCE_NUMBER = X_FEE_CI_SEQUENCE_NUMBER
1154: and S_RELATION_TYPE = X_S_RELATION_TYPE
1241: Before_DML(
1242: p_action => 'DELETE',
1243: x_rowid => X_ROWID
1244: );
1245: DELETE FROM igs_fi_fee_as_rt_h_all
1246: WHERE rowid = x_rowid;
1247: IF (SQL%NOTFOUND) THEN
1248: RAISE NO_DATA_FOUND;
1249: END IF;