[Home] [Help]
39: Fetch cur_old_ref_values INTO old_references;
40: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
41: Close cur_old_ref_values;
42: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
43: IGS_GE_MSG_STACK.ADD;
44: App_Exception.Raise_Exception;
45: Return;
46: END IF;
47: Close cur_old_ref_values;
102: v_unit_cd,
103: v_version_number,
104: v_message_name) = FALSE THEN
105: Fnd_Message.Set_Name('IGS',v_message_name);
106: IGS_GE_MSG_STACK.ADD;
107: App_Exception.Raise_Exception;
108: END IF;
109:
110:
132:
133: IF Upper(Column_Name)='CAL_TYPE' OR Column_Name IS NULL Then
134: IF New_References.Cal_Type <> UPPER(New_References.Cal_Type) Then
135: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
136: IGS_GE_MSG_STACK.ADD;
137: App_Exception.Raise_Exception;
138: END IF;
139: END IF;
140:
140:
141: IF Upper(Column_Name)='CRS_NOTE_TYPE' OR Column_Name IS NULL Then
142: IF New_References.Crs_Note_Type <> UPPER(New_References.Crs_Note_Type) Then
143: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
144: IGS_GE_MSG_STACK.ADD;
145: App_Exception.Raise_Exception;
146: END IF;
147: END IF;
148:
149:
150: IF Upper(Column_Name)='LOCATION_CD' OR Column_Name IS NULL Then
151: IF New_References.Location_Cd <> UPPER(New_References.Location_Cd) Then
152: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
153: IGS_GE_MSG_STACK.ADD;
154: App_Exception.Raise_Exception;
155: END IF;
156: END IF;
157:
157:
158: IF Upper(Column_Name)='UNIT_CD' OR Column_Name IS NULL Then
159: IF New_References.Unit_Cd <> UPPER(New_References.Unit_CD) Then
160: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
161: IGS_GE_MSG_STACK.ADD;
162: App_Exception.Raise_Exception;
163: END IF;
164: END IF;
165:
165:
166: IF Upper(Column_Name)='UNIT_CLASS' OR Column_Name IS NULL Then
167: IF New_References.Unit_Class <> UPPER(New_References.Unit_Class) Then
168: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
169: IGS_GE_MSG_STACK.ADD;
170: App_Exception.Raise_Exception;
171: END IF;
172: END IF;
173:
184: ELSE
185: IF NOT IGS_PS_NOTE_TYPE_PKG.Get_PK_For_Validation (
186: new_references.crs_note_type) THEN
187: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
188: IGS_GE_MSG_STACK.ADD;
189: App_Exception.Raise_Exception;
190: END IF;
191: END IF;
192:
196: ELSE
197: IF NOT IGS_GE_NOTE_PKG.Get_PK_For_Validation (
198: new_references.reference_number) THEN
199: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
200: IGS_GE_MSG_STACK.ADD;
201: App_Exception.Raise_Exception;
202: END IF;
203:
204: END IF;
224: new_references.ci_sequence_number,
225: new_references.location_cd,
226: new_references.unit_class) THEN
227: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
228: IGS_GE_MSG_STACK.ADD;
229: App_Exception.Raise_Exception;
230: END IF;
231:
232: END IF;
237: ELSE
238: IF NOT IGS_PS_UNIT_OFR_OPT_PKG.Get_UK_For_Validation (
239: new_references.uoo_id) THEN
240: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
241: IGS_GE_MSG_STACK.ADD;
242: App_Exception.Raise_Exception;
243: END IF;
244: END IF;
245:
300: Fetch cur_rowid INTO lv_rowid;
301: IF (cur_rowid%FOUND) THEN
302: Close cur_rowid;
303: Fnd_Message.Set_Name ('IGS', 'IGS_PS_UOON_CNT_FK');
304: IGS_GE_MSG_STACK.ADD;
305: App_Exception.Raise_Exception;
306: Return;
307: END IF;
308: Close cur_rowid;
326: Fetch cur_rowid INTO lv_rowid;
327: IF (cur_rowid%FOUND) THEN
328: Close cur_rowid;
329: Fnd_Message.Set_Name ('IGS', 'IGS_PS_UOON_NOTE_FK');
330: IGS_GE_MSG_STACK.ADD;
331: App_Exception.Raise_Exception;
332: Return;
333: END IF;
334: Close cur_rowid;
362: Fetch cur_rowid INTO lv_rowid;
363: IF (cur_rowid%FOUND) THEN
364: Close cur_rowid;
365: Fnd_Message.Set_Name ('IGS', 'IGS_PS_UOON_UOO_FK');
366: IGS_GE_MSG_STACK.ADD;
367: App_Exception.Raise_Exception;
368: Return;
369: END IF;
370: Close cur_rowid;
388: Fetch cur_rowid INTO lv_rowid;
389: IF (cur_rowid%FOUND) THEN
390: Close cur_rowid;
391: Fnd_Message.Set_Name ('IGS', 'IGS_PS_UOON_UOO_FK');
392: IGS_GE_MSG_STACK.ADD;
393: App_Exception.Raise_Exception;
394: Return;
395: END IF;
396: Close cur_rowid;
446: New_References.location_cd,
447: New_References.unit_class,
448: New_References.reference_number) THEN
449: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
450: IGS_GE_MSG_STACK.ADD;
451: App_Exception.Raise_Exception;
452: END IF;
453: Check_Constraints;
454: Check_Parent_Existance;
468: New_References.location_cd,
469: New_References.unit_class,
470: New_References.reference_number) THEN
471: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
472: IGS_GE_MSG_STACK.ADD;
473: App_Exception.Raise_Exception;
474: END IF;
475: Check_Constraints;
476: ELSIF (p_action = 'VALIDATE_UPDATE') THEN
530: X_LAST_UPDATE_LOGIN := -1;
531: end if;
532: else
533: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
534: IGS_GE_MSG_STACK.ADD;
535: app_exception.raise_exception;
536: end if;
537:
538: Before_DML(
625: fetch c1 into tlinfo;
626: if (c1%notfound) then
627: close c1;
628: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
629: IGS_GE_MSG_STACK.ADD;
630: app_exception.raise_exception;
631: return;
632: end if;
633: close c1;
637: ) then
638: null;
639: else
640: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
641: IGS_GE_MSG_STACK.ADD;
642: app_exception.raise_exception;
643: end if;
644: return;
645: end LOCK_ROW;
675: X_LAST_UPDATE_LOGIN := -1;
676: end if;
677: else
678: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
679: IGS_GE_MSG_STACK.ADD;
680: app_exception.raise_exception;
681: end if;
682:
683: Before_DML(