1 PACKAGE BODY IGS_AS_VAL_ATYP AS
2 /* $Header: IGSAS15B.pls 115.4 2002/11/28 22:43:10 nsidana ship $ */
3 --
4 -- Validate system assessment type closed indicator
5 FUNCTION assp_val_sat_closed(
6 p_s_assessment_type IN IGS_AS_SASSESS_TYPE.s_assessment_type%TYPE ,
7 P_MESSAGE_NAME OUT NOCOPY VARCHAR2 )
8 RETURN BOOLEAN AS
9
10 BEGIN -- assp_val_sat_closed
11 -- Validate the System Assessment Type closed indicator
12 DECLARE
13 CURSOR c_sat(
14 cp_s_assessment_type IGS_AS_SASSESS_TYPE.s_assessment_type%TYPE) IS
15 SELECT closed_ind
16 FROM IGS_AS_SASSESS_TYPE
17 WHERE s_assessment_type = cp_s_assessment_type ;
18 v_sat_rec c_sat%ROWTYPE;
19 cst_yes CONSTANT CHAR := 'Y';
20 BEGIN
21 -- Set the default message number
22 P_MESSAGE_NAME := NULL;
23 -- Cursor handling
24 OPEN c_sat(
25 p_s_assessment_type);
26 FETCH c_sat INTO v_sat_rec;
27 IF c_sat%NOTFOUND THEN
28 CLOSE c_sat;
29 RETURN TRUE;
30 END IF;
31 CLOSE c_sat;
32 IF (v_sat_rec.closed_ind = cst_yes) THEN
33 P_MESSAGE_NAME := 'IGS_AS_SYSASSTYPE_CLOSED';
34 RETURN FALSE;
35 END IF;
36 -- Return the default value
37 RETURN TRUE;
38 END;
39 EXCEPTION
40 WHEN OTHERS THEN
41 Fnd_Message.Set_Name('IGS', 'IGS_GE_UNHANDLED_EXP');
42 FND_MESSAGE.SET_TOKEN('NAME','IGS_AS_GEN_015.assp_val_sat_closed');
43 IGS_GE_MSG_STACK.ADD;
44 --APP_EXCEPTION.RAISE_EXCEPTION;
45 END assp_val_sat_closed;
46 --
47 -- Validate assessment items exist for assessment type
48 FUNCTION assp_val_ai_exist2(
49 p_assessment_type IN IGS_AS_ASSESSMNT_ITM_ALL.assessment_type%TYPE ,
50 P_MESSAGE_NAME OUT NOCOPY VARCHAR2 )
51 RETURN BOOLEAN AS
52
53 BEGIN -- assp_val_ai_exist2
54 -- Validate assessment items exist for a particular assessment type.
55 DECLARE
56 CURSOR c_ai IS
57 SELECT 'x'
58 FROM IGS_AS_ASSESSMNT_ITM ai
59 WHERE assessment_type = p_assessment_type;
60 v_ai_exists VARCHAR2(1);
61 BEGIN
62 -- Set the default message number
63 P_MESSAGE_NAME := NULL;
64 -- Validate that an assessment_item records for the given assessment type
65 -- does not exist
66 OPEN c_ai;
67 FETCH c_ai INTO v_ai_exists;
68 IF c_ai%NOTFOUND THEN
69 CLOSE c_ai;
70 RETURN TRUE;
71 END IF;
72 CLOSE c_ai;
73 P_MESSAGE_NAME := 'IGS_AS_EXAMIND_NOT_CHG';
74 RETURN FALSE;
75 EXCEPTION
76 WHEN OTHERS THEN
77 IF c_ai%ISOPEN THEN
78 CLOSE c_ai;
79 END IF;
80 RAISE;
81 END;
82 EXCEPTION
83 WHEN OTHERS THEN
84 Fnd_Message.Set_Name('IGS', 'IGS_GE_UNHANDLED_EXP');
85 FND_MESSAGE.SET_TOKEN('NAME','IGS_AS_GEN_015.assp_val_ai_exist2');
86 IGS_GE_MSG_STACK.ADD;
87 --APP_EXCEPTION.RAISE_EXCEPTION;
88 END assp_val_ai_exist2;
89 END IGS_AS_VAL_ATYP;