46: -- Populate Old Values.
47: Open cur_old_ref_values;
48: Fetch cur_old_ref_values INTO old_references;
49: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
50: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
51: IGS_GE_MSG_STACK.ADD;
52: App_Exception.Raise_Exception;
53: Close cur_old_ref_values;
54: Return;
116: v_submission_number,
117: v_transaction_type,
118: v_message_name) = FALSE THEN
119: --raise_application_error(-20000, IGS_GE_GEN_002.GENP_GET_MESSAGE(v_message_num));
120: FND_MESSAGE.SET_NAME('IGS',v_message_name);
121: IGS_GE_MSG_STACK.ADD;
122: APP_EXCEPTION.RAISE_EXCEPTION;
123: END IF;
124:
139: new_references.submission_yr,
140: new_references.submission_number,
141: new_references.govt_semester
142: )THEN
143: FND_MESSAGE.SET_NAME('FND','FORM_RECORD_DELETED');
144: IGS_GE_MSG_STACK.ADD;
145: APP_EXCEPTION.RAISE_EXCEPTION;
146: END IF;
147: END IF;
216: Open cur_rowid;
217: Fetch cur_rowid INTO lv_rowid;
218: IF (cur_rowid%FOUND) THEN
219: Close cur_rowid;
220: Fnd_Message.Set_Name ('IGS', 'IGS_ST_GSLO_GSEM_FK');
221: IGS_GE_MSG_STACK.ADD;
222: App_Exception.Raise_Exception;
223: Return;
224: END IF;
245: END IF;
246:
247: IF upper(column_name) = 'INDUSTRIAL_IND' OR column_name IS NULL THEN
248: IF new_references.industrial_ind NOT IN ('Y','N') THEN
249: FND_MESSAGE.SET_NAME('IGS','IGS_GE_INVALID_VALUE');
250: IGS_GE_MSG_STACK.ADD;
251: APP_EXCEPTION.RAISE_EXCEPTION;
252: END IF;
253: END IF;
252: END IF;
253: END IF;
254: IF upper(column_name) = 'SUBMISSION_YR' OR column_name IS NULL THEN
255: IF new_references.submission_yr < 0000 OR new_references.submission_yr > 9999 THEN
256: FND_MESSAGE.SET_NAME('IGS','IGS_GE_INVALID_VALUE');
257: IGS_GE_MSG_STACK.ADD;
258: APP_EXCEPTION.RAISE_EXCEPTION;
259: END IF;
260: END IF;
259: END IF;
260: END IF;
261: IF upper(column_name) = 'EFTSU' OR column_name IS NULL THEN
262: IF new_references.eftsu < 0000.000 OR new_references.eftsu > 9999.999 THEN
263: FND_MESSAGE.SET_NAME('IGS','IGS_GE_INVALID_VALUE');
264: IGS_GE_MSG_STACK.ADD;
265: APP_EXCEPTION.RAISE_EXCEPTION;
266: END IF;
267: END IF;
267: END IF;
268: IF upper(column_name) = 'UNIT_COMPLETION_STATUS' OR column_name IS NULL THEN
269: IF new_references.unit_completion_status NOT IN (1,2,3,4) THEN
270: IGS_GE_MSG_STACK.ADD;
271: FND_MESSAGE.SET_NAME('IGS','IGS_GE_INVALID_VALUE');
272: IGS_GE_MSG_STACK.ADD;
273: APP_EXCEPTION.RAISE_EXCEPTION;
274: END IF;
275: END IF;
352: new_references.tr_ou_start_dt,
353: new_references.discipline_group_cd,
354: new_references.govt_discipline_group_cd
355: )THEN
356: FND_MESSAGE.SET_NAME('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
357: IGS_GE_MSG_STACK.ADD;
358: APP_EXCEPTION.RAISE_EXCEPTION;
359: END IF;
360: Check_Constraints;
382: new_references.tr_ou_start_dt,
383: new_references.discipline_group_cd,
384: new_references.govt_discipline_group_cd
385: )THEN
386: FND_MESSAGE.SET_NAME('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
387: IGS_GE_MSG_STACK.ADD;
388: APP_EXCEPTION.RAISE_EXCEPTION;
389: END IF;
390: Check_Constraints;
476: else
477: X_PROGRAM_UPDATE_DATE := SYSDATE;
478: end if;
479: else
480: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
481: IGS_GE_MSG_STACK.ADD;
482: app_exception.raise_exception;
483: end if;
484:
623: begin
624: open c1;
625: fetch c1 into tlinfo;
626: if (c1%notfound) then
627: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
628: IGS_GE_MSG_STACK.ADD;
629: app_exception.raise_exception;
630: close c1;
631: return;
639: AND (tlinfo.UV_VERSION_NUMBER = X_UV_VERSION_NUMBER)
640: ) then
641: null;
642: else
643: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
644: IGS_GE_MSG_STACK.ADD;
645: app_exception.raise_exception;
646: end if;
647: return;
691: if X_LAST_UPDATE_LOGIN is NULL then
692: X_LAST_UPDATE_LOGIN := -1;
693: end if;
694: else
695: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
696: IGS_GE_MSG_STACK.ADD;
697: app_exception.raise_exception;
698: end if;
699: