18: -- Validate s_loc_type = 'EXAM_CTR'.
19: DECLARE
20: CURSOR c_lot IS
21: SELECT 'x'
22: FROM IGS_AD_LOCATION_TYPE lot,
23: IGS_AD_LOCATION loc
24: WHERE lot.location_type = loc.location_type AND
25: loc.location_cd = p_exam_location_cd AND
26: lot.s_location_type <> 'EXAM_CTR';
19: DECLARE
20: CURSOR c_lot IS
21: SELECT 'x'
22: FROM IGS_AD_LOCATION_TYPE lot,
23: IGS_AD_LOCATION loc
24: WHERE lot.location_type = loc.location_type AND
25: loc.location_cd = p_exam_location_cd AND
26: lot.s_location_type <> 'EXAM_CTR';
27: v_lot_exists VARCHAR2(1);
49:
50: --
51: -- Validate location closed indicator.
52: FUNCTION orgp_val_loc_closed(
53: p_location_cd IN IGS_AD_LOCATION_ALL.location_cd%TYPE ,
54: P_MESSAGE_NAME OUT NOCOPY VARCHAR2 )
55: RETURN BOOLEAN AS
56:
57: BEGIN -- orgp_val_loc_closed
57: BEGIN -- orgp_val_loc_closed
58: -- Validate the location closed indicator
59: DECLARE
60: CURSOR c_loc(
61: cp_location_cd IGS_AD_LOCATION.location_cd%TYPE) IS
62: SELECT closed_ind
63: FROM IGS_AD_LOCATION
64: WHERE location_cd = cp_location_cd;
65: v_loc_rec c_loc%ROWTYPE;
59: DECLARE
60: CURSOR c_loc(
61: cp_location_cd IGS_AD_LOCATION.location_cd%TYPE) IS
62: SELECT closed_ind
63: FROM IGS_AD_LOCATION
64: WHERE location_cd = cp_location_cd;
65: v_loc_rec c_loc%ROWTYPE;
66: cst_yes CONSTANT CHAR := 'Y';
67: BEGIN