1 PACKAGE BODY IGS_EN_VAL_AUSL AS
2 /* $Header: IGSEN27B.pls 115.4 2002/11/28 23:55:44 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 --msrinivi bug 1956374 Removed func genp_prc_clear_rowid
7 */
8 --
9 -- bug id : 1956374
10 -- sjadhav , 28-aug-2001
11 -- removed enrp_val_aus_closed
12 --
13 -- Validate the AUS UNIT attempt status is 'DISCONTIN'
14 FUNCTION enrp_val_ausl_aus(
15 p_aus IN VARCHAR2 ,
16 p_message_name OUT NOCOPY VARCHAR2)
17 RETURN BOOLEAN AS
18 BEGIN
19 DECLARE
20
21 v_unit_att_status IGS_AD_ADM_UNIT_STAT.unit_attempt_status%TYPE;
22 CURSOR c_aus IS
23 SELECT unit_attempt_status
24 FROM IGS_AD_ADM_UNIT_STAT
25 WHERE administrative_unit_status = p_aus;
26 BEGIN
27 -- Check if the IGS_AD_ADM_UNIT_STAT is closed
28 p_message_name := null;
29 OPEN c_aus;
30 FETCH c_aus INTO v_unit_att_status;
31 IF (c_aus%NOTFOUND) THEN
32 CLOSE c_aus;
33 RETURN TRUE;
34 END IF;
35 IF (v_unit_att_status <> 'DISCONTIN') THEN
36 CLOSE c_aus;
37 p_message_name := 'IGS_EN_LOAD_APPLICABLE';
38 RETURN FALSE;
39 END IF;
40 CLOSE c_aus;
41 RETURN TRUE;
42 EXCEPTION
43 WHEN OTHERS THEN
44 Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
45 FND_MESSAGE.SET_TOKEN('NAME','IGS_EN_VAL_AUSL.enrp_val_ausl_aus');
46 IGS_GE_MSG_STACK.ADD;
47 App_Exception.Raise_Exception;
48
49 END;
50 END enrp_val_ausl_aus;
51 END IGS_EN_VAL_AUSL;