[Home] [Help]
45: Open cur_old_ref_values;
46: Fetch cur_old_ref_values INTO old_references;
47: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT', 'VALIDATE_INSERT')) THEN
48: Close cur_old_ref_values;
49: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
50: IGS_GE_MSG_STACK.ADD;
51: App_Exception.Raise_Exception;
52: Return;
53: END IF;
92: old_references.thesis_panel_type <> new_references.thesis_panel_type) THEN
93: -- Validate the IGS_RE_THESIS panel type
94: IF IGS_RE_VAL_TEX.resp_val_tex_tpt( new_references.thesis_panel_type,
95: v_message_name) = FALSE THEN
96: Fnd_Message.Set_Name ('IGS', v_message_name);
97: IGS_GE_MSG_STACK.ADD;
98: App_Exception.Raise_Exception;
99: END IF;
100: END IF;
103: old_references.thesis_exam_type <> new_references.thesis_exam_type) THEN
104: -- Validate the IGS_RE_THESIS examination type
105: IF IGS_RE_VAL_TEX.resp_val_tex_tet( new_references.thesis_exam_type,
106: v_message_name) = FALSE THEN
107: Fnd_Message.Set_Name ('IGS', v_message_name);
108: IGS_GE_MSG_STACK.ADD;
109: App_Exception.Raise_Exception;
110: END IF;
111: END IF;
231: new_references.the_sequence_number,
232: v_transaction_type,
233: new_references.submission_dt,
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: IF NVL(NEW_REFERENCES.submission_dt,
251: new_references.submission_dt,
252: 'N', --p_legacy parameter
253: NULL, --final title indicator parameter
254: v_message_name) = FALSE THEN
255: Fnd_Message.Set_Name ('IGS', v_message_name);
256: IGS_GE_MSG_STACK.ADD;
257: App_Exception.Raise_Exception;
258: END IF;
259: END IF;
265: new_references.submission_dt,
266: new_references.thesis_result_cd,
267: new_references.thesis_panel_type,
268: v_message_name) = FALSE THEN
269: Fnd_Message.Set_Name ('IGS', v_message_name);
270: IGS_GE_MSG_STACK.ADD;
271: App_Exception.Raise_Exception;
272: END IF;
273: ELSE -- Deleting!
277: old_references.the_sequence_number,
278: 'DELETE',
279: old_references.submission_dt,
280: v_message_name) = FALSE THEN
281: Fnd_Message.Set_Name ('IGS', v_message_name);
282: IGS_GE_MSG_STACK.ADD;
283: App_Exception.Raise_Exception;
284: END IF;
285: END IF;
309: END IF;
310:
311: IF upper(column_name) = 'THE_SEQUENCE_NUMBER' OR COLUMN_NAME IS NULL THEN
312: IF new_references.THE_SEQUENCE_NUMBER < 1 OR new_references.THE_SEQUENCE_NUMBER > 999999 then
313: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
314: IGS_GE_MSG_STACK.ADD;
315: App_Exception.Raise_Exception ;
316: END IF;
317: END IF;
316: END IF;
317: END IF;
318: IF upper(column_name) = 'CA_SEQUENCE_NUMBER' OR COLUMN_NAME IS NULL THEN
319: IF new_references.CA_SEQUENCE_NUMBER < 1 OR new_references.CA_SEQUENCE_NUMBER > 999999 then
320: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
321: IGS_GE_MSG_STACK.ADD;
322: App_Exception.Raise_Exception ;
323: END IF;
324: END IF;
323: END IF;
324: END IF;
325: IF upper(column_name) = 'THESIS_EXAM_TYPE' OR COLUMN_NAME IS NULL THEN
326: IF new_references.THESIS_EXAM_TYPE <> upper(NEW_REFERENCES.THESIS_EXAM_TYPE) then
327: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
328: IGS_GE_MSG_STACK.ADD;
329: App_Exception.Raise_Exception ;
330: END IF;
331: END IF;
330: END IF;
331: END IF;
332: IF upper(column_name) = 'THESIS_PANEL_TYPE' OR COLUMN_NAME IS NULL THEN
333: IF new_references.THESIS_PANEL_TYPE <> upper(NEW_REFERENCES.THESIS_PANEL_TYPE) then
334: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
335: IGS_GE_MSG_STACK.ADD;
336: App_Exception.Raise_Exception ;
337: END IF;
338: END IF;
337: END IF;
338: END IF;
339: IF upper(column_name) = 'THESIS_RESULT_CD' OR COLUMN_NAME IS NULL THEN
340: IF new_references.THESIS_RESULT_CD <> upper(NEW_REFERENCES.THESIS_RESULT_CD) then
341: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
342: IGS_GE_MSG_STACK.ADD;
343: App_Exception.Raise_Exception ;
344: END IF;
345: END IF;
355: ELSE
356: IF NOT IGS_RE_THS_EXAM_TYPE_PKG.Get_PK_For_Validation (
357: new_references.thesis_exam_type
358: ) THEN
359: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
360: IGS_GE_MSG_STACK.ADD;
361: App_Exception.Raise_Exception;
362: END IF;
363: END IF;
374: new_references.person_id,
375: new_references.ca_sequence_number,
376: new_references.the_sequence_number
377: ) THEN
378: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
379: IGS_GE_MSG_STACK.ADD;
380: App_Exception.Raise_Exception;
381: END IF;
382: END IF;
387: ELSE
388: IF NOT IGS_RE_THESIS_RESULT_PKG.Get_PK_For_Validation (
389: new_references.thesis_result_cd
390: ) THEN
391: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
392: IGS_GE_MSG_STACK.ADD;
393: App_Exception.Raise_Exception;
394: END IF;
395: END IF;
400: ELSE
401: IF NOT IGS_RE_THS_PNL_TYPE_PKG.Get_PK_For_Validation (
402: new_references.thesis_panel_type
403: ) THEN
404: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
405: IGS_GE_MSG_STACK.ADD;
406: App_Exception.Raise_Exception;
407: END IF;
408: END IF;
413: ELSE
414: IF NOT IGS_TR_ITEM_PKG.Get_PK_For_Validation (
415: new_references.tracking_id
416: ) THEN
417: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
418: IGS_GE_MSG_STACK.ADD;
419: App_Exception.Raise_Exception;
420: END IF;
421: END IF;
483: Open cur_rowid;
484: Fetch cur_rowid INTO lv_rowid;
485: IF (cur_rowid%FOUND) THEN
486: Close cur_rowid;
487: Fnd_Message.Set_Name ('IGS', 'IGS_RE_TEX_TET_FK');
488: IGS_GE_MSG_STACK.ADD;
489: App_Exception.Raise_Exception;
490: Return;
491: END IF;
513: Open cur_rowid;
514: Fetch cur_rowid INTO lv_rowid;
515: IF (cur_rowid%FOUND) THEN
516: Close cur_rowid;
517: Fnd_Message.Set_Name ('IGS', 'IGS_RE_TEX_THE_FK');
518: IGS_GE_MSG_STACK.ADD;
519: App_Exception.Raise_Exception;
520: Return;
521: END IF;
539: Open cur_rowid;
540: Fetch cur_rowid INTO lv_rowid;
541: IF (cur_rowid%FOUND) THEN
542: Close cur_rowid;
543: Fnd_Message.Set_Name ('IGS', 'IGS_RE_TEX_THR_FK');
544: IGS_GE_MSG_STACK.ADD;
545: App_Exception.Raise_Exception;
546: Return;
547: END IF;
565: Open cur_rowid;
566: Fetch cur_rowid INTO lv_rowid;
567: IF (cur_rowid%FOUND) THEN
568: Close cur_rowid;
569: Fnd_Message.Set_Name ('IGS', 'IGS_RE_TEX_TPT_FK');
570: IGS_GE_MSG_STACK.ADD;
571: App_Exception.Raise_Exception;
572: Return;
573: END IF;
591: Open cur_rowid;
592: Fetch cur_rowid INTO lv_rowid;
593: IF (cur_rowid%FOUND) THEN
594: Close cur_rowid;
595: Fnd_Message.Set_Name ('IGS', 'IGS_RE_TEX_TRI_FK');
596: IGS_GE_MSG_STACK.ADD;
597: App_Exception.Raise_Exception;
598: Return;
599: END IF;
652: new_references.the_sequence_number,
653: new_references.creation_dt
654: ) THEN
655:
656: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
657: IGS_GE_MSG_STACK.ADD;
658: App_Exception.Raise_Exception;
659: END IF;
660: Check_Constraints;
675: new_references.ca_sequence_number,
676: new_references.the_sequence_number,
677: new_references.creation_dt
678: ) THEN
679: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
680: App_Exception.Raise_Exception;
681: END IF;
682: Check_Constraints;
683: ELSIF (p_action = 'VALIDATE_UPDATE') THEN
755: if X_LAST_UPDATE_LOGIN is NULL then
756: X_LAST_UPDATE_LOGIN := -1;
757: end if;
758: else
759: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
760: IGS_GE_MSG_STACK.ADD;
761: app_exception.raise_exception;
762: end if;
763:
835:
836: EXCEPTION
837: WHEN OTHERS THEN
838: IF (SQLCODE IN (-28115, -28113, -28111)) THEN
839: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
840: fnd_message.set_token ('ERR_CD', SQLCODE);
841: igs_ge_msg_stack.add;
842: igs_sc_gen_001.unset_ctx('R');
843: app_exception.raise_exception;
836: EXCEPTION
837: WHEN OTHERS THEN
838: IF (SQLCODE IN (-28115, -28113, -28111)) THEN
839: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
840: fnd_message.set_token ('ERR_CD', SQLCODE);
841: igs_ge_msg_stack.add;
842: igs_sc_gen_001.unset_ctx('R');
843: app_exception.raise_exception;
844: ELSE
875: open c1;
876: fetch c1 into tlinfo;
877: if (c1%notfound) then
878: close c1;
879: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
880: app_exception.raise_exception;
881: return;
882: end if;
883: close c1;
895: AND (X_THESIS_RESULT_CD is null)))
896: ) then
897: null;
898: else
899: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
900: app_exception.raise_exception;
901: end if;
902: return;
903: end LOCK_ROW;
932: if X_LAST_UPDATE_LOGIN is NULL then
933: X_LAST_UPDATE_LOGIN := -1;
934: end if;
935: else
936: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
937: IGS_GE_MSG_STACK.ADD;
938: app_exception.raise_exception;
939: end if;
940:
971: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
972: where ROWID = X_ROWID
973: ;
974: if (sql%notfound) then
975: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
976: igs_ge_msg_stack.add;
977: igs_sc_gen_001.unset_ctx('R');
978: app_exception.raise_exception;
979: end if;
989:
990: EXCEPTION
991: WHEN OTHERS THEN
992: IF (SQLCODE = (-28115)) THEN
993: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
994: fnd_message.set_token ('ERR_CD', SQLCODE);
995: igs_ge_msg_stack.add;
996: igs_sc_gen_001.unset_ctx('R');
997: app_exception.raise_exception;
990: EXCEPTION
991: WHEN OTHERS THEN
992: IF (SQLCODE = (-28115)) THEN
993: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
994: fnd_message.set_token ('ERR_CD', SQLCODE);
995: igs_ge_msg_stack.add;
996: igs_sc_gen_001.unset_ctx('R');
997: app_exception.raise_exception;
998: ELSE
1071: END IF;
1072: delete from IGS_RE_THESIS_EXAM
1073: where ROWID = X_ROWID;
1074: if (sql%notfound) then
1075: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
1076: igs_ge_msg_stack.add;
1077: igs_sc_gen_001.unset_ctx('R');
1078: app_exception.raise_exception;
1079: end if;