[Home] [Help]
40: -- Populate Old Values.
41: Open cur_old_ref_values;
42: Fetch cur_old_ref_values INTO old_references;
43: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
44: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
45: IGS_GE_MSG_STACK.ADD;
46: Close cur_old_ref_values;
47: APP_EXCEPTION.RAISE_EXCEPTION;
48:
92: new_references.grading_schema_cd,
93: new_references.gs_version_number,
94: new_references.grade
95: ) THEN
96: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
97: IGS_GE_MSG_STACK.ADD;
98: APP_EXCEPTION.RAISE_EXCEPTION;
99: END IF;
100: END Check_Parent_Existance;
137: BEGIN
138: Open cur_rowid;
139: Fetch cur_rowid INTO lv_rowid;
140: IF (cur_rowid%FOUND) THEN
141: Fnd_Message.Set_Name ('IGS', 'IGS_AS_GET_GSG_FK');
142: IGS_GE_MSG_STACK.ADD;
143: Close cur_rowid;
144: APP_EXCEPTION.RAISE_EXCEPTION;
145:
208: IF Get_PK_For_Validation (
209: NEW_REFERENCES.keying_who ,
210: NEW_REFERENCES.keying_time ,
211: NEW_REFERENCES.student_sequence) THEN
212: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
213: IGS_GE_MSG_STACK.ADD;
214: APP_EXCEPTION.RAISE_EXCEPTION;
215: END IF;
216:
228: IF Get_PK_For_Validation (
229: NEW_REFERENCES.keying_who ,
230: NEW_REFERENCES.keying_time ,
231: NEW_REFERENCES.student_sequence) THEN
232: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
233: IGS_GE_MSG_STACK.ADD;
234: APP_EXCEPTION.RAISE_EXCEPTION;
235: END IF;
236:
284: if X_LAST_UPDATE_LOGIN is NULL then
285: X_LAST_UPDATE_LOGIN := -1;
286: end if;
287: else
288: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
289: IGS_GE_MSG_STACK.ADD;
290: APP_EXCEPTION.RAISE_EXCEPTION;
291: end if;
292: Before_DML(
417: begin
418: open c1;
419: fetch c1 into tlinfo;
420: if (c1%notfound) then
421: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
422: IGS_GE_MSG_STACK.ADD;
423: APP_EXCEPTION.RAISE_EXCEPTION;
424: close c1;
425: return;
452: AND (tlinfo.SPECIFIED_GRADE_IND = X_SPECIFIED_GRADE_IND)
453: ) then
454: null;
455: else
456: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
457: IGS_GE_MSG_STACK.ADD;
458: APP_EXCEPTION.RAISE_EXCEPTION;
459: end if;
460: return;
498: if X_LAST_UPDATE_LOGIN is NULL then
499: X_LAST_UPDATE_LOGIN := -1;
500: end if;
501: else
502: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
503: IGS_GE_MSG_STACK.ADD;
504: APP_EXCEPTION.RAISE_EXCEPTION;
505: end if;
506: Before_DML(
683:
684: IF upper(column_name) = 'CAL_TYPE' OR
685: column_name is null Then
686: IF new_references.CAL_TYPE <> UPPER(new_references.CAL_TYPE) Then
687: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
688: IGS_GE_MSG_STACK.ADD;
689: APP_EXCEPTION.RAISE_EXCEPTION;
690: END IF;
691: END IF;
691: END IF;
692: IF upper(column_name) = 'COURSE_CD' OR
693: column_name is null Then
694: IF new_references.COURSE_CD <> UPPER(new_references.COURSE_CD) Then
695: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
696: IGS_GE_MSG_STACK.ADD;
697: APP_EXCEPTION.RAISE_EXCEPTION;
698: END IF;
699: END IF;
699: END IF;
700: IF upper(column_name) = 'GRADE' OR
701: column_name is null Then
702: IF new_references.GRADE <> UPPER(new_references.GRADE) Then
703: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
704: IGS_GE_MSG_STACK.ADD;
705: APP_EXCEPTION.RAISE_EXCEPTION;
706: END IF;
707: END IF;
707: END IF;
708: IF upper(column_name) = 'GRADING_SCHEMA_CD' OR
709: column_name is null Then
710: IF new_references.GRADING_SCHEMA_CD <> UPPER(new_references.GRADING_SCHEMA_CD) Then
711: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
712: IGS_GE_MSG_STACK.ADD;
713: APP_EXCEPTION.RAISE_EXCEPTION;
714: END IF;
715: END IF;
715: END IF;
716: IF upper(column_name) = 'KEYING_WHO' OR
717: column_name is null Then
718: IF new_references.KEYING_WHO <> UPPER(new_references.KEYING_WHO) Then
719: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
720: IGS_GE_MSG_STACK.ADD;
721: APP_EXCEPTION.RAISE_EXCEPTION;
722: END IF;
723: END IF;
723: END IF;
724: IF upper(column_name) = 'LOCATION_CD' OR
725: column_name is null Then
726: IF new_references.LOCATION_CD <> UPPER(new_references.LOCATION_CD) Then
727: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
728: IGS_GE_MSG_STACK.ADD;
729: APP_EXCEPTION.RAISE_EXCEPTION;
730: END IF;
731: END IF;
731: END IF;
732: IF upper(column_name) = 'SPECIFIED_GRADE_IND' OR
733: column_name is null Then
734: IF new_references.SPECIFIED_GRADE_IND <> UPPER(new_references.SPECIFIED_GRADE_IND) Then
735: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
736: IGS_GE_MSG_STACK.ADD;
737: APP_EXCEPTION.RAISE_EXCEPTION;
738: END IF;
739: END IF;
739: END IF;
740: IF upper(column_name) = 'UNIT_ATTEMPT_STATUS' OR
741: column_name is null Then
742: IF new_references.UNIT_ATTEMPT_STATUS <> UPPER(new_references.UNIT_ATTEMPT_STATUS) Then
743: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
744: IGS_GE_MSG_STACK.ADD;
745: APP_EXCEPTION.RAISE_EXCEPTION;
746: END IF;
747: END IF;
747: END IF;
748: IF upper(column_name) = 'UNIT_CD' OR
749: column_name is null Then
750: IF new_references.UNIT_CD <> UPPER(new_references.UNIT_CD) Then
751: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
752: IGS_GE_MSG_STACK.ADD;
753: APP_EXCEPTION.RAISE_EXCEPTION;
754: END IF;
755: END IF;
755: END IF;
756: IF upper(column_name) = 'UNIT_CLASS' OR
757: column_name is null Then
758: IF new_references.UNIT_CLASS <> UPPER(new_references.UNIT_CLASS) Then
759: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
760: IGS_GE_MSG_STACK.ADD;
761: APP_EXCEPTION.RAISE_EXCEPTION;
762: END IF;
763: END IF;
763: END IF;
764: IF upper(column_name) = 'CI_SEQUENCE_NUMBER' OR
765: column_name is null Then
766: IF new_references.CI_SEQUENCE_NUMBER < 1 OR new_references.CI_SEQUENCE_NUMBER > 999999 Then
767: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
768: IGS_GE_MSG_STACK.ADD;
769: APP_EXCEPTION.RAISE_EXCEPTION;
770: END IF;
771: END IF;