[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;
123: NULL;
124: ELSIF NOT Igs_Ps_Usec_Occurs_Pkg.Get_PK_For_Validation (
125: new_references.unit_section_occurrence_id
126: ) THEN
127: Fnd_Message.Set_Name ('FND','FORM_RECORD_DELETED');
128: IGS_GE_MSG_STACK.ADD;
129: App_Exception.Raise_Exception;
130: END IF;
131:
141: ELSIF NOT igs_ge_ref_cd_pkg.get_uk_for_validation (
142: new_references.reference_code_type,
143: new_references.reference_code
144: ) THEN
145: Fnd_Message.Set_Name ('FND','FORM_RECORD_DELETED');
146: IGS_GE_MSG_STACK.ADD;
147: App_Exception.Raise_Exception;
148: END IF;
149: END IF;
214: Open cur_rowid;
215: Fetch cur_rowid INTO lv_rowid;
216: IF (cur_rowid%FOUND) THEN
217: Close cur_rowid;
218: Fnd_Message.Set_Name ('IGS', 'IGS_PS_USOR_USO_FK');
219: IGS_GE_MSG_STACK.ADD;
220: App_Exception.Raise_Exception;
221: Return;
222: END IF;
253: OPEN cur_rowid;
254: FETCH cur_rowid INTO lv_rowid;
255: IF (cur_rowid%FOUND) THEN
256: CLOSE cur_rowid;
257: fnd_message.set_name ('IGS', 'IGS_PS_USOR_RCT_FK');
258: igs_ge_msg_stack.add;
259: app_exception.raise_exception;
260: RETURN;
261: END IF;
293: OPEN cur_rowid;
294: FETCH cur_rowid INTO lv_rowid;
295: IF (cur_rowid%FOUND) THEN
296: CLOSE cur_rowid;
297: fnd_message.set_name ('IGS', 'IGS_PS_USOR_RC_FK');
298: igs_ge_msg_stack.add;
299: app_exception.raise_exception;
300: RETURN;
301: END IF;
339: BEGIN
340: IF Get_Uk_For_Validation(x_reference_code_type => new_references.reference_code_type,
341: x_reference_code => new_references.reference_code,
342: x_Unit_section_Occurrence_Id => new_references.Unit_section_Occurrence_Id) THEN
343: FND_MESSAGE.SET_NAME('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
344: IGS_GE_MSG_STACK.ADD;
345: APP_EXCEPTION.RAISE_EXCEPTION;
346: END IF;
347: END Check_Uniqueness;
393: -- Call all the procedures related to Before Insert.
394: Null;
395: IF Get_Pk_For_Validation(
396: new_references.unit_sec_occur_reference_id) THEN
397: Fnd_Message.Set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
398: IGS_GE_MSG_STACK.ADD;
399: App_Exception.Raise_Exception;
400: END IF;
401: Check_Constraints;
413: ELSIF (p_action = 'VALIDATE_INSERT') THEN
414: -- Call all the procedures related to Before Insert.
415: IF Get_PK_For_Validation (
416: new_references.unit_sec_occur_reference_id) THEN
417: Fnd_Message.Set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
418: IGS_GE_MSG_STACK.ADD;
419: App_Exception.Raise_Exception;
420: END IF;
421: Check_Constraints;
518: if X_LAST_UPDATE_LOGIN is NULL then
519: X_LAST_UPDATE_LOGIN := -1;
520: end if;
521: else
522: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
523: IGS_GE_MSG_STACK.ADD;
524: app_exception.raise_exception;
525: end if;
526: SELECT
606: begin
607: open c1;
608: fetch c1 into tlinfo;
609: if (c1%notfound) then
610: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
611: IGS_GE_MSG_STACK.ADD;
612: close c1;
613: app_exception.raise_exception;
614: return;
622: AND (x_reference_code_desc IS NULL)))
623: ) then
624: null;
625: else
626: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
627: IGS_GE_MSG_STACK.ADD;
628: app_exception.raise_exception;
629: end if;
630: return;
667: if X_LAST_UPDATE_LOGIN is NULL then
668: X_LAST_UPDATE_LOGIN := -1;
669: end if;
670: else
671: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
672: IGS_GE_MSG_STACK.ADD;
673: app_exception.raise_exception;
674: end if;
675: Before_DML(