1 PACKAGE BODY IGS_PS_VAL_GCT AS
2 /* $Header: IGSPS46B.pls 115.3 2002/11/29 03:04:46 nsidana ship $ */
3 --
4 -- Validate update of government IGS_PS_COURSE type record
5 FUNCTION crsp_val_gct_upd(
6 p_govt_course_type IN NUMBER ,
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_ct_rec IS
12 SELECT 'x'
13 FROM IGS_PS_TYPE
14 WHERE govt_course_type = p_govt_course_type AND
15 closed_ind = 'N';
16 BEGIN
17 IF p_closed_ind = 'Y' THEN
18 OPEN c_check_ct_rec;
19 FETCH c_check_ct_rec INTO v_check;
20 IF c_check_ct_rec%FOUND THEN
21 CLOSE c_check_ct_rec;
22 p_message_name := 'IGS_PS_CANCLS_GOVT_PRGTYPE';
23 RETURN FALSE;
24 END IF;
25 CLOSE c_check_ct_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_GCT.CRSP_VAL_GCT_UPD');
33 IGS_GE_MSG_STACK.ADD;
34 App_Exception.Raise_Exception;
35 END;
36 END IGS_PS_VAL_GCT;