1: PACKAGE BODY IGS_OR_VAL_LOC AS
2: /* $Header: IGSOR05B.pls 115.7 2002/11/29 01:46:53 nsidana ship $ */
3: --msrinivi 24-AUG-2001 Bug No. 1956374 .The function genp_val_prsn_id removed
4: -- Validate the IGS_AD_LOCATION type.
5: FUNCTION orgp_val_loc_type(
6: p_location_type IN VARCHAR2 ,
7: p_message_name OUT NOCOPY VARCHAR2 )
8: RETURN BOOLEAN IS
7: p_message_name OUT NOCOPY VARCHAR2 )
8: RETURN BOOLEAN IS
9: CURSOR c_lot IS
10: SELECT closed_ind
11: FROM IGS_AD_LOCATION_TYPE
12: WHERE location_type = p_location_type
13: AND closed_ind = 'Y';
14: v_other_detail VARCHAR2(255);
15: BEGIN
27: END orgp_val_loc_type;
28: --
29: -- Retrofitted
30: FUNCTION assp_val_loc_coord(
31: p_location_type IGS_AD_LOCATION_ALL.location_type%TYPE ,
32: p_coord_person_id IGS_AD_LOCATION_ALL.coord_person_id%TYPE ,
33: P_MESSAGE_NAME OUT NOCOPY VARCHAR2 )
34: RETURN BOOLEAN AS
35: gv_other_detail VARCHAR2(255);
28: --
29: -- Retrofitted
30: FUNCTION assp_val_loc_coord(
31: p_location_type IGS_AD_LOCATION_ALL.location_type%TYPE ,
32: p_coord_person_id IGS_AD_LOCATION_ALL.coord_person_id%TYPE ,
33: P_MESSAGE_NAME OUT NOCOPY VARCHAR2 )
34: RETURN BOOLEAN AS
35: gv_other_detail VARCHAR2(255);
36: BEGIN -- assp_val_loc_coord
34: RETURN BOOLEAN AS
35: gv_other_detail VARCHAR2(255);
36: BEGIN -- assp_val_loc_coord
37: -- Validate that the co-ordinator has been specified when the location
38: -- is an examination IGS_AD_LOCATION (ie; the system location type is 'EXAM_CTR').
39: DECLARE
40: v_s_location_type IGS_AD_LOCATION_TYPE.s_location_type%TYPE;
41: BEGIN
42: -- Set the default message number
36: BEGIN -- assp_val_loc_coord
37: -- Validate that the co-ordinator has been specified when the location
38: -- is an examination IGS_AD_LOCATION (ie; the system location type is 'EXAM_CTR').
39: DECLARE
40: v_s_location_type IGS_AD_LOCATION_TYPE.s_location_type%TYPE;
41: BEGIN
42: -- Set the default message number
43: p_message_name := NULL;
44: -- Fetch system location type.
62: END assp_val_loc_coord;
63: --
64: -- Retrofitted
65: FUNCTION assp_val_loc_ve_open(
66: p_location_cd IGS_AD_LOCATION_ALL.location_cd%TYPE ,
67: p_location_type IGS_AD_LOCATION_ALL.location_type%TYPE ,
68: p_closed_ind IGS_AD_LOCATION_ALL.closed_ind%TYPE ,
69: P_MESSAGE_NAME OUT NOCOPY VARCHAR2 )
70: RETURN BOOLEAN AS
63: --
64: -- Retrofitted
65: FUNCTION assp_val_loc_ve_open(
66: p_location_cd IGS_AD_LOCATION_ALL.location_cd%TYPE ,
67: p_location_type IGS_AD_LOCATION_ALL.location_type%TYPE ,
68: p_closed_ind IGS_AD_LOCATION_ALL.closed_ind%TYPE ,
69: P_MESSAGE_NAME OUT NOCOPY VARCHAR2 )
70: RETURN BOOLEAN AS
71: gv_other_detail VARCHAR2(255);
64: -- Retrofitted
65: FUNCTION assp_val_loc_ve_open(
66: p_location_cd IGS_AD_LOCATION_ALL.location_cd%TYPE ,
67: p_location_type IGS_AD_LOCATION_ALL.location_type%TYPE ,
68: p_closed_ind IGS_AD_LOCATION_ALL.closed_ind%TYPE ,
69: P_MESSAGE_NAME OUT NOCOPY VARCHAR2 )
70: RETURN BOOLEAN AS
71: gv_other_detail VARCHAR2(255);
72: BEGIN -- assp_val_loc_ve_open
72: BEGIN -- assp_val_loc_ve_open
73: -- Validate that an examination location can not be closed if any
74: -- related IGS_GR_VENUE records are not closed.
75: DECLARE
76: v_s_location_type IGS_AD_LOCATION.location_type%TYPE;
77: CURSOR c_ve IS
78: SELECT 'x'
79: FROM IGS_GR_VENUE
80: WHERE exam_location_cd = p_location_cd AND
111: END assp_val_loc_ve_open;
112: --
113: -- Retrofitted
114: FUNCTION assp_val_loc_ve_xist(
115: p_location_cd IGS_AD_LOCATION_ALL.location_cd%TYPE ,
116: p_new_location_type IGS_AD_LOCATION_ALL.location_type%TYPE ,
117: P_MESSAGE_NAME OUT NOCOPY VARCHAR2 )
118: RETURN BOOLEAN AS
119: gv_other_detail VARCHAR2(255);
112: --
113: -- Retrofitted
114: FUNCTION assp_val_loc_ve_xist(
115: p_location_cd IGS_AD_LOCATION_ALL.location_cd%TYPE ,
116: p_new_location_type IGS_AD_LOCATION_ALL.location_type%TYPE ,
117: P_MESSAGE_NAME OUT NOCOPY VARCHAR2 )
118: RETURN BOOLEAN AS
119: gv_other_detail VARCHAR2(255);
120: BEGIN -- assp_val_loc_ve_xist
121: -- Validate that the exam location can not be changed to a non-exam
122: -- location once venue or other examination related tables are related.
123: DECLARE
124: cst_exam_ctr CONSTANT VARCHAR2(10) := 'EXAM_CTR';
125: v_s_location_type IGS_AD_LOCATION_TYPE.s_location_type%TYPE;
126: CURSOR c_ve IS
127: SELECT 'x'
128: FROM IGS_GR_VENUE
129: WHERE exam_location_cd = p_location_cd;