1 PACKAGE BODY IGS_PS_VAL_CAW AS
2 /* $Header: IGSPS17B.pls 115.4 2002/11/29 02:57:29 nsidana ship $ */
3 -------------------------------------------------------------------------------------------
4 --Change History:
5 --Who When What
6 --smadathi 27-AUG-2001 Bug No. 1956374 .The function GRDP_VAL_AWARD_TYPE removed.
7 -- Also call to IGS_PS_VAL_CAW.grdp_val_award_type is replaced by
8 -- IGS_GR_VAL_AWC.GRDP_VAL_AWARD_TYPE
9 --avenkatr 30-AUG-2001 Bug No 1956374. Removed function "crsp_val_aw_closed"
10 --avenkatr 30-AUG-2001 Bug No 1956374. Removed function "crsp_val_cfos_caw"
11 -------------------------------------------------------------------------------------------
12 -- Validate the IGS_PS_COURSE IGS_PS_AWD - IGS_PS_AWD code.
13 FUNCTION crsp_val_caw_award(
14 p_award_cd IN VARCHAR2 ,
15 p_message_name OUT NOCOPY VARCHAR2 )
16 RETURN BOOLEAN AS
17 BEGIN
18 -- check the IGS_PS_AWD is open
19 IF IGS_gr_val_awc.crsp_val_aw_closed(
20 p_award_cd,
21 p_message_name) = FALSE THEN
22 RETURN FALSE;
23 END IF;
24 -- validate the system IGS_PS_AWD type is IGS_PS_COURSE
25 IF igs_gr_val_awc.grdp_val_award_type(
26 p_award_cd,
27 'COURSE',
28 p_message_name) = FALSE THEN
29 RETURN FALSE;
30 END IF;
31 RETURN TRUE;
32 EXCEPTION
33 WHEN OTHERS THEN
34 Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXCEPTION');
35 Fnd_Message.Set_Token('NAME','IGS_PS_VAL_CAW.crsp_val_caw_award');
36 IGS_GE_MSG_STACK.ADD;
37 App_Exception.Raise_Exception;
38 END crsp_val_caw_award;
39 --
40 --
41 -- Validate an insert on the IGS_PS_COURSE IGS_PS_AWD table.
42 FUNCTION crsp_val_caw_insert(
43 p_course_cd IN VARCHAR2 ,
44 p_version_number IN NUMBER ,
45 p_message_name OUT NOCOPY VARCHAR2 )
46 RETURN BOOLEAN AS
47 v_award_crs_ind IGS_PS_TYPE.award_course_ind%TYPE;
48 CURSOR c_get_award_crs_ind IS
49 SELECT award_course_ind
50 FROM IGS_PS_VER,
51 IGS_PS_TYPE
52 WHERE course_cd = p_course_cd AND
53 version_number = p_version_number AND
54 IGS_PS_VER.course_type = IGS_PS_TYPE.course_type;
55 BEGIN
56 OPEN c_get_award_crs_ind;
57 FETCH c_get_award_crs_ind INTO v_award_crs_ind;
58 IF (c_get_award_crs_ind%FOUND) THEN
59 CLOSE c_get_award_crs_ind;
60 -- validate the insert of IGS_PS_AWARD record
61 IF (v_award_crs_ind <> 'Y') THEN
62 p_message_name := 'IGS_PS_PRGAWARD_MAYNOT_CREAT';
63 RETURN FALSE;
64 END IF;
65 ELSE
66 CLOSE c_get_award_crs_ind;
67 END IF;
68 p_message_name := NULL;
69 RETURN TRUE;
70 EXCEPTION
71 WHEN OTHERS THEN
72 Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXCEPTION');
73 Fnd_Message.Set_Token('NAME','IGS_PS_VAL_CAW.crsp_val_caw_insert');
74 IGS_GE_MSG_STACK.ADD;
75 App_Exception.Raise_Exception;
76 END crsp_val_caw_insert;
77 END IGS_PS_VAL_CAW;