[Home] [Help]
44: Open cur_old_ref_values;
45: Fetch cur_old_ref_values INTO old_references;
46: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
47: Close cur_old_ref_values;
48: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
49: IGS_GE_MSG_STACK.ADD;
50: App_Exception.Raise_Exception;
51: Return;
52: END IF;
94: END IF;
95:
96: IF UPPER( column_name )='DEFAULT_FLAG' OR column_name IS NULL THEN
97: IF new_references.default_flag NOT IN ( 'Y', 'N' ) THEN
98: fnd_message.set_name ( 'IGS', 'IGS_GE_INVALID_VALUE' );
99: IGS_GE_MSG_STACK.ADD;
100: app_exception.raise_exception;
101: END IF;
102: END IF;
120: new_references.grading_schema_code
121: ,new_references.grd_schm_version_number
122: ,new_references.uoo_id
123: ) THEN
124: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
125: IGS_GE_MSG_STACK.ADD;
126: app_exception.raise_exception;
127: END IF;
128: END Check_Uniqueness ;
150: ELSIF NOT Igs_As_Grd_Schema_Pkg.Get_PK_For_Validation (
151: new_references.grading_schema_code,
152: new_references.grd_schm_version_number
153: ) THEN
154: Fnd_Message.Set_Name ('FND','FORM_RECORD_DELETED');
155: IGS_GE_MSG_STACK.ADD;
156: App_Exception.Raise_Exception;
157: END IF;
158:
161: NULL;
162: ELSIF NOT Igs_Ps_Unit_Ofr_Opt_Pkg.Get_UK_For_Validation (
163: new_references.uoo_id
164: ) THEN
165: Fnd_Message.Set_Name ('FND','FORM_RECORD_DELETED');
166: IGS_GE_MSG_STACK.ADD;
167: App_Exception.Raise_Exception;
168: END IF;
169:
284: Open cur_rowid;
285: Fetch cur_rowid INTO lv_rowid;
286: IF (cur_rowid%FOUND) THEN
287: Close cur_rowid;
288: Fnd_Message.Set_Name ('IGS', 'IGS_PS_USGS_GS_FK');
289: IGS_GE_MSG_STACK.ADD;
290: App_Exception.Raise_Exception;
291: Return;
292: END IF;
321: Open cur_rowid;
322: Fetch cur_rowid INTO lv_rowid;
323: IF (cur_rowid%FOUND) THEN
324: Close cur_rowid;
325: Fnd_Message.Set_Name ('IGS', 'IGS_PS_USGS_UOO_FK');
326: IGS_GE_MSG_STACK.ADD;
327: App_Exception.Raise_Exception;
328: Return;
329: END IF;
378: -- Call all the procedures related to Before Insert.
379: Null;
380: IF Get_Pk_For_Validation(
381: new_references.unit_section_grading_schema_id) THEN
382: Fnd_Message.Set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
383: IGS_GE_MSG_STACK.ADD;
384: App_Exception.Raise_Exception;
385: END IF;
386: Check_Uniqueness;
397: ELSIF (p_action = 'VALIDATE_INSERT') THEN
398: -- Call all the procedures related to Before Insert.
399: IF Get_PK_For_Validation (
400: new_references.unit_section_grading_schema_id) THEN
401: Fnd_Message.Set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
402: IGS_GE_MSG_STACK.ADD;
403: App_Exception.Raise_Exception;
404: END IF;
405: Check_Uniqueness;
485: if X_LAST_UPDATE_LOGIN is NULL then
486: X_LAST_UPDATE_LOGIN := -1;
487: end if;
488: else
489: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
490: IGS_GE_MSG_STACK.ADD;
491: app_exception.raise_exception;
492: end if;
493: SELECT IGS_PS_USEC_GRD_SCHM_S.nextval into X_UNIT_SECTION_GRAD_SCHEMA_ID from dual;
571: begin
572: open c1;
573: fetch c1 into tlinfo;
574: if (c1%notfound) then
575: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
576: IGS_GE_MSG_STACK.ADD;
577: close c1;
578: app_exception.raise_exception;
579: return;
585: AND (tlinfo.DEFAULT_FLAG = X_DEFAULT_FLAG)
586: ) then
587: null;
588: else
589: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
590: IGS_GE_MSG_STACK.ADD;
591: app_exception.raise_exception;
592: end if;
593: return;
631: if X_LAST_UPDATE_LOGIN is NULL then
632: X_LAST_UPDATE_LOGIN := -1;
633: end if;
634: else
635: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
636: IGS_GE_MSG_STACK.ADD;
637: app_exception.raise_exception;
638: end if;
639: Before_DML(