PACKAGE BODY: APPS.IGS_EN_VAL_CIC

Source

1 PACKAGE BODY IGS_EN_VAL_CIC AS
2 /* $Header: IGSEN29B.pls 115.3 2002/11/28 23:56:15 nsidana ship $ */
3 
4 
5   --
6   -- Validate the citizenship government citizenship code.
7   FUNCTION enrp_val_cic_govt(
8   p_govt_citizenship_cd IN NUMBER ,
9   p_message_name OUT NOCOPY VARCHAR2)
10   RETURN BOOLEAN AS
11   BEGIN
12   DECLARE
13   	gv_other_detail		VARCHAR(255);
14   	gv_closed_ind		IGS_PE_GOVCITIZEN_CD.closed_ind%TYPE;
15   	CURSOR	gc_govt_ctznshp_cd(
16   		  cp_govt_ctznshp_cd IGS_ST_CITIZENSHP_CD.govt_citizenship_cd%TYPE) IS
17   		SELECT	IGS_PE_GOVCITIZEN_CD.closed_ind
18   		FROM	IGS_PE_GOVCITIZEN_CD
19   		WHERE	IGS_PE_GOVCITIZEN_CD.govt_citizenship_cd =
20   			cp_govt_ctznshp_cd;
21   BEGIN
22   	-- This module validates if IGS_PE_GOVCITIZEN_CD.govt_citizenship_cd
23   	-- is closed
24   	p_message_name := null;
25   	OPEN gc_govt_ctznshp_cd(
26   			p_govt_citizenship_cd);
27   	FETCH gc_govt_ctznshp_cd INTO gv_closed_ind;
28   	IF (gc_govt_ctznshp_cd%FOUND) THEN
29   		IF (gv_closed_ind = 'Y' ) THEN
30   			CLOSE gc_govt_ctznshp_cd;
31   			p_message_name := 'IGS_EN_GOV_CITIZEN_CD_CLOSED';
32   			RETURN FALSE;
33   		END IF;
34   	END IF;
35   	CLOSE gc_govt_ctznshp_cd;
36   	RETURN TRUE;
37   EXCEPTION
38   	WHEN OTHERS THEN
39  		Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
40 		FND_MESSAGE.SET_TOKEN('NAME','IGS_EN_VAL_CIC.enrp_val_cic_govt');
41 		IGS_GE_MSG_STACK.ADD;
42 		App_Exception.Raise_Exception;
43 
44   END;
45   END enrp_val_cic_govt;
46 END IGS_EN_VAL_CIC;