[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;
97: END IF;
98:
99: IF UPPER( column_name )='DEFAULT_FLAG' OR column_name IS NULL THEN
100: IF new_references.default_flag NOT IN ( 'Y', 'N' ) THEN
101: fnd_message.set_name ( 'IGS', 'IGS_GE_INVALID_VALUE' );
102: IGS_GE_MSG_STACK.ADD;
103: app_exception.raise_exception;
104: END IF;
105: END IF;
124: ,new_references.grading_schema_code
125: ,new_references.grd_schm_version_number
126: ,new_references.unit_code
127: ) THEN
128: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
129: IGS_GE_MSG_STACK.ADD;
130: app_exception.raise_exception;
131: END IF;
132: END Check_Uniqueness ;
153: ELSIF NOT Igs_Ps_Unit_Ver_Pkg.Get_PK_For_Validation (
154: new_references.unit_code,
155: new_references.unit_version_number
156: ) THEN
157: Fnd_Message.Set_Name ('FND','FORM_RECORD_DELETED');
158: IGS_GE_MSG_STACK.ADD;
159: App_Exception.Raise_Exception;
160: END IF;
161:
167: ELSIF NOT Igs_As_Grd_Schema_Pkg.Get_PK_For_Validation (
168: new_references.grading_schema_code,
169: new_references.grd_schm_version_number
170: ) THEN
171: Fnd_Message.Set_Name ('FND','FORM_RECORD_DELETED');
172: IGS_GE_MSG_STACK.ADD;
173: App_Exception.Raise_Exception;
174: END IF;
175:
294: Open cur_rowid;
295: Fetch cur_rowid INTO lv_rowid;
296: IF (cur_rowid%FOUND) THEN
297: Close cur_rowid;
298: Fnd_Message.Set_Name ('IGS', 'IGS_PS_UGS_UV_FK');
299: IGS_GE_MSG_STACK.ADD;
300: App_Exception.Raise_Exception;
301: Return;
302: END IF;
333: Open cur_rowid;
334: Fetch cur_rowid INTO lv_rowid;
335: IF (cur_rowid%FOUND) THEN
336: Close cur_rowid;
337: Fnd_Message.Set_Name ('IGS', 'IGS_PS_UGS_GS_FK');
338: IGS_GE_MSG_STACK.ADD;
339: App_Exception.Raise_Exception;
340: Return;
341: END IF;
391: -- Call all the procedures related to Before Insert.
392: Null;
393: IF Get_Pk_For_Validation(
394: new_references.unit_grading_schema_id) THEN
395: Fnd_Message.Set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
396: IGS_GE_MSG_STACK.ADD;
397: App_Exception.Raise_Exception;
398: END IF;
399: Check_Uniqueness;
410: ELSIF (p_action = 'VALIDATE_INSERT') THEN
411: -- Call all the procedures related to Before Insert.
412: IF Get_PK_For_Validation (
413: new_references.unit_grading_schema_id) THEN
414: Fnd_Message.Set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
415: IGS_GE_MSG_STACK.ADD;
416: App_Exception.Raise_Exception;
417: END IF;
418: Check_Uniqueness;
499: if X_LAST_UPDATE_LOGIN is NULL then
500: X_LAST_UPDATE_LOGIN := -1;
501: end if;
502: else
503: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
504: IGS_GE_MSG_STACK.ADD;
505: app_exception.raise_exception;
506: end if;
507: select igs_ps_unit_grd_schm_s.nextval
589: begin
590: open c1;
591: fetch c1 into tlinfo;
592: if (c1%notfound) then
593: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
594: IGS_GE_MSG_STACK.ADD;
595: close c1;
596: app_exception.raise_exception;
597: return;
604: AND (tlinfo.DEFAULT_FLAG = X_DEFAULT_FLAG)
605: ) then
606: null;
607: else
608: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
609: IGS_GE_MSG_STACK.ADD;
610: app_exception.raise_exception;
611: end if;
612: return;
649: if X_LAST_UPDATE_LOGIN is NULL then
650: X_LAST_UPDATE_LOGIN := -1;
651: end if;
652: else
653: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
654: IGS_GE_MSG_STACK.ADD;
655: app_exception.raise_exception;
656: end if;
657: Before_DML(