[Home] [Help]
41: -- If the Person Number is not passed then log an error and continue.
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.
49: -- If the Program Code is not passed then log an error and continue.
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.
66: -- If the Decision Status is not passed then log an error and continue.
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.
125: --
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;
150: --
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: --
156: --
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;
189: IF (NOT igs_re_val_rsup.get_org_unit_dtls (
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;
206: OPEN cur_hold_effect_type;
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;
247: IF (p_lgcy_prout_rec.restricted_attendance_type IS NOT NULL) THEN
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;
259: IF (p_lgcy_prout_rec.encmb_program_group_cd IS NOT NULL) THEN
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;
272: IF (NOT igs_or_unit_pkg.get_pk_for_validation (
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;
287: IF (p_lgcy_prout_rec.progression_outcome_type IS NOT NULL) THEN
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;
300: p_person_id,
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: --
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;
327: END IF;
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;
345: END IF;
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;
363: END IF;
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;
381: END IF;
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;
399: END IF;
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;
417: END IF;
462: --
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;
475: p_prg_cal_type,
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: --
486: IF (NOT igs_pr_val_spo.prgp_val_spo_exp_dt (
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: --
498: IF (p_lgcy_prout_rec.decision_status = 'PENDING') THEN
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;
511: IF (p_lgcy_prout_rec.decision_status IN ('APPROVED', 'WAIVED')) THEN
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;
523: IF (NOT igs_pr_val_spo.prgp_val_spo_dcsn_dt (
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: --
538: --
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;
549: -- type is not set to 'EXC_CRS_US' - Exclusion from a Unit set
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;
560: -- effect type is not set to 'EXC_CRS_U' - Exclude Unit
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;
571: -- effect type is not set to 'RQRD_CRS_U' - Required Unit
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;
583: --
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;
594: -- validate whether the Restricted Attendance Type is set
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;
605: -- validate whether the Encumbrance Program Group Code is set
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;
619: p_lgcy_prout_rec.progression_outcome_type,
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: --
632: p_lgcy_prout_rec.progression_outcome_type,
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: --
646: p_lgcy_prout_rec.progression_outcome_type,
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: --
659: p_lgcy_prout_rec.duration,
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: --
673: CLOSE cur_pot;
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: --
684: -- then Duration must not be set
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: --
695: -- be 'EFFECTIVE'
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: --
706: --
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: --
725: -- Outcome Type should also be set and vice versa
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: --
732: END IF;
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: --
770: -- decision_dt instead of decision_status.
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: --
781: IF (TRUNC (NVL (p_lgcy_prout_rec.show_cause_expiry_dt,
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: --
792: --
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: --
811: -- also be set and vice versa
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: --
818: END IF;
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: --
838: IF (TRUNC (NVL (p_lgcy_prout_rec.appeal_dt,
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: --
849: -- decision_dt instead of decision_status.
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: --
873: END IF;
874:
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;
874:
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;
905: IF ((p_lgcy_prout_rec.program_cd IS NOT NULL) AND
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: --
920: p_person_id,
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: --
937: p_lgcy_prout_rec.program_cd,
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: --
967: --
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;
999: (NOT igs_en_unit_set_pkg.get_pk_for_validation (
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: --
1014: p_person_id,
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: --
1033: p_sequence_number,
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: --
1072: --
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
1084: p_lgcy_prout_rec.program_cd,
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;
1097: (p_lgcy_prout_rec.us_version_number IS NOT NULL)) THEN
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;
1128: IF ((p_lgcy_prout_rec.unit_cd IS NOT NULL) AND
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: --
1143: p_person_id,
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: --
1160: p_lgcy_prout_rec.program_cd,
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: --
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;
1187: END IF;
1207: --
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: --
1218: --
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: --
1247: IF ((p_lgcy_prout_rec.award_cd IS NOT NULL) AND
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: --
1262: p_person_id,
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: --
1279: p_lgcy_prout_rec.program_cd,
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: --
1318: OPEN cur_award;
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;
1331: OPEN cur_positive_otcm;
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;
1365: IF ((p_lgcy_prout_rec.fund_code IS NOT NULL) AND
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: --
1382: p_lgcy_prout_rec.program_cd,
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: --