[Home] [Help]
PACKAGE BODY: APPS.IGS_AD_GEN_013
Source
1 PACKAGE BODY IGS_AD_GEN_013 AS
2 /* $Header: IGSAD13B.pls 120.1 2005/09/30 04:44:09 appldev ship $ */
3
4 Function Adms_Get_Acai_Coo(
5 p_course_cd IN VARCHAR2 ,
6 p_version_number IN NUMBER ,
7 p_location_cd IN VARCHAR2 ,
8 p_attendance_mode IN VARCHAR2 ,
9 p_attendance_type IN VARCHAR2 ,
10 p_acad_cal_type IN VARCHAR2 ,
11 p_acad_ci_sequence_number IN NUMBER ,
12 p_adm_cal_type IN VARCHAR2 ,
13 p_adm_ci_sequence_number IN NUMBER ,
14 p_admission_cat IN VARCHAR2 ,
15 p_s_admission_process_type IN VARCHAR2 ,
16 p_offer_ind IN VARCHAR2 DEFAULT 'N',
17 p_appl_dt IN DATE ,
18 p_late_appl_allowed IN VARCHAR2 DEFAULT 'N',
19 p_deferred_appl IN VARCHAR2 DEFAULT 'N')
20 RETURN VARCHAR2 IS
21 v_message_name VARCHAR2(30);
22 v_return_type VARCHAR2(1);
23 v_late_ind VARCHAR2(1);
24 cst_error CONSTANT VARCHAR2(1) := 'E';
25 BEGIN
26 IF IGS_AD_VAL_ACAI.admp_val_acai_coo (
27 p_course_cd,
28 p_version_number,
29 p_location_cd,
30 p_attendance_mode,
31 p_attendance_type,
32 p_acad_cal_type,
33 p_acad_ci_sequence_number,
34 p_adm_cal_type,
35 p_adm_ci_sequence_number,
36 p_admission_cat,
37 p_s_admission_process_type,
38 p_offer_ind,
39 p_appl_dt,
40 p_late_appl_allowed,
41 p_deferred_appl,
42 v_message_name,
43 v_return_type,
44 v_late_ind) = TRUE THEN
45 -- Admission Application Course Offering Option is valid
46 Return 'Y';
47 ELSE
48 IF v_return_type = cst_error THEN
49 -- Admission Application Course Offering Option is not valid
50 Return 'N';
51 ELSE
52 -- Admission Application IGS_PS_COURSE Offering Option is valid
53 Return 'Y';
54 END IF;
55 END IF;
56 END adms_get_acai_coo;
57
58 Function Adms_Get_Acai_Course(
59 p_course_cd IN VARCHAR2 ,
60 p_version_number IN NUMBER ,
61 p_admission_cat IN VARCHAR2 ,
62 p_s_admission_process_type IN VARCHAR2 ,
63 p_acad_cal_type IN VARCHAR2 ,
64 p_acad_ci_sequence_number IN NUMBER ,
65 p_adm_cal_type IN VARCHAR2 ,
66 p_adm_ci_sequence_number IN NUMBER ,
67 p_appl_dt IN DATE ,
68 p_late_appl_allowed IN VARCHAR2 DEFAULT 'N',
69 p_offer_ind IN VARCHAR2 DEFAULT 'N')
70 RETURN VARCHAR2 IS
71 v_message_name VARCHAR2(30);
72 v_return_type VARCHAR2(1);
73 v_crv_version_number IGS_PS_VER.version_number%TYPE;
74 cst_error CONSTANT VARCHAR2(1) := 'E';
75 BEGIN
76 IF IGS_AD_VAL_ACAI.admp_val_acai_course (
77 p_course_cd,
78 p_version_number,
79 p_admission_cat,
80 p_s_admission_process_type,
81 p_acad_cal_type,
82 p_acad_ci_sequence_number,
83 p_adm_cal_type,
84 p_adm_ci_sequence_number,
85 p_appl_dt,
86 p_late_appl_allowed,
87 p_offer_ind,
88 v_crv_version_number,
89 v_message_name,
90 v_return_type) = TRUE THEN
91 -- Admission Application Course is valid
92 Return 'Y';
93 ELSE
94 -- Admission Application Course is not valid
95 IF v_return_type = cst_error THEN
96 -- Admission Application Course is not valid
97 Return 'N';
98 ELSE
99 -- Admission Application Course is valid
100 Return 'Y';
101 END IF;
102 END IF;
103 END adms_get_acai_course;
104
105 Function Adms_Get_Acai_Us(
106 p_unit_set_cd IN VARCHAR2 ,
107 p_us_version_number IN NUMBER ,
108 p_course_cd IN VARCHAR2 ,
109 p_crv_version_number IN NUMBER ,
110 p_acad_cal_type IN VARCHAR2 ,
111 p_location_cd IN VARCHAR2 ,
112 p_attendance_mode IN VARCHAR2 ,
113 p_attendance_type IN VARCHAR2 ,
114 p_admission_cat IN VARCHAR2 ,
115 p_offer_ind IN VARCHAR2 DEFAULT 'N',
116 p_unit_set_appl IN VARCHAR2 DEFAULT 'N')
117 RETURN VARCHAR2 IS
118 v_message_name VARCHAR2(30);
119 v_return_type VARCHAR2(1);
120 cst_error CONSTANT VARCHAR2(1) := 'E';
121 BEGIN
122 IF IGS_AD_VAL_ACAI.admp_val_acai_us (
123 p_unit_set_cd,
124 p_us_version_number,
125 p_course_cd,
126 p_crv_version_number,
127 p_acad_cal_type,
128 p_location_cd,
129 p_attendance_mode,
130 p_attendance_type,
131 p_admission_cat,
132 p_offer_ind,
133 p_unit_set_appl,
134 v_message_name,
135 v_return_type) = TRUE THEN
136 -- Admission Application Course Unit Set is valid
137 Return 'Y';
138 ELSE
139 IF v_return_type = cst_error THEN
140 -- Admission Application Course Unit Set is not valid
141 Return 'N';
142 ELSE
143 -- Admission Application Course Unit Set is valid
144 Return 'Y';
145 END IF;
146 END IF;
147 END adms_get_acai_us;
148
149 Function Adms_Get_Ads_Item(
150 p_adm_doc_status IN VARCHAR2 ,
151 p_s_admission_process_type IN VARCHAR2 )
152 RETURN VARCHAR2 IS
153 v_message_name VARCHAR2(30);
154 BEGIN
155 IF IGS_AD_VAL_ACAI_STATUS.admp_val_ads_item (
156 p_adm_doc_status,
157 p_s_admission_process_type,
158 v_message_name) = TRUE THEN
159 -- Admission Application Documenation Status is valid
160 Return 'Y';
161 ELSE
162 -- Admission Application Documentation Status is not valid
163 Return 'N';
164 END IF;
165 END adms_get_ads_item;
166
167 Function Adms_Get_Aeqs_Item(
168 p_adm_entry_qual_status IN VARCHAR2 ,
169 p_s_admission_process_type IN VARCHAR2 )
170 RETURN VARCHAR2 IS
171 v_message_name VARCHAR2(30);
172 BEGIN
173 IF IGS_AD_VAL_ACAI_STATUS.admp_val_aeqs_item (
174 p_adm_entry_qual_status,
175 p_s_admission_process_type,
176 v_message_name) = TRUE THEN
177 -- Admission Application Entry Qualification Status is valid
178 Return 'Y';
179 ELSE
180 -- Admission Application Entry Qualification Status is not valid
181 Return 'N';
182 END IF;
183 END adms_get_aeqs_item;
184
185 Function Adms_Get_Coo_Admperd(
186 p_adm_cal_type IN VARCHAR2 ,
187 p_adm_ci_sequence_number IN NUMBER ,
188 p_admission_cat IN VARCHAR2 ,
189 p_s_admission_process_type IN VARCHAR2 ,
190 p_course_cd IN VARCHAR2 ,
191 p_version_number IN NUMBER ,
192 p_acad_cal_type IN VARCHAR2 ,
193 p_location_cd IN VARCHAR2 ,
194 p_attendance_mode IN VARCHAR2 ,
195 p_attendance_type IN VARCHAR2 )
196 RETURN VARCHAR2 IS
197 v_message_name VARCHAR2(30);
198 BEGIN
199 IF IGS_AD_VAL_CRS_ADMPERD.admp_val_coo_admperd(
200 p_adm_cal_type,
201 p_adm_ci_sequence_number,
202 p_admission_cat,
203 p_s_admission_process_type,
204 p_course_cd,
205 p_version_number,
206 p_acad_cal_type,
207 p_location_cd,
208 p_attendance_mode,
209 p_attendance_type,
210 v_message_name) = TRUE THEN
211 -- Course Offering Option is valid in the admission period
212 Return 'Y';
213 ELSE
214 -- Course Offering Option is not valid in the admission period
215 Return 'N';
216 END IF;
217 END adms_get_coo_admperd;
218
219 -- Place the following declaration in the package specification adm_gen_013.
220 Function Adms_Get_Coo_Adm_Cat(
221 p_course_cd IN VARCHAR2 ,
222 p_version_number IN NUMBER ,
223 p_cal_type IN VARCHAR2 ,
224 p_location_cd IN VARCHAR2 ,
225 p_attendance_mode IN VARCHAR2 ,
226 p_attendance_type IN VARCHAR2 ,
227 p_admission_cat IN VARCHAR2 )
228 RETURN VARCHAR2 IS
229 v_message_name VARCHAR2(30);
230 BEGIN
231 IF IGS_AD_VAL_CRS_ADMPERD.admp_val_coo_adm_cat (
232 p_course_cd,
233 p_version_number,
234 p_cal_type,
235 p_location_cd,
236 p_attendance_mode,
237 p_attendance_type,
238 p_admission_cat,
239 v_message_name) = TRUE THEN
240 -- Course Offering Option is valid for the admission category
241 Return 'Y';
242 ELSE
243 -- IGS_PS_COURSE Offering Option is not valid for the admission category
244 Return 'N';
245 END IF;
246 END adms_get_coo_adm_cat;
247
248 Function Adms_Get_Coo_Crv(
249 p_course_cd IN VARCHAR2 ,
250 p_version_number IN NUMBER ,
251 p_s_admission_process_type IN VARCHAR2 ,
252 p_offer_ind IN VARCHAR2 DEFAULT 'N')
253 RETURN VARCHAR2 IS
254 v_message_name VARCHAR2(30);
255 BEGIN
256 IF IGS_AD_VAL_CRS_ADMPERD.admp_val_coo_crv (
257 p_course_cd,
258 p_version_number,
259 p_s_admission_process_type,
260 p_offer_ind,
261 v_message_name) = TRUE THEN
262 -- Course Offering Option Course Version is valid
263 Return 'Y';
264 ELSE
265 -- Course Offering Option Course Version is not valid
266 Return 'N';
267 END IF;
268 END adms_get_coo_crv;
269
270 FUNCTION Check_apc_Step(p_admission_cat VARCHAR2,
271 p_s_admission_process_type VARCHAR2,
272 p_s_adm_step_group_type VARCHAR2,
273 p_s_admission_step_type VARCHAR2) RETURN BOOLEAN IS
274 ----------------------------------------------------------------
275 --Created by : Navin Sinha
276 --Date created: 13-Jun-03
277 --
278 --Purpose: BUG NO : 1366894 - Interview Build.
279 --
280 --
281 --Known limitations/enhancements and/or remarks:
282 --
283 --Change History:
284 --Who When What
285 ----------------------------------------------------------------
286
287 CURSOR c_apcs IS
288 SELECT apcs.s_admission_step_type
289 FROM igs_ad_prcs_cat_step apcs
290 WHERE apcs.admission_cat = p_admission_cat AND
291 apcs.s_admission_process_type = p_s_admission_process_type AND
292 apcs.s_admission_step_type = p_s_admission_step_type AND
293 apcs.step_group_type = p_s_adm_step_group_type;
294
295 l_c_apcs c_apcs%ROWTYPE;
296 BEGIN
297 OPEN c_apcs;
298 FETCH c_apcs INTO l_c_apcs;
299 IF c_apcs%NOTFOUND THEN
300 CLOSE c_apcs;
301 RETURN FALSE;
302 ELSE
303 CLOSE c_apcs;
304 RETURN TRUE;
305 END IF;
306 END Check_apc_Step;
307
308 FUNCTION get_sys_code_status (p_name IN VARCHAR2,
309 p_class IN VARCHAR2)
310 RETURN VARCHAR2 IS
311 ----------------------------------------------------------------
312 --Created by : Navin Sinha
313 --Date created: 13-Jun-03
314 --
315 --Purpose: BUG NO : 1366894 - Interview Build.
316 --
317 --
318 --Known limitations/enhancements and/or remarks:
319 --
320 --Change History:
321 --Who When What
322 ----------------------------------------------------------------
323
324 -- Cursor to get the fee type
325 CURSOR cur_sys_stat IS
326 SELECT system_status
327 FROM igs_ad_code_classes
328 WHERE name = p_name
329 AND class = p_class
330 AND CLASS_TYPE_CODE='ADM_CODE_CLASSES';
331
332 l_sys_stat igs_ad_code_classes.system_status%TYPE;
333 BEGIN
334 --initialise l_sys_stat
335 l_sys_stat := NULL;
336 OPEN cur_sys_stat;
337 FETCH cur_sys_stat INTO l_sys_stat;
338 CLOSE cur_sys_stat ;
339 RETURN l_sys_stat;
340 END get_sys_code_status; -- igs_ad_gen_013.get_sys_code_status
341
342 END IGS_AD_GEN_013;