[Home] [Help]
44: -- Populate Old Values.
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: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
49: IGS_GE_MSG_STACK.ADD;
50: Close cur_old_ref_values;
51: APP_EXCEPTION.RAISE_EXCEPTION;
52:
103: new_references.grading_schema_cd,
104: new_references.gs_version_number,
105: new_references.s_grade_creation_method_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;
114: new_references.location_cd IS NOT NULL) THEN
115: IF IGS_AS_VAL_ELS.ORGP_VAL_LOC_CLOSED(
116: new_references.location_cd,
117: v_message_name) = FALSE THEN
118: FND_MESSAGE.SET_NAME('IGS',v_message_name);
119: IGS_GE_MSG_STACK.ADD;
120: APP_EXCEPTION.RAISE_EXCEPTION;
121: END IF;
122: END IF;
126: -- As part of the bug# 1956374 changed to the below call from IGS_AS_VAL_NESO.crsp_val_um_closed
127: IF IGS_AS_VAL_UAI.crsp_val_um_closed(
128: new_references.unit_mode,
129: v_message_name) = FALSE THEN
130: FND_MESSAGE.SET_NAME('IGS',v_message_name);
131: IGS_GE_MSG_STACK.ADD;
132: APP_EXCEPTION.RAISE_EXCEPTION;
133: END IF;
134: END IF;
139: -- As part of the bug# 1956374 changed to the below call from IGS_AS_VAL_NESO.crsp_val_ucl_closed
140: IF IGS_AS_VAL_UAI.crsp_val_ucl_closed(
141: new_references.unit_mode,
142: v_message_name) = FALSE THEN
143: FND_MESSAGE.SET_NAME('IGS',v_message_name);
144: IGS_GE_MSG_STACK.ADD;
145: APP_EXCEPTION.RAISE_EXCEPTION;
146: END IF;
147: END IF;
163: ELSIF NOT IGS_AS_GRD_SCH_GRADE_PKG.Get_PK_For_Validation (
164: new_references.grading_schema_cd,
165: new_references.gs_version_number,
166: new_references.grade ) THEN
167: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
168: IGS_GE_MSG_STACK.ADD;
169: APP_EXCEPTION.RAISE_EXCEPTION;
170: END IF;
171:
174: NULL;
175: ELSIF NOT IGS_PE_PERSON_PKG.Get_PK_For_Validation (
176: new_references.person_id
177: ) THEN
178: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
179: IGS_GE_MSG_STACK.ADD;
180: APP_EXCEPTION.RAISE_EXCEPTION;
181: END IF;
182:
199: new_references.version_number,
200: new_references.cal_type,
201: new_references.ci_sequence_number
202: ) THEN
203: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
204: IGS_GE_MSG_STACK.ADD;
205: APP_EXCEPTION.RAISE_EXCEPTION;
206: END IF;
207:
210: NULL;
211: ELSif not iGS_PS_COURSE_PKG.Get_PK_For_Validation (
212: new_references.course_cd
213: )THEN
214: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
215: IGS_GE_MSG_STACK.ADD;
216: END IF;
217:
218: END Check_Parent_Existance;
270:
271: Open cur_rowid;
272: Fetch cur_rowid INTO lv_rowid;
273: IF (cur_rowid%FOUND) THEN
274: Fnd_Message.Set_Name ('IGS', 'IGS_AS_NESO_GSG_FK');
275: IGS_GE_MSG_STACK.ADD;
276: Close cur_rowid;
277: APP_EXCEPTION.RAISE_EXCEPTION;
278:
297:
298: Open cur_rowid;
299: Fetch cur_rowid INTO lv_rowid;
300: IF (cur_rowid%FOUND) THEN
301: Fnd_Message.Set_Name ('IGS', 'IGS_AS_NESO_PE_FK');
302: IGS_GE_MSG_STACK.ADD;
303: Close cur_rowid;
304: APP_EXCEPTION.RAISE_EXCEPTION;
305:
324:
325: Open cur_rowid;
326: Fetch cur_rowid INTO lv_rowid;
327: IF (cur_rowid%FOUND) THEN
328: Fnd_Message.Set_Name ('IGS', 'IGS_AS_NESO_SLV_FK');
329: IGS_GE_MSG_STACK.ADD;
330: Close cur_rowid;
331: APP_EXCEPTION.RAISE_EXCEPTION;
332:
357:
358: Open cur_rowid;
359: Fetch cur_rowid INTO lv_rowid;
360: IF (cur_rowid%FOUND) THEN
361: Fnd_Message.Set_Name ('IGS', 'IGS_AS_NESO_UOP_FK');
362: IGS_GE_MSG_STACK.ADD;
363: Close cur_rowid;
364: APP_EXCEPTION.RAISE_EXCEPTION;
365:
384:
385: Open cur_rowid;
386: Fetch cur_rowid INTO lv_rowid;
387: IF (cur_rowid%FOUND) THEN
388: Fnd_Message.Set_Name ('IGS', 'IGS_AS_NESO_CRS_FK');
389: IGS_GE_MSG_STACK.ADD;
390: Close cur_rowid;
391: APP_EXCEPTION.RAISE_EXCEPTION;
392:
461: NEW_REFERENCES.version_number,
462: NEW_REFERENCES.cal_type ,
463: NEW_REFERENCES.ci_sequence_number
464: ) THEN
465: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
466: IGS_GE_MSG_STACK.ADD;
467: APP_EXCEPTION.RAISE_EXCEPTION;
468: END IF;
469:
483: NEW_REFERENCES.version_number,
484: NEW_REFERENCES.cal_type ,
485: NEW_REFERENCES.ci_sequence_number
486: ) THEN
487: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
488: IGS_GE_MSG_STACK.ADD;
489: APP_EXCEPTION.RAISE_EXCEPTION;
490: END IF;
491:
563: else
564: X_PROGRAM_UPDATE_DATE := SYSDATE;
565: end if;
566: else
567: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
568: IGS_GE_MSG_STACK.ADD;
569: APP_EXCEPTION.RAISE_EXCEPTION;
570: end if;
571:
700: begin
701: open c1;
702: fetch c1 into tlinfo;
703: if (c1%notfound) then
704: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
705: IGS_GE_MSG_STACK.ADD;
706: APP_EXCEPTION.RAISE_EXCEPTION;
707: close c1;
708: return;
742: AND (X_COMMENTS is null)))
743: ) then
744: null;
745: else
746: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
747: IGS_GE_MSG_STACK.ADD;
748: APP_EXCEPTION.RAISE_EXCEPTION;
749: end if;
750: return;
792: if X_LAST_UPDATE_LOGIN is NULL then
793: X_LAST_UPDATE_LOGIN := -1;
794: end if;
795: else
796: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
797: IGS_GE_MSG_STACK.ADD;
798: APP_EXCEPTION.RAISE_EXCEPTION;
799: end if;
800:
993:
994: IF upper(column_name) = 'CAL_TYPE' OR
995: column_name is null Then
996: IF new_references.CAL_TYPE <> UPPER(new_references.CAL_TYPE) Then
997: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
998: IGS_GE_MSG_STACK.ADD;
999: APP_EXCEPTION.RAISE_EXCEPTION;
1000: END IF;
1001: END IF;
1001: END IF;
1002: IF upper(column_name) = 'COURSE_CD' OR
1003: column_name is null Then
1004: IF new_references.COURSE_CD <> UPPER(new_references.COURSE_CD) Then
1005: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1006: IGS_GE_MSG_STACK.ADD;
1007: APP_EXCEPTION.RAISE_EXCEPTION;
1008: END IF;
1009: END IF;
1009: END IF;
1010: IF upper(column_name) = 'GRADE' OR
1011: column_name is null Then
1012: IF new_references.GRADE <> UPPER(new_references.GRADE) Then
1013: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1014: IGS_GE_MSG_STACK.ADD;
1015: APP_EXCEPTION.RAISE_EXCEPTION;
1016: END IF;
1017: END IF;
1017: END IF;
1018: IF upper(column_name) = 'GRADING_SCHEMA_CD' OR
1019: column_name is null Then
1020: IF new_references.GRADING_SCHEMA_CD <> UPPER(new_references.GRADING_SCHEMA_CD) Then
1021: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1022: IGS_GE_MSG_STACK.ADD;
1023: APP_EXCEPTION.RAISE_EXCEPTION;
1024: END IF;
1025: END IF;
1025: END IF;
1026: IF upper(column_name) = 'LOCATION_CD' OR
1027: column_name is null Then
1028: IF new_references.LOCATION_CD <> UPPER(new_references.LOCATION_CD) Then
1029: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1030: IGS_GE_MSG_STACK.ADD;
1031: APP_EXCEPTION.RAISE_EXCEPTION;
1032: END IF;
1033: END IF;
1033: END IF;
1034: IF upper(column_name) = 'S_GRADE_CREATION_METHOD_TYPE' OR
1035: column_name is null Then
1036: IF new_references.S_GRADE_CREATION_METHOD_TYPE <> UPPER(new_references.S_GRADE_CREATION_METHOD_TYPE) Then
1037: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1038: IGS_GE_MSG_STACK.ADD;
1039: APP_EXCEPTION.RAISE_EXCEPTION;
1040: END IF;
1041: END IF;
1041: END IF;
1042: IF upper(column_name) = 'UNIT_CD' OR
1043: column_name is null Then
1044: IF new_references.UNIT_CD <> UPPER(new_references.UNIT_CD) Then
1045: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1046: IGS_GE_MSG_STACK.ADD;
1047: APP_EXCEPTION.RAISE_EXCEPTION;
1048: END IF;
1049: END IF;
1049: END IF;
1050: IF upper(column_name) = 'UNIT_CLASS' OR
1051: column_name is null Then
1052: IF new_references.UNIT_CLASS <> UPPER(new_references.UNIT_CLASS) Then
1053: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1054: IGS_GE_MSG_STACK.ADD;
1055: APP_EXCEPTION.RAISE_EXCEPTION;
1056: END IF;
1057: END IF;
1059:
1060: IF upper(column_name) = 'CI_SEQUENCE_NUMBER' OR
1061: column_name is null Then
1062: IF new_references.CI_SEQUENCE_NUMBER < 1 OR new_references.CI_SEQUENCE_NUMBER > 999999 Then
1063: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1064: IGS_GE_MSG_STACK.ADD;
1065: APP_EXCEPTION.RAISE_EXCEPTION;
1066: END IF;
1067: END IF;
1069:
1070: IF upper(column_name) = 'MARK' OR
1071: column_name is null Then
1072: IF new_references.MARK < 0 OR new_references.MARK > 999 Then
1073: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1074: IGS_GE_MSG_STACK.ADD;
1075: APP_EXCEPTION.RAISE_EXCEPTION;
1076: END IF;
1077: END IF;
1079:
1080: IF upper(column_name) = 'RESOLVED_IND' OR
1081: column_name is null Then
1082: IF new_references.RESOLVED_IND NOT IN ('Y','N') Then
1083: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1084: IGS_GE_MSG_STACK.ADD;
1085: APP_EXCEPTION.RAISE_EXCEPTION;
1086: END IF;
1087: END IF;