[Home] [Help]
29: Open cur_old_ref_values;
30: Fetch cur_old_ref_values INTO old_references;
31: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
32: Close cur_old_ref_values;
33: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
34: IGS_GE_MSG_STACK.ADD;
35: App_Exception.Raise_Exception;
36: Return;
37: END IF;
137: END IF;
138:
139: IF Upper(Column_Name)='UNIT_CD' OR Column_Name IS NULL Then
140: IF New_References.Unit_Cd <> UPPER(New_References.Unit_Cd) Then
141: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
142: IGS_GE_MSG_STACK.ADD;
143: App_Exception.Raise_Exception;
144: END IF;
145: END IF;
171:
172: IF (p_action = 'INSERT') THEN
173: -- Call all the procedures related to Before Insert.
174: IF Get_PK_For_Validation (New_References.unit_cd) THEN
175: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
176: IGS_GE_MSG_STACK.ADD;
177: App_Exception.Raise_Exception;
178: END IF;
179: Check_Constraints;
184: -- Call all the procedures related to Before Delete.
185: Check_Child_Existance;
186: ELSIF (p_action = 'VALIDATE_INSERT') THEN
187: IF Get_PK_For_Validation (New_References.unit_cd) THEN
188: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
189: IGS_GE_MSG_STACK.ADD;
190: App_Exception.Raise_Exception;
191: END IF;
192: Check_Constraints;
234: if X_LAST_UPDATE_LOGIN is NULL then
235: X_LAST_UPDATE_LOGIN := -1;
236: end if;
237: else
238: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
239: IGS_GE_MSG_STACK.ADD;
240: app_exception.raise_exception;
241: end if;
242: Before_DML(
294: open c1;
295: fetch c1 into tlinfo;
296: if (c1%notfound) then
297: close c1;
298: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
299: IGS_GE_MSG_STACK.ADD;
300: app_exception.raise_exception;
301: return;
302: end if;