1 PACKAGE BODY IGS_EN_VAL_ADT AS
2 /* $Header: IGSEN22B.pls 115.3 2002/11/28 23:54:27 nsidana ship $ */
3
4 --
5 -- Validate the address type correspondence indicator
6 FUNCTION enrp_val_adt_corr(
7 p_correspondence_ind IN VARCHAR2 DEFAULT 'N',
8 p_line1_mail_ind IN VARCHAR2 DEFAULT 'N',
9 p_line2_mail_ind IN VARCHAR2 DEFAULT 'N',
10 p_line3_mail_ind IN VARCHAR2 DEFAULT 'N',
11 p_line4_mail_ind IN VARCHAR2 DEFAULT 'N',
12 p_line5_mail_ind IN VARCHAR2 DEFAULT 'N',
13 p_line6_mail_ind IN VARCHAR2 DEFAULT 'N',
14 p_line7_mail_ind IN VARCHAR2 DEFAULT 'N',
15 p_message_name OUT NOCOPY VARCHAR2)
16 RETURN BOOLEAN AS
17 BEGIN
18 DECLARE
19
20 BEGIN
21 -- If the IGS_CO_ADDR_TYPE.correspondence_ind field has been set,
22 -- then at least one of the first five IGS_CO_ADDR_TYPE.mail_ind fields also needs
23 -- to be set
24 IF (p_correspondence_ind = 'Y') THEN
25 IF (p_line1_mail_ind = 'N' AND
26 p_line2_mail_ind = 'N' AND
27 p_line3_mail_ind = 'N' AND
28 p_line4_mail_ind = 'N' AND
29 p_line5_mail_ind = 'N') OR
30 (p_line6_mail_ind = 'N' AND
31 p_line7_mail_ind = 'N')
32 THEN
33 p_message_name := 'IGS_EN_CHK_ADDRESS';
34 RETURN FALSE;
35 END IF;
36 END IF;
37 p_message_name := null;
38 RETURN TRUE;
39 EXCEPTION
40 WHEN OTHERS THEN
41 Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
42 FND_MESSAGE.SET_TOKEN('NAME','IGS_EN_VAL_ADT.enrp_val_adt_corr');
43 IGS_GE_MSG_STACK.ADD;
44 App_Exception.Raise_Exception;
45
46 END;
47 END enrp_val_adt_corr;
48 --
49 -- Validate the address type postcode and overseas code optionality
50 FUNCTION enrp_val_adt_codes(
51 p_line6_dis_ind IN VARCHAR2 DEFAULT 'N',
52 p_line7_dis_ind IN VARCHAR2 DEFAULT 'N',
53 p_line6_opt_ind IN VARCHAR2 DEFAULT 'N',
54 p_line7_opt_ind IN VARCHAR2 DEFAULT 'N',
55 p_message_name OUT NOCOPY VARCHAR2)
56 RETURN BOOLEAN AS
57 BEGIN
58 DECLARE
59
60 BEGIN
61 -- If both line6_dis_ind and line7_dis_ind are set,
62 -- then neither line6_opt_ind or line7_opt_ind can be set
63 IF (p_line6_dis_ind = 'Y') AND (p_line7_dis_ind = 'Y') THEN
64 IF (p_line6_opt_ind = 'Y') OR (p_line7_opt_ind = 'Y') THEN
65 p_message_name := 'IGS_EN_CHK_CD_OVRSEAS_CD';
66 RETURN FALSE;
67 END IF;
68 END IF;
69 p_message_name := null;
70 RETURN TRUE;
71 EXCEPTION
72 WHEN OTHERS THEN
73 Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
74 FND_MESSAGE.SET_TOKEN('NAME','IGS_EN_VAL_ADT.enrp_val_adt_codes');
75 IGS_GE_MSG_STACK.ADD;
76 App_Exception.Raise_Exception;
77
78 END;
79 END enrp_val_adt_codes;
80 END IGS_EN_VAL_ADT;