[Home] [Help]
51: Open cur_old_ref_values;
52: Fetch cur_old_ref_values INTO old_references;
53: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT', 'VALIDATE_INSERT')) THEN
54: Close cur_old_ref_values;
55: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
56: IGS_GE_MSG_STACK.ADD;
57: App_Exception.Raise_Exception;
58: Return;
59: END IF;
140: NVL(old_references.citation,' ') <> NVL(new_references.citation,' ') OR
141: NVL(old_references.comments,' ') <> NVL(new_references.comments,' ') THEN
142: IF IGS_RE_VAL_THE.resp_val_the_upd(new_references.logical_delete_dt,
143: v_message_name) = FALSE THEN
144: Fnd_Message.Set_Name ('IGS', v_message_name);
145: IGS_GE_MSG_STACK.ADD;
146: App_Exception.Raise_Exception;
147: END IF;
148: END IF;
155: new_references.sequence_number,
156: new_references.final_title_ind,
157: v_thesis_status,
158: v_message_name) = FALSE THEN
159: Fnd_Message.Set_Name ('IGS', v_message_name);
160: IGS_GE_MSG_STACK.ADD;
161: App_Exception.Raise_Exception;
162: END IF;
163: END IF;
166: IF IGS_RE_VAL_THE.resp_val_the_ttl( old_references.title,
167: new_references.title,
168: old_references.thesis_result_cd,
169: v_message_name) = FALSE THEN
170: Fnd_Message.Set_Name ('IGS', v_message_name);
171: IGS_GE_MSG_STACK.ADD;
172: App_Exception.Raise_Exception;
173: END IF;
174: END IF;
184: new_references.embargo_expiry_dt,
185: v_thesis_status,
186: 'N', --p_legacy parameter
187: v_message_name) = FALSE THEN
188: Fnd_Message.Set_Name ('IGS', v_message_name);
189: IGS_GE_MSG_STACK.ADD;
190: App_Exception.Raise_Exception;
191: END IF;
192: END IF;
196: -- Validate citation
197: IF IGS_RE_VAL_THE.resp_val_the_ctn( v_thesis_status,
198: new_references.citation,
199: v_message_name) = FALSE THEN
200: Fnd_Message.Set_Name ('IGS', v_message_name);
201: IGS_GE_MSG_STACK.ADD;
202: App_Exception.Raise_Exception;
203: END IF;
204: END IF;
215: new_references.library_catalogue_number,
216: new_references.library_lodgement_dt,
217: v_thesis_status,
218: v_message_name) = FALSE THEN
219: Fnd_Message.Set_Name ('IGS', v_message_name);
220: IGS_GE_MSG_STACK.ADD;
221: App_Exception.Raise_Exception;
222: END IF;
223: END IF;
231: new_references.thesis_result_cd,
232: v_thesis_status,
233: 'N', --p_legacy parameter
234: v_message_name) = FALSE THEN
235: Fnd_Message.Set_Name ('IGS', v_message_name);
236: IGS_GE_MSG_STACK.ADD;
237: App_Exception.Raise_Exception;
238: END IF;
239: END IF;
244: new_references.sequence_number,
245: new_references.logical_delete_dt,
246: v_thesis_status,
247: v_message_name) = FALSE THEN
248: Fnd_Message.Set_Name ('IGS', v_message_name);
249: IGS_GE_MSG_STACK.ADD;
250: App_Exception.Raise_Exception;
251: END IF;
252: END IF;
256: NVL(new_references.logical_delete_dt,igs_ge_date.igsdate('1900/01/01'))) THEN
257: IF IGS_RE_VAL_THE.resp_val_the_del_dt( old_references.logical_delete_dt,
258: new_references.logical_delete_dt,
259: v_message_name) = FALSE THEN
260: Fnd_Message.Set_Name ('IGS', v_message_name);
261: IGS_GE_MSG_STACK.ADD;
262: App_Exception.Raise_Exception;
263: END IF;
264: END IF;
271: new_references.ca_sequence_number,
272: new_references.expected_submission_dt,
273: 'N', --p_legacy
274: v_message_name) = FALSE THEN
275: Fnd_Message.Set_Name ('IGS', v_message_name);
276: IGS_GE_MSG_STACK.ADD;
277: App_Exception.Raise_Exception;
278: END IF;
279: END IF;
383: new_references.THESIS_RESULT_CD := COLUMN_VALUE ;
384: END IF;
385: IF upper(column_name) = 'CA_SEQUENCE_NUMBER' OR COLUMN_NAME IS NULL THEN
386: IF new_references.CA_SEQUENCE_NUMBER < 1 OR new_references.CA_SEQUENCE_NUMBER > 999999 then
387: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
388: IGS_GE_MSG_STACK.ADD;
389: App_Exception.Raise_Exception ;
390: END IF;
391: END IF;
391: END IF;
392: IF upper(column_name) = 'FINAL_TITLE_IND' OR COLUMN_NAME IS NULL THEN
393: IF new_references.FINAL_TITLE_IND <> upper(NEW_REFERENCES.FINAL_TITLE_IND) OR
394: new_references.FINAL_TITLE_IND NOT IN ('Y', 'N') then
395: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
396: IGS_GE_MSG_STACK.ADD;
397: App_Exception.Raise_Exception ;
398: END IF;
399: END IF;
398: END IF;
399: END IF;
400: IF upper(column_name) = 'SEQUENCE_NUMBER' OR COLUMN_NAME IS NULL THEN
401: IF new_references.SEQUENCE_NUMBER < 1 OR new_references.SEQUENCE_NUMBER > 999999 then
402: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
403: IGS_GE_MSG_STACK.ADD;
404: App_Exception.Raise_Exception ;
405: END IF;
406: END IF;
405: END IF;
406: END IF;
407: IF upper(column_name) = 'LIBRARY_CATALOGUE_NUMBER' OR COLUMN_NAME IS NULL THEN
408: IF new_references.LIBRARY_CATALOGUE_NUMBER <> NEW_REFERENCES.LIBRARY_CATALOGUE_NUMBER then
409: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
410: IGS_GE_MSG_STACK.ADD;
411: App_Exception.Raise_Exception ;
412: END IF;
413: END IF;
412: END IF;
413: END IF;
414: IF upper(column_name) = 'THESIS_FORMAT' OR COLUMN_NAME IS NULL THEN
415: IF new_references.THESIS_FORMAT <> NEW_REFERENCES.THESIS_FORMAT then
416: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
417: IGS_GE_MSG_STACK.ADD;
418: App_Exception.Raise_Exception ;
419: END IF;
420: END IF;
419: END IF;
420: END IF;
421: IF upper(column_name) = 'THESIS_RESULT_CD' OR COLUMN_NAME IS NULL THEN
422: IF new_references.THESIS_RESULT_CD <> upper(NEW_REFERENCES.THESIS_RESULT_CD) then
423: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
424: App_Exception.Raise_Exception ;
425: END IF;
426: END IF;
427: END Check_Constraints ;
436: IF NOT IGS_RE_CANDIDATURE_PKG.Get_PK_For_Validation (
437: new_references.person_id,
438: new_references.ca_sequence_number
439: ) THEN
440: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
441: IGS_GE_MSG_STACK.ADD;
442: App_Exception.Raise_Exception;
443: END IF;
444: END IF;
448: ELSE
449: IF NOT IGS_RE_THESIS_RESULT_PKG.Get_PK_For_Validation (
450: new_references.thesis_result_cd
451: ) THEN
452: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
453: IGS_GE_MSG_STACK.ADD;
454: App_Exception.Raise_Exception;
455: END IF;
456: END IF;
501: Open cur_rowid;
502: Fetch cur_rowid INTO lv_rowid;
503: IF (cur_rowid%FOUND) THEN
504: Close cur_rowid;
505: Fnd_Message.Set_Name ('IGS', 'IGS_RE_THE_CA_FK');
506: IGS_GE_MSG_STACK.ADD;
507: App_Exception.Raise_Exception;
508: Return;
509: END IF;
521: Open cur_rowid;
522: Fetch cur_rowid INTO lv_rowid;
523: IF (cur_rowid%FOUND) THEN
524: Close cur_rowid;
525: Fnd_Message.Set_Name ('IGS', 'IGS_RE_THE_THR_FK');
526: IGS_GE_MSG_STACK.ADD;
527: App_Exception.Raise_Exception;
528: Return;
529: END IF;
595: new_references.person_id,
596: new_references.ca_sequence_number,
597: new_references.sequence_number
598: ) THEN
599: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
600: IGS_GE_MSG_STACK.ADD;
601: App_Exception.Raise_Exception;
602: END IF;
603: Check_Constraints;
617: new_references.person_id,
618: new_references.ca_sequence_number,
619: new_references.sequence_number
620: ) THEN
621: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
622: IGS_GE_MSG_STACK.ADD;
623: App_Exception.Raise_Exception;
624: END IF;
625: Check_Constraints;
697: if X_LAST_UPDATE_LOGIN is NULL then
698: X_LAST_UPDATE_LOGIN := -1;
699: end if;
700: else
701: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
702: IGS_GE_MSG_STACK.ADD;
703: app_exception.raise_exception;
704: end if;
705: Before_DML (
804:
805: EXCEPTION
806: WHEN OTHERS THEN
807: IF (SQLCODE IN (-28115, -28113, -28111)) THEN
808: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
809: fnd_message.set_token ('ERR_CD', SQLCODE);
810: igs_ge_msg_stack.add;
811: igs_sc_gen_001.unset_ctx('R');
812: app_exception.raise_exception;
805: EXCEPTION
806: WHEN OTHERS THEN
807: IF (SQLCODE IN (-28115, -28113, -28111)) THEN
808: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
809: fnd_message.set_token ('ERR_CD', SQLCODE);
810: igs_ge_msg_stack.add;
811: igs_sc_gen_001.unset_ctx('R');
812: app_exception.raise_exception;
813: ELSE
861: open c1;
862: fetch c1 into tlinfo;
863: if (c1%notfound) then
864: close c1;
865: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
866: app_exception.raise_exception;
867: return;
868: end if;
869: close c1;
911:
912: ) then
913: null;
914: else
915: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
916: app_exception.raise_exception;
917: end if;
918: return;
919: end LOCK_ROW;
956: if X_LAST_UPDATE_LOGIN is NULL then
957: X_LAST_UPDATE_LOGIN := -1;
958: end if;
959: else
960: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
961: IGS_GE_MSG_STACK.ADD;
962: app_exception.raise_exception;
963: end if;
964: Before_DML (
1012: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
1013: where ROWID = X_ROWID
1014: ;
1015: if (sql%notfound) then
1016: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
1017: igs_ge_msg_stack.add;
1018: igs_sc_gen_001.unset_ctx('R');
1019: app_exception.raise_exception;
1020: end if;
1028: );
1029: EXCEPTION
1030: WHEN OTHERS THEN
1031: IF (SQLCODE = (-28115)) THEN
1032: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
1033: fnd_message.set_token ('ERR_CD', SQLCODE);
1034: igs_ge_msg_stack.add;
1035: igs_sc_gen_001.unset_ctx('R');
1036: app_exception.raise_exception;
1029: EXCEPTION
1030: WHEN OTHERS THEN
1031: IF (SQLCODE = (-28115)) THEN
1032: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
1033: fnd_message.set_token ('ERR_CD', SQLCODE);
1034: igs_ge_msg_stack.add;
1035: igs_sc_gen_001.unset_ctx('R');
1036: app_exception.raise_exception;
1037: ELSE
1134: END IF;
1135: delete from IGS_RE_THESIS_ALL
1136: where ROWID = X_ROWID;
1137: if (sql%notfound) then
1138: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
1139: igs_ge_msg_stack.add;
1140: igs_sc_gen_001.unset_ctx('R');
1141: app_exception.raise_exception;
1142: end if;