[Home] [Help]
1: PACKAGE BODY igs_ps_validate_lgcy_pkg AS
2: /* $Header: IGSPS86B.pls 120.17 2006/04/10 05:26:28 sommukhe ship $ */
3:
4: /***********************************************************************************************
5: Created By : Sanjeeb Rakshit, Shirish Tatiko, Saravana Kumar
204: --Validate end date cannot be set for non inactive status
205: IF (NOT igs_ps_val_uv.crsp_val_uv_end_sts(p_unit_ver_rec.end_dt,
206: p_unit_ver_rec.unit_status,
207: l_c_message_name)) THEN
208: igs_ps_validate_lgcy_pkg.set_msg(l_c_message_name,NULL,NULL,FALSE);
209: p_unit_ver_rec.status:='E';
210: END IF;
211:
212: --Removed the validation to check unit coordinator is a staff person.As a part of bug # 3121311
215: IF (NOT igs_ps_val_uv.crsp_val_uv_sup_exam(p_unit_ver_rec.supp_exam_permitted_ind,
216: p_unit_ver_rec.assessable_ind,
217: l_c_message_name)) THEN
218:
219: igs_ps_validate_lgcy_pkg.set_msg(l_c_message_name,NULL,NULL,FALSE);
220: p_unit_ver_rec.status :='E';
221: END IF;
222:
223: --Validate atleast one unit enrollment method type between interactive Voice response and
222:
223: --Validate atleast one unit enrollment method type between interactive Voice response and
224: --self service should be selected
225: IF p_unit_ver_rec.ivr_enrol_ind = 'N' and p_unit_ver_rec.ss_enrol_ind = 'N' THEN
226: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_ONE_UNIT_ENR_MTHD',NULL,NULL,FALSE);
227: p_unit_ver_rec.status :='E';
228: END IF;
229:
230: --Validate only one version of unit can exist with active status and expiry date not set
233: p_unit_ver_rec.expiry_dt,
234: p_unit_ver_rec.unit_status,
235: l_c_message_name)) THEN
236:
237: igs_ps_validate_lgcy_pkg.set_msg(l_c_message_name,NULL,NULL,FALSE);
238: p_unit_ver_rec.status :='E';
239: END IF;
240:
241: --Validate status with respect to superior and subordinate units
250:
251: --Validate if auditable checkbox is checked then only audit_permission_ind and max_auditors_allowed can have values
252: IF p_unit_ver_rec.auditable_ind = 'N' THEN
253: IF p_unit_ver_rec.audit_permission_ind = 'Y' THEN
254: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_AUDIT_PERMISSION_EXIST',NULL,NULL,FALSE);
255: p_unit_ver_rec.status :='E';
256: END IF;
257: IF p_unit_ver_rec.max_auditors_allowed IS NOT NULL THEN
258: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_MAX_AUDIT_ALWD_EXIST',NULL,NULL,FALSE);
254: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_AUDIT_PERMISSION_EXIST',NULL,NULL,FALSE);
255: p_unit_ver_rec.status :='E';
256: END IF;
257: IF p_unit_ver_rec.max_auditors_allowed IS NOT NULL THEN
258: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_MAX_AUDIT_ALWD_EXIST',NULL,NULL,FALSE);
259: p_unit_ver_rec.status :='E';
260: END IF;
261: END IF;
262:
264: IF p_unit_ver_rec.points_override_ind = 'Y' AND (p_unit_ver_rec.points_increment IS NULL OR
265: p_unit_ver_rec.points_max IS NULL OR
266: p_unit_ver_rec.points_min IS NULL) THEN
267:
268: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_CPS_NULL',NULL,NULL,FALSE);
269: p_unit_ver_rec.status :='E';
270: END IF;
271:
272: --Validate the credit points related validations using generic function
286: --points increment are not null
287: IF p_unit_ver_rec.points_override_ind = 'N' AND (p_unit_ver_rec.points_increment IS NOT NULL OR
288: p_unit_ver_rec.points_max IS NOT NULL OR
289: p_unit_ver_rec.points_min IS NOT NULL) THEN
290: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_CPS_NOT_NULL',NULL,NULL,FALSE);
291: p_unit_ver_rec.status :='E';
292: END IF;
293:
294: --Validate if approved subtitles exists for a unit version, if then only approved subtitles can only be
296: OPEN c_subtitle(p_unit_ver_rec.unit_cd,p_unit_ver_rec.version_number);
297: FETCH c_subtitle INTO l_c_var;
298: IF c_subtitle%FOUND THEN
299: IF p_unit_ver_rec.subtitle_approved_ind = 'N' AND p_unit_ver_rec.subtitle IS NOT NULL THEN
300: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_INVALID_SUBTITLE',NULL,NULL,FALSE);
301: p_unit_ver_rec.status :='E';
302: END IF;
303: END IF;
304: CLOSE c_subtitle;
305:
306:
307: --Billing credit Points can be provided only when auditable_ind is set to Y
308: IF p_unit_ver_rec.auditable_ind = 'N' AND p_unit_ver_rec.billing_credit_points IS NOT NULL THEN
309: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_BILL_CRD_PTS_ERROR',NULL,NULL,FALSE);
310: p_unit_ver_rec.status :='E';
311: END IF;
312:
313: --Added this validation as a part of bug#4199404
311: END IF;
312:
313: --Added this validation as a part of bug#4199404
314: IF p_unit_ver_rec.approval_date IS NOT NULL AND p_unit_ver_rec.approval_date > p_unit_ver_rec.start_dt THEN
315: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_VALID_APPRDATE',NULL,NULL,FALSE);
316: p_unit_ver_rec.status :='E';
317: END IF;
318:
319: --validation releted to repeatable indicator columm
321: IF p_unit_ver_rec.max_repeats_for_credit IS NOT NULL OR p_unit_ver_rec.max_repeats_for_funding IS NOT NULL OR
322: p_unit_ver_rec.max_repeat_credit_points IS NOT NULL OR p_unit_ver_rec.same_teach_period_repeats IS NOT NULL OR
323: p_unit_ver_rec.same_teach_period_repeats_cp IS NOT NULL THEN
324:
325: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_RPT_X',NULL,NULL,FALSE);
326: p_unit_ver_rec.status :='E';
327: END IF;
328: IF p_unit_ver_rec.same_teaching_period = 'Y' THEN
329: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_RPT_X_SAME_TCH_PRD',NULL,NULL,FALSE);
325: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_RPT_X',NULL,NULL,FALSE);
326: p_unit_ver_rec.status :='E';
327: END IF;
328: IF p_unit_ver_rec.same_teaching_period = 'Y' THEN
329: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_RPT_X_SAME_TCH_PRD',NULL,NULL,FALSE);
330: p_unit_ver_rec.status :='E';
331: END IF;
332:
333: ELSIF p_unit_ver_rec.repeatable_ind = 'N' THEN
333: ELSIF p_unit_ver_rec.repeatable_ind = 'N' THEN
334: IF p_unit_ver_rec.max_repeat_credit_points IS NOT NULL OR p_unit_ver_rec.same_teach_period_repeats IS NOT NULL OR
335: p_unit_ver_rec.same_teach_period_repeats_cp IS NOT NULL THEN
336:
337: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_RPT_N',NULL,NULL,FALSE);
338: p_unit_ver_rec.status :='E';
339: END IF;
340:
341: IF p_unit_ver_rec.same_teaching_period = 'Y' THEN
338: p_unit_ver_rec.status :='E';
339: END IF;
340:
341: IF p_unit_ver_rec.same_teaching_period = 'Y' THEN
342: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_RPT_N_SAME_TCH_PRD',NULL,NULL,FALSE);
343: p_unit_ver_rec.status :='E';
344: END IF;
345:
346: IF p_unit_ver_rec.max_repeats_for_funding IS NULL AND p_unit_ver_rec.max_repeats_for_credit IS NOT NULL THEN
343: p_unit_ver_rec.status :='E';
344: END IF;
345:
346: IF p_unit_ver_rec.max_repeats_for_funding IS NULL AND p_unit_ver_rec.max_repeats_for_credit IS NOT NULL THEN
347: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_CREDIT_FUNDING',NULL,NULL,FALSE);
348: p_unit_ver_rec.status :='E';
349: END IF;
350:
351: IF p_unit_ver_rec.max_repeats_for_funding > p_unit_ver_rec.max_repeats_for_credit THEN
348: p_unit_ver_rec.status :='E';
349: END IF;
350:
351: IF p_unit_ver_rec.max_repeats_for_funding > p_unit_ver_rec.max_repeats_for_credit THEN
352: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MAX_FUN_LE_MA',NULL,NULL,FALSE);
353: p_unit_ver_rec.status :='E';
354: END IF;
355: ELSE
356: IF p_unit_ver_rec.max_repeats_for_funding IS NOT NULL THEN
353: p_unit_ver_rec.status :='E';
354: END IF;
355: ELSE
356: IF p_unit_ver_rec.max_repeats_for_funding IS NOT NULL THEN
357: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_RPT_Y',NULL,NULL,FALSE);
358: p_unit_ver_rec.status :='E';
359: END IF;
360:
361: IF p_unit_ver_rec.max_repeats_for_credit = 0 AND p_unit_ver_rec.max_repeat_credit_points IS NOT NULL THEN
358: p_unit_ver_rec.status :='E';
359: END IF;
360:
361: IF p_unit_ver_rec.max_repeats_for_credit = 0 AND p_unit_ver_rec.max_repeat_credit_points IS NOT NULL THEN
362: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MAX_REP_CRD_PTS',NULL,NULL,FALSE);
363: p_unit_ver_rec.status :='E';
364: END IF;
365:
366: IF p_unit_ver_rec.same_teaching_period = 'Y' THEN
364: END IF;
365:
366: IF p_unit_ver_rec.same_teaching_period = 'Y' THEN
367: IF p_unit_ver_rec.same_teach_period_repeats > p_unit_ver_rec.max_repeats_for_credit THEN
368: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_TPA_LE_MA',NULL,NULL,FALSE);
369: p_unit_ver_rec.status :='E';
370: END IF;
371:
372: IF p_unit_ver_rec.max_repeats_for_credit IS NOT NULL AND p_unit_ver_rec.same_teach_period_repeats IS NULL THEN
369: p_unit_ver_rec.status :='E';
370: END IF;
371:
372: IF p_unit_ver_rec.max_repeats_for_credit IS NOT NULL AND p_unit_ver_rec.same_teach_period_repeats IS NULL THEN
373: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MAX_ALWD_SAME_TCH',NULL,NULL,FALSE);
374: p_unit_ver_rec.status :='E';
375: END IF;
376:
377: IF p_unit_ver_rec.same_teach_period_repeats = 0 AND p_unit_ver_rec.same_teach_period_repeats_cp IS NOT NULL THEN
374: p_unit_ver_rec.status :='E';
375: END IF;
376:
377: IF p_unit_ver_rec.same_teach_period_repeats = 0 AND p_unit_ver_rec.same_teach_period_repeats_cp IS NOT NULL THEN
378: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_TCH_PRD_RPT_CP',NULL,NULL,FALSE);
379: p_unit_ver_rec.status :='E';
380: END IF;
381:
382: IF p_unit_ver_rec.same_teach_period_repeats_cp > p_unit_ver_rec.max_repeat_credit_points THEN
379: p_unit_ver_rec.status :='E';
380: END IF;
381:
382: IF p_unit_ver_rec.same_teach_period_repeats_cp > p_unit_ver_rec.max_repeat_credit_points THEN
383: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MAX_TCH_PRD_RPT_CP',NULL,NULL,FALSE);
384: p_unit_ver_rec.status :='E';
385: END IF;
386:
387: IF p_unit_ver_rec.max_repeat_credit_points IS NOT NULL AND p_unit_ver_rec.same_teach_period_repeats_cp IS NULL THEN
384: p_unit_ver_rec.status :='E';
385: END IF;
386:
387: IF p_unit_ver_rec.max_repeat_credit_points IS NOT NULL AND p_unit_ver_rec.same_teach_period_repeats_cp IS NULL THEN
388: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MX_CRD_SAME_TCH_CR',NULL,NULL,FALSE);
389: p_unit_ver_rec.status :='E';
390: END IF;
391:
392: ELSE
391:
392: ELSE
393:
394: IF p_unit_ver_rec.same_teach_period_repeats IS NOT NULL OR p_unit_ver_rec.same_teach_period_repeats_cp IS NOT NULL THEN
395: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_TCH_PRD_RPS_N_NULL',NULL,NULL,FALSE);
396: p_unit_ver_rec.status :='E';
397: END IF;
398:
399: END IF;
405: --Workload Validation to be provided when Override validation set to Y
406: IF (p_unit_ver_rec.ovrd_wkld_val_flag = 'N' AND p_unit_ver_rec.workload_val_code IS NOT NULL) OR
407: (p_unit_ver_rec.ovrd_wkld_val_flag = 'Y' AND p_unit_ver_rec.workload_val_code IS NULL) THEN
408:
409: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_WKLD_VALIDATION',NULL,NULL,FALSE);
410: p_unit_ver_rec.status :='E';
411: END IF;
412:
413: --Validate the DFF's
433: p_unit_ver_rec.attribute19,
434: p_unit_ver_rec.attribute20,
435: 'IGS_PS_UNIT_VER_FLEX') THEN
436:
437: igs_ps_validate_lgcy_pkg.set_msg('IGS_AD_INVALID_DESC_FLEX',NULL,NULL,FALSE);
438: p_unit_ver_rec.status :='E';
439: END IF;
440:
441: --Validate Org unit filter integration
449: OPEN c_org_cur FOR l_c_cur_stat USING p_unit_ver_rec.owner_org_unit_cd ;
450: END IF;
451: FETCH c_org_cur INTO l_c_rec_found;
452: IF c_org_cur%NOTFOUND THEN
453: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV','OWNER_ORG_UNIT_CD','LEGACY_TOKENS',FALSE);
454: p_unit_ver_rec.status :='E';
455: END IF;
456: CLOSE c_org_cur;
457:
888: -- Validate Call Number
889: IF (fnd_profile.value('IGS_PS_CALL_NUMBER') = 'AUTO' AND p_usec_rec.call_number IS NOT NULL) THEN
890:
891: -- Profile is AUTO and values is passed to call_number so raise error
892: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'CALL_NUMBER', 'LEGACY_TOKENS', FALSE);
893: p_usec_rec.status := 'E';
894: ELSIF ( fnd_profile.value('IGS_PS_CALL_NUMBER') = 'USER_DEFINED' ) THEN
895:
896: IF p_usec_rec.call_number IS NOT NULL THEN
909: IF ( fnd_profile.value('IGS_PS_CALL_NUMBER') = 'NONE' ) THEN
910:
911: IF p_usec_rec.call_number IS NOT NULL THEN
912: -- Profile is NONE and values is passed to call_number so raise error
913: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'CALL_NUMBER', 'LEGACY_TOKENS', FALSE);
914: p_usec_rec.status := 'E';
915: END IF;
916:
917: END IF;
1135: END IF;
1136: END IF;
1137:
1138: --Not Offered unit section should not be allowed to be updated
1139: IF NOT igs_ps_validate_lgcy_pkg.check_not_offered_usec_status(c_usec_rec.uoo_id) THEN
1140: fnd_message.set_name ( 'IGS', 'IGS_PS_IMP_NOT_ALD_NOT_OFFERED' );
1141: fnd_msg_pub.add;
1142: p_usec_rec.status := 'E';
1143: END IF;
1350: END IF;
1351:
1352: --Billing credit Points can be provided only when auditable_ind is set to Y
1353: IF p_usec_rec.auditable_ind = 'N' AND p_usec_rec.billing_credit_points IS NOT NULL THEN
1354: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_BILL_CRD_PTS_ERROR',NULL,NULL,FALSE);
1355: p_usec_rec.status :='E';
1356: END IF;
1357:
1358: IF NOT igs_ps_val_uv.crsp_val_uv_pnt_ovrd ( l_c_override_ind,
1629: p_usec_gs_rec.status := 'E';
1630: END IF;
1631:
1632: --Check if the unit section is NOT_OFFERED
1633: IF NOT igs_ps_validate_lgcy_pkg.check_not_offered_usec_status(p_n_uoo_id) THEN
1634: fnd_message.set_name ( 'IGS', 'IGS_PS_IMP_NOT_ALD_NOT_OFFERED' );
1635: fnd_msg_pub.add;
1636: p_usec_gs_rec.status := 'E';
1637: END IF;
1848: -- If one building code and room code is passed then other one should be passed.
1849: -- Otherwise, error out with proper message.
1850:
1851: IF p_n_room_code IS NOT NULL AND p_n_building_code IS NULL THEN
1852: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'BUILDING_CODE', 'LEGACY_TOKENS', FALSE);
1853: p_uso_rec.status := 'E';
1854: END IF;
1855:
1856:
1854: END IF;
1855:
1856:
1857: IF p_n_dedicated_room_code IS NOT NULL AND p_n_dedicated_building_code IS NULL THEN
1858: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', igs_ps_validate_lgcy_pkg.get_lkup_meaning('DEDICATED', 'LEGACY_TOKENS') || ' ' ||
1859: igs_ps_validate_lgcy_pkg.get_lkup_meaning('BUILDING_CODE', 'LEGACY_TOKENS'), NULL, FALSE);
1860: p_uso_rec.status := 'E';
1861: END IF;
1862:
1855:
1856:
1857: IF p_n_dedicated_room_code IS NOT NULL AND p_n_dedicated_building_code IS NULL THEN
1858: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', igs_ps_validate_lgcy_pkg.get_lkup_meaning('DEDICATED', 'LEGACY_TOKENS') || ' ' ||
1859: igs_ps_validate_lgcy_pkg.get_lkup_meaning('BUILDING_CODE', 'LEGACY_TOKENS'), NULL, FALSE);
1860: p_uso_rec.status := 'E';
1861: END IF;
1862:
1863:
1861: END IF;
1862:
1863:
1864: IF p_n_preferred_room_code IS NOT NULL AND p_n_preferred_building_code IS NULL THEN
1865: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', igs_ps_validate_lgcy_pkg.get_lkup_meaning('PREFERRED', 'LEGACY_TOKENS') || ' ' ||
1866: igs_ps_validate_lgcy_pkg.get_lkup_meaning('BUILDING_CODE', 'LEGACY_TOKENS'), NULL, FALSE);
1867: p_uso_rec.status := 'E';
1868: END IF;
1869:
1862:
1863:
1864: IF p_n_preferred_room_code IS NOT NULL AND p_n_preferred_building_code IS NULL THEN
1865: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', igs_ps_validate_lgcy_pkg.get_lkup_meaning('PREFERRED', 'LEGACY_TOKENS') || ' ' ||
1866: igs_ps_validate_lgcy_pkg.get_lkup_meaning('BUILDING_CODE', 'LEGACY_TOKENS'), NULL, FALSE);
1867: p_uso_rec.status := 'E';
1868: END IF;
1869:
1870:
2096: p_uso_rec.status := 'E';
2097: END IF;
2098:
2099: --Check if the unit section is NOT_OFFERED
2100: IF NOT igs_ps_validate_lgcy_pkg.check_not_offered_usec_status(p_n_uoo_id) THEN
2101: fnd_message.set_name ( 'IGS', 'IGS_PS_IMP_NOT_ALD_NOT_OFFERED' );
2102: fnd_msg_pub.add;
2103: p_uso_rec.status := 'E';
2104: END IF;
3334:
3335: BEGIN
3336:
3337: --Check if the unit section is NOT_OFFERED
3338: IF NOT igs_ps_validate_lgcy_pkg.check_not_offered_usec_status(p_n_uoo_id) THEN
3339: fnd_message.set_name ( 'IGS', 'IGS_PS_IMP_NOT_ALD_NOT_OFFERED' );
3340: fnd_msg_pub.add;
3341: p_uso_ins_rec.status := 'E';
3342: END IF;
3363: igs_ps_usec_tch_resp_pkg.check_constraints('LEAD_INSTRUCTOR_FLAG', p_uso_ins_rec.lead_instructor_flag);
3364: EXCEPTION
3365: WHEN OTHERS THEN
3366: fnd_message.set_name('IGS','IGS_PS_LEAD_INSTRUCTOR_FLAG');
3367: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N',fnd_message.get, NULL,TRUE);
3368: p_uso_ins_rec.status :='E';
3369: END;
3370: BEGIN
3371: igs_ps_usec_tch_resp_pkg.check_constraints('CONFIRMED_FLAG', p_uso_ins_rec.confirmed_flag);
3371: igs_ps_usec_tch_resp_pkg.check_constraints('CONFIRMED_FLAG', p_uso_ins_rec.confirmed_flag);
3372: EXCEPTION
3373: WHEN OTHERS THEN
3374: fnd_message.set_name('IGS','IGS_PS_CONFIRMED_FLAG');
3375: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N',fnd_message.get, NULL,TRUE);
3376: p_uso_ins_rec.status :='E';
3377: END;
3378:
3379: -- Validation : Either percentage allocation or workload value should be provided. Both cannot be null
3392: BEGIN
3393: igs_ps_usec_tch_resp_pkg.check_constraints('PERCENTAGE_ALLOCATION', p_uso_ins_rec.wl_percentage_allocation);
3394: EXCEPTION
3395: WHEN OTHERS THEN
3396: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_PTS_RANGE_0_999','PERCENTAGE','LEGACY_TOKENS',TRUE);
3397: p_uso_ins_rec.status :='E';
3398: END;
3399: --Format mask validation
3400: IF p_uso_ins_rec.status <> 'E' THEN
3397: p_uso_ins_rec.status :='E';
3398: END;
3399: --Format mask validation
3400: IF p_uso_ins_rec.status <> 'E' THEN
3401: IF NOT igs_ps_validate_lgcy_pkg.boundary_check_number(p_uso_ins_rec.wl_percentage_allocation,3,2) THEN
3402: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_PTS_RANGE_0_999','PERCENTAGE','LEGACY_TOKENS',FALSE);
3403: p_uso_ins_rec.status :='E';
3404: END IF;
3405: END IF;
3398: END;
3399: --Format mask validation
3400: IF p_uso_ins_rec.status <> 'E' THEN
3401: IF NOT igs_ps_validate_lgcy_pkg.boundary_check_number(p_uso_ins_rec.wl_percentage_allocation,3,2) THEN
3402: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_PTS_RANGE_0_999','PERCENTAGE','LEGACY_TOKENS',FALSE);
3403: p_uso_ins_rec.status :='E';
3404: END IF;
3405: END IF;
3406:
3411: igs_ps_usec_tch_resp_pkg.check_constraints('INSTRUCTIONAL_LOAD_LECTURE', p_uso_ins_rec.instructional_load_lecture);
3412: EXCEPTION
3413: WHEN OTHERS THEN
3414: fnd_message.set_name('IGS','IGS_PS_INS_LOAD_LECTURE');
3415: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_9999D99',fnd_message.get, NULL,TRUE);
3416: p_uso_ins_rec.status :='E';
3417: END;
3418:
3419: --Format mask validation
3417: END;
3418:
3419: --Format mask validation
3420: IF p_uso_ins_rec.status <> 'E' THEN
3421: IF NOT igs_ps_validate_lgcy_pkg.boundary_check_number(p_uso_ins_rec.instructional_load_lecture,4,2) THEN
3422: fnd_message.set_name('IGS','IGS_PS_INS_LOAD_LECTURE');
3423: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_9999D99',fnd_message.get, NULL,FALSE);
3424: p_uso_ins_rec.status :='E';
3425: END IF;
3419: --Format mask validation
3420: IF p_uso_ins_rec.status <> 'E' THEN
3421: IF NOT igs_ps_validate_lgcy_pkg.boundary_check_number(p_uso_ins_rec.instructional_load_lecture,4,2) THEN
3422: fnd_message.set_name('IGS','IGS_PS_INS_LOAD_LECTURE');
3423: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_9999D99',fnd_message.get, NULL,FALSE);
3424: p_uso_ins_rec.status :='E';
3425: END IF;
3426: END IF;
3427:
3432: igs_ps_usec_tch_resp_pkg.check_constraints('INSTRUCTIONAL_LOAD_LAB', p_uso_ins_rec.instructional_load_laboratory);
3433: EXCEPTION
3434: WHEN OTHERS THEN
3435: fnd_message.set_name('IGS','IGS_PS_INS_LOAD_LAB');
3436: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_9999D99',fnd_message.get,NULL,TRUE);
3437: p_uso_ins_rec.status :='E';
3438: END;
3439:
3440: --Format mask validation
3438: END;
3439:
3440: --Format mask validation
3441: IF p_uso_ins_rec.status <> 'E' THEN
3442: IF NOT igs_ps_validate_lgcy_pkg.boundary_check_number(p_uso_ins_rec.instructional_load_laboratory,4,2) THEN
3443: fnd_message.set_name('IGS','IGS_PS_INS_LOAD_LAB');
3444: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_9999D99',fnd_message.get,NULL,FALSE);
3445: p_uso_ins_rec.status :='E';
3446: END IF;
3440: --Format mask validation
3441: IF p_uso_ins_rec.status <> 'E' THEN
3442: IF NOT igs_ps_validate_lgcy_pkg.boundary_check_number(p_uso_ins_rec.instructional_load_laboratory,4,2) THEN
3443: fnd_message.set_name('IGS','IGS_PS_INS_LOAD_LAB');
3444: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_9999D99',fnd_message.get,NULL,FALSE);
3445: p_uso_ins_rec.status :='E';
3446: END IF;
3447: END IF;
3448:
3453: igs_ps_usec_tch_resp_pkg.check_constraints('INSTRUCTIONAL_LOAD', p_uso_ins_rec.instructional_load_other);
3454: EXCEPTION
3455: WHEN OTHERS THEN
3456: fnd_message.set_name('IGS','IGS_PS_INS_LOAD_OTHER');
3457: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_9999D99',fnd_message.get,NULL,TRUE);
3458: p_uso_ins_rec.status :='E';
3459: END;
3460:
3461: --Format mask validation
3459: END;
3460:
3461: --Format mask validation
3462: IF p_uso_ins_rec.status <> 'E' THEN
3463: IF NOT igs_ps_validate_lgcy_pkg.boundary_check_number(p_uso_ins_rec.instructional_load_other,4,2) THEN
3464: fnd_message.set_name('IGS','IGS_PS_INS_LOAD_OTHER');
3465: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_9999D99',fnd_message.get,NULL,FALSE);
3466: p_uso_ins_rec.status :='E';
3467: END IF;
3461: --Format mask validation
3462: IF p_uso_ins_rec.status <> 'E' THEN
3463: IF NOT igs_ps_validate_lgcy_pkg.boundary_check_number(p_uso_ins_rec.instructional_load_other,4,2) THEN
3464: fnd_message.set_name('IGS','IGS_PS_INS_LOAD_OTHER');
3465: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_9999D99',fnd_message.get,NULL,FALSE);
3466: p_uso_ins_rec.status :='E';
3467: END IF;
3468: END IF;
3469:
3789: IF p_unit_ref_rec.data_type = 'UNIT' THEN -- check whether the reference code type is allowable at unit level
3790:
3791: IF rec_ref_flag.unit_flag IS NULL OR rec_ref_flag.unit_flag = 'N' THEN
3792: fnd_message.set_name('IGS','IGS_PS_LGCY_UNIT_REF_LVL');
3793: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REF_NA', fnd_message.get, NULL, FALSE);
3794: p_unit_ref_rec.status := 'E';
3795: END IF;
3796:
3797: ELSIF p_unit_ref_rec.data_type = 'SECTION' THEN -- check whether the reference code type is allowable at unit section level
3797: ELSIF p_unit_ref_rec.data_type = 'SECTION' THEN -- check whether the reference code type is allowable at unit section level
3798:
3799: IF rec_ref_flag.unit_section_flag IS NULL OR rec_ref_flag.unit_section_flag = 'N' THEN
3800: fnd_message.set_name('IGS','IGS_PS_LGCY_USEC_REF_LVL');
3801: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REF_NA', fnd_message.get, NULL, FALSE);
3802: p_unit_ref_rec.status := 'E';
3803: END IF;
3804:
3805: ELSIF p_unit_ref_rec.data_type = 'OCCURRENCE' THEN -- check whether the reference code type is allowable at unit sectin occurrence level
3805: ELSIF p_unit_ref_rec.data_type = 'OCCURRENCE' THEN -- check whether the reference code type is allowable at unit sectin occurrence level
3806:
3807: IF rec_ref_flag.unit_section_occurrence_flag IS NULL OR rec_ref_flag.unit_section_occurrence_flag = 'N' THEN
3808: fnd_message.set_name('IGS','IGS_PS_LGCY_OCCUR_REF_LVL');
3809: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REF_NA', fnd_message.get, NULL, FALSE);
3810: p_unit_ref_rec.status := 'E';
3811: END IF;
3812:
3813: IF p_calling_context <> 'S' THEN
3832: END IF;
3833:
3834: IF p_unit_ref_rec.data_type IN ('SECTION','OCCURRENCE') THEN
3835: --Check if the unit section is NOT_OFFERED
3836: IF NOT igs_ps_validate_lgcy_pkg.check_not_offered_usec_status(p_n_uoo_id) THEN
3837: fnd_message.set_name ( 'IGS', 'IGS_PS_IMP_NOT_ALD_NOT_OFFERED' );
3838: fnd_msg_pub.add;
3839: p_unit_ref_rec.status := 'E';
3840: END IF;
4231: RETURN TRUE;
4232:
4233: END boundary_check_number;
4234:
4235: END igs_ps_validate_lgcy_pkg;