1 PACKAGE BODY IGS_EN_VAL_AUSG AS
2 /* $Header: IGSEN26B.pls 115.4 2002/11/28 23:55:30 nsidana ship $ */
3
4 --
5 -- Bug ID : 1956374
6 -- sjadhav,28-aug-2001
7 -- removed FUNCTION enrp_val_aus_closed
8 -- removed function enrp_val_aus_discont
9 --
10 -- Validate the administrative unit status grade against grading schema
11 FUNCTION enrp_val_ausg_gs(
12 p_grading_schema_code IN VARCHAR2 ,
13 p_version_number IN NUMBER ,
14 p_message_name OUT NOCOPY VARCHAR2)
15 RETURN BOOLEAN AS
16 BEGIN
17 DECLARE
18
19 v_sdate DATE;
20 v_edate DATE;
21 CURSOR c_grading_schema IS
22 SELECT start_dt
23 ,end_dt
24 FROM IGS_AS_GRD_SCHEMA
25 WHERE grading_schema_cd = p_grading_schema_code AND
26 version_number = p_version_number;
27 BEGIN
28 -- Check if the grading schema is current
29 p_message_name := null;
30 OPEN c_grading_schema;
31 FETCH c_grading_schema INTO v_sdate
32 ,v_edate;
33 IF (c_grading_schema%NOTFOUND) THEN
34 CLOSE c_grading_schema;
35 RETURN TRUE;
36 END IF;
37 IF v_edate IS NULL THEN
38 IF (v_sdate <= trunc(sysdate)) THEN
39 CLOSE c_grading_schema;
40 RETURN TRUE;
41 END IF;
42 ELSE
43 IF (v_sdate <= trunc(sysdate) AND trunc(sysdate) <= v_edate) THEN
44 CLOSE c_grading_schema;
45 RETURN TRUE;
46 END IF;
47 END IF;
48 p_message_name := 'IGS_EN_INVALID_GRAD_SCHMEA';
49 CLOSE c_grading_schema;
50 RETURN FALSE;
51 EXCEPTION
52 WHEN OTHERS THEN
53 Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
54 FND_MESSAGE.SET_TOKEN('NAME','IGS_EN_VAL_AUSG.enrp_val_ausg_gs');
55 IGS_GE_MSG_STACK.ADD;
56 App_Exception.Raise_Exception;
57
58 END;
59 END enrp_val_ausg_gs;
60 END IGS_EN_VAL_AUSG;