1 PACKAGE BODY IGS_ST_VAL_ULA AS
2 /* $Header: IGSST16B.pls 115.5 2002/11/29 04:13:04 nsidana ship $ */
3 /*
4 || Bug ID 1956374 - Removal of Duplicate Program Units from OSS.
5 || Removed program unit (STAP_VAL_CI_STATUS) - from the spec and body. -- kdande
6 */
7 --
8 -- Validate the unit load apportion unit version status.
9 FUNCTION stap_val_ula_uv_sts(
10 p_unit_cd IN VARCHAR2 ,
11 p_version_number IN NUMBER ,
12 p_message_name OUT NOCOPY VARCHAR2)
13 RETURN BOOLEAN IS
14 gv_other_detail VARCHAR2(255);
15 BEGIN
16 DECLARE
17 v_s_unit_status IGS_PS_UNIT_STAT.s_unit_status%TYPE;
18 CURSOR c_uv IS
19 SELECT us.s_unit_status
20 FROM IGS_PS_UNIT_VER uv,
21 IGS_PS_UNIT_STAT us
22 WHERE uv.unit_cd = p_unit_cd AND
23 uv.version_number = p_version_number AND
24 us.unit_status = uv.unit_status;
25 BEGIN
26 --Validate the unit load apportion unit version status. The unit
27 -- version must have a system status of Planned or Active.
28 OPEN c_uv;
29 FETCH c_uv INTO v_s_unit_status;
30 IF(c_uv%FOUND) THEN
31 CLOSE c_uv;
32 --Validate the unit status.
33 IF (v_s_unit_status <> 'ACTIVE' AND
34 v_s_unit_status <> 'PLANNED') THEN
35 --p_message_num := 1988;
36 p_message_name := 'IGS_ST_UNT_OFF_BE_ACTIVE_PLAN';
37 RETURN FALSE;
38 END IF;
39 ELSE
40 CLOSE c_uv;
41 END IF;
42 --- Set the default message number
43 p_message_name := null;
44 --- Return the default value
45 RETURN TRUE;
46 END;
47 EXCEPTION
48 WHEN OTHERS THEN
49 FND_MESSAGE.SET_NAME('IGS','IGS_GE_UNHANDLED_EXP');
50 FND_MESSAGE.SET_TOKEN('NAME','IGS_ST_VAL_ULA.stap_val_ula_uv_sts');
51 IGS_GE_MSG_STACK.ADD;
52 APP_EXCEPTION.RAISE_EXCEPTION;
53 END stap_val_ula_uv_sts;
54 END IGS_ST_VAL_ULA;