[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;
78: IF IGS_PS_VAL_UNIT.crsp_val_iud_uv_dtl (
79: v_unit_cd,
80: v_version_number,
81: v_message_name) = FALSE THEN
82: Fnd_Message.Set_Name('IGS',v_message_name);
83: IGS_GE_MSG_STACK.ADD;
84: App_Exception.Raise_Exception; END IF;
85: -- Validate calendar type. Calendar type is not updateable.
86: IF p_inserting THEN
87: -- As part of the bug# 1956374 changed to the below call from IGS_PS_VAL_UO.crsp_val_uo_cal_type
88: IF IGS_AS_VAL_UAI.crsp_val_uo_cal_type (
89: new_references.cal_type,
90: v_message_name) = FALSE THEN
91: Fnd_Message.Set_Name('IGS',v_message_name);
92: IGS_GE_MSG_STACK.ADD;
93: App_Exception.Raise_Exception; END IF;
94: END IF;
95:
111: END IF;
112:
113: IF Upper(Column_Name)='CAL_TYPE' OR Column_Name IS NULL Then
114: IF New_References.Cal_Type <> UPPER(New_References.Cal_Type) Then
115: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
116: IGS_GE_MSG_STACK.ADD;
117: App_Exception.Raise_Exception;
118: END IF;
119: END IF;
119: END IF;
120:
121: IF Upper(Column_Name)='UNIT_CD' OR Column_Name IS NULL Then
122: IF New_References.Unit_Cd <> UPPER(New_References.Unit_CD) Then
123: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
124: IGS_GE_MSG_STACK.ADD;
125: App_Exception.Raise_Exception;
126: END IF;
127: END IF;
137: NULL;
138: ELSE
139: IF NOT IGS_CA_TYPE_PKG.Get_PK_For_Validation (
140: new_references.cal_type) THEN
141: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
142: IGS_GE_MSG_STACK.ADD;
143: App_Exception.Raise_Exception;
144: END IF;
145:
154: ELSE
155: IF NOT IGS_PS_UNIT_VER_PKG.Get_PK_For_Validation (
156: new_references.unit_cd,
157: new_references.version_number) 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:
232: Open cur_rowid;
233: Fetch cur_rowid INTO lv_rowid;
234: IF (cur_rowid%FOUND) THEN
235: Close cur_rowid;
236: Fnd_Message.Set_Name ('IGS', 'IGS_PS_UO_CAT_FK');
237: IGS_GE_MSG_STACK.ADD;
238: App_Exception.Raise_Exception;
239: Return;
240: END IF;
260: Open cur_rowid;
261: Fetch cur_rowid INTO lv_rowid;
262: IF (cur_rowid%FOUND) THEN
263: Close cur_rowid;
264: Fnd_Message.Set_Name ('IGS', 'IGS_PS_UO_UV_FK');
265: IGS_GE_MSG_STACK.ADD;
266: App_Exception.Raise_Exception;
267: Return;
268: END IF;
302: BeforeRowInsertUpdateDelete1 ( p_inserting => TRUE );
303: IF Get_PK_For_Validation (New_References.unit_cd,
304: New_References.version_number,
305: New_References.cal_type) THEN
306: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
307: IGS_GE_MSG_STACK.ADD;
308: App_Exception.Raise_Exception;
309: END IF;
310: Check_Constraints;
321: ELSIF (p_action = 'VALIDATE_INSERT') THEN
322: IF Get_PK_For_Validation (New_References.unit_cd,
323: New_References.version_number,
324: New_References.cal_type) THEN
325: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
326: IGS_GE_MSG_STACK.ADD;
327: App_Exception.Raise_Exception;
328: END IF;
329: Check_Constraints;
374: if X_LAST_UPDATE_LOGIN is NULL then
375: X_LAST_UPDATE_LOGIN := -1;
376: end if;
377: else
378: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
379: IGS_GE_MSG_STACK.ADD;
380: app_exception.raise_exception;
381: end if;
382:
443: open c1;
444: fetch c1 into tlinfo;
445: if (c1%notfound) then
446: close c1;
447: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
448: IGS_GE_MSG_STACK.ADD;
449: app_exception.raise_exception;
450: return;
451: end if;