18: -- * Must be a progression calendar
19: -- * Must be open
20: DECLARE
21: cst_progress CONSTANT VARCHAR2(10) := 'PROGRESS';
22: v_s_cal_cat IGS_CA_TYPE.s_cal_cat%TYPE;
23: v_closed_ind IGS_CA_TYPE.closed_ind%TYPE;
24: CURSOR c_cat IS
25: SELECT cat.s_cal_cat,
26: cat.closed_ind
19: -- * Must be open
20: DECLARE
21: cst_progress CONSTANT VARCHAR2(10) := 'PROGRESS';
22: v_s_cal_cat IGS_CA_TYPE.s_cal_cat%TYPE;
23: v_closed_ind IGS_CA_TYPE.closed_ind%TYPE;
24: CURSOR c_cat IS
25: SELECT cat.s_cal_cat,
26: cat.closed_ind
27: FROM IGS_CA_TYPE cat
23: v_closed_ind IGS_CA_TYPE.closed_ind%TYPE;
24: CURSOR c_cat IS
25: SELECT cat.s_cal_cat,
26: cat.closed_ind
27: FROM IGS_CA_TYPE cat
28: WHERE cat.cal_type = p_cal_type;
29: BEGIN
30: -- Set the default message name
31: p_message_name := Null;