[Home] [Help]
34: Open cur_old_ref_values;
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;
83: IF IGS_PS_VAL_UNIT.crsp_val_iud_uv_dtl (
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.
93: -- As part of the bug# 1956374 changed to the below call from IGS_PS_VAL_URC.crsp_val_ref_cd_type
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;
119: END IF;
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(
155: END IF;
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;
163: END IF;
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;
186: IF Get_UK_For_Validation (
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;
252: NULL;
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:
269: ELSE
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:
289: ELSIF NOT igs_ge_ref_cd_pkg.get_uk_for_validation (
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;
347: Open cur_rowid;
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;
386: OPEN 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;
415: Open 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;
462: IF Get_PK_For_Validation (New_References.unit_cd,
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;
483: IF Get_PK_For_Validation (New_References.unit_cd,
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;
541: if X_LAST_UPDATE_LOGIN is NULL then
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:
619: open c1;
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;
632: AND (X_DESCRIPTION is null)))
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;
666: if X_LAST_UPDATE_LOGIN is NULL then
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: