1 PACKAGE BODY IGS_PS_VAL_SCGT AS
2 /* $Header: IGSPS54B.pls 115.3 2002/11/29 03:07:11 nsidana ship $ */
3 --
4 -- To validate the update of a system IGS_PS_COURSE group type record
5 FUNCTION crsp_val_scgt_upd(
6 p_s_course_group_type IN VARCHAR2 ,
7 p_closed_ind IN VARCHAR2 DEFAULT 'N',
8 p_message_name OUT NOCOPY VARCHAR2 )
9 RETURN boolean AS
10 v_check CHAR;
11 CURSOR c_check_cgt_rec IS
12 SELECT 'x'
13 FROM IGS_PS_GRP_TYPE
14 WHERE s_course_group_type = p_s_course_group_type AND
15 closed_ind = 'N';
16 BEGIN
17 IF p_closed_ind = 'Y' THEN
18 OPEN c_check_cgt_rec;
19 FETCH c_check_cgt_rec INTO v_check;
20 IF c_check_cgt_rec%FOUND THEN
21 CLOSE c_check_cgt_rec;
22 p_message_name := 'IGS_PS_CANNOTCLS_SYSPRG_GRP';
23 RETURN FALSE;
24 END IF;
25 CLOSE c_check_cgt_rec;
26 END IF;
27 p_message_name := NULL;
28 RETURN TRUE;
29 EXCEPTION
30 WHEN OTHERS THEN
31 Fnd_Message.Set_Name('IGS', 'IGS_GE_UNHANDLED_EXCEPTION');
32 Fnd_Message.Set_Token('NAME','IGS_PS_VAL_SCGT.crsp_val_scgt_upd');
33 IGS_GE_MSG_STACK.ADD;
34 App_Exception.Raise_Exception;
35 END crsp_val_scgt_upd;
36 END IGS_PS_VAL_SCGT;