1 PACKAGE BODY IGS_PS_VAL_SRCT AS
2 /* $Header: IGSPS55B.pls 115.3 2002/11/29 03:07:25 nsidana ship $ */
3 --
4 -- To validate the update of a system IGS_PS_COURSE group type record
5 FUNCTION CRSP_VAL_SRCT_UPD(
6 p_s_reference_cd_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_rct_rec IS
12 SELECT 'x'
13 FROM IGS_GE_REF_CD_TYPE
14 WHERE s_reference_cd_type = p_s_reference_cd_type AND
15 closed_ind = 'N';
16 BEGIN
17 IF p_closed_ind = 'Y' THEN
18 OPEN c_check_rct_rec;
19 FETCH c_check_rct_rec INTO v_check;
20 IF c_check_rct_rec%FOUND THEN
21 CLOSE c_check_rct_rec;
22 p_message_name := 'IGS_PS_CANNOTCLS_SYSREFCD_TYP';
23 RETURN FALSE;
24 END IF;
25 CLOSE c_check_rct_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_SRCT.crsp_val_srct_upd');
33 IGS_GE_MSG_STACK.ADD;
34 App_Exception.Raise_Exception;
35 END crsp_val_srct_upd;
36 END IGS_PS_VAL_SRCT;