[Home] [Help]
52: Open cur_old_ref_values;
53: Fetch cur_old_ref_values INTO old_references;
54: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
55: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
56: IGS_GE_MSG_STACK.ADD;
57: Close cur_old_ref_values;
58: App_Exception.Raise_Exception;
59: Return;
60: END IF;
135: new_references.encumbrance_type ,
136: v_message_name) = FALSE THEN
137:
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;
143: -- expiry dt, start dt validation added as part of Bug 3771317
144: IF new_references.start_dt IS NOT NULL AND
145: new_references.expiry_dt IS NOT NULL AND
146: new_references.expiry_dt < new_references.start_dt THEN
147: FND_MESSAGE.SET_NAME('IGS', 'IGS_EN_EXPDT_GE_STDT');
148: IGS_GE_MSG_STACK.ADD;
149: APP_EXCEPTION.RAISE_EXCEPTION;
150: END IF;
151: IF p_inserting THEN
152:
157: new_references.expiry_dt,
158: v_message_name) = FALSE THEN
159:
160: FND_MESSAGE.SET_NAME('IGS', v_message_name);
161: IGS_GE_MSG_STACK.ADD;
162: APP_EXCEPTION.RAISE_EXCEPTION;
163: END IF;
164:
165: OPEN system_type_cur(new_references.encumbrance_type);
180:
181: IF v_message_name IS NOT NULL THEN
182:
183: FND_MESSAGE.SET_NAME('IGS',v_message_name);
184: IGS_GE_MSG_STACK.ADD;
185: APP_EXCEPTION.RAISE_EXCEPTION;
186: ELSE
187:
188: new_references.authorising_person_id := l_person_id;
204: new_references.start_dt,
205: v_message_name) = FALSE THEN
206:
207: Fnd_Message.Set_Name('IGS', v_message_name);
208: IGS_GE_MSG_STACK.ADD;
209: App_Exception.Raise_Exception;
210: END IF;
211:
212: END IF;
230: new_references.start_dt,
231: new_references.expiry_dt,
232: v_message_name) = FALSE THEN
233: Fnd_Message.Set_Name('IGS', v_message_name);
234: IGS_GE_MSG_STACK.ADD;
235: App_Exception.Raise_Exception;
236: END IF;
237: IF IGS_EN_VAL_PCE.enrp_val_encmb_dt (
238: new_references.expiry_dt,
237: IF IGS_EN_VAL_PCE.enrp_val_encmb_dt (
238: new_references.expiry_dt,
239: v_message_name) = FALSE THEN
240: Fnd_Message.Set_Name('IGS', v_message_name);
241: IGS_GE_MSG_STACK.ADD;
242: App_Exception.Raise_Exception;
243: END IF;
244: END IF;
245: END IF;
256: IF IGS_CO_VAL_OC.genp_val_prsn_id (
257: new_references.authorising_person_id,
258: v_message_name) = FALSE THEN
259: FND_MESSAGE.SET_NAME('IGS', v_message_name);
260: IGS_GE_MSG_STACK.ADD;
261: APP_EXCEPTION.RAISE_EXCEPTION;
262: END IF;
263:
264: IF igs_ad_val_acai.genp_val_staff_prsn (
264: IF igs_ad_val_acai.genp_val_staff_prsn (
265: new_references.authorising_person_id,
266: v_message_name) = FALSE THEN
267: FND_MESSAGE.SET_NAME('IGS', v_message_name);
268: IGS_GE_MSG_STACK.ADD;
269: APP_EXCEPTION.RAISE_EXCEPTION;
270: END IF;
271: END IF;
272:
325: new_references.start_dt,
326: v_message_name) = FALSE THEN
327:
328: Fnd_Message.Set_Name('IGS', v_message_name);
329: IGS_GE_MSG_STACK.ADD;
330: App_Exception.Raise_Exception;
331: END IF;
332: END IF;
333: -- Insert the default effects for the encumbrance type.
341: new_references.start_dt,
342: new_references.expiry_dt,
343: v_message_name) = FALSE THEN
344: Fnd_Message.Set_Name('IGS', v_message_name);
345: IGS_GE_MSG_STACK.ADD;
346: App_Exception.Raise_Exception;
347: END IF;
348: END IF;
349: -- Set the expiry date of all child records if the expiry date has been
362: initialised := NULL;
363:
364: IF v_message_name <> 0 THEN
365: FND_MESSAGE.SET_NAME('IGS', v_message_name);
366: IGS_GE_MSG_STACK.ADD;
367: APP_EXCEPTION.RAISE_EXCEPTION;
368: END IF;
369: END IF;
370: END IF;
393: column_name is null THEN
394: IF new_references.encumbrance_type <>
395: UPPER(new_references.encumbrance_type) THEN
396: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
397: IGS_GE_MSG_STACK.ADD;
398: App_Exception.Raise_Exception;
399: END IF;
400: END IF;
401:
444: FETCH check_resp_id_cur INTO l_var;
445: IF check_resp_id_cur%NOTFOUND THEN
446: CLOSE check_resp_id_cur;
447: FND_MESSAGE.SET_NAME ('FND', 'FORM_RECORD_DELETED');
448: IGS_GE_MSG_STACK.ADD;
449: APP_EXCEPTION.RAISE_EXCEPTION;
450: END IF;
451: CLOSE check_resp_id_cur;
452: ELSE
454: FETCH check_applresp_id_cur INTO l_var;
455: IF check_applresp_id_cur%NOTFOUND THEN
456: CLOSE check_applresp_id_cur;
457: FND_MESSAGE.SET_NAME ('FND', 'FORM_RECORD_DELETED');
458: IGS_GE_MSG_STACK.ADD;
459: APP_EXCEPTION.RAISE_EXCEPTION;
460: END IF;
461: CLOSE check_applresp_id_cur;
462: END IF;
471: FETCH check_ext_reference INTO l_var;
472: IF check_ext_reference%NOTFOUND THEN
473: CLOSE check_ext_reference;
474: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PE_INVLD_EXT_REF_VAL');
475: IGS_GE_MSG_STACK.ADD;
476: APP_EXCEPTION.RAISE_EXCEPTION;
477: END IF;
478: CLOSE check_ext_reference;
479: END IF;
485: ELSE
486: IF NOT IGS_FI_ENCMB_TYPE_PKG.Get_PK_For_Validation (
487: new_references.encumbrance_type ) THEN
488: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
489: IGS_GE_MSG_STACK.ADD;
490: App_Exception.Raise_Exception;
491: END IF;
492: END IF;
493:
498: ELSE
499: IF NOT IGS_PE_PERSON_PKG.Get_PK_For_Validation (
500: new_references.authorising_person_id ) THEN
501: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
502: IGS_GE_MSG_STACK.ADD;
503: App_Exception.Raise_Exception;
504: END IF;
505: END IF;
506:
510: ELSE
511: IF NOT IGS_PE_PERSON_PKG.Get_PK_For_Validation (
512: new_references.person_id ) THEN
513: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
514: IGS_GE_MSG_STACK.ADD;
515: App_Exception.Raise_Exception;
516: END IF;
517: END IF;
518:
526: new_references.sequence_number
527: ) THEN
528:
529: fnd_message.set_name ('FND', 'FORM_RECORD_DELETED');
530: igs_ge_msg_stack.add;
531: app_exception.raise_exception;
532: END IF;
533:
534: IF ((
545: new_references.spo_sequence_number
546: ) THEN
547:
548: fnd_message.set_name ('FND', 'FORM_RECORD_DELETED');
549: igs_ge_msg_stack.add;
550: app_exception.raise_exception;
551: END IF;
552: END Check_Parent_Existance;
553:
608: Open cur_rowid;
609: Fetch cur_rowid INTO lv_rowid;
610: IF (cur_rowid%FOUND) THEN
611: Fnd_Message.Set_Name ('IGS', 'IGS_PE_PEN_CI_FK');
612: Igs_Ge_Msg_Stack.Add;
613: Close cur_rowid;
614: App_Exception.Raise_Exception;
615: Return;
616: END IF;
633: OPEN cur_rowid;
634: FETCH cur_rowid INTO lv_rowid;
635: IF (cur_rowid%FOUND) THEN
636: Fnd_Message.Set_Name ('IGS', 'IGS_PE_PEN_ET_FK');
637: IGS_GE_MSG_STACK.ADD;
638: Close cur_rowid;
639: App_Exception.Raise_Exception;
640: RETURN;
641: END IF;
660: OPEN cur_rowid;
661: FETCH cur_rowid INTO lv_rowid;
662: IF (cur_rowid%FOUND) THEN
663: Fnd_Message.Set_Name ('IGS', 'IGS_PE_PEN_PE_AUTHORISED_BY_FK');
664: IGS_GE_MSG_STACK.ADD;
665: CLOSE cur_rowid;
666: App_Exception.Raise_Exception;
667: RETURN;
668: END IF;
726: new_references.person_id,
727: new_references.encumbrance_type ,
728: new_references.start_dt) THEN
729: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
730: IGS_GE_MSG_STACK.ADD;
731: App_Exception.Raise_Exception;
732: END IF;
733:
734: Check_Constraints; -- if procedure present
757: new_references.person_id,
758: new_references.encumbrance_type ,
759: new_references.start_dt) THEN
760: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
761: IGS_GE_MSG_STACK.ADD;
762: App_Exception.Raise_Exception;
763: END IF;
764:
765: Check_Constraints; -- if procedure present
849: X_LAST_UPDATE_LOGIN := -1;
850: end if;
851: else
852: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
853: IGS_GE_MSG_STACK.ADD;
854: app_exception.raise_exception;
855: end if;
856: OPEN system_type_cur(x_encumbrance_type);
857: FETCH system_type_cur INTO system_type_rec;
1049: X_LAST_UPDATE_LOGIN := -1;
1050: end if;
1051: else
1052: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
1053: IGS_GE_MSG_STACK.ADD;
1054: app_exception.raise_exception;
1055: end if;
1056: OPEN system_type_cur(x_encumbrance_type);
1057: FETCH system_type_cur INTO system_type_rec;