8: ----------------------------------------------------------------------------
9:
10: -- Validate if the IGS_PS_COURSE stage type is unique for this IGS_PS_COURSE version
11: FUNCTION crsp_val_cst_cstt(
12: p_course_cd IN IGS_PS_STAGE.course_cd%TYPE ,
13: p_version_number IN IGS_PS_STAGE.version_number%TYPE ,
14: p_sequence_number IN IGS_PS_STAGE.sequence_number%TYPE ,
15: p_course_stage_type IN IGS_PS_STAGE.course_stage_type%TYPE ,
16: p_message_name OUT NOCOPY VARCHAR2 )
9:
10: -- Validate if the IGS_PS_COURSE stage type is unique for this IGS_PS_COURSE version
11: FUNCTION crsp_val_cst_cstt(
12: p_course_cd IN IGS_PS_STAGE.course_cd%TYPE ,
13: p_version_number IN IGS_PS_STAGE.version_number%TYPE ,
14: p_sequence_number IN IGS_PS_STAGE.sequence_number%TYPE ,
15: p_course_stage_type IN IGS_PS_STAGE.course_stage_type%TYPE ,
16: p_message_name OUT NOCOPY VARCHAR2 )
17: RETURN BOOLEAN AS
10: -- Validate if the IGS_PS_COURSE stage type is unique for this IGS_PS_COURSE version
11: FUNCTION crsp_val_cst_cstt(
12: p_course_cd IN IGS_PS_STAGE.course_cd%TYPE ,
13: p_version_number IN IGS_PS_STAGE.version_number%TYPE ,
14: p_sequence_number IN IGS_PS_STAGE.sequence_number%TYPE ,
15: p_course_stage_type IN IGS_PS_STAGE.course_stage_type%TYPE ,
16: p_message_name OUT NOCOPY VARCHAR2 )
17: RETURN BOOLEAN AS
18: BEGIN -- crsp_val_cst_cstt
11: FUNCTION crsp_val_cst_cstt(
12: p_course_cd IN IGS_PS_STAGE.course_cd%TYPE ,
13: p_version_number IN IGS_PS_STAGE.version_number%TYPE ,
14: p_sequence_number IN IGS_PS_STAGE.sequence_number%TYPE ,
15: p_course_stage_type IN IGS_PS_STAGE.course_stage_type%TYPE ,
16: p_message_name OUT NOCOPY VARCHAR2 )
17: RETURN BOOLEAN AS
18: BEGIN -- crsp_val_cst_cstt
19: -- Validate that the IGS_PS_STAGE_TYPE is unique for
15: p_course_stage_type IN IGS_PS_STAGE.course_stage_type%TYPE ,
16: p_message_name OUT NOCOPY VARCHAR2 )
17: RETURN BOOLEAN AS
18: BEGIN -- crsp_val_cst_cstt
19: -- Validate that the IGS_PS_STAGE_TYPE is unique for
20: -- IGS_PS_STAGE records for the same IGS_PS_VER.
21: DECLARE
22: CURSOR c_cst IS
23: SELECT 'x'
16: p_message_name OUT NOCOPY VARCHAR2 )
17: RETURN BOOLEAN AS
18: BEGIN -- crsp_val_cst_cstt
19: -- Validate that the IGS_PS_STAGE_TYPE is unique for
20: -- IGS_PS_STAGE records for the same IGS_PS_VER.
21: DECLARE
22: CURSOR c_cst IS
23: SELECT 'x'
24: FROM IGS_PS_STAGE
20: -- IGS_PS_STAGE records for the same IGS_PS_VER.
21: DECLARE
22: CURSOR c_cst IS
23: SELECT 'x'
24: FROM IGS_PS_STAGE
25: WHERE course_cd = p_course_cd AND
26: version_number = p_version_number AND
27: sequence_number <> NVL(p_sequence_number, -1) AND
28: course_stage_type = p_course_stage_type;
63: END crsp_val_cst_cstt;
64: --
65: -- Validate the IGS_PS_COURSE stage type closed indicator.
66: FUNCTION crsp_val_cstt_closed(
67: p_course_stage_type IN IGS_PS_STAGE_TYPE.course_stage_type%TYPE ,
68: p_message_name OUT NOCOPY VARCHAR2 )
69: RETURN BOOLEAN AS
70: BEGIN -- crsp_val_cstt_closed
71: -- Validate the IGS_PS_COURSE stage type closed indicator
69: RETURN BOOLEAN AS
70: BEGIN -- crsp_val_cstt_closed
71: -- Validate the IGS_PS_COURSE stage type closed indicator
72: DECLARE
73: v_closed_ind IGS_PS_STAGE_TYPE.closed_ind%TYPE;
74: CURSOR c_cstt IS
75: SELECT closed_ind
76: FROM IGS_PS_STAGE_TYPE
77: WHERE course_stage_type = p_course_stage_type;
72: DECLARE
73: v_closed_ind IGS_PS_STAGE_TYPE.closed_ind%TYPE;
74: CURSOR c_cstt IS
75: SELECT closed_ind
76: FROM IGS_PS_STAGE_TYPE
77: WHERE course_stage_type = p_course_stage_type;
78: BEGIN
79: OPEN c_cstt;
80: FETCH c_cstt INTO v_closed_ind;
84: RETURN TRUE;
85: END IF;
86: CLOSE c_cstt;
87: IF (v_closed_ind = 'Y') THEN
88: p_message_name := 'IGS_PS_STAGE_TYPE_STATUS_CLOS';
89: RETURN FALSE;
90: END IF;
91: p_message_name := NULL;
92: RETURN TRUE;