1 PACKAGE BODY IGR_VAL_EIT AS
2 /* $Header: IGSRT11B.pls 120.0 2005/06/01 18:19:51 appldev noship $ */
3
4 -- Validate the Enquiry Information Type closed indicator.
5 FUNCTION admp_val_eit_closed(
6 p_enquiry_information_type IN VARCHAR2 ,
7 p_message_name OUT NOCOPY VARCHAR2)
8 RETURN BOOLEAN IS
9 BEGIN -- check if the enquiry_information_type is closed
10 DECLARE
11 v_closed_ind CHAR;
12 CURSOR c_get_closed_ind (
13 cp_enquiry_information_type
14 igr_i_info_types_v.information_type%TYPE) IS
15 SELECT 'X'
16 FROM igr_i_info_types_v
17 WHERE information_type = p_enquiry_information_type
18 AND sysdate > ACTUAL_AVAIL_TO_DATE;
19 BEGIN
20 p_message_name := null;
21 -- Validate input parameters
22 IF (p_enquiry_information_type IS NULL)THEN
23 RETURN TRUE;
24 END IF;
25 -- Validate if the enquiry information item is closed
26 OPEN c_get_closed_ind(p_enquiry_information_type);
27 FETCH c_get_closed_ind INTO v_closed_ind;
28 IF (c_get_closed_ind%NOTFOUND) THEN
29 CLOSE c_get_closed_ind;
30 RETURN TRUE;
31 END IF;
32 CLOSE c_get_closed_ind;
33 IF (v_closed_ind = 'X') THEN
34 p_message_name := 'IGS_AD_ENQ_INFOTYPE_CLOSED';
35 RETURN FALSE;
36 END IF;
37 RETURN TRUE;
38 END;
39 EXCEPTION
40 WHEN OTHERS THEN
41 FND_MESSAGE.SET_NAME('IGS','IGS_GE_UNHANDLED_EXP');
42 FND_MESSAGE.SET_TOKEN('NAME','IGR_VAL_EIT.admp_val_eit_closed');
43 IGS_GE_MSG_STACK.ADD;
44 END admp_val_eit_closed;
45 END IGR_VAL_EIT;
[Home] [Help]