[Home] [Help]
4075: BEGIN
4076:
4077: IF p_insert_update = 'I' THEN
4078: /* Check for Unique Key Constraints */
4079: IF igs_ps_usec_cps_pkg.get_uk_for_validation ( l_n_uoo_id ) THEN
4080: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_EXISTS', 'USEC_CPS', 'LEGACY_TOKENS', FALSE);
4081: p_usec_rec.status := 'W';
4082: RETURN;
4083: END IF;
4090: END IF;
4091:
4092: IF p_usec_rec.minimum_credit_points IS NOT NULL THEN
4093: BEGIN
4094: igs_ps_usec_cps_pkg.check_constraints('MINIMUM_CREDIT_POINTS',p_usec_rec.minimum_credit_points);
4095: EXCEPTION
4096: WHEN OTHERS THEN
4097: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999D999','MINIMUM_CREDIT_POINTS','LEGACY_TOKENS',TRUE);
4098: p_usec_rec.status :='E';
4100: END IF;
4101:
4102: IF p_usec_rec.maximum_credit_points IS NOT NULL THEN
4103: BEGIN
4104: igs_ps_usec_cps_pkg.check_constraints('MAXIMUM_CREDIT_POINTS',p_usec_rec.maximum_credit_points);
4105: EXCEPTION
4106: WHEN OTHERS THEN
4107: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999D999','MAXIMUM_CREDIT_POINTS','LEGACY_TOKENS',TRUE);
4108: p_usec_rec.status :='E';
4110: END IF;
4111:
4112: IF p_usec_rec.variable_increment IS NOT NULL THEN
4113: BEGIN
4114: igs_ps_usec_cps_pkg.check_constraints('VARIABLE_INCREMENT',p_usec_rec.variable_increment);
4115: EXCEPTION
4116: WHEN OTHERS THEN
4117: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999D999','VARIABLE_INCREMENT','LEGACY_TOKENS',TRUE);
4118: p_usec_rec.status :='E';
4121:
4122:
4123: IF p_usec_rec.lecture_credit_points IS NOT NULL THEN
4124: BEGIN
4125: igs_ps_usec_cps_pkg.check_constraints('LECTURE_CREDIT_POINTS',p_usec_rec.lecture_credit_points);
4126: EXCEPTION
4127: WHEN OTHERS THEN
4128: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999D999','LECTURE_CREDIT_POINTS','LEGACY_TOKENS',TRUE);
4129: p_usec_rec.status :='E';
4131: END IF;
4132:
4133: IF p_usec_rec.lab_credit_points IS NOT NULL THEN
4134: BEGIN
4135: igs_ps_usec_cps_pkg.check_constraints('LAB_CREDIT_POINTS',p_usec_rec.lab_credit_points);
4136: EXCEPTION
4137: WHEN OTHERS THEN
4138: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999D999','LAB_CREDIT_POINTS','LEGACY_TOKENS',TRUE);
4139: p_usec_rec.status :='E';
4141: END IF;
4142:
4143: IF p_usec_rec.other_credit_points IS NOT NULL THEN
4144: BEGIN
4145: igs_ps_usec_cps_pkg.check_constraints('OTHER_CREDIT_POINTS',p_usec_rec.other_credit_points);
4146: EXCEPTION
4147: WHEN OTHERS THEN
4148: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999D999','OTHER_CREDIT_POINTS','LEGACY_TOKENS',TRUE);
4149: p_usec_rec.status :='E';
4151: END IF;
4152:
4153: IF p_usec_rec.clock_hours IS NOT NULL THEN
4154: BEGIN
4155: igs_ps_usec_cps_pkg.check_constraints('CLOCK_HOURS',p_usec_rec.clock_hours);
4156: EXCEPTION
4157: WHEN OTHERS THEN
4158: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999D999','CLOCK_HOURS','LEGACY_TOKENS',TRUE);
4159: p_usec_rec.status :='E';
4161: END IF;
4162:
4163: IF p_usec_rec.work_load_cp_lecture IS NOT NULL THEN
4164: BEGIN
4165: igs_ps_usec_cps_pkg.check_constraints('WORK_LOAD_CP_LECTURE',p_usec_rec.work_load_cp_lecture);
4166: EXCEPTION
4167: WHEN OTHERS THEN
4168: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999D99','WORK_LOAD_CP_LECTURE','LEGACY_TOKENS',TRUE);
4169: p_usec_rec.status :='E';
4172:
4173:
4174: IF p_usec_rec.work_load_cp_lab IS NOT NULL THEN
4175: BEGIN
4176: igs_ps_usec_cps_pkg.check_constraints('WORK_LOAD_CP_LAB',p_usec_rec.work_load_cp_lab);
4177: EXCEPTION
4178: WHEN OTHERS THEN
4179: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999D99','WORK_LOAD_CP_LAB','LEGACY_TOKENS',TRUE);
4180: p_usec_rec.status :='E';
4183:
4184: --Validate achievable credit points
4185: IF p_usec_rec.achievable_credit_points IS NOT NULL THEN
4186: BEGIN
4187: igs_ps_usec_cps_pkg.check_constraints('ACHIEVABLE_CREDIT_POINTS',p_usec_rec.achievable_credit_points);
4188: EXCEPTION
4189: WHEN OTHERS THEN
4190: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_PTS_RANGE_0_999','ACHIEVABLE_CREDIT_POINTS','LEGACY_TOKENS',TRUE);
4191: p_usec_rec.status :='E';
4193: END IF;
4194:
4195: --Validate enrolled credit points
4196: BEGIN
4197: igs_ps_usec_cps_pkg.check_constraints('ENROLLED_CREDIT_POINTS',p_usec_rec.enrolled_credit_points);
4198: EXCEPTION
4199: WHEN OTHERS THEN
4200: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_PTS_RANGE_0_999','ENROLLED_CREDIT_POINTS','LEGACY_TOKENS',TRUE);
4201: p_usec_rec.status :='E';
4203:
4204: --Validate billing credit points
4205: IF p_usec_rec.billing_credit_points IS NOT NULL THEN
4206: BEGIN
4207: igs_ps_usec_cps_pkg.check_constraints( 'BILLING_CREDIT_POINTS', p_usec_rec.billing_credit_points);
4208: EXCEPTION
4209: WHEN OTHERS THEN
4210: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999D999', 'BILLING_CREDIT_POINTS', 'LEGACY_TOKENS', TRUE);
4211: p_usec_rec.status := 'E';
4213: END IF;
4214:
4215: IF p_usec_rec.billing_hrs IS NOT NULL THEN
4216: BEGIN
4217: igs_ps_usec_cps_pkg.check_constraints( 'BILLING_HRS', p_usec_rec.billing_hrs);
4218: EXCEPTION
4219: WHEN OTHERS THEN
4220: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999D999', 'BILLING_HRS', 'LEGACY_TOKENS', TRUE);
4221: p_usec_rec.status := 'E';
4222: END;
4223: END IF;
4224: IF p_usec_rec.continuing_education_units IS NOT NULL THEN
4225: BEGIN
4226: igs_ps_usec_cps_pkg.check_constraints('CONTINUING_EDUCATION_UNITS',p_usec_rec.continuing_education_units);
4227: EXCEPTION
4228: WHEN OTHERS THEN
4229: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999D999','CONTINUING_EDUCATION_UNITS','LEGACY_TOKENS',TRUE);
4230: p_usec_rec.status :='E';
4232: END IF;
4233:
4234: IF p_usec_rec.work_load_other IS NOT NULL THEN
4235: BEGIN
4236: igs_ps_usec_cps_pkg.check_constraints('WORK_LOAD_OTHER',p_usec_rec.work_load_other);
4237: EXCEPTION
4238: WHEN OTHERS THEN
4239: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999D99','WORK_LOAD_OTHER','LEGACY_TOKENS',TRUE);
4240: p_usec_rec.status :='E';
4242: END IF;
4243:
4244: IF p_usec_rec.contact_hrs_lecture IS NOT NULL THEN
4245: BEGIN
4246: igs_ps_usec_cps_pkg.check_constraints('CONTACT_HRS_LECTURE',p_usec_rec.contact_hrs_lecture);
4247: EXCEPTION
4248: WHEN OTHERS THEN
4249: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999D99','CONTACT_HRS_LECTURE','LEGACY_TOKENS',TRUE);
4250: p_usec_rec.status :='E';
4252: END IF;
4253:
4254: IF p_usec_rec.contact_hrs_lab IS NOT NULL THEN
4255: BEGIN
4256: igs_ps_usec_cps_pkg.check_constraints('CONTACT_HRS_LAB',p_usec_rec.contact_hrs_lab);
4257: EXCEPTION
4258: WHEN OTHERS THEN
4259: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999D99','CONTACT_HRS_LAB','LEGACY_TOKENS',TRUE);
4260: p_usec_rec.status :='E';
4262: END IF;
4263:
4264: IF p_usec_rec.contact_hrs_other IS NOT NULL THEN
4265: BEGIN
4266: igs_ps_usec_cps_pkg.check_constraints('CONTACT_HRS_OTHER',p_usec_rec.contact_hrs_other);
4267: EXCEPTION
4268: WHEN OTHERS THEN
4269: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999D99','CONTACT_HRS_OTHER','LEGACY_TOKENS',TRUE);
4270: p_usec_rec.status :='E';
4272: END IF;
4273:
4274: IF p_usec_rec.non_schd_required_hrs IS NOT NULL THEN
4275: BEGIN
4276: igs_ps_usec_cps_pkg.check_constraints('NON_SCHD_REQUIRED_HRS',p_usec_rec.non_schd_required_hrs);
4277: EXCEPTION
4278: WHEN OTHERS THEN
4279: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_PTS_RANGE_0_999','NON_SCHD_REQUIRED_HRS','LEGACY_TOKENS',TRUE);
4280: p_usec_rec.status :='E';
4292: END IF;
4293:
4294: IF p_usec_rec.claimable_hours IS NOT NULL THEN
4295: BEGIN
4296: igs_ps_usec_cps_pkg.check_constraints('CLAIMABLE_HOURS',p_usec_rec.claimable_hours);
4297: EXCEPTION
4298: WHEN OTHERS THEN
4299: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_PTS_RANGE_0_999','CLAIMABLE_HOURS','LEGACY_TOKENS',TRUE);
4300: p_usec_rec.status :='E';