[Home] [Help]
38: -- Populate Old Values.
39: Open cur_old_ref_values;
40: Fetch cur_old_ref_values INTO old_references;
41: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN( 'INSERT','VALIDATE_INSERT')) THEN
42: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
43: IGS_GE_MSG_STACK.ADD;
44: Close cur_old_ref_values;
45: App_Exception.Raise_Exception;
46: Return;
86: THEN
87: IF IGS_EN_VAL_PCE.enrp_val_encmb_dt (
88: new_references.puse_start_dt,
89: v_message_name ) = FALSE THEN
90: Fnd_Message.Set_Name('IGS', v_message_name);
91: IGS_GE_MSG_STACK.ADD;
92: App_Exception.Raise_Exception;
93: END IF;
94: END IF;
98: IF IGS_EN_VAL_PCE.enrp_val_encmb_dts (
99: new_references.pee_start_dt,
100: new_references.puse_start_dt,
101: v_message_name ) = FALSE THEN
102: Fnd_Message.Set_Name('IGS', v_message_name);
103: IGS_GE_MSG_STACK.ADD;
104: App_Exception.Raise_Exception;
105: END IF;
106: END IF;
115: new_references.puse_start_dt,
116: new_references.expiry_dt,
117: v_message_name ) = FALSE THEN
118: IGS_GE_MSG_STACK.ADD;
119: Fnd_Message.Set_Name('IGS', v_message_name);
120: IGS_GE_MSG_STACK.ADD;
121: App_Exception.Raise_Exception;
122: END IF;
123: IF IGS_EN_VAL_PCE.enrp_val_encmb_dt (
122: END IF;
123: IF IGS_EN_VAL_PCE.enrp_val_encmb_dt (
124: new_references.expiry_dt,
125: v_message_name ) = FALSE THEN
126: Fnd_Message.Set_Name('IGS', v_message_name);
127: IGS_GE_MSG_STACK.ADD;
128: App_Exception.Raise_Exception;
129: END IF;
130: END IF;
134: IF IGS_EN_VAL_PCE.enrp_val_pee_table (
135: new_references.s_encmb_effect_type,
136: 'IGS_PE_UNT_SET_EXCL',
137: v_message_name ) = FALSE THEN
138: Fnd_Message.Set_Name('IGS', v_message_name);
139: IGS_GE_MSG_STACK.ADD;
140: App_Exception.Raise_Exception;
141: END IF;
142: END IF;
148: new_references.unit_set_cd,
149: new_references.us_version_number,
150: null,
151: v_message_name ) = FALSE THEN
152: Fnd_Message.Set_Name('IGS', v_message_name);
153: IGS_GE_MSG_STACK.ADD;
154: App_Exception.Raise_Exception;
155: END IF;
156: END IF;
185: new_references.unit_set_cd,
186: new_references.us_version_number,
187: new_references.puse_start_dt,
188: v_message_name) = FALSE THEN
189: Fnd_Message.Set_Name('IGS', v_message_name);
190: IGS_GE_MSG_STACK.ADD;
191: App_Exception.Raise_Exception;
192: END IF;
193: END IF;
222: END IF;
223: IF upper(column_name) = 'ENCUMBRANCE_TYPE' OR
224: column_name is null Then
225: IF new_references.encumbrance_type <>UPPER(new_references.encumbrance_type)Then
226: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
227: IGS_GE_MSG_STACK.ADD;
228: App_Exception.Raise_Exception;
229: END IF;
230: END IF;
230: END IF;
231: IF upper(column_name) = 'S_ENCMB_EFFECT_TYPE' OR
232: column_name is null Then
233: IF new_references.s_encmb_effect_type <>UPPER(new_references.s_encmb_effect_type)Then
234: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
235: IGS_GE_MSG_STACK.ADD;
236: App_Exception.Raise_Exception;
237: END IF;
238: END IF;
238: END IF;
239: IF upper(column_name) = 'UNIT_SET_CD' OR
240: column_name is null Then
241: IF new_references.unit_set_cd <>UPPER(new_references.unit_set_cd)Then
242: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
243: IGS_GE_MSG_STACK.ADD;
244: App_Exception.Raise_Exception;
245: END IF;
246: END IF;
272: new_references.pen_start_dt,
273: new_references.s_encmb_effect_type,
274: new_references.pee_start_dt,
275: new_references.pee_sequence_number ) THEN
276: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
277: IGS_GE_MSG_STACK.ADD;
278: App_Exception.Raise_Exception;
279: END IF;
280: END IF;
287: ELSE
288: IF NOT IGS_EN_UNIT_SET_PKG.Get_PK_For_Validation (
289: new_references.unit_set_cd,
290: new_references.us_version_number ) THEN
291: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
292: IGS_GE_MSG_STACK.ADD;
293: App_Exception.Raise_Exception;
294: END IF;
295: END IF;
363:
364: Open cur_rowid;
365: Fetch cur_rowid INTO lv_rowid;
366: IF (cur_rowid%FOUND) THEN
367: Fnd_Message.Set_Name ('IGS', 'IGS_PE_PUSE_PEE_FK');
368: IGS_GE_MSG_STACK.ADD;
369: Close cur_rowid;
370: App_Exception.Raise_Exception;
371: Return;
391:
392: Open cur_rowid;
393: Fetch cur_rowid INTO lv_rowid;
394: IF (cur_rowid%FOUND) THEN
395: Fnd_Message.Set_Name ('IGS', 'IGS_PE_PUSE_US_FK');
396: IGS_GE_MSG_STACK.ADD;
397: Close cur_rowid;
398: App_Exception.Raise_Exception;
399: Return;
455: new_references.pee_sequence_number ,
456: new_references.unit_set_cd ,
457: new_references.us_version_number ,
458: new_references.puse_start_dt ) THEN
459: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
460: IGS_GE_MSG_STACK.ADD;
461: App_Exception.Raise_Exception;
462: END IF;
463:
484: new_references.pee_sequence_number ,
485: new_references.unit_set_cd ,
486: new_references.us_version_number ,
487: new_references.puse_start_dt ) THEN
488: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
489: IGS_GE_MSG_STACK.ADD;
490: App_Exception.Raise_Exception;
491: END IF;
492:
564: if X_LAST_UPDATE_LOGIN is NULL then
565: X_LAST_UPDATE_LOGIN := -1;
566: end if;
567: else
568: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
569: IGS_GE_MSG_STACK.ADD;
570: app_exception.raise_exception;
571: end if;
572:
659: begin
660: open c1;
661: fetch c1 into tlinfo;
662: if (c1%notfound) then
663: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
664:
665: close c1;
666: App_Exception.Raise_Exception;
667: return;
673: AND (X_EXPIRY_DT is null)))
674: ) then
675: null;
676: else
677: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
678: app_exception.raise_exception;
679: end if;
680: return;
681: end LOCK_ROW;
711: if X_LAST_UPDATE_LOGIN is NULL then
712: X_LAST_UPDATE_LOGIN := -1;
713: end if;
714: else
715: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
716: IGS_GE_MSG_STACK.ADD;
717: app_exception.raise_exception;
718: end if;
719: Before_DML(