92: BEGIN
93: DECLARE
94: v_fee_type IGS_FI_FEE_TYPE.fee_type%TYPE;
95: v_s_fee_trigger_cat IGS_FI_FEE_TYPE.s_fee_trigger_cat%TYPE;
96: v_s_chg_method_type IGS_FI_F_TYP_CA_INST.s_chg_method_type%TYPE;
97: v_rul_sequence_number IGS_FI_F_TYP_CA_INST.rul_sequence_number%TYPE;
98: cst_fee_trigger_cat CONSTANT VARCHAR2(9):= 'INSTITUTN';
99: cst_fee_type CONSTANT VARCHAR2(4):= 'HECS';
100: CURSOR c_ft IS
93: DECLARE
94: v_fee_type IGS_FI_FEE_TYPE.fee_type%TYPE;
95: v_s_fee_trigger_cat IGS_FI_FEE_TYPE.s_fee_trigger_cat%TYPE;
96: v_s_chg_method_type IGS_FI_F_TYP_CA_INST.s_chg_method_type%TYPE;
97: v_rul_sequence_number IGS_FI_F_TYP_CA_INST.rul_sequence_number%TYPE;
98: cst_fee_trigger_cat CONSTANT VARCHAR2(9):= 'INSTITUTN';
99: cst_fee_type CONSTANT VARCHAR2(4):= 'HECS';
100: CURSOR c_ft IS
101: SELECT ft.s_fee_type,
104: WHERE ft.fee_type = p_fee_type;
105: CURSOR c_ftci IS
106: SELECT ftci.s_chg_method_type,
107: ftci.rul_sequence_number
108: FROM IGS_FI_F_TYP_CA_INST ftci
109: WHERE ftci.fee_cal_type = p_fee_cal_type AND
110: ftci.fee_ci_sequence_number = p_fee_ci_sequence_number AND
111: ftci.fee_type = p_fee_type;
112: BEGIN
146: p_rule_sequence is not null THEN
147: p_message_name := 'IGS_FI_RULE_SEQ_NOT_SPECIFIED';
148: RETURN FALSE;
149: END IF;
150: --3. Validate the IGS_FI_F_TYP_CA_INST record to see if
151: -- these fields are set. If not, they must be specified in the
152: -- IGS_FI_F_CAT_FEE_LBL record. If they are, they cannot be
153: -- specified in the IGS_FI_F_CAT_FEE_LBL record.
154: IF v_fee_type <> cst_fee_type AND v_fee_type <> cst_fee_type THEN
198: v_fss_fee_structure_status IGS_FI_FEE_STR_STAT.s_fee_structure_status%TYPE;
199: cst_active_status CONSTANT VARCHAR2(6):= 'ACTIVE';
200: CURSOR c_ftci IS
201: SELECT fss.s_fee_structure_status
202: FROM IGS_FI_F_TYP_CA_INST ftci,
203: IGS_FI_FEE_STR_STAT fss
204: WHERE ftci.fee_cal_type = p_fee_cal_type AND
205: ftci.fee_ci_sequence_number = p_fee_ci_sequence_number AND
206: ftci.fee_type = p_fee_type AND
240: p_message_name := NULL;
241: RETURN TRUE;
242: END IF;
243: v_fss_fee_structure_status := NULL;
244: --3. Validate that corresponding IGS_FI_F_TYP_CA_INST
245: -- record has status of 'ACTIVE'. (IGS_GE_NOTE: IGS_FI_F_CAT_FEE_LBL
246: -- records cannot exist without corresponding IGS_FI_F_TYP_CA_INST
247: -- records.
248: OPEN c_ftci;
242: END IF;
243: v_fss_fee_structure_status := NULL;
244: --3. Validate that corresponding IGS_FI_F_TYP_CA_INST
245: -- record has status of 'ACTIVE'. (IGS_GE_NOTE: IGS_FI_F_CAT_FEE_LBL
246: -- records cannot exist without corresponding IGS_FI_F_TYP_CA_INST
247: -- records.
248: OPEN c_ftci;
249: FETCH c_ftci INTO v_fss_fee_structure_status;
250: CLOSE c_ftci;
255: END IF;
256: v_fss_fee_structure_status := NULL;
257: --4. Validate that corresdponding fee_cal_cat_instance record
258: -- has a status of 'ACTIVE'. (IGS_GE_NOTE: IGS_FI_F_CAT_FEE_LBL
259: -- records cannot exist without corresponding IGS_FI_F_TYP_CA_INST
260: -- records.
261: OPEN c_fcci;
262: FETCH c_fcci INTO v_fss_fee_structure_status;
263: CLOSE c_fcci;