PACKAGE BODY: APPS.IGS_AS_VAL_ELS

Source

1 PACKAGE BODY IGS_AS_VAL_ELS AS
2 /* $Header: IGSAS18B.pls 115.6 2002/11/28 22:43:57 nsidana ship $ */
3   -------------------------------------------------------------------------------------------
4   --Change History:
5   --Who         When            What
6   --smadathi    29-AUG-2001     Bug No. 1956374 .The function genp_val_staff_prsn removed
7 
8   -------------------------------------------------------------------------------------------
9 
10   --
11   -- Retrofitted
12   FUNCTION assp_val_ve_lot(
13   p_exam_location_cd  IGS_GR_VENUE_ALL.exam_location_cd%TYPE ,
14   P_MESSAGE_NAME OUT NOCOPY VARCHAR2 )
15   RETURN BOOLEAN AS
16 
17   BEGIN	-- assp_val_ve_lot
18   	-- Validate s_loc_type = 'EXAM_CTR'.
19   DECLARE
20   	CURSOR	c_lot IS
21   	SELECT	'x'
22   	FROM	IGS_AD_LOCATION_TYPE	lot,
23   		IGS_AD_LOCATION	loc
24   	WHERE	lot.location_type	= loc.location_type AND
25   		loc.location_cd		= p_exam_location_cd AND
26   		lot.s_location_type <> 'EXAM_CTR';
27   	v_lot_exists	VARCHAR2(1);
28   BEGIN
29   	-- Set the default message number
30   	P_MESSAGE_NAME := NULL;
31   	OPEN c_lot;
32   	FETCH c_lot INTO v_lot_exists;
33   	IF (c_lot%FOUND) THEN
34   		CLOSE c_lot;
35   		-- The system location type must be specified as 'EXAM_CTR'.
36   		P_MESSAGE_NAME := 'IGS_AS_SYS_LOCTYPE_EXAM_CTR';
37   		RETURN FALSE;
38   	END IF;
39   	CLOSE c_lot;
40   	RETURN TRUE;
41   END;
42   EXCEPTION
43   	WHEN OTHERS THEN
44 	  	FND_MESSAGE.SET_NAME('IGS','IGS_GE_UNHANDLED_EXP');
45 	  	FND_MESSAGE.SET_TOKEN('NAME','IGS_AS_VAL_ELS.assp_val_ve_lot');
46 		IGS_GE_MSG_STACK.ADD;
47   END assp_val_ve_lot;
48   --
49 
50   --
51   -- Validate location closed indicator.
52   FUNCTION orgp_val_loc_closed(
53   p_location_cd IN IGS_AD_LOCATION_ALL.location_cd%TYPE ,
54   P_MESSAGE_NAME OUT NOCOPY VARCHAR2 )
55   RETURN BOOLEAN AS
56 
57   BEGIN 	-- orgp_val_loc_closed
58   	-- Validate the location closed indicator
59   DECLARE
60   	CURSOR c_loc(
61   			cp_location_cd	IGS_AD_LOCATION.location_cd%TYPE) IS
62   		SELECT	closed_ind
63   		FROM	IGS_AD_LOCATION
64   		WHERE	location_cd = cp_location_cd;
65   	v_loc_rec			c_loc%ROWTYPE;
66   	cst_yes			CONSTANT CHAR := 'Y';
67   BEGIN
68   	-- Set the default message number
69   	P_MESSAGE_NAME := NULL;
70   	-- Cursor handling
71   	OPEN c_loc(
72   			p_location_cd);
73   	FETCH c_loc INTO v_loc_rec;
74   	IF c_loc%NOTFOUND THEN
75   		CLOSE c_loc;
76   		RETURN TRUE;
77   	END IF;
78   	CLOSE c_loc;
79   	IF (v_loc_rec.closed_ind = cst_yes) THEN
80   		P_MESSAGE_NAME := 'IGS_OR_LOCATION_CLOSED';
81   		RETURN FALSE;
82   	END IF;
83   	-- Return the default value
84   	RETURN TRUE;
85   END;
86   EXCEPTION
87   	WHEN OTHERS THEN
88 	  	FND_MESSAGE.SET_NAME('IGS','IGS_GE_UNHANDLED_EXP');
89   		FND_MESSAGE.SET_TOKEN('NAME','IGS_AS_VAL_ELS.orgp_val_loc_closed');
90 		IGS_GE_MSG_STACK.ADD;
91 
92   END orgp_val_loc_closed;
93 END IGS_AS_VAL_ELS;