[Home] [Help]
37: -- Populate Old Values.
38: Open cur_old_ref_values;
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: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
42: IGS_GE_MSG_STACK.ADD;
43: Close cur_old_ref_values;
44: App_Exception.Raise_Exception;
45: Return;
84: THEN
85: IF IGS_EN_VAL_PCE.enrp_val_encmb_dt (
86: new_references.pur_start_dt,
87: v_message_name) = FALSE THEN
88: Fnd_Message.Set_Name('IGS', v_message_name);
89: IGS_GE_MSG_STACK.ADD;
90: App_Exception.Raise_Exception;
91: END IF;
92: END IF;
97: IF IGS_EN_VAL_PCE.enrp_val_encmb_dts (
98: new_references.pee_start_dt,
99: new_references.pur_start_dt,
100: v_message_name) = FALSE THEN
101: Fnd_Message.Set_Name('IGS', v_message_name);
102: IGS_GE_MSG_STACK.ADD;
103: App_Exception.Raise_Exception;
104: END IF;
105: END IF;
113: IF IGS_EN_VAL_PCE.enrp_val_strt_exp_dt (
114: new_references.pur_start_dt,
115: new_references.expiry_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: IF IGS_EN_VAL_PCE.enrp_val_encmb_dt (
120: END IF;
121: IF IGS_EN_VAL_PCE.enrp_val_encmb_dt (
122: new_references.expiry_dt,
123: v_message_name) = FALSE THEN
124: Fnd_Message.Set_Name('IGS', v_message_name);
125: IGS_GE_MSG_STACK.ADD;
126: App_Exception.Raise_Exception;
127: END IF;
128: END IF;
133: IF IGS_EN_VAL_PCE.enrp_val_pee_table (
134: new_references.s_encmb_effect_type,
135: 'IGS_PE_UNT_REQUIRMNT',
136: v_message_name) = FALSE THEN
137: Fnd_Message.Set_Name('IGS', v_message_name);
138: IGS_GE_MSG_STACK.ADD;
139: App_Exception.Raise_Exception;
140: END IF;
141: END IF;
170: new_references.pee_start_dt,
171: new_references.unit_cd,
172: new_references.pur_start_dt,
173: v_message_name ) = FALSE THEN
174: Fnd_Message.Set_Name('IGS', v_message_name);
175: IGS_GE_MSG_STACK.ADD;
176: App_Exception.Raise_Exception;
177: END IF;
178: END IF;
205: END IF;
206: IF upper(column_name) = 'ENCUMBRANCE_TYPE' OR
207: column_name is null Then
208: IF new_references.encumbrance_type <>UPPER(new_references.encumbrance_type)Then
209: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
210: IGS_GE_MSG_STACK.ADD;
211: App_Exception.Raise_Exception;
212: END IF;
213: END IF;
213: END IF;
214: IF upper(column_name) = 'S_ENCMB_EFFECT_TYPE' OR
215: column_name is null Then
216: IF new_references.s_encmb_effect_type <>UPPER(new_references.s_encmb_effect_type)Then
217: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
218: IGS_GE_MSG_STACK.ADD;
219: App_Exception.Raise_Exception;
220: END IF;
221: END IF;
221: END IF;
222: IF upper(column_name) = 'UNIT_CD' OR
223: column_name is null Then
224: IF new_references.unit_cd <>UPPER(new_references.unit_cd)Then
225: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
226: IGS_GE_MSG_STACK.ADD;
227: App_Exception.Raise_Exception;
228: END IF;
229: END IF;
253: new_references.pen_start_dt,
254: new_references.s_encmb_effect_type,
255: new_references.pee_start_dt,
256: new_references.pee_sequence_number ) THEN
257: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
258: IGS_GE_MSG_STACK.ADD;
259: App_Exception.Raise_Exception;
260: END IF;
261: END IF;
266: ELSE
267:
268: IF NOT IGS_PS_UNIT_PKG.Get_PK_For_Validation (
269: new_references.unit_cd ) THEN
270: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
271: IGS_GE_MSG_STACK.ADD;
272: App_Exception.Raise_Exception;
273: END IF;
274: END IF;
341:
342: Open cur_rowid;
343: Fetch cur_rowid INTO lv_rowid;
344: IF (cur_rowid%FOUND) THEN
345: Fnd_Message.Set_Name ('IGS', 'IGS_PE_PUR_PEE_FK');
346: IGS_GE_MSG_STACK.ADD;
347: Close cur_rowid;
348: App_Exception.Raise_Exception;
349: Return;
367:
368: Open cur_rowid;
369: Fetch cur_rowid INTO lv_rowid;
370: IF (cur_rowid%FOUND) THEN
371: Fnd_Message.Set_Name ('IGS', 'IGS_PE_PUR_UN_FK');
372: IGS_GE_MSG_STACK.ADD;
373: Close cur_rowid;
374: App_Exception.Raise_Exception;
375: Return;
428: new_references.pee_start_dt ,
429: new_references.pee_sequence_number ,
430: new_references.unit_cd ,
431: new_references.pur_start_dt ) THEN
432: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
433: IGS_GE_MSG_STACK.ADD;
434: App_Exception.Raise_Exception;
435: END IF;
436:
456: new_references.pee_start_dt ,
457: new_references.pee_sequence_number ,
458: new_references.unit_cd ,
459: new_references.pur_start_dt ) THEN
460: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
461: IGS_GE_MSG_STACK.ADD;
462: App_Exception.Raise_Exception;
463: END IF;
464:
532: if X_LAST_UPDATE_LOGIN is NULL then
533: X_LAST_UPDATE_LOGIN := -1;
534: end if;
535: else
536: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
537: IGS_GE_MSG_STACK.ADD;
538: app_exception.raise_exception;
539: end if;
540: Before_DML(
623: begin
624: open c1;
625: fetch c1 into tlinfo;
626: if (c1%notfound) then
627: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
628:
629: close c1;
630: App_Exception.Raise_Exception;
631: return;
637: AND (X_EXPIRY_DT is null)))
638: ) then
639: null;
640: else
641: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
642: app_exception.raise_exception;
643: end if;
644: return;
645: end LOCK_ROW;
674: if X_LAST_UPDATE_LOGIN is NULL then
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: Before_DML(