PACKAGE BODY: APPS.IGS_EN_VAL_PRC

Source

1 PACKAGE BODY IGS_EN_VAL_PRC AS
2 /* $Header: IGSEN56B.pls 115.3 2002/11/29 00:03:48 nsidana ship $ */
3   --
4   -- Validate the permanent resident government permanent resident code.
5   FUNCTION enrp_val_prc_govt(
6   p_govt_perm_resident_cd IN NUMBER ,
7   p_message_name OUT NOCOPY VARCHAR2)
8   RETURN BOOLEAN AS
9   BEGIN
10   DECLARE
11   	gv_other_detail		VARCHAR(255);
12   	gv_closed_ind		IGS_PE_GOV_PER_RESCD.closed_ind%TYPE;
13   	CURSOR	gc_gpr_cd(
14   		  cp_gpr_cd IGS_PE_GOV_PER_RESCD.govt_perm_resident_cd%TYPE) IS
15   		SELECT	IGS_PE_GOV_PER_RESCD.closed_ind
16   		FROM	IGS_PE_GOV_PER_RESCD
17   		WHERE	IGS_PE_GOV_PER_RESCD.govt_perm_resident_cd = cp_gpr_cd;
18   BEGIN
19   	-- This module validates if IGS_PE_GOV_PER_RESCD.govt_perm_resident_cd
20   	-- is closed
21   	p_message_name := null;
22   	OPEN gc_gpr_cd(p_govt_perm_resident_cd);
23   	FETCH gc_gpr_cd INTO gv_closed_ind;
24   	IF (gc_gpr_cd%FOUND) THEN
25   		IF (gv_closed_ind = 'Y' ) THEN
26   			CLOSE gc_gpr_cd;
27   			p_message_name := 'IGS_EN_GOV_PRM_RES_CD_CLOSED';
28   			RETURN FALSE;
29   		END IF;
30   	END IF;
31   	CLOSE gc_gpr_cd;
32   	RETURN TRUE;
33   EXCEPTION
34   	WHEN OTHERS THEN
35 		FND_MESSAGE.SET_NAME('IGS', 'IGS_GE_UNHANDLED_EXP');
36 		FND_MESSAGE.SET_TOKEN('NAME', 'IGS_EN_VAL_PRC.enrp_val_prc_govt');
37 		IGS_GE_MSG_STACK.ADD;
38 		App_Exception.Raise_Exception;
39 
40   END;
41   END enrp_val_prc_govt;
42 END IGS_EN_VAL_PRC;