1: PACKAGE BODY IGS_PS_VAL_UCl AS
2: /* $Header: IGSPS60B.pls 115.3 2002/11/29 03:08:39 nsidana ship $ */
3:
4: --
5: -- Validate the IGS_PS_UNIT mode for IGS_PS_UNIT class.
28: END IF;
29: EXCEPTION
30: WHEN OTHERS THEN
31: Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXCEPTION');
32: FND_MESSAGE.SET_TOKEN('NAME','IGS_PS_VAL_UCl.crsp_val_ucl_um');
33: IGS_GE_MSG_STACK.ADD;
34: App_Exception.Raise_Exception;
35: END crsp_val_ucl_um;
36: --
57: RETURN TRUE;
58: EXCEPTION
59: WHEN OTHERS THEN
60: Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXCEPTION');
61: FND_MESSAGE.SET_TOKEN('NAME','IGS_PS_VAL_UCl.crsp_val_ucl_st_end');
62: IGS_GE_MSG_STACK.ADD;
63: App_Exception.Raise_Exception;
64: END crsp_val_ucl_st_end;
65: END IGS_PS_VAL_UCl;
61: FND_MESSAGE.SET_TOKEN('NAME','IGS_PS_VAL_UCl.crsp_val_ucl_st_end');
62: IGS_GE_MSG_STACK.ADD;
63: App_Exception.Raise_Exception;
64: END crsp_val_ucl_st_end;
65: END IGS_PS_VAL_UCl;