57: cst_warn CONSTANT CHAR := 'W';
58: v_record_found BOOLEAN DEFAULT FALSE;
59: v_yes_found BOOLEAN DEFAULT FALSE;
60: CURSOR c_ccm(
61: cp_admission_cat IGS_CO_CAT_MAP.admission_cat%TYPE)IS
62: SELECT ccm.dflt_cat_ind
63: FROM IGS_CO_CAT_MAP ccm
64: WHERE ccm.admission_cat = cp_admission_cat;
65: BEGIN
59: v_yes_found BOOLEAN DEFAULT FALSE;
60: CURSOR c_ccm(
61: cp_admission_cat IGS_CO_CAT_MAP.admission_cat%TYPE)IS
62: SELECT ccm.dflt_cat_ind
63: FROM IGS_CO_CAT_MAP ccm
64: WHERE ccm.admission_cat = cp_admission_cat;
65: BEGIN
66: --- Set the default message number
67: p_message_name := null;
107: -- Validate if the correspondence category can be marked as the default for the
108: -- admission category
109: -- (only one correspondence category can be marked as the default)
110: DECLARE
111: v_dflt_cat_ind IGS_CO_CAT_MAP.dflt_cat_ind%TYPE;
112: cst_yes CONSTANT CHAR := 'Y';
113: CURSOR c_ccm(cp_admission_cat IGS_CO_CAT_MAP.admission_cat%TYPE,
114: cp_correspondence_cat IGS_CO_CAT_MAP.correspondence_cat%TYPE) IS
115: SELECT ccm.dflt_cat_ind
109: -- (only one correspondence category can be marked as the default)
110: DECLARE
111: v_dflt_cat_ind IGS_CO_CAT_MAP.dflt_cat_ind%TYPE;
112: cst_yes CONSTANT CHAR := 'Y';
113: CURSOR c_ccm(cp_admission_cat IGS_CO_CAT_MAP.admission_cat%TYPE,
114: cp_correspondence_cat IGS_CO_CAT_MAP.correspondence_cat%TYPE) IS
115: SELECT ccm.dflt_cat_ind
116: FROM IGS_CO_CAT_MAP ccm
117: WHERE ccm.admission_cat = cp_admission_cat AND
110: DECLARE
111: v_dflt_cat_ind IGS_CO_CAT_MAP.dflt_cat_ind%TYPE;
112: cst_yes CONSTANT CHAR := 'Y';
113: CURSOR c_ccm(cp_admission_cat IGS_CO_CAT_MAP.admission_cat%TYPE,
114: cp_correspondence_cat IGS_CO_CAT_MAP.correspondence_cat%TYPE) IS
115: SELECT ccm.dflt_cat_ind
116: FROM IGS_CO_CAT_MAP ccm
117: WHERE ccm.admission_cat = cp_admission_cat AND
118: ccm.correspondence_cat <> cp_correspondence_cat AND
112: cst_yes CONSTANT CHAR := 'Y';
113: CURSOR c_ccm(cp_admission_cat IGS_CO_CAT_MAP.admission_cat%TYPE,
114: cp_correspondence_cat IGS_CO_CAT_MAP.correspondence_cat%TYPE) IS
115: SELECT ccm.dflt_cat_ind
116: FROM IGS_CO_CAT_MAP ccm
117: WHERE ccm.admission_cat = cp_admission_cat AND
118: ccm.correspondence_cat <> cp_correspondence_cat AND
119: ccm.dflt_cat_ind = cst_yes;
120: BEGIN