[Home] [Help]
32: Open cur_old_ref_values;
33: Fetch cur_old_ref_values INTO old_references;
34: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
35: Close cur_old_ref_values;
36: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
37: IGS_GE_MSG_STACK.ADD;
38: App_Exception.Raise_Exception;
39: Return;
40: END IF;
79: IF IGS_PS_VAL_UNIT.crsp_val_iud_uv_dtl (
80: v_unit_cd,
81: v_version_number,
82: v_message_name) = FALSE THEN
83: Fnd_Message.Set_Name('IGS', v_message_name);
84: IGS_GE_MSG_STACK.ADD;
85: App_Exception.Raise_Exception;
86: END IF;
87: -- Validate IGS_PS_UNIT cat. IGS_PS_UNIT cat is not updateable.
88: IF p_inserting THEN
89: IF IGS_PS_VAL_UC.crsp_val_uc_unit_cat (
90: new_references.unit_cat,
91: v_message_name) = FALSE THEN
92: Fnd_Message.Set_Name('IGS', v_message_name);
93: IGS_GE_MSG_STACK.ADD;
94: App_Exception.Raise_Exception;
95: END IF;
96: END IF;
113: END IF;
114:
115: IF Upper(Column_Name)='UNIT_CAT' OR Column_Name IS NULL Then
116: IF New_References.Unit_Cat <> UPPER(New_References.Unit_Cat) Then
117: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
118: IGS_GE_MSG_STACK.ADD;
119: App_Exception.Raise_Exception;
120: END IF;
121: END IF;
121: END IF;
122:
123: IF Upper(Column_Name)='UNIT_CD' OR Column_Name IS NULL Then
124: IF New_References.Unit_Cd <> UPPER(New_References.Unit_Cd) Then
125: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
126: IGS_GE_MSG_STACK.ADD;
127: App_Exception.Raise_Exception;
128: END IF;
129: END IF;
138: NULL;
139: ELSE
140: IF NOT IGS_PS_UNIT_CAT_PKG.Get_PK_For_Validation (
141: new_references.unit_cat) THEN
142: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
143: IGS_GE_MSG_STACK.ADD;
144: App_Exception.Raise_Exception;
145: END IF;
146: END IF;
154: IF NOT IGS_PS_UNIT_VER_PKG.Get_PK_For_Validation (
155: new_references.unit_cd,
156: new_references.version_number
157: ) THEN
158: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
159: IGS_GE_MSG_STACK.ADD;
160: App_Exception.Raise_Exception;
161: END IF;
162:
210: Open cur_rowid;
211: Fetch cur_rowid INTO lv_rowid;
212: IF (cur_rowid%FOUND) THEN
213: Close cur_rowid;
214: Fnd_Message.Set_Name ('IGS', 'IGS_PS_UC_UCA_FK');
215: IGS_GE_MSG_STACK.ADD;
216: App_Exception.Raise_Exception;
217: Return;
218: END IF;
238: Open cur_rowid;
239: Fetch cur_rowid INTO lv_rowid;
240: IF (cur_rowid%FOUND) THEN
241: Close cur_rowid;
242: Fnd_Message.Set_Name ('IGS', 'IGS_PS_UC_UV_FK');
243: IGS_GE_MSG_STACK.ADD;
244: App_Exception.Raise_Exception;
245: Return;
246: END IF;
282: BeforeRowInsertUpdateDelete1 ( p_inserting => TRUE );
283: IF Get_PK_For_Validation (New_References.unit_cd,
284: New_References.version_number ,
285: New_References.unit_cat) THEN
286: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
287: IGS_GE_MSG_STACK.ADD;
288: App_Exception.Raise_Exception;
289: END IF;
290: Check_Constraints;
301: ELSIF (p_action = 'VALIDATE_INSERT') THEN
302: IF Get_PK_For_Validation (New_References.unit_cd,
303: New_References.version_number ,
304: New_References.unit_cat) THEN
305: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
306: IGS_GE_MSG_STACK.ADD;
307: App_Exception.Raise_Exception;
308: END IF;
309: Check_Constraints;
354: if X_LAST_UPDATE_LOGIN is NULL then
355: X_LAST_UPDATE_LOGIN := -1;
356: end if;
357: else
358: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
359: IGS_GE_MSG_STACK.ADD;
360: app_exception.raise_exception;
361: end if;
362: Before_DML(
426: open c1;
427: fetch c1 into tlinfo;
428: if (c1%notfound) then
429: close c1;
430: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
431: IGS_GE_MSG_STACK.ADD;
432: app_exception.raise_exception;
433: return;
434: end if;