APPS.IGS_PS_VAL_CALUL dependencies on IGS_PS_UNIT_VER

Line 4: -- Validate that the IGS_PS_UNIT version exists.

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 )

Line 13: FROM IGS_PS_UNIT_VER

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;

Line 19: -- validate the IGS_PS_UNIT version exists

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;

Line 36: -- Validate IGS_PS_UNIT version system status.

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 )

Line 45: FROM IGS_PS_UNIT_VER,

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;

Line 49: IGS_PS_UNIT_VER.unit_status = IGS_PS_UNIT_STAT.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;

Line 59: -- Validate the system status of the IGS_PS_UNIT version

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';