49: cst_warn CONSTANT CHAR := 'W';
50: v_record_found BOOLEAN DEFAULT FALSE;
51: v_yes_found BOOLEAN DEFAULT FALSE;
52: CURSOR c_fcm(
53: cp_admission_cat IGS_FI_FEE_CAT_MAP.admission_cat%TYPE)IS
54: SELECT fcm.dflt_cat_ind
55: FROM IGS_FI_FEE_CAT_MAP fcm
56: WHERE fcm.admission_cat = cp_admission_cat;
57: BEGIN
51: v_yes_found BOOLEAN DEFAULT FALSE;
52: CURSOR c_fcm(
53: cp_admission_cat IGS_FI_FEE_CAT_MAP.admission_cat%TYPE)IS
54: SELECT fcm.dflt_cat_ind
55: FROM IGS_FI_FEE_CAT_MAP fcm
56: WHERE fcm.admission_cat = cp_admission_cat;
57: BEGIN
58: --- Set the default message number
59: p_message_name := null;
96: -- Validate if the fee category can be marked as the default for the admission
97: -- category
98: -- (only one fee category can be marked as the default)
99: DECLARE
100: v_dflt_cat_ind IGS_FI_FEE_CAT_MAP.dflt_cat_ind%TYPE;
101: cst_yes CONSTANT CHAR := 'Y';
102: CURSOR c_fcm(cp_admission_cat IGS_FI_FEE_CAT_MAP.admission_cat%TYPE,
103: cp_fee_cat IGS_FI_FEE_CAT_MAP.fee_cat%TYPE)IS
104: SELECT fcm.dflt_cat_ind
98: -- (only one fee category can be marked as the default)
99: DECLARE
100: v_dflt_cat_ind IGS_FI_FEE_CAT_MAP.dflt_cat_ind%TYPE;
101: cst_yes CONSTANT CHAR := 'Y';
102: CURSOR c_fcm(cp_admission_cat IGS_FI_FEE_CAT_MAP.admission_cat%TYPE,
103: cp_fee_cat IGS_FI_FEE_CAT_MAP.fee_cat%TYPE)IS
104: SELECT fcm.dflt_cat_ind
105: FROM IGS_FI_FEE_CAT_MAP fcm
106: WHERE fcm.admission_cat = cp_admission_cat AND
99: DECLARE
100: v_dflt_cat_ind IGS_FI_FEE_CAT_MAP.dflt_cat_ind%TYPE;
101: cst_yes CONSTANT CHAR := 'Y';
102: CURSOR c_fcm(cp_admission_cat IGS_FI_FEE_CAT_MAP.admission_cat%TYPE,
103: cp_fee_cat IGS_FI_FEE_CAT_MAP.fee_cat%TYPE)IS
104: SELECT fcm.dflt_cat_ind
105: FROM IGS_FI_FEE_CAT_MAP fcm
106: WHERE fcm.admission_cat = cp_admission_cat AND
107: fcm.fee_cat <> cp_fee_cat AND
101: cst_yes CONSTANT CHAR := 'Y';
102: CURSOR c_fcm(cp_admission_cat IGS_FI_FEE_CAT_MAP.admission_cat%TYPE,
103: cp_fee_cat IGS_FI_FEE_CAT_MAP.fee_cat%TYPE)IS
104: SELECT fcm.dflt_cat_ind
105: FROM IGS_FI_FEE_CAT_MAP fcm
106: WHERE fcm.admission_cat = cp_admission_cat AND
107: fcm.fee_cat <> cp_fee_cat AND
108: fcm.dflt_cat_ind = cst_yes;
109: BEGIN