1 PACKAGE BODY IGS_AD_VAL_EDTL AS
2 /* $Header: IGSAD57B.pls 115.4 2002/11/28 21:36:44 nsidana ship $ */
3 --msrinivi 24-AUG-2001 Bug No. 1956374 .The function genp_val_prsn_id removed
4 --
5 -- Validate either the ou code or employer fld is set
6 FUNCTION admp_val_edtl_emplyr(
7 p_org_unit_cd IN VARCHAR2 ,
8 p_employer IN VARCHAR2 ,
9 p_message_name OUT NOCOPY VARCHAR2)
10 RETURN BOOLEAN IS
11 BEGIN -- admp_val_edtl_emplyr
12 -- This module validates that either the org_unit_cd or
13 -- the employer field of an IGS_AD_EMP_DTL record has been set.
14 BEGIN
15 p_message_name := null;
16 IF p_org_unit_cd IS NULL AND
17 p_employer IS NULL THEN
18 p_message_name := 'IGS_AD_ORGUNIT_EMPFLD_SPECIFY';
19 RETURN FALSE;
20 END IF;
21 RETURN TRUE;
22 END;
23 EXCEPTION
24 WHEN OTHERS THEN
25 FND_MESSAGE.SET_NAME('IGS','IGS_GE_UNHANDLED_EXP');
26 FND_MESSAGE.SET_TOKEN('NAME','IGS_AD_VAL_EDTL.admp_val_edtl_emplyr');
27 IGS_GE_MSG_STACK.ADD;
28 END admp_val_edtl_emplyr;
29 --
30 -- To validate that end date is greater than or equal to start date.
31 FUNCTION GENP_VAL_STRT_END_DT(
32 p_start_dt IN DATE ,
33 p_end_dt IN DATE ,
34 p_message_name OUT NOCOPY VARCHAR2)
35 RETURN BOOLEAN IS
36 BEGIN
37 IF p_end_dt < p_start_dt THEN
38 p_message_name := 'IGS_GE_INVALID_DATE';
39 RETURN FALSE;
40 END IF;
41 p_message_name := null;
42 RETURN TRUE;
43 END GENP_VAL_STRT_END_DT;
44 END IGS_AD_VAL_EDTL;