PACKAGE BODY: APPS.IGS_RU_VAL_USET_RULE

Source

1 PACKAGE BODY IGS_RU_VAL_USET_RULE AS
2 /* $Header: IGSRU10B.pls 115.7 2002/11/29 03:40:45 nsidana ship $ */
3 
4 /*
5   Validate the enrolment rules for a student IGS_PS_UNIT set attempt.
6 */
7   FUNCTION RULP_VAL_ENROL_USET(
8   p_person_id IN NUMBER ,
9   p_course_cd IN VARCHAR2 ,
10   p_course_version  NUMBER ,
11   p_unit_set_cd IN VARCHAR2 ,
12   p_unit_set_version  NUMBER ,
13   p_message_text OUT NOCOPY VARCHAR2 )
14   RETURN boolean IS
15   	v_return_val	VARCHAR2(30);
16   BEGIN
17   	v_return_val := IGS_RU_GEN_001.RULP_VAL_SENNA('ENROL_USET',
18   				p_person_id,
19   				p_course_cd,
20   				p_course_version,
21   				p_param_1=>p_unit_set_cd,
22   				p_param_2=>p_unit_set_version,
23   				p_message=>p_message_text);
24   	IF v_return_val = 'false' OR v_return_val IS NULL
25   	THEN
26   		RETURN FALSE;
27   	END IF;
28   	RETURN TRUE;
29   END;
30 /*
31   Determine if a student has completed a IGS_PS_UNIT set.
32 */
33   FUNCTION RULP_VAL_SUSA_COMP(
34   p_person_id IN NUMBER ,
35   p_course_cd IN VARCHAR2 ,
36   p_course_version  NUMBER ,
37   p_unit_set_cd IN VARCHAR2 ,
38   p_unit_set_version  NUMBER ,
39   p_message_text OUT NOCOPY VARCHAR2 )
40   RETURN boolean IS
41   	v_return_val	VARCHAR2(30);
42   BEGIN
43   	v_return_val := IGS_RU_GEN_001.RULP_VAL_SENNA('USET_COMP',
44   				p_person_id,
45   				p_course_cd,
46   				p_course_version,
47   				p_unit_set_cd,
48   				p_unit_set_version,
49   				p_message=>p_message_text);
50   	IF v_return_val = 'false' OR v_return_val IS NULL
51   	THEN
52   		RETURN FALSE;
53   	END IF;
54   	RETURN TRUE;
55   END;
56 
57 END IGS_RU_VAL_USET_RULE;