1 PACKAGE BODY IGS_PS_VAL_CALul AS
2 /* $Header: IGSPS15B.pls 115.5 2002/11/29 02:57:01 nsidana ship $ */
3 --
4 -- Validate that the IGS_PS_UNIT version exists.
5 FUNCTION crsp_val_uv_exists(
6 p_unit_cd IN VARCHAR2 ,
7 p_version_number IN NUMBER ,
8 p_message_name OUT NOCOPY VARCHAR2 )
9 RETURN BOOLEAN AS
10 v_check CHAR;
11 CURSOR c_sel_unit_version IS
12 SELECT 'x'
13 FROM IGS_PS_UNIT_VER
14 WHERE unit_cd = p_unit_cd AND
15 version_number = p_version_number;
16 BEGIN
17 OPEN c_sel_unit_version;
18 FETCH c_sel_unit_version INTO v_check;
19 -- validate the IGS_PS_UNIT version exists
20 IF (c_sel_unit_version%NOTFOUND) THEN
21 CLOSE c_sel_unit_version;
22 p_message_name := 'IGS_PS_UNITCODE_UNITVER_NE';
23 RETURN FALSE;
24 END IF;
25 CLOSE c_sel_unit_version;
26 p_message_name := NULL;
27 RETURN TRUE;
28 EXCEPTION
29 WHEN OTHERS THEN
30 Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXCEPTION');
31 Fnd_Message.Set_Token('NAME','IGS_PS_VAL_CALUL.crsp_val_uv_exists');
32 IGS_GE_MSG_STACK.ADD;
33 App_Exception.Raise_Exception;
34 END crsp_val_uv_exists;
35 --
36 -- Validate IGS_PS_UNIT version system status.
37 FUNCTION crsp_val_uv_sys_sts(
38 p_unit_cd IN VARCHAR2 ,
39 p_version_number IN NUMBER ,
40 p_message_name OUT NOCOPY VARCHAR2 )
41 RETURN BOOLEAN AS
42 v_s_unit_status IGS_PS_UNIT_STAT.s_unit_status%TYPE;
43 CURSOR c_get_s_unit_status IS
44 SELECT s_unit_status
45 FROM IGS_PS_UNIT_VER,
46 IGS_PS_UNIT_STAT
47 WHERE unit_cd = p_unit_cd AND
48 version_number = p_version_number AND
49 IGS_PS_UNIT_VER.unit_status = IGS_PS_UNIT_STAT.unit_status;
50 BEGIN
51 p_message_name := NULL;
52 OPEN c_get_s_unit_status;
53 FETCH c_get_s_unit_status INTO v_s_unit_status;
54 IF c_get_s_unit_status%NOTFOUND THEN
55 CLOSE c_get_s_unit_status;
56 RETURN TRUE;
57 END IF;
58 CLOSE c_get_s_unit_status;
59 -- Validate the system status of the IGS_PS_UNIT version
60 IF (v_s_unit_status <> 'INACTIVE') THEN
61 RETURN TRUE;
62 END IF;
63 p_message_name := 'IGS_PS_UNITVER_ST_ACTIVEPLANN';
64 RETURN FALSE;
65
66 END crsp_val_uv_sys_sts;
67 END IGS_PS_VAL_CALul;