[Home] [Help]
172: IF igs_as_val_suaap.genp_val_sdtt_sess('IGS_AS_SU_SETATMPT') THEN
173: IF p_inserting THEN
174: -- Validate the the IGS_PS_UNIT set is able to be created.
175: -- against the student IGS_PS_COURSE attempt.
176: IF IGS_EN_VAL_SUSA.enrp_val_susa_sca(
177: new_references.person_id,
178: new_references.course_cd,
179: v_message_name ) = FALSE THEN
180: Fnd_Message.Set_Name('IGS', v_message_name);
185: -- The student cannot have completed it previously,
186: -- no encumbrances must exist and it must be applicable
187: -- to the IGS_PS_COURSE offering.
188: -- p_legacy value passed as 'N' as function is called in non-legacy mode
189: IF IGS_EN_VAL_SUSA.enrp_val_susa_ins(
190: new_references.person_id,
191: new_references.course_cd,
192: new_references.unit_set_cd,
193: new_references.sequence_number,
209: (NVL(new_references.authorised_on,IGS_GE_DATE.IGSDATE('1900/01/01'))
210: <> NVL(old_references.authorised_on, IGS_GE_DATE.IGSDATE('1900/01/01'))))) THEN
211:
212: -- p_legacy value passed as 'N' as function is called in non-legacy mode
213: IF IGS_EN_VAL_SUSA.enrp_val_susa_auth(
214: new_references.unit_set_cd,
215: new_references.us_version_number,
216: new_references.end_dt,
217: new_references.authorised_person_id,
233: -- Validate that the authorisation fields must be set when
234: -- the IGS_PS_UNIT set cd requires authorisation (IGS_EN_UNIT_SET.authorisation_ind = 'Y')
235: -- Check required only when the IGS_PS_UNIT set is confirmed.
236: IF (new_references.student_confirmed_ind = 'Y') THEN
237: IF IGS_EN_VAL_SUSA.enrp_val_susa_us_ath(
238: new_references.unit_set_cd,
239: new_references.us_version_number,
240: new_references.authorised_person_id,
241: new_references.authorised_on,
256: <> NVL(old_references.rqrmnts_complete_dt,
257: IGS_GE_DATE.IGSDATE('1900/01/01')))))THEN
258:
259: -- p_legacy value passed as 'N' as function is called in non-legacy mode
260: IF IGS_EN_VAL_SUSA.enrp_val_susa_cmplt(
261: new_references.rqrmnts_complete_dt,
262: new_references.rqrmnts_complete_ind,
263: new_references.student_confirmed_ind,
264: v_message_name,
278: <> NVL(old_references.s_completed_source_type, 'x')) OR
279: (NVL(new_references.rqrmnts_complete_dt,IGS_GE_DATE.IGSDATE('1900/01/01'))
280: <> NVL(old_references.rqrmnts_complete_dt,
281: IGS_GE_DATE.IGSDATE('1900/01/01')))))THEN
282: IF IGS_EN_VAL_SUSA.enrp_val_susa_scst(
283: new_references.rqrmnts_complete_dt,
284: new_references.rqrmnts_complete_ind,
285: new_references.s_completed_source_type,
286: v_message_name ) = FALSE THEN
300: (NVL(new_references.selection_dt,IGS_GE_DATE.IGSDATE('1900/01/01'))
301: <> NVL(old_references.selection_dt, IGS_GE_DATE.IGSDATE('1900/01/01'))))) THEN
302:
303: -- p_legacy value passed as 'N' as function is called in non-legacy mode
304: IF IGS_EN_VAL_SUSA.enrp_val_susa_sci_sd(
305: new_references.student_confirmed_ind,
306: new_references.selection_dt,
307: v_message_name,
308: 'N') = FALSE THEN
317: (p_updating AND
318: ((new_references.voluntary_end_ind <> old_references.voluntary_end_ind) OR
319: (NVL(new_references.end_dt,IGS_GE_DATE.IGSDATE('1900/01/01'))
320: <> NVL(old_references.end_dt, IGS_GE_DATE.IGSDATE('1900/01/01'))))) THEN
321: IF IGS_EN_VAL_SUSA.enrp_val_susa_end_vi(
322: new_references.voluntary_end_ind,
323: new_references.end_dt,
324: v_message_name ) = FALSE THEN
325: Fnd_Message.Set_Name('IGS', v_message_name);
335: App_Exception.Raise_Exception;
336: END IF;
337: IF p_deleting THEN
338: -- Validate that the records can be deleted.
339: IF IGS_EN_VAL_SUSA.enrp_val_susa_del(
340: old_references.person_id,
341: old_references.course_cd,
342: old_references.unit_set_cd,
343: old_references.sequence_number,
373: -- Validate the the unit set is able to be created
374: -- with the unit set status being valid and the
375: -- expiry date not set. If set then person must have
376: -- previously selected it.
377: IF IGS_EN_VAL_SUSA.enrp_val_susa_us_act(
378: new_references.person_id,
379: new_references.course_cd,
380: new_references.unit_set_cd,
381: new_references.sequence_number,
390: p_parent_unit_set_cd IS NOT NULL THEN
391: -- Validate if the unit set is to be defined as a subordinate or if
392: -- relationship specified, that it is valid within the course offering.
393: -- p_legacy value passed as 'N' as function is called in non-legacy mode
394: IF IGS_EN_VAL_SUSA.enrp_val_susa_cousr(
395: new_references.person_id,
396: new_references.course_cd,
397: new_references.unit_set_cd,
398: new_references.us_version_number,
408: -- Validate if the parent unit set has a null end date, unit set is
409: -- not being linked to itself (directly or indirectly). Cannot be
410: -- confirmed if parent is unconfirmed.
411: -- p_legacy value passed as 'N' as function is called in non-legacy mode
412: IF IGS_EN_VAL_SUSA.enrp_val_susa_parent(
413: new_references.person_id,
414: new_references.course_cd,
415: new_references.unit_set_cd,
416: new_references.sequence_number,
431: -- of the unit set exists. Also cannot be cleared if parent ended.
432: -- If part of the admissions offer, authorisation required to end
433: -- the unit set.
434: -- p_legacy value passed as 'N' as function is called in non-legacy mode
435: IF IGS_EN_VAL_SUSA.enrp_val_susa_end_dt(
436: new_references.person_id,
437: new_references.course_cd,
438: new_references.unit_set_cd,
439: new_references.sequence_number,
481: -- Also check that not unset one end date or complete date set. Cannot be
482: -- confirmed and linked to a parent that is unconfirmed. Cannot be
483: -- confirmed if encumbrances exist.
484: -- p_legacy value passed as 'N' as function is called in non-legacy mode
485: IF IGS_EN_VAL_SUSA.enrp_val_susa_sci(
486: new_references.person_id,
487: new_references.course_cd,
488: new_references.unit_set_cd,
489: new_references.sequence_number,
523: -- Validate the primary set indicator is only set for
524: -- non-administrative sets and that there does not already
525: -- exist a unit set that has a higher rank.
526: -- p_legacy value passed as 'N' as function is called in non-legacy mode
527: IF IGS_EN_VAL_SUSA.enrp_val_susa_prmry(
528: new_references.person_id,
529: new_references.course_cd,
530: new_references.unit_set_cd,
531: new_references.us_version_number,
585: IF p_inserting THEN
586: -- Validate the the IGS_PS_UNIT set is able to be created
587: -- with the IGS_PS_UNIT set status being valid and the
588: -- expiry date not set. If set then IGS_PE_PERSON must have
589: -- previously selected it. (IGS_EN_VAL_SUSA.enrp_val_susa_us_act)
590: -- Cannot call modules because trigger will be mutating.
591: -- Save the rowid of the current row.
592: RowValMutation(
593: p_inserting ,
607: (NVL(new_references.parent_sequence_number, 0)
608: <> NVL(old_references.parent_sequence_number, 0)))) THEN
609: -- Validate if the IGS_PS_UNIT set is to be defined as a subordinate or if
610: -- relationship specified, that it is valid within the IGS_PS_COURSE offering
611: -- (IGS_EN_VAL_SUSA.enrp_val_susa_cousr).
612: -- Validate if the parent IGS_PS_UNIT set has a null end date, IGS_PS_UNIT set is
613: -- not being linked to itself (directly or indirectly). Cannot be
614: -- confirmed if parent is unconfirmed (IGS_EN_VAL_SUSA.enrp_val_susa_parent).
615: -- Cannot call modules because trigger will be mutating.
610: -- relationship specified, that it is valid within the IGS_PS_COURSE offering
611: -- (IGS_EN_VAL_SUSA.enrp_val_susa_cousr).
612: -- Validate if the parent IGS_PS_UNIT set has a null end date, IGS_PS_UNIT set is
613: -- not being linked to itself (directly or indirectly). Cannot be
614: -- confirmed if parent is unconfirmed (IGS_EN_VAL_SUSA.enrp_val_susa_parent).
615: -- Cannot call modules because trigger will be mutating.
616: -- Save the rowid of the current row setting the parent IGS_PS_UNIT set field to
617: -- indicate to perform parent IGS_PS_UNIT set code validation
618: RowValMutation(