1 PACKAGE BODY IGS_AS_VAL_AIEM AS
2 /* $Header: IGSAS13B.pls 115.5 2002/11/28 22:42:32 nsidana ship $ */
3
4 --
5 -- Retrofitted
6 FUNCTION assp_val_aiem_catqty(
7 p_s_material_cat IGS_AS_ITM_EXAM_MTRL.s_material_cat%TYPE ,
8 p_quantity_per_student IGS_AS_ITM_EXAM_MTRL.quantity_per_student%TYPE ,
9 P_MESSAGE_NAME OUT NOCOPY VARCHAR2 )
10 RETURN BOOLEAN AS
11
12 BEGIN -- assp_val_aiem_catqty
13 -- Validate s_material_cat = 'SUPPLIED' if the quantity_per_student
14 -- is specified.
15 BEGIN
16 -- Set the default message number
17 P_MESSAGE_NAME := NULL;
18 IF (
19 p_s_material_cat <> 'SUPPLIED' AND
20 p_quantity_per_student IS NOT NULL) THEN
21 P_MESSAGE_NAME := 'IGS_AS_SYS_MATCAT_SUPPLIED';
22 RETURN FALSE;
23 END IF;
24 RETURN TRUE;
25 END;
26 EXCEPTION
27 WHEN OTHERS THEN
28 Fnd_Message.Set_Name('IGS', 'IGS_GE_UNHANDLED_EXP');
29 FND_MESSAGE.SET_TOKEN('NAME','IGS_AS_GEN_013.assp_val_aiem_catqty');
30 IGS_GE_MSG_STACK.ADD;
31 --APP_EXCEPTION.RAISE_EXCEPTION;
32 END assp_val_aiem_catqty;
33 --
34 -- Retrofitted
35 FUNCTION assp_val_ai_exmnbl(
36 p_ass_id IGS_AS_ASSESSMNT_ITM_ALL.ass_id%TYPE ,
37 P_MESSAGE_NAME OUT NOCOPY VARCHAR2 )
38 RETURN BOOLEAN AS
39
40 BEGIN -- assp_val_ai_exmnbl
41 -- Validate the assessment item is examinable.
42 DECLARE
43 CURSOR c_atyp IS
44 SELECT 'x'
45 FROM IGS_AS_ASSESSMNT_TYP atyp,
46 IGS_AS_ASSESSMNT_ITM ai
47 WHERE atyp.assessment_type = ai.assessment_type AND
48 ai.ass_id = p_ass_id AND
49 atyp.examinable_ind = 'N';
50 v_atyp_exists VARCHAR2(1);
51 BEGIN
52 -- Set the default message number
53 P_MESSAGE_NAME := NULL;
54 OPEN c_atyp;
55 FETCH c_atyp INTO v_atyp_exists;
56 IF (c_atyp%FOUND) THEN
57 CLOSE c_atyp;
58 -- The assessment item is not examinable.
59 P_MESSAGE_NAME := 'IGS_AS_ASSITEM_NOT_EXAMINABLE';
60 RETURN FALSE;
61 END IF;
62 CLOSE c_atyp;
63 RETURN TRUE;
64 END;
65 EXCEPTION
66 WHEN OTHERS THEN
67 Fnd_Message.Set_Name('IGS', 'IGS_GE_UNHANDLED_EXP');
68 FND_MESSAGE.SET_TOKEN('NAME','IGS_AS_GEN_013.assp_val_ai_exmnbl');
69 IGS_GE_MSG_STACK.ADD;
70 --APP_EXCEPTION.RAISE_EXCEPTION;
71 END assp_val_ai_exmnbl;
72 --
73 -- Retrofitted
74 FUNCTION assp_val_exmt_closed(
75 p_exam_material_type IGS_AS_EXM_MTRL_TYPE.exam_material_type%TYPE ,
76 P_MESSAGE_NAME OUT NOCOPY VARCHAR2 )
77 RETURN BOOLEAN AS
78
79 BEGIN -- assp_val_exmt_closed
80 -- Validate the exam material type closed indicator.
81 DECLARE
82 CURSOR c_exmt IS
83 SELECT 'x'
84 FROM IGS_AS_EXM_MTRL_TYPE
85 WHERE exam_material_type = p_exam_material_type AND
86 closed_ind = 'Y';
87 v_exmt_exists VARCHAR2(1);
88 BEGIN
89 -- Set the default message number
90 P_MESSAGE_NAME := NULL;
91 OPEN c_exmt;
92 FETCH c_exmt INTO v_exmt_exists;
93 IF (c_exmt%FOUND) THEN
94 CLOSE c_exmt;
95 -- Examination material type is closed.
96 P_MESSAGE_NAME := 'IGS_AS_EXAM_MATERIAL_TYPE_CLS';
97 RETURN FALSE;
98 END IF;
99 CLOSE c_exmt;
100 RETURN TRUE;
101 END;
102 EXCEPTION
103 WHEN OTHERS THEN
104 Fnd_Message.Set_Name('IGS', 'IGS_GE_UNHANDLED_EXP');
105 FND_MESSAGE.SET_TOKEN('NAME','IGS_AS_GEN_013.assp_val_exmt_closed');
106 IGS_GE_MSG_STACK.ADD;
107 --APP_EXCEPTION.RAISE_EXCEPTION;
108 END assp_val_exmt_closed;
109 END IGS_AS_VAL_AIEM;