[Home] [Help]
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;
46: END IF;
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;
93: -- Validate that start date is not less than the parent IGS_PE_PERSON
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;
105: -- Validate that if expiry date is specified, then expiry date is not
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 (
121: new_references.expiry_dt,
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;
128: -- Validate that records for this table can be created for the encumbrance
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;
140: -- Validate if IGS_PE_PERSON is enrolled in the IGS_PS_UNIT which is to be excluded. If so,
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;
153:
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;
189:
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;
226: IF upper(column_name) = 'S_ENCMB_EFFECT_TYPE' OR
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;
234: IF upper(column_name) = 'UNIT_CD' OR
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;
242:
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;
274:
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;
286:
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;
360: END IF;
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;
386: END IF;
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:
448: Check_Constraints; -- if procedure present
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:
476: Check_Constraints; -- if procedure present
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(
555: p_action=>'INSERT',
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(
697: p_action=>'UPDATE',