1 PACKAGE BODY IGS_PS_VAL_GD AS
2 /* $Header: IGSPS47B.pls 115.3 2002/11/29 03:05:03 nsidana ship $ */
3 --
4 -- Validate update of government IGS_PS_DSCP record
5 FUNCTION crsp_val_gd_upd(
6 p_govt_discipline_group_cd 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_disc_rec IS
12 SELECT 'x'
13 FROM IGS_PS_DSCP
14 WHERE govt_discipline_group_cd = p_govt_discipline_group_cd AND
15 closed_ind = 'N';
16 BEGIN
17 IF p_closed_ind = 'Y' THEN
18 OPEN c_check_disc_rec;
19 FETCH c_check_disc_rec INTO v_check;
20 IF c_check_disc_rec%FOUND THEN
21 CLOSE c_check_disc_rec;
22 p_message_name := 'IGS_PS_CANCLS_GOVT_DISCPGRP';
23 RETURN FALSE;
24 END IF;
25 CLOSE c_check_disc_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_GD.CRSP_VAL_GD_UPD');
33 IGS_GE_MSG_STACK.ADD;
34 App_Exception.Raise_Exception;
35 END crsp_val_gd_upd;
36 END IGS_PS_VAL_GD;