1 PACKAGE BODY IGS_RU_VAL_CRS_RULE AS
2 /* $Header: IGSRU05B.pls 115.6 2002/11/29 03:39:56 nsidana ship $ */
3
4 /*
5 Validate that core unit rules are satisfied for a student crs attempt
6 */
7 FUNCTION RULP_VAL_CRS_CORE(
8 p_person_id IN NUMBER ,
9 p_course_cd IN VARCHAR2 ,
10 p_course_version NUMBER ,
11 p_cal_type IN VARCHAR2 ,
12 p_ci_sequence_number IN 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('CORE',
18 p_person_id,
19 p_course_cd,
20 p_course_version,
21 NULL,
22 NULL,
23 p_cal_type,
24 p_ci_sequence_number,
25 p_message_text);
26 IF v_return_val = 'false' OR
27 v_return_val IS NULL /*ERROR*/
28 THEN
29 RETURN FALSE;
30 END IF;
31 RETURN TRUE;
32 END rulp_val_crs_core;
33 /*
34 Determine if two courses are articulate.
35 */
36 FUNCTION rulp_val_crs_artcltn(
37 p_rule_course_cd IN VARCHAR2 ,
38 p_rule_crv_version_number IN NUMBER ,
39 p_member_course_cd IN VARCHAR2 ,
40 p_member_crv_version_number IN NUMBER )
41 RETURN BOOLEAN IS
42 v_return_val VARCHAR2(30);
43 v_message VARCHAR2(2000);
44 BEGIN
45 v_return_val := IGS_RU_GEN_001.RULP_VAL_SENNA('CRS-ARTCLT',
46 p_course_cd=>p_rule_course_cd,
47 p_course_version=>p_rule_crv_version_number,
48 p_param_1=>p_member_course_cd,
49 p_param_2=>p_member_crv_version_number,
50 p_message=>v_message );
51 IF v_return_val = 'false' OR
52 v_return_val IS NULL
53 THEN
54 RETURN FALSE;
55 END IF;
56 RETURN TRUE;
57 END rulp_val_crs_artcltn;
58
59 END IGS_RU_VAL_CRS_RULE;