PACKAGE BODY: APPS.IGR_VAL_ECT

Source

1 PACKAGE BODY IGR_VAL_ECT AS
2 /* $Header: IGSRT10B.pls 120.0 2005/06/01 13:46:41 appldev noship $ */
3   -- Validate the Enquiry Characteristic Type closed indicator.
4   FUNCTION admp_val_ect_closed(
5   p_enquiry_characteristic_type IN VARCHAR2 ,
6   p_message_name    OUT NOCOPY VARCHAR2)
7   RETURN BOOLEAN IS
8   BEGIN -- check if the enquiry_characteristic_type is closed
9     DECLARE
10     v_closed_ind    CHAR;
11     CURSOR c_get_closed_ind (
12         cp_enquiry_characteristic_type
13         IGR_I_E_CHARTYP.enquiry_characteristic_type%TYPE) IS
14 --          IGS_IN_ENQ_CHAR_TYPE.enquiry_characteristic_type%TYPE) IS
15         SELECT  closed_ind
16 --          FROM    IGS_IN_ENQ_CHAR_TYPE
17         FROM    IGR_I_E_CHARTYP
18         WHERE   enquiry_characteristic_type = p_enquiry_characteristic_type;
19     BEGIN
20     p_message_name := null;
21     -- Validate input parameters
22     IF (p_enquiry_characteristic_type IS NULL)THEN
23         RETURN TRUE;
24     END IF;
25     -- Validate if the enquiry characteristic type is closed
26     OPEN c_get_closed_ind(p_enquiry_characteristic_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 = 'Y') THEN
34         p_message_name := 'IGS_AD_ENQ_CHARACTERISTIC';
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_ECT.admp_val_ect_closed');
43         IGS_GE_MSG_STACK.ADD;
44   END admp_val_ect_closed;
45 END IGR_VAL_ECT;