[Home] [Help]
16: -- is not set and changed the logic to set the
17: -- x_return_value to FALSE when the Progression
18: -- Outcome Type is not already defined in the system.
19: -- Bug# 2732568; Removed the call to
20: -- FND_MSG_PUB.Add_Exc_Msg to avoid message repeatition.
21: -- Kalyan Dande 24-Dec-2002 Bug# 2717485. Added the following IF condition
22: -- to create the record only if the hold effect
23: -- type is either 'SUS_COURSE' or 'EXC_COURSE'
24: -- Kalyan Dande 24-Dec-2002 Bug# 2717616. Changed the OR condition to AND
42: --
43: IF (p_lgcy_prout_rec.person_number IS NULL) THEN
44: l_return_value := FND_API.TO_BOOLEAN (FND_API.G_FALSE);
45: FND_MESSAGE.SET_NAME ('IGS', 'IGS_EN_PER_NUM_NULL');
46: FND_MSG_PUB.ADD;
47: END IF;
48: --
49: -- If the Program Code is not passed then log an error and continue.
50: --
50: --
51: IF (p_lgcy_prout_rec.program_cd IS NULL) THEN
52: l_return_value := FND_API.TO_BOOLEAN (FND_API.G_FALSE);
53: FND_MESSAGE.SET_NAME ('IGS', 'IGS_EN_PRGM_CD_NULL');
54: FND_MSG_PUB.ADD;
55: END IF;
56: --
57: -- If the Alternate Code of the Progression Calendar is not passed then
58: -- log an error and continue.
59: --
60: IF (p_lgcy_prout_rec.prg_cal_alternate_code IS NULL) THEN
61: l_return_value := FND_API.TO_BOOLEAN (FND_API.G_FALSE);
62: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PRG_ALT_CODE_NULL');
63: FND_MSG_PUB.ADD;
64: END IF;
65: --
66: -- If the Decision Status is not passed then log an error and continue.
67: --
67: --
68: IF (p_lgcy_prout_rec.decision_status IS NULL) THEN
69: l_return_value := FND_API.TO_BOOLEAN (FND_API.G_FALSE);
70: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_PRG_DECI_STAT_NULL');
71: FND_MSG_PUB.ADD;
72: END IF;
73: --
74: -- Return the status of the validation.
75: -- TRUE if all validations are passed else FALSE.
126: -- Error out if the Person is not found in OSS
127: --
128: IF (p_person_id IS NULL) THEN
129: FND_MESSAGE.SET_NAME ('IGS', 'IGS_GE_INVALID_PERSON_NUMBER');
130: FND_MSG_PUB.ADD;
131: x_return_value := FND_API.TO_BOOLEAN (FND_API.G_FALSE);
132: RETURN;
133: END IF;
134: --
151: -- Raise an error if no Calendar definition is found in OSS
152: --
153: IF (l_return_status = 'INVALID') THEN
154: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_NO_ALT_CODE');
155: FND_MSG_PUB.ADD;
156: --
157: -- Raise an error if more than one Calendar definition is found in OSS
158: --
159: ELSIF (l_return_status = 'MULTIPLE') THEN
157: -- Raise an error if more than one Calendar definition is found in OSS
158: --
159: ELSIF (l_return_status = 'MULTIPLE') THEN
160: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_MULTI_ALT_CODE');
161: FND_MSG_PUB.ADD;
162: END IF;
163: x_return_value := FND_API.TO_BOOLEAN (FND_API.G_FALSE);
164: RETURN;
165: END IF;
190: p_org_unit_cd => p_lgcy_prout_rec.decision_org_unit_cd,
191: p_start_dt => p_org_start_dt
192: )) THEN
193: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_NO_ORG_START_DT');
194: FND_MSG_PUB.ADD;
195: x_return_value := FND_API.TO_BOOLEAN (FND_API.G_FALSE);
196: END IF;
197: END IF;
198: --
207: FETCH cur_hold_effect_type INTO l_hold_effect_type, l_s_progression_outcome_type;
208: IF (cur_hold_effect_type%NOTFOUND) THEN
209: IF (l_s_progression_outcome_type NOT IN ('AWARD', 'MANUAL', 'NOPENALTY', 'REPEATYR', 'ADVANCE')) THEN
210: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_NO_HOLD_EFCT');
211: FND_MSG_PUB.ADD;
212: x_return_value := FND_API.TO_BOOLEAN (FND_API.G_FALSE);
213: END IF;
214: END IF;
215: --
248: IF (NOT igs_en_atd_type_pkg.get_pk_for_validation (
249: p_lgcy_prout_rec.restricted_attendance_type
250: )) THEN
251: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_ATD_TYP_FK');
252: FND_MSG_PUB.ADD;
253: x_return_value := FALSE;
254: END IF;
255: END IF;
256: --
260: IF (NOT igs_ps_grp_pkg.get_pk_for_validation (
261: p_lgcy_prout_rec.encmb_program_group_cd
262: )) THEN
263: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_PS_GRP_FK');
264: FND_MSG_PUB.ADD;
265: x_return_value := FALSE;
266: END IF;
267: END IF;
268: --
273: p_lgcy_prout_rec.decision_org_unit_cd,
274: p_org_start_dt
275: )) THEN
276: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_OR_UNIT_FK');
277: FND_MSG_PUB.ADD;
278: x_return_value := FALSE;
279: END IF;
280: END IF;
281: --
288: IF (NOT igs_pr_ou_type_pkg.get_pk_for_validation (
289: p_lgcy_prout_rec.progression_outcome_type
290: )) THEN
291: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_OU_TYPE_FK');
292: FND_MSG_PUB.ADD;
293: x_return_value := FALSE;
294: END IF;
295: END IF;
296: --
301: p_lgcy_prout_rec.program_cd,
302: p_sequence_number
303: )) THEN
304: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_NO_SPO_EXIST');
305: FND_MSG_PUB.ADD;
306: x_return_value := FALSE;
307: END IF;
308: --
309: -- Valid Value Checks
318: WHEN OTHERS THEN
319: --
320: -- Delete the top message and add a new message in place of it
321: --
322: FND_MSG_PUB.Delete_Msg (FND_MSG_PUB.Count_Msg);
323: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_DURATION_FORMAT');
324: FND_MSG_PUB.ADD;
325: x_return_value := FALSE;
326: END;
320: -- Delete the top message and add a new message in place of it
321: --
322: FND_MSG_PUB.Delete_Msg (FND_MSG_PUB.Count_Msg);
323: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_DURATION_FORMAT');
324: FND_MSG_PUB.ADD;
325: x_return_value := FALSE;
326: END;
327: END IF;
328: --
336: WHEN OTHERS THEN
337: --
338: -- Delete the top message and add a new message in place of it
339: --
340: FND_MSG_PUB.Delete_Msg (FND_MSG_PUB.Count_Msg);
341: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_RESENR_FORMAT');
342: FND_MSG_PUB.ADD;
343: x_return_value := FALSE;
344: END;
338: -- Delete the top message and add a new message in place of it
339: --
340: FND_MSG_PUB.Delete_Msg (FND_MSG_PUB.Count_Msg);
341: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_RESENR_FORMAT');
342: FND_MSG_PUB.ADD;
343: x_return_value := FALSE;
344: END;
345: END IF;
346: --
354: WHEN OTHERS THEN
355: --
356: -- Delete the top message and add a new message in place of it
357: --
358: FND_MSG_PUB.Delete_Msg (FND_MSG_PUB.Count_Msg);
359: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_DURTYP_VALID');
360: FND_MSG_PUB.ADD;
361: x_return_value := FALSE;
362: END;
356: -- Delete the top message and add a new message in place of it
357: --
358: FND_MSG_PUB.Delete_Msg (FND_MSG_PUB.Count_Msg);
359: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_DURTYP_VALID');
360: FND_MSG_PUB.ADD;
361: x_return_value := FALSE;
362: END;
363: END IF;
364: --
372: WHEN OTHERS THEN
373: --
374: -- Delete the top message and add a new message in place of it
375: --
376: FND_MSG_PUB.Delete_Msg (FND_MSG_PUB.Count_Msg);
377: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_DURSTAT_VALID');
378: FND_MSG_PUB.ADD;
379: x_return_value := FALSE;
380: END;
374: -- Delete the top message and add a new message in place of it
375: --
376: FND_MSG_PUB.Delete_Msg (FND_MSG_PUB.Count_Msg);
377: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_DURSTAT_VALID');
378: FND_MSG_PUB.ADD;
379: x_return_value := FALSE;
380: END;
381: END IF;
382: --
390: WHEN OTHERS THEN
391: --
392: -- Delete the top message and add a new message in place of it
393: --
394: FND_MSG_PUB.Delete_Msg (FND_MSG_PUB.Count_Msg);
395: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_SHOWCAUSE_VALID');
396: FND_MSG_PUB.ADD;
397: x_return_value := FALSE;
398: END;
392: -- Delete the top message and add a new message in place of it
393: --
394: FND_MSG_PUB.Delete_Msg (FND_MSG_PUB.Count_Msg);
395: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_SHOWCAUSE_VALID');
396: FND_MSG_PUB.ADD;
397: x_return_value := FALSE;
398: END;
399: END IF;
400: --
408: WHEN OTHERS THEN
409: --
410: -- Delete the top message and add a new message in place of it
411: --
412: FND_MSG_PUB.Delete_Msg (FND_MSG_PUB.Count_Msg);
413: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_APPEAL_VALID');
414: FND_MSG_PUB.ADD;
415: x_return_value := FALSE;
416: END;
410: -- Delete the top message and add a new message in place of it
411: --
412: FND_MSG_PUB.Delete_Msg (FND_MSG_PUB.Count_Msg);
413: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_APPEAL_VALID');
414: FND_MSG_PUB.ADD;
415: x_return_value := FALSE;
416: END;
417: END IF;
418: --
463: OPEN cur_sca;
464: FETCH cur_sca INTO rec_sca;
465: IF (cur_sca%FOUND) THEN
466: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_PRATMTSTAT_UNCONFIRM');
467: FND_MSG_PUB.ADD;
468: x_return_value := FALSE;
469: END IF;
470: CLOSE cur_sca;
471: --
476: p_prg_sequence_number,
477: x_message_name
478: )) THEN
479: FND_MESSAGE.SET_NAME ('IGS', x_message_name);
480: FND_MSG_PUB.ADD;
481: x_return_value := FALSE;
482: END IF;
483: --
484: -- Validate the Expiry Date to check that it is not a future date
487: p_lgcy_prout_rec.expiry_dt,
488: x_message_name
489: )) THEN
490: FND_MESSAGE.SET_NAME ('IGS', x_message_name);
491: FND_MSG_PUB.ADD;
492: x_return_value := FALSE;
493: END IF;
494: --
495: -- Validate whether the Decision Date and Decision Organization Unit Code is
499: IF ((p_lgcy_prout_rec.decision_dt IS NOT NULL) OR
500: (p_lgcy_prout_rec.decision_org_unit_cd IS NOT NULL) OR
501: (p_decision_ou_start_dt IS NOT NULL)) THEN
502: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_DEDT_DORG_CNT_DEST_PEN');
503: FND_MSG_PUB.ADD;
504: x_return_value := FALSE;
505: END IF;
506: END IF;
507: --
512: IF ((p_lgcy_prout_rec.decision_dt IS NULL) OR
513: (p_lgcy_prout_rec.decision_org_unit_cd IS NULL) OR
514: (p_decision_ou_start_dt IS NULL)) THEN
515: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_DEDT_DEOR_CNT_DEST_PEN');
516: FND_MSG_PUB.ADD;
517: x_return_value := FALSE;
518: END IF;
519: END IF;
520: --
524: p_lgcy_prout_rec.decision_dt,
525: x_message_name
526: )) THEN
527: FND_MESSAGE.SET_NAME ('IGS', x_message_name);
528: FND_MSG_PUB.ADD;
529: x_return_value := FALSE;
530: END IF;
531: --
532: -- Validate that the Student Progression Outcome Program Code cannot be
539: IF ((INSTR (p_hold_effect_type, 'SUS_COURSE') = 0) AND
540: (INSTR (p_hold_effect_type, 'EXC_COURSE') = 0)) THEN
541: IF (p_lgcy_prout_rec.spo_program_cd IS NOT NULL) THEN
542: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_PRGOTCM_NOT_IN_SUS_EXC');
543: FND_MSG_PUB.ADD;
544: x_return_value := FALSE;
545: END IF;
546: END IF;
547: --
550: --
551: IF (INSTR (p_hold_effect_type, 'EXC_CRS_US') = 0) THEN
552: IF (p_lgcy_prout_rec.unit_set_cd IS NOT NULL) THEN
553: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_USTOTCM_NOT_IN_PROG_US');
554: FND_MSG_PUB.ADD;
555: x_return_value := FALSE;
556: END IF;
557: END IF;
558: --
561: --
562: IF (INSTR (p_hold_effect_type, 'EXC_CRS_U') = 0) THEN
563: IF (p_lgcy_prout_rec.s_unit_type = 'EXCLUDED') THEN
564: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_UOTCM_NOT_IN_PROG_U');
565: FND_MSG_PUB.ADD;
566: x_return_value := FALSE;
567: END IF;
568: END IF;
569: --
572: --
573: IF (INSTR (p_hold_effect_type, 'RQRD_CRS_U') = 0) THEN
574: IF (p_lgcy_prout_rec.s_unit_type = 'REQUIRED') THEN
575: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_UOTCM_NOT_IN_RQRD');
576: FND_MSG_PUB.ADD;
577: x_return_value := FALSE;
578: END IF;
579: END IF;
580: --
584: IF ((INSTR (p_hold_effect_type, 'RSTR_GE_CP') > 0) OR
585: (INSTR (p_hold_effect_type, 'RSTR_LE_CP') > 0)) THEN
586: IF (p_lgcy_prout_rec.restricted_enrolment_cp IS NULL) THEN
587: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_RERN_CPO_MEN_URE');
588: FND_MSG_PUB.ADD;
589: x_return_value := FALSE;
590: END IF;
591: END IF;
592: --
595: --
596: IF (INSTR (p_hold_effect_type, 'RSTR_AT_TY') > 0) THEN
597: IF (p_lgcy_prout_rec.restricted_attendance_type IS NULL) THEN
598: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_REATY_MEN_PROT_ATRES');
599: FND_MSG_PUB.ADD;
600: x_return_value := FALSE;
601: END IF;
602: END IF;
603: --
606: --
607: IF (INSTR (p_hold_effect_type, 'EXC_CRS_GP') > 0) THEN
608: IF (p_lgcy_prout_rec.encmb_program_group_cd IS NULL) THEN
609: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_ENCUM_CGP_MEN_EXC');
610: FND_MSG_PUB.ADD;
611: x_return_value := FALSE;
612: END IF;
613: END IF;
614: --
620: p_lgcy_prout_rec.encmb_program_group_cd,
621: x_message_name
622: )) THEN
623: FND_MESSAGE.SET_NAME ('IGS', x_message_name);
624: FND_MSG_PUB.ADD;
625: x_return_value := FALSE;
626: END IF;
627: --
628: -- Check that the Restricted Attendance Type can be set only when the
633: p_lgcy_prout_rec.restricted_attendance_type,
634: x_message_name
635: )) THEN
636: FND_MESSAGE.SET_NAME ('IGS', x_message_name);
637: FND_MSG_PUB.ADD;
638: x_return_value := FALSE;
639: END IF;
640: --
641: -- Check that the Restricted Enrollment CP can be set only when the
647: p_lgcy_prout_rec.restricted_enrolment_cp,
648: x_message_name
649: )) THEN
650: FND_MESSAGE.SET_NAME ('IGS', x_message_name);
651: FND_MSG_PUB.ADD;
652: x_return_value := FALSE;
653: END IF;
654: --
655: -- Check that when Duration is set, the Duration Type must also be set and vice versa
660: p_lgcy_prout_rec.duration_type,
661: x_message_name
662: )) THEN
663: FND_MESSAGE.SET_NAME ('IGS', x_message_name);
664: FND_MSG_PUB.ADD;
665: x_return_value := FALSE;
666: END IF;
667: --
668: -- When the System Progression Outcome Type corresponding to the Progression
674: --
675: IF ((v_s_progression_outcome_type = 'SUSPENSION') AND
676: (p_lgcy_prout_rec.duration IS NULL)) THEN
677: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_DU_DUTY_SUS');
678: FND_MSG_PUB.ADD;
679: x_return_value := FALSE;
680: END IF;
681: --
682: -- When the System Progression Outcome Type corresponding to the Progression
685: --
686: IF ((v_s_progression_outcome_type IN ('EXCLUSION', 'EXPULSION', 'NOPENALTY', 'EX_FUND')) AND
687: (p_lgcy_prout_rec.duration IS NOT NULL)) THEN
688: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_DUTY_PRTY_EXC_NOP');
689: FND_MSG_PUB.ADD;
690: x_return_value := FALSE;
691: END IF;
692: --
693: -- When the System Progression Outcome Type corresponding to the Progression
696: --
697: IF ((v_s_progression_outcome_type NOT IN ('PROBATION', 'MANUAL')) AND
698: (p_lgcy_prout_rec.duration_type = 'EFFECTIVE')) THEN
699: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_DTYP_CNTEF_PRO_MAN');
700: FND_MSG_PUB.ADD;
701: x_return_value := FALSE;
702: END IF;
703: --
704: -- When the Show Cause Date is Null then the Show Cause Outcome Date and
707: IF ((p_lgcy_prout_rec.show_cause_dt IS NULL) AND
708: ((p_lgcy_prout_rec.show_cause_outcome_dt IS NOT NULL) OR
709: (p_lgcy_prout_rec.show_cause_outcome_type IS NOT NULL))) THEN
710: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_SHCA_OTY_ODTCT_SCDT_NT');
711: FND_MSG_PUB.ADD;
712: x_return_value := FALSE;
713: END IF;
714: --
715: -- Check that Show Cause Outcome Date is not greater than System Date
716: --
717: IF ((p_lgcy_prout_rec.show_cause_outcome_dt IS NOT NULL) AND
718: (TRUNC(p_lgcy_prout_rec.show_cause_outcome_dt) > TRUNC(SYSDATE))) THEN
719: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_SHCA_OUDT_CNT_FUT');
720: FND_MSG_PUB.ADD;
721: x_return_value := FALSE;
722: END IF;
723: --
724: -- Check that when the Show Cause Outcome Date is set then the Show Cause
726: --
727: IF ((p_lgcy_prout_rec.show_cause_outcome_dt IS NULL) AND
728: (p_lgcy_prout_rec.show_cause_outcome_type IS NOT NULL)) THEN
729: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_SCADT_MST_SHOTY_ST');
730: FND_MSG_PUB.ADD;
731: x_return_value := FALSE;
732: END IF;
733: --
734: IF ((p_lgcy_prout_rec.show_cause_outcome_dt IS NOT NULL) AND
733: --
734: IF ((p_lgcy_prout_rec.show_cause_outcome_dt IS NOT NULL) AND
735: (p_lgcy_prout_rec.show_cause_outcome_type IS NULL)) THEN
736: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_SHOT_TYMST_SCO_DTST');
737: FND_MSG_PUB.ADD;
738: x_return_value := FALSE;
739: END IF;
740: --
741: -- Check that the Show Cause Date is not a future date
742: --
743: IF ((p_lgcy_prout_rec.show_cause_dt IS NOT NULL) AND
744: (TRUNC(p_lgcy_prout_rec.show_cause_dt) > TRUNC(SYSDATE))) THEN
745: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_SHCA_DT_CNT_FUT');
746: FND_MSG_PUB.ADD;
747: x_return_value := FALSE;
748: END IF;
749: --
750: -- Check that Show Cause Date is not set when the Decision Date is Null
751: --
752: IF ((p_lgcy_prout_rec.show_cause_dt IS NOT NULL) AND
753: (p_lgcy_prout_rec.decision_dt IS NULL)) THEN
754: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_SHCDT_CNT_ST_DEDT_NST');
755: FND_MSG_PUB.ADD;
756: x_return_value := FALSE;
757: END IF;
758: --
759: -- Check that Show Cause Date is not set when Show Cause Expiry Date is Null
760: --
761: IF ((p_lgcy_prout_rec.show_cause_expiry_dt IS NULL) AND
762: (p_lgcy_prout_rec.show_cause_dt IS NOT NULL)) THEN
763: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_SCADT_CNT_SHEX_DTNST');
764: FND_MSG_PUB.ADD;
765: x_return_value := FALSE;
766: END IF;
767: --
768: -- Check that Show Cause Expiry Date is not set when decision is not made.
771: --
772: IF ((p_lgcy_prout_rec.show_cause_expiry_dt IS NOT NULL) AND
773: (p_lgcy_prout_rec.decision_dt IS NULL)) THEN
774: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_SHCA_EXPDT_CNTB_DSTNA');
775: FND_MSG_PUB.ADD;
776: x_return_value := FALSE;
777: END IF;
778: --
779: -- Check that Show Cause Expiry Date is not greater than the Appeal Expiry Date
782: igs_ge_date.igsdate('0001/01/01'))) >
783: TRUNC (NVL (p_lgcy_prout_rec.appeal_expiry_dt,
784: igs_ge_date.igsdate('9999/01/01')))) THEN
785: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_SH_EXPDT_CNT_APEXDT');
786: FND_MSG_PUB.ADD;
787: x_return_value := FALSE;
788: END IF;
789: --
790: -- Check that when Appeal Date is Null then Appeal Outcome Date and
793: IF ((p_lgcy_prout_rec.appeal_dt IS NULL) AND
794: ((p_lgcy_prout_rec.appeal_outcome_dt IS NOT NULL) OR
795: (p_lgcy_prout_rec.appeal_outcome_type IS NOT NULL))) THEN
796: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_APOTY_DTCNT_APDT_NST');
797: FND_MSG_PUB.ADD;
798: x_return_value := FALSE;
799: END IF;
800: --
801: -- Check that Appeal Outcome Date not greater than System date
802: --
803: IF ((p_lgcy_prout_rec.appeal_outcome_dt IS NOT NULL) AND
804: (TRUNC(p_lgcy_prout_rec.appeal_outcome_dt) > TRUNC(SYSDATE))) THEN
805: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_APOUT_DT_CNT_FUT');
806: FND_MSG_PUB.ADD;
807: x_return_value := FALSE;
808: END IF;
809: --
810: -- Check that Appeal Outcome Date is set then the Appeal Outcome Type should
812: --
813: IF ((p_lgcy_prout_rec.appeal_outcome_dt IS NULL) AND
814: (p_lgcy_prout_rec.appeal_outcome_type IS NOT NULL)) THEN
815: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_APODT_MST_AOTY_ST');
816: FND_MSG_PUB.ADD;
817: x_return_value := FALSE;
818: END IF;
819: --
820: IF ((p_lgcy_prout_rec.appeal_outcome_dt IS NOT NULL) AND
819: --
820: IF ((p_lgcy_prout_rec.appeal_outcome_dt IS NOT NULL) AND
821: (p_lgcy_prout_rec.appeal_outcome_type IS NULL)) THEN
822: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_APOTY_MST_AODT_ST');
823: FND_MSG_PUB.ADD;
824: x_return_value := FALSE;
825: END IF;
826: --
827: -- Check that the Appeal Date is not a future date
828: --
829: IF ((p_lgcy_prout_rec.appeal_dt IS NOT NULL) AND
830: (TRUNC(p_lgcy_prout_rec.appeal_dt) > TRUNC(SYSDATE))) THEN
831: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_APOUT_DT_CNT_FUT');
832: FND_MSG_PUB.ADD;
833: x_return_value := FALSE;
834: END IF;
835: --
836: -- Check that Appeal Date is not lesser than the Show Cause Date
839: igs_ge_date.igsdate('9999/01/01'))) <
840: TRUNC (NVL (p_lgcy_prout_rec.show_cause_dt,
841: igs_ge_date.igsdate('0001/01/01')))) THEN
842: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_APDT_CNTS_BSHDT');
843: FND_MSG_PUB.ADD;
844: x_return_value := FALSE;
845: END IF;
846: --
847: -- Check that Appeal Expiry Date is not set when decision is not made
850: --
851: IF ((p_lgcy_prout_rec.appeal_expiry_dt IS NOT NULL) AND
852: (p_lgcy_prout_rec.decision_dt IS NULL)) THEN
853: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_AEXDT_CNT_ST_DECST_NTAP');
854: FND_MSG_PUB.ADD;
855: x_return_value := FALSE;
856: END IF;
857: --
858: -- Organization Unit Filter Integration Validation
875: FETCH l_ref_cur INTO l_record_found;
876: IF (l_ref_cur%NOTFOUND) THEN
877: FND_MESSAGE.SET_NAME ('IGS', 'IGS_EN_INV');
878: FND_MESSAGE.SET_TOKEN ('PARAM', p_lgcy_prout_rec.decision_org_unit_cd);
879: FND_MSG_PUB.ADD;
880: x_return_value := FALSE;
881: END IF;
882: CLOSE l_ref_cur;
883: END IF;
906: (NOT igs_ps_course_pkg.get_pk_for_validation (
907: p_lgcy_prout_rec.program_cd
908: ))) THEN
909: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_PS_COURSE_FK');
910: FND_MSG_PUB.ADD;
911: x_return_value := FALSE;
912: END IF;
913: --
914: -- Student Progression Outcome Existence
921: p_lgcy_prout_rec.program_cd,
922: p_sequence_number
923: ))) THEN
924: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_PRG_SPO_FK');
925: FND_MSG_PUB.ADD;
926: x_return_value := FALSE;
927: END IF;
928: --
929: -- Primary Key Validation
938: p_sequence_number,
939: p_lgcy_prout_rec.spo_program_cd
940: ))) THEN
941: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_NO_SPPRG_EXIST');
942: FND_MSG_PUB.ADD;
943: x_return_value := FALSE;
944: END IF;
945: --
946: RETURN (x_return_value);
968: IF ((INSTR (p_hold_effect_type, 'SUS_COURSE') = 0) AND
969: (INSTR (p_hold_effect_type, 'EXC_COURSE') = 0)) THEN
970: IF (p_lgcy_prout_rec.spo_program_cd IS NOT NULL) THEN
971: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_PRGOTCM_NOT_IN_SUS_EXC');
972: FND_MSG_PUB.ADD;
973: x_return_value := FALSE;
974: END IF;
975: END IF;
976: --
1000: p_lgcy_prout_rec.unit_set_cd,
1001: p_lgcy_prout_rec.us_version_number
1002: ))) THEN
1003: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_USET_UNITSET_FK');
1004: FND_MSG_PUB.ADD;
1005: x_return_value := FALSE;
1006: END IF;
1007: --
1008: -- Student Progression Outcome Existence
1015: p_lgcy_prout_rec.program_cd,
1016: p_sequence_number
1017: ))) THEN
1018: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_PRG_SPO_FK');
1019: FND_MSG_PUB.ADD;
1020: x_return_value := FALSE;
1021: END IF;
1022: --
1023: -- Primary Key Validation
1034: p_lgcy_prout_rec.unit_set_cd,
1035: p_lgcy_prout_rec.us_version_number
1036: ))) THEN
1037: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_NO_SPUSET_EXIST');
1038: FND_MSG_PUB.ADD;
1039: x_return_value := FALSE;
1040: END IF;
1041: --
1042: RETURN (x_return_value);
1073: IF ((INSTR (p_hold_effect_type, 'EXC_CRS_US') = 0) AND
1074: (p_lgcy_prout_rec.unit_set_cd IS NOT NULL) AND
1075: (p_lgcy_prout_rec.us_version_number IS NOT NULL)) THEN
1076: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_STPR_OUT_EXC_CRS_US');
1077: FND_MSG_PUB.ADD;
1078: x_return_value := FALSE;
1079: END IF;
1080: IF ((p_lgcy_prout_rec.unit_set_cd IS NOT NULL) AND
1081: (p_lgcy_prout_rec.us_version_number IS NOT NULL)) THEN
1085: p_sequence_number,
1086: x_message_name
1087: )) THEN
1088: FND_MESSAGE.SET_NAME ('IGS', x_message_name);
1089: FND_MSG_PUB.ADD;
1090: x_return_value := FALSE;
1091: END IF;
1092: END IF;
1093: --
1098: OPEN cur_us_uss;
1099: FETCH cur_us_uss INTO l_record_found;
1100: IF (cur_us_uss%NOTFOUND) THEN
1101: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_UNIT_SET_NOT_PLANNED');
1102: FND_MSG_PUB.ADD;
1103: x_return_value := FALSE;
1104: END IF;
1105: CLOSE cur_us_uss;
1106: END IF;
1129: (NOT igs_ps_unit_pkg.get_pk_for_validation (
1130: p_lgcy_prout_rec.unit_cd
1131: ))) THEN
1132: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_UNIT_UEXIST_FK');
1133: FND_MSG_PUB.ADD;
1134: x_return_value := FALSE;
1135: END IF;
1136: --
1137: -- Student Progression Outcome Existence
1144: p_lgcy_prout_rec.program_cd,
1145: p_sequence_number
1146: ))) THEN
1147: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_PRG_SPO_FK');
1148: FND_MSG_PUB.ADD;
1149: x_return_value := FALSE;
1150: END IF;
1151: --
1152: -- Primary Key Validation
1161: p_sequence_number,
1162: p_lgcy_prout_rec.unit_cd
1163: ))) THEN
1164: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_NO_SPUNIT_EXIST');
1165: FND_MSG_PUB.ADD;
1166: x_return_value := FALSE;
1167: END IF;
1168: --
1169: -- Valid Value Checks
1178: WHEN OTHERS THEN
1179: --
1180: -- Delete the top message and add a new message in place of it
1181: --
1182: FND_MSG_PUB.Delete_Msg (FND_MSG_PUB.Count_Msg);
1183: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_UNIT_TYPE_VALID');
1184: FND_MSG_PUB.ADD;
1185: x_return_value := FALSE;
1186: END;
1180: -- Delete the top message and add a new message in place of it
1181: --
1182: FND_MSG_PUB.Delete_Msg (FND_MSG_PUB.Count_Msg);
1183: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_UNIT_TYPE_VALID');
1184: FND_MSG_PUB.ADD;
1185: x_return_value := FALSE;
1186: END;
1187: END IF;
1188: --
1208: IF ((p_lgcy_prout_rec.unit_cd IS NOT NULL) AND
1209: (p_lgcy_prout_rec.s_unit_type = 'EXCLUDED') AND
1210: (INSTR (p_hold_effect_type, 'EXC_CRS_U') = 0)) THEN
1211: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_STPR_OUT_EXC_CRS_U');
1212: FND_MSG_PUB.ADD;
1213: x_return_value := FALSE;
1214: END IF;
1215: --
1216: -- Check that Unit is Not Null with s_unit_type as 'REQUIRED' only when the
1219: IF ((p_lgcy_prout_rec.unit_cd IS NOT NULL) AND
1220: (p_lgcy_prout_rec.s_unit_type = 'REQUIRED') AND
1221: (INSTR (p_hold_effect_type, 'RQRD_CRS_U') = 0)) THEN
1222: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_STPR_OUT_RQRD_CRS_U');
1223: FND_MSG_PUB.ADD;
1224: x_return_value := FALSE;
1225: END IF;
1226: --
1227: RETURN (x_return_value);
1248: (NOT igs_ps_awd_pkg.get_pk_for_validation (
1249: p_lgcy_prout_rec.award_cd
1250: ))) THEN
1251: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_AWD_AWARD_FK');
1252: FND_MSG_PUB.ADD;
1253: x_return_value := FALSE;
1254: END IF;
1255: --
1256: -- Student Progression Outcome Existence
1263: p_lgcy_prout_rec.program_cd,
1264: p_sequence_number
1265: ))) THEN
1266: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_PRG_SPO_FK');
1267: FND_MSG_PUB.ADD;
1268: x_return_value := FALSE;
1269: END IF;
1270: --
1271: -- Primary Key Validation
1280: p_sequence_number,
1281: p_lgcy_prout_rec.award_cd
1282: ))) THEN
1283: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_NO_SPAWD_EXIST');
1284: FND_MSG_PUB.ADD;
1285: x_return_value := FALSE;
1286: END IF;
1287: --
1288: RETURN (x_return_value);
1319: FETCH cur_award INTO rec_award;
1320: CLOSE cur_award;
1321: IF (rec_award.s_award_type NOT IN ('MEDAL','PRIZE')) THEN
1322: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_AWD_MED_PRIZE');
1323: FND_MSG_PUB.ADD;
1324: x_return_value := FALSE;
1325: END IF;
1326: END IF;
1327: --
1332: FETCH cur_positive_otcm INTO rec_positive_otcm;
1333: CLOSE cur_positive_otcm;
1334: IF (rec_positive_otcm.positive_outcome_ind <> 'Y') THEN
1335: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_AWD_NOT_POS');
1336: FND_MSG_PUB.ADD;
1337: x_return_value := FALSE;
1338: END IF;
1339: END IF;
1340: --
1366: (NOT igf_aw_fund_cat_pkg.get_uk_for_validation (
1367: p_lgcy_prout_rec.fund_code
1368: ))) THEN
1369: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_FUND_CODE_FK');
1370: FND_MSG_PUB.ADD;
1371: x_return_value := FALSE;
1372: END IF;
1373: --
1374: -- Primary Key Validation
1383: p_sequence_number,
1384: p_lgcy_prout_rec.fund_code
1385: ))) THEN
1386: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PR_NO_SPFUND_EXIST');
1387: FND_MSG_PUB.ADD;
1388: x_return_value := FALSE;
1389: END IF;
1390: --
1391: RETURN (x_return_value);
1434: --
1435: -- Initialize message list if p_init_msg_list is set to TRUE.
1436: --
1437: IF (FND_API.to_Boolean (p_init_msg_list)) THEN
1438: FND_MSG_PUB.Initialize;
1439: END IF;
1440: --
1441: -- Initialize API return status to success.
1442: --
1742: END IF;
1743: --
1744: -- Standard call to get message count and if count is 1, get message info.
1745: --
1746: FND_MSG_PUB.Count_And_Get (
1747: p_count => x_msg_count,
1748: p_data => x_msg_data
1749: );
1750: --
1751: EXCEPTION
1752: WHEN FND_API.G_EXC_ERROR THEN
1753: ROLLBACK TO create_outcome;
1754: x_return_status := FND_API.G_RET_STS_ERROR;
1755: FND_MSG_PUB.Count_And_Get (
1756: p_count => x_msg_count,
1757: p_data => x_msg_data
1758: );
1759: --
1759: --
1760: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1761: ROLLBACK TO create_outcome;
1762: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1763: FND_MSG_PUB.Count_And_Get (
1764: p_count => x_msg_count,
1765: p_data => x_msg_data
1766: );
1767: --
1769: ROLLBACK TO create_outcome;
1770: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1771: --
1772: -- kdande; 02-Jan-2003; Bug# 2732568; Removed the call to
1773: -- FND_MSG_PUB.Add_Exc_Msg to avoid message repeatition.
1774: --
1775: FND_MSG_PUB.Count_And_Get (
1776: p_count => x_msg_count,
1777: p_data => x_msg_data
1771: --
1772: -- kdande; 02-Jan-2003; Bug# 2732568; Removed the call to
1773: -- FND_MSG_PUB.Add_Exc_Msg to avoid message repeatition.
1774: --
1775: FND_MSG_PUB.Count_And_Get (
1776: p_count => x_msg_count,
1777: p_data => x_msg_data
1778: );
1779: END create_outcome;