[Home] [Help]
89: BEGIN
90:
91: /* Check for Mandatory Parameters */
92: IF p_usec_rsv_rec.unit_cd IS NULL OR p_usec_rsv_rec.unit_cd = FND_API.G_MISS_CHAR THEN
93: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CD', 'LEGACY_TOKENS', FALSE);
94: p_usec_rsv_rec.status := 'E';
95: END IF;
96:
97: IF p_usec_rsv_rec.version_number IS NULL OR p_usec_rsv_rec.version_number = FND_API.G_MISS_NUM THEN
94: p_usec_rsv_rec.status := 'E';
95: END IF;
96:
97: IF p_usec_rsv_rec.version_number IS NULL OR p_usec_rsv_rec.version_number = FND_API.G_MISS_NUM THEN
98: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_VER_NUM', 'LEGACY_TOKENS', FALSE);
99: p_usec_rsv_rec.status := 'E';
100: END IF;
101:
102: IF p_usec_rsv_rec.teach_cal_alternate_code IS NULL OR p_usec_rsv_rec.teach_cal_alternate_code = FND_API.G_MISS_CHAR THEN
99: p_usec_rsv_rec.status := 'E';
100: END IF;
101:
102: IF p_usec_rsv_rec.teach_cal_alternate_code IS NULL OR p_usec_rsv_rec.teach_cal_alternate_code = FND_API.G_MISS_CHAR THEN
103: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
104: p_usec_rsv_rec.status := 'E';
105: END IF;
106:
107: IF p_usec_rsv_rec.location_cd IS NULL OR p_usec_rsv_rec.location_cd = FND_API.G_MISS_CHAR THEN
104: p_usec_rsv_rec.status := 'E';
105: END IF;
106:
107: IF p_usec_rsv_rec.location_cd IS NULL OR p_usec_rsv_rec.location_cd = FND_API.G_MISS_CHAR THEN
108: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD', 'LEGACY_TOKENS', FALSE);
109: p_usec_rsv_rec.status := 'E';
110: END IF;
111:
112: IF p_usec_rsv_rec.unit_class IS NULL OR p_usec_rsv_rec.unit_class = FND_API.G_MISS_CHAR THEN
109: p_usec_rsv_rec.status := 'E';
110: END IF;
111:
112: IF p_usec_rsv_rec.unit_class IS NULL OR p_usec_rsv_rec.unit_class = FND_API.G_MISS_CHAR THEN
113: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CLASS', 'LEGACY_TOKENS', FALSE);
114: p_usec_rsv_rec.status := 'E';
115: END IF;
116:
117: IF p_usec_rsv_rec.priority_value IS NULL OR p_usec_rsv_rec.priority_value = FND_API.G_MISS_CHAR THEN
114: p_usec_rsv_rec.status := 'E';
115: END IF;
116:
117: IF p_usec_rsv_rec.priority_value IS NULL OR p_usec_rsv_rec.priority_value = FND_API.G_MISS_CHAR THEN
118: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'PRIORITY_VALUE', 'LEGACY_TOKENS', FALSE);
119: p_usec_rsv_rec.status := 'E';
120: END IF;
121:
122: END validate_parameters ;
137: p_start_dt => l_d_start_dt,
138: p_end_dt => l_d_end_dt,
139: p_return_status => l_c_message );
140: IF ( l_c_message <> 'SINGLE' ) THEN
141: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
142: p_usec_rsv_rec.status := 'E';
143: END IF;
144: -- Derive uoo_id
145: l_c_message := NULL;
142: p_usec_rsv_rec.status := 'E';
143: END IF;
144: -- Derive uoo_id
145: l_c_message := NULL;
146: igs_ps_validate_lgcy_pkg.get_uoo_id ( p_unit_cd => p_usec_rsv_rec.unit_cd,
147: p_ver_num => p_usec_rsv_rec.version_number,
148: p_cal_type => l_c_cal_type,
149: p_seq_num => l_n_seq_num,
150: p_loc_cd => p_usec_rsv_rec.location_cd,
151: p_unit_class => p_usec_rsv_rec.unit_class,
152: p_uoo_id => l_n_uoo_id,
153: p_message => l_c_message );
154: IF ( l_c_message IS NOT NULL ) THEN
155: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_SECTION', 'LEGACY_TOKENS', FALSE);
156: p_usec_rsv_rec.status := 'E';
157: END IF;
158: END validate_derivations_pri;
159:
197:
198: IF p_usec_rsv_rec.priority_order IS NULL THEN
199: p_usec_rsv_rec.priority_order:= rec_usprv.priority_order;
200: ELSIF p_usec_rsv_rec.priority_order = FND_API.G_MISS_NUM THEN
201: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'PRIORITY_ORDER', 'LEGACY_TOKENS', FALSE);
202: p_usec_rsv_rec.status := 'E';
203: END IF;
204:
205: END IF;
212: IF(p_insert_update = 'I') THEN
213: /* Unique Key Validation */
214: IF igs_ps_rsv_usec_pri_pkg.get_uk_for_validation (x_uoo_id => l_n_uoo_id,
215: x_priority_value =>p_usec_rsv_rec.priority_value ) THEN
216: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_EXISTS', 'USEC_RSV_PRI', 'LEGACY_TOKENS', FALSE);
217: p_usec_rsv_rec.status := 'W';
218: RETURN;
219: END IF;
220: END IF;
220: END IF;
221: /* Validate FK Constraints */
222:
223: IF NOT igs_ps_unit_ofr_opt_pkg.get_uk_for_validation ( l_n_uoo_id ) THEN
224: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_SECTION', 'LEGACY_TOKENS', FALSE);
225: p_usec_rsv_rec.status := 'E';
226: END IF;
227:
228: IF NOT igs_lookups_view_pkg.get_pk_for_validation('RESERVE_SEAT_PRIORITY', p_usec_rsv_rec.priority_value) THEN
225: p_usec_rsv_rec.status := 'E';
226: END IF;
227:
228: IF NOT igs_lookups_view_pkg.get_pk_for_validation('RESERVE_SEAT_PRIORITY', p_usec_rsv_rec.priority_value) THEN
229: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'PRIORITY_VALUE', 'LEGACY_TOKENS', FALSE);
230: p_usec_rsv_rec.status := 'E';
231: END IF;
232: END validate_db_cons_rsvpri;
233:
276: END IF;
277:
278:
279: IF p_usec_rsv_rec.status = 'S' AND p_calling_context = 'S' THEN
280: IF igs_ps_validate_lgcy_pkg.check_import_allowed( l_n_uoo_id,NULL) = FALSE THEN
281: fnd_message.set_name ( 'IGS', 'IGS_PS_REC_ABORTED_CANCELLED' );
282: fnd_msg_pub.add;
283: p_usec_rsv_rec.status := 'A';
284: END IF;
310:
311: IF l_tbl_uoo.count = 0 THEN
312: l_tbl_uoo(l_tbl_uoo.count+1) :=l_n_uoo_id;
313: ELSE
314: IF NOT igs_ps_validate_lgcy_pkg.isExists(l_n_uoo_id,l_tbl_uoo) THEN
315: l_tbl_uoo(l_tbl_uoo.count+1) :=l_n_uoo_id;
316: END IF;
317: END IF;
318:
413: BEGIN
414:
415: /* Check for Mandatory Parameters */
416: IF p_usec_rsv_rec.preference_order IS NULL OR p_usec_rsv_rec.preference_order = FND_API.G_MISS_NUM THEN
417: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'PREFERENCE_ORDER', 'LEGACY_TOKENS', FALSE);
418: p_usec_rsv_rec.status := 'E';
419: END IF;
420:
421: IF p_usec_rsv_rec.preference_code IS NULL OR p_usec_rsv_rec.preference_code = FND_API.G_MISS_CHAR THEN
418: p_usec_rsv_rec.status := 'E';
419: END IF;
420:
421: IF p_usec_rsv_rec.preference_code IS NULL OR p_usec_rsv_rec.preference_code = FND_API.G_MISS_CHAR THEN
422: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'PREFERENCE_CODE', 'LEGACY_TOKENS', FALSE);
423: p_usec_rsv_rec.status := 'E';
424: END IF;
425:
426: IF p_usec_rsv_rec.percentage_reserved IS NULL OR p_usec_rsv_rec.percentage_reserved = FND_API.G_MISS_NUM THEN
423: p_usec_rsv_rec.status := 'E';
424: END IF;
425:
426: IF p_usec_rsv_rec.percentage_reserved IS NULL OR p_usec_rsv_rec.percentage_reserved = FND_API.G_MISS_NUM THEN
427: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'PERCENTAGE_RESERVED', 'LEGACY_TOKENS', FALSE);
428: p_usec_rsv_rec.status := 'E';
429: END IF;
430:
431: IF p_usec_rsv_rec.priority_value IS NOT NULL AND p_usec_rsv_rec.priority_value IN ('PROGRAM','UNIT_SET') THEN
429: END IF;
430:
431: IF p_usec_rsv_rec.priority_value IS NOT NULL AND p_usec_rsv_rec.priority_value IN ('PROGRAM','UNIT_SET') THEN
432: IF p_usec_rsv_rec.preference_version IS NULL OR p_usec_rsv_rec.preference_version = FND_API.G_MISS_NUM THEN
433: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'PREFERENCE_VERSION', 'LEGACY_TOKENS', FALSE);
434: p_usec_rsv_rec.status := 'E';
435: END IF;
436: ELSIF p_usec_rsv_rec.priority_value IS NOT NULL AND p_usec_rsv_rec.priority_value NOT IN ('PROGRAM','UNIT_SET') THEN
437: IF p_usec_rsv_rec.preference_version IS NOT NULL THEN
434: p_usec_rsv_rec.status := 'E';
435: END IF;
436: ELSIF p_usec_rsv_rec.priority_value IS NOT NULL AND p_usec_rsv_rec.priority_value NOT IN ('PROGRAM','UNIT_SET') THEN
437: IF p_usec_rsv_rec.preference_version IS NOT NULL THEN
438: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'PREFERENCE_VERSION', 'LEGACY_TOKENS', FALSE);
439: p_usec_rsv_rec.status := 'E';
440: END IF;
441: END IF;
442:
526: IF(p_insert_update = 'I') THEN
527: /* Unique Key Validation */
528: IF igs_ps_rsv_usec_prf_pkg.get_uk_for_validation(x_rsv_usec_pri_id => l_n_rsv_usec_pri_id ,
529: x_preference_code =>p_usec_rsv_rec.preference_code ) THEN
530: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_EXISTS', 'USEC_RSV_PRF', 'LEGACY_TOKENS', FALSE);
531: p_usec_rsv_rec.status := 'W';
532:
533: RETURN;
534: END IF;
535: END IF;
536:
537: /* check constraint */
538: IF p_usec_rsv_rec.percentage_reserved < 0 OR p_usec_rsv_rec.percentage_reserved > 100 THEN
539: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_PER_0_100', null, null, FALSE);
540: p_usec_rsv_rec.status := 'E';
541: END IF;
542:
543: /* Validate FK Constraints */
542:
543: /* Validate FK Constraints */
544: IF (p_usec_rsv_rec.priority_value = 'PROGRAM') THEN
545: IF NOT igs_ps_ver_pkg.get_pk_for_validation (p_usec_rsv_rec.preference_code,p_usec_rsv_rec.preference_version ) THEN
546: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'USEC_RSV_PRF', 'LEGACY_TOKENS', FALSE);
547: p_usec_rsv_rec.status := 'E';
548: END IF;
549: END IF;
550:
549: END IF;
550:
551: IF (p_usec_rsv_rec.priority_value = 'PERSON_GRP') THEN
552: IF NOT igs_pe_persid_group_pkg.get_uk_for_validation (p_usec_rsv_rec.preference_code ) THEN
553: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'USEC_RSV_PRF', 'LEGACY_TOKENS', FALSE);
554: p_usec_rsv_rec.status := 'E';
555: END IF;
556: OPEN c_group(p_usec_rsv_rec.preference_code);
557: FETCH c_group INTO l_n_group_id;
559: END IF;
560:
561: IF (p_usec_rsv_rec.priority_value = 'UNIT_SET') THEN
562: IF NOT igs_en_unit_set_pkg.get_pk_for_validation (p_usec_rsv_rec.preference_code,p_usec_rsv_rec.preference_version) THEN
563: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'USEC_RSV_PRF', 'LEGACY_TOKENS', FALSE);
564: p_usec_rsv_rec.status := 'E';
565: END IF;
566: END IF;
567:
566: END IF;
567:
568: IF (p_usec_rsv_rec.priority_value = 'PROGRAM_STAGE') THEN
569: IF NOT igs_ps_stage_type_pkg.get_pk_for_validation (p_usec_rsv_rec.preference_code ) THEN
570: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'USEC_RSV_PRF', 'LEGACY_TOKENS', FALSE);
571: p_usec_rsv_rec.status := 'E';
572: END IF;
573: END IF;
574:
573: END IF;
574:
575: IF (p_usec_rsv_rec.priority_value = 'CLASS_STD' ) THEN
576: IF NOT igs_pr_class_std_pkg.get_uk_for_validation (p_usec_rsv_rec.preference_code ) THEN
577: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'USEC_RSV_PRF', 'LEGACY_TOKENS', FALSE);
578: p_usec_rsv_rec.status := 'E';
579: END IF;
580: END IF;
581:
582: IF (p_usec_rsv_rec.priority_value = 'ORG_UNIT') THEN
583: OPEN cur_hzp(p_usec_rsv_rec.preference_code );
584: FETCH cur_hzp INTO cur_hzp_rec;
585: IF cur_hzp%NOTFOUND THEN
586: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'USEC_RSV_PRF', 'LEGACY_TOKENS', FALSE);
587: p_usec_rsv_rec.status := 'E';
588: END IF;
589: CLOSE cur_hzp;
590: END IF;
856: PROCEDURE validate_parameters (p_uso_fclt_rec IN OUT NOCOPY igs_ps_generic_pub.usec_occurs_facility_rec_type ) AS
857: BEGIN
858: /* Check for Mandatory Parameters */
859: IF p_uso_fclt_rec.unit_cd IS NULL OR p_uso_fclt_rec.unit_cd = FND_API.G_MISS_CHAR THEN
860: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CD', 'LEGACY_TOKENS', FALSE);
861: p_uso_fclt_rec.status := 'E';
862: END IF;
863: IF p_uso_fclt_rec.version_number IS NULL OR p_uso_fclt_rec.version_number = FND_API.G_MISS_NUM THEN
864: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_VER_NUM', 'LEGACY_TOKENS', FALSE);
860: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CD', 'LEGACY_TOKENS', FALSE);
861: p_uso_fclt_rec.status := 'E';
862: END IF;
863: IF p_uso_fclt_rec.version_number IS NULL OR p_uso_fclt_rec.version_number = FND_API.G_MISS_NUM THEN
864: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_VER_NUM', 'LEGACY_TOKENS', FALSE);
865: p_uso_fclt_rec.status := 'E';
866: END IF;
867: IF p_uso_fclt_rec.teach_cal_alternate_code IS NULL OR p_uso_fclt_rec.teach_cal_alternate_code = FND_API.G_MISS_CHAR THEN
868: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
864: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_VER_NUM', 'LEGACY_TOKENS', FALSE);
865: p_uso_fclt_rec.status := 'E';
866: END IF;
867: IF p_uso_fclt_rec.teach_cal_alternate_code IS NULL OR p_uso_fclt_rec.teach_cal_alternate_code = FND_API.G_MISS_CHAR THEN
868: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
869: p_uso_fclt_rec.status := 'E';
870: END IF;
871: IF p_uso_fclt_rec.location_cd IS NULL OR p_uso_fclt_rec.location_cd = FND_API.G_MISS_CHAR THEN
872: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD', 'LEGACY_TOKENS', FALSE);
868: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
869: p_uso_fclt_rec.status := 'E';
870: END IF;
871: IF p_uso_fclt_rec.location_cd IS NULL OR p_uso_fclt_rec.location_cd = FND_API.G_MISS_CHAR THEN
872: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD', 'LEGACY_TOKENS', FALSE);
873: p_uso_fclt_rec.status := 'E';
874: END IF;
875: IF p_uso_fclt_rec.unit_class IS NULL OR p_uso_fclt_rec.unit_class = FND_API.G_MISS_CHAR THEN
876: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CLASS', 'LEGACY_TOKENS', FALSE);
872: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD', 'LEGACY_TOKENS', FALSE);
873: p_uso_fclt_rec.status := 'E';
874: END IF;
875: IF p_uso_fclt_rec.unit_class IS NULL OR p_uso_fclt_rec.unit_class = FND_API.G_MISS_CHAR THEN
876: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CLASS', 'LEGACY_TOKENS', FALSE);
877: p_uso_fclt_rec.status := 'E';
878: END IF;
879: IF (p_uso_fclt_rec.production_uso_id IS NULL OR p_uso_fclt_rec.production_uso_id = FND_API.G_MISS_NUM) AND (p_uso_fclt_rec.occurrence_identifier IS NULL OR p_uso_fclt_rec.occurrence_identifier = FND_API.G_MISS_CHAR) THEN
880: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'USEC_OCCRS_ID', 'IGS_PS_LOG_PARAMETERS', FALSE);
876: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CLASS', 'LEGACY_TOKENS', FALSE);
877: p_uso_fclt_rec.status := 'E';
878: END IF;
879: IF (p_uso_fclt_rec.production_uso_id IS NULL OR p_uso_fclt_rec.production_uso_id = FND_API.G_MISS_NUM) AND (p_uso_fclt_rec.occurrence_identifier IS NULL OR p_uso_fclt_rec.occurrence_identifier = FND_API.G_MISS_CHAR) THEN
880: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'USEC_OCCRS_ID', 'IGS_PS_LOG_PARAMETERS', FALSE);
881: p_uso_fclt_rec.status := 'E';
882: END IF;
883: IF p_uso_fclt_rec.facility_code IS NULL OR p_uso_fclt_rec.facility_code = FND_API.G_MISS_CHAR THEN
884: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'FACILITY_CODE', 'LEGACY_TOKENS', FALSE);
880: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'USEC_OCCRS_ID', 'IGS_PS_LOG_PARAMETERS', FALSE);
881: p_uso_fclt_rec.status := 'E';
882: END IF;
883: IF p_uso_fclt_rec.facility_code IS NULL OR p_uso_fclt_rec.facility_code = FND_API.G_MISS_CHAR THEN
884: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'FACILITY_CODE', 'LEGACY_TOKENS', FALSE);
885: p_uso_fclt_rec.status := 'E';
886: END IF;
887:
888: END validate_parameters;
911: p_start_dt => l_d_start_dt,
912: p_end_dt => l_d_end_dt,
913: p_return_status => l_c_message );
914: IF ( l_c_message <> 'SINGLE' ) THEN
915: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
916: p_uso_fclt_rec.status := 'E';
917: END IF;
918:
919:
918:
919:
920: -- Derive uoo_id
921: l_c_message := NULL;
922: igs_ps_validate_lgcy_pkg.get_uoo_id ( p_unit_cd => p_uso_fclt_rec.unit_cd,
923: p_ver_num => p_uso_fclt_rec.version_number,
924: p_cal_type => l_c_cal_type,
925: p_seq_num => l_n_seq_num,
926: p_loc_cd => p_uso_fclt_rec.location_cd,
927: p_unit_class => p_uso_fclt_rec.unit_class,
928: p_uoo_id => l_n_uoo_id,
929: p_message => l_c_message );
930: IF ( l_c_message IS NOT NULL ) THEN
931: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_SECTION', 'LEGACY_TOKENS', FALSE);
932: p_uso_fclt_rec.status := 'E';
933: END IF;
934:
935: IF p_uso_fclt_rec.production_uso_id IS NOT NULL THEN
937: ELSE
938: OPEN c_uso_id(p_uso_fclt_rec.occurrence_identifier,l_n_uoo_id);
939: FETCH c_uso_id INTO l_n_uso_id;
940: IF c_uso_id%NOTFOUND THEN
941: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'USEC_OCCRS_ID', 'IGS_PS_LOG_PARAMETERS', FALSE);
942: p_uso_fclt_rec.status := 'E';
943: END IF;
944: CLOSE c_uso_id;
945: END IF;
954: IF igs_ps_uso_facility_pkg.get_uk_for_validation (
955: x_unit_section_occurrence_id => l_n_uso_id,
956: x_facility_code => p_uso_fclt_rec.facility_code
957: ) THEN
958: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_EXISTS', 'FACILITY', 'LEGACY_TOKENS', FALSE);
959: p_uso_fclt_rec.status := 'W';
960: RETURN;
961: END IF;
962:
961: END IF;
962:
963: /* Validate FK Constraints */
964: IF NOT igs_ps_media_equip_pkg.get_pk_for_validation (p_uso_fclt_rec.facility_code) THEN
965: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'FACILITY_CODE', 'LEGACY_TOKENS', FALSE);
966: p_uso_fclt_rec.status := 'E';
967: END IF;
968:
969: IF NOT igs_ps_usec_occurs_pkg.get_pk_for_validation (l_n_uso_id) THEN
966: p_uso_fclt_rec.status := 'E';
967: END IF;
968:
969: IF NOT igs_ps_usec_occurs_pkg.get_pk_for_validation (l_n_uso_id) THEN
970: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'USEC_OCCUR', 'LEGACY_TOKENS', FALSE);
971: p_uso_fclt_rec.status := 'E';
972: END IF;
973:
974: END validate_db_cons;
1012: END IF;
1013:
1014: -- Find out whether record can go for import in context of cancelled/aborted
1015: IF p_usec_occurs_facility_tbl(I).status = 'S' AND p_calling_context ='S' THEN
1016: IF igs_ps_validate_lgcy_pkg.check_import_allowed( l_n_uoo_id,l_n_uso_id) = FALSE THEN
1017: fnd_message.set_name ( 'IGS', 'IGS_PS_REC_ABORTED_CANCELLED' );
1018: fnd_msg_pub.add;
1019: p_usec_occurs_facility_tbl(I).status := 'A';
1020: END IF;
1149: PROCEDURE validate_parameters (p_usec_cat_rec IN OUT NOCOPY igs_ps_generic_pub.usec_cat_rec_type ) AS
1150: BEGIN
1151: /* Check for Mandatory Parameters */
1152: IF p_usec_cat_rec.unit_cd IS NULL OR p_usec_cat_rec.unit_cd = FND_API.G_MISS_CHAR THEN
1153: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CD', 'LEGACY_TOKENS', FALSE);
1154: p_usec_cat_rec.status := 'E';
1155: END IF;
1156: IF p_usec_cat_rec.version_number IS NULL OR p_usec_cat_rec.version_number = FND_API.G_MISS_NUM THEN
1157: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_VER_NUM', 'LEGACY_TOKENS', FALSE);
1153: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CD', 'LEGACY_TOKENS', FALSE);
1154: p_usec_cat_rec.status := 'E';
1155: END IF;
1156: IF p_usec_cat_rec.version_number IS NULL OR p_usec_cat_rec.version_number = FND_API.G_MISS_NUM THEN
1157: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_VER_NUM', 'LEGACY_TOKENS', FALSE);
1158: p_usec_cat_rec.status := 'E';
1159: END IF;
1160: IF p_usec_cat_rec.teach_cal_alternate_code IS NULL OR p_usec_cat_rec.teach_cal_alternate_code = FND_API.G_MISS_CHAR THEN
1161: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
1157: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_VER_NUM', 'LEGACY_TOKENS', FALSE);
1158: p_usec_cat_rec.status := 'E';
1159: END IF;
1160: IF p_usec_cat_rec.teach_cal_alternate_code IS NULL OR p_usec_cat_rec.teach_cal_alternate_code = FND_API.G_MISS_CHAR THEN
1161: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
1162: p_usec_cat_rec.status := 'E';
1163: END IF;
1164: IF p_usec_cat_rec.location_cd IS NULL OR p_usec_cat_rec.location_cd = FND_API.G_MISS_CHAR THEN
1165: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD', 'LEGACY_TOKENS', FALSE);
1161: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
1162: p_usec_cat_rec.status := 'E';
1163: END IF;
1164: IF p_usec_cat_rec.location_cd IS NULL OR p_usec_cat_rec.location_cd = FND_API.G_MISS_CHAR THEN
1165: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD', 'LEGACY_TOKENS', FALSE);
1166: p_usec_cat_rec.status := 'E';
1167: END IF;
1168: IF p_usec_cat_rec.unit_class IS NULL OR p_usec_cat_rec.unit_class = FND_API.G_MISS_CHAR THEN
1169: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CLASS', 'LEGACY_TOKENS', FALSE);
1165: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD', 'LEGACY_TOKENS', FALSE);
1166: p_usec_cat_rec.status := 'E';
1167: END IF;
1168: IF p_usec_cat_rec.unit_class IS NULL OR p_usec_cat_rec.unit_class = FND_API.G_MISS_CHAR THEN
1169: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CLASS', 'LEGACY_TOKENS', FALSE);
1170: p_usec_cat_rec.status := 'E';
1171: END IF;
1172: IF p_usec_cat_rec.unit_cat IS NULL OR p_usec_cat_rec.unit_cat = FND_API.G_MISS_CHAR THEN
1173: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'CATEGORY', 'LEGACY_TOKENS', FALSE);
1169: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CLASS', 'LEGACY_TOKENS', FALSE);
1170: p_usec_cat_rec.status := 'E';
1171: END IF;
1172: IF p_usec_cat_rec.unit_cat IS NULL OR p_usec_cat_rec.unit_cat = FND_API.G_MISS_CHAR THEN
1173: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'CATEGORY', 'LEGACY_TOKENS', FALSE);
1174: p_usec_cat_rec.status := 'E';
1175: END IF;
1176:
1177: END validate_parameters;
1193: p_start_dt => l_d_start_dt,
1194: p_end_dt => l_d_end_dt,
1195: p_return_status => l_c_message );
1196: IF ( l_c_message <> 'SINGLE' ) THEN
1197: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
1198: p_usec_cat_rec.status := 'E';
1199: END IF;
1200:
1201:
1200:
1201:
1202: -- Derive uoo_id
1203: l_c_message := NULL;
1204: igs_ps_validate_lgcy_pkg.get_uoo_id ( p_unit_cd => p_usec_cat_rec.unit_cd,
1205: p_ver_num => p_usec_cat_rec.version_number,
1206: p_cal_type => l_c_cal_type,
1207: p_seq_num => l_n_seq_num,
1208: p_loc_cd => p_usec_cat_rec.location_cd,
1211: p_message => l_c_message );
1212:
1213: IF ( l_c_message IS NOT NULL ) THEN
1214:
1215: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_SECTION', 'LEGACY_TOKENS', FALSE);
1216: p_usec_cat_rec.status := 'E';
1217:
1218: END IF;
1219:
1227: IF igs_ps_usec_category_pkg.get_uk_for_validation (
1228: x_uoo_id => l_n_uoo_id,
1229: x_unit_cat => p_usec_cat_rec.unit_cat
1230: ) THEN
1231: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_EXISTS', 'CATEGORY', 'LEGACY_TOKENS', FALSE);
1232: p_usec_cat_rec.status := 'W';
1233: RETURN;
1234: END IF;
1235:
1234: END IF;
1235:
1236: /* Validate FK Constraints */
1237: IF NOT igs_ps_unit_cat_pkg.get_pk_for_validation (p_usec_cat_rec.unit_cat) THEN
1238: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'CATEGORY', 'LEGACY_TOKENS', FALSE);
1239: p_usec_cat_rec.status := 'E';
1240: END IF;
1241:
1242: IF NOT igs_ps_unit_ofr_opt_pkg.get_uk_for_validation (l_n_uoo_id) THEN
1239: p_usec_cat_rec.status := 'E';
1240: END IF;
1241:
1242: IF NOT igs_ps_unit_ofr_opt_pkg.get_uk_for_validation (l_n_uoo_id) THEN
1243: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_SECTION', 'LEGACY_TOKENS', FALSE);
1244: p_usec_cat_rec.status := 'E';
1245: END IF;
1246:
1247: END validate_db_cons;
1281:
1282: END IF;
1283:
1284: IF p_usec_cat_tbl(I).status = 'S' AND p_calling_context = 'S' THEN
1285: IF igs_ps_validate_lgcy_pkg.check_import_allowed( l_n_uoo_id,NULL) = FALSE THEN
1286: fnd_message.set_name ( 'IGS', 'IGS_PS_REC_ABORTED_CANCELLED' );
1287: fnd_msg_pub.add;
1288: p_usec_cat_tbl(I).status := 'A';
1289: END IF;
1444: BEGIN
1445:
1446: /* Check for Mandatory Parameters */
1447: IF p_tch_rsp_ovrd_rec.unit_cd IS NULL OR p_tch_rsp_ovrd_rec.unit_cd = FND_API.G_MISS_CHAR THEN
1448: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CD', 'LEGACY_TOKENS', FALSE);
1449: p_tch_rsp_ovrd_rec.status := 'E';
1450: END IF;
1451: IF p_tch_rsp_ovrd_rec.version_number IS NULL OR p_tch_rsp_ovrd_rec.version_number = FND_API.G_MISS_NUM THEN
1452: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_VER_NUM', 'LEGACY_TOKENS', FALSE);
1448: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CD', 'LEGACY_TOKENS', FALSE);
1449: p_tch_rsp_ovrd_rec.status := 'E';
1450: END IF;
1451: IF p_tch_rsp_ovrd_rec.version_number IS NULL OR p_tch_rsp_ovrd_rec.version_number = FND_API.G_MISS_NUM THEN
1452: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_VER_NUM', 'LEGACY_TOKENS', FALSE);
1453: p_tch_rsp_ovrd_rec.status := 'E';
1454: END IF;
1455: IF p_tch_rsp_ovrd_rec.teach_cal_alternate_code IS NULL OR p_tch_rsp_ovrd_rec.teach_cal_alternate_code = FND_API.G_MISS_CHAR THEN
1456: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
1452: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_VER_NUM', 'LEGACY_TOKENS', FALSE);
1453: p_tch_rsp_ovrd_rec.status := 'E';
1454: END IF;
1455: IF p_tch_rsp_ovrd_rec.teach_cal_alternate_code IS NULL OR p_tch_rsp_ovrd_rec.teach_cal_alternate_code = FND_API.G_MISS_CHAR THEN
1456: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
1457: p_tch_rsp_ovrd_rec.status := 'E';
1458: END IF;
1459: IF p_tch_rsp_ovrd_rec.location_cd IS NULL OR p_tch_rsp_ovrd_rec.location_cd = FND_API.G_MISS_CHAR THEN
1460: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD', 'LEGACY_TOKENS', FALSE);
1456: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
1457: p_tch_rsp_ovrd_rec.status := 'E';
1458: END IF;
1459: IF p_tch_rsp_ovrd_rec.location_cd IS NULL OR p_tch_rsp_ovrd_rec.location_cd = FND_API.G_MISS_CHAR THEN
1460: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD', 'LEGACY_TOKENS', FALSE);
1461: p_tch_rsp_ovrd_rec.status := 'E';
1462: END IF;
1463: IF p_tch_rsp_ovrd_rec.unit_class IS NULL OR p_tch_rsp_ovrd_rec.unit_class = FND_API.G_MISS_CHAR THEN
1464: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CLASS', 'LEGACY_TOKENS', FALSE);
1460: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD', 'LEGACY_TOKENS', FALSE);
1461: p_tch_rsp_ovrd_rec.status := 'E';
1462: END IF;
1463: IF p_tch_rsp_ovrd_rec.unit_class IS NULL OR p_tch_rsp_ovrd_rec.unit_class = FND_API.G_MISS_CHAR THEN
1464: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CLASS', 'LEGACY_TOKENS', FALSE);
1465: p_tch_rsp_ovrd_rec.status := 'E';
1466: END IF;
1467: IF p_tch_rsp_ovrd_rec.org_unit_cd IS NULL OR p_tch_rsp_ovrd_rec.org_unit_cd = FND_API.G_MISS_CHAR THEN
1468: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'ORG_UNIT_CD', 'LEGACY_TOKENS', FALSE);
1464: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CLASS', 'LEGACY_TOKENS', FALSE);
1465: p_tch_rsp_ovrd_rec.status := 'E';
1466: END IF;
1467: IF p_tch_rsp_ovrd_rec.org_unit_cd IS NULL OR p_tch_rsp_ovrd_rec.org_unit_cd = FND_API.G_MISS_CHAR THEN
1468: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'ORG_UNIT_CD', 'LEGACY_TOKENS', FALSE);
1469: p_tch_rsp_ovrd_rec.status := 'E';
1470: END IF;
1471: IF p_tch_rsp_ovrd_rec.ou_start_dt IS NULL OR p_tch_rsp_ovrd_rec.ou_start_dt = FND_API.G_MISS_DATE THEN
1472: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'OU_START_DT', 'LEGACY_TOKENS', FALSE);
1468: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'ORG_UNIT_CD', 'LEGACY_TOKENS', FALSE);
1469: p_tch_rsp_ovrd_rec.status := 'E';
1470: END IF;
1471: IF p_tch_rsp_ovrd_rec.ou_start_dt IS NULL OR p_tch_rsp_ovrd_rec.ou_start_dt = FND_API.G_MISS_DATE THEN
1472: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'OU_START_DT', 'LEGACY_TOKENS', FALSE);
1473: p_tch_rsp_ovrd_rec.status := 'E';
1474: END IF;
1475: IF p_tch_rsp_ovrd_rec.percentage IS NULL OR p_tch_rsp_ovrd_rec.percentage = FND_API.G_MISS_NUM THEN
1476: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'PERCENTAGE', 'LEGACY_TOKENS', FALSE);
1472: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'OU_START_DT', 'LEGACY_TOKENS', FALSE);
1473: p_tch_rsp_ovrd_rec.status := 'E';
1474: END IF;
1475: IF p_tch_rsp_ovrd_rec.percentage IS NULL OR p_tch_rsp_ovrd_rec.percentage = FND_API.G_MISS_NUM THEN
1476: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'PERCENTAGE', 'LEGACY_TOKENS', FALSE);
1477: p_tch_rsp_ovrd_rec.status := 'E';
1478: END IF;
1479: END validate_parameters;
1480:
1539: p_start_dt => l_d_start_dt,
1540: p_end_dt => l_d_end_dt,
1541: p_return_status => l_c_message );
1542: IF ( l_c_message <> 'SINGLE' ) THEN
1543: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
1544: p_tch_rsp_ovrd_rec.status := 'E';
1545: END IF;
1546:
1547:
1546:
1547:
1548: -- Derive uoo_id
1549: l_c_message := NULL;
1550: igs_ps_validate_lgcy_pkg.get_uoo_id ( p_unit_cd => p_tch_rsp_ovrd_rec.unit_cd,
1551: p_ver_num => p_tch_rsp_ovrd_rec.version_number,
1552: p_cal_type => l_c_cal_type,
1553: p_seq_num => l_n_seq_num,
1554: p_loc_cd => p_tch_rsp_ovrd_rec.location_cd,
1555: p_unit_class => p_tch_rsp_ovrd_rec.unit_class,
1556: p_uoo_id => l_n_uoo_id,
1557: p_message => l_c_message );
1558: IF ( l_c_message IS NOT NULL ) THEN
1559: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_SECTION', 'LEGACY_TOKENS', FALSE);
1560: p_tch_rsp_ovrd_rec.status := 'E';
1561: END IF;
1562:
1563: END validate_derivations;
1575: x_location_cd=>p_tch_rsp_ovrd_rec.location_cd,
1576: x_unit_class=>p_tch_rsp_ovrd_rec.unit_class,
1577: x_org_unit_cd=>p_tch_rsp_ovrd_rec.org_unit_cd,
1578: x_ou_start_dt =>p_tch_rsp_ovrd_rec.ou_start_dt ) THEN
1579: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_EXISTS', 'UNIT_SECTION', 'LEGACY_TOKENS', FALSE);
1580: p_tch_rsp_ovrd_rec.status := 'W';
1581: RETURN;
1582: END IF;
1583: END IF;
1586: BEGIN
1587: igs_ps_tch_resp_ovrd_pkg.check_constraints ( 'CI_SEQUENCE_NUMBER', l_n_seq_num);
1588: EXCEPTION
1589: WHEN OTHERS THEN
1590: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'CI_SEQUENCE_NUMBER', 'LEGACY_TOKENS', TRUE);
1591: p_tch_rsp_ovrd_rec.status := 'E';
1592: END;
1593:
1594: BEGIN
1594: BEGIN
1595: igs_ps_tch_resp_ovrd_pkg.check_constraints ( 'UOO_ID', l_n_uoo_id);
1596: EXCEPTION
1597: WHEN OTHERS THEN
1598: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'UOO_ID', 'LEGACY_TOKENS', TRUE);
1599: p_tch_rsp_ovrd_rec.status := 'E';
1600: END;
1601:
1602: BEGIN
1602: BEGIN
1603: igs_ps_tch_resp_ovrd_pkg.check_constraints ( 'PERCENTAGE', p_tch_rsp_ovrd_rec.percentage);
1604: EXCEPTION
1605: WHEN OTHERS THEN
1606: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_PER_0_100', null, null, TRUE);
1607: p_tch_rsp_ovrd_rec.status := 'E';
1608: END;
1609:
1610: /* Validate FK Constraints */
1609:
1610: /* Validate FK Constraints */
1611: IF NOT igs_ps_unit_ofr_opt_pkg.get_pk_for_validation ( p_tch_rsp_ovrd_rec.unit_cd, p_tch_rsp_ovrd_rec.version_number,
1612: l_c_cal_type,l_n_seq_num,p_tch_rsp_ovrd_rec.location_cd,p_tch_rsp_ovrd_rec.unit_class) THEN
1613: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_SECTION', 'LEGACY_TOKENS', FALSE);
1614: p_tch_rsp_ovrd_rec.status := 'E';
1615: END IF;
1616:
1617: IF NOT igs_or_unit_pkg.get_pk_for_validation ( p_tch_rsp_ovrd_rec.org_unit_cd,p_tch_rsp_ovrd_rec.ou_start_dt ) THEN
1614: p_tch_rsp_ovrd_rec.status := 'E';
1615: END IF;
1616:
1617: IF NOT igs_or_unit_pkg.get_pk_for_validation ( p_tch_rsp_ovrd_rec.org_unit_cd,p_tch_rsp_ovrd_rec.ou_start_dt ) THEN
1618: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'ORG_UNIT', 'LEGACY_TOKENS', FALSE);
1619: p_tch_rsp_ovrd_rec.status := 'E';
1620: END IF;
1621:
1622: IF NOT igs_ps_unit_ofr_opt_pkg.get_uk_for_validation ( l_n_uoo_id ) THEN
1619: p_tch_rsp_ovrd_rec.status := 'E';
1620: END IF;
1621:
1622: IF NOT igs_ps_unit_ofr_opt_pkg.get_uk_for_validation ( l_n_uoo_id ) THEN
1623: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_SECTION', 'LEGACY_TOKENS', FALSE);
1624: p_tch_rsp_ovrd_rec.status := 'E';
1625: END IF;
1626: END validate_db_cons;
1627:
1682:
1683: END IF;
1684:
1685: IF p_usec_teach_resp_ovrd_tbl(I).status = 'S' AND p_calling_context = 'S' THEN
1686: IF igs_ps_validate_lgcy_pkg.check_import_allowed( l_n_uoo_id,NULL) = FALSE THEN
1687: fnd_message.set_name ( 'IGS', 'IGS_PS_REC_ABORTED_CANCELLED' );
1688: fnd_msg_pub.add;
1689: p_usec_teach_resp_ovrd_tbl(I).status := 'A';
1690: END IF;
1701:
1702: IF l_tbl_uoo.count = 0 THEN
1703: l_tbl_uoo(l_tbl_uoo.count+1) :=l_n_uoo_id;
1704: ELSE
1705: IF NOT igs_ps_validate_lgcy_pkg.isExists(l_n_uoo_id,l_tbl_uoo) THEN
1706: l_tbl_uoo(l_tbl_uoo.count+1) :=l_n_uoo_id;
1707: END IF;
1708: END IF;
1709:
1951: BEGIN
1952:
1953: /* Check for Mandatory Parameters */
1954: IF p_as_us_ai_group_rec.unit_cd IS NULL OR p_as_us_ai_group_rec.unit_cd = FND_API.G_MISS_CHAR THEN
1955: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CD', 'LEGACY_TOKENS', FALSE);
1956: p_as_us_ai_group_rec.status := 'E';
1957: END IF;
1958: IF p_as_us_ai_group_rec.version_number IS NULL OR p_as_us_ai_group_rec.version_number = FND_API.G_MISS_NUM THEN
1959: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_VER_NUM', 'LEGACY_TOKENS', FALSE);
1955: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CD', 'LEGACY_TOKENS', FALSE);
1956: p_as_us_ai_group_rec.status := 'E';
1957: END IF;
1958: IF p_as_us_ai_group_rec.version_number IS NULL OR p_as_us_ai_group_rec.version_number = FND_API.G_MISS_NUM THEN
1959: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_VER_NUM', 'LEGACY_TOKENS', FALSE);
1960: p_as_us_ai_group_rec.status := 'E';
1961: END IF;
1962: IF p_as_us_ai_group_rec.teach_cal_alternate_code IS NULL OR p_as_us_ai_group_rec.teach_cal_alternate_code = FND_API.G_MISS_CHAR THEN
1963: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
1959: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_VER_NUM', 'LEGACY_TOKENS', FALSE);
1960: p_as_us_ai_group_rec.status := 'E';
1961: END IF;
1962: IF p_as_us_ai_group_rec.teach_cal_alternate_code IS NULL OR p_as_us_ai_group_rec.teach_cal_alternate_code = FND_API.G_MISS_CHAR THEN
1963: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
1964: p_as_us_ai_group_rec.status := 'E';
1965: END IF;
1966: IF p_as_us_ai_group_rec.location_cd IS NULL OR p_as_us_ai_group_rec.location_cd = FND_API.G_MISS_CHAR THEN
1967: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD', 'LEGACY_TOKENS', FALSE);
1963: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
1964: p_as_us_ai_group_rec.status := 'E';
1965: END IF;
1966: IF p_as_us_ai_group_rec.location_cd IS NULL OR p_as_us_ai_group_rec.location_cd = FND_API.G_MISS_CHAR THEN
1967: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD', 'LEGACY_TOKENS', FALSE);
1968: p_as_us_ai_group_rec.status := 'E';
1969: END IF;
1970: IF p_as_us_ai_group_rec.unit_class IS NULL OR p_as_us_ai_group_rec.unit_class = FND_API.G_MISS_CHAR THEN
1971: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CLASS', 'LEGACY_TOKENS', FALSE);
1967: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD', 'LEGACY_TOKENS', FALSE);
1968: p_as_us_ai_group_rec.status := 'E';
1969: END IF;
1970: IF p_as_us_ai_group_rec.unit_class IS NULL OR p_as_us_ai_group_rec.unit_class = FND_API.G_MISS_CHAR THEN
1971: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CLASS', 'LEGACY_TOKENS', FALSE);
1972: p_as_us_ai_group_rec.status := 'E';
1973: END IF;
1974: IF p_as_us_ai_group_rec.group_name IS NULL OR p_as_us_ai_group_rec.group_name = FND_API.G_MISS_CHAR THEN
1975: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'GROUP_NAME', 'LEGACY_TOKENS', FALSE);
1971: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CLASS', 'LEGACY_TOKENS', FALSE);
1972: p_as_us_ai_group_rec.status := 'E';
1973: END IF;
1974: IF p_as_us_ai_group_rec.group_name IS NULL OR p_as_us_ai_group_rec.group_name = FND_API.G_MISS_CHAR THEN
1975: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'GROUP_NAME', 'LEGACY_TOKENS', FALSE);
1976: p_as_us_ai_group_rec.status := 'E';
1977: END IF;
1978:
1979:
2021: p_start_dt => l_d_start_dt,
2022: p_end_dt => l_d_end_dt,
2023: p_return_status => l_c_message );
2024: IF ( l_c_message <> 'SINGLE' ) THEN
2025: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
2026: p_as_us_ai_group_rec.status := 'E';
2027: END IF;
2028:
2029: --check if calendar instance is inactive
2042:
2043:
2044: -- Derive uoo_id
2045: l_c_message := NULL;
2046: igs_ps_validate_lgcy_pkg.get_uoo_id ( p_unit_cd => p_as_us_ai_group_rec.unit_cd,
2047: p_ver_num => p_as_us_ai_group_rec.version_number,
2048: p_cal_type => l_c_cal_type,
2049: p_seq_num => l_n_seq_num,
2050: p_loc_cd => p_as_us_ai_group_rec.location_cd,
2051: p_unit_class => p_as_us_ai_group_rec.unit_class,
2052: p_uoo_id => l_n_uoo_id,
2053: p_message => l_c_message );
2054: IF ( l_c_message IS NOT NULL ) THEN
2055: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_SECTION', 'LEGACY_TOKENS', FALSE);
2056: p_as_us_ai_group_rec.status := 'E';
2057: END IF;
2058: END validate_derivations;
2059:
2120: IF (p_insert_update = 'I') THEN
2121: /* Unique Key Validation */
2122: IF igs_as_us_ai_group_pkg.get_uk_for_validation (x_uoo_id => l_n_uoo_id,
2123: x_group_name => p_as_us_ai_group_rec.group_name) THEN
2124: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_EXISTS', 'USEC_ASSMNT', 'LEGACY_TOKENS', FALSE);
2125: p_as_us_ai_group_rec.status := 'W';
2126: RETURN;
2127: END IF;
2128: END IF;
2129:
2130: /* Validate Check Constraints */
2131: IF p_as_us_ai_group_rec.midterm_formula_qty IS NOT NULL THEN
2132: IF p_as_us_ai_group_rec.midterm_formula_qty <0 OR p_as_us_ai_group_rec.midterm_formula_qty >999 THEN
2133: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999', 'MIDTERM_FORMULA_QTY', 'LEGACY_TOKENS', FALSE);
2134: p_as_us_ai_group_rec.status := 'E';
2135: END IF;
2136:
2137: --Format mask validation
2135: END IF;
2136:
2137: --Format mask validation
2138: IF p_as_us_ai_group_rec.status <> 'E' THEN
2139: IF NOT igs_ps_validate_lgcy_pkg.boundary_check_number(p_as_us_ai_group_rec.midterm_formula_qty,3,0) THEN
2140: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999', 'MIDTERM_FORMULA_QTY', 'LEGACY_TOKENS', FALSE);
2141: p_as_us_ai_group_rec.status :='E';
2142: END IF;
2143: END IF;
2136:
2137: --Format mask validation
2138: IF p_as_us_ai_group_rec.status <> 'E' THEN
2139: IF NOT igs_ps_validate_lgcy_pkg.boundary_check_number(p_as_us_ai_group_rec.midterm_formula_qty,3,0) THEN
2140: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999', 'MIDTERM_FORMULA_QTY', 'LEGACY_TOKENS', FALSE);
2141: p_as_us_ai_group_rec.status :='E';
2142: END IF;
2143: END IF;
2144:
2145: END IF;
2146:
2147: IF p_as_us_ai_group_rec.midterm_weight_qty IS NOT NULL THEN
2148: IF p_as_us_ai_group_rec.midterm_weight_qty <0.001 OR p_as_us_ai_group_rec.midterm_weight_qty >999.999 THEN
2149: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_990D00', 'MIDTERM_WEIGHT_QTY', 'LEGACY_TOKENS', FALSE);
2150: p_as_us_ai_group_rec.status := 'E';
2151: END IF;
2152:
2153: --Format mask validation
2151: END IF;
2152:
2153: --Format mask validation
2154: IF p_as_us_ai_group_rec.status <> 'E' THEN
2155: IF NOT igs_ps_validate_lgcy_pkg.boundary_check_number(p_as_us_ai_group_rec.midterm_weight_qty,3,3) THEN
2156: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_990D00', 'MIDTERM_WEIGHT_QTY', 'LEGACY_TOKENS', FALSE);
2157: p_as_us_ai_group_rec.status :='E';
2158: END IF;
2159: END IF;
2152:
2153: --Format mask validation
2154: IF p_as_us_ai_group_rec.status <> 'E' THEN
2155: IF NOT igs_ps_validate_lgcy_pkg.boundary_check_number(p_as_us_ai_group_rec.midterm_weight_qty,3,3) THEN
2156: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_990D00', 'MIDTERM_WEIGHT_QTY', 'LEGACY_TOKENS', FALSE);
2157: p_as_us_ai_group_rec.status :='E';
2158: END IF;
2159: END IF;
2160:
2161: END IF;
2162:
2163: IF p_as_us_ai_group_rec.final_formula_qty IS NOT NULL THEN
2164: IF p_as_us_ai_group_rec.final_formula_qty <0 OR p_as_us_ai_group_rec.final_formula_qty >999 THEN
2165: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999', 'FINAL_FORMULA_QTY', 'LEGACY_TOKENS', FALSE);
2166: p_as_us_ai_group_rec.status := 'E';
2167: END IF;
2168:
2169: --Format mask validation
2167: END IF;
2168:
2169: --Format mask validation
2170: IF p_as_us_ai_group_rec.status <> 'E' THEN
2171: IF NOT igs_ps_validate_lgcy_pkg.boundary_check_number(p_as_us_ai_group_rec.final_formula_qty,3,0) THEN
2172: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999', 'FINAL_FORMULA_QTY', 'LEGACY_TOKENS', FALSE);
2173: p_as_us_ai_group_rec.status :='E';
2174: END IF;
2175: END IF;
2168:
2169: --Format mask validation
2170: IF p_as_us_ai_group_rec.status <> 'E' THEN
2171: IF NOT igs_ps_validate_lgcy_pkg.boundary_check_number(p_as_us_ai_group_rec.final_formula_qty,3,0) THEN
2172: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999', 'FINAL_FORMULA_QTY', 'LEGACY_TOKENS', FALSE);
2173: p_as_us_ai_group_rec.status :='E';
2174: END IF;
2175: END IF;
2176:
2177: END IF;
2178:
2179: IF p_as_us_ai_group_rec.final_weight_qty IS NOT NULL THEN
2180: IF p_as_us_ai_group_rec.final_weight_qty <0.001 OR p_as_us_ai_group_rec.final_weight_qty >999.999 THEN
2181: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_990D00', 'FINAL_WEIGHT_QTY', 'LEGACY_TOKENS', FALSE);
2182: p_as_us_ai_group_rec.status := 'E';
2183: END IF;
2184:
2185: --Format mask validation
2183: END IF;
2184:
2185: --Format mask validation
2186: IF p_as_us_ai_group_rec.status <> 'E' THEN
2187: IF NOT igs_ps_validate_lgcy_pkg.boundary_check_number(p_as_us_ai_group_rec.final_weight_qty,3,3) THEN
2188: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_990D00', 'FINAL_WEIGHT_QTY', 'LEGACY_TOKENS', FALSE);
2189: p_as_us_ai_group_rec.status :='E';
2190: END IF;
2191: END IF;
2184:
2185: --Format mask validation
2186: IF p_as_us_ai_group_rec.status <> 'E' THEN
2187: IF NOT igs_ps_validate_lgcy_pkg.boundary_check_number(p_as_us_ai_group_rec.final_weight_qty,3,3) THEN
2188: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_990D00', 'FINAL_WEIGHT_QTY', 'LEGACY_TOKENS', FALSE);
2189: p_as_us_ai_group_rec.status :='E';
2190: END IF;
2191: END IF;
2192:
2194:
2195:
2196: /* Validate FK Constraints */
2197: IF NOT igs_ps_unit_ofr_opt_pkg.get_uk_for_validation ( l_n_uoo_id ) THEN
2198: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_SECTION', 'LEGACY_TOKENS', FALSE);
2199: p_as_us_ai_group_rec.status := 'E';
2200: END IF;
2201:
2202: END validate_db_cons;
2240: END IF;
2241:
2242: -- Find out whether record can go for import in context of cancelled/aborted
2243: IF p_as_us_ai_group_rec.status = 'S' AND p_calling_context = 'S' THEN
2244: IF igs_ps_validate_lgcy_pkg.check_import_allowed( l_n_uoo_id,NULL) = FALSE THEN
2245: fnd_message.set_name ( 'IGS', 'IGS_PS_REC_ABORTED_CANCELLED' );
2246: fnd_msg_pub.add;
2247: p_as_us_ai_group_rec.status := 'A';
2248: END IF;
2271:
2272: IF l_tbl_uoo.count = 0 THEN
2273: l_tbl_uoo(l_tbl_uoo.count+1) :=l_n_uoo_id;
2274: ELSE
2275: IF NOT igs_ps_validate_lgcy_pkg.isExists(l_n_uoo_id,l_tbl_uoo) THEN
2276: l_tbl_uoo(l_tbl_uoo.count+1) :=l_n_uoo_id;
2277: END IF;
2278: END IF;
2279:
2401: BEGIN
2402:
2403: /* Check for Mandatory Parameters */
2404: IF p_unitass_item_rec.assessment_id IS NULL OR p_unitass_item_rec.assessment_id = FND_API.G_MISS_NUM THEN
2405: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'ASSESSMENT_ID', 'LEGACY_TOKENS', FALSE);
2406: p_unitass_item_rec.status := 'E';
2407: END IF;
2408: IF p_unitass_item_rec.grading_schema_cd IS NULL OR p_unitass_item_rec.grading_schema_cd = FND_API.G_MISS_CHAR THEN
2409: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'GRADINGS_SCHEMA_CD', 'LEGACY_TOKENS', FALSE);
2405: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'ASSESSMENT_ID', 'LEGACY_TOKENS', FALSE);
2406: p_unitass_item_rec.status := 'E';
2407: END IF;
2408: IF p_unitass_item_rec.grading_schema_cd IS NULL OR p_unitass_item_rec.grading_schema_cd = FND_API.G_MISS_CHAR THEN
2409: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'GRADINGS_SCHEMA_CD', 'LEGACY_TOKENS', FALSE);
2410: p_unitass_item_rec.status := 'E';
2411: END IF;
2412: IF p_unitass_item_rec.gs_version_number IS NULL OR p_unitass_item_rec.gs_version_number = FND_API.G_MISS_NUM THEN
2413: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'GS_VERSION_NUMBER', 'LEGACY_TOKENS', FALSE);
2409: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'GRADINGS_SCHEMA_CD', 'LEGACY_TOKENS', FALSE);
2410: p_unitass_item_rec.status := 'E';
2411: END IF;
2412: IF p_unitass_item_rec.gs_version_number IS NULL OR p_unitass_item_rec.gs_version_number = FND_API.G_MISS_NUM THEN
2413: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'GS_VERSION_NUMBER', 'LEGACY_TOKENS', FALSE);
2414: p_unitass_item_rec.status := 'E';
2415: END IF;
2416:
2417: END validate_parameters_item;
2460: p_start_dt => l_d_start_dt,
2461: p_end_dt => l_d_end_dt,
2462: p_return_status => l_c_message );
2463: IF ( l_c_message <> 'SINGLE' ) THEN
2464: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
2465: p_unitass_item_rec.status := 'E';
2466: END IF;
2467:
2468: --derive us_ass_item_group_id
2570: ELSE
2571: OPEN cal_type(p_unitass_item_rec.exam_cal_alternate_code);
2572: FETCH cal_type INTO l_c_exam_cal_type,l_n_exam_seq_num;
2573: IF cal_type%NOTFOUND THEN
2574: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'EXAM_CAL_ALTERNATE_CODE', 'LEGACY_TOKENS', FALSE);
2575: p_unitass_item_rec.status := 'E';
2576: ELSE
2577: --validate the exam calendar is a valid one, if provided
2578: OPEN cur_exam_cal(l_c_exam_cal_type,l_n_exam_seq_num);
2577: --validate the exam calendar is a valid one, if provided
2578: OPEN cur_exam_cal(l_c_exam_cal_type,l_n_exam_seq_num);
2579: FETCH cur_exam_cal INTO l_c_var;
2580: IF cur_exam_cal%NOTFOUND THEN
2581: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'EXAM_CAL_ALTERNATE_CODE', 'LEGACY_TOKENS', FALSE);
2582: p_unitass_item_rec.status := 'E';
2583: END IF;
2584: CLOSE cur_exam_cal;
2585: END IF;
2643: ELSE
2644: OPEN cal_type(p_unitass_item_rec.exam_cal_alternate_code);
2645: FETCH cal_type INTO l_c_exam_cal_type,l_n_exam_seq_num;
2646: IF cal_type%NOTFOUND THEN
2647: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'EXAM_CAL_ALTERNATE_CODE', 'LEGACY_TOKENS', FALSE);
2648: p_unitass_item_rec.status := 'E';
2649: ELSE
2650: --validate the exam calendar is a valid one, if provided
2651: OPEN cur_exam_cal(l_c_exam_cal_type,l_n_exam_seq_num);
2650: --validate the exam calendar is a valid one, if provided
2651: OPEN cur_exam_cal(l_c_exam_cal_type,l_n_exam_seq_num);
2652: FETCH cur_exam_cal INTO l_c_var;
2653: IF cur_exam_cal%NOTFOUND THEN
2654: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'EXAM_CAL_ALTERNATE_CODE', 'LEGACY_TOKENS', FALSE);
2655: p_unitass_item_rec.status := 'E';
2656: END IF;
2657: CLOSE cur_exam_cal;
2658: END IF;
2708: -- Unique Key Validation
2709: IF igs_ps_unitass_item_pkg.get_uk_for_validation (x_ass_id =>p_unitass_item_rec.assessment_id,
2710: x_sequence_number=>p_unitass_item_rec.sequence_number,
2711: x_uoo_id =>l_n_uoo_id) THEN
2712: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_EXISTS', 'USEC_ASSMNT', 'LEGACY_TOKENS', FALSE);
2713: p_unitass_item_rec.status := 'W';
2714: RETURN;
2715: END IF;
2716: END IF;
2718: /* Validate Check Constraints */
2719: IF p_unitass_item_rec.midterm_weight_qty_item IS NOT NULL THEN
2720: IF p_unitass_item_rec.midterm_weight_qty_item <0.001 OR p_unitass_item_rec.midterm_weight_qty_item >999.999 THEN
2721: p_unitass_item_rec.status := 'E';
2722: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_990D00', 'MIDTERM_WEIGHT_QTY_ITEM', 'LEGACY_TOKENS', FALSE);
2723: END IF;
2724:
2725: --Format mask validation
2726: IF p_unitass_item_rec.status <> 'E' THEN
2723: END IF;
2724:
2725: --Format mask validation
2726: IF p_unitass_item_rec.status <> 'E' THEN
2727: IF NOT igs_ps_validate_lgcy_pkg.boundary_check_number(p_unitass_item_rec.midterm_weight_qty_item,3,3) THEN
2728: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_990D00', 'MIDTERM_WEIGHT_QTY_ITEM', 'LEGACY_TOKENS', FALSE);
2729: p_unitass_item_rec.status :='E';
2730: END IF;
2731: END IF;
2724:
2725: --Format mask validation
2726: IF p_unitass_item_rec.status <> 'E' THEN
2727: IF NOT igs_ps_validate_lgcy_pkg.boundary_check_number(p_unitass_item_rec.midterm_weight_qty_item,3,3) THEN
2728: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_990D00', 'MIDTERM_WEIGHT_QTY_ITEM', 'LEGACY_TOKENS', FALSE);
2729: p_unitass_item_rec.status :='E';
2730: END IF;
2731: END IF;
2732:
2734:
2735: IF p_unitass_item_rec.final_weight_qty_item IS NOT NULL THEN
2736: IF p_unitass_item_rec.final_weight_qty_item <0.001 OR p_unitass_item_rec.final_weight_qty_item >999.999 THEN
2737: p_unitass_item_rec.status := 'E';
2738: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_990D00', 'FINAL_WEIGHT_QTY_ITEM', 'LEGACY_TOKENS', FALSE);
2739: END IF;
2740:
2741: --Format mask validation
2742: IF p_unitass_item_rec.status <> 'E' THEN
2739: END IF;
2740:
2741: --Format mask validation
2742: IF p_unitass_item_rec.status <> 'E' THEN
2743: IF NOT igs_ps_validate_lgcy_pkg.boundary_check_number(p_unitass_item_rec.final_weight_qty_item,3,3) THEN
2744: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_990D00', 'FINAL_WEIGHT_QTY_ITEM', 'LEGACY_TOKENS', FALSE);
2745: p_unitass_item_rec.status :='E';
2746: END IF;
2747: END IF;
2740:
2741: --Format mask validation
2742: IF p_unitass_item_rec.status <> 'E' THEN
2743: IF NOT igs_ps_validate_lgcy_pkg.boundary_check_number(p_unitass_item_rec.final_weight_qty_item,3,3) THEN
2744: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_990D00', 'FINAL_WEIGHT_QTY_ITEM', 'LEGACY_TOKENS', FALSE);
2745: p_unitass_item_rec.status :='E';
2746: END IF;
2747: END IF;
2748:
2751:
2752:
2753: /* Validate FK Constraints */
2754: IF NOT igs_as_grd_schema_pkg.get_pk_for_validation ( p_unitass_item_rec.grading_schema_cd,p_unitass_item_rec.gs_version_number ) THEN
2755: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'GRADING_SCHEMA', 'LEGACY_TOKENS', FALSE);
2756: p_unitass_item_rec.status := 'E';
2757: END IF;
2758:
2759: IF NOT igs_ps_unit_ofr_opt_pkg.get_uk_for_validation ( l_n_uoo_id ) THEN
2756: p_unitass_item_rec.status := 'E';
2757: END IF;
2758:
2759: IF NOT igs_ps_unit_ofr_opt_pkg.get_uk_for_validation ( l_n_uoo_id ) THEN
2760: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_SECTION', 'LEGACY_TOKENS', FALSE);
2761: p_unitass_item_rec.status := 'E';
2762: END IF;
2763:
2764: IF NOT igs_as_us_ai_group_pkg.get_pk_for_validation ( l_n_us_ass_item_group_id ) THEN
2761: p_unitass_item_rec.status := 'E';
2762: END IF;
2763:
2764: IF NOT igs_as_us_ai_group_pkg.get_pk_for_validation ( l_n_us_ass_item_group_id ) THEN
2765: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'USEC_ASSMNT', 'LEGACY_TOKENS', FALSE);
2766: p_unitass_item_rec.status := 'E';
2767: END IF;
2768:
2769: OPEN c_assessment_id(p_unitass_item_rec.assessment_id);
2768:
2769: OPEN c_assessment_id(p_unitass_item_rec.assessment_id);
2770: FETCH c_assessment_id INTO c_assessment_id_rec;
2771: IF c_assessment_id%NOTFOUND THEN
2772: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'ASSESSMENT_ID', 'LEGACY_TOKENS', FALSE);
2773: p_unitass_item_rec.status := 'E';
2774: END IF;
2775: CLOSE c_assessment_id;
2776:
2814:
2815: END IF;
2816:
2817: IF p_unitass_item_rec.status = 'S' AND p_calling_context = 'S' THEN
2818: IF igs_ps_validate_lgcy_pkg.check_import_allowed( l_n_uoo_id,NULL) = FALSE THEN
2819: fnd_message.set_name ( 'IGS', 'IGS_PS_REC_ABORTED_CANCELLED' );
2820: fnd_msg_pub.add;
2821: p_unitass_item_rec.status := 'A';
2822: END IF;
3121: BEGIN
3122:
3123: /* Check for Mandatory Parameters */
3124: IF p_uso_cm_grp_rec.teach_cal_alternate_code IS NULL OR p_uso_cm_grp_rec.teach_cal_alternate_code = FND_API.G_MISS_CHAR THEN
3125: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
3126: p_uso_cm_grp_rec.status := 'E';
3127: END IF;
3128: IF p_uso_cm_grp_rec.class_meet_group_name IS NULL OR p_uso_cm_grp_rec.class_meet_group_name = FND_API.G_MISS_CHAR THEN
3129: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'GROUP_NAME', 'LEGACY_TOKENS', FALSE);
3125: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
3126: p_uso_cm_grp_rec.status := 'E';
3127: END IF;
3128: IF p_uso_cm_grp_rec.class_meet_group_name IS NULL OR p_uso_cm_grp_rec.class_meet_group_name = FND_API.G_MISS_CHAR THEN
3129: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'GROUP_NAME', 'LEGACY_TOKENS', FALSE);
3130: p_uso_cm_grp_rec.status := 'E';
3131: END IF;
3132:
3133: END validate_parameters;
3173: p_start_dt => l_d_start_dt,
3174: p_end_dt => l_d_end_dt,
3175: p_return_status => l_c_message );
3176: IF ( l_c_message <> 'SINGLE' ) THEN
3177: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
3178: p_uso_cm_grp_rec.status := 'E';
3179: END IF;
3180:
3181:
3223: /* Unique Key Validation */
3224: IF igs_ps_uso_cm_grp_pkg.get_uk_for_validation (x_class_meet_group_name=>p_uso_cm_grp_rec.class_meet_group_name,
3225: x_cal_type=>l_c_cal_type,
3226: x_ci_sequence_number=>l_n_seq_num) THEN
3227: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_EXISTS', 'USEC_MEET_WITH_CLASS_GROUP', 'LEGACY_TOKENS', FALSE);
3228: p_uso_cm_grp_rec.status := 'W';
3229: RETURN;
3230: END IF;
3231: END IF;
3233:
3234: --Check constraint
3235: IF p_uso_cm_grp_rec.max_enr_group IS NOT NULL THEN
3236: IF p_uso_cm_grp_rec.max_enr_group <1 OR p_uso_cm_grp_rec.max_enr_group >999999 THEN
3237: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_1_999999', 'MAX_ENR_GROUP', 'LEGACY_TOKENS', FALSE);
3238: p_uso_cm_grp_rec.status := 'E';
3239: END IF;
3240:
3241: --Format mask validation
3239: END IF;
3240:
3241: --Format mask validation
3242: IF p_uso_cm_grp_rec.status <> 'E' THEN
3243: IF NOT igs_ps_validate_lgcy_pkg.boundary_check_number(p_uso_cm_grp_rec.max_enr_group,6,0) THEN
3244: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_1_999999', 'MAX_ENR_GROUP', 'LEGACY_TOKENS', FALSE);
3245: p_uso_cm_grp_rec.status :='E';
3246: END IF;
3247: END IF;
3240:
3241: --Format mask validation
3242: IF p_uso_cm_grp_rec.status <> 'E' THEN
3243: IF NOT igs_ps_validate_lgcy_pkg.boundary_check_number(p_uso_cm_grp_rec.max_enr_group,6,0) THEN
3244: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_1_999999', 'MAX_ENR_GROUP', 'LEGACY_TOKENS', FALSE);
3245: p_uso_cm_grp_rec.status :='E';
3246: END IF;
3247: END IF;
3248:
3249: END IF;
3250:
3251: IF p_uso_cm_grp_rec.max_ovr_group IS NOT NULL THEN
3252: IF p_uso_cm_grp_rec.max_ovr_group <1 OR p_uso_cm_grp_rec.max_ovr_group >999999 THEN
3253: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_1_999999', 'MAX_OVR_GROUP', 'LEGACY_TOKENS', FALSE);
3254: p_uso_cm_grp_rec.status := 'E';
3255: END IF;
3256:
3257: --Format mask validation
3255: END IF;
3256:
3257: --Format mask validation
3258: IF p_uso_cm_grp_rec.status <> 'E' THEN
3259: IF NOT igs_ps_validate_lgcy_pkg.boundary_check_number(p_uso_cm_grp_rec.max_ovr_group,6,0) THEN
3260: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_1_999999', 'MAX_OVR_GROUP', 'LEGACY_TOKENS', FALSE);
3261: p_uso_cm_grp_rec.status :='E';
3262: END IF;
3263: END IF;
3256:
3257: --Format mask validation
3258: IF p_uso_cm_grp_rec.status <> 'E' THEN
3259: IF NOT igs_ps_validate_lgcy_pkg.boundary_check_number(p_uso_cm_grp_rec.max_ovr_group,6,0) THEN
3260: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_1_999999', 'MAX_OVR_GROUP', 'LEGACY_TOKENS', FALSE);
3261: p_uso_cm_grp_rec.status :='E';
3262: END IF;
3263: END IF;
3264:
3266:
3267: /* Validate FK Constraints*/
3268: IF NOT igs_ca_inst_pkg.get_pk_for_validation (x_cal_type =>l_c_cal_type,
3269: x_sequence_number =>l_n_seq_num) THEN
3270: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
3271: p_uso_cm_grp_rec.status := 'E';
3272: END IF;
3273:
3274: END validate_db_cons;
3319: END IF;
3320:
3321: -- Find out whether record can go for import in context of cancelled/aborted
3322: IF p_uso_cm_grp_rec.status = 'S' AND p_calling_context = 'S' THEN
3323: IF igs_ps_validate_lgcy_pkg.check_import_allowed( l_n_uoo_id,NULL) = FALSE THEN
3324: fnd_message.set_name ( 'IGS', 'IGS_PS_REC_ABORTED_CANCELLED' );
3325: fnd_msg_pub.add;
3326: p_uso_cm_grp_rec.status := 'A';
3327: END IF;
3470: BEGIN
3471:
3472: /* Check for Mandatory Parameters */
3473: IF p_uso_clas_meet_rec.unit_cd IS NULL OR p_uso_clas_meet_rec.unit_cd = FND_API.G_MISS_CHAR THEN
3474: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CD', 'LEGACY_TOKENS', FALSE);
3475: p_uso_clas_meet_rec.status := 'E';
3476: END IF;
3477: IF p_uso_clas_meet_rec.version_number IS NULL OR p_uso_clas_meet_rec.version_number = FND_API.G_MISS_NUM THEN
3478: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_VER_NUM', 'LEGACY_TOKENS', FALSE);
3474: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CD', 'LEGACY_TOKENS', FALSE);
3475: p_uso_clas_meet_rec.status := 'E';
3476: END IF;
3477: IF p_uso_clas_meet_rec.version_number IS NULL OR p_uso_clas_meet_rec.version_number = FND_API.G_MISS_NUM THEN
3478: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_VER_NUM', 'LEGACY_TOKENS', FALSE);
3479: p_uso_clas_meet_rec.status := 'E';
3480: END IF;
3481: IF p_uso_clas_meet_rec.teach_cal_alternate_code IS NULL OR p_uso_clas_meet_rec.teach_cal_alternate_code = FND_API.G_MISS_CHAR THEN
3482: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
3478: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_VER_NUM', 'LEGACY_TOKENS', FALSE);
3479: p_uso_clas_meet_rec.status := 'E';
3480: END IF;
3481: IF p_uso_clas_meet_rec.teach_cal_alternate_code IS NULL OR p_uso_clas_meet_rec.teach_cal_alternate_code = FND_API.G_MISS_CHAR THEN
3482: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
3483: p_uso_clas_meet_rec.status := 'E';
3484: END IF;
3485: IF p_uso_clas_meet_rec.location_cd IS NULL OR p_uso_clas_meet_rec.location_cd = FND_API.G_MISS_CHAR THEN
3486: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD', 'LEGACY_TOKENS', FALSE);
3482: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
3483: p_uso_clas_meet_rec.status := 'E';
3484: END IF;
3485: IF p_uso_clas_meet_rec.location_cd IS NULL OR p_uso_clas_meet_rec.location_cd = FND_API.G_MISS_CHAR THEN
3486: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD', 'LEGACY_TOKENS', FALSE);
3487: p_uso_clas_meet_rec.status := 'E';
3488: END IF;
3489: IF p_uso_clas_meet_rec.unit_class IS NULL OR p_uso_clas_meet_rec.unit_class = FND_API.G_MISS_CHAR THEN
3490: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CLASS', 'LEGACY_TOKENS', FALSE);
3486: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD', 'LEGACY_TOKENS', FALSE);
3487: p_uso_clas_meet_rec.status := 'E';
3488: END IF;
3489: IF p_uso_clas_meet_rec.unit_class IS NULL OR p_uso_clas_meet_rec.unit_class = FND_API.G_MISS_CHAR THEN
3490: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CLASS', 'LEGACY_TOKENS', FALSE);
3491: p_uso_clas_meet_rec.status := 'E';
3492: END IF;
3493: IF p_uso_clas_meet_rec.host IS NULL OR p_uso_clas_meet_rec.host = FND_API.G_MISS_CHAR THEN
3494: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'HOST', 'LEGACY_TOKENS', FALSE);
3490: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CLASS', 'LEGACY_TOKENS', FALSE);
3491: p_uso_clas_meet_rec.status := 'E';
3492: END IF;
3493: IF p_uso_clas_meet_rec.host IS NULL OR p_uso_clas_meet_rec.host = FND_API.G_MISS_CHAR THEN
3494: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'HOST', 'LEGACY_TOKENS', FALSE);
3495: p_uso_clas_meet_rec.status := 'E';
3496: END IF;
3497:
3498: END validate_parameters_item;
3526: BEGIN
3527:
3528: -- Derive uoo_id
3529: l_c_message := NULL;
3530: igs_ps_validate_lgcy_pkg.get_uoo_id ( p_unit_cd => p_uso_clas_meet_rec.unit_cd,
3531: p_ver_num => p_uso_clas_meet_rec.version_number,
3532: p_cal_type => l_c_cal_type,
3533: p_seq_num => l_n_seq_num,
3534: p_loc_cd => p_uso_clas_meet_rec.location_cd,
3535: p_unit_class => p_uso_clas_meet_rec.unit_class,
3536: p_uoo_id => l_n_uoo_id,
3537: p_message => l_c_message );
3538: IF ( l_c_message IS NOT NULL ) THEN
3539: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_SECTION', 'LEGACY_TOKENS', FALSE);
3540: p_uso_clas_meet_rec.status := 'E';
3541: END IF;
3542:
3543: END validate_derivations_item;
3548: BEGIN
3549: IF (p_insert_update = 'I') THEN
3550: /* Unique Key Validation */
3551: IF igs_ps_uso_clas_meet_pkg.get_uk_for_validation (x_uoo_id =>l_n_uoo_id) THEN
3552: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_EXISTS', 'UNIT_SECTION', 'LEGACY_TOKENS', FALSE);
3553: p_uso_clas_meet_rec.status := 'W';
3554: RETURN;
3555: END IF;
3556: END IF;
3556: END IF;
3557:
3558: /* Check constraint */
3559: IF p_uso_clas_meet_rec.host NOT IN ('Y','N') THEN
3560: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N', 'HOST', 'LEGACY_TOKENS', FALSE);
3561: p_uso_clas_meet_rec.status := 'E';
3562: END IF;
3563:
3564: /* Validate FK Constraints */
3562: END IF;
3563:
3564: /* Validate FK Constraints */
3565: IF NOT igs_ps_uso_cm_grp_pkg.get_pk_for_validation ( l_n_class_meet_group_id ) THEN
3566: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'USEC_MEET_WITH_CLASS_GROUP', 'LEGACY_TOKENS', FALSE);
3567: p_uso_clas_meet_rec.status := 'E';
3568: END IF;
3569:
3570: IF NOT igs_ps_unit_ofr_opt_pkg.get_uk_for_validation ( l_n_uoo_id ) THEN
3567: p_uso_clas_meet_rec.status := 'E';
3568: END IF;
3569:
3570: IF NOT igs_ps_unit_ofr_opt_pkg.get_uk_for_validation ( l_n_uoo_id ) THEN
3571: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_SECTION', 'LEGACY_TOKENS', FALSE);
3572: p_uso_clas_meet_rec.status := 'E';
3573: END IF;
3574:
3575: END validate_db_cons_cm;
3617:
3618: END IF;
3619:
3620: IF p_uso_clas_meet_rec.status = 'S' AND p_calling_context = 'S' THEN
3621: IF igs_ps_validate_lgcy_pkg.check_import_allowed( l_n_uoo_id,NULL) = FALSE THEN
3622: fnd_message.set_name ( 'IGS', 'IGS_PS_REC_ABORTED_CANCELLED' );
3623: fnd_msg_pub.add;
3624: p_uso_clas_meet_rec.status := 'A';
3625: END IF;
3871: BEGIN
3872:
3873: /* Check for Mandatory Parameters */
3874: IF p_usec_x_grp_rec.teach_cal_alternate_code IS NULL OR p_usec_x_grp_rec.teach_cal_alternate_code = FND_API.G_MISS_CHAR THEN
3875: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
3876: p_usec_x_grp_rec.status := 'E';
3877: END IF;
3878:
3879: IF p_usec_x_grp_rec.usec_x_listed_group_name IS NULL OR p_usec_x_grp_rec.usec_x_listed_group_name = FND_API.G_MISS_CHAR THEN
3876: p_usec_x_grp_rec.status := 'E';
3877: END IF;
3878:
3879: IF p_usec_x_grp_rec.usec_x_listed_group_name IS NULL OR p_usec_x_grp_rec.usec_x_listed_group_name = FND_API.G_MISS_CHAR THEN
3880: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'GROUP_NAME', 'LEGACY_TOKENS', FALSE);
3881: p_usec_x_grp_rec.status := 'E';
3882: END IF;
3883:
3884: END validate_parameters;
3918: p_start_dt => l_d_start_dt,
3919: p_end_dt => l_d_end_dt,
3920: p_return_status => l_c_message );
3921: IF ( l_c_message <> 'SINGLE' ) THEN
3922: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
3923: p_usec_x_grp_rec.status := 'E';
3924: END IF;
3925:
3926:
3973: /* Unique Key Validation */
3974: IF igs_ps_usec_x_grp_pkg.get_uk_for_validation (x_usec_x_listed_group_name=>p_usec_x_grp_rec.usec_x_listed_group_name,
3975: x_cal_type=>l_c_cal_type,
3976: x_ci_sequence_number=>l_n_seq_num) THEN
3977: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_EXISTS', 'USEC_CROSS_LIST_GROUP', 'LEGACY_TOKENS', FALSE);
3978: p_usec_x_grp_rec.status := 'W';
3979: RETURN;
3980: END IF;
3981: END IF;
3982:
3983: --Check constraint
3984: IF p_usec_x_grp_rec.max_enr_group IS NOT NULL THEN
3985: IF p_usec_x_grp_rec.max_enr_group <1 OR p_usec_x_grp_rec.max_enr_group >999999 THEN
3986: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_1_999999', 'MAX_ENR_GROUP', 'LEGACY_TOKENS', FALSE);
3987: p_usec_x_grp_rec.status := 'E';
3988: END IF;
3989:
3990: --Format mask validation
3988: END IF;
3989:
3990: --Format mask validation
3991: IF p_usec_x_grp_rec.status <> 'E' THEN
3992: IF NOT igs_ps_validate_lgcy_pkg.boundary_check_number(p_usec_x_grp_rec.max_enr_group,6,0) THEN
3993: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_1_999999', 'MAX_ENR_GROUP', 'LEGACY_TOKENS', FALSE);
3994: p_usec_x_grp_rec.status :='E';
3995: END IF;
3996: END IF;
3989:
3990: --Format mask validation
3991: IF p_usec_x_grp_rec.status <> 'E' THEN
3992: IF NOT igs_ps_validate_lgcy_pkg.boundary_check_number(p_usec_x_grp_rec.max_enr_group,6,0) THEN
3993: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_1_999999', 'MAX_ENR_GROUP', 'LEGACY_TOKENS', FALSE);
3994: p_usec_x_grp_rec.status :='E';
3995: END IF;
3996: END IF;
3997:
3999:
4000:
4001: IF p_usec_x_grp_rec.max_ovr_group IS NOT NULL THEN
4002: IF p_usec_x_grp_rec.max_ovr_group <1 OR p_usec_x_grp_rec.max_ovr_group >999999 THEN
4003: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_1_999999', 'MAX_OVR_GROUP', 'LEGACY_TOKENS', FALSE);
4004: p_usec_x_grp_rec.status := 'E';
4005: END IF;
4006:
4007: --Format mask validation
4005: END IF;
4006:
4007: --Format mask validation
4008: IF p_usec_x_grp_rec.status <> 'E' THEN
4009: IF NOT igs_ps_validate_lgcy_pkg.boundary_check_number(p_usec_x_grp_rec.max_ovr_group,6,0) THEN
4010: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_1_999999', 'MAX_OVR_GROUP', 'LEGACY_TOKENS', FALSE);
4011: p_usec_x_grp_rec.status :='E';
4012: END IF;
4013: END IF;
4006:
4007: --Format mask validation
4008: IF p_usec_x_grp_rec.status <> 'E' THEN
4009: IF NOT igs_ps_validate_lgcy_pkg.boundary_check_number(p_usec_x_grp_rec.max_ovr_group,6,0) THEN
4010: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_1_999999', 'MAX_OVR_GROUP', 'LEGACY_TOKENS', FALSE);
4011: p_usec_x_grp_rec.status :='E';
4012: END IF;
4013: END IF;
4014:
4016:
4017: /* Validate FK Constraints*/
4018: IF NOT igs_ca_inst_pkg.get_pk_for_validation (x_cal_type =>l_c_cal_type,
4019: x_sequence_number =>l_n_seq_num) THEN
4020: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
4021: p_usec_x_grp_rec.status := 'E';
4022: END IF;
4023:
4024:
4070: END IF;
4071:
4072: -- Find out whether record can go for import in context of cancelled/aborted
4073: IF p_usec_x_grp_rec.status = 'S' AND p_calling_context = 'S' THEN
4074: IF igs_ps_validate_lgcy_pkg.check_import_allowed( l_n_uoo_id,NULL) = FALSE THEN
4075: fnd_message.set_name ( 'IGS', 'IGS_PS_REC_ABORTED_CANCELLED' );
4076: fnd_msg_pub.add;
4077: p_usec_x_grp_rec.status := 'A';
4078: END IF;
4224: BEGIN
4225:
4226: /* Check for Mandatory Parameters */
4227: IF p_usec_x_grpmem.unit_cd IS NULL OR p_usec_x_grpmem.unit_cd = FND_API.G_MISS_CHAR THEN
4228: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CD', 'LEGACY_TOKENS', FALSE);
4229: p_usec_x_grpmem.status := 'E';
4230: END IF;
4231: IF p_usec_x_grpmem.version_number IS NULL OR p_usec_x_grpmem.version_number = FND_API.G_MISS_NUM THEN
4232: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_VER_NUM', 'LEGACY_TOKENS', FALSE);
4228: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CD', 'LEGACY_TOKENS', FALSE);
4229: p_usec_x_grpmem.status := 'E';
4230: END IF;
4231: IF p_usec_x_grpmem.version_number IS NULL OR p_usec_x_grpmem.version_number = FND_API.G_MISS_NUM THEN
4232: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_VER_NUM', 'LEGACY_TOKENS', FALSE);
4233: p_usec_x_grpmem.status := 'E';
4234: END IF;
4235: IF p_usec_x_grpmem.teach_cal_alternate_code IS NULL OR p_usec_x_grpmem.teach_cal_alternate_code = FND_API.G_MISS_CHAR THEN
4236: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
4232: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_VER_NUM', 'LEGACY_TOKENS', FALSE);
4233: p_usec_x_grpmem.status := 'E';
4234: END IF;
4235: IF p_usec_x_grpmem.teach_cal_alternate_code IS NULL OR p_usec_x_grpmem.teach_cal_alternate_code = FND_API.G_MISS_CHAR THEN
4236: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
4237: p_usec_x_grpmem.status := 'E';
4238: END IF;
4239: IF p_usec_x_grpmem.location_cd IS NULL OR p_usec_x_grpmem.location_cd = FND_API.G_MISS_CHAR THEN
4240: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD', 'LEGACY_TOKENS', FALSE);
4236: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
4237: p_usec_x_grpmem.status := 'E';
4238: END IF;
4239: IF p_usec_x_grpmem.location_cd IS NULL OR p_usec_x_grpmem.location_cd = FND_API.G_MISS_CHAR THEN
4240: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD', 'LEGACY_TOKENS', FALSE);
4241: p_usec_x_grpmem.status := 'E';
4242: END IF;
4243: IF p_usec_x_grpmem.unit_class IS NULL OR p_usec_x_grpmem.unit_class = FND_API.G_MISS_CHAR THEN
4244: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CLASS', 'LEGACY_TOKENS', FALSE);
4240: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD', 'LEGACY_TOKENS', FALSE);
4241: p_usec_x_grpmem.status := 'E';
4242: END IF;
4243: IF p_usec_x_grpmem.unit_class IS NULL OR p_usec_x_grpmem.unit_class = FND_API.G_MISS_CHAR THEN
4244: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CLASS', 'LEGACY_TOKENS', FALSE);
4245: p_usec_x_grpmem.status := 'E';
4246: END IF;
4247: IF p_usec_x_grpmem.parent IS NULL OR p_usec_x_grpmem.parent = FND_API.G_MISS_CHAR THEN
4248: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'PARENT', 'LEGACY_TOKENS', FALSE);
4244: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CLASS', 'LEGACY_TOKENS', FALSE);
4245: p_usec_x_grpmem.status := 'E';
4246: END IF;
4247: IF p_usec_x_grpmem.parent IS NULL OR p_usec_x_grpmem.parent = FND_API.G_MISS_CHAR THEN
4248: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'PARENT', 'LEGACY_TOKENS', FALSE);
4249: p_usec_x_grpmem.status := 'E';
4250: END IF;
4251:
4252: END validate_parameters_item;
4280: BEGIN
4281:
4282: -- Derive uoo_id
4283: l_c_message := NULL;
4284: igs_ps_validate_lgcy_pkg.get_uoo_id ( p_unit_cd => p_usec_x_grpmem.unit_cd,
4285: p_ver_num => p_usec_x_grpmem.version_number,
4286: p_cal_type => l_c_cal_type,
4287: p_seq_num => l_n_seq_num,
4288: p_loc_cd => p_usec_x_grpmem.location_cd,
4289: p_unit_class => p_usec_x_grpmem.unit_class,
4290: p_uoo_id => l_n_uoo_id,
4291: p_message => l_c_message );
4292: IF ( l_c_message IS NOT NULL ) THEN
4293: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_SECTION', 'LEGACY_TOKENS', FALSE);
4294: p_usec_x_grpmem.status := 'E';
4295: END IF;
4296:
4297: END validate_derivations_item;
4303:
4304: IF (p_insert_update = 'I') THEN
4305: /* Unique Key Validation */
4306: IF igs_ps_usec_x_grpmem_pkg.get_uk_for_validation (x_uoo_id =>l_n_uoo_id) THEN
4307: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_EXISTS', 'UNIT_SECTION', 'LEGACY_TOKENS', FALSE);
4308: p_usec_x_grpmem.status := 'W';
4309: RETURN;
4310: END IF;
4311: END IF;
4311: END IF;
4312:
4313: /* Check constraint */
4314: IF p_usec_x_grpmem.parent NOT IN ('Y','N') THEN
4315: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N', 'PARENT', 'LEGACY_TOKENS', FALSE);
4316: p_usec_x_grpmem.status := 'E';
4317: END IF;
4318:
4319: /* Validate FK Constraints */
4317: END IF;
4318:
4319: /* Validate FK Constraints */
4320: IF NOT igs_ps_usec_x_grp_pkg.get_pk_for_validation ( l_n_usec_x_listed_group_id ) THEN
4321: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'USEC_CROSS_LIST_GROUP', 'LEGACY_TOKENS', FALSE);
4322: p_usec_x_grpmem.status := 'E';
4323: END IF;
4324:
4325: IF NOT igs_ps_unit_ofr_opt_pkg.get_uk_for_validation ( l_n_uoo_id ) THEN
4322: p_usec_x_grpmem.status := 'E';
4323: END IF;
4324:
4325: IF NOT igs_ps_unit_ofr_opt_pkg.get_uk_for_validation ( l_n_uoo_id ) THEN
4326: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_SECTION', 'LEGACY_TOKENS', FALSE);
4327: p_usec_x_grpmem.status := 'E';
4328: END IF;
4329:
4330:
4374:
4375: END IF;
4376:
4377: IF p_usec_x_grpmem.status = 'S' AND p_calling_context = 'S' THEN
4378: IF igs_ps_validate_lgcy_pkg.check_import_allowed( l_n_uoo_id,NULL) = FALSE THEN
4379: fnd_message.set_name ( 'IGS', 'IGS_PS_REC_ABORTED_CANCELLED' );
4380: fnd_msg_pub.add;
4381: p_usec_x_grpmem.status := 'A';
4382: END IF;
4616: BEGIN
4617:
4618: /* Check for Mandatory Parameters */
4619: IF p_usec_wlst_rec.unit_cd IS NULL OR p_usec_wlst_rec.unit_cd = FND_API.G_MISS_CHAR THEN
4620: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CD', 'LEGACY_TOKENS', FALSE);
4621: p_usec_wlst_rec.status := 'E';
4622: END IF;
4623: IF p_usec_wlst_rec.version_number IS NULL OR p_usec_wlst_rec.version_number = FND_API.G_MISS_NUM THEN
4624: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_VER_NUM', 'LEGACY_TOKENS', FALSE);
4620: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CD', 'LEGACY_TOKENS', FALSE);
4621: p_usec_wlst_rec.status := 'E';
4622: END IF;
4623: IF p_usec_wlst_rec.version_number IS NULL OR p_usec_wlst_rec.version_number = FND_API.G_MISS_NUM THEN
4624: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_VER_NUM', 'LEGACY_TOKENS', FALSE);
4625: p_usec_wlst_rec.status := 'E';
4626: END IF;
4627: IF p_usec_wlst_rec.teach_cal_alternate_code IS NULL OR p_usec_wlst_rec.teach_cal_alternate_code = FND_API.G_MISS_CHAR THEN
4628: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
4624: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_VER_NUM', 'LEGACY_TOKENS', FALSE);
4625: p_usec_wlst_rec.status := 'E';
4626: END IF;
4627: IF p_usec_wlst_rec.teach_cal_alternate_code IS NULL OR p_usec_wlst_rec.teach_cal_alternate_code = FND_API.G_MISS_CHAR THEN
4628: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
4629: p_usec_wlst_rec.status := 'E';
4630: END IF;
4631: IF p_usec_wlst_rec.location_cd IS NULL OR p_usec_wlst_rec.location_cd = FND_API.G_MISS_CHAR THEN
4632: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD', 'LEGACY_TOKENS', FALSE);
4628: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
4629: p_usec_wlst_rec.status := 'E';
4630: END IF;
4631: IF p_usec_wlst_rec.location_cd IS NULL OR p_usec_wlst_rec.location_cd = FND_API.G_MISS_CHAR THEN
4632: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD', 'LEGACY_TOKENS', FALSE);
4633: p_usec_wlst_rec.status := 'E';
4634: END IF;
4635: IF p_usec_wlst_rec.unit_class IS NULL OR p_usec_wlst_rec.unit_class = FND_API.G_MISS_CHAR THEN
4636: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CLASS', 'LEGACY_TOKENS', FALSE);
4632: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD', 'LEGACY_TOKENS', FALSE);
4633: p_usec_wlst_rec.status := 'E';
4634: END IF;
4635: IF p_usec_wlst_rec.unit_class IS NULL OR p_usec_wlst_rec.unit_class = FND_API.G_MISS_CHAR THEN
4636: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CLASS', 'LEGACY_TOKENS', FALSE);
4637: p_usec_wlst_rec.status := 'E';
4638: END IF;
4639: IF p_usec_wlst_rec.priority_value IS NULL OR p_usec_wlst_rec.priority_value = FND_API.G_MISS_CHAR THEN
4640: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'PRIORITY_VALUE', 'LEGACY_TOKENS', FALSE);
4636: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CLASS', 'LEGACY_TOKENS', FALSE);
4637: p_usec_wlst_rec.status := 'E';
4638: END IF;
4639: IF p_usec_wlst_rec.priority_value IS NULL OR p_usec_wlst_rec.priority_value = FND_API.G_MISS_CHAR THEN
4640: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'PRIORITY_VALUE', 'LEGACY_TOKENS', FALSE);
4641: p_usec_wlst_rec.status := 'E';
4642: END IF;
4643:
4644: END validate_parameters ;
4660: p_start_dt => l_d_start_dt,
4661: p_end_dt => l_d_end_dt,
4662: p_return_status => l_c_message );
4663: IF ( l_c_message <> 'SINGLE' ) THEN
4664: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
4665: p_usec_wlst_rec.status := 'E';
4666: END IF;
4667: -- Derive uoo_id
4668: l_c_message := NULL;
4665: p_usec_wlst_rec.status := 'E';
4666: END IF;
4667: -- Derive uoo_id
4668: l_c_message := NULL;
4669: igs_ps_validate_lgcy_pkg.get_uoo_id ( p_unit_cd => p_usec_wlst_rec.unit_cd,
4670: p_ver_num => p_usec_wlst_rec.version_number,
4671: p_cal_type => l_c_cal_type,
4672: p_seq_num => l_n_seq_num,
4673: p_loc_cd => p_usec_wlst_rec.location_cd,
4674: p_unit_class => p_usec_wlst_rec.unit_class,
4675: p_uoo_id => l_n_uoo_id,
4676: p_message => l_c_message );
4677: IF ( l_c_message IS NOT NULL ) THEN
4678: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_SECTION', 'LEGACY_TOKENS', FALSE);
4679: p_usec_wlst_rec.status := 'E';
4680: END IF;
4681: END validate_derivations_pri;
4682:
4721:
4722: IF p_usec_wlst_rec.priority_number IS NULL THEN
4723: p_usec_wlst_rec.priority_number:= rec_usprv.priority_number;
4724: ELSIF p_usec_wlst_rec.priority_number = FND_API.G_MISS_NUM THEN
4725: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'PRIORITY_NUMBER', 'LEGACY_TOKENS', FALSE);
4726: p_usec_wlst_rec.status := 'E';
4727: END IF;
4728:
4729: END IF;
4735: IF(p_insert_update = 'I') THEN
4736: /* Unique Key Validation */
4737: IF igs_ps_usec_wlst_pri_pkg.get_uk_for_validation ( x_priority_value =>p_usec_wlst_rec.priority_value,
4738: x_uoo_id => l_n_uoo_id) THEN
4739: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_EXISTS', 'USEC_WLST_PRI', 'LEGACY_TOKENS', FALSE);
4740: p_usec_wlst_rec.status := 'W';
4741: RETURN;
4742: END IF;
4743: END IF;
4743: END IF;
4744: /* Validate FK Constraints */
4745:
4746: IF NOT igs_ps_unit_ofr_opt_pkg.get_uk_for_validation ( l_n_uoo_id ) THEN
4747: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_SECTION', 'LEGACY_TOKENS', FALSE);
4748: p_usec_wlst_rec.status := 'E';
4749: END IF;
4750:
4751: IF NOT igs_lookups_view_pkg.get_pk_for_validation('UNIT_WAITLIST', p_usec_wlst_rec.priority_value) THEN
4748: p_usec_wlst_rec.status := 'E';
4749: END IF;
4750:
4751: IF NOT igs_lookups_view_pkg.get_pk_for_validation('UNIT_WAITLIST', p_usec_wlst_rec.priority_value) THEN
4752: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'PRIORITY_VALUE', 'LEGACY_TOKENS', FALSE);
4753: p_usec_wlst_rec.status := 'E';
4754: END IF;
4755: END validate_db_cons_wlstpri;
4756:
4797:
4798: END IF;
4799:
4800: IF p_usec_wlst_rec.status = 'S' AND p_calling_context ='S' THEN
4801: IF igs_ps_validate_lgcy_pkg.check_import_allowed( l_n_uoo_id,NULL) = FALSE THEN
4802: fnd_message.set_name ( 'IGS', 'IGS_PS_REC_ABORTED_CANCELLED' );
4803: fnd_msg_pub.add;
4804: p_usec_wlst_rec.status := 'A';
4805: END IF;
4829:
4830: IF l_tbl_uoo.count = 0 THEN
4831: l_tbl_uoo(l_tbl_uoo.count+1) :=l_n_uoo_id;
4832: ELSE
4833: IF NOT igs_ps_validate_lgcy_pkg.isExists(l_n_uoo_id,l_tbl_uoo) THEN
4834: l_tbl_uoo(l_tbl_uoo.count+1) :=l_n_uoo_id;
4835: END IF;
4836: END IF;
4837:
4913: BEGIN
4914:
4915: /* Check for Mandatory Parameters */
4916: IF p_usec_wlst_rec.preference_order IS NULL OR p_usec_wlst_rec.preference_order = FND_API.G_MISS_NUM THEN
4917: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'PREFERENCE_ORDER', 'LEGACY_TOKENS', FALSE);
4918: p_usec_wlst_rec.status := 'E';
4919: END IF;
4920: IF p_usec_wlst_rec.preference_code IS NULL OR p_usec_wlst_rec.preference_code = FND_API.G_MISS_CHAR THEN
4921: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'PREFERENCE_CODE', 'LEGACY_TOKENS', FALSE);
4917: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'PREFERENCE_ORDER', 'LEGACY_TOKENS', FALSE);
4918: p_usec_wlst_rec.status := 'E';
4919: END IF;
4920: IF p_usec_wlst_rec.preference_code IS NULL OR p_usec_wlst_rec.preference_code = FND_API.G_MISS_CHAR THEN
4921: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'PREFERENCE_CODE', 'LEGACY_TOKENS', FALSE);
4922: p_usec_wlst_rec.status := 'E';
4923: END IF;
4924:
4925: IF p_usec_wlst_rec.priority_value IS NOT NULL AND p_usec_wlst_rec.priority_value IN ('PROGRAM','UNIT_SET') THEN
4923: END IF;
4924:
4925: IF p_usec_wlst_rec.priority_value IS NOT NULL AND p_usec_wlst_rec.priority_value IN ('PROGRAM','UNIT_SET') THEN
4926: IF p_usec_wlst_rec.preference_version IS NULL OR p_usec_wlst_rec.preference_version = FND_API.G_MISS_NUM THEN
4927: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'PREFERENCE_VERSION', 'LEGACY_TOKENS', FALSE);
4928: p_usec_wlst_rec.status := 'E';
4929: END IF;
4930: ELSIF p_usec_wlst_rec.priority_value IS NOT NULL AND p_usec_wlst_rec.priority_value NOT IN ('PROGRAM','UNIT_SET') THEN
4931: IF p_usec_wlst_rec.preference_version IS NOT NULL THEN
4928: p_usec_wlst_rec.status := 'E';
4929: END IF;
4930: ELSIF p_usec_wlst_rec.priority_value IS NOT NULL AND p_usec_wlst_rec.priority_value NOT IN ('PROGRAM','UNIT_SET') THEN
4931: IF p_usec_wlst_rec.preference_version IS NOT NULL THEN
4932: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'PREFERENCE_VERSION', 'LEGACY_TOKENS', FALSE);
4933: p_usec_wlst_rec.status := 'E';
4934: END IF;
4935: END IF;
4936:
5013: /* Unique Key Validation */
5014: IF igs_ps_usec_wlst_prf_pkg.get_uk_for_validation(x_preference_code =>p_usec_wlst_rec.preference_code,
5015: x_preference_version=>p_usec_wlst_rec.preference_version,
5016: x_unit_sec_wlst_priority_id =>l_n_wlst_usec_pri_id) THEN
5017: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_EXISTS', 'USEC_WLST_PRF', 'LEGACY_TOKENS', FALSE);
5018: p_usec_wlst_rec.status := 'W';
5019:
5020: RETURN;
5021: END IF;
5023:
5024: /* Validate FK Constraints */
5025: IF (p_usec_wlst_rec.priority_value = 'PROGRAM') THEN
5026: IF NOT igs_ps_ver_pkg.get_pk_for_validation (p_usec_wlst_rec.preference_code,p_usec_wlst_rec.preference_version ) THEN
5027: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'USEC_WLST_PRF', 'LEGACY_TOKENS', FALSE);
5028: p_usec_wlst_rec.status := 'E';
5029:
5030: END IF;
5031: END IF;
5031: END IF;
5032:
5033: IF (p_usec_wlst_rec.priority_value = 'UNIT_SET') THEN
5034: IF NOT igs_en_unit_set_pkg.get_pk_for_validation (p_usec_wlst_rec.preference_code,p_usec_wlst_rec.preference_version) THEN
5035: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'USEC_WLST_PRF', 'LEGACY_TOKENS', FALSE);
5036: p_usec_wlst_rec.status := 'E';
5037: END IF;
5038: END IF;
5039:
5038: END IF;
5039:
5040: IF (p_usec_wlst_rec.priority_value = 'CLASS_STD' ) THEN
5041: IF NOT igs_pr_class_std_pkg.get_uk_for_validation (p_usec_wlst_rec.preference_code ) THEN
5042: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'USEC_WLST_PRF', 'LEGACY_TOKENS', FALSE);
5043: p_usec_wlst_rec.status := 'E';
5044: END IF;
5045: END IF;
5046:
5045: END IF;
5046:
5047: IF (p_usec_wlst_rec.priority_value = 'PROGRAM_STAGE') THEN
5048: IF NOT igs_ps_stage_type_pkg.get_pk_for_validation (p_usec_wlst_rec.preference_code ) THEN
5049: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'USEC_WLST_PRF', 'LEGACY_TOKENS', FALSE);
5050: p_usec_wlst_rec.status := 'E';
5051: END IF;
5052: END IF;
5053:
5054: IF (p_usec_wlst_rec.priority_value = 'ORG_UNIT') THEN
5055: OPEN cur_hzp(p_usec_wlst_rec.preference_code );
5056: FETCH cur_hzp INTO cur_hzp_rec;
5057: IF cur_hzp%NOTFOUND THEN
5058: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'USEC_WLST_PRF', 'LEGACY_TOKENS', FALSE);
5059: p_usec_wlst_rec.status := 'E';
5060: END IF;
5061: CLOSE cur_hzp;
5062: END IF;
5330: BEGIN
5331:
5332: /* Check for Mandatory Parameters */
5333: IF p_usec_notes_rec.unit_cd IS NULL OR p_usec_notes_rec.unit_cd = FND_API.G_MISS_CHAR THEN
5334: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CD', 'LEGACY_TOKENS', FALSE);
5335: p_usec_notes_rec.status := 'E';
5336: END IF;
5337: IF p_usec_notes_rec.version_number IS NULL OR p_usec_notes_rec.version_number = FND_API.G_MISS_NUM THEN
5338: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_VER_NUM', 'LEGACY_TOKENS', FALSE);
5334: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CD', 'LEGACY_TOKENS', FALSE);
5335: p_usec_notes_rec.status := 'E';
5336: END IF;
5337: IF p_usec_notes_rec.version_number IS NULL OR p_usec_notes_rec.version_number = FND_API.G_MISS_NUM THEN
5338: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_VER_NUM', 'LEGACY_TOKENS', FALSE);
5339: p_usec_notes_rec.status := 'E';
5340: END IF;
5341: IF p_usec_notes_rec.teach_cal_alternate_code IS NULL OR p_usec_notes_rec.teach_cal_alternate_code = FND_API.G_MISS_CHAR THEN
5342: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
5338: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_VER_NUM', 'LEGACY_TOKENS', FALSE);
5339: p_usec_notes_rec.status := 'E';
5340: END IF;
5341: IF p_usec_notes_rec.teach_cal_alternate_code IS NULL OR p_usec_notes_rec.teach_cal_alternate_code = FND_API.G_MISS_CHAR THEN
5342: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
5343: p_usec_notes_rec.status := 'E';
5344: END IF;
5345: IF p_usec_notes_rec.location_cd IS NULL OR p_usec_notes_rec.location_cd= FND_API.G_MISS_CHAR THEN
5346: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD', 'LEGACY_TOKENS', FALSE);
5342: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
5343: p_usec_notes_rec.status := 'E';
5344: END IF;
5345: IF p_usec_notes_rec.location_cd IS NULL OR p_usec_notes_rec.location_cd= FND_API.G_MISS_CHAR THEN
5346: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD', 'LEGACY_TOKENS', FALSE);
5347: p_usec_notes_rec.status := 'E';
5348: END IF;
5349: IF p_usec_notes_rec.unit_class IS NULL OR p_usec_notes_rec.unit_class = FND_API.G_MISS_CHAR THEN
5350: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CLASS', 'LEGACY_TOKENS', FALSE);
5346: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD', 'LEGACY_TOKENS', FALSE);
5347: p_usec_notes_rec.status := 'E';
5348: END IF;
5349: IF p_usec_notes_rec.unit_class IS NULL OR p_usec_notes_rec.unit_class = FND_API.G_MISS_CHAR THEN
5350: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CLASS', 'LEGACY_TOKENS', FALSE);
5351: p_usec_notes_rec.status := 'E';
5352: END IF;
5353: IF p_usec_notes_rec.crs_note_type IS NULL OR p_usec_notes_rec.crs_note_type = FND_API.G_MISS_CHAR THEN
5354: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'CRS_NOTE_TYPE', 'LEGACY_TOKENS', FALSE);
5350: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CLASS', 'LEGACY_TOKENS', FALSE);
5351: p_usec_notes_rec.status := 'E';
5352: END IF;
5353: IF p_usec_notes_rec.crs_note_type IS NULL OR p_usec_notes_rec.crs_note_type = FND_API.G_MISS_CHAR THEN
5354: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'CRS_NOTE_TYPE', 'LEGACY_TOKENS', FALSE);
5355: p_usec_notes_rec.status := 'E';
5356: END IF;
5357:
5358: END validate_parameters;
5385: p_start_dt => l_d_start_dt,
5386: p_end_dt => l_d_end_dt,
5387: p_return_status => l_c_message );
5388: IF ( l_c_message <> 'SINGLE' ) THEN
5389: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
5390: p_usec_notes_rec.status := 'E';
5391: END IF;
5392:
5393:
5392:
5393:
5394: -- Derive uoo_id
5395: l_c_message := NULL;
5396: igs_ps_validate_lgcy_pkg.get_uoo_id ( p_unit_cd => p_usec_notes_rec.unit_cd,
5397: p_ver_num => p_usec_notes_rec.version_number,
5398: p_cal_type => l_c_cal_type,
5399: p_seq_num => l_n_seq_num,
5400: p_loc_cd => p_usec_notes_rec.location_cd,
5401: p_unit_class => p_usec_notes_rec.unit_class,
5402: p_uoo_id => l_n_uoo_id,
5403: p_message => l_c_message );
5404: IF ( l_c_message IS NOT NULL ) THEN
5405: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_SECTION', 'LEGACY_TOKENS', FALSE);
5406: p_usec_notes_rec.status := 'E';
5407: END IF;
5408:
5409:
5426: /* While update check if the reference number belong to the passed unit section */
5427: OPEN cur_ref_num(l_n_uoo_id, p_usec_notes_rec.reference_number);
5428: FETCH cur_ref_num INTO l_cur_ref_num;
5429: IF cur_ref_num%NOTFOUND THEN
5430: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'REFERENCE_NUMBER', 'LEGACY_TOKENS', FALSE);
5431: p_usec_notes_rec.status := 'E';
5432: ELSE
5433: IF p_usec_notes_rec.note_text = FND_API.G_MISS_CHAR THEN
5434: p_usec_notes_rec.note_text :=NULL;
5442:
5443:
5444: /* Validate FK Constraints */
5445: IF NOT igs_ps_note_type_pkg.get_pk_for_validation ( p_usec_notes_rec.crs_note_type) THEN
5446: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'CRS_NOTE_TYPE', 'LEGACY_TOKENS', FALSE);
5447: p_usec_notes_rec.status := 'E';
5448: END IF;
5449:
5450: IF NOT igs_ps_unit_ofr_opt_pkg.get_uk_for_validation ( l_n_uoo_id ) THEN
5447: p_usec_notes_rec.status := 'E';
5448: END IF;
5449:
5450: IF NOT igs_ps_unit_ofr_opt_pkg.get_uk_for_validation ( l_n_uoo_id ) THEN
5451: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_SECTION', 'LEGACY_TOKENS', FALSE);
5452: p_usec_notes_rec.status := 'E';
5453: END IF;
5454:
5455: END validate_db_cons;
5512: END IF;
5513:
5514: -- Find out whether record can go for import in context of cancelled/aborted
5515: IF p_usec_notes_tbl(I).status = 'S' AND p_calling_context = 'S' THEN
5516: IF igs_ps_validate_lgcy_pkg.check_import_allowed( l_n_uoo_id,NULL) = FALSE THEN
5517: fnd_message.set_name ( 'IGS', 'IGS_PS_REC_ABORTED_CANCELLED' );
5518: fnd_msg_pub.add;
5519: p_usec_notes_tbl(I).status := 'A';
5520: END IF;
5717: BEGIN
5718:
5719: /* Check for Mandatory Parameters */
5720: IF p_usec_assmnt_rec.unit_cd IS NULL OR p_usec_assmnt_rec.unit_cd = FND_API.G_MISS_CHAR THEN
5721: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CD', 'LEGACY_TOKENS', FALSE);
5722: p_usec_assmnt_rec.status := 'E';
5723: END IF;
5724: IF p_usec_assmnt_rec.version_number IS NULL OR p_usec_assmnt_rec.version_number = FND_API.G_MISS_NUM THEN
5725: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_VER_NUM', 'LEGACY_TOKENS', FALSE);
5721: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CD', 'LEGACY_TOKENS', FALSE);
5722: p_usec_assmnt_rec.status := 'E';
5723: END IF;
5724: IF p_usec_assmnt_rec.version_number IS NULL OR p_usec_assmnt_rec.version_number = FND_API.G_MISS_NUM THEN
5725: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_VER_NUM', 'LEGACY_TOKENS', FALSE);
5726: p_usec_assmnt_rec.status := 'E';
5727: END IF;
5728: IF p_usec_assmnt_rec.teach_cal_alternate_code IS NULL OR p_usec_assmnt_rec.teach_cal_alternate_code = FND_API.G_MISS_CHAR THEN
5729: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
5725: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_VER_NUM', 'LEGACY_TOKENS', FALSE);
5726: p_usec_assmnt_rec.status := 'E';
5727: END IF;
5728: IF p_usec_assmnt_rec.teach_cal_alternate_code IS NULL OR p_usec_assmnt_rec.teach_cal_alternate_code = FND_API.G_MISS_CHAR THEN
5729: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
5730: p_usec_assmnt_rec.status := 'E';
5731: END IF;
5732: IF p_usec_assmnt_rec.location_cd IS NULL OR p_usec_assmnt_rec.location_cd= FND_API.G_MISS_CHAR THEN
5733: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD', 'LEGACY_TOKENS', FALSE);
5729: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
5730: p_usec_assmnt_rec.status := 'E';
5731: END IF;
5732: IF p_usec_assmnt_rec.location_cd IS NULL OR p_usec_assmnt_rec.location_cd= FND_API.G_MISS_CHAR THEN
5733: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD', 'LEGACY_TOKENS', FALSE);
5734: p_usec_assmnt_rec.status := 'E';
5735: END IF;
5736: IF p_usec_assmnt_rec.unit_class IS NULL OR p_usec_assmnt_rec.unit_class = FND_API.G_MISS_CHAR THEN
5737: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CLASS', 'LEGACY_TOKENS', FALSE);
5733: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD', 'LEGACY_TOKENS', FALSE);
5734: p_usec_assmnt_rec.status := 'E';
5735: END IF;
5736: IF p_usec_assmnt_rec.unit_class IS NULL OR p_usec_assmnt_rec.unit_class = FND_API.G_MISS_CHAR THEN
5737: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CLASS', 'LEGACY_TOKENS', FALSE);
5738: p_usec_assmnt_rec.status := 'E';
5739: END IF;
5740: IF p_usec_assmnt_rec.final_exam_date IS NULL OR p_usec_assmnt_rec.final_exam_date = FND_API.G_MISS_DATE THEN
5741: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'FINAL_EXAM_DATE', 'LEGACY_TOKENS', FALSE);
5737: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'UNIT_CLASS', 'LEGACY_TOKENS', FALSE);
5738: p_usec_assmnt_rec.status := 'E';
5739: END IF;
5740: IF p_usec_assmnt_rec.final_exam_date IS NULL OR p_usec_assmnt_rec.final_exam_date = FND_API.G_MISS_DATE THEN
5741: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'FINAL_EXAM_DATE', 'LEGACY_TOKENS', FALSE);
5742: p_usec_assmnt_rec.status := 'E';
5743: END IF;
5744: IF p_usec_assmnt_rec.exam_start_time IS NULL OR p_usec_assmnt_rec.exam_start_time = FND_API.G_MISS_CHAR THEN
5745: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'EXAM_START_TIME', 'LEGACY_TOKENS', FALSE);
5741: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'FINAL_EXAM_DATE', 'LEGACY_TOKENS', FALSE);
5742: p_usec_assmnt_rec.status := 'E';
5743: END IF;
5744: IF p_usec_assmnt_rec.exam_start_time IS NULL OR p_usec_assmnt_rec.exam_start_time = FND_API.G_MISS_CHAR THEN
5745: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'EXAM_START_TIME', 'LEGACY_TOKENS', FALSE);
5746: p_usec_assmnt_rec.status := 'E';
5747: END IF;
5748: IF p_usec_assmnt_rec.exam_end_time IS NULL OR p_usec_assmnt_rec.exam_end_time = FND_API.G_MISS_CHAR THEN
5749: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'EXAM_END_TIME', 'LEGACY_TOKENS', FALSE);
5745: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'EXAM_START_TIME', 'LEGACY_TOKENS', FALSE);
5746: p_usec_assmnt_rec.status := 'E';
5747: END IF;
5748: IF p_usec_assmnt_rec.exam_end_time IS NULL OR p_usec_assmnt_rec.exam_end_time = FND_API.G_MISS_CHAR THEN
5749: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'EXAM_END_TIME', 'LEGACY_TOKENS', FALSE);
5750: p_usec_assmnt_rec.status := 'E';
5751: END IF;
5752: IF p_usec_assmnt_rec.exam_location_cd IS NULL OR p_usec_assmnt_rec.exam_location_cd = FND_API.G_MISS_CHAR THEN
5753: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'EXAM_LOCATION_CD', 'LEGACY_TOKENS', FALSE);
5749: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'EXAM_END_TIME', 'LEGACY_TOKENS', FALSE);
5750: p_usec_assmnt_rec.status := 'E';
5751: END IF;
5752: IF p_usec_assmnt_rec.exam_location_cd IS NULL OR p_usec_assmnt_rec.exam_location_cd = FND_API.G_MISS_CHAR THEN
5753: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'EXAM_LOCATION_CD', 'LEGACY_TOKENS', FALSE);
5754: p_usec_assmnt_rec.status := 'E';
5755: END IF;
5756:
5757: END validate_parameters;
5810: p_start_dt => l_d_start_dt,
5811: p_end_dt => l_d_end_dt,
5812: p_return_status => l_c_message );
5813: IF ( l_c_message <> 'SINGLE' ) THEN
5814: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'TEACH_CAL_ALTERNATE_CD', 'LEGACY_TOKENS', FALSE);
5815: p_usec_assmnt_rec.status := 'E';
5816: END IF;
5817:
5818:
5817:
5818:
5819: -- Derive uoo_id
5820: l_c_message := NULL;
5821: igs_ps_validate_lgcy_pkg.get_uoo_id ( p_unit_cd => p_usec_assmnt_rec.unit_cd,
5822: p_ver_num => p_usec_assmnt_rec.version_number,
5823: p_cal_type => l_c_cal_type,
5824: p_seq_num => l_n_seq_num,
5825: p_loc_cd => p_usec_assmnt_rec.location_cd,
5826: p_unit_class => p_usec_assmnt_rec.unit_class,
5827: p_uoo_id => l_n_uoo_id,
5828: p_message => l_c_message );
5829: IF ( l_c_message IS NOT NULL ) THEN
5830: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_SECTION', 'LEGACY_TOKENS', FALSE);
5831: p_usec_assmnt_rec.status := 'E';
5832: END IF;
5833:
5834:
5836: IF p_usec_assmnt_rec.building_code IS NOT NULL AND p_usec_assmnt_rec.building_code <> FND_API.G_MISS_CHAR THEN
5837: OPEN c_bld_id ( p_usec_assmnt_rec.building_code, p_usec_assmnt_rec.exam_location_cd );
5838: FETCH c_bld_id INTO l_n_building_id;
5839: IF ( c_bld_id%NOTFOUND ) THEN
5840: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'BUILDING_CODE', 'LEGACY_TOKENS', FALSE);
5841: p_usec_assmnt_rec.status := 'E';
5842: END IF;
5843: CLOSE c_bld_id;
5844:
5846: IF p_usec_assmnt_rec.room_code IS NOT NULL AND p_usec_assmnt_rec.room_code <> FND_API.G_MISS_CHAR THEN
5847: OPEN c_room_id ( l_n_building_id, p_usec_assmnt_rec.room_code );
5848: FETCH c_room_id INTO l_n_room_id;
5849: IF ( c_room_id%NOTFOUND ) THEN
5850: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'ROOM_CODE', 'LEGACY_TOKENS', FALSE);
5851: p_usec_assmnt_rec.status := 'E';
5852: END IF;
5853: CLOSE c_room_id;
5854: END IF;
5921: ELSIF p_usec_assmnt_rec.room_code IS NOT NULL THEN
5922: OPEN cur_room(l_n_building_id,p_usec_assmnt_rec.room_code);
5923: FETCH cur_room INTO l_n_room_id;
5924: IF cur_room%NOTFOUND THEN
5925: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'ROOM_CODE', 'LEGACY_TOKENS', FALSE);
5926: p_usec_assmnt_rec.status := 'E';
5927: END IF;
5928: CLOSE cur_room;
5929: END IF;
5949: x_final_exam_date =>p_usec_assmnt_rec.final_exam_date,
5950: x_location_cd =>p_usec_assmnt_rec.exam_location_cd,
5951: x_room_code =>l_n_room_id,
5952: x_uoo_id =>l_n_uoo_id) THEN
5953: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_EXISTS', 'USEC_ASSMNT', 'LEGACY_TOKENS', FALSE);
5954: p_usec_assmnt_rec.status := 'W';
5955: RETURN;
5956: END IF;
5957: END IF;
5960: /* Validate FK Constraints */
5961: OPEN c_loc_cd(p_usec_assmnt_rec.exam_location_cd);
5962: FETCH c_loc_cd INTO c_loc_cd_rec;
5963: IF c_loc_cd%NOTFOUND THEN
5964: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'EXAM_LOCATION_CD', 'LEGACY_TOKENS', FALSE);
5965: p_usec_assmnt_rec.status := 'E';
5966: END IF;
5967: CLOSE c_loc_cd;
5968:
5969:
5970: -- Check for the existence of Buildings
5971: IF l_n_building_id IS NOT NULL THEN
5972: IF NOT igs_ad_building_pkg.get_pk_for_validation ( l_n_building_id ) THEN
5973: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'BUILDING_CODE', 'LEGACY_TOKENS', FALSE);
5974: p_usec_assmnt_rec.status := 'E';
5975: END IF;
5976: END IF;
5977:
5977:
5978: -- Check for the existence of Rooms
5979: IF l_n_room_id IS NOT NULL THEN
5980: IF NOT igs_ad_room_pkg.get_pk_for_validation ( l_n_room_id ) THEN
5981: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'ROOM_CODE', 'LEGACY_TOKENS', FALSE);
5982: p_usec_assmnt_rec.status := 'E';
5983: END IF;
5984: END IF;
5985:
5984: END IF;
5985:
5986:
5987: IF NOT igs_ps_unit_ofr_opt_pkg.get_uk_for_validation ( l_n_uoo_id ) THEN
5988: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_SECTION', 'LEGACY_TOKENS', FALSE);
5989: p_usec_assmnt_rec.status := 'E';
5990: END IF;
5991:
5992: END validate_db_cons;
6049: END IF;
6050:
6051: -- Find out whether record can go for import in context of cancelled/aborted
6052: IF p_usec_assmnt_tbl(I).status = 'S' AND p_calling_context = 'S' THEN
6053: IF igs_ps_validate_lgcy_pkg.check_import_allowed( l_n_uoo_id,NULL) = FALSE THEN
6054: fnd_message.set_name ( 'IGS', 'IGS_PS_REC_ABORTED_CANCELLED' );
6055: fnd_msg_pub.add;
6056: p_usec_assmnt_tbl(I).status := 'A';
6057: END IF;
6256:
6257: -- Checking for the mandatory existence of Unit Code, verison number, instructor person number parameter in the record.
6258: IF p_uso_ins_rec.instructor_person_number IS NULL OR p_uso_ins_rec.instructor_person_number = FND_API.G_MISS_CHAR THEN
6259: fnd_message.set_name('IGS','IGS_PS_INS_PERSON_NUMBER');
6260: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY',fnd_message.get,NULL,FALSE);
6261: p_uso_ins_rec.status := 'E';
6262: END IF;
6263:
6264: IF p_uso_ins_rec.unit_cd IS NULL OR p_uso_ins_rec.unit_cd = FND_API.G_MISS_CHAR THEN
6261: p_uso_ins_rec.status := 'E';
6262: END IF;
6263:
6264: IF p_uso_ins_rec.unit_cd IS NULL OR p_uso_ins_rec.unit_cd = FND_API.G_MISS_CHAR THEN
6265: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','UNIT_CD','LEGACY_TOKENS',FALSE);
6266: p_uso_ins_rec.status := 'E';
6267: END IF;
6268:
6269: IF p_uso_ins_rec.version_number IS NULL OR p_uso_ins_rec.version_number = FND_API.G_MISS_NUM THEN
6266: p_uso_ins_rec.status := 'E';
6267: END IF;
6268:
6269: IF p_uso_ins_rec.version_number IS NULL OR p_uso_ins_rec.version_number = FND_API.G_MISS_NUM THEN
6270: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','UNIT_VER_NUM','LEGACY_TOKENS',FALSE);
6271: p_uso_ins_rec.status := 'E';
6272: END IF;
6273:
6274: -- if the production USO id is not provided then Teching calendar alternate code, location code and
6274: -- if the production USO id is not provided then Teching calendar alternate code, location code and
6275: -- unit class are required.
6276: IF p_uso_ins_rec.production_uso_id IS NULL OR p_uso_ins_rec.production_uso_id = FND_API.G_MISS_NUM THEN
6277: IF p_uso_ins_rec.teach_cal_alternate_code IS NULL OR p_uso_ins_rec.teach_cal_alternate_code = FND_API.G_MISS_CHAR THEN
6278: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','TEACH_CAL_ALTERNATE_CD','LEGACY_TOKENS',FALSE);
6279: p_uso_ins_rec.status := 'E';
6280: END IF;
6281: IF p_uso_ins_rec.location_cd IS NULL OR p_uso_ins_rec.location_cd = FND_API.G_MISS_CHAR THEN
6282: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD','LEGACY_TOKENS',FALSE);
6278: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','TEACH_CAL_ALTERNATE_CD','LEGACY_TOKENS',FALSE);
6279: p_uso_ins_rec.status := 'E';
6280: END IF;
6281: IF p_uso_ins_rec.location_cd IS NULL OR p_uso_ins_rec.location_cd = FND_API.G_MISS_CHAR THEN
6282: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD','LEGACY_TOKENS',FALSE);
6283: p_uso_ins_rec.status := 'E';
6284: END IF;
6285: IF p_uso_ins_rec.unit_class IS NULL OR p_uso_ins_rec.unit_class = FND_API.G_MISS_CHAR THEN
6286: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','UNIT_CLASS','LEGACY_TOKENS',FALSE);
6282: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD','LEGACY_TOKENS',FALSE);
6283: p_uso_ins_rec.status := 'E';
6284: END IF;
6285: IF p_uso_ins_rec.unit_class IS NULL OR p_uso_ins_rec.unit_class = FND_API.G_MISS_CHAR THEN
6286: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','UNIT_CLASS','LEGACY_TOKENS',FALSE);
6287: p_uso_ins_rec.status := 'E';
6288: END IF;
6289: END IF;
6290:
6292: (p_uso_ins_rec.location_cd IS NULL OR p_uso_ins_rec.location_cd = FND_API.G_MISS_CHAR ) AND
6293: (p_uso_ins_rec.unit_class IS NULL OR p_uso_ins_rec.unit_class = FND_API.G_MISS_CHAR) THEN
6294: IF p_uso_ins_rec.production_uso_id IS NULL OR p_uso_ins_rec.production_uso_id = FND_API.G_MISS_NUM THEN
6295: fnd_message.set_name('IGS','IGS_PS_PRODUCTION_USO_ID');
6296: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY',fnd_message.get,NULL,FALSE);
6297: p_uso_ins_rec.status := 'E';
6298: END IF;
6299: END IF;
6300:
6299: END IF;
6300:
6301: IF (p_uso_ins_rec.production_uso_id IS NULL OR p_uso_ins_rec.production_uso_id = FND_API.G_MISS_NUM ) AND
6302: (p_uso_ins_rec.occurrence_identifier IS NULL OR p_uso_ins_rec.occurrence_identifier = FND_API.G_MISS_CHAR) THEN
6303: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'USEC_OCCRS_ID','IGS_PS_LOG_PARAMETERS', FALSE);
6304: p_uso_ins_rec.status := 'E';
6305: END IF;
6306:
6307:
6343: l_n_uso_id := NULL;
6344: l_n_uoo_id := NULL;
6345:
6346: -- Derive the Instructor identifier
6347: igs_ps_validate_lgcy_pkg.get_party_id(p_uso_ins_rec.instructor_person_number, l_n_ins_id);
6348: IF l_n_ins_id IS NULL THEN
6349: fnd_message.set_name('IGS','IGS_PS_INS_PERSON_NUMBER');
6350: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', fnd_message.get,NULL, FALSE);
6351: p_uso_ins_rec.status := 'E';
6346: -- Derive the Instructor identifier
6347: igs_ps_validate_lgcy_pkg.get_party_id(p_uso_ins_rec.instructor_person_number, l_n_ins_id);
6348: IF l_n_ins_id IS NULL THEN
6349: fnd_message.set_name('IGS','IGS_PS_INS_PERSON_NUMBER');
6350: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', fnd_message.get,NULL, FALSE);
6351: p_uso_ins_rec.status := 'E';
6352: END IF;
6353:
6354: -- if the production unit section occurrence identifier is provided then validate it
6361: FETCH c_uoo_id INTO l_n_uoo_id;
6362: CLOSE c_uoo_id;
6363: ELSE
6364: fnd_message.set_name('IGS','IGS_PS_PRODUCTION_USO_ID');
6365: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', fnd_message.get,NULL, FALSE);
6366: p_uso_ins_rec.status := 'E';
6367: END IF;
6368: ELSE
6369: -- Deriving the value of Unit section Occurrence identifier
6370:
6371: -- Deriving the Calendar Type and Calendar Sequence Number
6372: igs_ge_gen_003.get_calendar_instance(p_uso_ins_rec.teach_cal_alternate_code,'''TEACHING''', l_c_cal_type, l_n_seq_num, l_d_start, l_d_end, l_c_ret_status);
6373: IF l_c_ret_status <> 'SINGLE' THEN
6374: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'TEACH_CAL_ALTERNATE_CD','LEGACY_TOKENS', FALSE);
6375: p_uso_ins_rec.status := 'E';
6376: END IF;
6377: -- Deriving the Unit Offering Option Identifier
6378: l_c_ret_status := NULL;
6375: p_uso_ins_rec.status := 'E';
6376: END IF;
6377: -- Deriving the Unit Offering Option Identifier
6378: l_c_ret_status := NULL;
6379: igs_ps_validate_lgcy_pkg.get_uoo_id(p_uso_ins_rec.unit_cd, p_uso_ins_rec.version_number, l_c_cal_type, l_n_seq_num, p_uso_ins_rec.location_cd, p_uso_ins_rec.unit_class, l_n_uoo_id, l_c_ret_status);
6380: IF l_c_ret_status IS NOT NULL THEN
6381: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS','UNIT_SECTION','LEGACY_TOKENS', FALSE);
6382: p_uso_ins_rec.status := 'E';
6383: END IF;
6377: -- Deriving the Unit Offering Option Identifier
6378: l_c_ret_status := NULL;
6379: igs_ps_validate_lgcy_pkg.get_uoo_id(p_uso_ins_rec.unit_cd, p_uso_ins_rec.version_number, l_c_cal_type, l_n_seq_num, p_uso_ins_rec.location_cd, p_uso_ins_rec.unit_class, l_n_uoo_id, l_c_ret_status);
6380: IF l_c_ret_status IS NOT NULL THEN
6381: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS','UNIT_SECTION','LEGACY_TOKENS', FALSE);
6382: p_uso_ins_rec.status := 'E';
6383: END IF;
6384:
6385:
6384:
6385:
6386: --Derive the unit section occurrence id
6387: l_c_msg := NULL;
6388: igs_ps_validate_lgcy_pkg.get_uso_id( p_uoo_id => l_n_uoo_id,
6389: p_occurrence_identifier => p_uso_ins_rec.occurrence_identifier,
6390: p_uso_id => l_n_uso_id,
6391: p_message => l_c_msg
6392: );
6416: BEGIN
6417: igs_ps_unit_ver_pkg.check_constraints( 'UNIT_CD',p_uso_ins_rec.unit_cd);
6418: EXCEPTION
6419: WHEN OTHERS THEN
6420: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_UPPER_CASE','UNIT_CD','LEGACY_TOKENS',TRUE);
6421: p_uso_ins_rec.status :='E';
6422: END;
6423:
6424: BEGIN
6424: BEGIN
6425: igs_ps_unit_ver_pkg.check_constraints('VERSION_NUMBER',p_uso_ins_rec.version_number);
6426: EXCEPTION
6427: WHEN OTHERS THEN
6428: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VER_NUM_1_999',NULL,NULL,TRUE);
6429: p_uso_ins_rec.status :='E';
6430: END;
6431:
6432: -- Foreign Key Checking
6431:
6432: -- Foreign Key Checking
6433: IF NOT igs_pe_person_pkg.get_pk_for_validation(l_n_ins_id ) THEN
6434: fnd_message.set_name('IGS','IGS_PS_INS_PERSON_NUMBER');
6435: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', fnd_message.get, NULL, FALSE);
6436: p_uso_ins_rec.status := 'E';
6437: END IF;
6438: IF NOT igs_ps_unit_ofr_opt_pkg.get_uk_for_validation (l_n_uoo_id ) THEN
6439: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_SECTION', 'LEGACY_TOKENS', FALSE);
6435: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', fnd_message.get, NULL, FALSE);
6436: p_uso_ins_rec.status := 'E';
6437: END IF;
6438: IF NOT igs_ps_unit_ofr_opt_pkg.get_uk_for_validation (l_n_uoo_id ) THEN
6439: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_SECTION', 'LEGACY_TOKENS', FALSE);
6440: p_uso_ins_rec.status := 'E';
6441: END IF;
6442:
6443: IF p_uso_ins_rec.production_uso_id IS NOT NULL THEN
6550: -- Check uniqueness validation
6551: IF igs_ps_uso_instrctrs_pkg.get_uk_for_validation(p_tab_uso_ins(I).system_uso_id, p_tab_uso_ins(I).system_instructor_id) THEN
6552: p_tab_uso_ins(I).status :='E';
6553: fnd_message.set_name('IGS','IGS_PS_USO_INS');
6554: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_EXISTS', fnd_message.get, NULL, FALSE);
6555: p_c_rec_status := p_tab_uso_ins(I).status;
6556: p_tab_uso_ins(I).msg_from := p_tab_uso_ins(I).msg_from+1;
6557: p_tab_uso_ins(I).msg_to := fnd_msg_pub.count_msg;
6558: p_insert_status:= FALSE;
6586: ||' '||'occurrence_identifier'||p_tab_uso_ins(I).occurrence_identifier
6587: ||' '||'production_uso_id:'||p_tab_uso_ins(I).production_uso_id);
6588: END IF;
6589:
6590: igs_ps_validate_lgcy_pkg.post_uso_ins(p_tab_uso_ins(I).system_instructor_id,
6591: p_tab_uso_ins(I).system_uoo_id,
6592: p_tab_uso_ins(I),I);
6593:
6594: IF p_tab_uso_ins(I).status <> 'S' THEN
6661:
6662: END IF;
6663:
6664: IF p_tab_uso_ins(I).status = 'S' THEN
6665: IF igs_ps_validate_lgcy_pkg.check_import_allowed( l_n_uoo_id,l_n_uso_id) = FALSE THEN
6666: fnd_message.set_name ( 'IGS', 'IGS_PS_REC_ABORTED_CANCELLED' );
6667: fnd_msg_pub.add;
6668: p_tab_uso_ins(I).status := 'A';
6669: END IF;
6739: RETURN;
6740: END IF;
6741:
6742:
6743: IF NOT igs_ps_validate_lgcy_pkg.post_uso_ins_busi(p_tab_uso_ins) THEN
6744: p_c_rec_status := 'E';
6745: END IF;
6746:
6747: END IF; --Scheduling
6803:
6804: -- Checking for the mandatory existence of Unit Code, verison number, instructor person number parameter in the record.
6805: IF p_usec_teach_resp_rec.instructor_person_number IS NULL OR p_usec_teach_resp_rec.instructor_person_number = FND_API.G_MISS_CHAR THEN
6806: fnd_message.set_name('IGS','IGS_PS_INS_PERSON_NUMBER');
6807: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY',fnd_message.get,NULL,FALSE);
6808: p_usec_teach_resp_rec.status := 'E';
6809: END IF;
6810:
6811: IF p_usec_teach_resp_rec.unit_cd IS NULL OR p_usec_teach_resp_rec.unit_cd = FND_API.G_MISS_CHAR THEN
6808: p_usec_teach_resp_rec.status := 'E';
6809: END IF;
6810:
6811: IF p_usec_teach_resp_rec.unit_cd IS NULL OR p_usec_teach_resp_rec.unit_cd = FND_API.G_MISS_CHAR THEN
6812: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','UNIT_CD','LEGACY_TOKENS',FALSE);
6813: p_usec_teach_resp_rec.status := 'E';
6814: END IF;
6815:
6816: IF p_usec_teach_resp_rec.version_number IS NULL OR p_usec_teach_resp_rec.version_number = FND_API.G_MISS_NUM THEN
6813: p_usec_teach_resp_rec.status := 'E';
6814: END IF;
6815:
6816: IF p_usec_teach_resp_rec.version_number IS NULL OR p_usec_teach_resp_rec.version_number = FND_API.G_MISS_NUM THEN
6817: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','UNIT_VER_NUM','LEGACY_TOKENS',FALSE);
6818: p_usec_teach_resp_rec.status := 'E';
6819: END IF;
6820:
6821: IF p_usec_teach_resp_rec.teach_cal_alternate_code IS NULL OR p_usec_teach_resp_rec.teach_cal_alternate_code = FND_API.G_MISS_CHAR THEN
6818: p_usec_teach_resp_rec.status := 'E';
6819: END IF;
6820:
6821: IF p_usec_teach_resp_rec.teach_cal_alternate_code IS NULL OR p_usec_teach_resp_rec.teach_cal_alternate_code = FND_API.G_MISS_CHAR THEN
6822: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','TEACH_CAL_ALTERNATE_CD','LEGACY_TOKENS',FALSE);
6823: p_usec_teach_resp_rec.status := 'E';
6824: END IF;
6825:
6826: IF p_usec_teach_resp_rec.location_cd IS NULL OR p_usec_teach_resp_rec.location_cd = FND_API.G_MISS_CHAR THEN
6823: p_usec_teach_resp_rec.status := 'E';
6824: END IF;
6825:
6826: IF p_usec_teach_resp_rec.location_cd IS NULL OR p_usec_teach_resp_rec.location_cd = FND_API.G_MISS_CHAR THEN
6827: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD','LEGACY_TOKENS',FALSE);
6828: p_usec_teach_resp_rec.status := 'E';
6829: END IF;
6830:
6831: IF p_usec_teach_resp_rec.unit_class IS NULL OR p_usec_teach_resp_rec.unit_class = FND_API.G_MISS_CHAR THEN
6828: p_usec_teach_resp_rec.status := 'E';
6829: END IF;
6830:
6831: IF p_usec_teach_resp_rec.unit_class IS NULL OR p_usec_teach_resp_rec.unit_class = FND_API.G_MISS_CHAR THEN
6832: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','UNIT_CLASS','LEGACY_TOKENS',FALSE);
6833: p_usec_teach_resp_rec.status := 'E';
6834: END IF;
6835:
6836: END validate_parameters;
6848: l_n_ins_id := NULL;
6849: l_n_uoo_id := NULL;
6850:
6851: -- Derive the Instructor identifier
6852: igs_ps_validate_lgcy_pkg.get_party_id(p_usec_teach_resp_rec.instructor_person_number, l_n_ins_id);
6853: IF l_n_ins_id IS NULL THEN
6854: fnd_message.set_name('IGS','IGS_PS_INS_PERSON_NUMBER');
6855: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', fnd_message.get,NULL, FALSE);
6856: p_usec_teach_resp_rec.status := 'E';
6851: -- Derive the Instructor identifier
6852: igs_ps_validate_lgcy_pkg.get_party_id(p_usec_teach_resp_rec.instructor_person_number, l_n_ins_id);
6853: IF l_n_ins_id IS NULL THEN
6854: fnd_message.set_name('IGS','IGS_PS_INS_PERSON_NUMBER');
6855: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', fnd_message.get,NULL, FALSE);
6856: p_usec_teach_resp_rec.status := 'E';
6857: END IF;
6858:
6859:
6859:
6860: -- Deriving the Calendar Type and Calendar Sequence Number
6861: igs_ge_gen_003.get_calendar_instance(p_usec_teach_resp_rec.teach_cal_alternate_code,'''TEACHING''', l_c_cal_type, l_n_seq_num, l_d_start, l_d_end, l_c_ret_status);
6862: IF l_c_ret_status <> 'SINGLE' THEN
6863: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'TEACH_CAL_ALTERNATE_CD','LEGACY_TOKENS', FALSE);
6864: p_usec_teach_resp_rec.status := 'E';
6865: END IF;
6866:
6867: -- Deriving the Unit Offering Option Identifier
6865: END IF;
6866:
6867: -- Deriving the Unit Offering Option Identifier
6868: l_c_ret_status := NULL;
6869: igs_ps_validate_lgcy_pkg.get_uoo_id(p_usec_teach_resp_rec.unit_cd, p_usec_teach_resp_rec.version_number, l_c_cal_type, l_n_seq_num, p_usec_teach_resp_rec.location_cd, p_usec_teach_resp_rec.unit_class, l_n_uoo_id, l_c_ret_status);
6870: IF l_c_ret_status IS NOT NULL THEN
6871: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS','UNIT_SECTION','LEGACY_TOKENS', FALSE);
6872: p_usec_teach_resp_rec.status := 'E';
6873: END IF;
6867: -- Deriving the Unit Offering Option Identifier
6868: l_c_ret_status := NULL;
6869: igs_ps_validate_lgcy_pkg.get_uoo_id(p_usec_teach_resp_rec.unit_cd, p_usec_teach_resp_rec.version_number, l_c_cal_type, l_n_seq_num, p_usec_teach_resp_rec.location_cd, p_usec_teach_resp_rec.unit_class, l_n_uoo_id, l_c_ret_status);
6870: IF l_c_ret_status IS NOT NULL THEN
6871: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS','UNIT_SECTION','LEGACY_TOKENS', FALSE);
6872: p_usec_teach_resp_rec.status := 'E';
6873: END IF;
6874:
6875: END validate_derivation;
6882: BEGIN
6883: igs_ps_unit_ver_pkg.check_constraints( 'UNIT_CD',p_usec_teach_resp_rec.unit_cd);
6884: EXCEPTION
6885: WHEN OTHERS THEN
6886: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_UPPER_CASE','UNIT_CD','LEGACY_TOKENS',TRUE);
6887: p_usec_teach_resp_rec.status :='E';
6888: END;
6889:
6890: BEGIN
6890: BEGIN
6891: igs_ps_unit_ver_pkg.check_constraints('VERSION_NUMBER',p_usec_teach_resp_rec.version_number);
6892: EXCEPTION
6893: WHEN OTHERS THEN
6894: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VER_NUM_1_999',NULL,NULL,TRUE);
6895: p_usec_teach_resp_rec.status :='E';
6896: END;
6897:
6898: BEGIN
6899: igs_ps_usec_tch_resp_pkg.check_constraints('LEAD_INSTRUCTOR_FLAG', p_usec_teach_resp_rec.lead_instructor_flag);
6900: EXCEPTION
6901: WHEN OTHERS THEN
6902: fnd_message.set_name('IGS','IGS_PS_LEAD_INSTRUCTOR_FLAG');
6903: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N',fnd_message.get, NULL,TRUE);
6904: p_usec_teach_resp_rec.status :='E';
6905: END;
6906:
6907: BEGIN
6908: igs_ps_usec_tch_resp_pkg.check_constraints('CONFIRMED_FLAG', p_usec_teach_resp_rec.confirmed_flag);
6909: EXCEPTION
6910: WHEN OTHERS THEN
6911: fnd_message.set_name('IGS','IGS_PS_CONFIRMED_FLAG');
6912: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N',fnd_message.get, NULL,TRUE);
6913: p_usec_teach_resp_rec.status :='E';
6914: END;
6915:
6916: IF p_usec_teach_resp_rec.wl_percentage_allocation IS NOT NULL THEN
6917: BEGIN
6918: igs_ps_usec_tch_resp_pkg.check_constraints('PERCENTAGE_ALLOCATION', p_usec_teach_resp_rec.wl_percentage_allocation);
6919: EXCEPTION
6920: WHEN OTHERS THEN
6921: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_PTS_RANGE_0_999','PERCENTAGE','LEGACY_TOKENS',TRUE);
6922: p_usec_teach_resp_rec.status :='E';
6923: END;
6924: END IF;
6925:
6928: igs_ps_usec_tch_resp_pkg.check_constraints('INSTRUCTIONAL_LOAD_LECTURE', p_usec_teach_resp_rec.instructional_load_lecture);
6929: EXCEPTION
6930: WHEN OTHERS THEN
6931: fnd_message.set_name('IGS','IGS_PS_INS_LOAD_LECTURE');
6932: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_9999D99',fnd_message.get, NULL,TRUE);
6933: p_usec_teach_resp_rec.status :='E';
6934: END;
6935: END IF;
6936:
6939: igs_ps_usec_tch_resp_pkg.check_constraints('INSTRUCTIONAL_LOAD_LAB', p_usec_teach_resp_rec.instructional_load_laboratory);
6940: EXCEPTION
6941: WHEN OTHERS THEN
6942: fnd_message.set_name('IGS','IGS_PS_INS_LOAD_LAB');
6943: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_9999D99',fnd_message.get,NULL,TRUE);
6944: p_usec_teach_resp_rec.status :='E';
6945: END;
6946: END IF;
6947:
6950: igs_ps_usec_tch_resp_pkg.check_constraints('INSTRUCTIONAL_LOAD', p_usec_teach_resp_rec.instructional_load_other);
6951: EXCEPTION
6952: WHEN OTHERS THEN
6953: fnd_message.set_name('IGS','IGS_PS_INS_LOAD_OTHER');
6954: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_9999D99',fnd_message.get,NULL,TRUE);
6955: p_usec_teach_resp_rec.status :='E';
6956: END;
6957: END IF;
6958:
6958:
6959: -- Foreign Key Checking
6960: IF NOT igs_pe_person_pkg.get_pk_for_validation(l_n_ins_id ) THEN
6961: fnd_message.set_name('IGS','IGS_PS_INS_PERSON_NUMBER');
6962: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', fnd_message.get, NULL, FALSE);
6963: p_usec_teach_resp_rec.status := 'E';
6964: END IF;
6965:
6966: IF NOT igs_ps_unit_ofr_opt_pkg.get_uk_for_validation (l_n_uoo_id ) THEN
6963: p_usec_teach_resp_rec.status := 'E';
6964: END IF;
6965:
6966: IF NOT igs_ps_unit_ofr_opt_pkg.get_uk_for_validation (l_n_uoo_id ) THEN
6967: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_SECTION', 'LEGACY_TOKENS', FALSE);
6968: p_usec_teach_resp_rec.status := 'E';
6969: END IF;
6970:
6971: END validate_db_cons;
7020: p_usec_teach_resp_rec.instructional_load_other := NULL;
7021: END IF;
7022:
7023: ELSE
7024: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'TEACHING_RESPONSIBILITY', 'LEGACY_TOKENS', FALSE);
7025: p_usec_teach_resp_rec.status := 'E';
7026: END IF;
7027: CLOSE cur_resp;
7028:
7080: END IF;
7081:
7082:
7083: --Instructor should be staff or faculty
7084: IF igs_ps_validate_lgcy_pkg.validate_staff_faculty (p_person_id => l_n_ins_id) = FALSE THEN
7085: p_usec_teach_resp_rec.status :='E';
7086: fnd_message.set_name('IGS','IGS_PS_INST_NOT_FACULTY_STAFF');
7087: fnd_msg_pub.add;
7088: END IF;
7196: IF v_tab_usec_sr.EXISTS(1) THEN
7197: l_tab_uoo(1) := v_tab_usec_sr(1).uoo_id;
7198:
7199: FOR I in 2.. v_tab_usec_sr.COUNT LOOP
7200: IF NOT igs_ps_validate_lgcy_pkg.isExists(v_tab_usec_sr(I).uoo_id,l_tab_uoo) THEN
7201: l_tab_uoo(l_tab_uoo.count+1) := v_tab_usec_sr(I).uoo_id;
7202: END IF;
7203: END LOOP;
7204:
7347: END IF;
7348:
7349:
7350: IF p_usec_teach_resp_tbl(I).status = 'S' AND p_calling_context = 'S' THEN
7351: IF igs_ps_validate_lgcy_pkg.check_import_allowed( l_n_uoo_id,NULL) = FALSE THEN
7352: fnd_message.set_name ( 'IGS', 'IGS_PS_REC_ABORTED_CANCELLED' );
7353: fnd_msg_pub.add;
7354: p_usec_teach_resp_tbl(I).status := 'A';
7355: END IF;
7503: p_usec_sp_fee_rec.status:='S';
7504:
7505:
7506: IF p_usec_sp_fee_rec.unit_cd IS NULL OR p_usec_sp_fee_rec.unit_cd = FND_API.G_MISS_CHAR THEN
7507: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','UNIT_CD','LEGACY_TOKENS',FALSE);
7508: p_usec_sp_fee_rec.status := 'E';
7509: END IF;
7510:
7511: IF p_usec_sp_fee_rec.version_number IS NULL OR p_usec_sp_fee_rec.version_number = FND_API.G_MISS_NUM THEN
7508: p_usec_sp_fee_rec.status := 'E';
7509: END IF;
7510:
7511: IF p_usec_sp_fee_rec.version_number IS NULL OR p_usec_sp_fee_rec.version_number = FND_API.G_MISS_NUM THEN
7512: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','UNIT_VER_NUM','LEGACY_TOKENS',FALSE);
7513: p_usec_sp_fee_rec.status := 'E';
7514: END IF;
7515:
7516: IF p_usec_sp_fee_rec.teach_cal_alternate_code IS NULL OR p_usec_sp_fee_rec.teach_cal_alternate_code = FND_API.G_MISS_CHAR THEN
7513: p_usec_sp_fee_rec.status := 'E';
7514: END IF;
7515:
7516: IF p_usec_sp_fee_rec.teach_cal_alternate_code IS NULL OR p_usec_sp_fee_rec.teach_cal_alternate_code = FND_API.G_MISS_CHAR THEN
7517: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','TEACH_CAL_ALTERNATE_CD','LEGACY_TOKENS',FALSE);
7518: p_usec_sp_fee_rec.status := 'E';
7519: END IF;
7520:
7521: IF p_usec_sp_fee_rec.location_cd IS NULL OR p_usec_sp_fee_rec.location_cd = FND_API.G_MISS_CHAR THEN
7518: p_usec_sp_fee_rec.status := 'E';
7519: END IF;
7520:
7521: IF p_usec_sp_fee_rec.location_cd IS NULL OR p_usec_sp_fee_rec.location_cd = FND_API.G_MISS_CHAR THEN
7522: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD','LEGACY_TOKENS',FALSE);
7523: p_usec_sp_fee_rec.status := 'E';
7524: END IF;
7525:
7526: IF p_usec_sp_fee_rec.unit_class IS NULL OR p_usec_sp_fee_rec.unit_class = FND_API.G_MISS_CHAR THEN
7523: p_usec_sp_fee_rec.status := 'E';
7524: END IF;
7525:
7526: IF p_usec_sp_fee_rec.unit_class IS NULL OR p_usec_sp_fee_rec.unit_class = FND_API.G_MISS_CHAR THEN
7527: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','UNIT_CLASS','LEGACY_TOKENS',FALSE);
7528: p_usec_sp_fee_rec.status := 'E';
7529: END IF;
7530:
7531: IF p_usec_sp_fee_rec.fee_type IS NULL OR p_usec_sp_fee_rec.fee_type = FND_API.G_MISS_CHAR THEN
7528: p_usec_sp_fee_rec.status := 'E';
7529: END IF;
7530:
7531: IF p_usec_sp_fee_rec.fee_type IS NULL OR p_usec_sp_fee_rec.fee_type = FND_API.G_MISS_CHAR THEN
7532: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','FEE_TYPE','IGS_FI_LOCKBOX',FALSE);
7533: p_usec_sp_fee_rec.status := 'E';
7534: END IF;
7535:
7536: IF p_usec_sp_fee_rec.sp_fee_amt IS NULL OR p_usec_sp_fee_rec.sp_fee_amt = FND_API.G_MISS_NUM THEN
7533: p_usec_sp_fee_rec.status := 'E';
7534: END IF;
7535:
7536: IF p_usec_sp_fee_rec.sp_fee_amt IS NULL OR p_usec_sp_fee_rec.sp_fee_amt = FND_API.G_MISS_NUM THEN
7537: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','FEE_AMOUNT','LEGACY_TOKENS',FALSE);
7538: p_usec_sp_fee_rec.status := 'E';
7539: END IF;
7540:
7541: END validate_parameters;
7550:
7551: -- Deriving the Calendar Type and Calendar Sequence Number
7552: igs_ge_gen_003.get_calendar_instance(p_usec_sp_fee_rec.teach_cal_alternate_code,'''TEACHING''', l_c_cal_type, l_n_seq_num, l_d_start, l_d_end, l_c_ret_status);
7553: IF l_c_ret_status <> 'SINGLE' THEN
7554: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'TEACH_CAL_ALTERNATE_CD','LEGACY_TOKENS', FALSE);
7555: p_usec_sp_fee_rec.status := 'E';
7556: END IF;
7557:
7558: -- Deriving the Unit Offering Option Identifier
7556: END IF;
7557:
7558: -- Deriving the Unit Offering Option Identifier
7559: l_c_ret_status := NULL;
7560: igs_ps_validate_lgcy_pkg.get_uoo_id(p_usec_sp_fee_rec.unit_cd, p_usec_sp_fee_rec.version_number, l_c_cal_type, l_n_seq_num, p_usec_sp_fee_rec.location_cd, p_usec_sp_fee_rec.unit_class, l_n_uoo_id, l_c_ret_status);
7561: IF l_c_ret_status IS NOT NULL THEN
7562: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS','UNIT_SECTION','LEGACY_TOKENS', FALSE);
7563: p_usec_sp_fee_rec.status := 'E';
7564: END IF;
7558: -- Deriving the Unit Offering Option Identifier
7559: l_c_ret_status := NULL;
7560: igs_ps_validate_lgcy_pkg.get_uoo_id(p_usec_sp_fee_rec.unit_cd, p_usec_sp_fee_rec.version_number, l_c_cal_type, l_n_seq_num, p_usec_sp_fee_rec.location_cd, p_usec_sp_fee_rec.unit_class, l_n_uoo_id, l_c_ret_status);
7561: IF l_c_ret_status IS NOT NULL THEN
7562: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS','UNIT_SECTION','LEGACY_TOKENS', FALSE);
7563: p_usec_sp_fee_rec.status := 'E';
7564: END IF;
7565:
7566: END validate_derivation;
7572: IF p_insert_update = 'I' THEN
7573: /* Unique Key Validation */
7574: IF igs_ps_usec_sp_fees_pkg.get_uk_for_validation ( x_fee_type => p_usec_sp_fee_rec.fee_type,
7575: x_uoo_id => l_n_uoo_id ) THEN
7576: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_EXISTS', 'FEE_TYPE', 'IGS_FI_LOCKBOX', FALSE);
7577: p_usec_sp_fee_rec.status := 'W';
7578: RETURN;
7579: END IF;
7580: END IF;
7583: BEGIN
7584: igs_ps_unit_ver_pkg.check_constraints( 'UNIT_CD',p_usec_sp_fee_rec.unit_cd);
7585: EXCEPTION
7586: WHEN OTHERS THEN
7587: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_UPPER_CASE','UNIT_CD','LEGACY_TOKENS',TRUE);
7588: p_usec_sp_fee_rec.status :='E';
7589: END;
7590:
7591: BEGIN
7591: BEGIN
7592: igs_ps_unit_ver_pkg.check_constraints('VERSION_NUMBER',p_usec_sp_fee_rec.version_number);
7593: EXCEPTION
7594: WHEN OTHERS THEN
7595: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VER_NUM_1_999',NULL,NULL,TRUE);
7596: p_usec_sp_fee_rec.status :='E';
7597: END;
7598:
7599: BEGIN
7599: BEGIN
7600: igs_ps_usec_sp_fees_pkg.check_constraints('CLOSED_FLAG', p_usec_sp_fee_rec.closed_flag);
7601: EXCEPTION
7602: WHEN OTHERS THEN
7603: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N','CLOSED_FLAG','LEGACY_TOKENS',TRUE);
7604: p_usec_sp_fee_rec.status :='E';
7605: END;
7606:
7607: BEGIN
7607: BEGIN
7608: igs_ps_usec_sp_fees_pkg.check_constraints('SP_FEE_AMT', p_usec_sp_fee_rec.sp_fee_amt);
7609: EXCEPTION
7610: WHEN OTHERS THEN
7611: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_9999D99','FEE_AMOUNT','LEGACY_TOKENS',TRUE);
7612: p_usec_sp_fee_rec.status :='E';
7613: END;
7614:
7615:
7615:
7616: -- Foreign Key Checking
7617:
7618: IF NOT igs_ps_unit_ofr_opt_pkg.get_uk_for_validation (l_n_uoo_id ) THEN
7619: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_SECTION', 'LEGACY_TOKENS', FALSE);
7620: p_usec_sp_fee_rec.status := 'E';
7621: END IF;
7622:
7623: IF NOT igs_fi_fee_type_pkg.get_pk_for_validation (p_usec_sp_fee_rec.fee_type ) THEN
7620: p_usec_sp_fee_rec.status := 'E';
7621: END IF;
7622:
7623: IF NOT igs_fi_fee_type_pkg.get_pk_for_validation (p_usec_sp_fee_rec.fee_type ) THEN
7624: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'FEE_TYPE', 'IGS_FI_LOCKBOX', FALSE);
7625: p_usec_sp_fee_rec.status := 'E';
7626: END IF;
7627:
7628: END validate_db_cons;
7789: END IF;
7790: END LOOP;
7791:
7792: IF l_c_proceed = FALSE THEN
7793: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'FEE_TYPE', 'IGS_FI_LOCKBOX', FALSE);
7794: p_usec_sp_fee_rec.status := 'E';
7795: END IF;
7796: END IF;
7797:
7857:
7858: END IF;
7859:
7860: IF p_usec_sp_fee_tbl(I).status = 'S' AND p_calling_context = 'S' THEN
7861: IF igs_ps_validate_lgcy_pkg.check_import_allowed( l_n_uoo_id,NULL) = FALSE THEN
7862: fnd_message.set_name ( 'IGS', 'IGS_PS_REC_ABORTED_CANCELLED' );
7863: fnd_msg_pub.add;
7864: p_usec_sp_fee_tbl(I).status := 'A';
7865: END IF;
8041: p_usec_plus_hr_rec.status:='S';
8042:
8043:
8044: IF p_usec_plus_hr_rec.unit_cd IS NULL OR p_usec_plus_hr_rec.unit_cd = FND_API.G_MISS_CHAR THEN
8045: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','UNIT_CD','LEGACY_TOKENS',FALSE);
8046: p_usec_plus_hr_rec.status := 'E';
8047: END IF;
8048:
8049: IF p_usec_plus_hr_rec.version_number IS NULL OR p_usec_plus_hr_rec.version_number = FND_API.G_MISS_NUM THEN
8046: p_usec_plus_hr_rec.status := 'E';
8047: END IF;
8048:
8049: IF p_usec_plus_hr_rec.version_number IS NULL OR p_usec_plus_hr_rec.version_number = FND_API.G_MISS_NUM THEN
8050: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','UNIT_VER_NUM','LEGACY_TOKENS',FALSE);
8051: p_usec_plus_hr_rec.status := 'E';
8052: END IF;
8053:
8054: IF p_usec_plus_hr_rec.teach_cal_alternate_code IS NULL OR p_usec_plus_hr_rec.teach_cal_alternate_code = FND_API.G_MISS_CHAR THEN
8051: p_usec_plus_hr_rec.status := 'E';
8052: END IF;
8053:
8054: IF p_usec_plus_hr_rec.teach_cal_alternate_code IS NULL OR p_usec_plus_hr_rec.teach_cal_alternate_code = FND_API.G_MISS_CHAR THEN
8055: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','TEACH_CAL_ALTERNATE_CD','LEGACY_TOKENS',FALSE);
8056: p_usec_plus_hr_rec.status := 'E';
8057: END IF;
8058:
8059: IF p_usec_plus_hr_rec.location_cd IS NULL OR p_usec_plus_hr_rec.location_cd = FND_API.G_MISS_CHAR THEN
8056: p_usec_plus_hr_rec.status := 'E';
8057: END IF;
8058:
8059: IF p_usec_plus_hr_rec.location_cd IS NULL OR p_usec_plus_hr_rec.location_cd = FND_API.G_MISS_CHAR THEN
8060: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD','LEGACY_TOKENS',FALSE);
8061: p_usec_plus_hr_rec.status := 'E';
8062: END IF;
8063:
8064: IF p_usec_plus_hr_rec.unit_class IS NULL OR p_usec_plus_hr_rec.unit_class = FND_API.G_MISS_CHAR THEN
8061: p_usec_plus_hr_rec.status := 'E';
8062: END IF;
8063:
8064: IF p_usec_plus_hr_rec.unit_class IS NULL OR p_usec_plus_hr_rec.unit_class = FND_API.G_MISS_CHAR THEN
8065: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','UNIT_CLASS','LEGACY_TOKENS',FALSE);
8066: p_usec_plus_hr_rec.status := 'E';
8067: END IF;
8068:
8069: IF p_usec_plus_hr_rec.activity_type_code IS NULL OR p_usec_plus_hr_rec.activity_type_code = FND_API.G_MISS_CHAR THEN
8066: p_usec_plus_hr_rec.status := 'E';
8067: END IF;
8068:
8069: IF p_usec_plus_hr_rec.activity_type_code IS NULL OR p_usec_plus_hr_rec.activity_type_code = FND_API.G_MISS_CHAR THEN
8070: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','ACTIVITY_TYPE_CODE','LEGACY_TOKENS',FALSE);
8071: p_usec_plus_hr_rec.status := 'E';
8072: END IF;
8073:
8074: IF p_usec_plus_hr_rec.activity_location_cd IS NULL OR p_usec_plus_hr_rec.activity_location_cd = FND_API.G_MISS_CHAR THEN
8071: p_usec_plus_hr_rec.status := 'E';
8072: END IF;
8073:
8074: IF p_usec_plus_hr_rec.activity_location_cd IS NULL OR p_usec_plus_hr_rec.activity_location_cd = FND_API.G_MISS_CHAR THEN
8075: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','ACTIVITY_LOCATION_CD','LEGACY_TOKENS',FALSE);
8076: p_usec_plus_hr_rec.status := 'E';
8077: END IF;
8078:
8079: IF p_usec_plus_hr_rec.building_cd IS NULL OR p_usec_plus_hr_rec.building_cd = FND_API.G_MISS_CHAR THEN
8076: p_usec_plus_hr_rec.status := 'E';
8077: END IF;
8078:
8079: IF p_usec_plus_hr_rec.building_cd IS NULL OR p_usec_plus_hr_rec.building_cd = FND_API.G_MISS_CHAR THEN
8080: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','BUILDING_CODE','LEGACY_TOKENS',FALSE);
8081: p_usec_plus_hr_rec.status := 'E';
8082: END IF;
8083:
8084: IF p_usec_plus_hr_rec.room_cd IS NULL OR p_usec_plus_hr_rec.room_cd = FND_API.G_MISS_CHAR THEN
8081: p_usec_plus_hr_rec.status := 'E';
8082: END IF;
8083:
8084: IF p_usec_plus_hr_rec.room_cd IS NULL OR p_usec_plus_hr_rec.room_cd = FND_API.G_MISS_CHAR THEN
8085: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','ROOM_CODE','LEGACY_TOKENS',FALSE);
8086: p_usec_plus_hr_rec.status := 'E';
8087: END IF;
8088:
8089: IF p_usec_plus_hr_rec.number_of_students IS NULL OR p_usec_plus_hr_rec.number_of_students = FND_API.G_MISS_NUM THEN
8086: p_usec_plus_hr_rec.status := 'E';
8087: END IF;
8088:
8089: IF p_usec_plus_hr_rec.number_of_students IS NULL OR p_usec_plus_hr_rec.number_of_students = FND_API.G_MISS_NUM THEN
8090: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','NUMBER_OF_STUDENTS','LEGACY_TOKENS',FALSE);
8091: p_usec_plus_hr_rec.status := 'E';
8092: END IF;
8093:
8094: IF p_usec_plus_hr_rec.hours_per_student IS NULL OR p_usec_plus_hr_rec.hours_per_student = FND_API.G_MISS_NUM THEN
8091: p_usec_plus_hr_rec.status := 'E';
8092: END IF;
8093:
8094: IF p_usec_plus_hr_rec.hours_per_student IS NULL OR p_usec_plus_hr_rec.hours_per_student = FND_API.G_MISS_NUM THEN
8095: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','HOURS_PER_STUDENT','LEGACY_TOKENS',FALSE);
8096: p_usec_plus_hr_rec.status := 'E';
8097: END IF;
8098:
8099: IF p_usec_plus_hr_rec.hours_per_faculty IS NULL OR p_usec_plus_hr_rec.hours_per_faculty = FND_API.G_MISS_NUM THEN
8096: p_usec_plus_hr_rec.status := 'E';
8097: END IF;
8098:
8099: IF p_usec_plus_hr_rec.hours_per_faculty IS NULL OR p_usec_plus_hr_rec.hours_per_faculty = FND_API.G_MISS_NUM THEN
8100: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','HOURS_PER_FACULTY','LEGACY_TOKENS',FALSE);
8101: p_usec_plus_hr_rec.status := 'E';
8102: END IF;
8103:
8104:
8132:
8133: -- Deriving the Calendar Type and Calendar Sequence Number
8134: igs_ge_gen_003.get_calendar_instance(p_usec_plus_hr_rec.teach_cal_alternate_code,'''TEACHING''', l_c_cal_type, l_n_seq_num, l_d_start, l_d_end, l_c_ret_status);
8135: IF l_c_ret_status <> 'SINGLE' THEN
8136: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'TEACH_CAL_ALTERNATE_CD','LEGACY_TOKENS', FALSE);
8137: p_usec_plus_hr_rec.status := 'E';
8138: END IF;
8139:
8140: -- Deriving the Unit Offering Option Identifier
8138: END IF;
8139:
8140: -- Deriving the Unit Offering Option Identifier
8141: l_c_ret_status := NULL;
8142: igs_ps_validate_lgcy_pkg.get_uoo_id(p_usec_plus_hr_rec.unit_cd, p_usec_plus_hr_rec.version_number, l_c_cal_type, l_n_seq_num, p_usec_plus_hr_rec.location_cd, p_usec_plus_hr_rec.unit_class, l_n_uoo_id, l_c_ret_status);
8143: IF l_c_ret_status IS NOT NULL THEN
8144: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS','UNIT_SECTION','LEGACY_TOKENS', FALSE);
8145: p_usec_plus_hr_rec.status := 'E';
8146: END IF;
8140: -- Deriving the Unit Offering Option Identifier
8141: l_c_ret_status := NULL;
8142: igs_ps_validate_lgcy_pkg.get_uoo_id(p_usec_plus_hr_rec.unit_cd, p_usec_plus_hr_rec.version_number, l_c_cal_type, l_n_seq_num, p_usec_plus_hr_rec.location_cd, p_usec_plus_hr_rec.unit_class, l_n_uoo_id, l_c_ret_status);
8143: IF l_c_ret_status IS NOT NULL THEN
8144: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS','UNIT_SECTION','LEGACY_TOKENS', FALSE);
8145: p_usec_plus_hr_rec.status := 'E';
8146: END IF;
8147:
8148: --Derive the activity id
8153: --Derive the building code
8154: OPEN cur_building(p_usec_plus_hr_rec.activity_location_cd,p_usec_plus_hr_rec.building_cd);
8155: FETCH cur_building INTO l_n_building_id;
8156: IF cur_building%NOTFOUND THEN
8157: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV','BUILDING_CODE' ,'LEGACY_TOKENS', FALSE);
8158: p_usec_plus_hr_rec.status := 'E';
8159: END IF;
8160: CLOSE cur_building;
8161:
8162: --Derive the room code
8163: OPEN cur_room(l_n_building_id,p_usec_plus_hr_rec.room_cd);
8164: FETCH cur_room INTO l_n_room_id;
8165: IF cur_room%NOTFOUND THEN
8166: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV','ROOM_CODE' ,'LEGACY_TOKENS', FALSE);
8167: p_usec_plus_hr_rec.status := 'E';
8168: END IF;
8169: CLOSE cur_room;
8170:
8169: CLOSE cur_room;
8170:
8171: -- Derive the Instructor identifier
8172: IF p_usec_plus_hr_rec.instructor_number IS NOT NULL AND p_usec_plus_hr_rec.instructor_number <> FND_API.G_MISS_CHAR THEN
8173: igs_ps_validate_lgcy_pkg.get_party_id(p_usec_plus_hr_rec.instructor_number, l_n_ins_id);
8174: IF l_n_ins_id IS NULL THEN
8175: fnd_message.set_name('IGS','IGS_PS_INS_PERSON_NUMBER');
8176: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', fnd_message.get,NULL, FALSE);
8177: p_usec_plus_hr_rec.status := 'E';
8172: IF p_usec_plus_hr_rec.instructor_number IS NOT NULL AND p_usec_plus_hr_rec.instructor_number <> FND_API.G_MISS_CHAR THEN
8173: igs_ps_validate_lgcy_pkg.get_party_id(p_usec_plus_hr_rec.instructor_number, l_n_ins_id);
8174: IF l_n_ins_id IS NULL THEN
8175: fnd_message.set_name('IGS','IGS_PS_INS_PERSON_NUMBER');
8176: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', fnd_message.get,NULL, FALSE);
8177: p_usec_plus_hr_rec.status := 'E';
8178: END IF;
8179: END IF;
8180:
8191: x_activity_type_id => l_n_activity_id,
8192: x_location_cd => p_usec_plus_hr_rec.activity_location_cd,
8193: x_building_id => l_n_building_id,
8194: x_room_id => l_n_room_id ) THEN
8195: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_EXISTS', 'PLUS_HOUR', 'LEGACY_TOKENS', FALSE);
8196: p_usec_plus_hr_rec.status := 'W';
8197: RETURN;
8198: END IF;
8199: END IF;
8203: BEGIN
8204: igs_ps_us_unsched_cl_pkg.check_constraints('NUMBER_OF_STUDENTS', p_usec_plus_hr_rec.number_of_students);
8205: EXCEPTION
8206: WHEN OTHERS THEN
8207: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_9999999999','NUMBER_OF_STUDENTS','LEGACY_TOKENS',TRUE);
8208: p_usec_plus_hr_rec.status :='E';
8209: END;
8210:
8211: BEGIN
8211: BEGIN
8212: igs_ps_us_unsched_cl_pkg.check_constraints('HOURS_PER_STUDENT', p_usec_plus_hr_rec.hours_per_student);
8213: EXCEPTION
8214: WHEN OTHERS THEN
8215: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999D99','HOURS_PER_STUDENT','LEGACY_TOKENS',TRUE);
8216: p_usec_plus_hr_rec.status :='E';
8217: END;
8218:
8219: BEGIN
8219: BEGIN
8220: igs_ps_us_unsched_cl_pkg.check_constraints('HOURS_PER_FACULTY', p_usec_plus_hr_rec.hours_per_faculty);
8221: EXCEPTION
8222: WHEN OTHERS THEN
8223: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_999D99','HOURS_PER_FACULTY','LEGACY_TOKENS',TRUE);
8224: p_usec_plus_hr_rec.status :='E';
8225: END;
8226:
8227: -- Foreign Key Checking
8226:
8227: -- Foreign Key Checking
8228: --Check for the existence of the unit section
8229: IF NOT igs_ps_unit_ofr_opt_pkg.get_uk_for_validation (l_n_uoo_id ) THEN
8230: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_SECTION', 'LEGACY_TOKENS', FALSE);
8231: p_usec_plus_hr_rec.status := 'E';
8232: END IF;
8233:
8234: -- Check for existence of Activity Code
8232: END IF;
8233:
8234: -- Check for existence of Activity Code
8235: IF NOT igs_ps_usec_act_type_pkg.get_pk_for_validation ( l_n_activity_id ) THEN
8236: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'ACTIVITY_TYPE_CODE', 'LEGACY_TOKENS', FALSE);
8237: p_usec_plus_hr_rec.status := 'E';
8238: END IF;
8239:
8240: -- Check for existence of Activity Location Code
8238: END IF;
8239:
8240: -- Check for existence of Activity Location Code
8241: IF NOT igs_ad_location_pkg.get_pk_for_validation ( p_usec_plus_hr_rec.activity_location_cd ) THEN
8242: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'ACTIVITY_LOCATION_CD', 'LEGACY_TOKENS', FALSE);
8243: p_usec_plus_hr_rec.status := 'E';
8244: END IF;
8245:
8246: -- Check for existence of Building Code Code
8244: END IF;
8245:
8246: -- Check for existence of Building Code Code
8247: IF NOT igs_ad_building_pkg.get_pk_for_validation ( l_n_building_id ) THEN
8248: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'BUILDING_CODE', 'LEGACY_TOKENS', FALSE);
8249: p_usec_plus_hr_rec.status := 'E';
8250: END IF;
8251:
8252: -- Check for existence of Room Code Code
8250: END IF;
8251:
8252: -- Check for existence of Room Code Code
8253: IF NOT igs_ad_room_pkg.get_pk_for_validation ( l_n_room_id ) THEN
8254: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'ROOM_CODE', 'LEGACY_TOKENS', FALSE);
8255: p_usec_plus_hr_rec.status := 'E';
8256: END IF;
8257:
8258: -- Check for existence of instructor number
8258: -- Check for existence of instructor number
8259: IF l_n_ins_id IS NOT NULL THEN
8260: IF NOT igs_pe_person_pkg.get_pk_for_validation(l_n_ins_id ) THEN
8261: fnd_message.set_name('IGS','IGS_PS_INS_PERSON_NUMBER');
8262: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', fnd_message.get, NULL, FALSE);
8263: p_usec_plus_hr_rec.status := 'E';
8264: END IF;
8265: END IF;
8266:
8415:
8416: END IF;
8417:
8418: IF p_usec_plus_hr_tbl(I).status = 'S' AND p_calling_context = 'S' THEN
8419: IF igs_ps_validate_lgcy_pkg.check_import_allowed( l_n_uoo_id,NULL) = FALSE THEN
8420: fnd_message.set_name ( 'IGS', 'IGS_PS_REC_ABORTED_CANCELLED' );
8421: fnd_msg_pub.add;
8422: p_usec_plus_hr_tbl(I).status := 'A';
8423: END IF;
8615: p_usec_rule_rec.status:='S';
8616:
8617:
8618: IF p_usec_rule_rec.unit_cd IS NULL OR p_usec_rule_rec.unit_cd = FND_API.G_MISS_CHAR THEN
8619: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','UNIT_CD','LEGACY_TOKENS',FALSE);
8620: p_usec_rule_rec.status := 'E';
8621: END IF;
8622:
8623: IF p_usec_rule_rec.version_number IS NULL OR p_usec_rule_rec.version_number = FND_API.G_MISS_NUM THEN
8620: p_usec_rule_rec.status := 'E';
8621: END IF;
8622:
8623: IF p_usec_rule_rec.version_number IS NULL OR p_usec_rule_rec.version_number = FND_API.G_MISS_NUM THEN
8624: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','UNIT_VER_NUM','LEGACY_TOKENS',FALSE);
8625: p_usec_rule_rec.status := 'E';
8626: END IF;
8627:
8628: IF p_usec_rule_rec.teach_cal_alternate_code IS NULL OR p_usec_rule_rec.teach_cal_alternate_code = FND_API.G_MISS_CHAR THEN
8625: p_usec_rule_rec.status := 'E';
8626: END IF;
8627:
8628: IF p_usec_rule_rec.teach_cal_alternate_code IS NULL OR p_usec_rule_rec.teach_cal_alternate_code = FND_API.G_MISS_CHAR THEN
8629: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','TEACH_CAL_ALTERNATE_CD','LEGACY_TOKENS',FALSE);
8630: p_usec_rule_rec.status := 'E';
8631: END IF;
8632:
8633: IF p_usec_rule_rec.location_cd IS NULL OR p_usec_rule_rec.location_cd = FND_API.G_MISS_CHAR THEN
8630: p_usec_rule_rec.status := 'E';
8631: END IF;
8632:
8633: IF p_usec_rule_rec.location_cd IS NULL OR p_usec_rule_rec.location_cd = FND_API.G_MISS_CHAR THEN
8634: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD','LEGACY_TOKENS',FALSE);
8635: p_usec_rule_rec.status := 'E';
8636: END IF;
8637:
8638: IF p_usec_rule_rec.unit_class IS NULL OR p_usec_rule_rec.unit_class = FND_API.G_MISS_CHAR THEN
8635: p_usec_rule_rec.status := 'E';
8636: END IF;
8637:
8638: IF p_usec_rule_rec.unit_class IS NULL OR p_usec_rule_rec.unit_class = FND_API.G_MISS_CHAR THEN
8639: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','UNIT_CLASS','LEGACY_TOKENS',FALSE);
8640: p_usec_rule_rec.status := 'E';
8641: END IF;
8642:
8643: IF p_usec_rule_rec.s_rule_call_cd IS NULL OR p_usec_rule_rec.s_rule_call_cd = FND_API.G_MISS_CHAR THEN
8640: p_usec_rule_rec.status := 'E';
8641: END IF;
8642:
8643: IF p_usec_rule_rec.s_rule_call_cd IS NULL OR p_usec_rule_rec.s_rule_call_cd = FND_API.G_MISS_CHAR THEN
8644: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','S_RULE_CALL_CD','LEGACY_TOKENS',FALSE);
8645: p_usec_rule_rec.status := 'E';
8646: END IF;
8647:
8648: IF p_usec_rule_rec.rule_text IS NULL OR p_usec_rule_rec.rule_text = FND_API.G_MISS_CHAR THEN
8645: p_usec_rule_rec.status := 'E';
8646: END IF;
8647:
8648: IF p_usec_rule_rec.rule_text IS NULL OR p_usec_rule_rec.rule_text = FND_API.G_MISS_CHAR THEN
8649: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','RULE_TEXT','LEGACY_TOKENS',FALSE);
8650: p_usec_rule_rec.status := 'E';
8651: END IF;
8652:
8653: END validate_parameters;
8664:
8665: -- Deriving the Calendar Type and Calendar Sequence Number
8666: igs_ge_gen_003.get_calendar_instance(p_usec_rule_rec.teach_cal_alternate_code,'''TEACHING''', l_c_cal_type, l_n_seq_num, l_d_start, l_d_end, l_c_ret_status);
8667: IF l_c_ret_status <> 'SINGLE' THEN
8668: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'TEACH_CAL_ALTERNATE_CD','LEGACY_TOKENS', FALSE);
8669: p_usec_rule_rec.status := 'E';
8670: END IF;
8671:
8672: -- Deriving the Unit Offering Option Identifier
8670: END IF;
8671:
8672: -- Deriving the Unit Offering Option Identifier
8673: l_c_ret_status := NULL;
8674: igs_ps_validate_lgcy_pkg.get_uoo_id(p_usec_rule_rec.unit_cd, p_usec_rule_rec.version_number, l_c_cal_type, l_n_seq_num, p_usec_rule_rec.location_cd, p_usec_rule_rec.unit_class, l_n_uoo_id, l_c_ret_status);
8675: IF l_c_ret_status IS NOT NULL THEN
8676: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS','UNIT_SECTION','LEGACY_TOKENS', FALSE);
8677: p_usec_rule_rec.status := 'E';
8678: END IF;
8672: -- Deriving the Unit Offering Option Identifier
8673: l_c_ret_status := NULL;
8674: igs_ps_validate_lgcy_pkg.get_uoo_id(p_usec_rule_rec.unit_cd, p_usec_rule_rec.version_number, l_c_cal_type, l_n_seq_num, p_usec_rule_rec.location_cd, p_usec_rule_rec.unit_class, l_n_uoo_id, l_c_ret_status);
8675: IF l_c_ret_status IS NOT NULL THEN
8676: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS','UNIT_SECTION','LEGACY_TOKENS', FALSE);
8677: p_usec_rule_rec.status := 'E';
8678: END IF;
8679:
8680:
8687: IF p_insert_update = 'I' THEN
8688: -- Unique Key Validation
8689: IF igs_ps_usec_ru_pkg.get_uk_for_validation ( x_uoo_id => l_n_uoo_id,
8690: x_s_rule_call_cd => p_usec_rule_rec.s_rule_call_cd ) THEN
8691: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_EXISTS', 'RULE', 'LEGACY_TOKENS', FALSE);
8692: p_usec_rule_rec.status := 'W';
8693: RETURN;
8694: END IF;
8695: END IF;
8696:
8697: -- Foreign Key Checking
8698: --Check for the existence of the unit section
8699: IF NOT igs_ps_unit_ofr_opt_pkg.get_uk_for_validation (l_n_uoo_id ) THEN
8700: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_SECTION', 'LEGACY_TOKENS', FALSE);
8701: p_usec_rule_rec.status := 'E';
8702: END IF;
8703:
8704: IF NOT igs_ru_call_pkg.get_pk_for_validation (p_usec_rule_rec.s_rule_call_cd ) THEN
8701: p_usec_rule_rec.status := 'E';
8702: END IF;
8703:
8704: IF NOT igs_ru_call_pkg.get_pk_for_validation (p_usec_rule_rec.s_rule_call_cd ) THEN
8705: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'S_RULE_CALL_CD', 'LEGACY_TOKENS', FALSE);
8706: p_usec_rule_rec.status := 'E';
8707: END IF;
8708:
8709:
8757: --Valid values of S_RULE_CALL_CD are 'USECCOREQ' and 'USECPREREQ'
8758: OPEN cur_rule_check;
8759: FETCH cur_rule_check INTO l_n_select_group,l_c_rule_desc;
8760: IF cur_rule_check%NOTFOUND THEN
8761: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'S_RULE_CALL_CD','LEGACY_TOKENS', FALSE);
8762: p_usec_rule_rec.status := 'E';
8763: END IF;
8764: CLOSE cur_rule_check;
8765:
8826:
8827: END IF;
8828:
8829: IF p_usec_rule_tbl(I).status = 'S' AND p_calling_context = 'S' THEN
8830: IF igs_ps_validate_lgcy_pkg.check_import_allowed( l_n_uoo_id,NULL) = FALSE THEN
8831: fnd_message.set_name ( 'IGS', 'IGS_PS_REC_ABORTED_CANCELLED' );
8832: fnd_msg_pub.add;
8833: p_usec_rule_tbl(I).status := 'A';
8834: END IF;
9002: p_usec_enr_dead_rec.status:='S';
9003:
9004:
9005: IF p_usec_enr_dead_rec.unit_cd IS NULL OR p_usec_enr_dead_rec.unit_cd = FND_API.G_MISS_CHAR THEN
9006: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','UNIT_CD','LEGACY_TOKENS',FALSE);
9007: p_usec_enr_dead_rec.status := 'E';
9008: END IF;
9009:
9010: IF p_usec_enr_dead_rec.version_number IS NULL OR p_usec_enr_dead_rec.version_number = FND_API.G_MISS_NUM THEN
9007: p_usec_enr_dead_rec.status := 'E';
9008: END IF;
9009:
9010: IF p_usec_enr_dead_rec.version_number IS NULL OR p_usec_enr_dead_rec.version_number = FND_API.G_MISS_NUM THEN
9011: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','UNIT_VER_NUM','LEGACY_TOKENS',FALSE);
9012: p_usec_enr_dead_rec.status := 'E';
9013: END IF;
9014:
9015: IF p_usec_enr_dead_rec.teach_cal_alternate_code IS NULL OR p_usec_enr_dead_rec.teach_cal_alternate_code = FND_API.G_MISS_CHAR THEN
9012: p_usec_enr_dead_rec.status := 'E';
9013: END IF;
9014:
9015: IF p_usec_enr_dead_rec.teach_cal_alternate_code IS NULL OR p_usec_enr_dead_rec.teach_cal_alternate_code = FND_API.G_MISS_CHAR THEN
9016: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','TEACH_CAL_ALTERNATE_CD','LEGACY_TOKENS',FALSE);
9017: p_usec_enr_dead_rec.status := 'E';
9018: END IF;
9019:
9020: IF p_usec_enr_dead_rec.location_cd IS NULL OR p_usec_enr_dead_rec.location_cd = FND_API.G_MISS_CHAR THEN
9017: p_usec_enr_dead_rec.status := 'E';
9018: END IF;
9019:
9020: IF p_usec_enr_dead_rec.location_cd IS NULL OR p_usec_enr_dead_rec.location_cd = FND_API.G_MISS_CHAR THEN
9021: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD','LEGACY_TOKENS',FALSE);
9022: p_usec_enr_dead_rec.status := 'E';
9023: END IF;
9024:
9025: IF p_usec_enr_dead_rec.unit_class IS NULL OR p_usec_enr_dead_rec.unit_class = FND_API.G_MISS_CHAR THEN
9022: p_usec_enr_dead_rec.status := 'E';
9023: END IF;
9024:
9025: IF p_usec_enr_dead_rec.unit_class IS NULL OR p_usec_enr_dead_rec.unit_class = FND_API.G_MISS_CHAR THEN
9026: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','UNIT_CLASS','LEGACY_TOKENS',FALSE);
9027: p_usec_enr_dead_rec.status := 'E';
9028: END IF;
9029:
9030: IF p_usec_enr_dead_rec.function_name IS NULL OR p_usec_enr_dead_rec.function_name = FND_API.G_MISS_CHAR THEN
9027: p_usec_enr_dead_rec.status := 'E';
9028: END IF;
9029:
9030: IF p_usec_enr_dead_rec.function_name IS NULL OR p_usec_enr_dead_rec.function_name = FND_API.G_MISS_CHAR THEN
9031: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','FUNCTION_NAME','LEGACY_TOKENS',FALSE);
9032: p_usec_enr_dead_rec.status := 'E';
9033: END IF;
9034:
9035: -- Function name should be one among 'GRADING_SCHEMA' ,'RECORD_CUTOFF' ,'VARIATION_CUTOFF'
9033: END IF;
9034:
9035: -- Function name should be one among 'GRADING_SCHEMA' ,'RECORD_CUTOFF' ,'VARIATION_CUTOFF'
9036: IF p_usec_enr_dead_rec.function_name NOT IN ('GRADING_SCHEMA' ,'RECORD_CUTOFF' ,'VARIATION_CUTOFF') THEN
9037: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'FUNCTION_NAME','LEGACY_TOKENS', FALSE);
9038: p_usec_enr_dead_rec.status := 'E';
9039: END IF;
9040:
9041: END validate_parameters;
9053:
9054: -- Deriving the Calendar Type and Calendar Sequence Number
9055: igs_ge_gen_003.get_calendar_instance(p_usec_enr_dead_rec.teach_cal_alternate_code,'''TEACHING''', l_c_cal_type, l_n_seq_num, l_d_start, l_d_end, l_c_ret_status);
9056: IF l_c_ret_status <> 'SINGLE' THEN
9057: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'TEACH_CAL_ALTERNATE_CD','LEGACY_TOKENS', FALSE);
9058: p_usec_enr_dead_rec.status := 'E';
9059: END IF;
9060:
9061: -- Deriving the Unit Offering Option Identifier
9059: END IF;
9060:
9061: -- Deriving the Unit Offering Option Identifier
9062: l_c_ret_status := NULL;
9063: igs_ps_validate_lgcy_pkg.get_uoo_id(p_usec_enr_dead_rec.unit_cd, p_usec_enr_dead_rec.version_number, l_c_cal_type, l_n_seq_num, p_usec_enr_dead_rec.location_cd, p_usec_enr_dead_rec.unit_class, l_n_uoo_id, l_c_ret_status);
9064: IF l_c_ret_status IS NOT NULL THEN
9065: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS','UNIT_SECTION','LEGACY_TOKENS', FALSE);
9066: p_usec_enr_dead_rec.status := 'E';
9067: END IF;
9061: -- Deriving the Unit Offering Option Identifier
9062: l_c_ret_status := NULL;
9063: igs_ps_validate_lgcy_pkg.get_uoo_id(p_usec_enr_dead_rec.unit_cd, p_usec_enr_dead_rec.version_number, l_c_cal_type, l_n_seq_num, p_usec_enr_dead_rec.location_cd, p_usec_enr_dead_rec.unit_class, l_n_uoo_id, l_c_ret_status);
9064: IF l_c_ret_status IS NOT NULL THEN
9065: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS','UNIT_SECTION','LEGACY_TOKENS', FALSE);
9066: p_usec_enr_dead_rec.status := 'E';
9067: END IF;
9068:
9069: END validate_derivation;
9075: IF p_insert_update = 'I' THEN
9076: -- Unique Key Validation
9077: IF igs_en_nstd_usec_dl_pkg.get_uk_for_validation ( x_uoo_id => l_n_uoo_id,
9078: x_function_name => p_usec_enr_dead_rec.function_name ) THEN
9079: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_EXISTS', 'ENR_DEADLINE', 'LEGACY_TOKENS', FALSE);
9080: p_usec_enr_dead_rec.status := 'W';
9081: RETURN;
9082: END IF;
9083: END IF;
9084:
9085: -- Foreign Key Checking
9086: --Check for the existence of the unit section
9087: IF NOT igs_ps_unit_ofr_opt_pkg.get_uk_for_validation (l_n_uoo_id ) THEN
9088: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_SECTION', 'LEGACY_TOKENS', FALSE);
9089: p_usec_enr_dead_rec.status := 'E';
9090: END IF;
9091:
9092:
9091:
9092:
9093: IF l_n_non_std_usec_dls_id IS NOT NULL THEN
9094: IF NOT igs_en_nsu_dlstp_pkg.get_pk_for_validation ( l_n_non_std_usec_dls_id) THEN
9095: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'NON_STD_USEC_DLS_ID', 'LEGACY_TOKENS', FALSE);
9096: p_usec_enr_dead_rec.status := 'E';
9097: END IF;
9098: END IF;
9099:
9184: l_d_enr_dl_date := p_usec_enr_dead_rec.enr_dl_date;
9185: END IF;
9186: ELSE
9187: IF p_usec_enr_dead_rec.enr_dl_date IS NULL THEN
9188: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','ENR_DEAD_DATE','LEGACY_TOKENS',FALSE);
9189: p_usec_enr_dead_rec.status := 'E';
9190: ELSE
9191: l_d_enr_dl_date := p_usec_enr_dead_rec.enr_dl_date;
9192: END IF;
9284: OPEN cur_check_ns_usec(l_n_uoo_id);
9285: FETCH cur_check_ns_usec INTO l_c_var;
9286: IF cur_check_ns_usec%NOTFOUND THEN
9287: fnd_message.set_name ( 'IGS', 'IGS_PS_NON_STD_USEC_NOT_IMP' );
9288: fnd_message.set_token('RECORD',igs_ps_validate_lgcy_pkg.get_lkup_meaning('ENR_DEADLINE','LEGACY_TOKENS'));
9289: fnd_msg_pub.add;
9290: /*igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_NON_STD_USEC_NOT_IMP','ENR_DEADLINE','LEGACY_TOKENS',FALSE);*/
9291: p_usec_enr_dead_rec.status := 'E';
9292: END IF;
9286: IF cur_check_ns_usec%NOTFOUND THEN
9287: fnd_message.set_name ( 'IGS', 'IGS_PS_NON_STD_USEC_NOT_IMP' );
9288: fnd_message.set_token('RECORD',igs_ps_validate_lgcy_pkg.get_lkup_meaning('ENR_DEADLINE','LEGACY_TOKENS'));
9289: fnd_msg_pub.add;
9290: /*igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_NON_STD_USEC_NOT_IMP','ENR_DEADLINE','LEGACY_TOKENS',FALSE);*/
9291: p_usec_enr_dead_rec.status := 'E';
9292: END IF;
9293: CLOSE cur_check_ns_usec;
9294:
9361:
9362: END IF;
9363:
9364: IF p_usec_enr_dead_tbl(I).status = 'S' AND p_calling_context = 'S' THEN
9365: IF igs_ps_validate_lgcy_pkg.check_import_allowed( l_n_uoo_id,NULL) = FALSE THEN
9366: fnd_message.set_name ( 'IGS', 'IGS_PS_REC_ABORTED_CANCELLED' );
9367: fnd_msg_pub.add;
9368: p_usec_enr_dead_tbl(I).status := 'A';
9369: END IF;
9570: p_usec_enr_dis_rec.status:='S';
9571:
9572:
9573: IF p_usec_enr_dis_rec.unit_cd IS NULL OR p_usec_enr_dis_rec.unit_cd = FND_API.G_MISS_CHAR THEN
9574: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','UNIT_CD','LEGACY_TOKENS',FALSE);
9575: p_usec_enr_dis_rec.status := 'E';
9576: END IF;
9577:
9578: IF p_usec_enr_dis_rec.version_number IS NULL OR p_usec_enr_dis_rec.version_number = FND_API.G_MISS_NUM THEN
9575: p_usec_enr_dis_rec.status := 'E';
9576: END IF;
9577:
9578: IF p_usec_enr_dis_rec.version_number IS NULL OR p_usec_enr_dis_rec.version_number = FND_API.G_MISS_NUM THEN
9579: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','UNIT_VER_NUM','LEGACY_TOKENS',FALSE);
9580: p_usec_enr_dis_rec.status := 'E';
9581: END IF;
9582:
9583: IF p_usec_enr_dis_rec.teach_cal_alternate_code IS NULL OR p_usec_enr_dis_rec.teach_cal_alternate_code = FND_API.G_MISS_CHAR THEN
9580: p_usec_enr_dis_rec.status := 'E';
9581: END IF;
9582:
9583: IF p_usec_enr_dis_rec.teach_cal_alternate_code IS NULL OR p_usec_enr_dis_rec.teach_cal_alternate_code = FND_API.G_MISS_CHAR THEN
9584: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','TEACH_CAL_ALTERNATE_CD','LEGACY_TOKENS',FALSE);
9585: p_usec_enr_dis_rec.status := 'E';
9586: END IF;
9587:
9588: IF p_usec_enr_dis_rec.location_cd IS NULL OR p_usec_enr_dis_rec.location_cd = FND_API.G_MISS_CHAR THEN
9585: p_usec_enr_dis_rec.status := 'E';
9586: END IF;
9587:
9588: IF p_usec_enr_dis_rec.location_cd IS NULL OR p_usec_enr_dis_rec.location_cd = FND_API.G_MISS_CHAR THEN
9589: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD','LEGACY_TOKENS',FALSE);
9590: p_usec_enr_dis_rec.status := 'E';
9591: END IF;
9592:
9593: IF p_usec_enr_dis_rec.unit_class IS NULL OR p_usec_enr_dis_rec.unit_class = FND_API.G_MISS_CHAR THEN
9590: p_usec_enr_dis_rec.status := 'E';
9591: END IF;
9592:
9593: IF p_usec_enr_dis_rec.unit_class IS NULL OR p_usec_enr_dis_rec.unit_class = FND_API.G_MISS_CHAR THEN
9594: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','UNIT_CLASS','LEGACY_TOKENS',FALSE);
9595: p_usec_enr_dis_rec.status := 'E';
9596: END IF;
9597:
9598: IF p_usec_enr_dis_rec.administrative_unit_status IS NULL OR p_usec_enr_dis_rec.administrative_unit_status = FND_API.G_MISS_CHAR THEN
9595: p_usec_enr_dis_rec.status := 'E';
9596: END IF;
9597:
9598: IF p_usec_enr_dis_rec.administrative_unit_status IS NULL OR p_usec_enr_dis_rec.administrative_unit_status = FND_API.G_MISS_CHAR THEN
9599: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','ADMINISTRATIVE_UNIT_STATUS','LEGACY_TOKENS',FALSE);
9600: p_usec_enr_dis_rec.status := 'E';
9601: END IF;
9602:
9603:
9616:
9617: -- Deriving the Calendar Type and Calendar Sequence Number
9618: igs_ge_gen_003.get_calendar_instance(p_usec_enr_dis_rec.teach_cal_alternate_code,'''TEACHING''', l_c_cal_type, l_n_seq_num, l_d_start, l_d_end, l_c_ret_status);
9619: IF l_c_ret_status <> 'SINGLE' THEN
9620: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'TEACH_CAL_ALTERNATE_CD','LEGACY_TOKENS', FALSE);
9621: p_usec_enr_dis_rec.status := 'E';
9622: END IF;
9623:
9624: -- Deriving the Unit Offering Option Identifier
9622: END IF;
9623:
9624: -- Deriving the Unit Offering Option Identifier
9625: l_c_ret_status := NULL;
9626: igs_ps_validate_lgcy_pkg.get_uoo_id(p_usec_enr_dis_rec.unit_cd, p_usec_enr_dis_rec.version_number, l_c_cal_type, l_n_seq_num, p_usec_enr_dis_rec.location_cd, p_usec_enr_dis_rec.unit_class, l_n_uoo_id, l_c_ret_status);
9627: IF l_c_ret_status IS NOT NULL THEN
9628: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS','UNIT_SECTION','LEGACY_TOKENS', FALSE);
9629: p_usec_enr_dis_rec.status := 'E';
9630: END IF;
9624: -- Deriving the Unit Offering Option Identifier
9625: l_c_ret_status := NULL;
9626: igs_ps_validate_lgcy_pkg.get_uoo_id(p_usec_enr_dis_rec.unit_cd, p_usec_enr_dis_rec.version_number, l_c_cal_type, l_n_seq_num, p_usec_enr_dis_rec.location_cd, p_usec_enr_dis_rec.unit_class, l_n_uoo_id, l_c_ret_status);
9627: IF l_c_ret_status IS NOT NULL THEN
9628: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS','UNIT_SECTION','LEGACY_TOKENS', FALSE);
9629: p_usec_enr_dis_rec.status := 'E';
9630: END IF;
9631:
9632: END validate_derivation;
9645: IF p_insert_update = 'I' THEN
9646: -- Unique Key Validation
9647: IF igs_en_usec_disc_dl_pkg.get_uk_for_validation ( x_uoo_id => l_n_uoo_id,
9648: x_administrative_unit_status => p_usec_enr_dis_rec.administrative_unit_status ) THEN
9649: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_EXISTS', 'ENR_DISCONTINUATION', 'LEGACY_TOKENS', FALSE);
9650: p_usec_enr_dis_rec.status := 'W';
9651: RETURN;
9652: END IF;
9653:
9654: --Administrative unit status validation (Fk)
9655: OPEN cur_amd_unit_stat(p_usec_enr_dis_rec.administrative_unit_status);
9656: FETCH cur_amd_unit_stat INTO l_c_var;
9657: IF cur_amd_unit_stat%NOTFOUND THEN
9658: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'ADMINISTRATIVE_UNIT_STATUS', 'LEGACY_TOKENS', FALSE);
9659: p_usec_enr_dis_rec.status := 'E';
9660: END IF;
9661:
9662: END IF;
9663:
9664: -- Foreign Key Checking
9665: --Check for the existence of the unit section
9666: IF NOT igs_ps_unit_ofr_opt_pkg.get_uk_for_validation (l_n_uoo_id ) THEN
9667: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_SECTION', 'LEGACY_TOKENS', FALSE);
9668: p_usec_enr_dis_rec.status := 'E';
9669: END IF;
9670:
9671:
9670:
9671:
9672: IF l_n_non_std_disc_dl_stp_id IS NOT NULL THEN
9673: IF NOT igs_en_nsd_dlstp_pkg.get_pk_for_validation ( l_n_non_std_disc_dl_stp_id) THEN
9674: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'NON_STD_DISC_DL_STP_ID', 'LEGACY_TOKENS', FALSE);
9675: p_usec_enr_dis_rec.status := 'E';
9676: END IF;
9677: END IF;
9678:
9765: l_d_enr_dl_date := p_usec_enr_dis_rec.usec_disc_dl_date;
9766: END IF;
9767: ELSE
9768: IF p_usec_enr_dis_rec.usec_disc_dl_date IS NULL THEN
9769: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','ENR_DISC_DATE','LEGACY_TOKENS',FALSE);
9770: p_usec_enr_dis_rec.status := 'E';
9771: ELSE
9772: l_d_enr_dl_date := p_usec_enr_dis_rec.usec_disc_dl_date;
9773: END IF;
9865: OPEN cur_check_ns_usec(l_n_uoo_id);
9866: FETCH cur_check_ns_usec INTO l_c_var;
9867: IF cur_check_ns_usec%NOTFOUND THEN
9868: fnd_message.set_name ( 'IGS', 'IGS_PS_NON_STD_USEC_NOT_IMP' );
9869: fnd_message.set_token('RECORD',igs_ps_validate_lgcy_pkg.get_lkup_meaning('ENR_DISCONTINUATION','LEGACY_TOKENS'));
9870: fnd_msg_pub.add;
9871: /*igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_NON_STD_USEC_NOT_IMP','ENR_DISCONTINUATION','LEGACY_TOKENS',FALSE);*/
9872: p_usec_enr_dis_rec.status := 'E';
9873: END IF;
9867: IF cur_check_ns_usec%NOTFOUND THEN
9868: fnd_message.set_name ( 'IGS', 'IGS_PS_NON_STD_USEC_NOT_IMP' );
9869: fnd_message.set_token('RECORD',igs_ps_validate_lgcy_pkg.get_lkup_meaning('ENR_DISCONTINUATION','LEGACY_TOKENS'));
9870: fnd_msg_pub.add;
9871: /*igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_NON_STD_USEC_NOT_IMP','ENR_DISCONTINUATION','LEGACY_TOKENS',FALSE);*/
9872: p_usec_enr_dis_rec.status := 'E';
9873: END IF;
9874: CLOSE cur_check_ns_usec;
9875:
9939:
9940: END IF;
9941:
9942: IF p_usec_enr_dis_tbl(I).status = 'S' AND p_calling_context = 'S' THEN
9943: IF igs_ps_validate_lgcy_pkg.check_import_allowed( l_n_uoo_id,NULL) = FALSE THEN
9944: fnd_message.set_name ( 'IGS', 'IGS_PS_REC_ABORTED_CANCELLED' );
9945: fnd_msg_pub.add;
9946: p_usec_enr_dis_tbl(I).status := 'A';
9947: END IF;
10144: p_usec_ret_rec.status:='S';
10145:
10146:
10147: IF p_usec_ret_rec.unit_cd IS NULL OR p_usec_ret_rec.unit_cd = FND_API.G_MISS_CHAR THEN
10148: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','UNIT_CD','LEGACY_TOKENS',FALSE);
10149: p_usec_ret_rec.status := 'E';
10150: END IF;
10151:
10152: IF p_usec_ret_rec.version_number IS NULL OR p_usec_ret_rec.version_number = FND_API.G_MISS_NUM THEN
10149: p_usec_ret_rec.status := 'E';
10150: END IF;
10151:
10152: IF p_usec_ret_rec.version_number IS NULL OR p_usec_ret_rec.version_number = FND_API.G_MISS_NUM THEN
10153: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','UNIT_VER_NUM','LEGACY_TOKENS',FALSE);
10154: p_usec_ret_rec.status := 'E';
10155: END IF;
10156:
10157: IF p_usec_ret_rec.teach_cal_alternate_code IS NULL OR p_usec_ret_rec.teach_cal_alternate_code = FND_API.G_MISS_CHAR THEN
10154: p_usec_ret_rec.status := 'E';
10155: END IF;
10156:
10157: IF p_usec_ret_rec.teach_cal_alternate_code IS NULL OR p_usec_ret_rec.teach_cal_alternate_code = FND_API.G_MISS_CHAR THEN
10158: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','TEACH_CAL_ALTERNATE_CD','LEGACY_TOKENS',FALSE);
10159: p_usec_ret_rec.status := 'E';
10160: END IF;
10161:
10162: IF p_usec_ret_rec.location_cd IS NULL OR p_usec_ret_rec.location_cd = FND_API.G_MISS_CHAR THEN
10159: p_usec_ret_rec.status := 'E';
10160: END IF;
10161:
10162: IF p_usec_ret_rec.location_cd IS NULL OR p_usec_ret_rec.location_cd = FND_API.G_MISS_CHAR THEN
10163: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD','LEGACY_TOKENS',FALSE);
10164: p_usec_ret_rec.status := 'E';
10165: END IF;
10166:
10167: IF p_usec_ret_rec.unit_class IS NULL OR p_usec_ret_rec.unit_class = FND_API.G_MISS_CHAR THEN
10164: p_usec_ret_rec.status := 'E';
10165: END IF;
10166:
10167: IF p_usec_ret_rec.unit_class IS NULL OR p_usec_ret_rec.unit_class = FND_API.G_MISS_CHAR THEN
10168: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','UNIT_CLASS','LEGACY_TOKENS',FALSE);
10169: p_usec_ret_rec.status := 'E';
10170: END IF;
10171:
10172: IF p_usec_ret_rec.definition_level IS NULL OR p_usec_ret_rec.definition_level = FND_API.G_MISS_CHAR THEN
10169: p_usec_ret_rec.status := 'E';
10170: END IF;
10171:
10172: IF p_usec_ret_rec.definition_level IS NULL OR p_usec_ret_rec.definition_level = FND_API.G_MISS_CHAR THEN
10173: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','DEFINITION_LEVEL','LEGACY_TOKENS',FALSE);
10174: p_usec_ret_rec.status := 'E';
10175: END IF;
10176:
10177: IF (p_usec_ret_rec.fee_type IS NULL OR p_usec_ret_rec.fee_type = FND_API.G_MISS_CHAR) AND p_usec_ret_rec.definition_level='UNIT_SECTION_FEE_TYPE' THEN
10174: p_usec_ret_rec.status := 'E';
10175: END IF;
10176:
10177: IF (p_usec_ret_rec.fee_type IS NULL OR p_usec_ret_rec.fee_type = FND_API.G_MISS_CHAR) AND p_usec_ret_rec.definition_level='UNIT_SECTION_FEE_TYPE' THEN
10178: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','FEE_TYPE','IGS_FI_LOCKBOX',FALSE);
10179: p_usec_ret_rec.status := 'E';
10180: END IF;
10181:
10182: IF p_usec_ret_rec.formula_method IS NULL OR p_usec_ret_rec.formula_method = FND_API.G_MISS_CHAR THEN
10179: p_usec_ret_rec.status := 'E';
10180: END IF;
10181:
10182: IF p_usec_ret_rec.formula_method IS NULL OR p_usec_ret_rec.formula_method = FND_API.G_MISS_CHAR THEN
10183: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','FORMULA_METHOD','LEGACY_TOKENS',FALSE);
10184: p_usec_ret_rec.status := 'E';
10185: END IF;
10186:
10187: IF p_usec_ret_rec.round_method IS NULL OR p_usec_ret_rec.round_method = FND_API.G_MISS_CHAR THEN
10184: p_usec_ret_rec.status := 'E';
10185: END IF;
10186:
10187: IF p_usec_ret_rec.round_method IS NULL OR p_usec_ret_rec.round_method = FND_API.G_MISS_CHAR THEN
10188: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','ROUND_METHOD','LEGACY_TOKENS',FALSE);
10189: p_usec_ret_rec.status := 'E';
10190: END IF;
10191:
10192: IF p_usec_ret_rec.incl_wkend_duration_flag IS NULL OR p_usec_ret_rec.incl_wkend_duration_flag = FND_API.G_MISS_CHAR THEN
10189: p_usec_ret_rec.status := 'E';
10190: END IF;
10191:
10192: IF p_usec_ret_rec.incl_wkend_duration_flag IS NULL OR p_usec_ret_rec.incl_wkend_duration_flag = FND_API.G_MISS_CHAR THEN
10193: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','INCL_WKEND_DURATION_FLAG','LEGACY_TOKENS',FALSE);
10194: p_usec_ret_rec.status := 'E';
10195: END IF;
10196:
10197: -- valid values of definition_level is 'UNIT_SECTION_FEE_TYPE' , 'UNIT_SECTION'
10195: END IF;
10196:
10197: -- valid values of definition_level is 'UNIT_SECTION_FEE_TYPE' , 'UNIT_SECTION'
10198: IF p_usec_ret_rec.definition_level NOT IN ('UNIT_SECTION_FEE_TYPE' , 'UNIT_SECTION') THEN
10199: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV','DEFINITION_LEVEL','LEGACY_TOKENS',FALSE);
10200: p_usec_ret_rec.status :='E';
10201: END IF;
10202:
10203: --Fee type should not be there for definition_level = UNIT_SECTION
10201: END IF;
10202:
10203: --Fee type should not be there for definition_level = UNIT_SECTION
10204: IF p_usec_ret_rec.definition_level = 'UNIT_SECTION' AND p_usec_ret_rec.fee_type IS NOT NULL THEN
10205: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV','FEE_TYPE','IGS_FI_LOCKBOX',FALSE);
10206: p_usec_ret_rec.status :='E';
10207: END IF;
10208:
10209: END validate_parameters;
10219:
10220: -- Deriving the Calendar Type and Calendar Sequence Number
10221: igs_ge_gen_003.get_calendar_instance(p_usec_ret_rec.teach_cal_alternate_code,'''TEACHING''', l_c_cal_type, l_n_seq_num, l_d_start, l_d_end, l_c_ret_status);
10222: IF l_c_ret_status <> 'SINGLE' THEN
10223: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'TEACH_CAL_ALTERNATE_CD','LEGACY_TOKENS', FALSE);
10224: p_usec_ret_rec.status := 'E';
10225: END IF;
10226:
10227: -- Deriving the Unit Offering Option Identifier
10225: END IF;
10226:
10227: -- Deriving the Unit Offering Option Identifier
10228: l_c_ret_status := NULL;
10229: igs_ps_validate_lgcy_pkg.get_uoo_id(p_usec_ret_rec.unit_cd, p_usec_ret_rec.version_number, l_c_cal_type, l_n_seq_num, p_usec_ret_rec.location_cd, p_usec_ret_rec.unit_class, l_n_uoo_id, l_c_ret_status);
10230: IF l_c_ret_status IS NOT NULL THEN
10231: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS','UNIT_SECTION','LEGACY_TOKENS', FALSE);
10232: p_usec_ret_rec.status := 'E';
10233: END IF;
10227: -- Deriving the Unit Offering Option Identifier
10228: l_c_ret_status := NULL;
10229: igs_ps_validate_lgcy_pkg.get_uoo_id(p_usec_ret_rec.unit_cd, p_usec_ret_rec.version_number, l_c_cal_type, l_n_seq_num, p_usec_ret_rec.location_cd, p_usec_ret_rec.unit_class, l_n_uoo_id, l_c_ret_status);
10230: IF l_c_ret_status IS NOT NULL THEN
10231: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS','UNIT_SECTION','LEGACY_TOKENS', FALSE);
10232: p_usec_ret_rec.status := 'E';
10233: END IF;
10234:
10235: END validate_derivation;
10241: IF p_insert_update = 'I' AND p_usec_ret_rec.definition_level='UNIT_SECTION_FEE_TYPE' THEN
10242: -- Unique Key Validation
10243: IF igs_ps_nsus_rtn_pkg.get_uk_for_validation ( x_uoo_id => l_n_uoo_id,
10244: x_fee_type => p_usec_ret_rec.fee_type ) THEN
10245: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_EXISTS', 'RETENTION', 'LEGACY_TOKENS', FALSE);
10246: p_usec_ret_rec.status := 'W';
10247: RETURN;
10248: END IF;
10249:
10248: END IF;
10249:
10250: --Check for the existence of the Fee Type
10251: IF NOT igs_fi_fee_type_pkg.get_pk_for_validation (p_usec_ret_rec.fee_type ) THEN
10252: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'FEE_TYPE', 'IGS_FI_LOCKBOX', FALSE);
10253: p_usec_ret_rec.status := 'E';
10254: END IF;
10255:
10256: END IF;
10260: BEGIN
10261: igs_ps_nsus_rtn_pkg.check_constraints('FORMULA_METHOD', p_usec_ret_rec.formula_method);
10262: EXCEPTION
10263: WHEN OTHERS THEN
10264: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV','FORMULA_METHOD','LEGACY_TOKENS',TRUE);
10265: p_usec_ret_rec.status :='E';
10266: END;
10267:
10268: BEGIN
10268: BEGIN
10269: igs_ps_nsus_rtn_pkg.check_constraints('ROUND_METHOD', p_usec_ret_rec.round_method);
10270: EXCEPTION
10271: WHEN OTHERS THEN
10272: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV','ROUND_METHOD','LEGACY_TOKENS',TRUE);
10273: p_usec_ret_rec.status :='E';
10274: END;
10275:
10276: BEGIN
10276: BEGIN
10277: igs_ps_nsus_rtn_pkg.check_constraints('INCL_WKEND_DURATION_FLAG', p_usec_ret_rec.incl_wkend_duration_flag);
10278: EXCEPTION
10279: WHEN OTHERS THEN
10280: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV','INCL_WKEND_DURATION_FLAG','LEGACY_TOKENS',TRUE);
10281: p_usec_ret_rec.status :='E';
10282: END;
10283:
10284:
10284:
10285: -- Foreign Key Checking
10286: --Check for the existence of the unit section
10287: IF NOT igs_ps_unit_ofr_opt_pkg.get_uk_for_validation (l_n_uoo_id ) THEN
10288: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_SECTION', 'LEGACY_TOKENS', FALSE);
10289: p_usec_ret_rec.status := 'E';
10290: END IF;
10291:
10292:
10445: OPEN cur_check_ns_usec(l_n_uoo_id);
10446: FETCH cur_check_ns_usec INTO l_c_var;
10447: IF cur_check_ns_usec%NOTFOUND THEN
10448: fnd_message.set_name ( 'IGS', 'IGS_PS_NON_STD_USEC_NOT_IMP' );
10449: fnd_message.set_token('RECORD',igs_ps_validate_lgcy_pkg.get_lkup_meaning('RETENTION','LEGACY_TOKENS'));
10450: fnd_msg_pub.add;
10451: /*igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_NON_STD_USEC_NOT_IMP','RETENTION','LEGACY_TOKENS',FALSE);*/
10452: p_usec_ret_rec.status := 'E';
10453: END IF;
10447: IF cur_check_ns_usec%NOTFOUND THEN
10448: fnd_message.set_name ( 'IGS', 'IGS_PS_NON_STD_USEC_NOT_IMP' );
10449: fnd_message.set_token('RECORD',igs_ps_validate_lgcy_pkg.get_lkup_meaning('RETENTION','LEGACY_TOKENS'));
10450: fnd_msg_pub.add;
10451: /*igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_NON_STD_USEC_NOT_IMP','RETENTION','LEGACY_TOKENS',FALSE);*/
10452: p_usec_ret_rec.status := 'E';
10453: END IF;
10454: CLOSE cur_check_ns_usec;
10455:
10464: END IF;
10465: END LOOP;
10466:
10467: IF l_c_proceed = FALSE THEN
10468: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'FEE_TYPE', 'IGS_FI_LOCKBOX', FALSE);
10469: p_usec_ret_rec.status := 'E';
10470: END IF;
10471: END IF;
10472:
10573:
10574: END IF;
10575:
10576: IF p_usec_ret_tbl(I).status = 'S' AND p_calling_context = 'S' THEN
10577: IF igs_ps_validate_lgcy_pkg.check_import_allowed( l_n_uoo_id,NULL) = FALSE THEN
10578: fnd_message.set_name ( 'IGS', 'IGS_PS_REC_ABORTED_CANCELLED' );
10579: fnd_msg_pub.add;
10580: p_usec_ret_tbl(I).status := 'A';
10581: END IF;
10748: p_usec_ret_dtl_rec.status:='S';
10749:
10750:
10751: IF p_usec_ret_dtl_rec.unit_cd IS NULL OR p_usec_ret_dtl_rec.unit_cd = FND_API.G_MISS_CHAR THEN
10752: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','UNIT_CD','LEGACY_TOKENS',FALSE);
10753: p_usec_ret_dtl_rec.status := 'E';
10754: END IF;
10755:
10756: IF p_usec_ret_dtl_rec.version_number IS NULL OR p_usec_ret_dtl_rec.version_number = FND_API.G_MISS_NUM THEN
10753: p_usec_ret_dtl_rec.status := 'E';
10754: END IF;
10755:
10756: IF p_usec_ret_dtl_rec.version_number IS NULL OR p_usec_ret_dtl_rec.version_number = FND_API.G_MISS_NUM THEN
10757: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','UNIT_VER_NUM','LEGACY_TOKENS',FALSE);
10758: p_usec_ret_dtl_rec.status := 'E';
10759: END IF;
10760:
10761: IF p_usec_ret_dtl_rec.teach_cal_alternate_code IS NULL OR p_usec_ret_dtl_rec.teach_cal_alternate_code = FND_API.G_MISS_CHAR THEN
10758: p_usec_ret_dtl_rec.status := 'E';
10759: END IF;
10760:
10761: IF p_usec_ret_dtl_rec.teach_cal_alternate_code IS NULL OR p_usec_ret_dtl_rec.teach_cal_alternate_code = FND_API.G_MISS_CHAR THEN
10762: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','TEACH_CAL_ALTERNATE_CD','LEGACY_TOKENS',FALSE);
10763: p_usec_ret_dtl_rec.status := 'E';
10764: END IF;
10765:
10766: IF p_usec_ret_dtl_rec.location_cd IS NULL OR p_usec_ret_dtl_rec.location_cd = FND_API.G_MISS_CHAR THEN
10763: p_usec_ret_dtl_rec.status := 'E';
10764: END IF;
10765:
10766: IF p_usec_ret_dtl_rec.location_cd IS NULL OR p_usec_ret_dtl_rec.location_cd = FND_API.G_MISS_CHAR THEN
10767: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY', 'LOCATION_CD','LEGACY_TOKENS',FALSE);
10768: p_usec_ret_dtl_rec.status := 'E';
10769: END IF;
10770:
10771: IF p_usec_ret_dtl_rec.unit_class IS NULL OR p_usec_ret_dtl_rec.unit_class = FND_API.G_MISS_CHAR THEN
10768: p_usec_ret_dtl_rec.status := 'E';
10769: END IF;
10770:
10771: IF p_usec_ret_dtl_rec.unit_class IS NULL OR p_usec_ret_dtl_rec.unit_class = FND_API.G_MISS_CHAR THEN
10772: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','UNIT_CLASS','LEGACY_TOKENS',FALSE);
10773: p_usec_ret_dtl_rec.status := 'E';
10774: END IF;
10775:
10776: IF p_usec_ret_dtl_rec.definition_level IS NULL OR p_usec_ret_dtl_rec.definition_level = FND_API.G_MISS_CHAR THEN
10773: p_usec_ret_dtl_rec.status := 'E';
10774: END IF;
10775:
10776: IF p_usec_ret_dtl_rec.definition_level IS NULL OR p_usec_ret_dtl_rec.definition_level = FND_API.G_MISS_CHAR THEN
10777: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','DEFINITION_LEVEL','LEGACY_TOKENS',FALSE);
10778: p_usec_ret_dtl_rec.status := 'E';
10779: END IF;
10780:
10781: IF (p_usec_ret_dtl_rec.fee_type IS NULL OR p_usec_ret_dtl_rec.fee_type = FND_API.G_MISS_CHAR) AND p_usec_ret_dtl_rec.definition_level='UNIT_SECTION_FEE_TYPE' THEN
10778: p_usec_ret_dtl_rec.status := 'E';
10779: END IF;
10780:
10781: IF (p_usec_ret_dtl_rec.fee_type IS NULL OR p_usec_ret_dtl_rec.fee_type = FND_API.G_MISS_CHAR) AND p_usec_ret_dtl_rec.definition_level='UNIT_SECTION_FEE_TYPE' THEN
10782: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','FEE_TYPE','IGS_FI_LOCKBOX',FALSE);
10783: p_usec_ret_dtl_rec.status := 'E';
10784: END IF;
10785:
10786: IF p_usec_ret_dtl_rec.offset_value IS NULL OR p_usec_ret_dtl_rec.offset_value = FND_API.G_MISS_NUM THEN
10783: p_usec_ret_dtl_rec.status := 'E';
10784: END IF;
10785:
10786: IF p_usec_ret_dtl_rec.offset_value IS NULL OR p_usec_ret_dtl_rec.offset_value = FND_API.G_MISS_NUM THEN
10787: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','OFFSET_VALUE','LEGACY_TOKENS',FALSE);
10788: p_usec_ret_dtl_rec.status := 'E';
10789: END IF;
10790:
10791:
10798: END IF;
10799:
10800:
10801: IF p_usec_ret_dtl_rec.override_date_flag IS NULL OR p_usec_ret_dtl_rec.override_date_flag = FND_API.G_MISS_CHAR THEN
10802: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY','OVERRIDE_DATE_FLAG','LEGACY_TOKENS',FALSE);
10803: p_usec_ret_dtl_rec.status := 'E';
10804: END IF;
10805:
10806: -- valid values of definition_level is 'UNIT_SECTION_FEE_TYPE' , 'UNIT_SECTION'
10804: END IF;
10805:
10806: -- valid values of definition_level is 'UNIT_SECTION_FEE_TYPE' , 'UNIT_SECTION'
10807: IF p_usec_ret_dtl_rec.definition_level NOT IN ('UNIT_SECTION_FEE_TYPE' , 'UNIT_SECTION') THEN
10808: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV','DEFINITION_LEVEL','LEGACY_TOKENS',FALSE);
10809: p_usec_ret_dtl_rec.status :='E';
10810: END IF;
10811:
10812: --Fee type should not be there for definition_level = UNIT_SECTION
10810: END IF;
10811:
10812: --Fee type should not be there for definition_level = UNIT_SECTION
10813: IF p_usec_ret_dtl_rec.definition_level = 'UNIT_SECTION' AND p_usec_ret_dtl_rec.fee_type IS NOT NULL THEN
10814: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV','FEE_TYPE','IGS_FI_LOCKBOX',FALSE);
10815: p_usec_ret_dtl_rec.status :='E';
10816: END IF;
10817:
10818: END validate_parameters;
10845:
10846: -- Deriving the Calendar Type and Calendar Sequence Number
10847: igs_ge_gen_003.get_calendar_instance(p_usec_ret_dtl_rec.teach_cal_alternate_code,'''TEACHING''', l_c_cal_type, l_n_seq_num, l_d_start, l_d_end, l_c_ret_status);
10848: IF l_c_ret_status <> 'SINGLE' THEN
10849: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', 'TEACH_CAL_ALTERNATE_CD','LEGACY_TOKENS', FALSE);
10850: p_usec_ret_dtl_rec.status := 'E';
10851: END IF;
10852:
10853: -- Deriving the Unit Offering Option Identifier
10851: END IF;
10852:
10853: -- Deriving the Unit Offering Option Identifier
10854: l_c_ret_status := NULL;
10855: igs_ps_validate_lgcy_pkg.get_uoo_id(p_usec_ret_dtl_rec.unit_cd, p_usec_ret_dtl_rec.version_number, l_c_cal_type, l_n_seq_num, p_usec_ret_dtl_rec.location_cd, p_usec_ret_dtl_rec.unit_class, l_n_uoo_id, l_c_ret_status);
10856: IF l_c_ret_status IS NOT NULL THEN
10857: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS','UNIT_SECTION','LEGACY_TOKENS', FALSE);
10858: p_usec_ret_dtl_rec.status := 'E';
10859: END IF;
10853: -- Deriving the Unit Offering Option Identifier
10854: l_c_ret_status := NULL;
10855: igs_ps_validate_lgcy_pkg.get_uoo_id(p_usec_ret_dtl_rec.unit_cd, p_usec_ret_dtl_rec.version_number, l_c_cal_type, l_n_seq_num, p_usec_ret_dtl_rec.location_cd, p_usec_ret_dtl_rec.unit_class, l_n_uoo_id, l_c_ret_status);
10856: IF l_c_ret_status IS NOT NULL THEN
10857: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS','UNIT_SECTION','LEGACY_TOKENS', FALSE);
10858: p_usec_ret_dtl_rec.status := 'E';
10859: END IF;
10860:
10861: --Derive the Master retention id
10869: CLOSE c_ret_usec_fee;
10870: END IF;
10871:
10872: IF l_n_non_std_usec_rtn_id IS NULL THEN
10873: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS','RETENTION','LEGACY_TOKENS', FALSE);
10874: p_usec_ret_dtl_rec.status := 'E';
10875: ELSE
10876: --Derive the offset date
10877: IF p_usec_ret_dtl_rec.status = 'S' THEN
10898: IF p_insert_update = 'I' THEN
10899: -- Unique Key Validation
10900: IF igs_ps_nsus_rtn_dtl_pkg.get_uk_for_validation ( x_non_std_usec_rtn_id => l_n_non_std_usec_rtn_id,
10901: x_offset_value => p_usec_ret_dtl_rec.offset_value ) THEN
10902: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_EXISTS', 'RETENTION', 'LEGACY_TOKENS', FALSE);
10903: p_usec_ret_dtl_rec.status := 'W';
10904: RETURN;
10905: END IF;
10906:
10911: BEGIN
10912: igs_ps_nsus_rtn_dtl_pkg.check_constraints('OFFSET_VALUE', p_usec_ret_dtl_rec.offset_value);
10913: EXCEPTION
10914: WHEN OTHERS THEN
10915: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV','OFFSET_VALUE','LEGACY_TOKENS',TRUE);
10916: p_usec_ret_dtl_rec.status :='E';
10917: END;
10918:
10919: BEGIN
10919: BEGIN
10920: igs_ps_nsus_rtn_dtl_pkg.check_constraints('RETENTION_PERCENT', p_usec_ret_dtl_rec.retention_percent);
10921: EXCEPTION
10922: WHEN OTHERS THEN
10923: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV','RETENTION_PERCENT','LEGACY_TOKENS',TRUE);
10924: p_usec_ret_dtl_rec.status :='E';
10925: END;
10926:
10927: BEGIN
10927: BEGIN
10928: igs_ps_nsus_rtn_dtl_pkg.check_constraints('RETENTION_AMOUNT', p_usec_ret_dtl_rec.retention_amount);
10929: EXCEPTION
10930: WHEN OTHERS THEN
10931: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV','RETENTION_AMOUNT','LEGACY_TOKENS',TRUE);
10932: p_usec_ret_dtl_rec.status :='E';
10933: END;
10934:
10935: --Format mask check
10933: END;
10934:
10935: --Format mask check
10936: IF p_usec_ret_dtl_rec.retention_percent IS NOT NULL THEN
10937: IF NOT igs_ps_validate_lgcy_pkg.boundary_check_number(p_usec_ret_dtl_rec.retention_percent,3,2) THEN
10938: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV','RETENTION_PERCENT','LEGACY_TOKENS',FALSE);
10939: p_usec_ret_dtl_rec.status :='E';
10940: END IF;
10941: END IF;
10934:
10935: --Format mask check
10936: IF p_usec_ret_dtl_rec.retention_percent IS NOT NULL THEN
10937: IF NOT igs_ps_validate_lgcy_pkg.boundary_check_number(p_usec_ret_dtl_rec.retention_percent,3,2) THEN
10938: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV','RETENTION_PERCENT','LEGACY_TOKENS',FALSE);
10939: p_usec_ret_dtl_rec.status :='E';
10940: END IF;
10941: END IF;
10942:
10941: END IF;
10942:
10943: --Format mask check
10944: IF p_usec_ret_dtl_rec.retention_amount IS NOT NULL THEN
10945: IF NOT igs_ps_validate_lgcy_pkg.boundary_check_number(p_usec_ret_dtl_rec.retention_amount,6,2) THEN
10946: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV','RETENTION_AMOUNT','LEGACY_TOKENS',FALSE);
10947: p_usec_ret_dtl_rec.status :='E';
10948: END IF;
10949: END IF;
10942:
10943: --Format mask check
10944: IF p_usec_ret_dtl_rec.retention_amount IS NOT NULL THEN
10945: IF NOT igs_ps_validate_lgcy_pkg.boundary_check_number(p_usec_ret_dtl_rec.retention_amount,6,2) THEN
10946: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV','RETENTION_AMOUNT','LEGACY_TOKENS',FALSE);
10947: p_usec_ret_dtl_rec.status :='E';
10948: END IF;
10949: END IF;
10950:
10948: END IF;
10949: END IF;
10950:
10951: IF p_usec_ret_dtl_rec.override_date_flag NOT IN ('Y','N') THEN
10952: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV','OVERRIDE_DATE_FLAG','LEGACY_TOKENS',FALSE);
10953: p_usec_ret_dtl_rec.status :='E';
10954: END IF;
10955:
10956: -- Foreign Key Checking
10955:
10956: -- Foreign Key Checking
10957: --Check for the existence of the unit section
10958: IF NOT igs_ps_unit_ofr_opt_pkg.get_uk_for_validation (l_n_uoo_id ) THEN
10959: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_SECTION', 'LEGACY_TOKENS', FALSE);
10960: p_usec_ret_dtl_rec.status := 'E';
10961: END IF;
10962:
10963:
11051: OPEN cur_check_ns_usec(l_n_uoo_id);
11052: FETCH cur_check_ns_usec INTO l_c_var;
11053: IF cur_check_ns_usec%NOTFOUND THEN
11054: fnd_message.set_name ( 'IGS', 'IGS_PS_NON_STD_USEC_NOT_IMP' );
11055: fnd_message.set_token('RECORD',igs_ps_validate_lgcy_pkg.get_lkup_meaning('RETENTION','LEGACY_TOKENS'));
11056: fnd_msg_pub.add;
11057: /*igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_NON_STD_USEC_NOT_IMP','RETENTION','LEGACY_TOKENS',FALSE);*/
11058: p_usec_ret_dtl_rec.status := 'E';
11059: END IF;
11053: IF cur_check_ns_usec%NOTFOUND THEN
11054: fnd_message.set_name ( 'IGS', 'IGS_PS_NON_STD_USEC_NOT_IMP' );
11055: fnd_message.set_token('RECORD',igs_ps_validate_lgcy_pkg.get_lkup_meaning('RETENTION','LEGACY_TOKENS'));
11056: fnd_msg_pub.add;
11057: /*igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_NON_STD_USEC_NOT_IMP','RETENTION','LEGACY_TOKENS',FALSE);*/
11058: p_usec_ret_dtl_rec.status := 'E';
11059: END IF;
11060: CLOSE cur_check_ns_usec;
11061:
11145:
11146: END IF;
11147:
11148: IF p_usec_ret_dtl_tbl(I).status = 'S' AND p_calling_context = 'S' THEN
11149: IF igs_ps_validate_lgcy_pkg.check_import_allowed( l_n_uoo_id,NULL) = FALSE THEN
11150: fnd_message.set_name ( 'IGS', 'IGS_PS_REC_ABORTED_CANCELLED' );
11151: fnd_msg_pub.add;
11152: p_usec_ret_dtl_tbl(I).status := 'A';
11153: END IF;