132: IF p_legacy <> 'Y' THEN
133: RETURN FALSE;
134: ELSE
135: FND_MESSAGE.SET_NAME ('IGS',p_message_name);
136: FND_MSG_PUB.ADD;
137: END IF;
138: END IF;
139: -- Check whether > maximum submission date
140: IF v_max_sub_dt IS NULL THEN
153: IF p_legacy <> 'Y' THEN
154: RETURN FALSE;
155: ELSE
156: FND_MESSAGE.SET_NAME ('IGS',p_message_name);
157: FND_MSG_PUB.ADD;
158: RETURN FALSE;
159: END IF;
160: END IF;
161: RETURN TRUE;
201: IF p_legacy <> 'Y' THEN
202: RETURN FALSE;
203: ELSE
204: FND_MESSAGE.SET_NAME ('IGS',p_message_name);
205: FND_MSG_PUB.ADD;
206: END IF;
207: END IF;
208: -- 1. Check that if the expiry date is set that the details are set.
209: IF p_new_embargo_expiry_dt IS NOT NULL AND
212: IF p_legacy <> 'Y' THEN
213: RETURN FALSE;
214: ELSE
215: FND_MESSAGE.SET_NAME ('IGS',p_message_name);
216: FND_MSG_PUB.ADD;
217: RETURN FALSE;
218: END IF;
219: END IF;
220: -- Check that the embargo expiry date is different to the old embargo date and
428: IF v_thesis_status = cst_pending THEN
429: p_message_name := 'IGS_RE_CHK_RES_NOT_YET_EXAMIN';
430: IF p_legacy = 'Y' THEN
431: FND_MESSAGE.SET_NAME('IGS',p_message_name);
432: FND_MSG_PUB.ADD;
433: END IF;
434: RETURN FALSE;
435: END IF;
436: --2. Cannot enter if outstanding (submitted) IGS_RE_THESIS examination.
468: IF p_legacy <> 'Y' THEN
469: RETURN FALSE;
470: ELSE
471: FND_MESSAGE.SET_NAME('IGS',p_message_name);
472: FND_MSG_PUB.ADD;
473: RETURN FALSE;
474: END IF;
475: END IF;
476: -- 5. Warn if result not the same as the latest examination record.