[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.pue_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;
96: IF IGS_EN_VAL_PCE.enrp_val_encmb_dts (
97: new_references.pee_start_dt,
98: new_references.pue_start_dt,
99: v_message_name ) = FALSE THEN
100: Fnd_Message.Set_Name('IGS', v_message_name);
101: IGS_GE_MSG_STACK.ADD;
102: App_Exception.Raise_Exception;
103: END IF;
104: END IF;
112: IF IGS_EN_VAL_PCE.enrp_val_strt_exp_dt (
113: new_references.pue_start_dt,
114: new_references.expiry_dt,
115: v_message_name ) = FALSE THEN
116: Fnd_Message.Set_Name('IGS', v_message_name);
117: IGS_GE_MSG_STACK.ADD;
118: App_Exception.Raise_Exception;
119: END IF;
120: IF IGS_EN_VAL_PCE.enrp_val_encmb_dt (
119: END IF;
120: IF IGS_EN_VAL_PCE.enrp_val_encmb_dt (
121: new_references.expiry_dt,
122: v_message_name ) = FALSE THEN
123: Fnd_Message.Set_Name('IGS', v_message_name);
124: IGS_GE_MSG_STACK.ADD;
125: App_Exception.Raise_Exception;
126: END IF;
127: END IF;
131: IF IGS_EN_VAL_PCE.enrp_val_pee_table (
132: new_references.s_encmb_effect_type,
133: 'IGS_PE_PERS_UNT_EXCL',
134: v_message_name ) = FALSE THEN
135: Fnd_Message.Set_Name('IGS', v_message_name);
136: IGS_GE_MSG_STACK.ADD;
137: App_Exception.Raise_Exception;
138: END IF;
139: END IF;
144: new_references.person_id,
145: new_references.unit_cd,
146: null,
147: v_message_name ) = FALSE THEN
148: Fnd_Message.Set_Name('IGS', v_message_name);
149: IGS_GE_MSG_STACK.ADD;
150: App_Exception.Raise_Exception;
151: END IF;
152: END IF;
180: new_references.pee_start_dt,
181: new_references.unit_cd,
182: new_references.pue_start_dt,
183: v_message_name) = FALSE THEN
184: Fnd_Message.Set_Name('IGS', v_message_name);
185: IGS_GE_MSG_STACK.ADD;
186: App_Exception.Raise_Exception;
187: END IF;
188: END IF;
217: END IF;
218: IF upper(column_name) = 'ENCUMBRANCE_TYPE' OR
219: column_name is null Then
220: IF new_references.encumbrance_type <>UPPER(new_references.encumbrance_type)Then
221: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
222: IGS_GE_MSG_STACK.ADD;
223: App_Exception.Raise_Exception;
224: END IF;
225: END IF;
225: END IF;
226: IF upper(column_name) = 'S_ENCMB_EFFECT_TYPE' OR
227: column_name is null Then
228: IF new_references.s_encmb_effect_type <>UPPER(new_references.s_encmb_effect_type)Then
229: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
230: IGS_GE_MSG_STACK.ADD;
231: App_Exception.Raise_Exception;
232: END IF;
233: END IF;
233: END IF;
234: IF upper(column_name) = 'UNIT_CD' OR
235: column_name is null Then
236: IF new_references.unit_cd <>UPPER(new_references.unit_cd)Then
237: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
238: IGS_GE_MSG_STACK.ADD;
239: App_Exception.Raise_Exception;
240: END IF;
241: END IF;
265: new_references.pen_start_dt,
266: new_references.s_encmb_effect_type,
267: new_references.pee_start_dt,
268: new_references.pee_sequence_number ) THEN
269: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
270: IGS_GE_MSG_STACK.ADD;
271: App_Exception.Raise_Exception;
272: END IF;
273: END IF;
277: NULL;
278: ELSE
279: IF NOT IGS_PS_UNIT_PKG.Get_PK_For_Validation (
280: new_references.unit_cd) THEN
281: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
282: IGS_GE_MSG_STACK.ADD;
283: App_Exception.Raise_Exception;
284: END IF;
285: END IF;
351:
352: Open cur_rowid;
353: Fetch cur_rowid INTO lv_rowid;
354: IF (cur_rowid%FOUND) THEN
355: Fnd_Message.Set_Name ('IGS', 'IGS_PE_PUE_PEE_FK');
356: IGS_GE_MSG_STACK.ADD;
357: Close cur_rowid;
358: App_Exception.Raise_Exception;
359: Return;
377:
378: Open cur_rowid;
379: Fetch cur_rowid INTO lv_rowid;
380: IF (cur_rowid%FOUND) THEN
381: Fnd_Message.Set_Name ('IGS', 'IGS_PE_PUE_UN_FK');
382: IGS_GE_MSG_STACK.ADD;
383: Close cur_rowid;
384: App_Exception.Raise_Exception;
385: Return;
439: NEW_REFERENCES.pee_sequence_number,
440: NEW_REFERENCES.unit_cd ,
441: NEW_REFERENCES.pue_start_dt
442: ) THEN
443: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
444: IGS_GE_MSG_STACK.ADD;
445: App_Exception.Raise_Exception;
446: END IF;
447:
467: NEW_REFERENCES.pee_start_dt ,
468: NEW_REFERENCES.pee_sequence_number,
469: NEW_REFERENCES.unit_cd ,
470: NEW_REFERENCES.pue_start_dt) 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:
546: if X_LAST_UPDATE_LOGIN is NULL then
547: X_LAST_UPDATE_LOGIN := -1;
548: end if;
549: else
550: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
551: IGS_GE_MSG_STACK.ADD;
552: app_exception.raise_exception;
553: end if;
554: Before_DML(
637: begin
638: open c1;
639: fetch c1 into tlinfo;
640: if (c1%notfound) then
641: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
642:
643: close c1;
644: App_Exception.Raise_Exception;
645: return;
651: AND (X_EXPIRY_DT is null)))
652: ) then
653: null;
654: else
655: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
656: app_exception.raise_exception;
657: end if;
658: return;
659: end LOCK_ROW;
688: if X_LAST_UPDATE_LOGIN is NULL then
689: X_LAST_UPDATE_LOGIN := -1;
690: end if;
691: else
692: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
693: IGS_GE_MSG_STACK.ADD;
694: app_exception.raise_exception;
695: end if;
696: Before_DML(