1 PACKAGE BODY IGS_CO_VAL_LPT AS
2 /* $Header: IGSCO13B.pls 115.4 2002/11/28 23:05:46 nsidana ship $ */
3 -- Validate if System Letter Parameter Type allows letter text to exist.
4 FUNCTION corp_val_lpt_ltr_txt(
5 p_s_letter_parameter_type IN VARCHAR2 ,
6 p_letter_text IN VARCHAR2 ,
7 p_message_name OUT NOCOPY VARCHAR2 )
8 RETURN BOOLEAN AS
9
10 BEGIN -- corp_val_lpt_ltr_txt
11 -- Validate IGS_CO_LTR_PARAM_TYPE.letter_text can not be null if
12 -- IGS_CO_S_LTR_PARAM = 'LETTERTEXT'. IGS_CO_LTR_PARAM_TYPE.letter_text
13 -- is mandatory if the IGS_CO_S_LTR_PARAM = 'LETTERTEXT'.
14 DECLARE
15 BEGIN
16 p_message_name :=Null;
17 IF (p_s_letter_parameter_type = 'LETTERTEXT') THEN
18 IF (p_letter_text IS NULL) THEN
19 p_message_name := 'IGS_CO_LETTERTXT_MAND_SYSLET';
20 RETURN FALSE;
21 END IF;
22 ELSE
23 IF (p_letter_text IS NOT NULL) THEN
24 p_message_name := 'IGS_CO_LETTERTXT_EXIST_SYSLET';
25 RETURN FALSE;
26 END IF;
27 END IF;
28 RETURN TRUE;
29 END;
30
31 END corp_val_lpt_ltr_txt;
32 --
33 -- Validate if System Letter Parameter Type is closed.
34 FUNCTION corp_val_slpt_closed(
35 p_s_letter_parameter_type IN CHAR ,
36 p_message_name OUT NOCOPY VARCHAR2 )
37 RETURN BOOLEAN AS
38
39 BEGIN -- corp_val_slpt_closed
40 -- Validate if IGS_CO_S_LTR_PARAM is closed.
41 DECLARE
42 v_closed_ind IGS_CO_S_LTR_PARAM.closed_ind%TYPE DEFAULT NULL;
43 CURSOR c_slpt IS
44 SELECT closed_ind
45 FROM IGS_CO_S_LTR_PARAM
46 WHERE s_letter_parameter_type = p_s_letter_parameter_type;
47 BEGIN
48 p_message_name := Null;
49 OPEN c_slpt;
50 FETCH c_slpt INTO v_closed_ind;
51 CLOSE c_slpt;
52 IF (v_closed_ind = 'Y') THEN
53 p_message_name := 'IGS_CO_SYS_LETTER_PARAM_CLS';
54 RETURN FALSE;
55 END IF;
56 RETURN TRUE;
57 END;
58
59 END corp_val_slpt_closed;
60 END IGS_CO_VAL_LPT;