PACKAGE BODY: APPS.IGS_AD_VAL_AALP

Source

1 PACKAGE BODY IGS_AD_VAL_AALP AS
2 /* $Header: IGSAD18B.pls 115.6 2002/11/28 21:26:09 nsidana ship $ */
3 
4   --
5   -- Validate if letter parameter type is closed.
6   FUNCTION corp_val_lpt_closed(
7   p_letter_parameter_type IN VARCHAR2 ,
8   p_message_name OUT NOCOPY VARCHAR2 )
9   RETURN BOOLEAN IS
10   BEGIN	-- corp_val_lpt_closed
11   	-- Validate if letter_parameter_type is closed.
12   DECLARE
13   	v_closed_ind	IGS_CO_LTR_PHR.closed_ind%TYPE	DEFAULT 'N';
14   	CURSOR c_lpt IS
15   		SELECT	closed_ind
16   		FROM	IGS_CO_LTR_PARM_TYPE
17   		WHERE	letter_parameter_type = p_letter_parameter_type;
18   BEGIN
19   	p_message_name := null;
20   	OPEN c_lpt;
21   	FETCH c_lpt INTO v_closed_ind;
22   	CLOSE c_lpt;
23   	IF (v_closed_ind = 'Y') THEN
24 		p_message_name := 'IGS_CO_LETTER_PARAM_TYPE_CLS';
25   		RETURN FALSE;
26   	END IF;
27   	RETURN TRUE;
28   END;
29   EXCEPTION
30   	WHEN OTHERS THEN
31 	    Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
32 	    Fnd_Message.Set_Token('NAME','IGS_AD_VAL_AALP.corp_val_lpt_closed');
33 	    IGS_GE_MSG_STACK.ADD;
34 	    App_Exception.Raise_Exception;
35   END corp_val_lpt_closed;
36   --
37   -- Validate  letter_parameter_type has  IGS_CO_S_LTR_PARAM = PHRASE
38   FUNCTION corp_val_lpt_phrase(
39   p_letter_parameter_type IN VARCHAR2 ,
40   p_message_name OUT NOCOPY VARCHAR2 )
41   RETURN BOOLEAN IS
42   BEGIN	-- corp_val_lpt_phrase
43   	-- Validate if letter_parameter_type has a IGS_CO_S_LTR_PARAM = 'PHRASE'
44   DECLARE
45   	v_check		CHAR;
46   	CURSOR c_lpt IS
47   		SELECT	'x'
48   		FROM	IGS_CO_LTR_PARM_TYPE
49   		WHERE	letter_parameter_type 	= p_letter_parameter_type AND
50   			s_letter_parameter_type = 'PHRASE' AND
51   			closed_ind 		= 'N';
52   BEGIN
53   	p_message_name := null;
54   	OPEN c_lpt;
55   	FETCH c_lpt INTO v_check;
56   	IF (c_lpt%NOTFOUND) THEN
57   		CLOSE c_lpt;
58 		p_message_name := 'IGS_CO_LETTER_PARAM_PHRASE';
59   		RETURN FALSE;
60   	END IF;
61   	CLOSE c_lpt;
62   	RETURN TRUE;
63   END;
64   EXCEPTION
65   	WHEN OTHERS THEN
66 	    Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
67 	    Fnd_Message.Set_Token('NAME','IGS_AD_VAL_AALP.corp_val_lpt_phrase');
68 	    IGS_GE_MSG_STACK.ADD;
69 	    App_Exception.Raise_Exception;
70   END corp_val_lpt_phrase;
71   --
72   -- Validate if letter phrase is closed.
73   FUNCTION corp_val_ltp_closed(
74   p_phrase_cd IN VARCHAR2 ,
75   p_message_name OUT NOCOPY VARCHAR2 )
76   RETURN BOOLEAN IS
77   BEGIN	-- corp_val_ltp_closed
78   	-- Validate if IGS_CO_LTR_PHR is closed.
79   DECLARE
80   	v_closed_ind	IGS_CO_LTR_PHR.closed_ind%TYPE	DEFAULT 'N';
81   	CURSOR c_ltp IS
82   		SELECT	closed_ind
83   		FROM	IGS_CO_LTR_PHR
84   		WHERE	phrase_cd = p_phrase_cd;
85   BEGIN
86   	p_message_name := null;
87   	OPEN c_ltp;
88   	FETCH c_ltp INTO v_closed_ind;
89   	CLOSE c_ltp;
90   	IF (v_closed_ind = 'Y') THEN
91 		p_message_name := 'IGS_CO_LETTER_PHRASE_CLOSED';
92   		RETURN FALSE;
93   	END IF;
94   	RETURN TRUE;
95   END;
96   EXCEPTION
97   	WHEN OTHERS THEN
98 	    Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
99 	    Fnd_Message.Set_Token('NAME','IGS_AD_VAL_AALP.corp_val_ltp_closed');
100 	    IGS_GE_MSG_STACK.ADD;
101 	    App_Exception.Raise_Exception;
102   END corp_val_ltp_closed;
103 
104 END IGS_AD_VAL_AALP;