1 PACKAGE BODY IGS_AD_VAL_OSES AS
2 /* $Header: IGSAD65B.pls 120.0 2005/06/01 18:04:32 appldev noship $ */
3
4 --
5 -- Validate that at least one of subject_cd or subject_desc is entered
6 FUNCTION ADMP_VAL_OSES_SUBJ(
7 p_subject_cd IN VARCHAR2 ,
8 p_subject_desc IN VARCHAR2 ,
9 p_message_name OUT NOCOPY VARCHAR2 )
10 RETURN BOOLEAN AS
11 BEGIN -- admp_val_oses_subj
12 -- This module validates IGS_AD_OS_SEC_EDU_SUB.subject_cd and
13 -- IGS_AD_OS_SEC_EDU_SUB.subject_desc to ensure that at least one
14 -- of these is entered.
15 DECLARE
16 BEGIN
17 p_message_name := null;
18 IF p_subject_cd IS NULL AND
19 p_subject_desc IS NULL THEN
20 p_message_name := 'IGS_AD_ONE_SUBCD_SUBDESC';
21 RETURN FALSE;
22 END IF;
23 RETURN TRUE;
24 END;
25 EXCEPTION
26 WHEN OTHERS THEN
27 FND_MESSAGE.SET_NAME('IGS','IGS_GE_UNHANDLED_EXP');
28 FND_MESSAGE.SET_TOKEN('NAME','IGS_AD_VAL_OSES.admp_val_oses_subj');
29 IGS_GE_MSG_STACK.ADD;
30 App_Exception.Raise_Exception;
31 END admp_val_oses_subj;
32 --
33 -- Validate tertiary edu unit attempt result type.
34 FUNCTION admp_val_teua_sret(
35 p_result_type IN VARCHAR2 ,
36 p_message_name OUT NOCOPY VARCHAR2 )
37 RETURN BOOLEAN AS
38 BEGIN -- admp_val_teua_sret
39 -- validate the IGS_AD_TER_EDU_UNI_AT result_type
40 DECLARE
41 v_check CHAR;
42 CURSOR c_srt IS
43 SELECT 'x'
44 FROM IGS_LOOKUP_VALUES
45 WHERE lookup_type = 'RESULT_TYPE'
46 AND lookup_code = p_result_type;
47 BEGIN
48 p_message_name := null;
49 IF p_result_type IS NULL THEN
50 -- This is an error, but will be handled outside this module
51 RETURN TRUE;
52 END IF;
53 IF p_result_type = 'UNKNOWN' THEN
54 RETURN TRUE;
55 END IF;
56 OPEN c_srt;
57 FETCH c_srt INTO v_check;
58 IF (c_srt%NOTFOUND) THEN
59 CLOSE c_srt;
60 p_message_name := 'IGS_GE_INVALID_VALUE';
61 RETURN FALSE;
62 END IF;
63 CLOSE c_srt;
64 RETURN TRUE;
65 END;
66 EXCEPTION
67 WHEN OTHERS THEN
68 FND_MESSAGE.SET_NAME('IGS','IGS_GE_UNHANDLED_EXP');
69 FND_MESSAGE.SET_TOKEN('NAME','IGS_AD_VAL_OSES.admp_val_teua_sret');
70 IGS_GE_MSG_STACK.ADD;
71 App_Exception.Raise_Exception;
72 END admp_val_teua_sret;
73 END IGS_AD_VAL_OSES;