[Home] [Help]
34: Fetch cur_old_ref_values INTO old_references;
35: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
36: Close cur_old_ref_values;
37: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
38: IGS_GE_MSG_STACK.ADD;
39: App_Exception.Raise_Exception;
40: Return;
41: END IF;
42: Close cur_old_ref_values;
103: v_unit_cd,
104: v_version_number,
105: v_message_name) = FALSE THEN
106: Fnd_Message.Set_Name('IGS', v_message_name);
107: IGS_GE_MSG_STACK.ADD;
108: App_Exception.Raise_Exception;
109: END IF;
110: -- Validate the org IGS_PS_UNIT. Org IGS_PS_UNIT is not updateable.
111: IF p_inserting THEN
114: new_references.org_unit_cd,
115: new_references.ou_start_dt,
116: v_message_name) = FALSE THEN
117: Fnd_Message.Set_Name('IGS', v_message_name);
118: IGS_GE_MSG_STACK.ADD;
119: App_Exception.Raise_Exception;
120: END IF;
121: END IF;
122: -- Create history record.
175: IF upper(column_name) = 'UNIT_CD' OR
176: column_name is null Then
177: IF new_references.unit_cd <> UPPER(new_references.unit_cd) Then
178: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
179: IGS_GE_MSG_STACK.ADD;
180: App_Exception.Raise_Exception;
181: END IF;
182: END IF;
183:
184: IF upper(column_name) = 'PERCENTAGE' OR
185: column_name is null Then
186: IF new_references.percentage <= 0 OR new_references.percentage > 100 Then
187: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
188: IGS_GE_MSG_STACK.ADD;
189: App_Exception.Raise_Exception;
190: END IF;
191: END IF;
192: END check_constraints;
205: new_references.org_unit_cd,
206: new_references.ou_start_dt
207: ) THEN
208: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
209: IGS_GE_MSG_STACK.ADD;
210: App_Exception.Raise_Exception;
211: END IF;
212: END IF;
213:
221: new_references.unit_cd,
222: new_references.version_number
223: ) THEN
224: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
225: IGS_GE_MSG_STACK.ADD;
226: App_Exception.Raise_Exception;
227: END IF;
228: END IF;
229: END Check_Parent_Existance;
315: Fetch cur_rowid INTO lv_rowid;
316: IF (cur_rowid%FOUND) THEN
317: Close cur_rowid;
318: Fnd_Message.Set_Name ('IGS', 'IGS_PS_TR_OU_FK');
319: IGS_GE_MSG_STACK.ADD;
320: App_Exception.Raise_Exception;
321: Return;
322: END IF;
323: Close cur_rowid;
343: Fetch cur_rowid INTO lv_rowid;
344: IF (cur_rowid%FOUND) THEN
345: Close cur_rowid;
346: Fnd_Message.Set_Name ('IGS', 'IGS_PS_TR_UV_FK');
347: IGS_GE_MSG_STACK.ADD;
348: App_Exception.Raise_Exception;
349: Return;
350: END IF;
351: Close cur_rowid;
392: new_references.org_unit_cd,
393: new_references.ou_start_dt
394: ) THEN
395: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
396: IGS_GE_MSG_STACK.ADD;
397: App_Exception.Raise_Exception;
398: END IF;
399: Check_Constraints;
400: Check_Parent_Existance;
413: new_references.org_unit_cd,
414: new_references.ou_start_dt
415: ) THEN
416: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
417: IGS_GE_MSG_STACK.ADD;
418: App_Exception.Raise_Exception;
419: END IF;
420: Check_Constraints;
421: ELSIF (p_action = 'VALIDATE_UPDATE') THEN
470: X_LAST_UPDATE_LOGIN := -1;
471: end if;
472: else
473: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
474: IGS_GE_MSG_STACK.ADD;
475: app_exception.raise_exception;
476: end if;
477:
478: Before_DML (
547: fetch c1 into tlinfo;
548: if (c1%notfound) then
549: close c1;
550: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
551: IGS_GE_MSG_STACK.ADD;
552: app_exception.raise_exception;
553: return;
554: end if;
555: close c1;
558: ) then
559: null;
560: else
561: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
562: IGS_GE_MSG_STACK.ADD;
563: app_exception.raise_exception;
564: end if;
565: return;
566: end LOCK_ROW;
592: X_LAST_UPDATE_LOGIN := -1;
593: end if;
594: else
595: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
596: IGS_GE_MSG_STACK.ADD;
597: app_exception.raise_exception;
598: end if;
599: Before_DML (
600: p_action => 'UPDATE',