[Home] [Help]
35: Fetch cur_old_ref_values INTO old_references;
36: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
37: Close cur_old_ref_values;
38: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
39: IGS_GE_MSG_STACK.ADD;
40: App_Exception.Raise_Exception;
41: Return;
42: END IF;
43: Close cur_old_ref_values;
84: v_unit_cd,
85: v_version_number,
86: v_message_name) = FALSE THEN
87: Fnd_Message.Set_Name('IGS',v_message_name);
88: IGS_GE_MSG_STACK.ADD;
89: App_Exception.Raise_Exception;
90: END IF;
91: -- Validate reference code type. Referenece code type is not updateable.
92: IF p_inserting THEN
94: IF IGS_PS_VAL_CRFC.crsp_val_ref_cd_type(
95: new_references.reference_cd_type,
96: v_message_name) = FALSE THEN
97: Fnd_Message.Set_Name('IGS',v_message_name);
98: IGS_GE_MSG_STACK.ADD;
99: App_Exception.Raise_Exception;
100: END IF;
101: END IF;
102: -- Create history record.
120: -- Create history record on delete
121: IF p_deleting THEN
122: IF igs_ps_val_atl.chk_mandatory_ref_cd(old_references.reference_cd_type) THEN
123: Fnd_Message.Set_Name ('IGS', 'IGS_PS_REF_CD_MANDATORY');
124: IGS_GE_MSG_STACK.ADD;
125: App_Exception.Raise_Exception;
126: END IF;
127: IGS_PS_GEN_005.CRSP_INS_URC_HIST(
128: old_references.unit_cd,
156:
157: IF Upper(Column_Name)='REFERENCE_CD' OR Column_Name IS NULL Then
158: IF New_References.Reference_Cd <> UPPER(New_References.Reference_Cd) Then
159: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
160: IGS_GE_MSG_STACK.ADD;
161: App_Exception.Raise_Exception;
162: END IF;
163: END IF;
164:
164:
165: IF Upper(Column_Name)='REFERENCE_CD_TYPE' OR Column_Name IS NULL Then
166: IF New_References.Reference_Cd_Type <> UPPER(New_References.Reference_Cd_Type) Then
167: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
168: IGS_GE_MSG_STACK.ADD;
169: App_Exception.Raise_Exception;
170: END IF;
171: END IF;
172:
173:
174: IF Upper(Column_Name)='UNIT_CD' OR Column_Name IS NULL Then
175: IF New_References.Unit_Cd <> UPPER(New_References.Unit_CD) Then
176: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
177: IGS_GE_MSG_STACK.ADD;
178: App_Exception.Raise_Exception;
179: END IF;
180: END IF;
181:
187: New_References.unit_cd,
188: New_References.version_number,
189: New_References.reference_cd_type) THEN
190: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
191: IGS_GE_MSG_STACK.ADD;
192: App_Exception.Raise_Exception;
193: END IF;
194: END Check_Uniqueness;
195:
253: ELSE
254: IF NOT IGS_GE_REF_CD_TYPE_PKG.Get_PK_For_Validation (
255: new_references.reference_cd_type) THEN
256: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
257: IGS_GE_MSG_STACK.ADD;
258: App_Exception.Raise_Exception;
259: END IF;
260:
261:
270: IF NOT IGS_PS_UNIT_VER_PKG.Get_PK_For_Validation (
271: new_references.unit_cd,
272: new_references.version_number) THEN
273: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
274: IGS_GE_MSG_STACK.ADD;
275: App_Exception.Raise_Exception;
276: END IF;
277:
278:
290: new_references.reference_cd_type,
291: new_references.reference_cd
292: ) THEN
293: Fnd_Message.Set_Name ('FND','FORM_RECORD_DELETED');
294: IGS_GE_MSG_STACK.ADD;
295: App_Exception.Raise_Exception;
296: END IF;
297: END IF;
298: CLOSE cur_reference_cd_chk;
348: Fetch cur_rowid INTO lv_rowid;
349: IF (cur_rowid%FOUND) THEN
350: Close cur_rowid;
351: Fnd_Message.Set_Name ('IGS', 'IGS_PS_URC_RCT_FK');
352: IGS_GE_MSG_STACK.ADD;
353: App_Exception.Raise_Exception;
354: Return;
355: END IF;
356: Close cur_rowid;
387: FETCH cur_rowid INTO lv_rowid;
388: IF (cur_rowid%FOUND) THEN
389: CLOSE cur_rowid;
390: fnd_message.set_name ('IGS', 'IGS_PS_URC_RC_FK');
391: igs_ge_msg_stack.add;
392: app_exception.raise_exception;
393: RETURN;
394: END IF;
395: CLOSE cur_rowid;
416: Fetch cur_rowid INTO lv_rowid;
417: IF (cur_rowid%FOUND) THEN
418: Close cur_rowid;
419: Fnd_Message.Set_Name ('IGS', 'IGS_PS_URC_UV_FK');
420: IGS_GE_MSG_STACK.ADD;
421: App_Exception.Raise_Exception;
422: Return;
423: END IF;
424: Close cur_rowid;
463: New_References.version_number,
464: New_References.reference_cd_type,
465: New_References.reference_cd) THEN
466: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
467: IGS_GE_MSG_STACK.ADD;
468: App_Exception.Raise_Exception;
469: END IF;
470: Check_Constraints;
471: Check_Uniqueness;
484: New_References.version_number,
485: New_References.reference_cd_type,
486: New_References.reference_cd) THEN
487: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
488: IGS_GE_MSG_STACK.ADD;
489: App_Exception.Raise_Exception;
490: END IF;
491: Check_Constraints;
492: Check_Uniqueness;
542: X_LAST_UPDATE_LOGIN := -1;
543: end if;
544: else
545: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
546: IGS_GE_MSG_STACK.ADD;
547: app_exception.raise_exception;
548: end if;
549:
550: Before_DML(
620: fetch c1 into tlinfo;
621: if (c1%notfound) then
622: close c1;
623: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
624: IGS_GE_MSG_STACK.ADD;
625: app_exception.raise_exception;
626: return;
627: end if;
628: close c1;
633: ) then
634: null;
635: else
636: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
637: IGS_GE_MSG_STACK.ADD;
638: app_exception.raise_exception;
639: end if;
640: return;
641: end LOCK_ROW;
667: X_LAST_UPDATE_LOGIN := -1;
668: end if;
669: else
670: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
671: IGS_GE_MSG_STACK.ADD;
672: app_exception.raise_exception;
673: end if;
674:
675: Before_DML(