1 PACKAGE BODY IGS_AD_VAL_CEPI AS
2 /* $Header: IGSAD49B.pls 115.3 2002/11/28 21:34:50 nsidana ship $ */
3 -- Validate that the course version exists.
4 FUNCTION crsp_val_crv_exists(
5 p_course_cd IN VARCHAR2 ,
6 p_version_number IN NUMBER ,
7 p_message_name OUT NOCOPY VARCHAR2)
8 RETURN BOOLEAN IS
9 v_other_detail VARCHAR2(255);
10 v_check CHAR;
11 CURSOR c_sel_course_version IS
12 SELECT 'x'
13 FROM IGS_PS_VER
14 WHERE course_cd = p_course_cd AND
15 version_number = p_version_number;
16 BEGIN
17 OPEN c_sel_course_version;
18 FETCH c_sel_course_version INTO v_check;
19 -- validate the course version exists
20 IF (c_sel_course_version%NOTFOUND) THEN
21 CLOSE c_sel_course_version;
22 --p_message_num := 411;
23 p_message_name := 'IGS_PS_PRGCD_PRGVERNUM_NOTEXI';
24 RETURN FALSE;
25 END IF;
26 CLOSE c_sel_course_version;
27 p_message_name := null;
28 RETURN TRUE;
29 EXCEPTION
30 WHEN OTHERS THEN
31 Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
32 Fnd_Message.Set_Token('NAME','IGS_AD_VAL_CEPI.crsp_val_crv_exists');
33 IGS_GE_MSG_STACK.ADD;
34 App_Exception.Raise_Exception;
35 END crsp_val_crv_exists;
36 --
37 -- Validate unit version system status.
38 FUNCTION crsp_val_crv_sys_sts(
39 p_course_cd IN VARCHAR2 ,
40 p_version_number IN NUMBER ,
41 p_message_name OUT NOCOPY VARCHAR2 )
42 RETURN BOOLEAN IS
43 v_other_detail VARCHAR2(255);
44 v_s_course_status IGS_PS_STAT.s_course_status%TYPE;
45 CURSOR c_get_s_course_status IS
46 SELECT s_course_status
47 FROM IGS_PS_VER,
48 IGS_PS_STAT
49 WHERE course_cd = p_course_cd AND
50 version_number = p_version_number AND
51 IGS_PS_VER.course_status = IGS_PS_STAT.course_status;
52 BEGIN
53 p_message_name := null;
54 OPEN c_get_s_course_status;
55 FETCH c_get_s_course_status INTO v_s_course_status;
56 IF c_get_s_course_status%NOTFOUND THEN
57 CLOSE c_get_s_course_status;
58 RETURN TRUE;
59 END IF;
60 CLOSE c_get_s_course_status;
61 -- Validate the system status of the course version
62 IF (v_s_course_status <> 'INACTIVE') THEN
63 RETURN TRUE;
64 END IF;
65 --p_message_num := 412;
66 p_message_name := 'IGS_PS_PRGVER_NOSTAUS_ACTPLAN';
67 RETURN FALSE;
68 EXCEPTION
69 WHEN OTHERS THEN
70 Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
71 Fnd_Message.Set_Token('NAME','IGS_AD_VAL_CEPI.crsp_val_crv_sys_sts');
72 IGS_GE_MSG_STACK.ADD;
73 App_Exception.Raise_Exception;
74 END crsp_val_crv_sys_sts;
75
76 END IGS_AD_VAL_CEPI;