33: v_dummy VARCHAR2(1);
34: CURSOR c_fss (
35: cp_fee_cat_ci_status IGS_FI_F_CAT_CA_INST.fee_cat_ci_status%TYPE) IS
36: SELECT 'x'
37: FROM IGS_FI_FEE_STR_STAT fss
38: WHERE fss.fee_structure_status = cp_fee_cat_ci_status AND
39: fss.s_fee_structure_status = cst_active;
40: CURSOR c_cict (
41: cp_cal_type IGS_CA_INST.cal_type%TYPE,
110: BEGIN
111: DECLARE
112: e_resource_busy EXCEPTION;
113: PRAGMA EXCEPTION_INIT(e_resource_busy, -54);
114: v_s_fee_structure_status IGS_FI_FEE_STR_STAT.s_fee_structure_status%TYPE;
115: CURSOR c_fss IS
116: SELECT fss.s_fee_structure_status
117: FROM IGS_FI_FEE_STR_STAT fss
118: WHERE fss.fee_structure_status = p_fee_cat_ci_status;
113: PRAGMA EXCEPTION_INIT(e_resource_busy, -54);
114: v_s_fee_structure_status IGS_FI_FEE_STR_STAT.s_fee_structure_status%TYPE;
115: CURSOR c_fss IS
116: SELECT fss.s_fee_structure_status
117: FROM IGS_FI_FEE_STR_STAT fss
118: WHERE fss.fee_structure_status = p_fee_cat_ci_status;
119: CURSOR c_fcfl IS
120: SELECT fcfl.*, fcfl.rowid -- kdande -> rowid was added to make a call to Update_Row TBH.
121: FROM IGS_FI_F_CAT_FEE_LBL fcfl
123: fcfl.fee_ci_sequence_number = p_fee_ci_sequence_number AND
124: fcfl.fee_cat =p_fee_cat AND
125: fcfl.fee_liability_status in
126: (select fss.fee_structure_status
127: from IGS_FI_FEE_STR_STAT fss
128: where fss.fee_structure_status = fcfl.fee_liability_status
129: and fss.s_fee_structure_status = 'ACTIVE')
130: FOR UPDATE OF fcfl.fee_liability_status NOWAIT;
131: fcfl_rec c_fcfl%ROWTYPE; -- kdande -> Added while converting DMLs.
135: -- to 'INACTIVE' update the IGS_FI_F_CAT_FEE_LBL.fee_liability_status
136: -- in related records to 'INACTIVE'.
137: p_message_name := NULL;
138: -- 1. Check if the fee_cat_ci_status relates to a system
139: -- status in IGS_FI_FEE_STR_STAT of 'INACTIVE'.
140: OPEN c_fss;
141: FETCH c_fss INTO v_s_fee_structure_status;
142: CLOSE c_fss;
143: IF (v_s_fee_structure_status <> 'INACTIVE') THEN
194: RETURN BOOLEAN AS
195: gv_other_detail VARCHAR2(255);
196: BEGIN
197: DECLARE
198: cst_active CONSTANT IGS_FI_FEE_STR_STAT.fee_structure_status%TYPE := 'ACTIVE';
199: cst_planned CONSTANT
200: IGS_FI_FEE_STR_STAT.fee_structure_status%TYPE := 'PLANNED';
201: cst_inactive CONSTANT
202: IGS_FI_FEE_STR_STAT.fee_structure_status%TYPE := 'INACTIVE';
196: BEGIN
197: DECLARE
198: cst_active CONSTANT IGS_FI_FEE_STR_STAT.fee_structure_status%TYPE := 'ACTIVE';
199: cst_planned CONSTANT
200: IGS_FI_FEE_STR_STAT.fee_structure_status%TYPE := 'PLANNED';
201: cst_inactive CONSTANT
202: IGS_FI_FEE_STR_STAT.fee_structure_status%TYPE := 'INACTIVE';
203: v_new_system_status IGS_FI_FEE_STR_STAT.s_fee_structure_status%TYPE;
204: v_old_system_status IGS_FI_FEE_STR_STAT.s_fee_structure_status%TYPE;
198: cst_active CONSTANT IGS_FI_FEE_STR_STAT.fee_structure_status%TYPE := 'ACTIVE';
199: cst_planned CONSTANT
200: IGS_FI_FEE_STR_STAT.fee_structure_status%TYPE := 'PLANNED';
201: cst_inactive CONSTANT
202: IGS_FI_FEE_STR_STAT.fee_structure_status%TYPE := 'INACTIVE';
203: v_new_system_status IGS_FI_FEE_STR_STAT.s_fee_structure_status%TYPE;
204: v_old_system_status IGS_FI_FEE_STR_STAT.s_fee_structure_status%TYPE;
205: v_fee_cat IGS_FI_F_CAT_FEE_LBL.fee_cat%TYPE;
206: CURSOR c_fss (
199: cst_planned CONSTANT
200: IGS_FI_FEE_STR_STAT.fee_structure_status%TYPE := 'PLANNED';
201: cst_inactive CONSTANT
202: IGS_FI_FEE_STR_STAT.fee_structure_status%TYPE := 'INACTIVE';
203: v_new_system_status IGS_FI_FEE_STR_STAT.s_fee_structure_status%TYPE;
204: v_old_system_status IGS_FI_FEE_STR_STAT.s_fee_structure_status%TYPE;
205: v_fee_cat IGS_FI_F_CAT_FEE_LBL.fee_cat%TYPE;
206: CURSOR c_fss (
207: cp_fcci_status IGS_FI_FEE_STR_STAT.fee_structure_status%TYPE) IS
200: IGS_FI_FEE_STR_STAT.fee_structure_status%TYPE := 'PLANNED';
201: cst_inactive CONSTANT
202: IGS_FI_FEE_STR_STAT.fee_structure_status%TYPE := 'INACTIVE';
203: v_new_system_status IGS_FI_FEE_STR_STAT.s_fee_structure_status%TYPE;
204: v_old_system_status IGS_FI_FEE_STR_STAT.s_fee_structure_status%TYPE;
205: v_fee_cat IGS_FI_F_CAT_FEE_LBL.fee_cat%TYPE;
206: CURSOR c_fss (
207: cp_fcci_status IGS_FI_FEE_STR_STAT.fee_structure_status%TYPE) IS
208: SELECT fss.s_fee_structure_status
203: v_new_system_status IGS_FI_FEE_STR_STAT.s_fee_structure_status%TYPE;
204: v_old_system_status IGS_FI_FEE_STR_STAT.s_fee_structure_status%TYPE;
205: v_fee_cat IGS_FI_F_CAT_FEE_LBL.fee_cat%TYPE;
206: CURSOR c_fss (
207: cp_fcci_status IGS_FI_FEE_STR_STAT.fee_structure_status%TYPE) IS
208: SELECT fss.s_fee_structure_status
209: FROM IGS_FI_FEE_STR_STAT fss
210: WHERE fss.FEE_STRUCTURE_STATUS = cp_fcci_status;
211: CURSOR c_fcfl IS
205: v_fee_cat IGS_FI_F_CAT_FEE_LBL.fee_cat%TYPE;
206: CURSOR c_fss (
207: cp_fcci_status IGS_FI_FEE_STR_STAT.fee_structure_status%TYPE) IS
208: SELECT fss.s_fee_structure_status
209: FROM IGS_FI_FEE_STR_STAT fss
210: WHERE fss.FEE_STRUCTURE_STATUS = cp_fcci_status;
211: CURSOR c_fcfl IS
212: SELECT fcfl.fee_cat
213: FROM IGS_FI_F_CAT_FEE_LBL fcfl
216: fcfl.fee_ci_sequence_number = p_fee_ci_sequence_number;
217: CURSOR c_fcfl_fss IS
218: SELECT fcfl.fee_cat
219: FROM IGS_FI_F_CAT_FEE_LBL fcfl,
220: IGS_FI_FEE_STR_STAT fss
221: WHERE fcfl.fee_cat = p_fee_cat AND
222: fcfl.fee_cal_type = p_fee_cal_type AND
223: fcfl.fee_ci_sequence_number = p_fee_ci_sequence_number AND
224: fcfl.fee_liability_status = fss.fee_structure_status AND
368: v_other_detail VARCHAR2(255);
369: v_closed_ind CHAR;
370: CURSOR c_fee_structure_status IS
371: SELECT closed_ind
372: FROM IGS_FI_FEE_STR_STAT
373: WHERE fee_structure_status = p_fee_structure_status;
374: BEGIN
375: -- Check if the IGS_FI_FEE_STR_STAT is closed
376: p_message_name := NULL;
371: SELECT closed_ind
372: FROM IGS_FI_FEE_STR_STAT
373: WHERE fee_structure_status = p_fee_structure_status;
374: BEGIN
375: -- Check if the IGS_FI_FEE_STR_STAT is closed
376: p_message_name := NULL;
377: OPEN c_fee_structure_status;
378: FETCH c_fee_structure_status INTO v_closed_ind;
379: IF (c_fee_structure_status%NOTFOUND) THEN