2: /* $Header: IGSPS51B.pls 115.4 2002/11/29 03:06:23 nsidana ship $ */
3:
4: -- Validate the calendar type is categorised teaching and is not closed.
5: FUNCTION crsp_val_posp_cat(
6: p_cal_type IN IGS_CA_TYPE.cal_type%TYPE ,
7: p_message_name OUT NOCOPY VARCHAR2)
8: RETURN BOOLEAN AS
9: gv_other_detail VARCHAR2(255);
10: BEGIN -- crsp_val_posp_cat
10: BEGIN -- crsp_val_posp_cat
11: -- Validate the cal_type is not closed and the s_cal_cat is set to
12: -- 'TEACHING'.
13: DECLARE
14: v_cat_closed_ind IGS_CA_TYPE.closed_ind%TYPE;
15: v_cat_s_cal_cat IGS_CA_TYPE.s_cal_cat%TYPE;
16: CURSOR c_cat IS
17: SELECT cat.closed_ind,
18: cat.s_cal_cat
11: -- Validate the cal_type is not closed and the s_cal_cat is set to
12: -- 'TEACHING'.
13: DECLARE
14: v_cat_closed_ind IGS_CA_TYPE.closed_ind%TYPE;
15: v_cat_s_cal_cat IGS_CA_TYPE.s_cal_cat%TYPE;
16: CURSOR c_cat IS
17: SELECT cat.closed_ind,
18: cat.s_cal_cat
19: FROM IGS_CA_TYPE cat
15: v_cat_s_cal_cat IGS_CA_TYPE.s_cal_cat%TYPE;
16: CURSOR c_cat IS
17: SELECT cat.closed_ind,
18: cat.s_cal_cat
19: FROM IGS_CA_TYPE cat
20: WHERE cat.cal_type = p_cal_type;
21: BEGIN
22: IF p_cal_type IS NULL THEN
23: p_message_name := null;
52: RAISE;
53: END;
54: END crsp_val_posp_cat;
55: --
56: -- Validate future relationship between IGS_CA_TYPE and teach_cal_type.
57: FUNCTION crsp_val_posp_cir(
58: p_cal_type IN IGS_CA_TYPE.cal_type%TYPE ,
59: p_teach_cal_type IN IGS_CA_TYPE.cal_type%TYPE ,
60: p_message_name OUT NOCOPY VARCHAR2)
54: END crsp_val_posp_cat;
55: --
56: -- Validate future relationship between IGS_CA_TYPE and teach_cal_type.
57: FUNCTION crsp_val_posp_cir(
58: p_cal_type IN IGS_CA_TYPE.cal_type%TYPE ,
59: p_teach_cal_type IN IGS_CA_TYPE.cal_type%TYPE ,
60: p_message_name OUT NOCOPY VARCHAR2)
61: RETURN BOOLEAN AS
62: BEGIN -- crsp_val_posp_cir
55: --
56: -- Validate future relationship between IGS_CA_TYPE and teach_cal_type.
57: FUNCTION crsp_val_posp_cir(
58: p_cal_type IN IGS_CA_TYPE.cal_type%TYPE ,
59: p_teach_cal_type IN IGS_CA_TYPE.cal_type%TYPE ,
60: p_message_name OUT NOCOPY VARCHAR2)
61: RETURN BOOLEAN AS
62: BEGIN -- crsp_val_posp_cir
63: -- Warn the user if there isn't a relationship between future instances
60: p_message_name OUT NOCOPY VARCHAR2)
61: RETURN BOOLEAN AS
62: BEGIN -- crsp_val_posp_cir
63: -- Warn the user if there isn't a relationship between future instances
64: -- of the IGS_CA_TYPE and teach_cal_type, with the teaching calendar as the
65: -- subordinate to the academic calendar.
66: DECLARE
67: v_dummy VARCHAR(1);
68: CURSOR c_cir_ci IS