8: --avenkatr 30-AUG-2001 Bug No 1956374. Removed procedure "crsp_val_crs_ci"
9: -------------------------------------------------------------------------------------------
10: --
11:
12: -- Validate IGS_PS_COURSE IGS_AD_LOCATION code.
13: FUNCTION crsp_val_loc_cd(
14: p_location_cd IN VARCHAR2 ,
15: p_message_name OUT NOCOPY VARCHAR2 )
16: RETURN BOOLEAN AS
13: FUNCTION crsp_val_loc_cd(
14: p_location_cd IN VARCHAR2 ,
15: p_message_name OUT NOCOPY VARCHAR2 )
16: RETURN BOOLEAN AS
17: v_location_closed_ind IGS_AD_LOCATION.closed_ind%TYPE;
18: v_location_type IGS_AD_LOCATION.location_type%TYPE;
19: v_s_location_type IGS_AD_LOCATION_TYPE.s_location_type%TYPE;
20: CURSOR c_location_cd(
21: cp_location_cd IGS_AD_LOCATION.location_cd%TYPE) IS
14: p_location_cd IN VARCHAR2 ,
15: p_message_name OUT NOCOPY VARCHAR2 )
16: RETURN BOOLEAN AS
17: v_location_closed_ind IGS_AD_LOCATION.closed_ind%TYPE;
18: v_location_type IGS_AD_LOCATION.location_type%TYPE;
19: v_s_location_type IGS_AD_LOCATION_TYPE.s_location_type%TYPE;
20: CURSOR c_location_cd(
21: cp_location_cd IGS_AD_LOCATION.location_cd%TYPE) IS
22: SELECT IGS_AD_LOCATION.closed_ind,
15: p_message_name OUT NOCOPY VARCHAR2 )
16: RETURN BOOLEAN AS
17: v_location_closed_ind IGS_AD_LOCATION.closed_ind%TYPE;
18: v_location_type IGS_AD_LOCATION.location_type%TYPE;
19: v_s_location_type IGS_AD_LOCATION_TYPE.s_location_type%TYPE;
20: CURSOR c_location_cd(
21: cp_location_cd IGS_AD_LOCATION.location_cd%TYPE) IS
22: SELECT IGS_AD_LOCATION.closed_ind,
23: location_type
17: v_location_closed_ind IGS_AD_LOCATION.closed_ind%TYPE;
18: v_location_type IGS_AD_LOCATION.location_type%TYPE;
19: v_s_location_type IGS_AD_LOCATION_TYPE.s_location_type%TYPE;
20: CURSOR c_location_cd(
21: cp_location_cd IGS_AD_LOCATION.location_cd%TYPE) IS
22: SELECT IGS_AD_LOCATION.closed_ind,
23: location_type
24: FROM IGS_AD_LOCATION
25: WHERE location_cd = cp_location_cd;
18: v_location_type IGS_AD_LOCATION.location_type%TYPE;
19: v_s_location_type IGS_AD_LOCATION_TYPE.s_location_type%TYPE;
20: CURSOR c_location_cd(
21: cp_location_cd IGS_AD_LOCATION.location_cd%TYPE) IS
22: SELECT IGS_AD_LOCATION.closed_ind,
23: location_type
24: FROM IGS_AD_LOCATION
25: WHERE location_cd = cp_location_cd;
26: CURSOR c_location_type(
20: CURSOR c_location_cd(
21: cp_location_cd IGS_AD_LOCATION.location_cd%TYPE) IS
22: SELECT IGS_AD_LOCATION.closed_ind,
23: location_type
24: FROM IGS_AD_LOCATION
25: WHERE location_cd = cp_location_cd;
26: CURSOR c_location_type(
27: cp_location_type IGS_AD_LOCATION_TYPE.location_type%TYPE) IS
28: SELECT s_location_type
23: location_type
24: FROM IGS_AD_LOCATION
25: WHERE location_cd = cp_location_cd;
26: CURSOR c_location_type(
27: cp_location_type IGS_AD_LOCATION_TYPE.location_type%TYPE) IS
28: SELECT s_location_type
29: FROM IGS_AD_LOCATION_TYPE
30: WHERE location_type = cp_location_type;
31: BEGIN
25: WHERE location_cd = cp_location_cd;
26: CURSOR c_location_type(
27: cp_location_type IGS_AD_LOCATION_TYPE.location_type%TYPE) IS
28: SELECT s_location_type
29: FROM IGS_AD_LOCATION_TYPE
30: WHERE location_type = cp_location_type;
31: BEGIN
32: -- This module based on the parameter performs validations
33: -- for for the IGS_AD_LOCATION code within the CS and P subsystem
29: FROM IGS_AD_LOCATION_TYPE
30: WHERE location_type = cp_location_type;
31: BEGIN
32: -- This module based on the parameter performs validations
33: -- for for the IGS_AD_LOCATION code within the CS and P subsystem
34: p_message_name := NULL;
35: v_location_closed_ind := NULL;
36: -- Test the value of closed indicator
37: OPEN c_location_cd(
46: p_message_name := 'IGS_PS_LOC_CODE_CLOSED';
47: RETURN FALSE;
48: END IF;
49: END IF;
50: -- Test the value of system IGS_AD_LOCATION type
51: OPEN c_location_type(
52: v_location_type);
53: FETCH c_location_type INTO v_s_location_type;
54: CLOSE c_location_type;
161: p_ci_sequence_number,
162: p_message_name) = FALSE THEN
163: RETURN FALSE;
164: END IF;
165: --- Check for closed IGS_AD_LOCATION code.
166: IF IGS_PS_VAL_UOo.crsp_val_loc_cd(p_location_cd,
167: p_message_name) = FALSE THEN
168: RETURN FALSE;
169: END IF;